mirror of
https://github.com/PDP-10/its.git
synced 2026-03-26 02:05:51 +00:00
44 lines
622 B
Groff
44 lines
622 B
Groff
|
||
|
||
TITLE DBOOT
|
||
|
||
RIM10
|
||
NOSYMS
|
||
B==2
|
||
ICWA==30
|
||
|
||
MEMSIZ==1000000
|
||
|
||
.INSRT MLSYS;MDSK >
|
||
|
||
LOC MEMSIZ-100
|
||
|
||
BOOT: CLEARM MEMSIZ-1
|
||
CONSZ DPC,BUSY
|
||
JRST .-1
|
||
MOVEI B,ICWA+2 ;SET UP CHANNEL PROG
|
||
MOVEM B,ICWA
|
||
SETZM ICWA+1
|
||
SETZM ICWA+3
|
||
DATAO DPC,CLATT1
|
||
MOVE B,ERRWD
|
||
MOVEM B,@ICWA
|
||
DATAO DPC,SWPSK
|
||
CONSO DPC,DONE
|
||
JRST .-1
|
||
DATAO DPC,SWPIN1
|
||
CONSO DPC,DONE
|
||
JRST .-1
|
||
DATAO DPC,SWPIN2
|
||
CONSO DPC,DONE
|
||
JRST .-1
|
||
JRST 4,. ;SHOULD BE CLOBBERED
|
||
|
||
ERRWD: -2000,,MEMSIZ-2000-1
|
||
CLATT1: DEASEC ALLATT
|
||
SWPSK: DSEEKC+200._22.
|
||
SWPIN1: DWRITC+200._22.+3_17.+6._12.+ICWA ;NBLKS 4
|
||
SWPIN2: DREADC+200._22.+5_17.+4._12.+ICWA ;NBLKS 6
|
||
|
||
END BOOT
|
||
|