Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/subuss.mac
There are no other files named subuss.mac in the archive.
SUBTTL *STOR* RESERVED STORAGE
;MODIFY DEVICE CODE CODE TABLE
$MDLST:
$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
FILASC: BLOCK 3
D$ISTR: BLOCK ^D30 ;INPUT STORAGE
POWER: BLOCK 20 ;AC SAVE AREA
IFDEF DEBUG,<
PATCH: BLOCK DEBUG ;DEBUGGING AREA
>
;PROGRAM VARIABLE WORDS
VAR
IFDEF PGMEND,<
END: 0
END START
>