github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-27 04:37:20 +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 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 HACK0: SOJL 4,TRAILL
SETZB 1,3 SETZB 1,3
HACK1: TLNE 1,777777 HACK1: TLNE 1,777777
JRST HACK0 JRST HACK0
MOVE 2,1 MOVE 2,1
CIRC 2,-^D18 CIRC 2,-18.
SKIPN 4 SKIPN 4
SKIPA 1,3 SKIPA 1,3
IOR 1,3 IOR 1,3
LITES% DATAO PI,1
HALT
HRRZ 2,1 HRRZ 2,1
MOVEI 1,30 MOVEI 1,SLEEP
DISMS% .SLEEP 1,
MOVE 1,2 MOVE 1,2
AOJA 1,HACK1 AOJA 1,HACK1
TRAILL: SETZ 1, TRAILL: SETZ 1,
TRALL0: LITES% TRALL0: DATAO PI,1
HALT
MOVE 2,1 MOVE 2,1
MOVEI 1,30 MOVEI 1,SLEEP
DISMS% .SLEEP 1,
JUMPL 2,TRAILR JUMPL 2,TRAILR
LSHC 1,^D37 LSHC 1,37.
AOJA 1,TRALL0 AOJA 1,TRALL0
TRAILR: MOVSI 1,400000 TRAILR: MOVSI 1,400000
TRALR0: LITES% TRALR0: DATAO PI,1
HALT
MOVE 2,1 MOVE 2,1
MOVEI 1,30 MOVEI 1,SLEEP
DISMS% .SLEEP 1,
MOVE 1,2 MOVE 1,2
TRNE 1,1 TRNE 1,1
JRST HACK JRST HACK
ASH 1,-1 ASH 1,-1
JRST TRALR0 JRST TRALR0
END HACK END START