1 /MI8-EF (Edu Sys Low) 2 CAF=6007 / CLEAR ALL FLAGS 3 DTLA=6766 / LOAD REGISTER A 4 DTSF=6771 / SKIP ON FLAGS 5 DMAR=6603 / START READ 6 DFSC=6622 / SKIP IF DONE 7 FIELD 0 8 *7737 9 007737 6007 START, CAF / INITIALIZE 10 007740 7604 LAS / READ THE SWITCHES 11 007741 7510 SPA / BIT 0 SET? 12 007742 3343 DCA .+1 / YES, USE IT INSTEAD 13 007743 6766 L07743, DTLA / MOVE DECTAPE 14 007744 6771 DTSF / WAIT FOR IT 15 007745 5344 JMP .-1 16 / THE READ COMMAND WILL REPLACE THIS CODE 17 / THE SECOND TIME THROUGH. 18 007746 1376 TAD P07776 / GET READ COMMAND 19 007747 5343 JMP L07743 / GO DO IT 20 / DF32 BOOT 21 007750 7600 7600 / CLA, ALSO WORD COUNT! 22 007751 6603 DMAR / START A READ, ALSO CA! 23 007752 6622 DFSC / WAIT FOR IT 24 007753 5352 JMP .-1 25 007754 5752 JMP I .-2 / JUMP INTO THE NEW CODE 26 007755 7577 7577 / UNUSED 27 / THIS REST IS JUST THE LOW SPEED RIM LOADER. 28 007756 6032 L07756, KCC / FETCH FROM LSR 29 007757 6031 L07757, KSF / SKIP IF READY 30 007760 5357 JMP .-1 31 007761 6036 D07761, KRB / GET HIGH 6 BITS 32 007762 7106 CLL RTL / SHIFT UP 33 007763 7006 RTL 34 007764 7510 SPA / CHECK FOR LEADER 35 007765 5357 JMP L07757 / IGNORE LEADER 36 007766 7006 RTL / FINISH SHIFT UP 37 007767 6031 L07767, KSF / WAIT FOR LOW 6 BITS 38 007770 5367 JMP .-1 39 007771 6034 D07771, KRS / OR THEM IN 40 007772 7420 SNL / LOCATION OR DATA? 41 007773 3776 DCA I P07776 / DATA 42 007774 3376 L07774, DCA P07776 / LOCATION 43 007775 5356 JMP L07756 / GO LOOK FOR MORE 44 007776 0220 P07776, 220 / SAVED LOCATION (OR 0) 45 $