diff --git a/src/imsrc/tst8k1.1 b/src/imsrc/tst8k1.2 similarity index 81% rename from src/imsrc/tst8k1.1 rename to src/imsrc/tst8k1.2 index be6ad01c..90ffc20f 100644 --- a/src/imsrc/tst8k1.1 +++ b/src/imsrc/tst8k1.2 @@ -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