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

Improved MACRO-10 addWord() parsing

Browse source
This commit is contained in:
Jeff 2017-03-24 13:44:34 -07:00 • committed by Jeff Parsons
commit 1b0e01c66a
6 changed files with 102 additions and 89 deletions
Download patch file Download diff file Expand all files Collapse all files

21
apps/pdp10/diags/klad/dakaa/MYDAKAA.MAC.txt
View file

@ -12,17 +12,16 @@ DEFINE STOP (A)<
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 STARTA
; 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 STARTA
;SKIPL MONCTL
;TTCALL 3,PGMNAM ;MENTION OUR NAME
JRST STARTA
PGMNAM: ASCIZ/

21
apps/pdp10/diags/klad/dakad/MYDAKAD.MAC.txt
View file

@ -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/

2
apps/pdp10/tests/macro10/README.md
View file

@ -7,7 +7,7 @@ machines:
type: pdp10
config: /devices/pdp10/machine/ka10/test/debugger/machine.xml
debugger: true
commands: a 100 /apps/pdp10/tests/macro10/LITNEST.MAC
commands: a 100 /apps/pdp10/tests/macro10/TEXT.MAC
---
PDPjs MACRO-10 Mini-Assembler Tests