mirror of
https://github.com/aap/pdp6.git
synced 2026-02-27 09:19:45 +00:00
66 lines
1.6 KiB
Plaintext
66 lines
1.6 KiB
Plaintext
PAPER TAPE RIM LOADER (AT 20):
|
|
|
|
LOC 20
|
|
CONO PTR,60 ; 710600 000060
|
|
A: CONSO PTR,10 ; 710740 000010
|
|
JRST .-1 ; 254000 000021
|
|
DATAI PTR,B ; 710440 000026
|
|
CONSO PTR,10 ; 710740 000010
|
|
JRST .-1 ; 254000 000024
|
|
B: 0 ; 000000 000000
|
|
JRST A ; 254000 000021
|
|
|
|
DECTAPE RIM LOADER AT 0 (SHADOW) 014 INSTRUCTIONS
|
|
|
|
MY DECTAPE LOADER:
|
|
CONO DC,4010 ; 720200 004010
|
|
CONO UTC,220300 ; 721200 220300
|
|
MOVE 17,12 ; 200740 000012
|
|
CONSO DC,1000 ; 720340 001000
|
|
JRST .-1 ; 254000 000003
|
|
BLKI DC,17 ; 720000 000017
|
|
JRST DONE ; 254000 000010
|
|
JRST .-1 ; 254000 000003
|
|
DONE: CONO DC,0 ; 720200 000000
|
|
HALT 300 ; 254200 000300
|
|
777600000277 ; 777600 000277
|
|
|
|
|
|
PDP-10 RIM10 LOADER:
|
|
|
|
003110' R1BLDR:
|
|
000000 PHASE 0
|
|
003110' 777762 000000 IOWD $ADR,$ST
|
|
003111' 710600 000060 $ST: CONO PTR,60
|
|
003112' 541400 000004 HRRI $A,$RD+1
|
|
003113' 710740 000010 $RD: CONSO PTR,10
|
|
003114' 254000 000003 JRST .-1
|
|
003115' 710470 000007 DATAI PTR,@$TBL1-$RD+1($A)
|
|
003116' 256010 000007 XCT $TBL1-$RD+1($A)
|
|
003117' 256010 000012 XCT $TBL2-$RD+1($A)
|
|
003120' 364400 000000 $A: SOJA $A,
|
|
003121' 312740 000016 $TBL1: CAME $CKSM,$ADR
|
|
003122' 270756 000001 ADD $CKSM,1($ADR)
|
|
003123' 331740 000016 SKIPL $CKSM,$ADR
|
|
003124' 254200 000001 $TBL2: JRST 4,$ST
|
|
003125' 253700 000003 AOBJN $ADR,$RD
|
|
003126' 254000 000002 $ADR: JRST $ST+1
|
|
000017 $CKSM:
|
|
003127' DEPHASE
|
|
|
|
|
|
MAC DECtape RIM loader:
|
|
000000 JFCL
|
|
000001 MOVSI (JFCL)
|
|
000002 CONO 635550
|
|
000003 CONO PI,11577
|
|
000004 CONO UTC,223110
|
|
000005 CONO DC,4010
|
|
000006 CONSO DC,1000
|
|
000007 JRST 6
|
|
000010 DATAI DC,13
|
|
000011 AOJGE 13,6
|
|
000012 TRNE 13,-1
|
|
000013 .
|
|
000014 JRST 6
|