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

Make TST8K1 start at 10000 to cohabitat with SSV.

Browse Source
This commit is contained in:
Lars Brinkhoff
2020-05-14 13:16:15 +02:00
parent be858bccde
commit b6855dd46e
1 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/imsrc/tst8k1.1 → src/imsrc/tst8k1.2
View File

@@ -16,15 +16,12 @@ MOUSE=0
; be neccessary if the machine is an Alpha machine, in which case the
; dot will appear in the lower left as well.
LOC 100
; The program starts from location 10000 so it can be overlaid on top
; of SSV.
START: LAW DLIST ; display list address
DLA ; load dpc
DON ; start display
DSN ; display off?
JMP .-1 ; no
JMP START ; yes, loop
LOC 10000-100
; This part of the display list is in the lower 4K.
DLIST: DHVS 1 ; startup
MODE: DADR ; turn on 8k addressing
DGD ; part of set point
@@ -33,8 +30,16 @@ MODE: DADR ; turn on 8k addressing
DJMP HI ; jump to high core
DHLT ; halt
LOC .+10000
LOC 10000
START: LAW DLIST ; display list address
DLA ; load dpc
DON ; start display
DSN ; display off?
JMP .-1 ; no
JMP START ; yes, loop
; This part of the display list is in the upper 4K.
HI: DDSP ; display dot
DHLT ; halt