Retro/pcjs
Watch
1
0
Fork
You've already forked pcjs
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed MACRO-10 processing of literals (requires internal labels that don't conflict with MACRO-10 labels)

Browse source
This commit is contained in:
Jeff 2017-03-13 17:02:26 -07:00 • committed by Jeff Parsons
commit 3e2b825bef
4 changed files with 39 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

21
apps/pdp10/tapes/diags/klad/dakad/DAKAD.MAC
View file

@ -35,16 +35,17 @@ 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/