github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-16 04:43:01 +00:00
Code Issues Releases Wiki Activity

Port Panda Display HACK to ITS.

Browse Source
This commit is contained in:
Lars Brinkhoff
2018-09-20 20:39:03 +02:00
parent 95b056c737
commit ef92edf3fa
1 changed files with 19 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
src/mrc/hack.mac → src/mrc/hack.2
View File

@@ -1,44 +1,46 @@
TITLE HACK
SEARCH MONSYM
HACK: SKIPA 4,[^D4]
SLEEP==1
PI==4
START: SETO 1,
.IOTLSR 1,
HACK: SKIPA 4,[4.]
HACK0: SOJL 4,TRAILL
SETZB 1,3
HACK1: TLNE 1,777777
JRST HACK0
MOVE 2,1
CIRC 2,-^D18
CIRC 2,-18.
SKIPN 4
SKIPA 1,3
IOR 1,3
LITES%
HALT
DATAO PI,1
HRRZ 2,1
MOVEI 1,30
DISMS%
MOVEI 1,SLEEP
.SLEEP 1,
MOVE 1,2
AOJA 1,HACK1
TRAILL: SETZ 1,
TRALL0: LITES%
HALT
TRALL0: DATAO PI,1
MOVE 2,1
MOVEI 1,30
DISMS%
MOVEI 1,SLEEP
.SLEEP 1,
JUMPL 2,TRAILR
LSHC 1,^D37
LSHC 1,37.
AOJA 1,TRALL0
TRAILR: MOVSI 1,400000
TRALR0: LITES%
HALT
TRALR0: DATAO PI,1
MOVE 2,1
MOVEI 1,30
DISMS%
MOVEI 1,SLEEP
.SLEEP 1,
MOVE 1,2
TRNE 1,1
JRST HACK
ASH 1,-1
JRST TRALR0
END HACK
END START