Trailing-Edge
-
PDP-10 Archives
-
tops10_703a_sys_ap115_bb-ju01b-bb
-
algser.c12
There are 13 other files named algser.c12 in the archive. Click here to see a list.
REP 27/10 ;12C1
FAIL(83,FRIED,DEL,TEMPCODE OVERFLOW) ;[350]
WIT
BEGIN ;[364]
;..SET TEMPCODE BUFFER TO EMPTY ;[364]
;INDEX_TCBASE; ;[364]
;HANDLE_770000,TCBASE; ;[364]
MOVE T3,TCBASE ;[364]
MOVEM T3,INDEX ;[364]
HRLI T3,770000 ;[364]
MOVEM T3,HANDLE ;[364]
FAIL(83,FRIED,DEL,TEMPCODE OVERFLOW) ;[350]
ENDD ;[364]
REP 41/12 ;12C2
FAIL(83,FRIED,DEL,TEMPCODE OVERFLOW) ;[350]
WIT
BEGIN ;[364]
;..SET TEMPCODE BUFFER TO EMPTY ;[364]
;INDEX_TCBASE; ;[364]
;HANDLE_770000,TCBASE; ;[364]
MOVE T1,TCBASE ;[364]
MOVEM T1,INDEX ;[364]
HRLI T1,770000 ;[364]
MOVEM T1,HANDLE ;[364]
FAIL(83,FRIED,DEL,TEMPCODE OVERFLOW) ;[350]
ENDD ;[364]
SUM 61859