Multiple MACRO-10 source files can now be requested and assembled together; also, restored DAKAD.MAC to its original version and put my modified version in TEST.MAC
This commit is contained in:
parent
3f8705ad98
commit
4959108512
7 changed files with 9687 additions and 197 deletions
7398
apps/pdp10/tapes/diags/klad/SMFILE.MAC
Normal file
7398
apps/pdp10/tapes/diags/klad/SMFILE.MAC
Normal file
File diff suppressed because it is too large
Load diff
|
|
@ -35,17 +35,16 @@ DEFINE SFLAG (A)<
|
|||
JRST 2,.+1(1) ;SET A FLAG>
|
||||
SUBTTL DIAGNOSTIC SECTION
|
||||
|
||||
START:
|
||||
; SETZM USER# ;CLEAR USER CONTROL WORD
|
||||
; JSP 0,.+1 ;GET FLAGS
|
||||
; TLNE USERF ;IN USER MODE?
|
||||
; SETOM USER ;YES, SET USER CONTROL WORD
|
||||
; SKIPN MONFLG ;SPECIAL USER MODE?
|
||||
; SETZM USER ;YES, CLEAR USER CONTROL WORD
|
||||
; SKIPN USER
|
||||
; JRST C00
|
||||
; SKIPL MONCTL
|
||||
; TTCALL 3,PGMNAM ;MENTION OUR NAME
|
||||
START: SETZM USER# ;CLEAR USER CONTROL WORD
|
||||
JSP 0,.+1 ;GET FLAGS
|
||||
TLNE USERF ;IN USER MODE?
|
||||
SETOM USER ;YES, SET USER CONTROL WORD
|
||||
SKIPN MONFLG ;SPECIAL USER MODE?
|
||||
SETZM USER ;YES, CLEAR USER CONTROL WORD
|
||||
SKIPN USER
|
||||
JRST C00
|
||||
SKIPL MONCTL
|
||||
TTCALL 3,PGMNAM ;MENTION OUR NAME
|
||||
JRST STARTA
|
||||
|
||||
PGMNAM: ASCIZ/
|
||||
|
|
@ -2052,4 +2051,4 @@ C22700: SETZM 2 ;INITIALIZE AC
|
|||
|
||||
;**********
|
||||
|
||||
; JRST BEGEND
|
||||
JRST BEGEND
|
||||
|
|
|
|||
2055
apps/pdp10/tapes/diags/klad/dakad/TEST.MAC
Normal file
2055
apps/pdp10/tapes/diags/klad/dakad/TEST.MAC
Normal file
File diff suppressed because it is too large
Load diff
Loading…
Reference in a new issue