L X Skip 1 L X Return 0; Non-skip return on error L X Load Sys2 ; Show important variables L E5 Addr STEMP L D4 Addr RTEMP L D3 Addr RPGRT2 L D2 Addr RPGRT L D5 Addr REFADR L A14 Addr PISTAT L A13 Addr PC L A15 Addr MICINTS L E4 Addr LTEMP L E3 Addr LPGRT2 L E2 Addr LPGRT ; Show AC's L D6 Addr LM 0 L E6 Addr LM 1 L D7 Addr LM 2 L E7 Addr LM 3 L D8 Addr LM 4 L E8 Addr LM 5 L D9 Addr LM 6 L E9 Addr LM 7 L D10 Addr LM 10 L E10 Addr LM 11 L D11 Addr LM 12 L E11 Addr LM 13 L D12 Addr LM 14 L E12 Addr LM 15 L D13 Addr LM 16 L E13 Addr LM 17 L A16 Addr INSTR ; Flush LDR junk for debugging L D14 Addr L D15 Addr L D16 Addr ; Let the user see the rest of the commands L X DisplayOn L X TimeOut 7777; 4 sec timeout for RESET;G L X Go RESET L X Skip 2; RESET finished ok L X ShowError RESET hung--hardware problem L X BackSkip 1 L A0 SkipVEql 30; Skip if correctly finished at 30 L X Skip 1 L X Skip 2 L X ShowError RESET should have halted at 30--hardware problem L X BackSkip 1 L X TimeOut 7777; 4 sec timeout for checker L X Go INIT L X Skip 2 L X ShowError INIT hung--hardware problem L X BackSkip 1 L A0 SkipVEql 30; Skip if check finished ok L X Skip 1 L X Return 1; Skip return if initialized ok L X ShowError INIT found bad checksums--hardware problem L X Compare SYS2; Compare against what was loaded L X BackSkip 1