Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/subsms.mac
There are no other files named subsms.mac in the archive.
SUBTTL *STOR* RESERVED STORAGE
;MODIFY DEVICE CODE CODE TABLE
$MDLST: ;NO I/O BUS DEVICES ON SM-10
$MDEND=.-$MDLST ;COMPUTES LENGTH OF TABLE
;PROGRAM LITERALS
LIT
ENDSLD: 0
;END OF PROGRAM VARIABLES
%ERIN1: Z ;COR/ACT/DESC PRINT JSR
%ERIN2: Z
JRST @%ERIN1 ;ERROR HANDLER SPECIAL STORAGE WORDS
POWER: BLOCK 20 ;POWER FAIL AC SAVE
IFDEF DEBUG,<
PATCH: BLOCK DEBUG ;DEBUGGING AREA
>
;PROGRAM VARIABLE WORDS
VAR
0
$OUTBF: BLOCK ^D30
CINBF: BLOCK ^D30
COUTBF: BLOCK ^D30
IFDEF PGMEND,<
END: 0
END START
>