Reset: equ $0000 org $0800 CartridgeStart: LR $5,A ; 0800 55 NOP ; 0801 2b CartridgeEntry: LIS $0 ; 0802 70 Set ports to 0 OUTS 0 ; 0803 b0 OUTS 1 ; 0804 b1 OUTS 4 ; 0805 b4 OUTS 5 ; 0806 b5 LISU 7 ; 0807 67 Set ISAR tp 'O'73 LISL 3 ; 0808 6b LI $3c ; 0809 20 3c LR (IS),A ; 080b 5c register 'O'73 = $3C LI $d0 ; 080c 20 d0 LR $3,A ; 080e 53 PI $00d0 ; 080f 28 00 d0 Calls BIOS clear screen routine, clear to grey background PROMPT: LI $8a ; 0812 20 8a Loads character $8A in r0 LR $0,A ; 0814 50 PI $0099 ; 0815 28 00 99 Calls BIOS prompt, draws character and waits for keypress LR A,$4 ; 0818 44 Button result returned in r4 CI $04 ; 0819 25 04 Compare to %00000100 - Button 3 BF $4,A0820 ; 081b 94 04 JMP A0e99 ; 081d 29 0e 99 Button 3 makes a jump to A0e99 A0820: LR A,$4 ; 0820 44 Not button 3... CI $01 ; 0821 25 01 Button 1? BT 4,GAME1 ; 0823 84 09 If it is, jump CI $02 ; 0825 25 02 Button 2? BF $4,PROMPT ; 0827 94 ea If not, go back to wait for button press A0812 LR A,$b ; 0829 4b Game 2 selected OI $20 ; 082a 22 20 LR $b,A ; 082c 5b Change bit 5 in r11 to 1 GAME1: LI $93 ; 082d 20 93 LR $3,A ; 082f 53 PI $00d0 ; 0830 28 00 d0 Clear screen to lt.blue using BIOS routine. BF $0,STARTGAME ; 0833 90 2d Branch (unconditionally) to A0861 A0835: LR K,P ; 0835 08 LIS $3 ; 0836 73 LR $9,A ; 0837 59 DCI A0dd7 ; 0838 2a 0d d7 BF $0,A083e ; 083b 90 02 A083d: LR DC,Q ; 083d 0f A083e: LI $08 ; 083e 20 08 LR $3,A ; 0840 53 LR $6,A ; 0841 56 LR $5,A ; 0842 55 LM ; 0843 16 LR $0,A ; 0844 50 LM ; 0845 16 LR $1,A ; 0846 51 LM ; 0847 16 LR $2,A ; 0848 52 LR Q,DC ; 0849 0e LI $c0 ; 084a 20 c0 LR $4,A ; 084c 54 DCI A0e60 ; 084d 2a 0e 60 LR A,$b ; 0850 4b SL 1 ; 0851 13 BT 1,A0859 ; 0852 81 06 LIS $0 ; 0854 70 LR $0,A ; 0855 50 DCI $0e88 ; 0856 2a 0e 88 A0859: PI A0ca8 ; 0859 28 0c a8 DS $9 ; 085c 39 BF $4,A083d ; 085d 94 df LR P,K ; 085f 09 POP ; 0860 1c STARTGAME: LISU 2 ; 0861 62 LISL 0 ; 0862 68 LI $18 ; 0863 20 18 LR (IS)+,A ; 0865 5d LI $5a ; 0866 20 5a LR (IS)+,A ; 0868 5d LI $34 ; 0869 20 34 LR (IS)+,A ; 086b 5d LISU 3 ; 086c 63 LIS $0 ; 086d 70 LR (IS)+,A ; 086e 5d LI $09 ; 086f 20 09 LR (IS)+,A ; 0871 5d LI $34 ; 0872 20 34 LR (IS)+,A ; 0874 5d PI A0835 ; 0875 28 08 35 DCI A0de0 ; 0878 2a 0d e0 PI A0c8e ; 087b 28 0c 8e PI A0ca8 ; 087e 28 0c a8 LIS $8 ; 0881 78 SL 4 ; 0882 15 PI A0c9f ; 0883 28 0c 9f DCI A0de0 ; 0886 2a 0d e0 PI A0ca8 ; 0889 28 0c a8 LR A,$b ; 088c 4b NI $f7 ; 088d 21 f7 LR $b,A ; 088f 5b LISU 6 ; 0890 66 LISL 0 ; 0891 68 LI $ff ; 0892 20 ff LR (IS),A ; 0894 5c LISL 3 ; 0895 6b LR (IS),A ; 0896 5c LR A,$b ; 0897 4b SL 4 ; 0898 15 SR 1 ; 0899 12 SL 4 ; 089a 15 BT 1,A08a0 ; 089b 81 04 JMP A0bde ; 089d 29 0b de A08a0: LISU 7 ; 08a0 67 LISL 0 ; 08a1 68 LIS $f ; 08a2 7f LR (IS),A ; 08a3 5c LR A,$b ; 08a4 4b SL 1 ; 08a5 13 SL 1 ; 08a6 13 BF $1,A08d1 ; 08a7 91 29 A08a9: LI $85 ; 08a9 20 85 LR $0,A ; 08ab 50 PI $0099 ; 08ac 28 00 99 LR A,$4 ; 08af 44 CI $08 ; 08b0 25 08 BF $4,A08b6 ; 08b2 94 03 BF $0,A08d1 ; 08b4 90 1c A08b6: CI $02 ; 08b6 25 02 BF $4,A08a9 ; 08b8 94 f0 LI $8e ; 08ba 20 8e LR $0,A ; 08bc 50 PI $0099 ; 08bd 28 00 99 LISU 7 ; 08c0 67 LISL 0 ; 08c1 68 DCI A0e90 ; 08c2 2a 0e 90 LR A,$4 ; 08c5 44 SR 1 ; 08c6 12 ADC ; 08c7 8e LM ; 08c8 16 LR (IS),A ; 08c9 5c BF $0,A08a9 ; 08ca 90 de LR A,$b ; 08cc 4b SL 1 ; 08cd 13 SL 1 ; 08ce 13 BF $1,A08d1 ; 08cf 91 01 A08d1: LI $83 ; 08d1 20 83 LISU 7 ; 08d3 67 LISL 2 ; 08d4 6a LR (IS),A ; 08d5 5c A08d6: LR A,(IS) ; 08d6 4c LR $0,A ; 08d7 50 LI $33 ; 08d8 20 33 LR $1,A ; 08da 51 LI $13 ; 08db 20 13 LR $2,A ; 08dd 52 PI $0679 ; 08de 28 06 79 LIS $0 ; 08e1 70 LR $6,A ; 08e2 56 PI $008f ; 08e3 28 00 8f DS (IS) ; 08e6 3c LR A,(IS) ; 08e7 4c SL 1 ; 08e8 13 BF $4,A08d6 ; 08e9 94 ec LI $0d ; 08eb 20 0d LR $0,A ; 08ed 50 LI $33 ; 08ee 20 33 LR $1,A ; 08f0 51 LI $13 ; 08f1 20 13 LR $2,A ; 08f3 52 PI $0679 ; 08f4 28 06 79 A08f7: LR A,$b ; 08f7 4b SL 4 ; 08f8 15 LISU 2 ; 08f9 62 LISL 0 ; 08fa 68 BT 1,A08ff ; 08fb 81 03 LISU 3 ; 08fd 63 LISL 3 ; 08fe 6b A08ff: PI A0c56 ; 08ff 28 0c 56 LR A,(IS) ; 0902 4c CI $7f ; 0903 25 7f BF $4,A090b ; 0905 94 05 LI $68 ; 0907 20 68 BF $0,A091b ; 0909 90 11 A090b: CI $69 ; 090b 25 69 BF $4,A0913 ; 090d 94 05 LI $00 ; 090f 20 00 BF $0,A091b ; 0911 90 09 A0913: DCI A0de0 ; 0913 2a 0d e0 LR A,(IS) ; 0916 4c LR $9,A ; 0917 59 LIS $1 ; 0918 71 BF $0,A0920 ; 0919 90 06 A091b: LR $9,A ; 091b 59 DCI $0e88 ; 091c 2a 0e 88 LIS $0 ; 091f 70 A0920: LR $7,A ; 0920 57 LR A,$b ; 0921 4b SL 4 ; 0922 15 PI A0c9f ; 0923 28 0c 9f LR A,$9 ; 0926 49 LR (IS),A ; 0927 5c LIS $0 ; 0928 70 AS $7 ; 0929 c7 BF $4,A092d ; 092a 94 02 LR $0,A ; 092c 50 A092d: PI A0ca8 ; 092d 28 0c a8 LR A,$b ; 0930 4b XI $08 ; 0931 23 08 LR $b,A ; 0933 5b SL 4 ; 0934 15 BF $1,A08f7 ; 0935 91 c1 LR A,$b ; 0937 4b SL 1 ; 0938 13 BF $1,A0954 ; 0939 91 1a LISU 2 ; 093b 62 LISL 2 ; 093c 6a LR A,(IS) ; 093d 4c COM ; 093e 18 INC ; 093f 1f AI $2e ; 0940 24 2e BT 1,A094d ; 0942 81 0a LISU 3 ; 0944 63 LISL 5 ; 0945 6d LR A,(IS) ; 0946 4c COM ; 0947 18 INC ; 0948 1f AI $2e ; 0949 24 2e BF $1,A0954 ; 094b 91 08 A094d: LR A,$b ; 094d 4b OI $40 ; 094e 22 40 LR $b,A ; 0950 5b PI A0835 ; 0951 28 08 35 A0954: LISU 7 ; 0954 67 LISL 0 ; 0955 68 LR A,(IS) ; 0956 4c NI $0f ; 0957 21 0f LR $5,A ; 0959 55 PI $008f ; 095a 28 00 8f INS 0 ; 095d a0 CI $0b ; 095e 25 0b BF $4,A0965 ; 0960 94 04 JMP A08a9 ; 0962 29 08 a9 A0965: LR A,$b ; 0965 4b XI $80 ; 0966 23 80 LR $b,A ; 0968 5b LISU 7 ; 0969 67 LISL 1 ; 096a 69 LR A,(IS) ; 096b 4c INC ; 096c 1f CI $03 ; 096d 25 03 BT 4,A0974 ; 096f 84 04 LR (IS),A ; 0971 5c BF $0,A09bf ; 0972 90 4c A0974: LIS $0 ; 0974 70 LR (IS),A ; 0975 5c LR A,$b ; 0976 4b SL 1 ; 0977 13 SL 1 ; 0978 13 BT 1,A097e ; 0979 81 04 JMP A0d02 ; 097b 29 0d 02 A097e: LIS $0 ; 097e 70 OUTS 0 ; 097f b0 OUTS 1 ; 0980 b1 OUTS 4 ; 0981 b4 OUTS 5 ; 0982 b5 INS 1 ; 0983 a1 LISU 6 ; 0984 66 LISL 0 ; 0985 68 LR (IS),A ; 0986 5c LISL 3 ; 0987 6b LR A,$b ; 0988 4b SL 1 ; 0989 13 SL 1 ; 098a 13 BF $1,A098f ; 098b 91 03 INS 4 ; 098d a4 LR (IS),A ; 098e 5c A098f: LR A,(IS) ; 098f 4c SL 4 ; 0990 15 BF $1,A099b ; 0991 91 09 LISU 3 ; 0993 63 DS (IS) ; 0994 3c LR A,(IS) ; 0995 4c NI $0f ; 0996 21 0f LR (IS),A ; 0998 5c BF $0,A09a4 ; 0999 90 0a A099b: SL 1 ; 099b 13 BF $1,A09a4 ; 099c 91 07 LISU 3 ; 099e 63 LR A,(IS) ; 099f 4c INC ; 09a0 1f NI $0f ; 09a1 21 0f LR (IS),A ; 09a3 5c A09a4: LISU 6 ; 09a4 66 LISL 0 ; 09a5 68 LR A,(IS) ; 09a6 4c SL 4 ; 09a7 15 BF $1,A09b4 ; 09a8 91 0b LISU 2 ; 09aa 62 DS (IS) ; 09ab 3c LR A,(IS) ; 09ac 4c NI $0f ; 09ad 21 0f OI $10 ; 09af 22 10 LR (IS),A ; 09b1 5c A09b2: BF $0,A09bf ; 09b2 90 0c A09b4: SL 1 ; 09b4 13 BF $1,A09b2 ; 09b5 91 fc LISU 2 ; 09b7 62 LR A,(IS) ; 09b8 4c INC ; 09b9 1f NI $0f ; 09ba 21 0f OI $10 ; 09bc 22 10 LR (IS),A ; 09be 5c A09bf: LR A,$b ; 09bf 4b SL 1 ; 09c0 13 BF $1,A09c6 ; 09c1 91 04 JMP A08f7 ; 09c3 29 08 f7 A09c6: LISU 6 ; 09c6 66 LISL 1 ; 09c7 69 LIS $0 ; 09c8 70 AS (IS)- ; 09c9 ce BF $1,A0a0c ; 09ca 91 41 LIS $0 ; 09cc 70 AS (IS)+ ; 09cd cd BT 1,A09d5 ; 09ce 81 06 LIS $0 ; 09d0 70 LR (IS)+,A ; 09d1 5d A09d2: JMP A0b6b ; 09d2 29 0b 6b A09d5: LR A,(IS) ; 09d5 4c SL 1 ; 09d6 13 BF $1,A09d2 ; 09d7 91 fa LI $80 ; 09d9 20 80 AS (IS) ; 09db cc LR (IS)-,A ; 09dc 5e LISU 2 ; 09dd 62 A09de: PI A0c98 ; 09de 28 0c 98 LR A,$b ; 09e1 4b SL 4 ; 09e2 15 LISL 0 ; 09e3 68 BF $1,A09e7 ; 09e4 91 02 LISL 3 ; 09e6 6b A09e7: LR A,$0 ; 09e7 40 LR (IS)+,A ; 09e8 5d LR A,$1 ; 09e9 41 LR (IS)+,A ; 09ea 5d LR A,$2 ; 09eb 42 LR (IS)+,A ; 09ec 5d LR A,$b ; 09ed 4b SL 4 ; 09ee 15 LISL 0 ; 09ef 68 BF $1,A09f3 ; 09f0 91 02 LISL 3 ; 09f2 6b A09f3: DCI A0e95 ; 09f3 2a 0e 95 LR A,(IS) ; 09f6 4c NI $10 ; 09f7 21 10 LR A,(IS)+ ; 09f9 4d BT 4,A09fd ; 09fa 84 02 COM ; 09fc 18 A09fd: NI $0f ; 09fd 21 0f SR 1 ; 09ff 12 SR 1 ; 0a00 12 ADC ; 0a01 8e LM ; 0a02 16 LR $8,A ; 0a03 58 NI $0f ; 0a04 21 0f AS (IS) ; 0a06 cc LR (IS)+,A ; 0a07 5d LR A,$8 ; 0a08 48 SR 4 ; 0a09 14 AS (IS) ; 0a0a cc LR (IS)+,A ; 0a0b 5d A0a0c: LIS $0 ; 0a0c 70 BF $0,A0a54 ; 0a0d 90 46 A0a0f: LR A,$b ; 0a0f 4b SL 4 ; 0a10 15 LISU 6 ; 0a11 66 LISL 1 ; 0a12 69 BT 1,A0a16 ; 0a13 81 02 LISL 2 ; 0a15 6a A0a16: LIS $0 ; 0a16 70 AS (IS) ; 0a17 cc BT 1,A0a7c ; 0a18 81 63 LIS $a ; 0a1a 7a LR $5,A ; 0a1b 55 A0a1c: LR A,$b ; 0a1c 4b SL 4 ; 0a1d 15 LISU 2 ; 0a1e 62 LISL 3 ; 0a1f 6b BT 1,A0a24 ; 0a20 81 03 LISU 3 ; 0a22 63 LISL 0 ; 0a23 68 A0a24: PI A0a8a ; 0a24 28 0a 8a PI A0c56 ; 0a27 28 0c 56 LR A,(IS)+ ; 0a2a 4d NI $70 ; 0a2b 21 70 CI $70 ; 0a2d 25 70 BT 4,A0a36 ; 0a2f 84 06 LR A,(IS)+ ; 0a31 4d NI $3f ; 0a32 21 3f BF $4,A0a4b ; 0a34 94 16 A0a36: LISU 6 ; 0a36 66 LR A,$b ; 0a37 4b SL 4 ; 0a38 15 LISL 0 ; 0a39 68 LIS $0 ; 0a3a 70 BT 1,A0a41 ; 0a3b 81 05 LISL 3 ; 0a3d 6b AS (IS)- ; 0a3e ce BF $0,A0a42 ; 0a3f 90 02 A0a41: AS (IS)+ ; 0a41 cd A0a42: LIS $0 ; 0a42 70 BF $1,A0a47 ; 0a43 91 03 LI $40 ; 0a45 20 40 A0a47: LR (IS),A ; 0a47 5c LIS $0 ; 0a48 70 BF $0,A0a54 ; 0a49 90 0a A0a4b: LR A,$b ; 0a4b 4b XI $80 ; 0a4c 23 80 LR $b,A ; 0a4e 5b DS $5 ; 0a4f 35 BF $4,A0a1c ; 0a50 94 cb LI $80 ; 0a52 20 80 A0a54: LR K,P ; 0a54 08 LR $0,A ; 0a55 50 LIS $1 ; 0a56 71 LR $5,A ; 0a57 55 LR $6,A ; 0a58 56 LR $3,A ; 0a59 53 LR A,$b ; 0a5a 4b SL 4 ; 0a5b 15 LISU 3 ; 0a5c 63 LISL 1 ; 0a5d 69 BF $1,A0a62 ; 0a5e 91 03 LISU 2 ; 0a60 62 LISL 4 ; 0a61 6c A0a62: LR A,(IS)+ ; 0a62 4d LR $1,A ; 0a63 51 LR A,(IS)- ; 0a64 4e LR $2,A ; 0a65 52 LI $c0 ; 0a66 20 c0 LR $4,A ; 0a68 54 LISU 0 ; 0a69 60 LISL 0 ; 0a6a 68 PI A0cc4 ; 0a6b 28 0c c4 LR A,$b ; 0a6e 4b SL 4 ; 0a6f 15 SR 1 ; 0a70 12 SL 4 ; 0a71 15 BT 1,A0a76 ; 0a72 81 03 LR P,K ; 0a74 09 POP ; 0a75 1c A0a76: LIS $0 ; 0a76 70 AS $0 ; 0a77 c0 BF $1,A0a7c ; 0a78 91 03 BF $0,A0a0f ; 0a7a 90 94 A0a7c: LR A,$b ; 0a7c 4b SL 4 ; 0a7d 15 BF $1,A0a83 ; 0a7e 91 04 JMP A0b6b ; 0a80 29 0b 6b A0a83: LR A,$b ; 0a83 4b NI $f7 ; 0a84 21 f7 LR $b,A ; 0a86 5b JMP A08f7 ; 0a87 29 08 f7 A0a8a: LR K,P ; 0a8a 08 LR A,$5 ; 0a8b 45 LR $8,A ; 0a8c 58 LR A,(IS)+ ; 0a8d 4d LR A,(IS)+ ; 0a8e 4d LR $0,A ; 0a8f 50 LR A,(IS)- ; 0a90 4e LR $1,A ; 0a91 51 LR A,IS ; 0a92 0a XI $08 ; 0a93 23 08 LR IS,A ; 0a95 0b LR A,(IS)+ ; 0a96 4d COM ; 0a97 18 INC ; 0a98 1f AS $0 ; 0a99 c0 BF $1,A0ace ; 0a9a 91 33 LR $9,A ; 0a9c 59 SL 1 ; 0a9d 13 SR 4 ; 0a9e 14 BF $4,A0ace ; 0a9f 94 2e LR A,(IS)- ; 0aa1 4e COM ; 0aa2 18 INC ; 0aa3 1f AS $1 ; 0aa4 c1 BF $1,A0ace ; 0aa5 91 28 LR $a,A ; 0aa7 5a SL 1 ; 0aa8 13 SR 4 ; 0aa9 14 BF $4,A0ace ; 0aaa 94 23 LIS $8 ; 0aac 78 XS $b ; 0aad eb SL 4 ; 0aae 15 PI A0c9f ; 0aaf 28 0c 9f LR A,(IS)- ; 0ab2 4e LR A,(IS) ; 0ab3 4c SL 4 ; 0ab4 15 SR 1 ; 0ab5 12 DCI A0de0 ; 0ab6 2a 0d e0 ADC ; 0ab9 8e LR A,(IS) ; 0aba 4c NI $10 ; 0abb 21 10 LR A,$a ; 0abd 4a BT 4,A0ac2 ; 0abe 84 03 XI $07 ; 0ac0 23 07 A0ac2: ADC ; 0ac2 8e LI $80 ; 0ac3 20 80 A0ac5: DS $9 ; 0ac5 39 BF $1,A0acb ; 0ac6 91 04 SR 1 ; 0ac8 12 BF $0,A0ac5 ; 0ac9 90 fb A0acb: NM ; 0acb 8a BF $4,A0ada ; 0acc 94 0d A0ace: LR A,$b ; 0ace 4b SL 4 ; 0acf 15 LISU 2 ; 0ad0 62 LISL 3 ; 0ad1 6b BT 1,A0ad6 ; 0ad2 81 03 LISU 3 ; 0ad4 63 LISL 0 ; 0ad5 68 A0ad6: LR A,$8 ; 0ad6 48 LR $5,A ; 0ad7 55 LR P,K ; 0ad8 09 POP ; 0ad9 1c A0ada: LR A,$b ; 0ada 4b NI $bf ; 0adb 21 bf LR $b,A ; 0add 5b PI A0835 ; 0ade 28 08 35 LISU 3 ; 0ae1 63 LISL 0 ; 0ae2 68 PI A0c93 ; 0ae3 28 0c 93 LIS $9 ; 0ae6 79 XS $b ; 0ae7 eb LR $b,A ; 0ae8 5b PI A0a54 ; 0ae9 28 0a 54 LISU 2 ; 0aec 62 LISL 3 ; 0aed 6b PI A0c93 ; 0aee 28 0c 93 LIS $8 ; 0af1 78 XS $b ; 0af2 eb LR $b,A ; 0af3 5b PI A0a54 ; 0af4 28 0a 54 LIS $1 ; 0af7 71 XS $b ; 0af8 eb LR $b,A ; 0af9 5b A0afa: LR A,$b ; 0afa 4b SL 4 ; 0afb 15 COM ; 0afc 18 LI $80 ; 0afd 20 80 BT 1,A0b03 ; 0aff 81 03 LI $40 ; 0b01 20 40 A0b03: OUTS 5 ; 0b03 b5 PI A0c9f ; 0b04 28 0c 9f DCI A0de0 ; 0b07 2a 0d e0 PI A0ca8 ; 0b0a 28 0c a8 LR A,$b ; 0b0d 4b SL 4 ; 0b0e 15 LISU 2 ; 0b0f 62 LISL 0 ; 0b10 68 BF $1,A0b15 ; 0b11 91 03 LISU 3 ; 0b13 63 LISL 3 ; 0b14 6b A0b15: LR A,(IS) ; 0b15 4c INC ; 0b16 1f NI $0f ; 0b17 21 0f LR $0,A ; 0b19 50 LI $10 ; 0b1a 20 10 NS (IS) ; 0b1c fc AS $0 ; 0b1d c0 LR (IS),A ; 0b1e 5c LIS $4 ; 0b1f 74 LR $5,A ; 0b20 55 PI $008f ; 0b21 28 00 8f LR A,$b ; 0b24 4b SL 4 ; 0b25 15 COM ; 0b26 18 DCI $0e88 ; 0b27 2a 0e 88 PI A0c9f ; 0b2a 28 0c 9f LIS $0 ; 0b2d 70 LR $0,A ; 0b2e 50 OUTS 5 ; 0b2f b5 PI A0ca8 ; 0b30 28 0c a8 LR A,$b ; 0b33 4b SL 4 ; 0b34 15 LISU 2 ; 0b35 62 LISL 2 ; 0b36 6a BF $1,A0b3b ; 0b37 91 03 LISU 3 ; 0b39 63 LISL 5 ; 0b3a 6d A0b3b: LR A,(IS) ; 0b3b 4c CI $33 ; 0b3c 25 33 BT 4,A0b46 ; 0b3e 84 07 INC ; 0b40 1f NI $3f ; 0b41 21 3f LR (IS),A ; 0b43 5c BF $0,A0afa ; 0b44 90 b5 A0b46: LR A,(IS)- ; 0b46 4e LR A,(IS) ; 0b47 4c CI $33 ; 0b48 25 33 BT 4,A0b55 ; 0b4a 84 0a LIS $1 ; 0b4c 71 BT 1,A0b51 ; 0b4d 81 03 COM ; 0b4f 18 INC ; 0b50 1f A0b51: AS (IS) ; 0b51 cc LR (IS),A ; 0b52 5c BF $0,A0afa ; 0b53 90 a6 A0b55: INS 5 ; 0b55 a5 NI $3f ; 0b56 21 3f OUTS 5 ; 0b58 b5 LISU 6 ; 0b59 66 LISL 1 ; 0b5a 69 LR A,(IS) ; 0b5b 4c SL 1 ; 0b5c 13 SR 1 ; 0b5d 12 LR (IS)+,A ; 0b5e 5d LR A,(IS) ; 0b5f 4c SL 1 ; 0b60 13 SR 1 ; 0b61 12 LR (IS),A ; 0b62 5c LR A,$b ; 0b63 4b SL 4 ; 0b64 15 LISU 2 ; 0b65 62 BT 1,A0b69 ; 0b66 81 02 LISU 3 ; 0b68 63 A0b69: BF $0,A0b91 ; 0b69 90 27 A0b6b: LR A,$b ; 0b6b 4b OI $08 ; 0b6c 22 08 LR $b,A ; 0b6e 5b LISU 6 ; 0b6f 66 LISL 2 ; 0b70 6a LIS $0 ; 0b71 70 AS (IS)+ ; 0b72 cd BT 1,A0b78 ; 0b73 81 04 JMP A0a0c ; 0b75 29 0a 0c A0b78: LIS $0 ; 0b78 70 AS (IS)- ; 0b79 ce BT 1,A0b85 ; 0b7a 81 0a LIS $0 ; 0b7c 70 LR (IS),A ; 0b7d 5c A0b7e: LR A,$b ; 0b7e 4b NI $f7 ; 0b7f 21 f7 LR $b,A ; 0b81 5b JMP A08f7 ; 0b82 29 08 f7 A0b85: LR A,(IS) ; 0b85 4c SL 1 ; 0b86 13 BF $1,A0b7e ; 0b87 91 f6 LI $80 ; 0b89 20 80 AS (IS) ; 0b8b cc LR (IS)+,A ; 0b8c 5d LISU 3 ; 0b8d 63 JMP A09de ; 0b8e 29 09 de A0b91: LR A,IS ; 0b91 0a LR $0,A ; 0b92 50 LR A,$b ; 0b93 4b SL 1 ; 0b94 13 SL 1 ; 0b95 13 BT 1,A0baf ; 0b96 81 18 LR A,IS ; 0b98 0a SL 1 ; 0b99 13 SR 4 ; 0b9a 14 CI $02 ; 0b9b 25 02 LISU 7 ; 0b9d 67 LISL 0 ; 0b9e 68 BF $4,A0ba8 ; 0b9f 94 08 DS (IS) ; 0ba1 3c BF $4,A0baf ; 0ba2 94 0c LIS $1 ; 0ba4 71 LR (IS),A ; 0ba5 5c BF $0,A0baf ; 0ba6 90 08 A0ba8: LR A,(IS) ; 0ba8 4c INC ; 0ba9 1f CI $10 ; 0baa 25 10 BT 4,A0baf ; 0bac 84 02 LR (IS),A ; 0bae 5c A0baf: LR A,$0 ; 0baf 40 LR IS,A ; 0bb0 0b LISL 6 ; 0bb1 6e LI $67 ; 0bb2 20 67 ASD (IS) ; 0bb4 dc LR (IS),A ; 0bb5 5c CI $00 ; 0bb6 25 00 BF $4,A0bbf ; 0bb8 94 06 LR (IS)+,A ; 0bba 5d LI $67 ; 0bbb 20 67 ASD (IS) ; 0bbd dc LR (IS),A ; 0bbe 5c A0bbf: LR A,$b ; 0bbf 4b OI $01 ; 0bc0 22 01 LR $b,A ; 0bc2 5b DCI $0e88 ; 0bc3 2a 0e 88 PI A0c8e ; 0bc6 28 0c 8e LIS $0 ; 0bc9 70 LR $0,A ; 0bca 50 PI A0ca8 ; 0bcb 28 0c a8 DCI $0e88 ; 0bce 2a 0e 88 LIS $8 ; 0bd1 78 SL 4 ; 0bd2 15 PI A0c9f ; 0bd3 28 0c 9f LIS $0 ; 0bd6 70 LR $0,A ; 0bd7 50 PI A0ca8 ; 0bd8 28 0c a8 PI A0861 ; 0bdb 28 08 61 A0bde: LR A,$b ; 0bde 4b NI $20 ; 0bdf 21 20 LR $b,A ; 0be1 5b A0be2: LR A,$b ; 0be2 4b SL 4 ; 0be3 15 LISU 7 ; 0be4 67 BF $1,A0be8 ; 0be5 91 02 LISU 3 ; 0be7 63 A0be8: LISL 7 ; 0be8 6f LI $1b ; 0be9 20 1b LR $1,A ; 0beb 51 LI $33 ; 0bec 20 33 LR $2,A ; 0bee 52 LR A,(IS)- ; 0bef 4e NI $0f ; 0bf0 21 0f AI $80 ; 0bf2 24 80 LR $0,A ; 0bf4 50 PI $0679 ; 0bf5 28 06 79 LR A,(IS) ; 0bf8 4c SR 4 ; 0bf9 14 AI $80 ; 0bfa 24 80 LR $0,A ; 0bfc 50 PI $0679 ; 0bfd 28 06 79 LR A,(IS) ; 0c00 4c NI $0f ; 0c01 21 0f AI $80 ; 0c03 24 80 LR $0,A ; 0c05 50 PI $0679 ; 0c06 28 06 79 LR A,$b ; 0c09 4b SL 4 ; 0c0a 15 LISU 7 ; 0c0b 67 BF $1,A0c0f ; 0c0c 91 02 LISU 2 ; 0c0e 62 A0c0f: LISL 7 ; 0c0f 6f LI $47 ; 0c10 20 47 LR $1,A ; 0c12 51 LI $33 ; 0c13 20 33 LR $2,A ; 0c15 52 LR A,(IS)- ; 0c16 4e NI $0f ; 0c17 21 0f AI $40 ; 0c19 24 40 LR $0,A ; 0c1b 50 PI $0679 ; 0c1c 28 06 79 LR A,(IS) ; 0c1f 4c SR 4 ; 0c20 14 AI $40 ; 0c21 24 40 LR $0,A ; 0c23 50 PI $0679 ; 0c24 28 06 79 LR A,(IS) ; 0c27 4c NI $0f ; 0c28 21 0f AI $40 ; 0c2a 24 40 LR $0,A ; 0c2c 50 PI $0679 ; 0c2d 28 06 79 LR A,$b ; 0c30 4b SL 4 ; 0c31 15 BF $1,A0c4f ; 0c32 91 1c LIS $0 ; 0c34 70 LR $6,A ; 0c35 56 PI $008f ; 0c36 28 00 8f LIS $0 ; 0c39 70 LR $6,A ; 0c3a 56 PI $008f ; 0c3b 28 00 8f LIS $0 ; 0c3e 70 LR $6,A ; 0c3f 56 PI $008f ; 0c40 28 00 8f LISU 7 ; 0c43 67 LISL 7 ; 0c44 6f LI $dd ; 0c45 20 dd LR (IS)-,A ; 0c47 5e LR (IS),A ; 0c48 5c LR A,$b ; 0c49 4b OI $08 ; 0c4a 22 08 LR $b,A ; 0c4c 5b BF $0,A0be2 ; 0c4d 90 94 A0c4f: LR A,$b ; 0c4f 4b NI $20 ; 0c50 21 20 LR $b,A ; 0c52 5b JMP A08d1 ; 0c53 29 08 d1 A0c56: DCI A0e78 ; 0c56 2a 0e 78 LR A,(IS) ; 0c59 4c NI $0f ; 0c5a 21 0f ADC ; 0c5c 8e LR A,(IS)+ ; 0c5d 4d NI $10 ; 0c5e 21 10 SR 1 ; 0c60 12 SL 4 ; 0c61 15 AM ; 0c62 88 LR $0,A ; 0c63 50 LR A,(IS)+ ; 0c64 4d LR J,W ; 0c65 1e LIS $0 ; 0c66 70 AS $b ; 0c67 cb LR A,$0 ; 0c68 40 BT 1,A0c6c ; 0c69 81 02 SR 1 ; 0c6b 12 A0c6c: SR 4 ; 0c6c 14 NI $01 ; 0c6d 21 01 LR W,J ; 0c6f 1d BT 1,A0c74 ; 0c70 81 03 COM ; 0c72 18 INC ; 0c73 1f A0c74: AS (IS) ; 0c74 cc NI $3f ; 0c75 21 3f LR (IS)-,A ; 0c77 5e LR A,$0 ; 0c78 40 SL 4 ; 0c79 15 LR J,W ; 0c7a 1e SR 4 ; 0c7b 14 LIS $0 ; 0c7c 70 AS $b ; 0c7d cb LR A,$0 ; 0c7e 40 BT 1,A0c82 ; 0c7f 81 02 SR 1 ; 0c81 12 A0c82: NI $01 ; 0c82 21 01 LR W,J ; 0c84 1d BT 1,A0c89 ; 0c85 81 03 COM ; 0c87 18 INC ; 0c88 1f A0c89: AS (IS) ; 0c89 cc NI $7f ; 0c8a 21 7f LR (IS),A ; 0c8c 5c POP ; 0c8d 1c A0c8e: LI $40 ; 0c8e 20 40 LR $4,A ; 0c90 54 LISU 2 ; 0c91 62 LISL 0 ; 0c92 68 A0c93: LI $08 ; 0c93 20 08 LR $5,A ; 0c95 55 LR $6,A ; 0c96 56 LR $3,A ; 0c97 53 A0c98: LR A,(IS)+ ; 0c98 4d LR $0,A ; 0c99 50 LR A,(IS)+ ; 0c9a 4d LR $1,A ; 0c9b 51 LR A,(IS)- ; 0c9c 4e LR $2,A ; 0c9d 52 POP ; 0c9e 1c A0c9f: BT 1,A0c8e ; 0c9f 81 ee LI $80 ; 0ca1 20 80 LR $4,A ; 0ca3 54 LISU 3 ; 0ca4 63 LISL 3 ; 0ca5 6b BF $0,A0c93 ; 0ca6 90 ec A0ca8: LISU 4 ; 0ca8 64 LISL 0 ; 0ca9 68 LR A,$0 ; 0caa 40 SL 4 ; 0cab 15 SR 1 ; 0cac 12 ADC ; 0cad 8e LR A,$0 ; 0cae 40 NI $10 ; 0caf 21 10 BF $4,A0cbb ; 0cb1 94 09 A0cb3: LM ; 0cb3 16 LR (IS)+,A ; 0cb4 5d BR7 A0cb3 ; 0cb5 8f fd LM ; 0cb7 16 LR (IS)+,A ; 0cb8 5d BF $0,A0cc4 ; 0cb9 90 0a A0cbb: LISL 7 ; 0cbb 6f A0cbc: LM ; 0cbc 16 LR (IS)-,A ; 0cbd 5e BR7 A0cbc ; 0cbe 8f fd LISL 0 ; 0cc0 68 BF $0,A0cc4 ; 0cc1 90 02 A0cc3: LR $5,A ; 0cc3 55 A0cc4: LR A,$2 ; 0cc4 42 COM ; 0cc5 18 NI $3f ; 0cc6 21 3f LR $8,A ; 0cc8 58 INS 5 ; 0cc9 a5 NI $c0 ; 0cca 21 c0 AS $8 ; 0ccc c8 OUTS 5 ; 0ccd b5 LR A,(IS)+ ; 0cce 4d LR $7,A ; 0ccf 57 A0cd0: LR A,$1 ; 0cd0 41 COM ; 0cd1 18 OUTS 4 ; 0cd2 b4 LR A,$7 ; 0cd3 47 OI $00 ; 0cd4 22 00 LR A,$4 ; 0cd6 44 BF $1,A0cda ; 0cd7 91 02 LIS $0 ; 0cd9 70 A0cda: COM ; 0cda 18 OUTS 1 ; 0cdb b1 LR A,$7 ; 0cdc 47 SL 1 ; 0cdd 13 LR $7,A ; 0cde 57 LI $60 ; 0cdf 20 60 OUTS 0 ; 0ce1 b0 LI $50 ; 0ce2 20 50 OUTS 0 ; 0ce4 b0 LR A,$1 ; 0ce5 41 INC ; 0ce6 1f LR $1,A ; 0ce7 51 LIS $4 ; 0ce8 74 LR $8,A ; 0ce9 58 A0cea: DS $8 ; 0cea 38 BF $4,A0cea ; 0ceb 94 fe DS $5 ; 0ced 35 BF $4,A0cd0 ; 0cee 94 e1 LR A,$2 ; 0cf0 42 INC ; 0cf1 1f LR $2,A ; 0cf2 52 LR A,$3 ; 0cf3 43 NI $0f ; 0cf4 21 0f COM ; 0cf6 18 INC ; 0cf7 1f AS $1 ; 0cf8 c1 LR $1,A ; 0cf9 51 LR A,$3 ; 0cfa 43 DS $6 ; 0cfb 36 BF $4,A0cc3 ; 0cfc 94 c6 LIS $0 ; 0cfe 70 OUTS 1 ; 0cff b1 OUTS 0 ; 0d00 b0 POP ; 0d01 1c A0d02: LR A,$b ; 0d02 4b SL 1 ; 0d03 13 BT 1,A0d73 ; 0d04 81 6e SL 4 ; 0d06 15 BF $1,A0d73 ; 0d07 91 6b LISU 6 ; 0d09 66 LISL 2 ; 0d0a 6a LIS $0 ; 0d0b 70 AS (IS)+ ; 0d0c cd BT 1,A0d15 ; 0d0d 81 07 LI $ff ; 0d0f 20 ff LR (IS),A ; 0d11 5c JMP A0da8 ; 0d12 29 0d a8 A0d15: LR A,$b ; 0d15 4b SL 1 ; 0d16 13 SL 1 ; 0d17 13 SL 4 ; 0d18 15 BT 1,A0d1e ; 0d19 81 04 JMP A0dbe ; 0d1b 29 0d be A0d1e: LISU 3 ; 0d1e 63 LISL 5 ; 0d1f 6d LR A,(IS)- ; 0d20 4e COM ; 0d21 18 INC ; 0d22 1f LR $0,A ; 0d23 50 LR A,(IS)+ ; 0d24 4d COM ; 0d25 18 INC ; 0d26 1f LR $1,A ; 0d27 51 LISU 2 ; 0d28 62 LISL 2 ; 0d29 6a LR A,(IS)- ; 0d2a 4e AS $0 ; 0d2b c0 LR $0,A ; 0d2c 50 LR A,(IS)- ; 0d2d 4e AS $1 ; 0d2e c1 LR $1,A ; 0d2f 51 LIS $0 ; 0d30 70 AS $0 ; 0d31 c0 BF $1,A0d36 ; 0d32 91 03 COM ; 0d34 18 INC ; 0d35 1f A0d36: AI $02 ; 0d36 24 02 BF $1,A0d40 ; 0d38 91 07 LISU 3 ; 0d3a 63 LISL 3 ; 0d3b 6b LIS $7 ; 0d3c 77 NS (IS) ; 0d3d fc BT 4,A0dab ; 0d3e 84 6c A0d40: LIS $0 ; 0d40 70 AS $1 ; 0d41 c1 BF $1,A0d46 ; 0d42 91 03 COM ; 0d44 18 INC ; 0d45 1f A0d46: AI $02 ; 0d46 24 02 BF $1,A0d54 ; 0d48 91 0b LISU 3 ; 0d4a 63 LISL 3 ; 0d4b 6b LIS $4 ; 0d4c 74 XS (IS) ; 0d4d ec LIS $c ; 0d4e 7c BT 4,A0dab ; 0d4f 84 5b XS (IS) ; 0d51 ec BT 4,A0dab ; 0d52 84 58 A0d54: LISL 0 ; 0d54 68 LISU 5 ; 0d55 65 LR A,$0 ; 0d56 40 LR (IS)+,A ; 0d57 5d LR A,$1 ; 0d58 41 LR (IS)-,A ; 0d59 5e LIS $0 ; 0d5a 70 AS (IS)+ ; 0d5b cd LIS $4 ; 0d5c 74 BT 1,A0d84 ; 0d5d 81 26 LR $0,A ; 0d5f 50 LIS $0 ; 0d60 70 AS (IS) ; 0d61 cc LR J,W ; 0d62 1e COM ; 0d63 18 INC ; 0d64 1f LR (IS)-,A ; 0d65 5e LR W,J ; 0d66 1d LIS $2 ; 0d67 72 BF $1,A0d95 ; 0d68 91 2c LR A,(IS) ; 0d6a 4c COM ; 0d6b 18 INC ; 0d6c 1f LR (IS),A ; 0d6d 5c LIS $2 ; 0d6e 72 COM ; 0d6f 18 INC ; 0d70 1f BF $0,A0d95 ; 0d71 90 23 A0d73: LR A,$b ; 0d73 4b OI $04 ; 0d74 22 04 LR $b,A ; 0d76 5b LIS $0 ; 0d77 70 LR $0,A ; 0d78 50 LISU 3 ; 0d79 63 LISL 1 ; 0d7a 69 LR A,(IS) ; 0d7b 4c ASD (IS)+ ; 0d7c dd AS (IS) ; 0d7d cc LISU 1 ; 0d7e 61 AS (IS) ; 0d7f cc NI $0f ; 0d80 21 0f BF $0,A0d95 ; 0d82 90 12 A0d84: LIS $c ; 0d84 7c LR $0,A ; 0d85 50 LIS $0 ; 0d86 70 AS (IS)- ; 0d87 ce LR J,W ; 0d88 1e LR A,(IS) ; 0d89 4c COM ; 0d8a 18 INC ; 0d8b 1f LR W,J ; 0d8c 1d BF $1,A0d90 ; 0d8d 91 02 LR (IS),A ; 0d8f 5c A0d90: LIS $2 ; 0d90 72 BT 1,A0d95 ; 0d91 81 03 COM ; 0d93 18 INC ; 0d94 1f A0d95: AS $0 ; 0d95 c0 LISU 5 ; 0d96 65 LISL 3 ; 0d97 6b LR (IS),A ; 0d98 5c COM ; 0d99 18 INC ; 0d9a 1f LISU 3 ; 0d9b 63 AS (IS) ; 0d9c cc BT 4,A0dab ; 0d9d 84 0d SL 4 ; 0d9f 15 LI $f7 ; 0da0 20 f7 BT 1,A0da6 ; 0da2 81 03 XI $0c ; 0da4 23 0c A0da6: LISU 6 ; 0da6 66 LR (IS),A ; 0da7 5c A0da8: JMP A097e ; 0da8 29 09 7e A0dab: LR A,$b ; 0dab 4b SL 1 ; 0dac 13 SL 4 ; 0dad 15 LR A,$b ; 0dae 4b BF $1,A0db9 ; 0daf 91 09 LISU 6 ; 0db1 66 LISL 3 ; 0db2 6b LI $7f ; 0db3 20 7f LR (IS),A ; 0db5 5c LR A,$b ; 0db6 4b OI $02 ; 0db7 22 02 A0db9: NI $fb ; 0db9 21 fb LR $b,A ; 0dbb 5b BF $0,A0da8 ; 0dbc 90 eb A0dbe: LISU 5 ; 0dbe 65 LISL 0 ; 0dbf 68 LR A,(IS)+ ; 0dc0 4d AS (IS) ; 0dc1 cc LIS $1 ; 0dc2 71 BT 1,A0dc7 ; 0dc3 81 03 COM ; 0dc5 18 INC ; 0dc6 1f A0dc7: LISU 3 ; 0dc7 63 LISL 3 ; 0dc8 6b AS (IS) ; 0dc9 cc NI $0f ; 0dca 21 0f LR (IS),A ; 0dcc 5c LISU 6 ; 0dcd 66 LI $7f ; 0dce 20 7f LR (IS),A ; 0dd0 5c LR A,$b ; 0dd1 4b NI $fd ; 0dd2 21 fd LR $b,A ; 0dd4 5b BF $0,A0da8 ; 0dd5 90 d2 A0dd7: LR A,KU ; 0dd7 00 DS $0 ; 0dd8 30 db $2e LR A,KL ; 0dda 01 DS $3 ; 0ddb 33 db $2e LR A,QU ; 0ddd 02 DS $1 ; 0dde 31 DS $3 ; 0ddf 33 A0de0: LR A,KU ; 0de0 00 LR A,$0 ; 0de1 40 LISU 0 ; 0de2 60 LIS $d ; 0de3 7d LIS $f ; 0de4 7f LIS $d ; 0de5 7d LR A,KU ; 0de6 00 LR A,KU ; 0de7 00 LR A,KU ; 0de8 00 LR A,QU ; 0de9 02 LR DC,Q ; 0dea 0f LR (IS)+,A ; 0deb 5d LIS $8 ; 0dec 78 LIS $0 ; 0ded 70 LR A,KU ; 0dee 00 LR A,KU ; 0def 00 LR KU,A ; 0df0 04 LR A,QU ; 0df1 02 LR P0,Q ; 0df2 0d LR (IS),A ; 0df3 5c LIS $8 ; 0df4 78 LIS $0 ; 0df5 70 LI $00 ; 0df6 20 00 PK ; 0df8 0c LR QU,A ; 0df9 06 PK ; 0dfa 0c POP ; 0dfb 1c LR $8,A ; 0dfc 58 LIS $8 ; 0dfd 78 DS $0 ; 0dfe 30 LR A,KU ; 0dff 00 POP ; 0e00 1c LR K,P ; 0e01 08 POP ; 0e02 1c POP ; 0e03 1c POP ; 0e04 1c DS (IS) ; 0e05 3c LIS $c ; 0e06 7c LR A,KU ; 0e07 00 DS $0 ; 0e08 30 LISU 0 ; 0e09 60 DS $0 ; 0e0a 30 DS $8 ; 0e0b 38 POP ; 0e0c 1c PK ; 0e0d 0c POP ; 0e0e 1c LR A,KU ; 0e0f 00 LI $40 ; 0e10 20 40 OUTS 0 ; 0e12 b0 DS $8 ; 0e13 38 POP ; 0e14 1c LR Q,DC ; 0e15 0e POP ; 0e16 1c LR A,KU ; 0e17 00 LR A,KU ; 0e18 00 LR A,$0 ; 0e19 40 NS $0 ; 0e1a f0 OUTS 12 ; 0e1b bc LR J,W ; 0e1c 1e LR Q,DC ; 0e1d 0e POP ; 0e1e 1c LR A,KU ; 0e1f 00 LR A,KU ; 0e20 00 LR A,KU ; 0e21 00 OUTS 14 ; 0e22 be NS (IS)- ; 0e23 fe OUTS 14 ; 0e24 be LR QU,A ; 0e25 06 LR A,QU ; 0e26 02 LR A,KU ; 0e27 00 LR A,KU ; 0e28 00 LR A,KU ; 0e29 00 LR Q,DC ; 0e2a 0e LR J,W ; 0e2b 1e OUTS 10 ; 0e2c ba NS $0 ; 0e2d f0 LR A,$0 ; 0e2e 40 LR A,KU ; 0e2f 00 LR A,KU ; 0e30 00 LR KU,A ; 0e31 04 LR Q,DC ; 0e32 0e LR J,W ; 0e33 1e DS $a ; 0e34 3a OUTS 0 ; 0e35 b0 LR A,$0 ; 0e36 40 LI $00 ; 0e37 20 00 PK ; 0e39 0c LR J,W ; 0e3a 1e DI ; 0e3b 1a DS $8 ; 0e3c 38 DS $0 ; 0e3d 30 LISU 0 ; 0e3e 60 DS $0 ; 0e3f 30 LR A,KU ; 0e40 00 DS (IS)- ; 0e41 3e DS (IS) ; 0e42 3c DS $8 ; 0e43 38 DS $8 ; 0e44 38 DS $8 ; 0e45 38 LR DC,H ; 0e46 10 DS $8 ; 0e47 38 LR A,KU ; 0e48 00 DS $8 ; 0e49 38 DS $0 ; 0e4a 30 DS $8 ; 0e4b 38 POP ; 0e4c 1c PK ; 0e4d 0c LR QU,A ; 0e4e 06 PK ; 0e4f 0c LR A,KU ; 0e50 00 DS $8 ; 0e51 38 LIS $0 ; 0e52 70 DS $8 ; 0e53 38 POP ; 0e54 1c LR P0,Q ; 0e55 0d LR A,QU ; 0e56 02 LR KU,A ; 0e57 04 LR A,KU ; 0e58 00 DS $0 ; 0e59 30 LISU 0 ; 0e5a 60 LIS $8 ; 0e5b 78 DS (IS)+ ; 0e5c 3d LR DC,Q ; 0e5d 0f LR A,QU ; 0e5e 02 LR A,KU ; 0e5f 00 A0e60: LR Q,DC ; 0e60 0e db $ff db $ff db $3f DCI $2e2a ; 0e64 2a 2e 2a db $2e LIS $0 ; 0e68 70 db $ff db $ff NS (IS) ; 0e6b fc A0e6c: LR $4,A ; 0e6c 54 LIS $4 ; 0e6d 74 LR $4,A ; 0e6e 54 LIS $4 ; 0e6f 74 LR (IS)+,A ; 0e70 5d LR $5,A ; 0e71 55 LR (IS)+,A ; 0e72 5d LR $5,A ; 0e73 55 LR (IS)+,A ; 0e74 5d LR $5,A ; 0e75 55 LR (IS)+,A ; 0e76 5d LR $5,A ; 0e77 55 A0e78: LR A,QL ; 0e78 03 db $a3 db $b3 db $b2 OUTS 0 ; 0e7c b0 OUTS 10 ; 0e7d ba OUTS 11 ; 0e7e bb INS 11 ; 0e7f ab LR IS,A ; 0e80 0b NOP ; 0e81 2b DS $b ; 0e82 3b DS $a ; 0e83 3a DS $0 ; 0e84 30 A0e85: DS $2 ; 0e85 32 DS $3 ; 0e86 33 XI $00 ; 0e87 23 00 LR A,KU ; 0e89 00 LR A,KU ; 0e8a 00 LR A,KU ; 0e8b 00 LR A,KU ; 0e8c 00 LR A,KU ; 0e8d 00 LR A,KU ; 0e8e 00 LR A,KU ; 0e8f 00 A0e90: PK ; 0e90 0c LR P,K ; 0e91 09 LR QU,A ; 0e92 06 NOP ; 0e93 2b LR A,QL ; 0e94 03 A0e95: LR A,$3 ; 0e95 43 DS $3 ; 0e96 33 DS $4 ; 0e97 34 A0e98: LR A,$4 ; 0e98 44 A0e99: DCI A0fd0 ; 0e99 2a 0f d0 Jumps here after button 3 is pressed at prompt, set keypress data pointer A0e9c: LI $8a ; 0e9c 20 8a LR $0,A ; 0e9e 50 $8A in r0 (RED G) LR Q,DC ; 0e9f 0e Load DC0 address in Q,backup address PI $0099 ; 0ea0 28 00 99 Jump to BIOS subroutine prompt + read buttons LR DC,Q ; 0ea3 0f Restore address to DC again LR A,$4 ; 0ea4 44 Fetch collected button press CM ; 0ea5 8d Compare memory and A by doing ((DC0))-A but only set flags, A is untouched. DC0 is increased BF $4,A0ed3 ; 0ea6 94 2c If they're not the same, reboot the cartridge LR H,DC ; 0ea8 11 Store current DC0 address in H this time (r10 and r11) LR A,$a ; 0ea9 4a Load upper part of H in A CI $10 ; 0eaa 25 10 Check if DC0 address rolled over from $0F to $10 BF $4,A0e9c ; 0eac 94 ef If it didn't, repeat the above (press the button same as the data) until you do. LI $10 ; 0eae 20 10 ***** DRAW SECRET MESSAGE ***** LR $1,A ; 0eb0 51 X coordinate $10 in r1 A0eb1: LI $13 ; 0eb1 20 13 A0eb3: LR $2,A ; 0eb3 52 Y coordinate $13 in r2 DCI A0ed6 ; 0eb4 2a 0e d6 Point data counter to graphics LIS $7 ; 0eb7 77 LR $4,A ; 0eb8 54 8 letters, amount in r4 (DONE BY ) A0eb9: LI $80 ; 0eb9 20 80 LR $0,A ; 0ebb 50 $80 in 0 - RED color PI $067c ; 0ebc 28 06 7c Subroutine jump to BIOS drawchar... DS $4 ; 0ebf 34 BF $4,A0eb9 ; 0ec0 94 f8 Loop if there's letters left A0ec2: LI $10 ; 0ec2 20 10 LR $1,A ; 0ec4 51 X coordinate $10 LI $1a ; 0ec5 20 1a A0ec7: LR $2,A ; 0ec7 52 Y coordinate $1A LIS $f ; 0ec8 7f LR $4,A ; 0ec9 54 16 letters to write, loaded in r4 (MICHAEL K GLASS) A0eca: LI $40 ; 0eca 20 40 LR $0,A ; 0ecc 50 Blue color set in r0 PI $067c ; 0ecd 28 06 7c Subroutine jump to BIOS drawchar... DS $4 ; 0ed0 34 Decrease r4 BF $4,A0eca ; 0ed1 94 f8 Repeat if not yet 0 A0ed3: JMP CartridgeEntry ; 0ed3 29 08 02 Reboot cartridge ; Graphics data starts here 5x5 pixels, one row per byte. A0ed6: .byte %11100000 .byte %10010000 .byte %10001000 .byte %10010000 .byte %11100000 ; D .byte %11111000 .byte %10001000 .byte %10001000 .byte %10001000 .byte %11111000 ; O .byte $88 .byte $c8 .byte $a8 .byte $98 .byte $88 ; N .byte $f8 .byte $80 .byte $e0 .byte $80 .byte $f8 ; E .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 ; space .byte $f0 .byte $88 .byte $f0 .byte $88 .byte $f0 ; B .byte $88 .byte $50 .byte $20 .byte $20 .byte $20 ; Y .byte $88 .byte $d8 .byte $a8 .byte $88 .byte $88 ; M .byte $f8 .byte $20 .byte $20 .byte $20 .byte $f8 ; I .byte $f8 .byte $80 .byte $80 .byte $80 .byte $f8 ; C .byte $88 .byte $88 .byte $f8 .byte $88 .byte $88 ; H .byte $f8 .byte $88 .byte $f8 .byte $88 .byte $88 ; A .byte $f8 .byte $80 .byte $e0 .byte $80 .byte $f8 ; E .byte $80 .byte $80 .byte $80 .byte $80 .byte $f8 ; L .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 ; space .byte $90 .byte $a0 .byte $c0 .byte $a0 .byte $90 ; K .byte $00 .byte $00 .byte $00 .byte $00 .byte $00 ; space .byte $f8 .byte $80 .byte $b8 .byte $88 .byte $f8 ; G .byte $80 .byte $80 .byte $80 .byte $80 .byte $f0 ; L .byte $f8 .byte $88 .byte $f8 .byte $88 .byte $88 ; A .byte $f8 .byte $80 .byte $f8 .byte $08 .byte $f8 ; S .byte $f8 .byte $80 .byte $f8 .byte $08 .byte $f8 ; S .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF ; Easter Egg keypresses needed after selecting the backdoor option with button 3 ; $01 means button 1, $02 means button 2, $04 means button 3, $08 means button 4 A0fd0: .byte $04,$08,$04,$02,$08,$02,$01,$02,$08,$01,$04,$04,$02,$04,$01,$08 .byte $04,$02,$01,$08,$02,$04,$01,$08,$04,$02,$02,$01,$04,$02,$04,$08 .byte $02,$04,$04,$08,$01,$01,$01,$02,$02,$04,$04,$02,$08,$08,$08,$04 ; Decodes to sequence: 343 242 124 133 231 432 142 314 322 132 342 334 111 223 324 443 (after first pressing button 3)