Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskfas.mac
There are no other files named dskfas.mac in the archive.
SUBTTL STORAGE FOR TIMING TEST
ENDSLD: 0
IFDEF DEBUG,<
PATCH: BLOCK DEBUG ;PATCHING AREA
>
;*PROGRAM VARIABLES
VAR
LOC <.!777>+1 ;LOCATE ON EVEN PAGE BOUNDRY
;*SHARE THE CODE ARE WITH THE TIMED INSTRUCTIONS OPERANDS
;*SO THAT ALL OPERANDS AND INSTRUCTIONS ARE FETCHED FROM THE CACHE
CACHE: LIT
MARG: 0
0
TEMP: 0
PTEMP: 0 ;STORAGE FOR PUSHJ TIMING
MONUUO: JRSTF @425
LOCUUO: JRSTF @0
$WRIO:
$RDIO: 1,,776700 ;UNIBUS 1 RH-11 ADDRESS
;*TIMED INSTRUCTIONS ARGUMENT TABLE
DFARG1: 200525,,252500
0
MCARG1: 1.0
0
DFARG2: 200525,,252520
0
MCARG2: 0
0
0
0
MCARG3: -1.5
0
DFARG3: 200400,,0
0
DFARG5: 200400,,0
0
DFARG4: 201400,,0
0
DFARG6: 210400,,0
0
DFARG7: 200525,,240000
0 ;SECOND OPERAND
CODE: LENGTH=^D2000-<CODE-CACHE>
IFLE <LENGTH-^D500>,<PRINTX ? INSTRUCTION SEQUENCE TABLE OVERFLOW!>
BLOCK LENGTH
END: 0
END BEGIN