Trailing-Edge
-
PDP-10 Archives
-
BB-F492Z-DD_1986
-
10,7/10k.mac
There are 3 other files named 10k.mac in the archive. Click here to see a list.
TITLE 10K VERSION 3
SUBTTL COMP10 CONTROL PROGRAM CWRU/CAM
;EDIT==6
;COPYRIGHT 1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
HISEG
EXTERN SIXTO7,SIXCNT,SIXBUF,P6WORD,MRGOUT,USDDB
EXTERN BASDDB,CMDLVL,PUSHST,CBGET
START: CALLI
MSTART: MOVE 16,[IOWD 15,PUSHST]
PUSHJ 16,CMDLVL
MOVE 4,[ASCII/-!/]
JSP 14,MRGOUT
[2]
4
MOVEI USDDB+2
HRRZM P6WORD
PUSHJ 16,SIXTO7
JSP 14,MRGOUT
SIXCNT
SIXBUF
AOS P6WORD
PUSHJ 16,SIXTO7
SOS SIXCNT
JSP 14,MRGOUT
SIXCNT
SIXBUF
MOVEI "_"
JSP 14,MRGOUT
[0]
0
MOVEI BASDDB+2
HRRZM P6WORD
PUSHJ 16,SIXTO7
JSP 14,MRGOUT
SIXCNT
SIXBUF
AOBJ N .+1
MOVEM P6WORD
PUSHJ 16,SIXTO7
JSP 14,MRGOUT
SIXCNT
SIXBUF
NXC: PUSHJ 16,CBGET
JUMPLE 13,RELESE
MOVE 10,13
JSP 14,MRGOUT
[0]
10
JRST NXC
RELESE: RELEAS 2,
RELEAS 5,
RELEAS 6,
EXTERN DIASW
SETOM DIASW
PUSHJ 16,NOTFND
XWD [ASCIZ/COMPAR COMPLETED ON: /],BASDDB
PUSHJ 16,NOTFND
XWD [ASCIZ/ AND: /],USDDB
EXTERN NOTFND
SETZM DIASW
JRST MSTART
END START;