Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/c1520.mac
There is 1 other file named c1520.mac in the archive. Click here to see a list.
TITLE C1520 CURSER ADDRESSING FOR THE DATAMEDIA ELITE 1520
T1=1
T2=2
J=16
P=17
ENTRY CA1520,CR1520
CA1520: MOVE T1,@1(J)
SOJ T1,
ADDI T1,40
IONEOU [36]
IONEOU T1
MOVE T1,@(J)
SOJ T1,
IONEOU T1
POPJ P,
CR1520: PUSH P,T1
PUSH P,T2
MOVE T1,@(J)
JUMPE T1,CR152A
MOVEI T2,37
SKIPG T1
MOVEI T2,12
MOVMS T1
IONEOU T2
SOJG T1,.-1
CR152A: MOVE T1,@1(J)
JUMPE T1,CR152B
MOVEI T2,10
SKIPG T1
MOVEI T2,34
MOVMS T1
IONEOU T2
SOJG T1,.-1
CR152B: POP P,T2
POP P,T1
POPJ P,
END