"Loading CSBOOT" $PRINT CRLF
DEFINE CSBOOT
DEC END ;DEC replaced w/BOOT
CREATE BROM
 LDA BOOTC
 STA TMP1
 LDA DEST
 STA TMP2
BOOTL LDA TMP1,I
 STA TMP2,I
 ISZ TMP2
 LDA TMP1
 CPA BOOTE
 JMP DEST,I
 ISZ TMP1
 JMP BOOTL
DEST OCT 77700
BOOTC DEF *+1
* ADR = 077700
* CS/80 bootrom 12992J config to slot 21
* SR bits 0-2 = unit
 OCT 102501
 OCT 013751
 OCT 033742
 OCT 073742
 OCT 000040
 OCT 017756
 OCT 102521
 OCT 101027
 OCT 002011
 OCT 027706
 OCT 107700
 OCT 017756
 OCT 002300
 OCT 017756
 OCT 063776
 OCT 102606
 OCT 106702
 OCT 063733
 OCT 102602
 OCT 063736
 OCT 102702
 OCT 102602
 OCT 103706
 OCT 102206
 OCT 117747
 OCT 102321
 OCT 027727
 OCT 102011
 OCT 000677
 OCT 000737
 OCT 176624
 OCT 000624
 OCT 000440
 OCT 000745
 OCT 000040
 OCT 001000
 OCT 000677
 OCT 000500
 OCT 100556
 OCT 102055
 OCT 004003
 OCT 000047
 OCT 004003
 OCT 000413
 OCT 001015
 OCT 000000
 OCT 000000
 OCT 107721
 OCT 063750
 OCT 102621
 OCT 102721
 OCT 037760
 OCT 002240
 OCT 127756
 OCT 063734
 OCT 037766
 OCT 102621
 OCT 002021
 OCT 027766
 OCT 102321
 OCT 027773
 OCT 027757
 OCT 000021
 OCT 100100
BOOTE DEF *-1
END
DEFINE BOOT
-DMS -IRQ ;turn all that stuff off
"Booting CS/80..." $PRINT
#0 S>SR BROM ;select unit 0 and run bootrom code
END
;wrap CSBOOT around BROM and BOOT...
"BOOT" $DEFADR DUP DEC GET
"CSBOOT" $DEFADR DEC SWAP PUT
"CSBOOT" $DEFADR INC SWAP PUT
;
"Done" $PRINT CONSOLE