COLD HEX ( INSTALL COP ( ----- CREATE SET-BPROT 86 C, 0B C, ( LDAA #REGCTL B7 C, 103D , ( STAA INIT+IREGBS 86 C, 93 C, ( LDAA #93 B7 C, B039 , ( STAA OPTION+INITCON 86 C, 00 C, ( LDAA 00 B7 C, B035 , ( STAA BPROT 86 C, 0C C, ( LDAA 0C B7 C, B02D , ( STAA ??? 38 C, ( PULX ;DISCARD RETURN ADDRESS 7E C, FEDE , ( JMP RESRTN : INSTALL-64 7E B7FB EEC! SET-BPROT >< FF AND B7FC EEC! SET-BPROT FF AND B7FD EEC! A5 B7FE EEC! 5A B7FF EEC! ; : CLEAR-PTCON CR ." THIS INSTALLS A FIRST-64 VECTOR THAT WILL CLEAR PTCON" CR ." WHICH WILL MAKE IT POSSIBLE TO ENABLE THE COP" CR CR ." PRESS RESET TO CLEAR PTCON NOW OR ANY KEY TO ABORT" INSTALL-64 KEY DROP CR ." ABORTED!" 0 B7FF EEC! ; : ENABLE-COP CR ." ENABLING THE COP CAN BE HAZARDOUS TO YOUR HEALTH" CR ." PRESS Y TO ENABLE THE COP, ANY OTHER KEY TO ABORT" KEY 59 = IF CR ." COP WILL BE ENABLED ON NEXT RESET" 0B B03F EEC! ELSE CR ." ABORTED!" THEN ; ( EEPROM IMAGE ( ----- CREATE EEPAT ( B600) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B610) FF C, FF C, FF C, FF C, 86 C, 03 C, B7 C, 10 C, 24 C, 39 C, FF C, FF C, FF C, FF C, FF C, FF C, ( B620) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B630) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B640) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B650) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B660) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B670) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B680) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B690) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B6A0) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B6B0) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B6C0) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B6D0) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B6E0) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B6F0) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B700) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B710) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B720) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B730) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B740) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B750) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B760) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B770) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B780) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B790) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B7A0) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, ( B7B0) FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, FF C, 7E C, ( B7C0) 27 C, 0D C, 7E C, FE C, C0 C, 7E C, FE C, C0 C, 7E C, FE C, C0 C, 7E C, FE C, C0 C, 7E C, FE C, ( B7D0) C0 C, 7E C, 27 C, 5D C, 7E C, 27 C, 7E C, 7E C, 27 C, 2B C, 7E C, FE C, C0 C, 7E C, 27 C, 98 C, ( B7E0) 7E C, FE C, C0 C, 7E C, FE C, C0 C, 7E C, FE C, C0 C, 7E C, 26 C, D5 C, 7E C, FE C, C0 C, 7E C, ( B7F0) FE C, C0 C, 7E C, FE C, C0 C, 7E C, FE C, C0 C, 7E C, FE C, C0 C, 7E C, B6 C, 14 C, A5 C, 5A C, : EE-INIT CR ." EEPROM INITIALIZATION. PLEASE WAIT... " EEPAT B600 200 EEMOVE ." DONE." ;