0001 1010 TIC1 equ $1010 0002 1023 TFLG1 equ $1023 0003 1021 TCTL2 equ $1021 0004 0005 2050 org $2050 0006 2050 front rmb 2 0007 2052 period rmb 2 0008 2054 10 ED1ba fcb $10 0009 0010 2100 org $2100 0011 0012 2100 f6 20 54 [ 4 ] ldab ED1ba 0013 2103 f7 10 21 [ 4 ] stab TCTL2 0014 0015 2106 b6 10 23 [ 4 ] ldaa TFLG1 0016 2109 84 04 [ 2 ] anda #$04 0017 210b b7 10 23 [ 4 ] staa TFLG1 0018 0019 210e b6 10 23 [ 4 ] lire1 ldaa TFLG1 0020 2111 84 04 [ 2 ] anda #$04 0021 2113 27 f9 [ 3 ] beq lire1 0022 0023 2115 fc 10 10 [ 5 ] suite1 ldd TIC1 0024 2118 fd 20 50 [ 5 ] std front 0025 0026 211b b6 10 23 [ 4 ] ldaa TFLG1 0027 211e 84 04 [ 2 ] anda #$04 0028 2120 b7 10 23 [ 4 ] staa TFLG1 0029 0030 2123 b6 10 23 [ 4 ] lire2 ldaa TFLG1 0031 2126 84 04 [ 2 ] anda #$04 0032 2128 27 f9 [ 3 ] beq lire2 0033 0034 212a fc 10 10 [ 5 ] suite2 ldd TIC1 0035 212d b3 20 50 [ 6 ] subd front 0036 0037 2130 fd 20 52 [ 5 ] std period 0038 0039 2133 39 [ 5 ] rtsperiod