1
0
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:
Lars Brinkhoff
2018-02-19 19:45:21 +01:00
parent 99f9809995
commit c1b8b5b3c6
22 changed files with 8372 additions and 0 deletions

44
src/mlsys/boot.2 Normal file
View 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