Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
autopatch/string.c14
There are 2 other files named string.c14 in the archive. Click here to see a list.
REP 9/29 ;14C1
CALTAG: MOVEM 0,SSACB.## ;SAVE AC0
MOVE 0,[1,,SSACB.+1]
BLT 0,SSACB.+15 ;SAVE AC1-AC15
PUSHJ PP,@TAG ;CALL THE USER ROUTINE
MOVE 0,[SSACB.+1,,1] ;RESTORE ACS
BLT 0,15
MOVE 0,SSACB. ;RESTORE AC0
WIT
CALTAG: MOVEM 0,SSACB.## ;[1163]SAVE AC15
MOVE 0,[1,,SSACB.+1] ;[1163]
BLT 0,SSACB.+15 ;[1163]SAVE AC1-AC15
PUSHJ PP,@TAG ;CALL THE USER ROUTINE
MOVE 0,[SSACB.+1,,1] ;[1163]RESTORE ACS
BLT 0,15 ;[1163]
MOVE 0,SSACB. ;[1163]RESTORE AC0
SUM 27288