mirror of
https://github.com/PDP-10/its.git
synced 2026-02-21 06:55:40 +00:00
52 lines
586 B
Plaintext
52 lines
586 B
Plaintext
;<DRAW>LAST.FAI.3, 15-NOV-75 18:06:02, EDIT BY HELLIWELL
|
|
VERSION(LAST,3)
|
|
|
|
|
|
XLIST
|
|
.litbeg:
|
|
LIT
|
|
.litend:
|
|
STORAGE(IMPURE)
|
|
.varbeg:
|
|
VAR
|
|
ORG .+20 ;Overlap with boards file????
|
|
-1
|
|
.varend:
|
|
STORAGE(PURE)
|
|
LIST
|
|
|
|
IFN LIBSW!TWOSW,<
|
|
|
|
MD,<BEND D>
|
|
MPC,<BEND PC>
|
|
|
|
PASS1,<
|
|
DEPHASE
|
|
^LAY1E:
|
|
>;PASS1
|
|
|
|
PASS2,<
|
|
DEPHASE
|
|
^LAY2E:
|
|
TOTSUM__VERSUM ;PASS TOTAL BACK FOR FIXUP
|
|
|
|
TWO,<
|
|
STORAGE(LOW)
|
|
^LOWEND:
|
|
>;TWO
|
|
END SAVE
|
|
>;PASS2
|
|
^^PASSNM__PASSNM+1
|
|
>;IFN LIBSW!TWOSW
|
|
|
|
ONE,<
|
|
TOTSUM__VERSUM ;PASS TOTAL BACK FOR FIXUP
|
|
MD,<END STRT>
|
|
MPC,<END>
|
|
>;ONE
|
|
|
|
NOLAY,<
|
|
TOTSUM__VERSUM ;PASS TOTAL BACK FOR FIXUP
|
|
END STRT
|
|
>;NOLAY
|