mirror of
https://github.com/PDP-10/its.git
synced 2026-04-18 00:57:09 +00:00
MLSYS from around 1973. Needed to build ML ITS 785.
This commit is contained in:
44
src/mlsys/boot.2
Normal file
44
src/mlsys/boot.2
Normal file
@@ -0,0 +1,44 @@
|
||||
|
||||
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user