github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +00:00
Code Issues Releases Wiki Activity

Fix unterminated MACTAP literals.

Browse Source
This commit is contained in:
Lars Brinkhoff 2019-06-17 08:49:53 +02:00
parent 3d3616f8e8
commit e36732253a
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/sysen2/mactap.f71 → src/sysen2/mactap.f72 Executable file → Normal file
View File

@ -466,12 +466,12 @@ SETUPR: MOVE A,-3(B)
SKIPA D,FPNTR
ADDI D,2
CAME A,(D)
CAMN A,[SIXBIT /*/
CAMN A,[SIXBIT /*/]
JRST .+2
AOBJN C,LOOK+2
JUMPGE C,LOOK1
CAME B,1(D)
CAMN B,[SIXBIT /*/
CAMN B,[SIXBIT /*/]
JRST .+2
AOBJN C,LOOK+2
LOOK1: TLZN C,-1
@ -504,7 +504,7 @@ OPNRD": PUSHJ P,SAVAC
CLEARM RCNTR
MOVEI B,RDATAS
PUSHJ P,SETUPR
MOVE A,[70700,,CEOF
MOVE A,[70700,,CEOF]
MOVEM A,UREDP
MOVEI A,RBEGB+200
HRRM A,RED2
@ -558,8 +558,8 @@ FILE1: MOVEI A,SYSEOF
PUSHJ P,UWR
JFCL
SOJG B,.-2
MOVE A,[SYSEOF_11.,,1
FILE1B: LDB B,[700,,WCNTR
MOVE A,[SYSEOF_11.,,1]
FILE1B: LDB B,[700,,WCNTR]
JUMPE B,FILE3
PUSHJ P,WR
JRST FILE7
@ -710,7 +710,7 @@ CRESTOR: JRST RESTOR
PUSHJ P,OPNTP1
JUMPL A,ERR4
MOVE C,FPNTR
LDB C,[370500+C,,177
LDB C,[370500+C,,177]
CAIN C,37
JRST RESTOR
ERR3: MOVNI A,1
@ -775,12 +775,12 @@ URED3: SKIPGE EOF
JRST .-3
JRST URED
UREDE: MOVE A,[70700,,CEOFA
UREDE: MOVE A,[70700,,CEOFA]
MOVEM A,UREDP
MOVEI A,14
ELSE QUITFF,JRST POPJA,[POPJ P,]
URED2: MOVE A,[440700,,RBEGB
URED2: MOVE A,[440700,,RBEGB]
MOVEM A,UREDP
JRST URED3