github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-04 05:09:34 +00:00
Code Issues Releases Wiki Activity

Backport SYMFOR from PDS-4 to PDS-1.

Browse Source
This commit is contained in:
Lars Brinkhoff
2020-04-30 09:30:02 +02:00
parent 5a2b144404
commit 8fe7a06cc3
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/imsrc/symfor.10 → src/imsrc/symfor.11
View File

@@ -1,11 +1,13 @@
TITLE NSYMFORM
PDS4=1
MAXADR=37777
IFNDEF PDS4,PDS4=1
MAXADR=<PDS4+1>*20000-1
.INSRT imlac;IMDEFS >
.insrt imlac;DISFIX >
IFN PDS4,.insrt imlac;DISFIX >
.ADDR.=1
STARTA=<PDS4*2+1>*10000
; damn midas!
IF1, EXPUNG HRLS HLRZ MUL
@@ -47,12 +49,12 @@ DEFINE DSP K,D
TERMIN
LOC 30000
LOC STARTA
START: JMS RESET ; reset the world
CONT: JMP INIT ; so can test characters in SSV!
LOC 30030
LOC STARTA+30
; reinitialize the world
INIT: LAC [JMP @2] ; set up symfor interrupt dispatching
@@ -2324,4 +2326,3 @@ BUFEND: 0
BUFFER: 0
END START