Loading ROM info from '331/map.json'... Loading '331/U36.rom' (0x000000-0x003FFE)... 331/U36.rom Soft Checksum: got 0xAFBF expected 0xAFBF 331/U36.rom Hard Checksum: got 0x52EA expected 0x52EA Loading '331/U44.rom' (0x000001-0x003FFF)... 331/U44.rom Soft Checksum: got 0x3058 expected 0x3058 331/U44.rom Hard Checksum: got 0xD16B expected 0xD16B Loading '331/U37.rom' (0x090000-0x09FFFE)... 331/U37.rom Soft Checksum: got 0xDDE2 expected 0xDDE2 331/U37.rom Hard Checksum: got 0x2500 expected 0x2500 Loading '331/U45.rom' (0x090001-0x09FFFF)... 331/U45.rom Soft Checksum: got 0x73D7 expected 0x73D7 331/U45.rom Hard Checksum: got 0x8E92 expected 0x8E92 Loading '331/U38.rom' (0x0A0000-0x0AFFFE)... 331/U38.rom Soft Checksum: got 0x1F36 expected 0x1F36 331/U38.rom Hard Checksum: got 0xE240 expected 0xE240 Loading '331/U46.rom' (0x0A0001-0x0AFFFF)... 331/U46.rom Soft Checksum: got 0xFBF4 expected 0xFBF4 331/U46.rom Hard Checksum: got 0x0717 expected 0x0717 Adding label CLEARSCREEN = 0x0034AA Adding label SLEEP1SECOND = 0x095BD8 Adding label SETSEGMENTS = 0x0034C8 ; ---------------- Begin 2144 Function $000E66 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000FF4:$000FFA ; addr bytes opcode operands comment 000E6D 31 02 SUBSP.B $02 000E6F 42 PUSH.6 $02 000E70 90 21 WRITE.B $21 000E72 40 PUSH.6 $00 000E73 D0 29 8B WRITE.B $298B 000E76 04 FF PUSH.10 $0FF 000E78 D0 4E 72 WRITE.B $4E72 000E7B 40 PUSH.6 $00 000E7C D0 56 C4 WRITE.B $56C4 000E7F 40 PUSH.6 $00 000E80 D0 35 C4 WRITE.B $35C4 000E83 30 00 3E BSR.68K $003E ; => $000E48 => $093246 000E86 C0 29 9D READ.B $299D 000E89 18 0A BRZ $00A ; => $000E95 000E8B 30 00 70 BSR.68K $0070 ; => $000E1E => $09E5E8 000E8E 04 FF PUSH.10 $0FF 000E90 D0 67 EC WRITE.B $67EC 000E93 10 04 BR $004 ; => $000E99 000E95 40 PUSH.6 $00 000E96 D0 29 8C WRITE.B $298C 000E99 C0 29 8C READ.B $298C 000E9C D0 29 93 WRITE.B $2993 000E9F C0 29 93 READ.B $2993 000EA2 2E NOT.L 000EA3 18 05 BRZ $005 ; => $000EAA 000EA5 04 FF PUSH.10 $0FF 000EA7 D0 56 6C WRITE.B $566C 000EAA 30 00 89 BSR.68K $0089 ; => $000E24 => $000BE8 (NATIVE) 000EAD D0 29 8E WRITE.B $298E 000EB0 C0 35 92 READ.B $3592 000EB3 40 PUSH.6 $00 000EB4 2A EQ.L 000EB5 18 1D BRZ $01D ; => $000ED4 000EB7 C1 29 95 READ.W $2995 000EBA 3C 80 00 PUSH.W $8000 000EBD 2C AND.L 000EBE 3C 80 00 PUSH.W $8000 000EC1 2A EQ.L 000EC2 18 03 BRZ $003 ; => $000EC7 000EC4 46 PUSH.6 $06 000EC5 10 01 BR $001 ; => $000EC8 000EC7 47 PUSH.6 $07 000EC8 D0 59 96 WRITE.B $5996 000ECB 44 PUSH.6 $04 000ECC D0 59 97 WRITE.B $5997 000ECF 04 40 PUSH.10 $040 000ED1 D1 59 E9 WRITE.W $59E9 000ED4 C1 29 85 READ.W $2985 000ED7 30 00 AA BSR.68K $00AA ; => $000E30 => $000142 (NATIVE) 000EDA 2B NEQ.L 000EDB 18 04 BRZ $004 ; => $000EE1 000EDD 40 PUSH.6 $00 000EDE D0 4E 69 WRITE.B $4E69 000EE1 30 00 B4 BSR.68K $00B4 ; => $000E30 => $000142 (NATIVE) 000EE4 D1 29 85 WRITE.W $2985 000EE7 3C A3 A2 PUSH.W $A3A2 000EEA D2 29 89 WRITE.L $2989 000EED 40 PUSH.6 $00 000EEE D0 67 F2 WRITE.B $67F2 000EF1 30 00 9A BSR.68K $009A ; => $000E5A => $0960AA 000EF4 C0 29 8A READ.B $298A 000EF7 2E NOT.L 000EF8 18 03 BRZ $003 ; => $000EFD 000EFA 30 00 E5 BSR.68K $00E5 ; => $000E18 => $0A0A50 000EFD C0 29 93 READ.B $2993 000F00 C0 29 8B READ.B $298B 000F03 04 80 PUSH.10 $080 000F05 2C AND.L 000F06 2D OR.L 000F07 18 03 BRZ $003 ; => $000F0C 000F09 30 00 FA BSR.68K $00FA ; => $000E12 => $0A08AC 000F0C 30 00 CD BSR.68K $00CD ; => $000E42 => $0AEDF0 000F0F 3E PUSH.W $0000 000F10 D3 29 EF WRITE.F $29EF 000F13 40 PUSH.6 $00 000F14 D0 29 F2 WRITE.B $29F2 000F17 42 PUSH.6 $02 000F18 D0 29 10 WRITE.B $2910 000F1B 42 PUSH.6 $02 000F1C D0 54 2C WRITE.B $542C 000F1F 04 FF PUSH.10 $0FF 000F21 D0 56 60 WRITE.B $5660 000F24 04 FF PUSH.10 $0FF 000F26 D0 50 9F WRITE.B $509F 000F29 30 00 DE BSR.68K $00DE ; => $000E4E => $0A0648 000F2C 30 00 DB BSR.68K $00DB ; => $000E54 => $0948A2 000F2F 40 PUSH.6 $00 000F30 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 000F33 43 PUSH.6 $03 000F34 38 00 0E BLS.B $000E ; => $000F45 000F37 84 00 READ.B $00 000F39 84 00 READ.B $00 000F3B 41 PUSH.6 $01 000F3C 27 ADD.L 000F3D F0 4B 23 WRITE.B $4B23 000F40 37 10 00 00 12 _23d2 $0000, $0012 000F45 41 PUSH.6 $01 000F46 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 000F49 60 PUSH.6 $20 000F4A 38 00 11 BLS.B $0011 ; => $000F5E 000F4D 84 00 READ.B $00 000F4F 3E PUSH.W $0000 000F50 F3 23 FF WRITE.F $23FF 000F53 84 00 READ.B $00 000F55 3E PUSH.W $0000 000F56 F3 25 07 WRITE.F $2507 000F59 37 10 00 00 15 _23d2 $0000, $0015 000F5E C1 29 E7 READ.W $29E7 000F61 04 4B PUSH.10 $04B 000F63 03 26 GT.L 000F65 18 02 BRZ $002 ; => $000F69 000F67 17 F5 BR $-0B ; => $000F5E 000F69 30 01 0C BSR.68K $010C ; => $000E60 => $09B35C 000F6C C0 35 4D READ.B $354D 000F6F 40 PUSH.6 $00 000F70 2B NEQ.L 000F71 18 2B BRZ $02B ; => $000F9E 000F73 4C PUSH.6 $0C 000F74 90 21 WRITE.B $21 000F76 40 PUSH.6 $00 000F77 3F 20 53 55 52 56 45 59 20 DISP "SURVEY RESTARTEDAFTER POWER FAIL" 52 45 53 54 41 52 54 45 44 41 46 54 45 52 20 50 4F 57 45 52 20 46 41 49 4C 000F99 30 01 72 BSR.68K $0172 ; => $000E2A => $0034C8 (SETSEGMENTS) (NATIVE) 000F9C 10 18 BR $018 ; => $000FB6 000F9E C0 29 93 READ.B $2993 000FA1 18 10 BRZ $010 ; => $000FB3 000FA3 04 53 PUSH.10 $053 000FA5 90 21 WRITE.B $21 000FA7 40 PUSH.6 $00 000FA8 90 23 WRITE.B $23 000FAA 40 PUSH.6 $00 000FAB D0 32 D4 WRITE.B $32D4 000FAE 30 01 75 BSR.68K $0175 ; => $000E3C => $09B944 000FB1 10 03 BR $003 ; => $000FB6 000FB3 40 PUSH.6 $00 000FB4 90 21 WRITE.B $21 000FB6 04 FF PUSH.10 $0FF 000FB8 D0 4E 63 WRITE.B $4E63 000FBB 32 02 ADDSP.B $02 000FBD 34 RETURN ; ---------------- End Function $000E66 ---------------- ; ---------------- Begin 2102 Function $000FF4 ---------------- ; A0 = $004000; (A0) = $5332; A6 = $005332 ; addr bytes opcode operands comment 000FFA 30 01 97 BSR.68K $0197 ; => $000E66 000FFD C0 35 4C READ.B $354C 001000 D0 51 00 WRITE.B $5100 001003 C0 55 A2 READ.B $55A2 001006 18 06 BRZ $006 ; => $00100E 001008 30 00 1D BSR.68K $001D ; => $000FEE => $094DD8 00100B 30 00 38 BSR.68K $0038 ; => $000FD6 => $091FC6 00100E C0 55 A2 READ.B $55A2 001011 2E NOT.L 001012 18 05 BRZ $005 ; => $001019 001014 30 00 3B BSR.68K $003B ; => $000FDC => $09DD4E 001017 10 31 BR $031 ; => $00104A 001019 30 00 3A BSR.68K $003A ; => $000FE2 => $0AEE7A 00101C 2E NOT.L 00101D 18 05 BRZ $005 ; => $001024 00101F 30 00 3A BSR.68K $003A ; => $000FE8 => $0AF21A 001022 10 26 BR $026 ; => $00104A 001024 43 PUSH.6 $03 001025 D0 29 E0 WRITE.B $29E0 001028 30 00 61 BSR.68K $0061 ; => $000FCA => $09D7A0 00102B C0 35 4C READ.B $354C 00102E D0 51 00 WRITE.B $5100 001031 30 00 70 BSR.68K $0070 ; => $000FC4 => $0A4E0C 001034 C0 50 BA READ.B $50BA 001037 18 03 BRZ $003 ; => $00103C 001039 30 00 7E BSR.68K $007E ; => $000FBE => $0A7E94 00103C C0 55 70 READ.B $5570 00103F C1 56 27 READ.W $5627 001042 40 PUSH.6 $00 001043 2B NEQ.L 001044 2D OR.L 001045 18 03 BRZ $003 ; => $00104A 001047 30 00 7A BSR.68K $007A ; => $000FD0 => $0A96E2 00104A 40 PUSH.6 $00 00104B 1F B0 BRZ $-50 ; => $000FFD 00104D FF 4E F9 WRITE.F $4EF9 Disassembly failed at $001050 ; ---------------- Disassemly Terminated: bad instruction ---------------- ; ---------------- Begin 2144 Function $0010A2 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $001416:$001439 ; called from $00156E:$0015C8 ; addr bytes opcode operands comment 0010A9 31 20 SUBSP.B $20 0010AB 86 03 READ.L $03 0010AD 40 PUSH.6 $00 0010AE F0 35 7B WRITE.B $357B 0010B1 86 03 READ.L $03 0010B3 04 8F PUSH.10 $08F 0010B5 86 07 READ.L $07 0010B7 27 ADD.L 0010B8 48 PUSH.6 $08 0010B9 30 00 26 BSR.68K $0026 ; => $001096 => $001A82 (NATIVE) 0010BC F0 02 29 WRITE.B $0229 0010BF 86 03 READ.L $03 0010C1 30 00 40 BSR.68K $0040 ; => $001084 => $094E22 0010C4 03 29 FLOAT2LONG 0010C6 F2 21 87 WRITE.L $2187 0010C9 86 03 READ.L $03 0010CB 42 PUSH.6 $02 0010CC F0 21 A9 WRITE.B $21A9 0010CF 04 AD PUSH.10 $0AD 0010D1 86 07 READ.L $07 0010D3 27 ADD.L 0010D4 58 PUSH.6 $18 0010D5 40 PUSH.6 $00 0010D6 40 PUSH.6 $00 0010D7 40 PUSH.6 $00 0010D8 41 PUSH.6 $01 0010D9 4B PUSH.6 $0B 0010DA 30 00 41 BSR.68K $0041 ; => $00109C => $0019F4 (NATIVE) 0010DD 97 0F WRITE.F $0F 0010DF 86 03 READ.L $03 0010E1 C3 60 3B READ.F $603B 0010E4 03 29 FLOAT2LONG 0010E6 F2 19 1F WRITE.L $191F 0010E9 86 03 READ.L $03 0010EB 87 0F READ.F $0F 0010ED F3 1D C3 WRITE.F $1DC3 0010F0 86 03 READ.L $03 0010F2 04 53 PUSH.10 $053 0010F4 86 07 READ.L $07 0010F6 27 ADD.L 0010F7 50 PUSH.6 $10 0010F8 40 PUSH.6 $00 0010F9 40 PUSH.6 $00 0010FA 40 PUSH.6 $00 0010FB 41 PUSH.6 $01 0010FC 55 PUSH.6 $15 0010FD 30 00 64 BSR.68K $0064 ; => $00109C => $0019F4 (NATIVE) 001100 F3 1A 27 WRITE.F $1A27 001103 04 61 PUSH.10 $061 001105 86 07 READ.L $07 001107 27 ADD.L 001108 48 PUSH.6 $08 001109 40 PUSH.6 $00 00110A 40 PUSH.6 $00 00110B 40 PUSH.6 $00 00110C 40 PUSH.6 $00 00110D 4C PUSH.6 $0C 00110E 30 00 75 BSR.68K $0075 ; => $00109C => $0019F4 (NATIVE) 001111 97 17 WRITE.F $17 001113 86 03 READ.L $03 001115 87 17 READ.F $17 001117 03 29 FLOAT2LONG 001119 F2 1A AB WRITE.L $1AAB 00111C 86 03 READ.L $03 00111E E2 19 1F READ.L $191F 001121 3D 00 09 3A 80 PUSH.L $00093A80 001126 2F MOD.L 001127 03 2A LONG2FLOAT 001129 97 1F WRITE.F $1F 00112B 87 1F READ.F $1F 00112D 87 17 READ.F $17 00112F 21 SUB.F 001130 97 27 WRITE.F $27 001132 86 03 READ.L $03 001134 C1 29 FD READ.W $29FD 001137 F1 18 9B WRITE.W $189B 00113A 87 27 READ.F $27 00113C 3B 41 12 75 00 00 00 00 00 PUSH.F $4112750000000000 ; float = 302400.000000 001145 24 GT.F 001146 18 0C BRZ $00C ; => $001154 001148 86 03 READ.L $03 00114A C1 29 FD READ.W $29FD 00114D 41 PUSH.6 $01 00114E 27 ADD.L 00114F F1 18 9B WRITE.W $189B 001152 10 1B BR $01B ; => $00116F 001154 87 27 READ.F $27 001156 3B 41 12 75 00 00 00 00 00 PUSH.F $4112750000000000 ; float = 302400.000000 00115F 03 20 NEG.W 001161 03 21 LT.F 001163 18 0A BRZ $00A ; => $00116F 001165 86 03 READ.L $03 001167 C1 29 FD READ.W $29FD 00116A 41 PUSH.6 $01 00116B 28 SUB.L 00116C F1 18 9B WRITE.W $189B 00116F 86 03 READ.L $03 001171 04 71 PUSH.10 $071 001173 86 07 READ.L $07 001175 27 ADD.L 001176 50 PUSH.6 $10 001177 40 PUSH.6 $00 001178 40 PUSH.6 $00 001179 41 PUSH.6 $01 00117A 41 PUSH.6 $01 00117B 53 PUSH.6 $13 00117C 30 00 E3 BSR.68K $00E3 ; => $00109C => $0019F4 (NATIVE) 00117F 3B 3F D3 33 33 33 33 33 33 PUSH.F $3FD3333333333333 ; float = 0.300000 001188 20 ADD.F 001189 F3 1B B3 WRITE.F $1BB3 00118C 86 03 READ.L $03 00118E 04 87 PUSH.10 $087 001190 86 07 READ.L $07 001192 27 ADD.L 001193 50 PUSH.6 $10 001194 40 PUSH.6 $00 001195 40 PUSH.6 $00 001196 41 PUSH.6 $01 001197 41 PUSH.6 $01 001198 66 PUSH.6 $26 001199 30 01 00 BSR.68K $0100 ; => $00109C => $0019F4 (NATIVE) 00119C F3 1C BB WRITE.F $1CBB 00119F 86 03 READ.L $03 0011A1 04 CB PUSH.10 $0CB 0011A3 86 07 READ.L $07 0011A5 27 ADD.L 0011A6 58 PUSH.6 $18 0011A7 40 PUSH.6 $00 0011A8 40 PUSH.6 $00 0011A9 41 PUSH.6 $01 0011AA 41 PUSH.6 $01 0011AB 57 PUSH.6 $17 0011AC 30 01 13 BSR.68K $0113 ; => $00109C => $0019F4 (NATIVE) 0011AF F3 1E CB WRITE.F $1ECB 0011B2 86 03 READ.L $03 0011B4 04 E9 PUSH.10 $0E9 0011B6 86 07 READ.L $07 0011B8 27 ADD.L 0011B9 58 PUSH.6 $18 0011BA 40 PUSH.6 $00 0011BB 40 PUSH.6 $00 0011BC 41 PUSH.6 $01 0011BD 41 PUSH.6 $01 0011BE 57 PUSH.6 $17 0011BF 30 01 26 BSR.68K $0126 ; => $00109C => $0019F4 (NATIVE) 0011C2 F3 1F D3 WRITE.F $1FD3 0011C5 86 03 READ.L $03 0011C7 05 07 PUSH.10 $107 0011C9 86 07 READ.L $07 0011CB 27 ADD.L 0011CC 58 PUSH.6 $18 0011CD 40 PUSH.6 $00 0011CE 40 PUSH.6 $00 0011CF 41 PUSH.6 $01 0011D0 41 PUSH.6 $01 0011D1 57 PUSH.6 $17 0011D2 30 01 39 BSR.68K $0139 ; => $00109C => $0019F4 (NATIVE) 0011D5 F3 20 DB WRITE.F $20DB 0011D8 86 03 READ.L $03 0011DA 86 03 READ.L $03 0011DC 30 01 6D BSR.68K $016D ; => $001072 => $09FE70 0011DF F0 20 FD WRITE.B $20FD 0011E2 32 28 ADDSP.B $28 0011E4 34 RETURN ; ---------------- End Function $0010A2 ---------------- ; ---------------- Begin 2144 Function $0011E6 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $001416:$001445 ; addr bytes opcode operands comment 0011ED 31 02 SUBSP.B $02 0011EF 40 PUSH.6 $00 0011F0 D0 28 B0 WRITE.B $28B0 0011F3 30 01 72 BSR.68K $0172 ; => $001084 => $094E22 0011F6 03 29 FLOAT2LONG 0011F8 D2 28 8F WRITE.L $288F 0011FB 07 CF PUSH.10 $3CF 0011FD 48 PUSH.6 $08 0011FE 40 PUSH.6 $00 0011FF 40 PUSH.6 $00 001200 41 PUSH.6 $01 001201 41 PUSH.6 $01 001202 5E PUSH.6 $1E 001203 30 01 6A BSR.68K $016A ; => $00109C => $0019F4 (NATIVE) 001206 D3 28 27 WRITE.F $2827 001209 07 D7 PUSH.10 $3D7 00120B 48 PUSH.6 $08 00120C 40 PUSH.6 $00 00120D 40 PUSH.6 $00 00120E 41 PUSH.6 $01 00120F 41 PUSH.6 $01 001210 5B PUSH.6 $1B 001211 30 01 78 BSR.68K $0178 ; => $00109C => $0019F4 (NATIVE) 001214 D3 28 2F WRITE.F $282F 001217 07 E5 PUSH.10 $3E5 001219 48 PUSH.6 $08 00121A 40 PUSH.6 $00 00121B 40 PUSH.6 $00 00121C 41 PUSH.6 $01 00121D 41 PUSH.6 $01 00121E 58 PUSH.6 $18 00121F 30 01 86 BSR.68K $0186 ; => $00109C => $0019F4 (NATIVE) 001222 D3 28 37 WRITE.F $2837 001225 07 ED PUSH.10 $3ED 001227 48 PUSH.6 $08 001228 40 PUSH.6 $00 001229 40 PUSH.6 $00 00122A 41 PUSH.6 $01 00122B 41 PUSH.6 $01 00122C 58 PUSH.6 $18 00122D 30 01 94 BSR.68K $0194 ; => $00109C => $0019F4 (NATIVE) 001230 D3 28 3F WRITE.F $283F 001233 07 F5 PUSH.10 $3F5 001235 48 PUSH.6 $08 001236 40 PUSH.6 $00 001237 40 PUSH.6 $00 001238 41 PUSH.6 $01 001239 40 PUSH.6 $00 00123A 4B PUSH.6 $0B 00123B 30 01 A2 BSR.68K $01A2 ; => $00109C => $0019F4 (NATIVE) 00123E D3 28 47 WRITE.F $2847 001241 3C 04 03 PUSH.W $0403 001244 48 PUSH.6 $08 001245 40 PUSH.6 $00 001246 40 PUSH.6 $00 001247 41 PUSH.6 $01 001248 40 PUSH.6 $00 001249 4E PUSH.6 $0E 00124A 30 01 B1 BSR.68K $01B1 ; => $00109C => $0019F4 (NATIVE) 00124D D3 28 4F WRITE.F $284F 001250 3C 04 0B PUSH.W $040B 001253 48 PUSH.6 $08 001254 40 PUSH.6 $00 001255 40 PUSH.6 $00 001256 41 PUSH.6 $01 001257 40 PUSH.6 $00 001258 50 PUSH.6 $10 001259 30 01 C0 BSR.68K $01C0 ; => $00109C => $0019F4 (NATIVE) 00125C D3 28 57 WRITE.F $2857 00125F 3C 04 13 PUSH.W $0413 001262 48 PUSH.6 $08 001263 40 PUSH.6 $00 001264 40 PUSH.6 $00 001265 41 PUSH.6 $01 001266 40 PUSH.6 $00 001267 50 PUSH.6 $10 001268 30 01 CF BSR.68K $01CF ; => $00109C => $0019F4 (NATIVE) 00126B D3 28 5F WRITE.F $285F 00126E 3C 04 31 PUSH.W $0431 001271 58 PUSH.6 $18 001272 40 PUSH.6 $00 001273 40 PUSH.6 $00 001274 41 PUSH.6 $01 001275 41 PUSH.6 $01 001276 72 PUSH.6 $32 001277 30 01 DE BSR.68K $01DE ; => $00109C => $0019F4 (NATIVE) 00127A D3 28 6F WRITE.F $286F 00127D 3C 04 5D PUSH.W $045D 001280 48 PUSH.6 $08 001281 3C 04 4F PUSH.W $044F 001284 58 PUSH.6 $18 001285 41 PUSH.6 $01 001286 41 PUSH.6 $01 001287 5E PUSH.6 $1E 001288 30 01 EF BSR.68K $01EF ; => $00109C => $0019F4 (NATIVE) 00128B D3 28 67 WRITE.F $2867 00128E 3C 04 65 PUSH.W $0465 001291 48 PUSH.6 $08 001292 40 PUSH.6 $00 001293 40 PUSH.6 $00 001294 40 PUSH.6 $00 001295 40 PUSH.6 $00 001296 4C PUSH.6 $0C 001297 30 01 FE BSR.68K $01FE ; => $00109C => $0019F4 (NATIVE) 00129A D3 28 87 WRITE.F $2887 00129D 3C 04 6D PUSH.W $046D 0012A0 48 PUSH.6 $08 0012A1 30 02 0E BSR.68K $020E ; => $001096 => $001A82 (NATIVE) 0012A4 D0 28 88 WRITE.B $2888 0012A7 3C 04 7B PUSH.W $047B 0012AA 48 PUSH.6 $08 0012AB 40 PUSH.6 $00 0012AC 40 PUSH.6 $00 0012AD 41 PUSH.6 $01 0012AE 40 PUSH.6 $00 0012AF 40 PUSH.6 $00 0012B0 30 02 17 BSR.68K $0217 ; => $00109C => $0019F4 (NATIVE) 0012B3 D3 28 77 WRITE.F $2877 0012B6 3C 04 83 PUSH.W $0483 0012B9 48 PUSH.6 $08 0012BA 30 02 27 BSR.68K $0227 ; => $001096 => $001A82 (NATIVE) 0012BD D0 28 89 WRITE.B $2889 0012C0 3C 04 8B PUSH.W $048B 0012C3 43 PUSH.6 $03 0012C4 30 02 31 BSR.68K $0231 ; => $001096 => $001A82 (NATIVE) 0012C7 D0 28 8A WRITE.B $288A 0012CA 3C 04 99 PUSH.W $0499 0012CD 48 PUSH.6 $08 0012CE 40 PUSH.6 $00 0012CF 40 PUSH.6 $00 0012D0 41 PUSH.6 $01 0012D1 40 PUSH.6 $00 0012D2 40 PUSH.6 $00 0012D3 30 02 3A BSR.68K $023A ; => $00109C => $0019F4 (NATIVE) 0012D6 D3 28 7F WRITE.F $287F 0012D9 30 02 64 BSR.68K $0264 ; => $001078 => $09FDFE 0012DC 98 00 WRITE.B $00 0012DE 88 00 READ.B $00 0012E0 C0 28 90 READ.B $2890 0012E3 2B NEQ.L 0012E4 18 23 BRZ $023 ; => $001309 0012E6 88 00 READ.B $00 0012E8 D0 28 90 WRITE.B $2890 0012EB C0 29 5B READ.B $295B 0012EE 50 PUSH.6 $10 0012EF 2C AND.L 0012F0 18 08 BRZ $008 ; => $0012FA 0012F2 C0 29 5B READ.B $295B 0012F5 48 PUSH.6 $08 0012F6 2D OR.L 0012F7 D0 29 5B WRITE.B $295B 0012FA C0 29 64 READ.B $2964 0012FD 50 PUSH.6 $10 0012FE 2C AND.L 0012FF 18 08 BRZ $008 ; => $001309 001301 C0 29 64 READ.B $2964 001304 48 PUSH.6 $08 001305 2D OR.L 001306 D0 29 64 WRITE.B $2964 001309 32 02 ADDSP.B $02 00130B 34 RETURN ; ---------------- End Function $0011E6 ---------------- ; ---------------- Begin 2144 Function $00130C ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $001416:$001459 ; addr bytes opcode operands comment 001313 31 04 SUBSP.B $04 001315 40 PUSH.6 $00 001316 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 001319 47 PUSH.6 $07 00131A 38 00 3F BLS.B $003F ; => $00135C 00131D 41 PUSH.6 $01 00131E 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 001321 43 PUSH.6 $03 001322 38 00 32 BLS.B $0032 ; => $001357 001325 43 PUSH.6 $03 001326 88 00 READ.B $00 001328 29 MUL.L 001329 88 01 READ.B $01 00132B 27 ADD.L 00132C 98 02 WRITE.B $02 00132E 88 02 READ.B $02 001330 41 PUSH.6 $01 001331 03 25 LT.L 001333 88 02 READ.B $02 001335 58 PUSH.6 $18 001336 03 26 GT.L 001338 2C AND.L 001339 18 17 BRZ $017 ; => $001352 00133B 88 02 READ.B $02 00133D 42 PUSH.6 $02 00133E 28 SUB.L 00133F 07 BF PUSH.10 $3BF 001341 5E PUSH.6 $1E 001342 88 00 READ.B $00 001344 29 MUL.L 001345 27 ADD.L 001346 48 PUSH.6 $08 001347 88 01 READ.B $01 001349 29 MUL.L 00134A 27 ADD.L 00134B 47 PUSH.6 $07 00134C 30 02 B9 BSR.68K $02B9 ; => $001096 => $001A82 (NATIVE) 00134F F0 28 A7 WRITE.B $28A7 001352 37 20 01 00 36 _23d2 $0001, $0036 001357 37 20 00 00 43 _23d2 $0000, $0043 00135C 32 04 ADDSP.B $04 00135E 34 RETURN ; ---------------- End Function $00130C ---------------- ; ---------------- Begin 2144 Function $001360 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $001416:$00144D ; addr bytes opcode operands comment 001367 31 08 SUBSP.B $08 001369 40 PUSH.6 $00 00136A 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 00136D 43 PUSH.6 $03 00136E 38 00 3D BLS.B $003D ; => $0013AE 001371 41 PUSH.6 $01 001372 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 001375 46 PUSH.6 $06 001376 38 00 30 BLS.B $0030 ; => $0013A9 001379 46 PUSH.6 $06 00137A 88 00 READ.B $00 00137C 29 MUL.L 00137D 88 01 READ.B $01 00137F 27 ADD.L 001380 98 02 WRITE.B $02 001382 88 02 READ.B $02 001384 42 PUSH.6 $02 001385 03 25 LT.L 001387 18 1B BRZ $01B ; => $0013A4 001389 88 02 READ.B $02 00138B 42 PUSH.6 $02 00138C 28 SUB.L 00138D 98 03 WRITE.B $03 00138F 88 03 READ.B $03 001391 07 BF PUSH.10 $3BF 001393 5E PUSH.6 $1E 001394 88 00 READ.B $00 001396 29 MUL.L 001397 27 ADD.L 001398 44 PUSH.6 $04 001399 88 01 READ.B $01 00139B 29 MUL.L 00139C 27 ADD.L 00139D 44 PUSH.6 $04 00139E 30 03 0B BSR.68K $030B ; => $001096 => $001A82 (NATIVE) 0013A1 F0 02 6D WRITE.B $026D 0013A4 37 20 01 00 34 _23d2 $0001, $0034 0013A9 37 20 00 00 41 _23d2 $0000, $0041 0013AE 30 03 2D BSR.68K $032D ; => $001084 => $094E22 0013B1 03 29 FLOAT2LONG 0013B3 9A 07 WRITE.L $07 0013B5 3C 04 6D PUSH.W $046D 0013B8 46 PUSH.6 $06 0013B9 30 03 26 BSR.68K $0326 ; => $001096 => $001A82 (NATIVE) 0013BC D0 02 10 WRITE.B $0210 0013BF 8A 07 READ.L $07 0013C1 D2 21 23 WRITE.L $2123 0013C4 41 PUSH.6 $01 0013C5 D0 21 90 WRITE.B $2190 0013C8 40 PUSH.6 $00 0013C9 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0013CC 41 PUSH.6 $01 0013CD 38 00 43 BLS.B $0043 ; => $001413 0013D0 41 PUSH.6 $01 0013D1 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0013D4 44 PUSH.6 $04 0013D5 88 00 READ.B $00 0013D7 28 SUB.L 0013D8 38 00 33 BLS.B $0033 ; => $00140E 0013DB 59 PUSH.6 $19 0013DC 44 PUSH.6 $04 0013DD 88 00 READ.B $00 0013DF 29 MUL.L 0013E0 27 ADD.L 0013E1 88 01 READ.B $01 0013E3 27 ADD.L 0013E4 98 03 WRITE.B $03 0013E6 88 03 READ.B $03 0013E8 3C 04 73 PUSH.W $0473 0013EB 5E PUSH.6 $1E 0013EC 88 00 READ.B $00 0013EE 29 MUL.L 0013EF 27 ADD.L 0013F0 46 PUSH.6 $06 0013F1 88 01 READ.B $01 0013F3 29 MUL.L 0013F4 27 ADD.L 0013F5 46 PUSH.6 $06 0013F6 30 03 63 BSR.68K $0363 ; => $001096 => $001A82 (NATIVE) 0013F9 F0 02 29 WRITE.B $0229 0013FC 88 03 READ.B $03 0013FE 8A 07 READ.L $07 001400 F2 21 87 WRITE.L $2187 001403 88 03 READ.B $03 001405 41 PUSH.6 $01 001406 F0 21 A9 WRITE.B $21A9 001409 37 20 01 00 3A _23d2 $0001, $003A 00140E 37 20 00 00 47 _23d2 $0000, $0047 001413 32 08 ADDSP.B $08 001415 34 RETURN ; ---------------- End Function $001360 ---------------- ; ---------------- Begin 2144 Function $001416 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0015CE:$001624 ; called from $0018F8:$001981 ; addr bytes opcode operands comment 00141D 07 C7 PUSH.10 $3C7 00141F 46 PUSH.6 $06 001420 30 03 8D BSR.68K $038D ; => $001096 => $001A82 (NATIVE) 001423 D0 55 7E WRITE.B $557E 001426 C0 55 7E READ.B $557E 001429 35 SWITCH 00142A 80 12 19 1A 1B 1C 1D 1E 1F CASE $19, $1A, $1B, $1C, $1D, $1E, $1F, $20; SWITCH $001429 20 001434 C0 55 7E READ.B $557E 001437 07 84 PUSH.10 $384 001439 30 03 9A BSR.68K $039A ; => $0010A2 00143C 10 4F BR $04F ; => $00148D 00143E 10 0A 38 CASE $38 ; SWITCH $001429 001441 52 PUSH.6 $12 001442 D0 59 F4 WRITE.B $59F4 001445 30 02 62 BSR.68K $0262 ; => $0011E6 001448 10 43 BR $043 ; => $00148D 00144A 10 06 3F CASE $3F ; SWITCH $001429 00144D 30 00 F0 BSR.68K $00F0 ; => $001360 001450 10 3B BR $03B ; => $00148D 001452 10 0A 37 CASE $37 ; SWITCH $001429 001455 51 PUSH.6 $11 001456 D0 59 F4 WRITE.B $59F4 001459 30 01 50 BSR.68K $0150 ; => $00130C 00145C 10 2F BR $02F ; => $00148D 00145E 10 2C 00 CASE $00 ; SWITCH $001429 001461 C0 59 F4 READ.B $59F4 001464 35 SWITCH 001465 40 10 02 03 04 05 CASE $02, $03, $04, $05 ; SWITCH $001464 00146B C0 59 F4 READ.B $59F4 00146E 57 PUSH.6 $17 00146F 27 ADD.L 001470 04 FF PUSH.10 $0FF 001472 F0 35 7B WRITE.B $357B 001475 10 13 BR $013 ; => $00148A 001477 40 10 07 08 09 0A CASE $07, $08, $09, $0A ; SWITCH $001464 00147D C0 59 F4 READ.B $59F4 001480 56 PUSH.6 $16 001481 27 ADD.L 001482 04 FF PUSH.10 $0FF 001484 F0 35 7B WRITE.B $357B 001487 10 01 BR $001 ; => $00148A 001489 00 DEFAULT ; SWITCH $001464 00148A 10 01 BR $001 ; => $00148D 00148C 00 DEFAULT ; SWITCH $001429 00148D C0 55 7E READ.B $557E 001490 35 SWITCH 001491 40 0E 19 1A 1B 1C CASE $19, $1A, $1B, $1C ; SWITCH $001490 001497 C0 55 7E READ.B $557E 00149A 57 PUSH.6 $17 00149B 28 SUB.L 00149C D0 59 F4 WRITE.B $59F4 00149F 10 44 BR $044 ; => $0014E5 0014A1 40 0E 1D 1E 1F 20 CASE $1D, $1E, $1F, $20 ; SWITCH $001490 0014A7 C0 55 7E READ.B $557E 0014AA 56 PUSH.6 $16 0014AB 28 SUB.L 0014AC D0 59 F4 WRITE.B $59F4 0014AF 10 34 BR $034 ; => $0014E5 0014B1 30 0D 34 35 36 CASE $34, $35, $36 ; SWITCH $001490 0014B6 C0 55 7E READ.B $557E 0014B9 67 PUSH.6 $27 0014BA 28 SUB.L 0014BB D0 59 F4 WRITE.B $59F4 0014BE 10 25 BR $025 ; => $0014E5 0014C0 10 07 3A CASE $3A ; SWITCH $001490 0014C3 53 PUSH.6 $13 0014C4 D0 59 F4 WRITE.B $59F4 0014C7 10 1C BR $01C ; => $0014E5 0014C9 10 07 3B CASE $3B ; SWITCH $001490 0014CC 54 PUSH.6 $14 0014CD D0 59 F4 WRITE.B $59F4 0014D0 10 13 BR $013 ; => $0014E5 0014D2 10 07 3C CASE $3C ; SWITCH $001490 0014D5 56 PUSH.6 $16 0014D6 D0 59 F4 WRITE.B $59F4 0014D9 10 0A BR $00A ; => $0014E5 0014DB 10 07 3D CASE $3D ; SWITCH $001490 0014DE 57 PUSH.6 $17 0014DF D0 59 F4 WRITE.B $59F4 0014E2 10 01 BR $001 ; => $0014E5 0014E4 00 DEFAULT ; SWITCH $001490 0014E5 34 RETURN ; ---------------- End Function $001416 ---------------- ; ---------------- Begin 2144 Function $0014E6 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $00156E:$0015B8 ; addr bytes opcode operands comment 0014ED 31 0A SUBSP.B $0A 0014EF 3C 05 03 PUSH.W $0503 0014F2 48 PUSH.6 $08 0014F3 30 04 60 BSR.68K $0460 ; => $001096 => $001A82 (NATIVE) 0014F6 98 00 WRITE.B $00 0014F8 C1 29 FD READ.W $29FD 0014FB 42 PUSH.6 $02 0014FC 27 ADD.L 0014FD D1 20 FF WRITE.W $20FF 001500 C1 20 FF READ.W $20FF 001503 04 FF PUSH.10 $0FF 001505 2C AND.L 001506 88 00 READ.B $00 001508 2B NEQ.L 001509 18 0A BRZ $00A ; => $001515 00150B C1 20 FF READ.W $20FF 00150E 41 PUSH.6 $01 00150F 28 SUB.L 001510 D1 20 FF WRITE.W $20FF 001513 17 EB BR $-15 ; => $001500 001515 30 04 94 BSR.68K $0494 ; => $001084 => $094E22 001518 03 29 FLOAT2LONG 00151A 9A 09 WRITE.L $09 00151C 8A 09 READ.L $09 00151E D2 21 03 WRITE.L $2103 001521 40 PUSH.6 $00 001522 D0 28 AF WRITE.B $28AF 001525 40 PUSH.6 $00 001526 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 001529 45 PUSH.6 $05 00152A 38 00 3E BLS.B $003E ; => $00156B 00152D 41 PUSH.6 $01 00152E 36 20 02 _2362 $0002 ; A0 = $004000; (A0) = A6 + $0 001531 44 PUSH.6 $04 001532 38 00 31 BLS.B $0031 ; => $001566 001535 44 PUSH.6 $04 001536 88 01 READ.B $01 001538 29 MUL.L 001539 88 02 READ.B $02 00153B 27 ADD.L 00153C 98 03 WRITE.B $03 00153E 88 03 READ.B $03 001540 3C 05 09 PUSH.W $0509 001543 5E PUSH.6 $1E 001544 88 01 READ.B $01 001546 29 MUL.L 001547 27 ADD.L 001548 46 PUSH.6 $06 001549 88 02 READ.B $02 00154B 29 MUL.L 00154C 27 ADD.L 00154D 46 PUSH.6 $06 00154E 30 04 BB BSR.68K $04BB ; => $001096 => $001A82 (NATIVE) 001551 F0 02 29 WRITE.B $0229 001554 88 03 READ.B $03 001556 8A 09 READ.L $09 001558 F2 21 87 WRITE.L $2187 00155B 88 03 READ.B $03 00155D 41 PUSH.6 $01 00155E F0 21 A9 WRITE.B $21A9 001561 37 20 02 00 35 _23d2 $0002, $0035 001566 37 20 01 00 42 _23d2 $0001, $0042 00156B 32 0A ADDSP.B $0A 00156D 34 RETURN ; ---------------- End Function $0014E6 ---------------- ; ---------------- Begin 2144 Function $00156E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0015CE:$001621 ; called from $0018F8:$00197E ; addr bytes opcode operands comment 001575 31 06 SUBSP.B $06 001577 3C 04 F3 PUSH.W $04F3 00157A 46 PUSH.6 $06 00157B 30 04 E8 BSR.68K $04E8 ; => $001096 => $001A82 (NATIVE) 00157E 94 00 WRITE.B $00 001580 84 00 READ.B $00 001582 40 PUSH.6 $00 001583 2A EQ.L 001584 18 28 BRZ $028 ; => $0015AE 001586 3C 04 DE PUSH.W $04DE 001589 51 PUSH.6 $11 00158A 40 PUSH.6 $00 00158B 40 PUSH.6 $00 00158C 40 PUSH.6 $00 00158D 40 PUSH.6 $00 00158E 40 PUSH.6 $00 00158F 30 04 F6 BSR.68K $04F6 ; => $00109C => $0019F4 (NATIVE) 001592 03 29 FLOAT2LONG 001594 96 05 WRITE.L $05 001596 86 05 READ.L $05 001598 45 PUSH.6 $05 001599 03 24 DIV.L 00159B 41 PUSH.6 $01 00159C 28 SUB.L 00159D 59 PUSH.6 $19 00159E 2F MOD.L 00159F 41 PUSH.6 $01 0015A0 27 ADD.L 0015A1 D0 59 F4 WRITE.B $59F4 0015A4 C0 59 F4 READ.B $59F4 0015A7 04 FF PUSH.10 $0FF 0015A9 F0 35 7B WRITE.B $357B 0015AC 10 1D BR $01D ; => $0015CB 0015AE 84 00 READ.B $00 0015B0 73 PUSH.6 $33 0015B1 2A EQ.L 0015B2 18 09 BRZ $009 ; => $0015BD 0015B4 59 PUSH.6 $19 0015B5 D0 59 F4 WRITE.B $59F4 0015B8 30 00 D5 BSR.68K $00D5 ; => $0014E6 0015BB 10 0E BR $00E ; => $0015CB 0015BD 84 00 READ.B $00 0015BF D0 59 F4 WRITE.B $59F4 0015C2 C0 59 F4 READ.B $59F4 0015C5 3C 04 B0 PUSH.W $04B0 0015C8 30 05 29 BSR.68K $0529 ; => $0010A2 0015CB 32 06 ADDSP.B $06 0015CD 34 RETURN ; ---------------- End Function $00156E ---------------- ; ---------------- Begin 2144 Function $0015CE ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0936B6:$0937A5 ; addr bytes opcode operands comment 0015D5 86 03 READ.L $03 0015D7 D0 51 00 WRITE.B $5100 0015DA 30 05 5F BSR.68K $055F ; => $00107E => $094ED4 0015DD 18 48 BRZ $048 ; => $001627 0015DF 04 FF PUSH.10 $0FF 0015E1 D0 4E 73 WRITE.B $4E73 0015E4 47 PUSH.6 $07 0015E5 30 05 88 BSR.68K $0588 ; => $001060 => $094D12 0015E8 30 05 91 BSR.68K $0591 ; => $00105A => $095B32 (NATIVE) 0015EB 40 PUSH.6 $00 0015EC D0 4E 73 WRITE.B $4E73 0015EF 30 05 68 BSR.68K $0568 ; => $00108A => $001AB6 (NATIVE) 0015F2 73 PUSH.6 $33 0015F3 43 PUSH.6 $03 0015F4 30 05 61 BSR.68K $0561 ; => $001096 => $001A82 (NATIVE) 0015F7 41 PUSH.6 $01 0015F8 2A EQ.L 0015F9 2C AND.L 0015FA 05 5F PUSH.10 $15F 0015FC 43 PUSH.6 $03 0015FD 30 05 6A BSR.68K $056A ; => $001096 => $001A82 (NATIVE) 001600 42 PUSH.6 $02 001601 2A EQ.L 001602 2C AND.L 001603 06 8B PUSH.10 $28B 001605 43 PUSH.6 $03 001606 30 05 73 BSR.68K $0573 ; => $001096 => $001A82 (NATIVE) 001609 43 PUSH.6 $03 00160A 2A EQ.L 00160B 2C AND.L 00160C 07 B7 PUSH.10 $3B7 00160E 43 PUSH.6 $03 00160F 30 05 7C BSR.68K $057C ; => $001096 => $001A82 (NATIVE) 001612 44 PUSH.6 $04 001613 2A EQ.L 001614 2C AND.L 001615 3C 04 E3 PUSH.W $04E3 001618 43 PUSH.6 $03 001619 30 05 86 BSR.68K $0586 ; => $001096 => $001A82 (NATIVE) 00161C 45 PUSH.6 $05 00161D 2A EQ.L 00161E 2C AND.L 00161F 18 06 BRZ $006 ; => $001627 001621 30 00 B6 BSR.68K $00B6 ; => $00156E 001624 30 02 11 BSR.68K $0211 ; => $001416 001627 32 04 ADDSP.B $04 001629 34 RETURN ; ---------------- End Function $0015CE ---------------- ; ---------------- Begin 2144 Function $00162A ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0018F8:$00195E ; addr bytes opcode operands comment 001631 31 10 SUBSP.B $10 001633 05 6F PUSH.10 $16F 001635 48 PUSH.6 $08 001636 30 05 A3 BSR.68K $05A3 ; => $001096 => $001A82 (NATIVE) 001639 98 00 WRITE.B $00 00163B 07 6D PUSH.10 $36D 00163D 48 PUSH.6 $08 00163E 30 05 AB BSR.68K $05AB ; => $001096 => $001A82 (NATIVE) 001641 98 01 WRITE.B $01 001643 06 33 PUSH.10 $233 001645 58 PUSH.6 $18 001646 06 15 PUSH.10 $215 001648 48 PUSH.6 $08 001649 40 PUSH.6 $00 00164A 41 PUSH.6 $01 00164B 53 PUSH.6 $13 00164C 30 05 B3 BSR.68K $05B3 ; => $00109C => $0019F4 (NATIVE) 00164F 9B 09 WRITE.F $09 001651 88 00 READ.B $00 001653 88 01 READ.B $01 001655 2A EQ.L 001656 1A 9D BRZ $29D ; => $0018F5 001658 04 FF PUSH.10 $0FF 00165A D0 28 AD WRITE.B $28AD 00165D 84 00 READ.B $00 00165F 6E PUSH.6 $2E 001660 51 PUSH.6 $11 001661 40 PUSH.6 $00 001662 40 PUSH.6 $00 001663 40 PUSH.6 $00 001664 40 PUSH.6 $00 001665 40 PUSH.6 $00 001666 30 05 CD BSR.68K $05CD ; => $00109C => $0019F4 (NATIVE) 001669 03 29 FLOAT2LONG 00166B 46 PUSH.6 $06 00166C 29 MUL.L 00166D 46 PUSH.6 $06 00166E 28 SUB.L 00166F F2 01 E5 WRITE.L $01E5 001672 84 00 READ.B $00 001674 6F PUSH.6 $2F 001675 41 PUSH.6 $01 001676 30 05 E3 BSR.68K $05E3 ; => $001096 => $001A82 (NATIVE) 001679 F0 02 4B WRITE.B $024B 00167C 04 45 PUSH.10 $045 00167E 4A PUSH.6 $0A 00167F 40 PUSH.6 $00 001680 40 PUSH.6 $00 001681 40 PUSH.6 $00 001682 40 PUSH.6 $00 001683 40 PUSH.6 $00 001684 30 05 EB BSR.68K $05EB ; => $00109C => $0019F4 (NATIVE) 001687 03 29 FLOAT2LONG 001689 99 0B WRITE.W $0B 00168B 89 0B READ.W $0B 00168D 05 E8 PUSH.10 $1E8 00168F 03 26 GT.L 001691 18 08 BRZ $008 ; => $00169B 001693 89 0B READ.W $0B 001695 3C 04 00 PUSH.W $0400 001698 27 ADD.L 001699 99 0B WRITE.W $0B 00169B 84 00 READ.B $00 00169D 89 0B READ.W $0B 00169F F1 01 61 WRITE.W $0161 0016A2 89 0B READ.W $0B 0016A4 C1 29 FD READ.W $29FD 0016A7 03 25 LT.L 0016A9 84 00 READ.B $00 0016AB E2 01 E5 READ.L $01E5 0016AE 3D 00 09 36 FC PUSH.L $000936FC 0016B3 03 26 GT.L 0016B5 2D OR.L 0016B6 18 05 BRZ $005 ; => $0016BD 0016B8 89 0B READ.W $0B 0016BA D1 29 FD WRITE.W $29FD 0016BD 84 00 READ.B $00 0016BF 04 4B PUSH.10 $04B 0016C1 44 PUSH.6 $04 0016C2 30 06 2F BSR.68K $062F ; => $001096 => $001A82 (NATIVE) 0016C5 F0 02 8F WRITE.B $028F 0016C8 84 00 READ.B $00 0016CA 04 51 PUSH.10 $051 0016CC 46 PUSH.6 $06 0016CD 30 06 3A BSR.68K $063A ; => $001096 => $001A82 (NATIVE) 0016D0 F0 02 29 WRITE.B $0229 0016D3 84 00 READ.B $00 0016D5 43 PUSH.6 $03 0016D6 F0 21 A9 WRITE.B $21A9 0016D9 84 00 READ.B $00 0016DB C1 29 FD READ.W $29FD 0016DE 3D 00 09 3A 80 PUSH.L $00093A80 0016E3 29 MUL.L 0016E4 84 00 READ.B $00 0016E6 E2 01 E5 READ.L $01E5 0016E9 27 ADD.L 0016EA F2 21 87 WRITE.L $2187 0016ED 84 00 READ.B $00 0016EF 04 CB PUSH.10 $0CB 0016F1 48 PUSH.6 $08 0016F2 40 PUSH.6 $00 0016F3 40 PUSH.6 $00 0016F4 41 PUSH.6 $01 0016F5 41 PUSH.6 $01 0016F6 5F PUSH.6 $1F 0016F7 30 06 5E BSR.68K $065E ; => $00109C => $0019F4 (NATIVE) 0016FA F3 03 97 WRITE.F $0397 0016FD 84 00 READ.B $00 0016FF E2 04 1B READ.L $041B 001702 9A 0F WRITE.L $0F 001704 84 00 READ.B $00 001706 04 D9 PUSH.10 $0D9 001708 48 PUSH.6 $08 001709 04 53 PUSH.10 $053 00170B 42 PUSH.6 $02 00170C 40 PUSH.6 $00 00170D 40 PUSH.6 $00 00170E 40 PUSH.6 $00 00170F 30 06 76 BSR.68K $0676 ; => $00109C => $0019F4 (NATIVE) 001712 03 29 FLOAT2LONG 001714 F2 04 1B WRITE.L $041B 001717 84 00 READ.B $00 001719 04 E9 PUSH.10 $0E9 00171B 50 PUSH.6 $10 00171C 40 PUSH.6 $00 00171D 40 PUSH.6 $00 00171E 40 PUSH.6 $00 00171F 40 PUSH.6 $00 001720 44 PUSH.6 $04 001721 30 06 88 BSR.68K $0688 ; => $00109C => $0019F4 (NATIVE) 001724 03 29 FLOAT2LONG 001726 F2 07 B7 WRITE.L $07B7 001729 84 00 READ.B $00 00172B 04 F7 PUSH.10 $0F7 00172D 48 PUSH.6 $08 00172E 40 PUSH.6 $00 00172F 40 PUSH.6 $00 001730 41 PUSH.6 $01 001731 41 PUSH.6 $01 001732 77 PUSH.6 $37 001733 30 06 9A BSR.68K $069A ; => $00109C => $0019F4 (NATIVE) 001736 F3 05 23 WRITE.F $0523 001739 84 00 READ.B $00 00173B 05 07 PUSH.10 $107 00173D 50 PUSH.6 $10 00173E 40 PUSH.6 $00 00173F 40 PUSH.6 $00 001740 41 PUSH.6 $01 001741 41 PUSH.6 $01 001742 6B PUSH.6 $2B 001743 30 06 AA BSR.68K $06AA ; => $00109C => $0019F4 (NATIVE) 001746 F3 06 2B WRITE.F $062B 001749 84 00 READ.B $00 00174B 05 23 PUSH.10 $123 00174D 56 PUSH.6 $16 00174E 40 PUSH.6 $00 00174F 40 PUSH.6 $00 001750 41 PUSH.6 $01 001751 41 PUSH.6 $01 001752 5F PUSH.6 $1F 001753 30 06 BA BSR.68K $06BA ; => $00109C => $0019F4 (NATIVE) 001756 F3 07 33 WRITE.F $0733 001759 84 00 READ.B $00 00175B 05 6F PUSH.10 $16F 00175D 48 PUSH.6 $08 00175E 40 PUSH.6 $00 00175F 40 PUSH.6 $00 001760 40 PUSH.6 $00 001761 40 PUSH.6 $00 001762 40 PUSH.6 $00 001763 30 06 CA BSR.68K $06CA ; => $00109C => $0019F4 (NATIVE) 001766 03 29 FLOAT2LONG 001768 F2 08 3B WRITE.L $083B 00176B 84 00 READ.B $00 00176D 05 7F PUSH.10 $17F 00176F 50 PUSH.6 $10 001770 40 PUSH.6 $00 001771 40 PUSH.6 $00 001772 41 PUSH.6 $01 001773 41 PUSH.6 $01 001774 45 PUSH.6 $05 001775 30 06 DC BSR.68K $06DC ; => $00109C => $0019F4 (NATIVE) 001778 F3 15 A3 WRITE.F $15A3 00177B 84 00 READ.B $00 00177D 05 95 PUSH.10 $195 00177F 50 PUSH.6 $10 001780 40 PUSH.6 $00 001781 40 PUSH.6 $00 001782 41 PUSH.6 $01 001783 41 PUSH.6 $01 001784 6B PUSH.6 $2B 001785 30 06 EC BSR.68K $06EC ; => $00109C => $0019F4 (NATIVE) 001788 F3 0A 4B WRITE.F $0A4B 00178B 84 00 READ.B $00 00178D 05 BB PUSH.10 $1BB 00178F 58 PUSH.6 $18 001790 05 9D PUSH.10 $19D 001792 48 PUSH.6 $08 001793 41 PUSH.6 $01 001794 41 PUSH.6 $01 001795 5F PUSH.6 $1F 001796 30 06 FD BSR.68K $06FD ; => $00109C => $0019F4 (NATIVE) 001799 F3 09 43 WRITE.F $0943 00179C 84 00 READ.B $00 00179E 05 D1 PUSH.10 $1D1 0017A0 50 PUSH.6 $10 0017A1 40 PUSH.6 $00 0017A2 40 PUSH.6 $00 0017A3 41 PUSH.6 $01 0017A4 41 PUSH.6 $01 0017A5 5D PUSH.6 $1D 0017A6 30 07 0D BSR.68K $070D ; => $00109C => $0019F4 (NATIVE) 0017A9 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 0017B2 22 MUL.F 0017B3 F3 12 8B WRITE.F $128B 0017B6 84 00 READ.B $00 0017B8 05 F7 PUSH.10 $1F7 0017BA 58 PUSH.6 $18 0017BB 05 D9 PUSH.10 $1D9 0017BD 48 PUSH.6 $08 0017BE 40 PUSH.6 $00 0017BF 41 PUSH.6 $01 0017C0 61 PUSH.6 $21 0017C1 30 07 28 BSR.68K $0728 ; => $00109C => $0019F4 (NATIVE) 0017C4 F3 0B 53 WRITE.F $0B53 0017C7 84 00 READ.B $00 0017C9 06 0D PUSH.10 $20D 0017CB 50 PUSH.6 $10 0017CC 40 PUSH.6 $00 0017CD 40 PUSH.6 $00 0017CE 41 PUSH.6 $01 0017CF 41 PUSH.6 $01 0017D0 5D PUSH.6 $1D 0017D1 30 07 38 BSR.68K $0738 ; => $00109C => $0019F4 (NATIVE) 0017D4 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 0017DD 22 MUL.F 0017DE F3 13 93 WRITE.F $1393 0017E1 84 00 READ.B $00 0017E3 8B 09 READ.F $09 0017E5 F3 0C 5B WRITE.F $0C5B 0017E8 84 00 READ.B $00 0017EA 06 49 PUSH.10 $249 0017EC 50 PUSH.6 $10 0017ED 40 PUSH.6 $00 0017EE 40 PUSH.6 $00 0017EF 40 PUSH.6 $00 0017F0 40 PUSH.6 $00 0017F1 44 PUSH.6 $04 0017F2 30 07 59 BSR.68K $0759 ; => $00109C => $0019F4 (NATIVE) 0017F5 03 29 FLOAT2LONG 0017F7 F2 18 37 WRITE.L $1837 0017FA 84 00 READ.B $00 0017FC 06 4A PUSH.10 $24A 0017FE 41 PUSH.6 $01 0017FF 30 07 6C BSR.68K $076C ; => $001096 => $001A82 (NATIVE) 001802 F0 02 07 WRITE.B $0207 001805 84 00 READ.B $00 001807 06 A3 PUSH.10 $2A3 001809 50 PUSH.6 $10 00180A 40 PUSH.6 $00 00180B 40 PUSH.6 $00 00180C 41 PUSH.6 $01 00180D 41 PUSH.6 $01 00180E 5D PUSH.6 $1D 00180F 30 07 76 BSR.68K $0776 ; => $00109C => $0019F4 (NATIVE) 001812 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 00181B 22 MUL.F 00181C F3 16 AB WRITE.F $16AB 00181F 84 00 READ.B $00 001821 06 C9 PUSH.10 $2C9 001823 58 PUSH.6 $18 001824 06 AB PUSH.10 $2AB 001826 48 PUSH.6 $08 001827 41 PUSH.6 $01 001828 41 PUSH.6 $01 001829 5F PUSH.6 $1F 00182A 30 07 91 BSR.68K $0791 ; => $00109C => $0019F4 (NATIVE) 00182D F3 0D 63 WRITE.F $0D63 001830 84 00 READ.B $00 001832 06 DF PUSH.10 $2DF 001834 50 PUSH.6 $10 001835 40 PUSH.6 $00 001836 40 PUSH.6 $00 001837 41 PUSH.6 $01 001838 41 PUSH.6 $01 001839 5D PUSH.6 $1D 00183A 30 07 A1 BSR.68K $07A1 ; => $00109C => $0019F4 (NATIVE) 00183D 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 001846 22 MUL.F 001847 F3 17 B3 WRITE.F $17B3 00184A 84 00 READ.B $00 00184C 07 05 PUSH.10 $305 00184E 58 PUSH.6 $18 00184F 06 E7 PUSH.10 $2E7 001851 48 PUSH.6 $08 001852 41 PUSH.6 $01 001853 41 PUSH.6 $01 001854 5F PUSH.6 $1F 001855 30 07 BC BSR.68K $07BC ; => $00109C => $0019F4 (NATIVE) 001858 F3 10 7B WRITE.F $107B 00185B 84 00 READ.B $00 00185D 07 1B PUSH.10 $31B 00185F 50 PUSH.6 $10 001860 40 PUSH.6 $00 001861 40 PUSH.6 $00 001862 41 PUSH.6 $01 001863 41 PUSH.6 $01 001864 45 PUSH.6 $05 001865 30 07 CC BSR.68K $07CC ; => $00109C => $0019F4 (NATIVE) 001868 F3 14 9B WRITE.F $149B 00186B 84 00 READ.B $00 00186D 07 41 PUSH.10 $341 00186F 58 PUSH.6 $18 001870 07 23 PUSH.10 $323 001872 48 PUSH.6 $08 001873 41 PUSH.6 $01 001874 41 PUSH.6 $01 001875 5F PUSH.6 $1F 001876 30 07 DD BSR.68K $07DD ; => $00109C => $0019F4 (NATIVE) 001879 F3 0E 6B WRITE.F $0E6B 00187C 84 00 READ.B $00 00187E 07 5F PUSH.10 $35F 001880 58 PUSH.6 $18 001881 40 PUSH.6 $00 001882 40 PUSH.6 $00 001883 41 PUSH.6 $01 001884 41 PUSH.6 $01 001885 6B PUSH.6 $2B 001886 30 07 ED BSR.68K $07ED ; => $00109C => $0019F4 (NATIVE) 001889 F3 0F 73 WRITE.F $0F73 00188C 84 00 READ.B $00 00188E 07 7B PUSH.10 $37B 001890 4E PUSH.6 $0E 001891 40 PUSH.6 $00 001892 40 PUSH.6 $00 001893 41 PUSH.6 $01 001894 41 PUSH.6 $01 001895 6B PUSH.6 $2B 001896 30 07 FD BSR.68K $07FD ; => $00109C => $0019F4 (NATIVE) 001899 F3 11 83 WRITE.F $1183 00189C 84 00 READ.B $00 00189E 84 00 READ.B $00 0018A0 30 08 37 BSR.68K $0837 ; => $00106C => $09FEDC 0018A3 F0 18 59 WRITE.B $1859 0018A6 04 FF PUSH.10 $0FF 0018A8 D0 55 A3 WRITE.B $55A3 0018AB 84 00 READ.B $00 0018AD 40 PUSH.6 $00 0018AE F0 28 D3 WRITE.B $28D3 0018B1 84 00 READ.B $00 0018B3 E2 04 1B READ.L $041B 0018B6 8A 0F READ.L $0F 0018B8 2B NEQ.L 0018B9 18 12 BRZ $012 ; => $0018CD 0018BB C0 51 00 READ.B $5100 0018BE 3E PUSH.W $0000 0018BF F3 41 E9 WRITE.F $41E9 0018C2 40 PUSH.6 $00 0018C3 4A PUSH.6 $0A 0018C4 29 MUL.L 0018C5 C0 51 00 READ.B $5100 0018C8 27 ADD.L 0018C9 3E PUSH.W $0000 0018CA F3 64 41 WRITE.F $6441 0018CD C0 29 5B READ.B $295B 0018D0 50 PUSH.6 $10 0018D1 2C AND.L 0018D2 18 0D BRZ $00D ; => $0018E1 0018D4 C0 29 5B READ.B $295B 0018D7 44 PUSH.6 $04 0018D8 2D OR.L 0018D9 D0 29 5B WRITE.B $295B 0018DC 84 00 READ.B $00 0018DE D0 50 9D WRITE.B $509D 0018E1 C0 29 64 READ.B $2964 0018E4 50 PUSH.6 $10 0018E5 2C AND.L 0018E6 18 0D BRZ $00D ; => $0018F5 0018E8 C0 29 64 READ.B $2964 0018EB 44 PUSH.6 $04 0018EC 2D OR.L 0018ED D0 29 64 WRITE.B $2964 0018F0 84 00 READ.B $00 0018F2 D0 50 9D WRITE.B $509D 0018F5 32 10 ADDSP.B $10 0018F7 34 RETURN ; ---------------- End Function $00162A ---------------- ; ---------------- Begin 2144 Function $0018F8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0936B6:$093717 ; called from $09DD4E:$09DF1B ; called from $0AF21A:$0AF37D ; addr bytes opcode operands comment 0018FF 31 02 SUBSP.B $02 001901 C0 51 00 READ.B $5100 001904 E0 40 09 READ.B $4009 001907 94 00 WRITE.B $00 001909 C0 56 6E READ.B $566E 00190C 2E NOT.L 00190D 18 05 BRZ $005 ; => $001914 00190F 84 00 READ.B $00 001911 D0 29 E3 WRITE.B $29E3 001914 40 PUSH.6 $00 001915 D1 29 E7 WRITE.W $29E7 001918 40 PUSH.6 $00 001919 D0 28 AD WRITE.B $28AD 00191C 04 FF PUSH.10 $0FF 00191E D0 4E 73 WRITE.B $4E73 001921 47 PUSH.6 $07 001922 30 08 C5 BSR.68K $08C5 ; => $001060 => $094D12 001925 30 08 CE BSR.68K $08CE ; => $00105A => $095B32 (NATIVE) 001928 40 PUSH.6 $00 001929 D0 4E 73 WRITE.B $4E73 00192C 30 08 A5 BSR.68K $08A5 ; => $00108A => $001AB6 (NATIVE) 00192F 73 PUSH.6 $33 001930 43 PUSH.6 $03 001931 30 08 9E BSR.68K $089E ; => $001096 => $001A82 (NATIVE) 001934 41 PUSH.6 $01 001935 2A EQ.L 001936 2C AND.L 001937 05 5F PUSH.10 $15F 001939 43 PUSH.6 $03 00193A 30 08 A7 BSR.68K $08A7 ; => $001096 => $001A82 (NATIVE) 00193D 42 PUSH.6 $02 00193E 2A EQ.L 00193F 2C AND.L 001940 06 8B PUSH.10 $28B 001942 43 PUSH.6 $03 001943 30 08 B0 BSR.68K $08B0 ; => $001096 => $001A82 (NATIVE) 001946 43 PUSH.6 $03 001947 2A EQ.L 001948 2C AND.L 001949 07 B7 PUSH.10 $3B7 00194B 43 PUSH.6 $03 00194C 30 08 B9 BSR.68K $08B9 ; => $001096 => $001A82 (NATIVE) 00194F 44 PUSH.6 $04 001950 2A EQ.L 001951 2C AND.L 001952 3C 04 E3 PUSH.W $04E3 001955 43 PUSH.6 $03 001956 30 08 C3 BSR.68K $08C3 ; => $001096 => $001A82 (NATIVE) 001959 45 PUSH.6 $05 00195A 2A EQ.L 00195B 2C AND.L 00195C 18 03 BRZ $003 ; => $001961 00195E 30 03 37 BSR.68K $0337 ; => $00162A 001961 C0 28 AD READ.B $28AD 001964 18 3C BRZ $03C ; => $0019A2 001966 40 PUSH.6 $00 001967 D0 59 F5 WRITE.B $59F5 00196A 84 00 READ.B $00 00196C E0 02 29 READ.B $0229 00196F 40 PUSH.6 $00 001970 2A EQ.L 001971 84 00 READ.B $00 001973 E0 22 F5 READ.B $22F5 001976 2D OR.L 001977 18 05 BRZ $005 ; => $00197E 001979 84 00 READ.B $00 00197B 30 09 2A BSR.68K $092A ; => $001054 => $0AA8CC 00197E 30 04 13 BSR.68K $0413 ; => $00156E 001981 30 05 6E BSR.68K $056E ; => $001416 001984 C0 29 5B READ.B $295B 001987 44 PUSH.6 $04 001988 2C AND.L 001989 D0 4E 94 WRITE.B $4E94 00198C C0 29 64 READ.B $2964 00198F 44 PUSH.6 $04 001990 2C AND.L 001991 D0 4F 98 WRITE.B $4F98 001994 C0 4E 94 READ.B $4E94 001997 C0 4F 98 READ.B $4F98 00199A 2D OR.L 00199B 18 03 BRZ $003 ; => $0019A0 00199D 30 09 52 BSR.68K $0952 ; => $00104E => $0A5E64 0019A0 10 2A BR $02A ; => $0019CC 0019A2 C2 35 4B READ.L $354B 0019A5 41 PUSH.6 $01 0019A6 27 ADD.L 0019A7 D2 35 4B WRITE.L $354B 0019AA C0 4E 70 READ.B $4E70 0019AD 2E NOT.L 0019AE 18 04 BRZ $004 ; => $0019B4 0019B0 4F PUSH.6 $0F 0019B1 D0 4E 51 WRITE.B $4E51 0019B4 84 00 READ.B $00 0019B6 E1 18 9B READ.W $189B 0019B9 40 PUSH.6 $00 0019BA 2A EQ.L 0019BB 84 00 READ.B $00 0019BD E1 01 61 READ.W $0161 0019C0 40 PUSH.6 $00 0019C1 2A EQ.L 0019C2 2C AND.L 0019C3 18 07 BRZ $007 ; => $0019CC 0019C5 84 00 READ.B $00 0019C7 04 FF PUSH.10 $0FF 0019C9 F0 02 29 WRITE.B $0229 0019CC 32 02 ADDSP.B $02 0019CE 34 RETURN ; ---------------- End Function $0018F8 ---------------- ; ---------------- Begin 2164 Function $003592 ---------------- ; P0 = $0030; P1 = $0010; P2 = $01 ; A0 = $004004; (A0) = A6 + $2F; D1 = $000010 ; called from $0A2B34:$0A2B8D ; called from $0A2E20:$0A2F9A ; addr bytes opcode operands comment 00359B 87 2F READ.F $2F 00359D 87 3F READ.F $3F 00359F 22 MUL.F 0035A0 87 27 READ.F $27 0035A2 87 37 READ.F $37 0035A4 22 MUL.F 0035A5 20 ADD.F 0035A6 97 0F WRITE.F $0F 0035A8 87 1F READ.F $1F 0035AA 87 3F READ.F $3F 0035AC 22 MUL.F 0035AD 87 17 READ.F $17 0035AF 87 37 READ.F $37 0035B1 22 MUL.F 0035B2 20 ADD.F 0035B3 97 07 WRITE.F $07 0035B5 32 30 ADDSP.B $30 0035B7 34 RETURN ; ---------------- End Function $003592 ---------------- ; ---------------- Begin 2164 Function $0035B8 ---------------- ; P0 = $0060; P1 = $0018; P2 = $01 ; A0 = $004004; (A0) = A6 + $5F; D1 = $000018 ; called from $0A326E:$0A32B9 ; called from $0A34CE:$0A3595 ; addr bytes opcode operands comment 0035C1 87 5F READ.F $5F 0035C3 87 77 READ.F $77 0035C5 22 MUL.F 0035C6 87 57 READ.F $57 0035C8 87 6F READ.F $6F 0035CA 22 MUL.F 0035CB 20 ADD.F 0035CC 87 4F READ.F $4F 0035CE 87 67 READ.F $67 0035D0 22 MUL.F 0035D1 20 ADD.F 0035D2 97 17 WRITE.F $17 0035D4 87 47 READ.F $47 0035D6 87 77 READ.F $77 0035D8 22 MUL.F 0035D9 87 3F READ.F $3F 0035DB 87 6F READ.F $6F 0035DD 22 MUL.F 0035DE 20 ADD.F 0035DF 87 37 READ.F $37 0035E1 87 67 READ.F $67 0035E3 22 MUL.F 0035E4 20 ADD.F 0035E5 97 0F WRITE.F $0F 0035E7 87 2F READ.F $2F 0035E9 87 77 READ.F $77 0035EB 22 MUL.F 0035EC 87 27 READ.F $27 0035EE 87 6F READ.F $6F 0035F0 22 MUL.F 0035F1 20 ADD.F 0035F2 87 1F READ.F $1F 0035F4 87 67 READ.F $67 0035F6 22 MUL.F 0035F7 20 ADD.F 0035F8 97 07 WRITE.F $07 0035FA 32 60 ADDSP.B $60 0035FC 34 RETURN ; ---------------- End Function $0035B8 ---------------- ; ---------------- Begin 2164 Function $0035FE ---------------- ; P0 = $00A0; P1 = $0020; P2 = $01 ; A0 = $004004; (A0) = A6 + $9F; D1 = $000020 ; called from $098B98:$099085 ; called from $0A3B38:$0A3B7F ; called from $0A3DBE:$0A3EA4 ; addr bytes opcode operands comment 003607 87 9F READ.F $9F 003609 87 BF READ.F $BF 00360B 22 MUL.F 00360C 87 97 READ.F $97 00360E 87 B7 READ.F $B7 003610 22 MUL.F 003611 20 ADD.F 003612 87 8F READ.F $8F 003614 87 AF READ.F $AF 003616 22 MUL.F 003617 20 ADD.F 003618 87 87 READ.F $87 00361A 87 A7 READ.F $A7 00361C 22 MUL.F 00361D 20 ADD.F 00361E 97 1F WRITE.F $1F 003620 87 7F READ.F $7F 003622 87 BF READ.F $BF 003624 22 MUL.F 003625 87 77 READ.F $77 003627 87 B7 READ.F $B7 003629 22 MUL.F 00362A 20 ADD.F 00362B 87 6F READ.F $6F 00362D 87 AF READ.F $AF 00362F 22 MUL.F 003630 20 ADD.F 003631 87 67 READ.F $67 003633 87 A7 READ.F $A7 003635 22 MUL.F 003636 20 ADD.F 003637 97 17 WRITE.F $17 003639 87 5F READ.F $5F 00363B 87 BF READ.F $BF 00363D 22 MUL.F 00363E 87 57 READ.F $57 003640 87 B7 READ.F $B7 003642 22 MUL.F 003643 20 ADD.F 003644 87 4F READ.F $4F 003646 87 AF READ.F $AF 003648 22 MUL.F 003649 20 ADD.F 00364A 87 47 READ.F $47 00364C 87 A7 READ.F $A7 00364E 22 MUL.F 00364F 20 ADD.F 003650 97 0F WRITE.F $0F 003652 87 3F READ.F $3F 003654 87 BF READ.F $BF 003656 22 MUL.F 003657 87 37 READ.F $37 003659 87 B7 READ.F $B7 00365B 22 MUL.F 00365C 20 ADD.F 00365D 87 2F READ.F $2F 00365F 87 AF READ.F $AF 003661 22 MUL.F 003662 20 ADD.F 003663 87 27 READ.F $27 003665 87 A7 READ.F $A7 003667 22 MUL.F 003668 20 ADD.F 003669 97 07 WRITE.F $07 00366B 32 A0 ADDSP.B $A0 00366D 34 RETURN ; ---------------- End Function $0035FE ---------------- ; ---------------- Begin 2164 Function $00366E ---------------- ; P0 = $0040; P1 = $0020; P2 = $01 ; A0 = $004004; (A0) = A6 + $3F; D1 = $000020 ; addr bytes opcode operands comment 003677 87 3F READ.F $3F 003679 87 5F READ.F $5F 00367B 22 MUL.F 00367C 87 37 READ.F $37 00367E 87 4F READ.F $4F 003680 22 MUL.F 003681 20 ADD.F 003682 97 1F WRITE.F $1F 003684 87 3F READ.F $3F 003686 87 57 READ.F $57 003688 22 MUL.F 003689 87 37 READ.F $37 00368B 87 47 READ.F $47 00368D 22 MUL.F 00368E 20 ADD.F 00368F 97 17 WRITE.F $17 003691 87 2F READ.F $2F 003693 87 5F READ.F $5F 003695 22 MUL.F 003696 87 27 READ.F $27 003698 87 4F READ.F $4F 00369A 22 MUL.F 00369B 20 ADD.F 00369C 97 0F WRITE.F $0F 00369E 87 2F READ.F $2F 0036A0 87 57 READ.F $57 0036A2 22 MUL.F 0036A3 87 27 READ.F $27 0036A5 87 47 READ.F $47 0036A7 22 MUL.F 0036A8 20 ADD.F 0036A9 97 07 WRITE.F $07 0036AB 32 40 ADDSP.B $40 0036AD 34 RETURN ; ---------------- End Function $00366E ---------------- ; ---------------- Begin 2164 Function $0036AE ---------------- ; P0 = $0090; P1 = $0048; P2 = $01 ; A0 = $004004; (A0) = A6 + $8F; D1 = $000048 ; addr bytes opcode operands comment 0036B7 87 8F READ.F $8F 0036B9 87 D7 READ.F $D7 0036BB 22 MUL.F 0036BC 87 87 READ.F $87 0036BE 87 BF READ.F $BF 0036C0 22 MUL.F 0036C1 20 ADD.F 0036C2 87 7F READ.F $7F 0036C4 87 A7 READ.F $A7 0036C6 22 MUL.F 0036C7 20 ADD.F 0036C8 97 47 WRITE.F $47 0036CA 87 8F READ.F $8F 0036CC 87 CF READ.F $CF 0036CE 22 MUL.F 0036CF 87 87 READ.F $87 0036D1 87 B7 READ.F $B7 0036D3 22 MUL.F 0036D4 20 ADD.F 0036D5 87 7F READ.F $7F 0036D7 87 9F READ.F $9F 0036D9 22 MUL.F 0036DA 20 ADD.F 0036DB 97 3F WRITE.F $3F 0036DD 87 8F READ.F $8F 0036DF 87 C7 READ.F $C7 0036E1 22 MUL.F 0036E2 87 87 READ.F $87 0036E4 87 AF READ.F $AF 0036E6 22 MUL.F 0036E7 20 ADD.F 0036E8 87 7F READ.F $7F 0036EA 87 97 READ.F $97 0036EC 22 MUL.F 0036ED 20 ADD.F 0036EE 97 37 WRITE.F $37 0036F0 87 77 READ.F $77 0036F2 87 D7 READ.F $D7 0036F4 22 MUL.F 0036F5 87 6F READ.F $6F 0036F7 87 BF READ.F $BF 0036F9 22 MUL.F 0036FA 20 ADD.F 0036FB 87 67 READ.F $67 0036FD 87 A7 READ.F $A7 0036FF 22 MUL.F 003700 20 ADD.F 003701 97 2F WRITE.F $2F 003703 87 77 READ.F $77 003705 87 CF READ.F $CF 003707 22 MUL.F 003708 87 6F READ.F $6F 00370A 87 B7 READ.F $B7 00370C 22 MUL.F 00370D 20 ADD.F 00370E 87 67 READ.F $67 003710 87 9F READ.F $9F 003712 22 MUL.F 003713 20 ADD.F 003714 97 27 WRITE.F $27 003716 87 77 READ.F $77 003718 87 C7 READ.F $C7 00371A 22 MUL.F 00371B 87 6F READ.F $6F 00371D 87 AF READ.F $AF 00371F 22 MUL.F 003720 20 ADD.F 003721 87 67 READ.F $67 003723 87 97 READ.F $97 003725 22 MUL.F 003726 20 ADD.F 003727 97 1F WRITE.F $1F 003729 87 5F READ.F $5F 00372B 87 D7 READ.F $D7 00372D 22 MUL.F 00372E 87 57 READ.F $57 003730 87 BF READ.F $BF 003732 22 MUL.F 003733 20 ADD.F 003734 87 4F READ.F $4F 003736 87 A7 READ.F $A7 003738 22 MUL.F 003739 20 ADD.F 00373A 97 17 WRITE.F $17 00373C 87 5F READ.F $5F 00373E 87 CF READ.F $CF 003740 22 MUL.F 003741 87 57 READ.F $57 003743 87 B7 READ.F $B7 003745 22 MUL.F 003746 20 ADD.F 003747 87 4F READ.F $4F 003749 87 9F READ.F $9F 00374B 22 MUL.F 00374C 20 ADD.F 00374D 97 0F WRITE.F $0F 00374F 87 5F READ.F $5F 003751 87 C7 READ.F $C7 003753 22 MUL.F 003754 87 57 READ.F $57 003756 87 AF READ.F $AF 003758 22 MUL.F 003759 20 ADD.F 00375A 87 4F READ.F $4F 00375C 87 97 READ.F $97 00375E 22 MUL.F 00375F 20 ADD.F 003760 97 07 WRITE.F $07 003762 32 90 ADDSP.B $90 003764 34 RETURN ; ---------------- End Function $0036AE ---------------- ; ---------------- Begin 2164 Function $003766 ---------------- ; P0 = $0100; P1 = $0080; P2 = $01 ; A0 = $004004; (A0) = A6 + $FF; D1 = $000080 ; called from $0A1128:$0A1293 ; called from $0A1F62:$0A1FB8 ; called from $0AE262:$0AE31A ; addr bytes opcode operands comment 00376F 87 FF READ.F $FF 003771 C7 01 7F READ.F $017F 003774 22 MUL.F 003775 87 F7 READ.F $F7 003777 C7 01 5F READ.F $015F 00377A 22 MUL.F 00377B 20 ADD.F 00377C 87 EF READ.F $EF 00377E C7 01 3F READ.F $013F 003781 22 MUL.F 003782 20 ADD.F 003783 87 E7 READ.F $E7 003785 C7 01 1F READ.F $011F 003788 22 MUL.F 003789 20 ADD.F 00378A 97 7F WRITE.F $7F 00378C 87 FF READ.F $FF 00378E C7 01 77 READ.F $0177 003791 22 MUL.F 003792 87 F7 READ.F $F7 003794 C7 01 57 READ.F $0157 003797 22 MUL.F 003798 20 ADD.F 003799 87 EF READ.F $EF 00379B C7 01 37 READ.F $0137 00379E 22 MUL.F 00379F 20 ADD.F 0037A0 87 E7 READ.F $E7 0037A2 C7 01 17 READ.F $0117 0037A5 22 MUL.F 0037A6 20 ADD.F 0037A7 97 77 WRITE.F $77 0037A9 87 FF READ.F $FF 0037AB C7 01 6F READ.F $016F 0037AE 22 MUL.F 0037AF 87 F7 READ.F $F7 0037B1 C7 01 4F READ.F $014F 0037B4 22 MUL.F 0037B5 20 ADD.F 0037B6 87 EF READ.F $EF 0037B8 C7 01 2F READ.F $012F 0037BB 22 MUL.F 0037BC 20 ADD.F 0037BD 87 E7 READ.F $E7 0037BF C7 01 0F READ.F $010F 0037C2 22 MUL.F 0037C3 20 ADD.F 0037C4 97 6F WRITE.F $6F 0037C6 87 FF READ.F $FF 0037C8 C7 01 67 READ.F $0167 0037CB 22 MUL.F 0037CC 87 F7 READ.F $F7 0037CE C7 01 47 READ.F $0147 0037D1 22 MUL.F 0037D2 20 ADD.F 0037D3 87 EF READ.F $EF 0037D5 C7 01 27 READ.F $0127 0037D8 22 MUL.F 0037D9 20 ADD.F 0037DA 87 E7 READ.F $E7 0037DC C7 01 07 READ.F $0107 0037DF 22 MUL.F 0037E0 20 ADD.F 0037E1 97 67 WRITE.F $67 0037E3 87 DF READ.F $DF 0037E5 C7 01 7F READ.F $017F 0037E8 22 MUL.F 0037E9 87 D7 READ.F $D7 0037EB C7 01 5F READ.F $015F 0037EE 22 MUL.F 0037EF 20 ADD.F 0037F0 87 CF READ.F $CF 0037F2 C7 01 3F READ.F $013F 0037F5 22 MUL.F 0037F6 20 ADD.F 0037F7 87 C7 READ.F $C7 0037F9 C7 01 1F READ.F $011F 0037FC 22 MUL.F 0037FD 20 ADD.F 0037FE 97 5F WRITE.F $5F 003800 87 DF READ.F $DF 003802 C7 01 77 READ.F $0177 003805 22 MUL.F 003806 87 D7 READ.F $D7 003808 C7 01 57 READ.F $0157 00380B 22 MUL.F 00380C 20 ADD.F 00380D 87 CF READ.F $CF 00380F C7 01 37 READ.F $0137 003812 22 MUL.F 003813 20 ADD.F 003814 87 C7 READ.F $C7 003816 C7 01 17 READ.F $0117 003819 22 MUL.F 00381A 20 ADD.F 00381B 97 57 WRITE.F $57 00381D 87 DF READ.F $DF 00381F C7 01 6F READ.F $016F 003822 22 MUL.F 003823 87 D7 READ.F $D7 003825 C7 01 4F READ.F $014F 003828 22 MUL.F 003829 20 ADD.F 00382A 87 CF READ.F $CF 00382C C7 01 2F READ.F $012F 00382F 22 MUL.F 003830 20 ADD.F 003831 87 C7 READ.F $C7 003833 C7 01 0F READ.F $010F 003836 22 MUL.F 003837 20 ADD.F 003838 97 4F WRITE.F $4F 00383A 87 DF READ.F $DF 00383C C7 01 67 READ.F $0167 00383F 22 MUL.F 003840 87 D7 READ.F $D7 003842 C7 01 47 READ.F $0147 003845 22 MUL.F 003846 20 ADD.F 003847 87 CF READ.F $CF 003849 C7 01 27 READ.F $0127 00384C 22 MUL.F 00384D 20 ADD.F 00384E 87 C7 READ.F $C7 003850 C7 01 07 READ.F $0107 003853 22 MUL.F 003854 20 ADD.F 003855 97 47 WRITE.F $47 003857 87 BF READ.F $BF 003859 C7 01 7F READ.F $017F 00385C 22 MUL.F 00385D 87 B7 READ.F $B7 00385F C7 01 5F READ.F $015F 003862 22 MUL.F 003863 20 ADD.F 003864 87 AF READ.F $AF 003866 C7 01 3F READ.F $013F 003869 22 MUL.F 00386A 20 ADD.F 00386B 87 A7 READ.F $A7 00386D C7 01 1F READ.F $011F 003870 22 MUL.F 003871 20 ADD.F 003872 97 3F WRITE.F $3F 003874 87 BF READ.F $BF 003876 C7 01 77 READ.F $0177 003879 22 MUL.F 00387A 87 B7 READ.F $B7 00387C C7 01 57 READ.F $0157 00387F 22 MUL.F 003880 20 ADD.F 003881 87 AF READ.F $AF 003883 C7 01 37 READ.F $0137 003886 22 MUL.F 003887 20 ADD.F 003888 87 A7 READ.F $A7 00388A C7 01 17 READ.F $0117 00388D 22 MUL.F 00388E 20 ADD.F 00388F 97 37 WRITE.F $37 003891 87 BF READ.F $BF 003893 C7 01 6F READ.F $016F 003896 22 MUL.F 003897 87 B7 READ.F $B7 003899 C7 01 4F READ.F $014F 00389C 22 MUL.F 00389D 20 ADD.F 00389E 87 AF READ.F $AF 0038A0 C7 01 2F READ.F $012F 0038A3 22 MUL.F 0038A4 20 ADD.F 0038A5 87 A7 READ.F $A7 0038A7 C7 01 0F READ.F $010F 0038AA 22 MUL.F 0038AB 20 ADD.F 0038AC 97 2F WRITE.F $2F 0038AE 87 BF READ.F $BF 0038B0 C7 01 67 READ.F $0167 0038B3 22 MUL.F 0038B4 87 B7 READ.F $B7 0038B6 C7 01 47 READ.F $0147 0038B9 22 MUL.F 0038BA 20 ADD.F 0038BB 87 AF READ.F $AF 0038BD C7 01 27 READ.F $0127 0038C0 22 MUL.F 0038C1 20 ADD.F 0038C2 87 A7 READ.F $A7 0038C4 C7 01 07 READ.F $0107 0038C7 22 MUL.F 0038C8 20 ADD.F 0038C9 97 27 WRITE.F $27 0038CB 87 9F READ.F $9F 0038CD C7 01 7F READ.F $017F 0038D0 22 MUL.F 0038D1 87 97 READ.F $97 0038D3 C7 01 5F READ.F $015F 0038D6 22 MUL.F 0038D7 20 ADD.F 0038D8 87 8F READ.F $8F 0038DA C7 01 3F READ.F $013F 0038DD 22 MUL.F 0038DE 20 ADD.F 0038DF 87 87 READ.F $87 0038E1 C7 01 1F READ.F $011F 0038E4 22 MUL.F 0038E5 20 ADD.F 0038E6 97 1F WRITE.F $1F 0038E8 87 9F READ.F $9F 0038EA C7 01 77 READ.F $0177 0038ED 22 MUL.F 0038EE 87 97 READ.F $97 0038F0 C7 01 57 READ.F $0157 0038F3 22 MUL.F 0038F4 20 ADD.F 0038F5 87 8F READ.F $8F 0038F7 C7 01 37 READ.F $0137 0038FA 22 MUL.F 0038FB 20 ADD.F 0038FC 87 87 READ.F $87 0038FE C7 01 17 READ.F $0117 003901 22 MUL.F 003902 20 ADD.F 003903 97 17 WRITE.F $17 003905 87 9F READ.F $9F 003907 C7 01 6F READ.F $016F 00390A 22 MUL.F 00390B 87 97 READ.F $97 00390D C7 01 4F READ.F $014F 003910 22 MUL.F 003911 20 ADD.F 003912 87 8F READ.F $8F 003914 C7 01 2F READ.F $012F 003917 22 MUL.F 003918 20 ADD.F 003919 87 87 READ.F $87 00391B C7 01 0F READ.F $010F 00391E 22 MUL.F 00391F 20 ADD.F 003920 97 0F WRITE.F $0F 003922 87 9F READ.F $9F 003924 C7 01 67 READ.F $0167 003927 22 MUL.F 003928 87 97 READ.F $97 00392A C7 01 47 READ.F $0147 00392D 22 MUL.F 00392E 20 ADD.F 00392F 87 8F READ.F $8F 003931 C7 01 27 READ.F $0127 003934 22 MUL.F 003935 20 ADD.F 003936 87 87 READ.F $87 003938 C7 01 07 READ.F $0107 00393B 22 MUL.F 00393C 20 ADD.F 00393D 97 07 WRITE.F $07 00393F 03 2E 01 00 ADDSP.W $0100 003943 34 RETURN ; ---------------- End Function $003766 ---------------- ; ---------------- Begin 2164 Function $003944 ---------------- ; P0 = $0020; P1 = $0020; P2 = $01 ; A0 = $004004; (A0) = A6 + $1F; D1 = $000020 ; called from $0A2E20:$0A2F88 ; addr bytes opcode operands comment 00394D 31 08 SUBSP.B $08 00394F 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 003958 87 3F READ.F $3F 00395A 87 27 READ.F $27 00395C 22 MUL.F 00395D 87 37 READ.F $37 00395F 87 2F READ.F $2F 003961 22 MUL.F 003962 21 SUB.F 003963 23 DIV.F 003964 97 47 WRITE.F $47 003966 87 27 READ.F $27 003968 87 47 READ.F $47 00396A 22 MUL.F 00396B 97 1F WRITE.F $1F 00396D 87 37 READ.F $37 00396F 87 47 READ.F $47 003971 22 MUL.F 003972 03 20 NEG.W 003974 97 17 WRITE.F $17 003976 87 2F READ.F $2F 003978 87 47 READ.F $47 00397A 22 MUL.F 00397B 03 20 NEG.W 00397D 97 0F WRITE.F $0F 00397F 87 3F READ.F $3F 003981 87 47 READ.F $47 003983 22 MUL.F 003984 97 07 WRITE.F $07 003986 32 28 ADDSP.B $28 003988 34 RETURN ; ---------------- End Function $003944 ---------------- ; ---------------- Begin 2164 Function $00398A ---------------- ; P0 = $0048; P1 = $0048; P2 = $01 ; A0 = $004004; (A0) = A6 + $47; D1 = $000048 ; called from $095C50:$095CFC ; called from $0A148A:$0A153E ; called from $0A209C:$0A20FD ; called from $0A34CE:$0A3583 ; called from $0AE4A6:$0AE53D ; addr bytes opcode operands comment 003993 31 5A SUBSP.B $5A 003995 87 6F READ.F $6F 003997 87 4F READ.F $4F 003999 22 MUL.F 00399A 87 67 READ.F $67 00399C 87 57 READ.F $57 00399E 22 MUL.F 00399F 21 SUB.F 0039A0 97 A7 WRITE.F $A7 0039A2 87 67 READ.F $67 0039A4 87 5F READ.F $5F 0039A6 22 MUL.F 0039A7 87 77 READ.F $77 0039A9 87 4F READ.F $4F 0039AB 22 MUL.F 0039AC 21 SUB.F 0039AD 97 AF WRITE.F $AF 0039AF 87 77 READ.F $77 0039B1 87 57 READ.F $57 0039B3 22 MUL.F 0039B4 87 6F READ.F $6F 0039B6 87 5F READ.F $5F 0039B8 22 MUL.F 0039B9 21 SUB.F 0039BA 97 B7 WRITE.F $B7 0039BC 87 7F READ.F $7F 0039BE 87 57 READ.F $57 0039C0 22 MUL.F 0039C1 87 87 READ.F $87 0039C3 87 4F READ.F $4F 0039C5 22 MUL.F 0039C6 21 SUB.F 0039C7 97 BF WRITE.F $BF 0039C9 87 8F READ.F $8F 0039CB 87 4F READ.F $4F 0039CD 22 MUL.F 0039CE 87 7F READ.F $7F 0039D0 87 5F READ.F $5F 0039D2 22 MUL.F 0039D3 21 SUB.F 0039D4 97 C7 WRITE.F $C7 0039D6 87 87 READ.F $87 0039D8 87 5F READ.F $5F 0039DA 22 MUL.F 0039DB 87 8F READ.F $8F 0039DD 87 57 READ.F $57 0039DF 22 MUL.F 0039E0 21 SUB.F 0039E1 97 CF WRITE.F $CF 0039E3 87 87 READ.F $87 0039E5 87 67 READ.F $67 0039E7 22 MUL.F 0039E8 87 7F READ.F $7F 0039EA 87 6F READ.F $6F 0039EC 22 MUL.F 0039ED 21 SUB.F 0039EE 97 D7 WRITE.F $D7 0039F0 87 7F READ.F $7F 0039F2 87 77 READ.F $77 0039F4 22 MUL.F 0039F5 87 8F READ.F $8F 0039F7 87 67 READ.F $67 0039F9 22 MUL.F 0039FA 21 SUB.F 0039FB 97 DF WRITE.F $DF 0039FD 87 8F READ.F $8F 0039FF 87 6F READ.F $6F 003A01 22 MUL.F 003A02 87 87 READ.F $87 003A04 87 77 READ.F $77 003A06 22 MUL.F 003A07 21 SUB.F 003A08 97 E7 WRITE.F $E7 003A0A 87 8F READ.F $8F 003A0C 87 A7 READ.F $A7 003A0E 22 MUL.F 003A0F 87 87 READ.F $87 003A11 87 AF READ.F $AF 003A13 22 MUL.F 003A14 20 ADD.F 003A15 87 7F READ.F $7F 003A17 87 B7 READ.F $B7 003A19 22 MUL.F 003A1A 20 ADD.F 003A1B 97 97 WRITE.F $97 003A1D 87 97 READ.F $97 003A1F 3E PUSH.W $0000 003A20 03 23 NEQ.F 003A22 18 4F BRZ $04F ; => $003A73 003A24 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 003A2D 87 97 READ.F $97 003A2F 23 DIV.F 003A30 97 9F WRITE.F $9F 003A32 87 A7 READ.F $A7 003A34 87 9F READ.F $9F 003A36 22 MUL.F 003A37 97 47 WRITE.F $47 003A39 87 BF READ.F $BF 003A3B 87 9F READ.F $9F 003A3D 22 MUL.F 003A3E 97 3F WRITE.F $3F 003A40 87 D7 READ.F $D7 003A42 87 9F READ.F $9F 003A44 22 MUL.F 003A45 97 37 WRITE.F $37 003A47 87 AF READ.F $AF 003A49 87 9F READ.F $9F 003A4B 22 MUL.F 003A4C 97 2F WRITE.F $2F 003A4E 87 C7 READ.F $C7 003A50 87 9F READ.F $9F 003A52 22 MUL.F 003A53 97 27 WRITE.F $27 003A55 87 DF READ.F $DF 003A57 87 9F READ.F $9F 003A59 22 MUL.F 003A5A 97 1F WRITE.F $1F 003A5C 87 B7 READ.F $B7 003A5E 87 9F READ.F $9F 003A60 22 MUL.F 003A61 97 17 WRITE.F $17 003A63 87 CF READ.F $CF 003A65 87 9F READ.F $9F 003A67 22 MUL.F 003A68 97 0F WRITE.F $0F 003A6A 87 E7 READ.F $E7 003A6C 87 9F READ.F $9F 003A6E 22 MUL.F 003A6F 97 07 WRITE.F $07 003A71 10 2C BR $02C ; => $003A9F 003A73 40 PUSH.6 $00 003A74 36 10 E8 _2362 $00E8 ; A0 = $004000; (A0) = A6 + $0 003A77 42 PUSH.6 $02 003A78 38 00 24 BLS.B $0024 ; => $003A9F 003A7B 40 PUSH.6 $00 003A7C 36 10 E9 _2362 $00E9 ; A0 = $004000; (A0) = A6 + $0 003A7F 42 PUSH.6 $02 003A80 38 00 17 BLS.B $0017 ; => $003A9A 003A83 84 E8 READ.B $E8 003A85 43 PUSH.6 $03 003A86 29 MUL.L 003A87 84 E9 READ.B $E9 003A89 27 ADD.L 003A8A 3B 54 B2 49 AD 25 94 C3 7D PUSH.F $54B249AD2594C37D ; float = 10000000000000000159028911097599180468360808563945281389781327557747838772170381060813469985856815104.000000 003A93 B7 47 WRITE.F $47 003A95 37 10 E9 00 1B _23d2 $00E9, $001B 003A9A 37 10 E8 00 28 _23d2 $00E8, $0028 003A9F 32 A2 ADDSP.B $A2 003AA1 34 RETURN ; ---------------- End Function $00398A ---------------- ; ---------------- Begin 2164 Function $003AA2 ---------------- ; P0 = $0080; P1 = $0080; P2 = $01 ; A0 = $004004; (A0) = A6 + $7F; D1 = $000080 ; called from $098B98:$098F37 ; called from $0A12EC:$0A1423 ; called from $0A1FE2:$0A205C ; called from $0A3DBE:$0A3E92 ; called from $0AE372:$0AE43A ; addr bytes opcode operands comment 003AAB 03 2D 01 22 SUBSP.W $0122 003AAF 87 DF READ.F $DF 003AB1 87 B7 READ.F $B7 003AB3 22 MUL.F 003AB4 87 D7 READ.F $D7 003AB6 87 BF READ.F $BF 003AB8 22 MUL.F 003AB9 21 SUB.F 003ABA D7 01 17 WRITE.F $0117 003ABD 87 DF READ.F $DF 003ABF 87 AF READ.F $AF 003AC1 22 MUL.F 003AC2 87 CF READ.F $CF 003AC4 87 BF READ.F $BF 003AC6 22 MUL.F 003AC7 21 SUB.F 003AC8 D7 01 1F WRITE.F $011F 003ACB 87 DF READ.F $DF 003ACD 87 A7 READ.F $A7 003ACF 22 MUL.F 003AD0 87 C7 READ.F $C7 003AD2 87 BF READ.F $BF 003AD4 22 MUL.F 003AD5 21 SUB.F 003AD6 D7 01 27 WRITE.F $0127 003AD9 87 DF READ.F $DF 003ADB 87 97 READ.F $97 003ADD 22 MUL.F 003ADE 87 D7 READ.F $D7 003AE0 87 9F READ.F $9F 003AE2 22 MUL.F 003AE3 21 SUB.F 003AE4 D7 01 2F WRITE.F $012F 003AE7 87 DF READ.F $DF 003AE9 87 8F READ.F $8F 003AEB 22 MUL.F 003AEC 87 CF READ.F $CF 003AEE 87 9F READ.F $9F 003AF0 22 MUL.F 003AF1 21 SUB.F 003AF2 D7 01 37 WRITE.F $0137 003AF5 87 DF READ.F $DF 003AF7 87 87 READ.F $87 003AF9 22 MUL.F 003AFA 87 C7 READ.F $C7 003AFC 87 9F READ.F $9F 003AFE 22 MUL.F 003AFF 21 SUB.F 003B00 D7 01 3F WRITE.F $013F 003B03 87 D7 READ.F $D7 003B05 87 AF READ.F $AF 003B07 22 MUL.F 003B08 87 CF READ.F $CF 003B0A 87 B7 READ.F $B7 003B0C 22 MUL.F 003B0D 21 SUB.F 003B0E D7 01 47 WRITE.F $0147 003B11 87 D7 READ.F $D7 003B13 87 A7 READ.F $A7 003B15 22 MUL.F 003B16 87 C7 READ.F $C7 003B18 87 B7 READ.F $B7 003B1A 22 MUL.F 003B1B 21 SUB.F 003B1C D7 01 4F WRITE.F $014F 003B1F 87 D7 READ.F $D7 003B21 87 8F READ.F $8F 003B23 22 MUL.F 003B24 87 CF READ.F $CF 003B26 87 97 READ.F $97 003B28 22 MUL.F 003B29 21 SUB.F 003B2A D7 01 57 WRITE.F $0157 003B2D 87 D7 READ.F $D7 003B2F 87 87 READ.F $87 003B31 22 MUL.F 003B32 87 C7 READ.F $C7 003B34 87 97 READ.F $97 003B36 22 MUL.F 003B37 21 SUB.F 003B38 D7 01 5F WRITE.F $015F 003B3B 87 CF READ.F $CF 003B3D 87 A7 READ.F $A7 003B3F 22 MUL.F 003B40 87 C7 READ.F $C7 003B42 87 AF READ.F $AF 003B44 22 MUL.F 003B45 21 SUB.F 003B46 D7 01 67 WRITE.F $0167 003B49 87 CF READ.F $CF 003B4B 87 87 READ.F $87 003B4D 22 MUL.F 003B4E 87 C7 READ.F $C7 003B50 87 8F READ.F $8F 003B52 22 MUL.F 003B53 21 SUB.F 003B54 D7 01 6F WRITE.F $016F 003B57 87 BF READ.F $BF 003B59 87 97 READ.F $97 003B5B 22 MUL.F 003B5C 87 B7 READ.F $B7 003B5E 87 9F READ.F $9F 003B60 22 MUL.F 003B61 21 SUB.F 003B62 D7 01 77 WRITE.F $0177 003B65 87 BF READ.F $BF 003B67 87 8F READ.F $8F 003B69 22 MUL.F 003B6A 87 AF READ.F $AF 003B6C 87 9F READ.F $9F 003B6E 22 MUL.F 003B6F 21 SUB.F 003B70 D7 01 7F WRITE.F $017F 003B73 87 BF READ.F $BF 003B75 87 87 READ.F $87 003B77 22 MUL.F 003B78 87 A7 READ.F $A7 003B7A 87 9F READ.F $9F 003B7C 22 MUL.F 003B7D 21 SUB.F 003B7E D7 01 87 WRITE.F $0187 003B81 87 B7 READ.F $B7 003B83 87 8F READ.F $8F 003B85 22 MUL.F 003B86 87 AF READ.F $AF 003B88 87 97 READ.F $97 003B8A 22 MUL.F 003B8B 21 SUB.F 003B8C D7 01 8F WRITE.F $018F 003B8F 87 B7 READ.F $B7 003B91 87 87 READ.F $87 003B93 22 MUL.F 003B94 87 A7 READ.F $A7 003B96 87 97 READ.F $97 003B98 22 MUL.F 003B99 21 SUB.F 003B9A D7 01 97 WRITE.F $0197 003B9D 87 AF READ.F $AF 003B9F 87 87 READ.F $87 003BA1 22 MUL.F 003BA2 87 A7 READ.F $A7 003BA4 87 8F READ.F $8F 003BA6 22 MUL.F 003BA7 21 SUB.F 003BA8 D7 01 9F WRITE.F $019F 003BAB 87 D7 READ.F $D7 003BAD C7 01 9F READ.F $019F 003BB0 22 MUL.F 003BB1 87 CF READ.F $CF 003BB3 C7 01 97 READ.F $0197 003BB6 22 MUL.F 003BB7 21 SUB.F 003BB8 87 C7 READ.F $C7 003BBA C7 01 8F READ.F $018F 003BBD 22 MUL.F 003BBE 20 ADD.F 003BBF D7 01 A7 WRITE.F $01A7 003BC2 87 DF READ.F $DF 003BC4 C7 01 9F READ.F $019F 003BC7 22 MUL.F 003BC8 03 20 NEG.W 003BCA 87 CF READ.F $CF 003BCC C7 01 87 READ.F $0187 003BCF 22 MUL.F 003BD0 20 ADD.F 003BD1 87 C7 READ.F $C7 003BD3 C7 01 7F READ.F $017F 003BD6 22 MUL.F 003BD7 21 SUB.F 003BD8 D7 01 AF WRITE.F $01AF 003BDB 87 DF READ.F $DF 003BDD C7 01 97 READ.F $0197 003BE0 22 MUL.F 003BE1 87 D7 READ.F $D7 003BE3 C7 01 87 READ.F $0187 003BE6 22 MUL.F 003BE7 21 SUB.F 003BE8 87 C7 READ.F $C7 003BEA C7 01 77 READ.F $0177 003BED 22 MUL.F 003BEE 20 ADD.F 003BEF D7 01 B7 WRITE.F $01B7 003BF2 87 DF READ.F $DF 003BF4 C7 01 8F READ.F $018F 003BF7 22 MUL.F 003BF8 03 20 NEG.W 003BFA 87 D7 READ.F $D7 003BFC C7 01 7F READ.F $017F 003BFF 22 MUL.F 003C00 20 ADD.F 003C01 87 CF READ.F $CF 003C03 C7 01 77 READ.F $0177 003C06 22 MUL.F 003C07 21 SUB.F 003C08 D7 01 BF WRITE.F $01BF 003C0B 87 F7 READ.F $F7 003C0D C7 01 9F READ.F $019F 003C10 22 MUL.F 003C11 03 20 NEG.W 003C13 87 EF READ.F $EF 003C15 C7 01 97 READ.F $0197 003C18 22 MUL.F 003C19 20 ADD.F 003C1A 87 E7 READ.F $E7 003C1C C7 01 8F READ.F $018F 003C1F 22 MUL.F 003C20 21 SUB.F 003C21 D7 01 C7 WRITE.F $01C7 003C24 87 FF READ.F $FF 003C26 C7 01 9F READ.F $019F 003C29 22 MUL.F 003C2A 87 EF READ.F $EF 003C2C C7 01 87 READ.F $0187 003C2F 22 MUL.F 003C30 21 SUB.F 003C31 87 E7 READ.F $E7 003C33 C7 01 7F READ.F $017F 003C36 22 MUL.F 003C37 20 ADD.F 003C38 D7 01 CF WRITE.F $01CF 003C3B 87 FF READ.F $FF 003C3D C7 01 97 READ.F $0197 003C40 22 MUL.F 003C41 03 20 NEG.W 003C43 87 F7 READ.F $F7 003C45 C7 01 87 READ.F $0187 003C48 22 MUL.F 003C49 20 ADD.F 003C4A 87 E7 READ.F $E7 003C4C C7 01 77 READ.F $0177 003C4F 22 MUL.F 003C50 21 SUB.F 003C51 D7 01 D7 WRITE.F $01D7 003C54 87 FF READ.F $FF 003C56 C7 01 8F READ.F $018F 003C59 22 MUL.F 003C5A 87 F7 READ.F $F7 003C5C C7 01 7F READ.F $017F 003C5F 22 MUL.F 003C60 21 SUB.F 003C61 87 EF READ.F $EF 003C63 C7 01 77 READ.F $0177 003C66 22 MUL.F 003C67 20 ADD.F 003C68 D7 01 DF WRITE.F $01DF 003C6B 87 F7 READ.F $F7 003C6D C7 01 6F READ.F $016F 003C70 22 MUL.F 003C71 87 EF READ.F $EF 003C73 C7 01 5F READ.F $015F 003C76 22 MUL.F 003C77 21 SUB.F 003C78 87 E7 READ.F $E7 003C7A C7 01 57 READ.F $0157 003C7D 22 MUL.F 003C7E 20 ADD.F 003C7F D7 01 E7 WRITE.F $01E7 003C82 87 FF READ.F $FF 003C84 C7 01 6F READ.F $016F 003C87 22 MUL.F 003C88 03 20 NEG.W 003C8A 87 EF READ.F $EF 003C8C C7 01 3F READ.F $013F 003C8F 22 MUL.F 003C90 20 ADD.F 003C91 87 E7 READ.F $E7 003C93 C7 01 37 READ.F $0137 003C96 22 MUL.F 003C97 21 SUB.F 003C98 D7 01 EF WRITE.F $01EF 003C9B 87 FF READ.F $FF 003C9D C7 01 5F READ.F $015F 003CA0 22 MUL.F 003CA1 87 F7 READ.F $F7 003CA3 C7 01 3F READ.F $013F 003CA6 22 MUL.F 003CA7 21 SUB.F 003CA8 87 E7 READ.F $E7 003CAA C7 01 2F READ.F $012F 003CAD 22 MUL.F 003CAE 20 ADD.F 003CAF D7 01 F7 WRITE.F $01F7 003CB2 87 FF READ.F $FF 003CB4 C7 01 57 READ.F $0157 003CB7 22 MUL.F 003CB8 03 20 NEG.W 003CBA 87 F7 READ.F $F7 003CBC C7 01 37 READ.F $0137 003CBF 22 MUL.F 003CC0 20 ADD.F 003CC1 87 EF READ.F $EF 003CC3 C7 01 2F READ.F $012F 003CC6 22 MUL.F 003CC7 21 SUB.F 003CC8 D7 01 FF WRITE.F $01FF 003CCB 87 F7 READ.F $F7 003CCD C7 01 67 READ.F $0167 003CD0 22 MUL.F 003CD1 03 20 NEG.W 003CD3 87 EF READ.F $EF 003CD5 C7 01 4F READ.F $014F 003CD8 22 MUL.F 003CD9 20 ADD.F 003CDA 87 E7 READ.F $E7 003CDC C7 01 47 READ.F $0147 003CDF 22 MUL.F 003CE0 21 SUB.F 003CE1 D7 02 07 WRITE.F $0207 003CE4 87 FF READ.F $FF 003CE6 C7 01 67 READ.F $0167 003CE9 22 MUL.F 003CEA 87 EF READ.F $EF 003CEC C7 01 27 READ.F $0127 003CEF 22 MUL.F 003CF0 21 SUB.F 003CF1 87 E7 READ.F $E7 003CF3 C7 01 1F READ.F $011F 003CF6 22 MUL.F 003CF7 20 ADD.F 003CF8 D7 02 0F WRITE.F $020F 003CFB 87 FF READ.F $FF 003CFD C7 01 4F READ.F $014F 003D00 22 MUL.F 003D01 03 20 NEG.W 003D03 87 F7 READ.F $F7 003D05 C7 01 27 READ.F $0127 003D08 22 MUL.F 003D09 20 ADD.F 003D0A 87 E7 READ.F $E7 003D0C C7 01 17 READ.F $0117 003D0F 22 MUL.F 003D10 21 SUB.F 003D11 D7 02 17 WRITE.F $0217 003D14 87 FF READ.F $FF 003D16 C7 01 47 READ.F $0147 003D19 22 MUL.F 003D1A 87 F7 READ.F $F7 003D1C C7 01 1F READ.F $011F 003D1F 22 MUL.F 003D20 21 SUB.F 003D21 87 EF READ.F $EF 003D23 C7 01 17 READ.F $0117 003D26 22 MUL.F 003D27 20 ADD.F 003D28 D7 02 1F WRITE.F $021F 003D2B 87 FF READ.F $FF 003D2D C7 01 A7 READ.F $01A7 003D30 22 MUL.F 003D31 87 F7 READ.F $F7 003D33 C7 01 AF READ.F $01AF 003D36 22 MUL.F 003D37 20 ADD.F 003D38 87 EF READ.F $EF 003D3A C7 01 B7 READ.F $01B7 003D3D 22 MUL.F 003D3E 20 ADD.F 003D3F 87 E7 READ.F $E7 003D41 C7 01 BF READ.F $01BF 003D44 22 MUL.F 003D45 20 ADD.F 003D46 D7 01 07 WRITE.F $0107 003D49 C7 01 07 READ.F $0107 003D4C 3E PUSH.W $0000 003D4D 03 23 NEQ.F 003D4F 18 A2 BRZ $0A2 ; => $003DF3 003D51 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 003D5A C7 01 07 READ.F $0107 003D5D 23 DIV.F 003D5E D7 01 0F WRITE.F $010F 003D61 C7 01 A7 READ.F $01A7 003D64 C7 01 0F READ.F $010F 003D67 22 MUL.F 003D68 97 7F WRITE.F $7F 003D6A C7 01 C7 READ.F $01C7 003D6D C7 01 0F READ.F $010F 003D70 22 MUL.F 003D71 97 77 WRITE.F $77 003D73 C7 01 E7 READ.F $01E7 003D76 C7 01 0F READ.F $010F 003D79 22 MUL.F 003D7A 97 6F WRITE.F $6F 003D7C C7 02 07 READ.F $0207 003D7F C7 01 0F READ.F $010F 003D82 22 MUL.F 003D83 97 67 WRITE.F $67 003D85 C7 01 AF READ.F $01AF 003D88 C7 01 0F READ.F $010F 003D8B 22 MUL.F 003D8C 97 5F WRITE.F $5F 003D8E C7 01 CF READ.F $01CF 003D91 C7 01 0F READ.F $010F 003D94 22 MUL.F 003D95 97 57 WRITE.F $57 003D97 C7 01 EF READ.F $01EF 003D9A C7 01 0F READ.F $010F 003D9D 22 MUL.F 003D9E 97 4F WRITE.F $4F 003DA0 C7 02 0F READ.F $020F 003DA3 C7 01 0F READ.F $010F 003DA6 22 MUL.F 003DA7 97 47 WRITE.F $47 003DA9 C7 01 B7 READ.F $01B7 003DAC C7 01 0F READ.F $010F 003DAF 22 MUL.F 003DB0 97 3F WRITE.F $3F 003DB2 C7 01 D7 READ.F $01D7 003DB5 C7 01 0F READ.F $010F 003DB8 22 MUL.F 003DB9 97 37 WRITE.F $37 003DBB C7 01 F7 READ.F $01F7 003DBE C7 01 0F READ.F $010F 003DC1 22 MUL.F 003DC2 97 2F WRITE.F $2F 003DC4 C7 02 17 READ.F $0217 003DC7 C7 01 0F READ.F $010F 003DCA 22 MUL.F 003DCB 97 27 WRITE.F $27 003DCD C7 01 BF READ.F $01BF 003DD0 C7 01 0F READ.F $010F 003DD3 22 MUL.F 003DD4 97 1F WRITE.F $1F 003DD6 C7 01 DF READ.F $01DF 003DD9 C7 01 0F READ.F $010F 003DDC 22 MUL.F 003DDD 97 17 WRITE.F $17 003DDF C7 01 FF READ.F $01FF 003DE2 C7 01 0F READ.F $010F 003DE5 22 MUL.F 003DE6 97 0F WRITE.F $0F 003DE8 C7 02 1F READ.F $021F 003DEB C7 01 0F READ.F $010F 003DEE 22 MUL.F 003DEF 97 07 WRITE.F $07 003DF1 10 2E BR $02E ; => $003E21 003DF3 40 PUSH.6 $00 003DF4 36 12 20 _2362 $0220 ; A0 = $004000; (A0) = A6 + $0 003DF7 43 PUSH.6 $03 003DF8 38 00 26 BLS.B $0026 ; => $003E21 003DFB 40 PUSH.6 $00 003DFC 36 12 21 _2362 $0221 ; A0 = $004000; (A0) = A6 + $0 003DFF 43 PUSH.6 $03 003E00 38 00 19 BLS.B $0019 ; => $003E1C 003E03 C4 02 20 READ.B $0220 003E06 44 PUSH.6 $04 003E07 29 MUL.L 003E08 C4 02 21 READ.B $0221 003E0B 27 ADD.L 003E0C 3B 54 B2 49 AD 25 94 C3 7D PUSH.F $54B249AD2594C37D ; float = 10000000000000000159028911097599180468360808563945281389781327557747838772170381060813469985856815104.000000 003E15 B7 7F WRITE.F $7F 003E17 37 12 21 00 1D _23d2 $0221, $001D 003E1C 37 12 20 00 2A _23d2 $0220, $002A 003E21 03 2E 01 A2 ADDSP.W $01A2 003E25 34 RETURN ; ---------------- End Function $003AA2 ---------------- ; ---------------- Begin 2144 Function $090030 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0902E0:$090319 ; called from $0902E0:$0903EB ; called from $09065A:$090668 ; addr bytes opcode operands comment 090037 50 PUSH.6 $10 090038 3F 10 44 41 54 41 20 44 45 DISP "DATA DECODE SV " 43 4F 44 45 20 53 56 20 20 09004A 5E PUSH.6 $1E 09004B C0 29 E3 READ.B $29E3 09004E 30 00 4B BSR.68K $004B ; => $090006 => $097B0A 090051 C1 29 E7 READ.W $29E7 090054 04 64 PUSH.10 $064 090056 03 25 LT.L 090058 18 04 BRZ $004 ; => $09005E 09005A 40 PUSH.6 $00 09005B D0 29 E3 WRITE.B $29E3 09005E 34 RETURN ; ---------------- End Function $090030 ---------------- ; ---------------- Begin 2144 Function $090060 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0902E0:$0903D4 ; called from $0902E0:$0903F0 ; addr bytes opcode operands comment 090067 31 04 SUBSP.B $04 090069 C0 29 9F READ.B $299F 09006C 18 03 BRZ $003 ; => $090071 09006E 41 PUSH.6 $01 09006F 10 01 BR $001 ; => $090072 090071 51 PUSH.6 $11 090072 94 02 WRITE.B $02 090074 40 PUSH.6 $00 090075 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 090078 C0 29 9B READ.B $299B 09007B 38 00 84 BLS.B $0084 ; => $090102 09007E 84 00 READ.B $00 090080 E0 40 09 READ.B $4009 090083 40 PUSH.6 $00 090084 2B NEQ.L 090085 84 00 READ.B $00 090087 E0 44 23 READ.B $4423 09008A C0 4E 65 READ.B $4E65 09008D 4A PUSH.6 $0A 09008E 2F MOD.L 09008F 48 PUSH.6 $08 090090 03 26 GT.L 090092 2D OR.L 090093 2C AND.L 090094 18 43 BRZ $043 ; => $0900D9 090096 84 02 READ.B $02 090098 84 00 READ.B $00 09009A E0 40 09 READ.B $4009 09009D 30 00 9A BSR.68K $009A ; => $090006 => $097B0A 0900A0 C0 55 63 READ.B $5563 0900A3 84 00 READ.B $00 0900A5 E0 44 23 READ.B $4423 0900A8 2C AND.L 0900A9 18 2C BRZ $02C ; => $0900D7 0900AB 40 PUSH.6 $00 0900AC 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0900AF C0 55 63 READ.B $5563 0900B2 41 PUSH.6 $01 0900B3 28 SUB.L 0900B4 38 00 20 BLS.B $0020 ; => $0900D7 0900B7 84 01 READ.B $01 0900B9 E0 47 6B READ.B $476B 0900BC 84 00 READ.B $00 0900BE 2A EQ.L 0900BF 18 11 BRZ $011 ; => $0900D2 0900C1 C0 55 62 READ.B $5562 0900C4 18 05 BRZ $005 ; => $0900CB 0900C6 84 02 READ.B $02 0900C8 30 00 B9 BSR.68K $00B9 ; => $090012 => $097B5C 0900CB 84 02 READ.B $02 0900CD 41 PUSH.6 $01 0900CE 27 ADD.L 0900CF 30 00 C0 BSR.68K $00C0 ; => $090012 => $097B5C 0900D2 37 10 01 00 28 _23d2 $0001, $0028 0900D7 10 15 BR $015 ; => $0900EE 0900D9 84 00 READ.B $00 0900DB E0 60 29 READ.B $6029 0900DE 18 08 BRZ $008 ; => $0900E8 0900E0 84 02 READ.B $02 0900E2 3F 02 2A 2A DISP "**" 0900E6 10 06 BR $006 ; => $0900EE 0900E8 84 02 READ.B $02 0900EA 3F 02 20 20 DISP " " 0900EE 84 02 READ.B $02 0900F0 84 02 READ.B $02 0900F2 4D PUSH.6 $0D 0900F3 2A EQ.L 0900F4 18 03 BRZ $003 ; => $0900F9 0900F6 45 PUSH.6 $05 0900F7 10 01 BR $001 ; => $0900FA 0900F9 43 PUSH.6 $03 0900FA 27 ADD.L 0900FB 94 02 WRITE.B $02 0900FD 37 10 00 00 8A _23d2 $0000, $008A 090102 32 04 ADDSP.B $04 090104 34 RETURN ; ---------------- End Function $090060 ---------------- ; ---------------- Begin 2144 Function $090106 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0902E0:$090311 ; called from $0902E0:$0903E3 ; addr bytes opcode operands comment 09010D C0 56 6D READ.B $566D 090110 18 5A BRZ $05A ; => $09016C 090112 C0 33 70 READ.B $3370 090115 41 PUSH.6 $01 090116 2A EQ.L 090117 18 11 BRZ $011 ; => $09012A 090119 40 PUSH.6 $00 09011A 3F 0C 44 41 54 41 2D 4C 4F DISP "DATA-LOGGING" 47 47 49 4E 47 090128 10 22 BR $022 ; => $09014C 09012A 40 PUSH.6 $00 09012B 3F 09 53 55 52 56 45 59 49 DISP "SURVEYING" 4E 47 090136 C0 29 8F READ.B $298F 090139 18 11 BRZ $011 ; => $09014C 09013B 4A PUSH.6 $0A 09013C 3F 02 4C 31 DISP "L1" 090140 C0 29 9C READ.B $299C 090143 18 07 BRZ $007 ; => $09014C 090145 72 PUSH.6 $32 090146 90 13 WRITE.B $13 090148 4B PUSH.6 $0B 090149 30 01 34 BSR.68K $0134 ; => $090018 => $097B72 09014C C0 32 D5 READ.B $32D5 09014F E0 2F 49 READ.B $2F49 090152 70 PUSH.6 $30 090153 27 ADD.L 090154 90 11 WRITE.B $11 090156 4E PUSH.6 $0E 090157 30 01 42 BSR.68K $0142 ; => $090018 => $097B72 09015A C0 32 D5 READ.B $32D5 09015D E0 2F 7B READ.B $2F7B 090160 18 04 BRZ $004 ; => $090166 090162 04 4D PUSH.10 $04D 090164 10 02 BR $002 ; => $090168 090166 04 41 PUSH.10 $041 090168 90 10 WRITE.B $10 09016A 10 32 BR $032 ; => $09019E 09016C 40 PUSH.6 $00 09016D 3F 0C 50 4F 53 49 54 49 4F DISP "POSITION FIX" 4E 20 46 49 58 09017B 70 PUSH.6 $30 09017C C0 29 0D READ.B $290D 09017F 27 ADD.L 090180 90 12 WRITE.B $12 090182 70 PUSH.6 $30 090183 C0 29 0C READ.B $290C 090186 27 ADD.L 090187 90 11 WRITE.B $11 090189 C0 28 FF READ.B $28FF 09018C 18 04 BRZ $004 ; => $090192 09018E 04 41 PUSH.10 $041 090190 10 02 BR $002 ; => $090194 090192 04 4D PUSH.10 $04D 090194 90 10 WRITE.B $10 090196 4D PUSH.6 $0D 090197 30 01 82 BSR.68K $0182 ; => $090018 => $097B72 09019A 4E PUSH.6 $0E 09019B 30 01 86 BSR.68K $0186 ; => $090018 => $097B72 09019E 34 RETURN ; ---------------- End Function $090106 ---------------- ; ---------------- Begin 2144 Function $0901A0 ---------------- ; A0 = $004008; (A0) = SP + $3 ; called from $0902E0:$09031F ; called from $0902E0:$0903DA ; addr bytes opcode operands comment 0901A7 C3 29 EF READ.F $29EF 0901AA 3E PUSH.W $0000 0901AB 03 23 NEQ.F 0901AD C0 56 6D READ.B $566D 0901B0 2E NOT.L 0901B1 2C AND.L 0901B2 18 55 BRZ $055 ; => $090209 0901B4 8A 03 READ.L $03 0901B6 41 PUSH.6 $01 0901B7 27 ADD.L 0901B8 3F 0F 48 49 47 48 20 50 44 DISP "HIGH PDOP =xxxx" 4F 50 20 3D 78 78 78 78 0901C9 8A 03 READ.L $03 0901CB 4C PUSH.6 $0C 0901CC 27 ADD.L 0901CD 44 PUSH.6 $04 0901CE C3 29 EF READ.F $29EF 0901D1 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0901DA 22 MUL.F 0901DB 30 01 DE BSR.68K $01DE ; => $090000 => $097AD2 0901DE 8A 03 READ.L $03 0901E0 4E PUSH.6 $0E 0901E1 27 ADD.L 0901E2 30 01 D3 BSR.68K $01D3 ; => $090012 => $097B5C 0901E5 8A 03 READ.L $03 0901E7 4C PUSH.6 $0C 0901E8 27 ADD.L 0901E9 A0 1F READ.B $1F 0901EB 70 PUSH.6 $30 0901EC 2A EQ.L 0901ED 18 18 BRZ $018 ; => $090207 0901EF 8A 03 READ.L $03 0901F1 4C PUSH.6 $0C 0901F2 27 ADD.L 0901F3 60 PUSH.6 $20 0901F4 B0 1F WRITE.B $1F 0901F6 8A 03 READ.L $03 0901F8 4D PUSH.6 $0D 0901F9 27 ADD.L 0901FA A0 1F READ.B $1F 0901FC 70 PUSH.6 $30 0901FD 2A EQ.L 0901FE 18 07 BRZ $007 ; => $090207 090200 8A 03 READ.L $03 090202 4D PUSH.6 $0D 090203 27 ADD.L 090204 60 PUSH.6 $20 090205 B0 1F WRITE.B $1F 090207 10 D3 BR $0D3 ; => $0902DC 090209 C0 29 F2 READ.B $29F2 09020C 18 12 BRZ $012 ; => $090220 09020E 8A 03 READ.L $03 090210 41 PUSH.6 $01 090211 27 ADD.L 090212 3F 0A 4E 45 45 44 20 33 20 DISP "NEED 3 SVS" 53 56 53 09021E 10 BC BR $0BC ; => $0902DC 090220 C0 67 EB READ.B $67EB 090223 18 B7 BRZ $0B7 ; => $0902DC 090225 C0 67 EB READ.B $67EB 090228 35 SWITCH 090229 10 26 04 CASE $04 ; SWITCH $090228 09022C C0 67 66 READ.B $6766 09022F 18 1E BRZ $01E ; => $09024F 090231 8A 03 READ.L $03 090233 3F 10 53 56 20 58 58 20 49 DISP "SV XX IS SUSPECT" 53 20 53 55 53 50 45 43 54 090245 8A 03 READ.L $03 090247 43 PUSH.6 $03 090248 27 ADD.L 090249 C0 67 66 READ.B $6766 09024C 30 02 49 BSR.68K $0249 ; => $090006 => $097B0A 09024F 10 8B BR $08B ; => $0902DC 090251 10 1C 03 CASE $03 ; SWITCH $090228 090254 C0 67 66 READ.B $6766 090257 18 14 BRZ $014 ; => $09026D 090259 8A 03 READ.L $03 09025B 3F 10 53 55 53 50 45 43 54 DISP "SUSPECT REF HGT " 20 52 45 46 20 48 47 54 20 09026D 10 6D BR $06D ; => $0902DC 09026F 10 17 02 CASE $02 ; SWITCH $090228 090272 8A 03 READ.L $03 090274 3F 10 53 55 53 50 45 43 54 DISP "SUSPECT CLK BIAS" 20 43 4C 4B 20 42 49 41 53 090286 10 54 BR $054 ; => $0902DC 090288 10 32 01 CASE $01 ; SWITCH $090228 09028B C0 67 66 READ.B $6766 09028E 18 16 BRZ $016 ; => $0902A6 090290 8A 03 READ.L $03 090292 3F 10 53 55 53 50 45 43 54 DISP "SUSPECT LAT/LONG" 20 4C 41 54 2F 4C 4F 4E 47 0902A4 10 14 BR $014 ; => $0902BA 0902A6 8A 03 READ.L $03 0902A8 3F 10 42 41 44 20 52 45 46 DISP "BAD REF LAT/LONG" 20 4C 41 54 2F 4C 4F 4E 47 0902BA 10 20 BR $020 ; => $0902DC 0902BC 10 03 09 CASE $09 ; SWITCH $090228 0902BF 10 1B BR $01B ; => $0902DC 0902C1 00 DEFAULT ; SWITCH $090228 0902C2 8A 03 READ.L $03 0902C4 3F 0C 50 4F 53 46 49 58 20 DISP "POSFIX ERROR" 45 52 52 4F 52 0902D2 8A 03 READ.L $03 0902D4 4D PUSH.6 $0D 0902D5 27 ADD.L 0902D6 C0 67 EB READ.B $67EB 0902D9 30 02 D6 BSR.68K $02D6 ; => $090006 => $097B0A 0902DC 32 04 ADDSP.B $04 0902DE 34 RETURN ; ---------------- End Function $0901A0 ---------------- ; ---------------- Begin 2144 Function $0902E0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0908BE:$09090A ; addr bytes opcode operands comment 0902E7 31 02 SUBSP.B $02 0902E9 C0 29 9F READ.B $299F 0902EC 18 EB BRZ $0EB ; => $0903D9 0902EE C0 4E 65 READ.B $4E65 0902F1 04 50 PUSH.10 $050 0902F3 2F MOD.L 0902F4 D0 4E 65 WRITE.B $4E65 0902F7 80 22 READ.B $22 0902F9 40 PUSH.6 $00 0902FA 2A EQ.L 0902FB C0 4E 65 READ.B $4E65 0902FE 68 PUSH.6 $28 0902FF 03 26 GT.L 090301 2C AND.L 090302 80 22 READ.B $22 090304 40 PUSH.6 $00 090305 2B NEQ.L 090306 80 23 READ.B $23 090308 40 PUSH.6 $00 090309 2A EQ.L 09030A 2C AND.L 09030B 2D OR.L 09030C 18 C3 BRZ $0C3 ; => $0903D1 09030E 40 PUSH.6 $00 09030F 90 23 WRITE.B $23 090311 30 02 0E BSR.68K $020E ; => $090106 090314 C0 29 E3 READ.B $29E3 090317 18 05 BRZ $005 ; => $09031E 090319 30 02 EC BSR.68K $02EC ; => $090030 09031C 10 04 BR $004 ; => $090322 09031E 50 PUSH.6 $10 09031F 30 01 82 BSR.68K $0182 ; => $0901A0 090322 80 0E READ.B $0E 090324 60 PUSH.6 $20 090325 2A EQ.L 090326 18 A7 BRZ $0A7 ; => $0903CF 090328 C0 29 E4 READ.B $29E4 09032B 18 35 BRZ $035 ; => $090362 09032D C0 35 7C READ.B $357C 090330 18 15 BRZ $015 ; => $090347 090332 50 PUSH.6 $10 090333 3F 10 41 4C 4C 20 53 56 20 DISP "ALL SV CLOCK FIX" 43 4C 4F 43 4B 20 46 49 58 090345 10 19 BR $019 ; => $090360 090347 51 PUSH.6 $11 090348 3F 0C 43 4C 4F 43 4B 20 46 DISP "CLOCK FIX SV" 49 58 20 53 56 090356 5D PUSH.6 $1D 090357 C0 47 6B READ.B $476B 09035A E0 40 09 READ.B $4009 09035D 30 03 5A BSR.68K $035A ; => $090006 => $097B0A 090360 10 6D BR $06D ; => $0903CF 090362 C0 55 63 READ.B $5563 090365 41 PUSH.6 $01 090366 03 25 LT.L 090368 18 65 BRZ $065 ; => $0903CF 09036A C0 55 62 READ.B $5562 09036D 35 SWITCH 09036E 10 16 04 CASE $04 ; SWITCH $09036D 090371 50 PUSH.6 $10 090372 3F 10 33 20 20 44 49 4D 45 DISP "3 DIMENSION FIX" 4E 53 49 4F 4E 20 46 49 58 090384 10 49 BR $049 ; => $0903CF 090386 10 16 03 CASE $03 ; SWITCH $09036D 090389 50 PUSH.6 $10 09038A 3F 10 32 44 20 46 49 58 45 DISP "2D FIXED HEIGHT" 44 20 20 48 45 49 47 48 54 09039C 10 31 BR $031 ; => $0903CF 09039E 10 16 02 CASE $02 ; SWITCH $09036D 0903A1 50 PUSH.6 $10 0903A2 3F 10 32 44 20 46 49 58 45 DISP "2D FIXED HGT/CLK" 44 20 48 47 54 2F 43 4C 4B 0903B4 10 19 BR $019 ; => $0903CF 0903B6 10 16 01 CASE $01 ; SWITCH $09036D 0903B9 50 PUSH.6 $10 0903BA 3F 10 31 44 20 46 49 58 45 DISP "1D FIXED LAT/LON" 44 20 4C 41 54 2F 4C 4F 4E 0903CC 10 01 BR $001 ; => $0903CF 0903CE 00 DEFAULT ; SWITCH $09036D 0903CF 10 06 BR $006 ; => $0903D7 0903D1 41 PUSH.6 $01 0903D2 90 23 WRITE.B $23 0903D4 30 03 77 BSR.68K $0377 ; => $090060 0903D7 10 1A BR $01A ; => $0903F3 0903D9 40 PUSH.6 $00 0903DA 30 02 3D BSR.68K $023D ; => $0901A0 0903DD 80 1E READ.B $1E 0903DF 60 PUSH.6 $20 0903E0 2A EQ.L 0903E1 18 03 BRZ $003 ; => $0903E6 0903E3 30 02 E0 BSR.68K $02E0 ; => $090106 0903E6 C0 29 E3 READ.B $29E3 0903E9 18 05 BRZ $005 ; => $0903F0 0903EB 30 03 BE BSR.68K $03BE ; => $090030 0903EE 10 03 BR $003 ; => $0903F3 0903F0 30 03 93 BSR.68K $0393 ; => $090060 0903F3 32 02 ADDSP.B $02 0903F5 34 RETURN ; ---------------- End Function $0902E0 ---------------- ; ---------------- Begin 2144 Function $0903FC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0908BE:$090905 ; addr bytes opcode operands comment 090403 31 0C SUBSP.B $0C 090405 40 PUSH.6 $00 090406 94 00 WRITE.B $00 090408 40 PUSH.6 $00 090409 94 0B WRITE.B $0B 09040B 41 PUSH.6 $01 09040C 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 09040F C0 29 9A READ.B $299A 090412 38 00 45 BLS.B $0045 ; => $09045A 090415 84 01 READ.B $01 090417 84 01 READ.B $01 090419 E3 34 2B READ.F $342B 09041C 30 04 01 BSR.68K $0401 ; => $09001E => $002B7E (NATIVE) 09041F 3B 40 20 00 00 00 00 00 00 PUSH.F $4020000000000000 ; float = 8.000000 090428 24 GT.F 090429 84 01 READ.B $01 09042B E3 34 7B READ.F $347B 09042E 30 04 13 BSR.68K $0413 ; => $09001E => $002B7E (NATIVE) 090431 3B 3F 80 62 4D D2 F1 A9 FC PUSH.F $3F80624DD2F1A9FC ; float = 0.008000 09043A 24 GT.F 09043B C0 29 91 READ.B $2991 09043E 2C AND.L 09043F 2D OR.L 090440 84 01 READ.B $01 090442 E0 54 41 READ.B $5441 090445 42 PUSH.6 $02 090446 03 25 LT.L 090448 2D OR.L 090449 B4 0B WRITE.B $0B 09044B 84 01 READ.B $01 09044D A4 0B READ.B $0B 09044F 18 04 BRZ $004 ; => $090455 090451 04 FF PUSH.10 $0FF 090453 94 00 WRITE.B $00 090455 37 10 01 00 4B _23d2 $0001, $004B 09045A 84 00 READ.B $00 09045C 18 0A BRZ $00A ; => $090468 09045E 09 00 0B 00 0A ?_$09 $000B, $000A 090463 30 00 70 BSR.68K $0070 ; => $0903F6 => $09259A 090466 10 27 BR $027 ; => $09048F 090468 41 PUSH.6 $01 090469 3F 0E 43 41 4C 49 42 52 41 DISP "CALIBRATION OK" 54 49 4F 4E 20 4F 4B 090479 C3 56 55 READ.F $5655 09047C 3E PUSH.W $0000 09047D 03 23 NEQ.F 09047F 18 0A BRZ $00A ; => $09048B 090481 C0 29 F1 READ.B $29F1 090484 41 PUSH.6 $01 090485 27 ADD.L 090486 4A PUSH.6 $0A 090487 2F MOD.L 090488 D0 29 F1 WRITE.B $29F1 09048B 40 PUSH.6 $00 09048C D0 29 E3 WRITE.B $29E3 09048F 32 0C ADDSP.B $0C 090491 34 RETURN ; ---------------- End Function $0903FC ---------------- ; ---------------- Begin 2144 Function $090492 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0908BE:$0908FB ; addr bytes opcode operands comment 090499 31 10 SUBSP.B $10 09049B C0 54 2C READ.B $542C 09049E 41 PUSH.6 $01 09049F 2A EQ.L 0904A0 C0 29 9C READ.B $299C 0904A3 2D OR.L 0904A4 C0 54 2C READ.B $542C 0904A7 42 PUSH.6 $02 0904A8 2B NEQ.L 0904A9 2C AND.L 0904AA C0 55 70 READ.B $5570 0904AD 49 PUSH.6 $09 0904AE 2B NEQ.L 0904AF 2C AND.L 0904B0 94 0E WRITE.B $0E 0904B2 84 0E READ.B $0E 0904B4 18 0F BRZ $00F ; => $0904C5 0904B6 40 PUSH.6 $00 0904B7 3F 0A 4C 32 20 20 20 43 41 DISP "L2 CALIB" 4C 49 42 0904C3 10 0E BR $00E ; => $0904D3 0904C5 40 PUSH.6 $00 0904C6 3F 0B 43 41 4C 49 42 52 41 DISP "CALIBRATION" 54 49 4F 4E 0904D3 50 PUSH.6 $10 0904D4 3F 10 53 56 2A 2A 20 45 4C DISP "SV** ELV** SNR**" 56 2A 2A 20 53 4E 52 2A 2A 0904E6 3E PUSH.W $0000 0904E7 97 0D WRITE.F $0D 0904E9 C0 29 9B READ.B $299B 0904EC 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0904EF 40 PUSH.6 $00 0904F0 3A 00 33 BGT.B $0033 ; => $090526 0904F3 84 00 READ.B $00 0904F5 E0 60 29 READ.B $6029 0904F8 84 00 READ.B $00 0904FA E0 44 23 READ.B $4423 0904FD 2E NOT.L 0904FE 2C AND.L 0904FF 18 05 BRZ $005 ; => $090506 090501 84 00 READ.B $00 090503 30 04 F4 BSR.68K $04F4 ; => $090012 => $097B5C 090506 84 00 READ.B $00 090508 E3 41 49 READ.F $4149 09050B 87 0D READ.F $0D 09050D 24 GT.F 09050E 84 00 READ.B $00 090510 E0 44 23 READ.B $4423 090513 2C AND.L 090514 18 0B BRZ $00B ; => $090521 090516 84 00 READ.B $00 090518 E3 41 49 READ.F $4149 09051B 97 0D WRITE.F $0D 09051D 84 00 READ.B $00 09051F 94 02 WRITE.B $02 090521 39 10 00 00 37 _23fc $1000, $0037 090526 87 0D READ.F $0D 090528 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 090531 20 ADD.F 090532 03 29 FLOAT2LONG 090534 94 01 WRITE.B $01 090536 C0 29 91 READ.B $2991 090539 18 0E BRZ $00E ; => $090549 09053B 84 0E READ.B $0E 09053D 18 05 BRZ $005 ; => $090544 09053F C1 33 DB READ.W $33DB 090542 10 03 BR $003 ; => $090547 090544 C1 33 D9 READ.W $33D9 090547 10 02 BR $002 ; => $09054B 090549 04 64 PUSH.10 $064 09054B 95 05 WRITE.W $05 09054D C1 54 37 READ.W $5437 090550 85 05 READ.W $05 090552 03 25 LT.L 090554 18 04 BRZ $004 ; => $09055A 090556 04 64 PUSH.10 $064 090558 95 05 WRITE.W $05 09055A 4C PUSH.6 $0C 09055B 44 PUSH.6 $04 09055C 85 05 READ.W $05 09055E C1 54 37 READ.W $5437 090561 28 SUB.L 090562 03 2A LONG2FLOAT 090564 30 05 67 BSR.68K $0567 ; => $090000 => $097AD2 090567 84 01 READ.B $01 090569 18 1D BRZ $01D ; => $090588 09056B 52 PUSH.6 $12 09056C 84 02 READ.B $02 09056E E0 40 09 READ.B $4009 090571 30 05 6E BSR.68K $056E ; => $090006 => $097B0A 090574 58 PUSH.6 $18 090575 84 02 READ.B $02 090577 E0 40 09 READ.B $4009 09057A E3 23 FF READ.F $23FF 09057D 03 29 FLOAT2LONG 09057F 30 05 7C BSR.68K $057C ; => $090006 => $097B0A 090582 5E PUSH.6 $1E 090583 84 01 READ.B $01 090585 30 05 82 BSR.68K $0582 ; => $090006 => $097B0A 090588 32 10 ADDSP.B $10 09058A 34 RETURN ; ---------------- End Function $090492 ---------------- ; ---------------- Begin 2144 Function $09058C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $093246:$093517 ; addr bytes opcode operands comment 090593 31 02 SUBSP.B $02 090595 30 05 8C BSR.68K $058C ; => $09000C => $0034AA (CLEARSCREEN) (NATIVE) 090598 C0 29 91 READ.B $2991 09059B 18 32 BRZ $032 ; => $0905CF 09059D C0 29 92 READ.B $2992 0905A0 18 11 BRZ $011 ; => $0905B3 0905A2 42 PUSH.6 $02 0905A3 3F 0C 34 30 30 30 20 4C 4F DISP "4000 LOCATOR" 43 41 54 4F 52 0905B1 10 1A BR $01A ; => $0905CD 0905B3 41 PUSH.6 $01 0905B4 3F 0E 34 30 30 30 20 20 53 DISP "4000 SURVEYOR" 55 52 56 45 59 4F 52 0905C4 C0 29 8F READ.B $298F 0905C7 18 04 BRZ $004 ; => $0905CD 0905C9 04 44 PUSH.10 $044 0905CB 90 1A WRITE.B $1A 0905CD 10 0E BR $00E ; => $0905DD 0905CF 41 PUSH.6 $01 0905D0 3F 0B 4D 4F 44 45 4C 20 20 DISP "MODEL 4000" 34 30 30 30 0905DD 54 PUSH.6 $14 0905DE 3F 0B 43 48 41 4E 4E 45 4C DISP "CHANNELS OK" 53 20 4F 4B 0905EB C0 29 9A READ.B $299A 0905EE 41 PUSH.6 $01 0905EF 27 ADD.L 0905F0 C0 29 AC READ.B $29AC 0905F3 28 SUB.L 0905F4 94 00 WRITE.B $00 0905F6 84 00 READ.B $00 0905F8 4A PUSH.6 $0A 0905F9 2A EQ.L 0905FA 18 07 BRZ $007 ; => $090603 0905FC 51 PUSH.6 $11 0905FD 3F 02 31 30 DISP "10" 090601 10 06 BR $006 ; => $090609 090603 70 PUSH.6 $30 090604 84 00 READ.B $00 090606 27 ADD.L 090607 90 0E WRITE.B $0E 090609 32 02 ADDSP.B $02 09060B 34 RETURN ; ---------------- End Function $09058C ---------------- ; ---------------- Begin 2144 Function $09060C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $090734:$0907B1 ; called from $090862:$0908B2 ; addr bytes opcode operands comment 090613 31 02 SUBSP.B $02 090615 40 PUSH.6 $00 090616 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 090619 49 PUSH.6 $09 09061A 38 00 3A BLS.B $003A ; => $090657 09061D 84 01 READ.B $01 09061F E0 60 29 READ.B $6029 090622 18 2E BRZ $02E ; => $090652 090624 43 PUSH.6 $03 090625 84 01 READ.B $01 090627 29 MUL.L 090628 84 01 READ.B $01 09062A 45 PUSH.6 $05 09062B 03 26 GT.L 09062D 18 03 BRZ $003 ; => $090632 09062F 41 PUSH.6 $01 090630 10 01 BR $001 ; => $090633 090632 43 PUSH.6 $03 090633 27 ADD.L 090634 94 00 WRITE.B $00 090636 C0 4E 65 READ.B $4E65 090639 4C PUSH.6 $0C 09063A 2F MOD.L 09063B 43 PUSH.6 $03 09063C 03 25 LT.L 09063E 18 0C BRZ $00C ; => $09064C 090640 84 00 READ.B $00 090642 84 01 READ.B $01 090644 E0 40 09 READ.B $4009 090647 30 06 44 BSR.68K $0644 ; => $090006 => $097B0A 09064A 10 06 BR $006 ; => $090652 09064C 84 00 READ.B $00 09064E 3F 02 2A 2A DISP "**" 090652 37 10 01 00 3E _23d2 $0001, $003E 090657 32 02 ADDSP.B $02 090659 34 RETURN ; ---------------- End Function $09060C ---------------- ; ---------------- Begin 2144 Function $09065A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $090734:$090774 ; called from $090734:$0907B9 ; called from $090862:$09089C ; called from $090862:$0908BA ; addr bytes opcode operands comment 090661 31 02 SUBSP.B $02 090663 C0 29 E3 READ.B $29E3 090666 18 05 BRZ $005 ; => $09066D 090668 30 06 3B BSR.68K $063B ; => $090030 09066B 10 84 BR $084 ; => $0906F1 09066D C0 29 E1 READ.B $29E1 090670 18 45 BRZ $045 ; => $0906B7 090672 53 PUSH.6 $13 090673 3F 0B 47 45 54 20 44 41 54 DISP "GET DATA SV" 41 20 53 56 090680 5E PUSH.6 $1E 090681 C0 29 E1 READ.B $29E1 090684 30 06 81 BSR.68K $0681 ; => $090006 => $097B0A 090687 50 PUSH.6 $10 090688 C1 29 E7 READ.W $29E7 09068B 72 PUSH.6 $32 09068C 03 24 DIV.L 09068E 5E PUSH.6 $1E 09068F 2F MOD.L 090690 30 06 8D BSR.68K $068D ; => $090006 => $097B0A 090693 C0 29 E2 READ.B $29E2 090696 35 SWITCH 090697 30 09 00 02 06 CASE $00, $02, $06 ; SWITCH $090696 09069C 04 41 PUSH.10 $041 09069E 90 0F WRITE.B $0F 0906A0 10 13 BR $013 ; => $0906B5 0906A2 10 07 0E CASE $0E ; SWITCH $090696 0906A5 04 42 PUSH.10 $042 0906A7 90 0F WRITE.B $0F 0906A9 10 0A BR $00A ; => $0906B5 0906AB 10 07 1E CASE $1E ; SWITCH $090696 0906AE 04 43 PUSH.10 $043 0906B0 90 0F WRITE.B $0F 0906B2 10 01 BR $001 ; => $0906B5 0906B4 00 DEFAULT ; SWITCH $090696 0906B5 10 3A BR $03A ; => $0906F1 0906B7 40 PUSH.6 $00 0906B8 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0906BB C0 29 9B READ.B $299B 0906BE 38 00 30 BLS.B $0030 ; => $0906F1 0906C1 84 00 READ.B $00 0906C3 E0 60 29 READ.B $6029 0906C6 18 24 BRZ $024 ; => $0906EC 0906C8 51 PUSH.6 $11 0906C9 43 PUSH.6 $03 0906CA 84 00 READ.B $00 0906CC 29 MUL.L 0906CD 27 ADD.L 0906CE 94 01 WRITE.B $01 0906D0 C0 4E 65 READ.B $4E65 0906D3 4A PUSH.6 $0A 0906D4 2F MOD.L 0906D5 48 PUSH.6 $08 0906D6 03 26 GT.L 0906D8 18 0C BRZ $00C ; => $0906E6 0906DA 84 01 READ.B $01 0906DC 84 00 READ.B $00 0906DE E0 40 09 READ.B $4009 0906E1 30 06 DE BSR.68K $06DE ; => $090006 => $097B0A 0906E4 10 06 BR $006 ; => $0906EC 0906E6 84 01 READ.B $01 0906E8 3F 02 2A 2A DISP "**" 0906EC 37 10 00 00 36 _23d2 $0000, $0036 0906F1 32 02 ADDSP.B $02 0906F3 34 RETURN ; ---------------- End Function $09065A ---------------- ; ---------------- Begin 2144 Function $0906F4 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $090734:$09076C ; called from $090734:$0907B6 ; addr bytes opcode operands comment 0906FB C0 29 2C READ.B $292C 0906FE C0 67 EC READ.B $67EC 090701 2D OR.L 090702 18 1D BRZ $01D ; => $090721 090704 41 PUSH.6 $01 090705 3F 0F 53 45 54 54 49 4E 47 DISP "SETTING TIME A" 20 54 49 4D 45 20 20 41 090716 C0 29 11 READ.B $2911 090719 18 04 BRZ $004 ; => $09071F 09071B 04 4D PUSH.10 $04D 09071D 90 10 WRITE.B $10 09071F 10 11 BR $011 ; => $090732 090721 41 PUSH.6 $01 090722 3F 0E 45 4E 54 45 52 20 50 DISP "ENTER POSITION" 4F 53 49 54 49 4F 4E 090732 34 RETURN ; ---------------- End Function $0906F4 ---------------- ; ---------------- Begin 2144 Function $090734 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0908BE:$0908D8 ; addr bytes opcode operands comment 09073B C0 29 9F READ.B $299F 09073E 18 76 BRZ $076 ; => $0907B6 090740 C0 4E 65 READ.B $4E65 090743 7C PUSH.6 $3C 090744 2F MOD.L 090745 D0 4E 65 WRITE.B $4E65 090748 80 22 READ.B $22 09074A 40 PUSH.6 $00 09074B 2A EQ.L 09074C C0 4E 65 READ.B $4E65 09074F 68 PUSH.6 $28 090750 03 26 GT.L 090752 2C AND.L 090753 C0 29 E1 READ.B $29E1 090756 40 PUSH.6 $00 090757 2B NEQ.L 090758 2D OR.L 090759 C0 29 11 READ.B $2911 09075C 2D OR.L 09075D 80 22 READ.B $22 09075F 40 PUSH.6 $00 090760 2B NEQ.L 090761 80 23 READ.B $23 090763 40 PUSH.6 $00 090764 2A EQ.L 090765 2C AND.L 090766 2D OR.L 090767 18 45 BRZ $045 ; => $0907AE 090769 40 PUSH.6 $00 09076A 90 23 WRITE.B $23 09076C 30 00 7B BSR.68K $007B ; => $0906F4 09076F C0 29 E1 READ.B $29E1 090772 18 05 BRZ $005 ; => $090779 090774 30 01 1D BSR.68K $011D ; => $09065A 090777 10 33 BR $033 ; => $0907AC 090779 C0 29 11 READ.B $2911 09077C 18 1D BRZ $01D ; => $09079B 09077E 4F PUSH.6 $0F 09077F 3F 11 20 4D 41 4E 4C 20 53 DISP " MANL SEARCH SVxx" 45 41 52 43 48 20 53 56 78 78 090792 5E PUSH.6 $1E 090793 C0 29 12 READ.B $2912 090796 30 07 93 BSR.68K $0793 ; => $090006 => $097B0A 090799 10 11 BR $011 ; => $0907AC 09079B 4F PUSH.6 $0F 09079C 3F 0E 20 20 41 55 54 4F 20 DISP " AUTO SEARCH" 20 53 45 41 52 43 48 0907AC 10 06 BR $006 ; => $0907B4 0907AE 41 PUSH.6 $01 0907AF 90 23 WRITE.B $23 0907B1 30 01 A8 BSR.68K $01A8 ; => $09060C 0907B4 10 06 BR $006 ; => $0907BC 0907B6 30 00 C5 BSR.68K $00C5 ; => $0906F4 0907B9 30 01 62 BSR.68K $0162 ; => $09065A 0907BC 34 RETURN ; ---------------- End Function $090734 ---------------- ; ---------------- Begin 2144 Function $0907BE ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $090862:$090894 ; called from $090862:$0908B7 ; addr bytes opcode operands comment 0907C5 31 02 SUBSP.B $02 0907C7 C0 28 AE READ.B $28AE 0907CA 2E NOT.L 0907CB 18 65 BRZ $065 ; => $090832 0907CD 41 PUSH.6 $01 0907CE 3F 0E 49 4F 4E 2F 55 54 43 DISP "ION/UTC UPDATE" 20 55 50 44 41 54 45 0907DE C0 59 F4 READ.B $59F4 0907E1 40 PUSH.6 $00 0907E2 2A EQ.L 0907E3 18 05 BRZ $005 ; => $0907EA 0907E5 40 PUSH.6 $00 0907E6 98 00 WRITE.B $00 0907E8 10 31 BR $031 ; => $09081B 0907EA C0 59 F4 READ.B $59F4 0907ED 49 PUSH.6 $09 0907EE 03 26 GT.L 0907F0 18 0C BRZ $00C ; => $0907FE 0907F2 4D PUSH.6 $0D 0907F3 C0 59 F4 READ.B $59F4 0907F6 42 PUSH.6 $02 0907F7 03 24 DIV.L 0907F9 28 SUB.L 0907FA 98 00 WRITE.B $00 0907FC 10 1D BR $01D ; => $09081B 0907FE C0 59 F4 READ.B $59F4 090801 53 PUSH.6 $13 090802 03 26 GT.L 090804 18 09 BRZ $009 ; => $09080F 090806 52 PUSH.6 $12 090807 C0 59 F4 READ.B $59F4 09080A 28 SUB.L 09080B 98 00 WRITE.B $00 09080D 10 0C BR $00C ; => $09081B 09080F 5A PUSH.6 $1A 090810 C0 59 F4 READ.B $59F4 090813 41 PUSH.6 $01 090814 27 ADD.L 090815 42 PUSH.6 $02 090816 03 24 DIV.L 090818 28 SUB.L 090819 98 00 WRITE.B $00 09081B 41 PUSH.6 $01 09081C 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 09081F 88 00 READ.B $00 090821 38 00 0C BLS.B $000C ; => $090830 090824 88 01 READ.B $01 090826 41 PUSH.6 $01 090827 28 SUB.L 090828 30 08 19 BSR.68K $0819 ; => $090012 => $097B5C 09082B 37 20 01 00 11 _23d2 $0001, $0011 090830 10 2D BR $02D ; => $09085F 090832 C0 28 AC READ.B $28AC 090835 2E NOT.L 090836 18 15 BRZ $015 ; => $09084D 090838 40 PUSH.6 $00 090839 3F 10 53 56 20 48 45 41 4C DISP "SV HEALTH UPDATE" 54 48 20 55 50 44 41 54 45 09084B 10 12 BR $012 ; => $09085F 09084D 40 PUSH.6 $00 09084E 3F 0F 4E 41 56 20 44 41 54 DISP "NAV DATA UPDATE" 41 20 55 50 44 41 54 45 09085F 32 02 ADDSP.B $02 090861 34 RETURN ; ---------------- End Function $0907BE ---------------- ; ---------------- Begin 2144 Function $090862 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0908BE:$0908E0 ; addr bytes opcode operands comment 090869 C0 29 9F READ.B $299F 09086C 18 49 BRZ $049 ; => $0908B7 09086E C0 4E 65 READ.B $4E65 090871 7C PUSH.6 $3C 090872 2F MOD.L 090873 D0 4E 65 WRITE.B $4E65 090876 80 22 READ.B $22 090878 40 PUSH.6 $00 090879 2A EQ.L 09087A C0 4E 65 READ.B $4E65 09087D 68 PUSH.6 $28 09087E 03 26 GT.L 090880 2C AND.L 090881 80 22 READ.B $22 090883 40 PUSH.6 $00 090884 2B NEQ.L 090885 80 23 READ.B $23 090887 40 PUSH.6 $00 090888 2A EQ.L 090889 2C AND.L 09088A 2D OR.L 09088B C0 29 E1 READ.B $29E1 09088E 2D OR.L 09088F 18 1E BRZ $01E ; => $0908AF 090891 40 PUSH.6 $00 090892 90 23 WRITE.B $23 090894 30 00 D9 BSR.68K $00D9 ; => $0907BE 090897 C0 29 E1 READ.B $29E1 09089A 18 05 BRZ $005 ; => $0908A1 09089C 30 02 45 BSR.68K $0245 ; => $09065A 09089F 10 0C BR $00C ; => $0908AD 0908A1 53 PUSH.6 $13 0908A2 3F 09 53 45 41 52 43 48 49 DISP "SEARCHING" 4E 47 0908AD 10 06 BR $006 ; => $0908B5 0908AF 41 PUSH.6 $01 0908B0 90 23 WRITE.B $23 0908B2 30 02 A9 BSR.68K $02A9 ; => $09060C 0908B5 10 06 BR $006 ; => $0908BD 0908B7 30 00 FC BSR.68K $00FC ; => $0907BE 0908BA 30 02 63 BSR.68K $0263 ; => $09065A 0908BD 34 RETURN ; ---------------- End Function $090862 ---------------- ; ---------------- Begin 2144 Function $0908BE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0976BA:$0976C7 ; addr bytes opcode operands comment 0908C5 42 PUSH.6 $02 0908C6 D0 4E 64 WRITE.B $4E64 0908C9 30 08 C0 BSR.68K $08C0 ; => $09000C => $0034AA (CLEARSCREEN) (NATIVE) 0908CC C0 29 E0 READ.B $29E0 0908CF 35 SWITCH 0908D0 10 03 00 CASE $00 ; SWITCH $0908CF 0908D3 10 38 BR $038 ; => $09090D 0908D5 10 06 01 CASE $01 ; SWITCH $0908CF 0908D8 30 01 A7 BSR.68K $01A7 ; => $090734 0908DB 10 30 BR $030 ; => $09090D 0908DD 10 06 02 CASE $02 ; SWITCH $0908CF 0908E0 30 00 81 BSR.68K $0081 ; => $090862 0908E3 10 28 BR $028 ; => $09090D 0908E5 00 DEFAULT ; SWITCH $0908CF 0908E6 C0 56 6F READ.B $566F 0908E9 18 05 BRZ $005 ; => $0908F0 0908EB 30 08 CA BSR.68K $08CA ; => $090024 => $09B9B8 0908EE 10 1D BR $01D ; => $09090D 0908F0 C0 54 2C READ.B $542C 0908F3 C0 55 70 READ.B $5570 0908F6 49 PUSH.6 $09 0908F7 2A EQ.L 0908F8 2D OR.L 0908F9 18 05 BRZ $005 ; => $090900 0908FB 30 04 6C BSR.68K $046C ; => $090492 0908FE 10 0D BR $00D ; => $09090D 090900 C0 29 F1 READ.B $29F1 090903 18 05 BRZ $005 ; => $09090A 090905 30 05 0C BSR.68K $050C ; => $0903FC 090908 10 03 BR $003 ; => $09090D 09090A 30 06 2D BSR.68K $062D ; => $0902E0 09090D 34 RETURN ; ---------------- End Function $0908BE ---------------- ; ---------------- Begin 2144 Function $09090E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0976BA:$0976EB ; addr bytes opcode operands comment 090915 4E PUSH.6 $0E 090916 90 21 WRITE.B $21 090918 40 PUSH.6 $00 090919 90 22 WRITE.B $22 09091B 40 PUSH.6 $00 09091C 90 23 WRITE.B $23 09091E 34 RETURN ; ---------------- End Function $09090E ---------------- ; ---------------- Begin 2144 Function $090920 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DA74 ; addr bytes opcode operands comment 090927 80 20 READ.B $20 090929 35 SWITCH 09092A 30 17 42 82 C2 CASE $42, $82, $C2 ; SWITCH $090929 09092F 80 22 READ.B $22 090931 40 PUSH.6 $00 090932 2A EQ.L 090933 18 05 BRZ $005 ; => $09093A 090935 41 PUSH.6 $01 090936 90 22 WRITE.B $22 090938 10 07 BR $007 ; => $090941 09093A 80 23 READ.B $23 09093C 41 PUSH.6 $01 09093D 03 2F XORL.L 09093F 90 23 WRITE.B $23 090941 10 04 BR $004 ; => $090947 090943 00 DEFAULT ; SWITCH $090929 090944 30 09 1D BSR.68K $091D ; => $09002A => $09D9DE 090947 34 RETURN ; ---------------- End Function $090920 ---------------- ; ---------------- Begin 2144 Function $09097E ---------------- ; A0 = $004004; (A0) = SP + $17 ; called from $0909E2:$090A66 ; called from $090C30:$090D9F ; addr bytes opcode operands comment 090985 31 08 SUBSP.B $08 090987 87 07 READ.F $07 090989 30 00 44 BSR.68K $0044 ; => $090948 => $002B72 (NATIVE) 09098C 87 0F READ.F $0F 09098E 30 00 49 BSR.68K $0049 ; => $090948 => $002B72 (NATIVE) 090991 20 ADD.F 090992 30 00 3B BSR.68K $003B ; => $09095A => $002682 (NATIVE) 090995 97 1F WRITE.F $1F 090997 87 17 READ.F $17 090999 87 1F READ.F $1F 09099B 30 00 50 BSR.68K $0050 ; => $09094E => $0032A8 (NATIVE) 09099E 87 0F READ.F $0F 0909A0 87 07 READ.F $07 0909A2 30 00 57 BSR.68K $0057 ; => $09094E => $0032A8 (NATIVE) 0909A5 83 47 READ.F $47 0909A7 30 00 32 BSR.68K $0032 ; => $090978 => $0AA734 0909AA 32 20 ADDSP.B $20 0909AC 34 RETURN ; ---------------- End Function $09097E ---------------- ; ---------------- Begin 2144 Function $0909AE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7A7 ; addr bytes opcode operands comment 0909B5 C0 29 9D READ.B $299D 0909B8 18 23 BRZ $023 ; => $0909DD 0909BA C3 60 3B READ.F $603B 0909BD C3 01 1F READ.F $011F 0909C0 3B 40 7E 00 00 00 00 00 00 PUSH.F $407E000000000000 ; float = 480.000000 0909C9 20 ADD.F 0909CA 24 GT.F 0909CB C0 56 6E READ.B $566E 0909CE C0 56 C5 READ.B $56C5 0909D1 2C AND.L 0909D2 2E NOT.L 0909D3 2C AND.L 0909D4 18 05 BRZ $005 ; => $0909DB 0909D6 04 FF PUSH.10 $0FF 0909D8 D0 67 EC WRITE.B $67EC 0909DB 10 04 BR $004 ; => $0909E1 0909DD 40 PUSH.6 $00 0909DE D0 67 EC WRITE.B $67EC 0909E1 34 RETURN ; ---------------- End Function $0909AE ---------------- ; ---------------- Begin 2144 Function $0909E2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $090AA0:$090B41 ; addr bytes opcode operands comment 0909E9 31 4C SUBSP.B $4C 0909EB 40 PUSH.6 $00 0909EC 94 01 WRITE.B $01 0909EE 3E PUSH.W $0000 0909EF 97 0B WRITE.F $0B 0909F1 3E PUSH.W $0000 0909F2 97 13 WRITE.F $13 0909F4 3E PUSH.W $0000 0909F5 97 1B WRITE.F $1B 0909F7 3E PUSH.W $0000 0909F8 97 4B WRITE.F $4B 0909FA 40 PUSH.6 $00 0909FB 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0909FE C0 29 9B READ.B $299B 090A01 38 00 45 BLS.B $0045 ; => $090A49 090A04 84 00 READ.B $00 090A06 E0 47 75 READ.B $4775 090A09 18 39 BRZ $039 ; => $090A44 090A0B 87 0B READ.F $0B 090A0D 84 00 READ.B $00 090A0F E3 41 E9 READ.F $41E9 090A12 20 ADD.F 090A13 97 0B WRITE.F $0B 090A15 87 13 READ.F $13 090A17 84 00 READ.B $00 090A19 E3 42 39 READ.F $4239 090A1C 20 ADD.F 090A1D 97 13 WRITE.F $13 090A1F 87 1B READ.F $1B 090A21 84 00 READ.B $00 090A23 E3 42 89 READ.F $4289 090A26 20 ADD.F 090A27 97 1B WRITE.F $1B 090A29 84 00 READ.B $00 090A2B E3 41 49 READ.F $4149 090A2E 87 4B READ.F $4B 090A30 24 GT.F 090A31 18 0B BRZ $00B ; => $090A3E 090A33 84 00 READ.B $00 090A35 E3 41 49 READ.F $4149 090A38 97 4B WRITE.F $4B 090A3A 84 00 READ.B $00 090A3C 94 02 WRITE.B $02 090A3E 84 01 READ.B $01 090A40 41 PUSH.6 $01 090A41 27 ADD.L 090A42 94 01 WRITE.B $01 090A44 37 10 00 00 4B _23d2 $0000, $004B 090A49 87 0B READ.F $0B 090A4B 84 01 READ.B $01 090A4D 03 2A LONG2FLOAT 090A4F 23 DIV.F 090A50 97 23 WRITE.F $23 090A52 87 13 READ.F $13 090A54 84 01 READ.B $01 090A56 03 2A LONG2FLOAT 090A58 23 DIV.F 090A59 97 2B WRITE.F $2B 090A5B 87 23 READ.F $23 090A5D 87 2B READ.F $2B 090A5F 87 1B READ.F $1B 090A61 84 01 READ.B $01 090A63 03 2A LONG2FLOAT 090A65 23 DIV.F 090A66 30 00 EB BSR.68K $00EB ; => $09097E 090A69 83 37 READ.F $37 090A6B 83 3F READ.F $3F 090A6D 83 47 READ.F $47 090A6F 87 33 00 READ.F $33 090A72 87 3B 00 READ.F $3B 090A75 87 43 00 READ.F $43 090A78 30 01 15 BSR.68K $0115 ; => $090966 => $0A2972 090A7B 84 02 READ.B $02 090A7D E3 40 A9 READ.F $40A9 090A80 87 33 READ.F $33 090A82 87 3B READ.F $3B 090A84 87 43 READ.F $43 090A86 84 02 READ.B $02 090A88 E3 41 E9 READ.F $41E9 090A8B 84 02 READ.B $02 090A8D E3 42 39 READ.F $4239 090A90 84 02 READ.B $02 090A92 E3 42 89 READ.F $4289 090A95 30 01 38 BSR.68K $0138 ; => $090960 => $0AA32C 090A98 21 SUB.F 090A99 D3 55 19 WRITE.F $5519 090A9C 32 4C ADDSP.B $4C 090A9E 34 RETURN ; ---------------- End Function $0909E2 ---------------- ; ---------------- Begin 2164 Function $090AA0 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0A0EB6:$0A0F7C ; addr bytes opcode operands comment 090AA9 31 6A SUBSP.B $6A 090AAB C0 67 EB READ.B $67EB 090AAE 49 PUSH.6 $09 090AAF 2A EQ.L 090AB0 18 06 BRZ $006 ; => $090AB8 090AB2 04 FF PUSH.10 $0FF 090AB4 96 03 WRITE.L $03 090AB6 10 95 BR $095 ; => $090B4D 090AB8 40 PUSH.6 $00 090AB9 94 09 WRITE.B $09 090ABB 3E PUSH.W $0000 090ABC 97 61 WRITE.F $61 090ABE 40 PUSH.6 $00 090ABF 36 10 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 090AC2 C0 29 9B READ.B $299B 090AC5 38 00 2A BLS.B $002A ; => $090AF2 090AC8 84 08 READ.B $08 090ACA E0 47 75 READ.B $4775 090ACD 18 1E BRZ $01E ; => $090AED 090ACF 84 08 READ.B $08 090AD1 84 08 READ.B $08 090AD3 E3 40 A9 READ.F $40A9 090AD6 84 08 READ.B $08 090AD8 E3 42 D9 READ.F $42D9 090ADB 21 SUB.F 090ADC B7 59 WRITE.F $59 090ADE 87 61 READ.F $61 090AE0 84 08 READ.B $08 090AE2 A7 59 READ.F $59 090AE4 20 ADD.F 090AE5 97 61 WRITE.F $61 090AE7 84 09 READ.B $09 090AE9 41 PUSH.6 $01 090AEA 27 ADD.L 090AEB 94 09 WRITE.B $09 090AED 37 10 08 00 30 _23d2 $0008, $0030 090AF2 87 61 READ.F $61 090AF4 84 09 READ.B $09 090AF6 03 2A LONG2FLOAT 090AF8 23 DIV.F 090AF9 97 69 WRITE.F $69 090AFB 3E PUSH.W $0000 090AFC 97 71 WRITE.F $71 090AFE 40 PUSH.6 $00 090AFF 36 10 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 090B02 C0 29 9B READ.B $299B 090B05 38 00 1B BLS.B $001B ; => $090B23 090B08 84 08 READ.B $08 090B0A E0 47 75 READ.B $4775 090B0D 18 0F BRZ $00F ; => $090B1E 090B0F 87 71 READ.F $71 090B11 84 08 READ.B $08 090B13 A7 59 READ.F $59 090B15 87 69 READ.F $69 090B17 21 SUB.F 090B18 30 01 D3 BSR.68K $01D3 ; => $090948 => $002B72 (NATIVE) 090B1B 20 ADD.F 090B1C 97 71 WRITE.F $71 090B1E 37 10 08 00 21 _23d2 $0008, $0021 090B23 87 71 READ.F $71 090B25 84 09 READ.B $09 090B27 03 2A LONG2FLOAT 090B29 23 DIV.F 090B2A 3B 42 02 A0 5F 20 00 00 00 PUSH.F $4202A05F20000000 ; float = 10000000000.000000 090B33 24 GT.F 090B34 18 13 BRZ $013 ; => $090B49 090B36 C0 29 2C READ.B $292C 090B39 D0 35 B8 WRITE.B $35B8 090B3C 86 07 READ.L $07 090B3E 2E NOT.L 090B3F 18 03 BRZ $003 ; => $090B44 090B41 30 01 62 BSR.68K $0162 ; => $0909E2 090B44 40 PUSH.6 $00 090B45 96 03 WRITE.L $03 090B47 10 04 BR $004 ; => $090B4D 090B49 04 FF PUSH.10 $0FF 090B4B 96 03 WRITE.L $03 090B4D 32 6E ADDSP.B $6E 090B4F 34 RETURN ; ---------------- End Function $090AA0 ---------------- ; ---------------- Begin 2164 Function $090B50 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0A0C6E:$0A0CE2 ; called from $0ABF58:$0ABF88 ; addr bytes opcode operands comment 090B59 31 06 SUBSP.B $06 090B5B 86 07 READ.L $07 090B5D E2 67 65 READ.L $6765 090B60 3C 20 00 PUSH.W $2000 090B63 03 24 DIV.L 090B65 3D 00 01 FF FF PUSH.L $0001FFFF 090B6A 2C AND.L 090B6B 95 09 WRITE.W $09 090B6D 86 07 READ.L $07 090B6F E3 46 B7 READ.F $46B7 090B72 3B 40 B7 70 00 00 00 00 00 PUSH.F $40B7700000000000 ; float = 6000.000000 090B7B 23 DIV.F 090B7C 03 29 FLOAT2LONG 090B7E 95 0B WRITE.W $0B 090B80 85 09 READ.W $09 090B82 85 0B READ.W $0B 090B84 2A EQ.L 090B85 85 09 READ.W $09 090B87 85 0B READ.W $0B 090B89 41 PUSH.6 $01 090B8A 27 ADD.L 090B8B 2A EQ.L 090B8C 2D OR.L 090B8D 94 0C WRITE.B $0C 090B8F 84 0C READ.B $0C 090B91 86 07 READ.L $07 090B93 E0 4B 7D READ.B $4B7D 090B96 48 PUSH.6 $08 090B97 2C AND.L 090B98 40 PUSH.6 $00 090B99 2B NEQ.L 090B9A 2C AND.L 090B9B C0 4E 70 READ.B $4E70 090B9E 2D OR.L 090B9F 96 03 WRITE.L $03 090BA1 32 0A ADDSP.B $0A 090BA3 34 RETURN ; ---------------- End Function $090B50 ---------------- ; ---------------- Begin 2144 Function $090BA4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A0EB6:$0A1012 ; addr bytes opcode operands comment 090BAB 04 FF PUSH.10 $0FF 090BAD D0 22 F6 WRITE.B $22F6 090BB0 3E PUSH.W $0000 090BB1 D3 56 55 WRITE.F $5655 090BB4 40 PUSH.6 $00 090BB5 D0 67 EC WRITE.B $67EC 090BB8 34 RETURN ; ---------------- End Function $090BA4 ---------------- ; ---------------- Begin 2164 Function $090BBA ---------------- ; P0 = $0008; P1 = $0008; P2 = $02 ; A0 = $004008; (A0) = A6 + $7; D1 = $000008 ; called from $090C30:$090CD1 ; called from $090C30:$090CD8 ; called from $090C30:$090CDF ; addr bytes opcode operands comment 090BC3 41 PUSH.6 $01 090BC4 43 PUSH.6 $03 090BC5 29 MUL.L 090BC6 8A 0B READ.L $0B 090BC8 27 ADD.L 090BC9 A7 67 READ.F $67 090BCB 40 PUSH.6 $00 090BCC 43 PUSH.6 $03 090BCD 29 MUL.L 090BCE 8A 0B READ.L $0B 090BD0 27 ADD.L 090BD1 A7 67 READ.F $67 090BD3 21 SUB.F 090BD4 42 PUSH.6 $02 090BD5 43 PUSH.6 $03 090BD6 29 MUL.L 090BD7 8A 0F READ.L $0F 090BD9 27 ADD.L 090BDA A7 67 READ.F $67 090BDC 40 PUSH.6 $00 090BDD 43 PUSH.6 $03 090BDE 29 MUL.L 090BDF 8A 0F READ.L $0F 090BE1 27 ADD.L 090BE2 A7 67 READ.F $67 090BE4 21 SUB.F 090BE5 22 MUL.F 090BE6 42 PUSH.6 $02 090BE7 43 PUSH.6 $03 090BE8 29 MUL.L 090BE9 8A 0B READ.L $0B 090BEB 27 ADD.L 090BEC A7 67 READ.F $67 090BEE 40 PUSH.6 $00 090BEF 43 PUSH.6 $03 090BF0 29 MUL.L 090BF1 8A 0B READ.L $0B 090BF3 27 ADD.L 090BF4 A7 67 READ.F $67 090BF6 21 SUB.F 090BF7 41 PUSH.6 $01 090BF8 43 PUSH.6 $03 090BF9 29 MUL.L 090BFA 8A 0F READ.L $0F 090BFC 27 ADD.L 090BFD A7 67 READ.F $67 090BFF 40 PUSH.6 $00 090C00 43 PUSH.6 $03 090C01 29 MUL.L 090C02 8A 0F READ.L $0F 090C04 27 ADD.L 090C05 A7 67 READ.F $67 090C07 21 SUB.F 090C08 22 MUL.F 090C09 21 SUB.F 090C0A 9B 07 WRITE.F $07 090C0C 32 08 ADDSP.B $08 090C0E 34 RETURN ; ---------------- End Function $090BBA ---------------- ; ---------------- Begin 2144 Function $090C10 ---------------- ; A0 = $004008; (A0) = SP + $17 ; called from $090C30:$090D49 ; called from $090C30:$090D68 ; addr bytes opcode operands comment 090C17 87 7F READ.F $7F 090C19 8B 07 READ.F $07 090C1B 22 MUL.F 090C1C 87 87 READ.F $87 090C1E 8B 0F READ.F $0F 090C20 22 MUL.F 090C21 20 ADD.F 090C22 87 8F READ.F $8F 090C24 8B 17 READ.F $17 090C26 22 MUL.F 090C27 20 ADD.F 090C28 87 97 READ.F $97 090C2A 20 ADD.F 090C2B 97 77 WRITE.F $77 090C2D 32 18 ADDSP.B $18 090C2F 34 RETURN ; ---------------- End Function $090C10 ---------------- ; ---------------- Begin 2164 Function $090C30 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0A34CE:$0A36F8 ; called from $0A3DBE:$0A4037 ; addr bytes opcode operands comment 090C39 31 94 SUBSP.B $94 090C3B 40 PUSH.6 $00 090C3C 96 03 WRITE.L $03 090C3E C3 55 59 READ.F $5559 090C41 3B 40 82 C0 00 00 00 00 00 PUSH.F $4082C00000000000 ; float = 600.000000 090C4A 03 21 LT.F 090C4C C3 55 31 READ.F $5531 090C4F 3B 40 49 80 00 00 00 00 00 PUSH.F $4049800000000000 ; float = 51.000000 090C58 03 21 LT.F 090C5A 2C AND.L 090C5B 18 02 BRZ $002 ; => $090C5F 090C5D 11 70 BR $170 ; => $090DCF 090C5F 86 07 READ.L $07 090C61 43 PUSH.6 $03 090C62 03 25 LT.L 090C64 18 03 BRZ $003 ; => $090C69 090C66 43 PUSH.6 $03 090C67 96 07 WRITE.L $07 090C69 40 PUSH.6 $00 090C6A 43 PUSH.6 $03 090C6B 29 MUL.L 090C6C 40 PUSH.6 $00 090C6D 27 ADD.L 090C6E 3E PUSH.W $0000 090C6F B7 67 WRITE.F $67 090C71 40 PUSH.6 $00 090C72 43 PUSH.6 $03 090C73 29 MUL.L 090C74 41 PUSH.6 $01 090C75 27 ADD.L 090C76 3E PUSH.W $0000 090C77 B7 67 WRITE.F $67 090C79 40 PUSH.6 $00 090C7A 43 PUSH.6 $03 090C7B 29 MUL.L 090C7C 42 PUSH.6 $02 090C7D 27 ADD.L 090C7E 3E PUSH.W $0000 090C7F B7 67 WRITE.F $67 090C81 40 PUSH.6 $00 090C82 36 10 98 _2362 $0098 ; A0 = $004000; (A0) = A6 + $0 090C85 86 07 READ.L $07 090C87 41 PUSH.6 $01 090C88 28 SUB.L 090C89 38 00 43 BLS.B $0043 ; => $090CCF 090C8C 84 98 READ.B $98 090C8E E0 47 6B READ.B $476B 090C91 94 99 WRITE.B $99 090C93 86 07 READ.L $07 090C95 43 PUSH.6 $03 090C96 2A EQ.L 090C97 18 04 BRZ $004 ; => $090C9D 090C99 84 98 READ.B $98 090C9B 10 04 BR $004 ; => $090CA1 090C9D 84 98 READ.B $98 090C9F 41 PUSH.6 $01 090CA0 27 ADD.L 090CA1 94 9A WRITE.B $9A 090CA3 84 9A READ.B $9A 090CA5 43 PUSH.6 $03 090CA6 29 MUL.L 090CA7 40 PUSH.6 $00 090CA8 27 ADD.L 090CA9 84 99 READ.B $99 090CAB E3 41 E9 READ.F $41E9 090CAE B7 67 WRITE.F $67 090CB0 84 9A READ.B $9A 090CB2 43 PUSH.6 $03 090CB3 29 MUL.L 090CB4 41 PUSH.6 $01 090CB5 27 ADD.L 090CB6 84 99 READ.B $99 090CB8 E3 42 39 READ.F $4239 090CBB B7 67 WRITE.F $67 090CBD 84 9A READ.B $9A 090CBF 43 PUSH.6 $03 090CC0 29 MUL.L 090CC1 42 PUSH.6 $02 090CC2 27 ADD.L 090CC3 84 99 READ.B $99 090CC5 E3 42 89 READ.F $4289 090CC8 B7 67 WRITE.F $67 090CCA 37 10 98 00 4A _23d2 $0098, $004A 090CCF 41 PUSH.6 $01 090CD0 42 PUSH.6 $02 090CD1 30 01 1A BSR.68K $011A ; => $090BBA 090CD4 97 7F WRITE.F $7F 090CD6 42 PUSH.6 $02 090CD7 40 PUSH.6 $00 090CD8 30 01 21 BSR.68K $0121 ; => $090BBA 090CDB 97 87 WRITE.F $87 090CDD 40 PUSH.6 $00 090CDE 41 PUSH.6 $01 090CDF 30 01 28 BSR.68K $0128 ; => $090BBA 090CE2 97 8F WRITE.F $8F 090CE4 87 7F READ.F $7F 090CE6 30 03 A1 BSR.68K $03A1 ; => $090948 => $002B72 (NATIVE) 090CE9 87 87 READ.F $87 090CEB 30 03 A6 BSR.68K $03A6 ; => $090948 => $002B72 (NATIVE) 090CEE 20 ADD.F 090CEF 87 8F READ.F $8F 090CF1 30 03 AC BSR.68K $03AC ; => $090948 => $002B72 (NATIVE) 090CF4 20 ADD.F 090CF5 30 03 9E BSR.68K $039E ; => $09095A => $002682 (NATIVE) 090CF8 97 6F WRITE.F $6F 090CFA 87 7F READ.F $7F 090CFC 87 6F READ.F $6F 090CFE 23 DIV.F 090CFF 97 7F WRITE.F $7F 090D01 87 87 READ.F $87 090D03 87 6F READ.F $6F 090D05 23 DIV.F 090D06 97 87 WRITE.F $87 090D08 87 8F READ.F $8F 090D0A 87 6F READ.F $6F 090D0C 23 DIV.F 090D0D 97 8F WRITE.F $8F 090D0F 87 7F READ.F $7F 090D11 40 PUSH.6 $00 090D12 43 PUSH.6 $03 090D13 29 MUL.L 090D14 40 PUSH.6 $00 090D15 27 ADD.L 090D16 A7 67 READ.F $67 090D18 22 MUL.F 090D19 87 87 READ.F $87 090D1B 40 PUSH.6 $00 090D1C 43 PUSH.6 $03 090D1D 29 MUL.L 090D1E 41 PUSH.6 $01 090D1F 27 ADD.L 090D20 A7 67 READ.F $67 090D22 22 MUL.F 090D23 20 ADD.F 090D24 87 8F READ.F $8F 090D26 40 PUSH.6 $00 090D27 43 PUSH.6 $03 090D28 29 MUL.L 090D29 42 PUSH.6 $02 090D2A 27 ADD.L 090D2B A7 67 READ.F $67 090D2D 22 MUL.F 090D2E 20 ADD.F 090D2F 03 20 NEG.W 090D31 97 97 WRITE.F $97 090D33 86 07 READ.L $07 090D35 E0 47 6B READ.B $476B 090D38 94 99 WRITE.B $99 090D3A 84 99 READ.B $99 090D3C E3 41 E9 READ.F $41E9 090D3F 84 99 READ.B $99 090D41 E3 42 39 READ.F $4239 090D44 84 99 READ.B $99 090D46 E3 42 89 READ.F $4289 090D49 30 01 3C BSR.68K $013C ; => $090C10 090D4C 87 77 READ.F $77 090D4E 30 03 DF BSR.68K $03DF ; => $090972 => $002B7E (NATIVE) 090D51 3B 41 3E 84 80 00 00 00 00 PUSH.F $413E848000000000 ; float = 2000000.000000 090D5A 24 GT.F 090D5B 18 02 BRZ $002 ; => $090D5F 090D5D 10 70 BR $070 ; => $090DCF 090D5F C3 55 01 READ.F $5501 090D62 C3 55 09 READ.F $5509 090D65 C3 55 11 READ.F $5511 090D68 30 01 5B BSR.68K $015B ; => $090C10 090D6B 87 77 READ.F $77 090D6D 87 77 READ.F $77 090D6F 20 ADD.F 090D70 97 77 WRITE.F $77 090D72 C3 55 01 READ.F $5501 090D75 87 77 READ.F $77 090D77 87 7F READ.F $7F 090D79 22 MUL.F 090D7A 21 SUB.F 090D7B D3 55 01 WRITE.F $5501 090D7E C3 55 09 READ.F $5509 090D81 87 77 READ.F $77 090D83 87 87 READ.F $87 090D85 22 MUL.F 090D86 21 SUB.F 090D87 D3 55 09 WRITE.F $5509 090D8A C3 55 11 READ.F $5511 090D8D 87 77 READ.F $77 090D8F 87 8F READ.F $8F 090D91 22 MUL.F 090D92 21 SUB.F 090D93 D3 55 11 WRITE.F $5511 090D96 C3 55 01 READ.F $5501 090D99 C3 55 09 READ.F $5509 090D9C C3 55 11 READ.F $5511 090D9F 30 04 24 BSR.68K $0424 ; => $09097E 090DA2 C0 47 6B READ.B $476B 090DA5 94 99 WRITE.B $99 090DA7 84 99 READ.B $99 090DA9 E3 40 A9 READ.F $40A9 090DAC C3 55 01 READ.F $5501 090DAF C3 55 09 READ.F $5509 090DB2 C3 55 11 READ.F $5511 090DB5 84 99 READ.B $99 090DB7 E3 41 E9 READ.F $41E9 090DBA 84 99 READ.B $99 090DBC E3 42 39 READ.F $4239 090DBF 84 99 READ.B $99 090DC1 E3 42 89 READ.F $4289 090DC4 30 04 67 BSR.68K $0467 ; => $090960 => $0AA32C 090DC7 21 SUB.F 090DC8 D3 55 19 WRITE.F $5519 090DCB 04 FF PUSH.10 $0FF 090DCD 96 03 WRITE.L $03 090DCF 32 98 ADDSP.B $98 090DD1 34 RETURN ; ---------------- End Function $090C30 ---------------- ; ---------------- Begin 2144 Function $090E2C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $090F80:$090FA1 ; called from $090F80:$090FBA ; called from $090FE8:$091009 ; called from $090FE8:$091061 ; called from $091090:$0910AA ; addr bytes opcode operands comment 090E33 31 04 SUBSP.B $04 090E35 30 00 66 BSR.68K $0066 ; => $090DD2 => $0034AA (CLEARSCREEN) (NATIVE) 090E38 40 PUSH.6 $00 090E39 3F 0A 52 53 32 33 32 20 50 DISP "RS232 PORT" 4F 52 54 090E45 80 22 READ.B $22 090E47 90 14 WRITE.B $14 090E49 80 22 READ.B $22 090E4B 71 PUSH.6 $31 090E4C 2A EQ.L 090E4D 18 05 BRZ $005 ; => $090E54 090E4F C0 29 63 READ.B $2963 090E52 10 03 BR $003 ; => $090E57 090E54 C0 29 6D READ.B $296D 090E57 95 01 WRITE.W $01 090E59 85 01 READ.W $01 090E5B 18 09 BRZ $009 ; => $090E66 090E5D 3C 96 00 PUSH.W $9600 090E60 85 01 READ.W $01 090E62 03 24 DIV.L 090E64 10 02 BR $002 ; => $090E68 090E66 04 96 PUSH.10 $096 090E68 95 01 WRITE.W $01 090E6A 50 PUSH.6 $10 090E6B 45 PUSH.6 $05 090E6C 85 01 READ.W $01 090E6E 03 2A LONG2FLOAT 090E70 30 00 95 BSR.68K $0095 ; => $090DDE => $097AD2 090E73 85 01 READ.W $01 090E75 3C 27 10 PUSH.W $2710 090E78 03 26 GT.L 090E7A 18 03 BRZ $003 ; => $090E7F 090E7C 60 PUSH.6 $20 090E7D 90 0F WRITE.B $0F 090E7F 85 01 READ.W $01 090E81 07 E8 PUSH.10 $3E8 090E83 03 26 GT.L 090E85 18 03 BRZ $003 ; => $090E8A 090E87 60 PUSH.6 $20 090E88 90 0E WRITE.B $0E 090E8A 47 PUSH.6 $07 090E8B 90 2B WRITE.B $2B 090E8D 80 22 READ.B $22 090E8F 71 PUSH.6 $31 090E90 2A EQ.L 090E91 18 08 BRZ $008 ; => $090E9B 090E93 C0 29 62 READ.B $2962 090E96 44 PUSH.6 $04 090E97 03 24 DIV.L 090E99 10 03 BR $003 ; => $090E9E 090E9B C0 29 6C READ.B $296C 090E9E 94 02 WRITE.B $02 090EA0 84 02 READ.B $02 090EA2 35 SWITCH 090EA3 20 0F 00 BE CASE $00, $BE ; SWITCH $090EA2 090EA7 58 PUSH.6 $18 090EA8 3F 08 37 2D 45 56 45 4E 2D DISP "7-EVEN-2" 32 090EB2 10 78 BR $078 ; => $090F2C 090EB4 20 0F 01 BC CASE $01, $BC ; SWITCH $090EA2 090EB8 58 PUSH.6 $18 090EB9 3F 08 37 2D 4F 44 44 2D 2D DISP "7-ODD--2" 32 090EC3 10 67 BR $067 ; => $090F2C 090EC5 20 0F 02 AE CASE $02, $AE ; SWITCH $090EA2 090EC9 58 PUSH.6 $18 090ECA 3F 08 37 2D 45 56 45 4E 2D DISP "7-EVEN-1" 31 090ED4 10 56 BR $056 ; => $090F2C 090ED6 20 0F 03 AC CASE $03, $AC ; SWITCH $090EA2 090EDA 58 PUSH.6 $18 090EDB 3F 08 37 2D 4F 44 44 2D 2D DISP "7-ODD--1" 31 090EE5 10 45 BR $045 ; => $090F2C 090EE7 20 0F 04 98 CASE $04, $98 ; SWITCH $090EA2 090EEB 58 PUSH.6 $18 090EEC 3F 08 38 2D 4E 4F 4E 45 2D DISP "8-NONE-2" 32 090EF6 10 34 BR $034 ; => $090F2C 090EF8 20 0F 05 88 CASE $05, $88 ; SWITCH $090EA2 090EFC 58 PUSH.6 $18 090EFD 3F 08 38 2D 4E 4F 4E 45 2D DISP "8-NONE-1" 31 090F07 10 23 BR $023 ; => $090F2C 090F09 20 0F 06 8E CASE $06, $8E ; SWITCH $090EA2 090F0D 58 PUSH.6 $18 090F0E 3F 08 38 2D 45 56 45 4E 2D DISP "8-EVEN-1" 31 090F18 10 12 BR $012 ; => $090F2C 090F1A 20 0F 07 8C CASE $07, $8C ; SWITCH $090EA2 090F1E 58 PUSH.6 $18 090F1F 3F 08 38 2D 4F 44 44 2D 2D DISP "8-ODD--1" 31 090F29 10 01 BR $001 ; => $090F2C 090F2B 00 DEFAULT ; SWITCH $090EA2 090F2C 4C PUSH.6 $0C 090F2D 90 2E WRITE.B $2E 090F2F 43 PUSH.6 $03 090F30 90 2D WRITE.B $2D 090F32 32 04 ADDSP.B $04 090F34 34 RETURN ; ---------------- End Function $090E2C ---------------- ; ---------------- Begin 2144 Function $090F36 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $090F80:$090F9E ; called from $090FE8:$091006 ; addr bytes opcode operands comment 090F3D 86 03 READ.L $03 090F3F 18 07 BRZ $007 ; => $090F48 090F41 86 03 READ.L $03 090F43 42 PUSH.6 $02 090F44 03 24 DIV.L 090F46 10 02 BR $002 ; => $090F4A 090F48 04 80 PUSH.10 $080 090F4A 96 03 WRITE.L $03 090F4C 33 _2300 090F4D 34 RETURN ; ---------------- End Function $090F36 ---------------- ; ---------------- Begin 2144 Function $090F4E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $090F80:$090F90 ; called from $090FE8:$090FF8 ; addr bytes opcode operands comment 090F55 4C PUSH.6 $0C 090F56 90 21 WRITE.B $21 090F58 40 PUSH.6 $00 090F59 3F 20 20 20 50 4F 52 54 31 DISP " PORT1 PARAMS ENTERED " 20 50 41 52 41 4D 53 20 20 20 20 20 20 45 4E 54 45 52 45 44 20 20 20 20 20 090F7B 80 22 READ.B $22 090F7D 90 19 WRITE.B $19 090F7F 34 RETURN ; ---------------- End Function $090F4E ---------------- ; ---------------- Begin 2144 Function $090F80 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0910BA:$0910CF ; addr bytes opcode operands comment 090F87 31 02 SUBSP.B $02 090F89 80 20 READ.B $20 090F8B 35 SWITCH 090F8C 20 09 04 02 CASE $04, $02 ; SWITCH $090F8B 090F90 30 00 45 BSR.68K $0045 ; => $090F4E 090F93 10 50 BR $050 ; => $090FE5 090F95 10 29 BR $029 ; => $090FC0 090F97 10 0D 10 CASE $10 ; SWITCH $090F8B 090F9A C0 29 63 00 READ.B $2963 090F9E 30 00 6B BSR.68K $006B ; => $090F36 090FA1 30 01 78 BSR.68K $0178 ; => $090E2C 090FA4 10 1A BR $01A ; => $090FC0 090FA6 10 17 D0 CASE $D0 ; SWITCH $090F8B 090FA9 C0 29 62 READ.B $2962 090FAC 44 PUSH.6 $04 090FAD 03 24 DIV.L 090FAF 41 PUSH.6 $01 090FB0 27 ADD.L 090FB1 47 PUSH.6 $07 090FB2 2C AND.L 090FB3 44 PUSH.6 $04 090FB4 29 MUL.L 090FB5 41 PUSH.6 $01 090FB6 27 ADD.L 090FB7 D0 29 62 WRITE.B $2962 090FBA 30 01 91 BSR.68K $0191 ; => $090E2C 090FBD 10 01 BR $001 ; => $090FC0 090FBF 00 DEFAULT ; SWITCH $090F8B 090FC0 30 01 CD BSR.68K $01CD ; => $090DF6 (NATIVE) 090FC3 C0 4E 95 READ.B $4E95 090FC6 D0 4E 96 WRITE.B $4E96 090FC9 40 PUSH.6 $00 090FCA 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 090FCD 5F PUSH.6 $1F 090FCE 38 00 0C BLS.B $000C ; => $090FDD 090FD1 84 00 READ.B $00 090FD3 A0 1F READ.B $1F 090FD5 30 01 F4 BSR.68K $01F4 ; => $090DE4 => $0A04BE (NATIVE) 090FD8 37 10 00 00 10 _23d2 $0000, $0010 090FDD 4D PUSH.6 $0D 090FDE 30 01 FD BSR.68K $01FD ; => $090DE4 => $0A04BE (NATIVE) 090FE1 4A PUSH.6 $0A 090FE2 30 02 01 BSR.68K $0201 ; => $090DE4 => $0A04BE (NATIVE) 090FE5 32 02 ADDSP.B $02 090FE7 34 RETURN ; ---------------- End Function $090F80 ---------------- ; ---------------- Begin 2144 Function $090FE8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0910BA:$0910D5 ; addr bytes opcode operands comment 090FEF 31 02 SUBSP.B $02 090FF1 80 20 READ.B $20 090FF3 35 SWITCH 090FF4 20 09 04 02 CASE $04, $02 ; SWITCH $090FF3 090FF8 30 00 AD BSR.68K $00AD ; => $090F4E 090FFB 10 8F BR $08F ; => $09108C 090FFD 10 68 BR $068 ; => $091067 090FFF 10 0D 10 CASE $10 ; SWITCH $090FF3 091002 C0 29 6D 00 READ.B $296D 091006 30 00 D3 BSR.68K $00D3 ; => $090F36 091009 30 01 E0 BSR.68K $01E0 ; => $090E2C 09100C 10 59 BR $059 ; => $091067 09100E 10 56 D0 CASE $D0 ; SWITCH $090FF3 091011 C0 29 6C READ.B $296C 091014 35 SWITCH 091015 10 08 BE CASE $BE ; SWITCH $091014 091018 04 BC PUSH.10 $0BC 09101A D0 29 6C WRITE.B $296C 09101D 10 42 BR $042 ; => $091061 09101F 10 08 BC CASE $BC ; SWITCH $091014 091022 04 AE PUSH.10 $0AE 091024 D0 29 6C WRITE.B $296C 091027 10 38 BR $038 ; => $091061 091029 10 08 AE CASE $AE ; SWITCH $091014 09102C 04 AC PUSH.10 $0AC 09102E D0 29 6C WRITE.B $296C 091031 10 2E BR $02E ; => $091061 091033 10 08 AC CASE $AC ; SWITCH $091014 091036 04 98 PUSH.10 $098 091038 D0 29 6C WRITE.B $296C 09103B 10 24 BR $024 ; => $091061 09103D 10 08 98 CASE $98 ; SWITCH $091014 091040 04 88 PUSH.10 $088 091042 D0 29 6C WRITE.B $296C 091045 10 1A BR $01A ; => $091061 091047 10 08 88 CASE $88 ; SWITCH $091014 09104A 04 8E PUSH.10 $08E 09104C D0 29 6C WRITE.B $296C 09104F 10 10 BR $010 ; => $091061 091051 10 08 8E CASE $8E ; SWITCH $091014 091054 04 8C PUSH.10 $08C 091056 D0 29 6C WRITE.B $296C 091059 10 06 BR $006 ; => $091061 09105B 00 DEFAULT ; SWITCH $091014 09105C 04 BE PUSH.10 $0BE 09105E D0 29 6C WRITE.B $296C 091061 30 02 38 BSR.68K $0238 ; => $090E2C 091064 10 01 BR $001 ; => $091067 091066 00 DEFAULT ; SWITCH $090FF3 091067 30 02 74 BSR.68K $0274 ; => $090DF6 (NATIVE) 09106A C0 4F 99 READ.B $4F99 09106D D0 4F 9A WRITE.B $4F9A 091070 40 PUSH.6 $00 091071 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 091074 5F PUSH.6 $1F 091075 38 00 0C BLS.B $000C ; => $091084 091078 84 00 READ.B $00 09107A A0 1F READ.B $1F 09107C 30 02 95 BSR.68K $0295 ; => $090DEA => $0A050E (NATIVE) 09107F 37 10 00 00 10 _23d2 $0000, $0010 091084 4D PUSH.6 $0D 091085 30 02 9E BSR.68K $029E ; => $090DEA => $0A050E (NATIVE) 091088 4A PUSH.6 $0A 091089 30 02 A2 BSR.68K $02A2 ; => $090DEA => $0A050E (NATIVE) 09108C 32 02 ADDSP.B $02 09108E 34 RETURN ; ---------------- End Function $090FE8 ---------------- ; ---------------- Begin 2144 Function $091090 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0910BA:$0910C7 ; addr bytes opcode operands comment 091097 80 20 READ.B $20 091099 35 SWITCH 09109A 20 13 D0 10 CASE $D0, $10 ; SWITCH $091099 09109E 80 20 READ.B $20 0910A0 50 PUSH.6 $10 0910A1 2A EQ.L 0910A2 18 03 BRZ $003 ; => $0910A7 0910A4 71 PUSH.6 $31 0910A5 10 01 BR $001 ; => $0910A8 0910A7 72 PUSH.6 $32 0910A8 90 22 WRITE.B $22 0910AA 30 02 81 BSR.68K $0281 ; => $090E2C 0910AD 10 0A BR $00A ; => $0910B9 0910AF 20 04 50 90 CASE $50, $90 ; SWITCH $091099 0910B3 10 04 BR $004 ; => $0910B9 0910B5 00 DEFAULT ; SWITCH $091099 0910B6 30 02 C9 BSR.68K $02C9 ; => $090DF0 => $09D9DE 0910B9 34 RETURN ; ---------------- End Function $091090 ---------------- ; ---------------- Begin 2144 Function $0910BA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC17 ; addr bytes opcode operands comment 0910C1 80 22 READ.B $22 0910C3 35 SWITCH 0910C4 10 06 00 CASE $00 ; SWITCH $0910C3 0910C7 30 00 3A BSR.68K $003A ; => $091090 0910CA 10 0C BR $00C ; => $0910D8 0910CC 10 06 31 CASE $31 ; SWITCH $0910C3 0910CF 30 01 52 BSR.68K $0152 ; => $090F80 0910D2 10 04 BR $004 ; => $0910D8 0910D4 00 DEFAULT ; SWITCH $0910C3 0910D5 30 00 F0 BSR.68K $00F0 ; => $090FE8 0910D8 34 RETURN ; ---------------- End Function $0910BA ---------------- ; ---------------- Begin 2144 Function $0910DA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A9BA6:$0A9BB3 ; addr bytes opcode operands comment 0910E1 63 PUSH.6 $23 0910E2 90 21 WRITE.B $21 0910E4 30 03 15 BSR.68K $0315 ; => $090DD2 => $0034AA (CLEARSCREEN) (NATIVE) 0910E7 30 03 12 BSR.68K $0312 ; => $090DD8 => $099642 0910EA 40 PUSH.6 $00 0910EB 90 22 WRITE.B $22 0910ED 40 PUSH.6 $00 0910EE 3F 20 42 41 55 44 20 43 4F DISP "BAUD CONTROL PORT1 PORT2" 4E 54 52 4F 4C 20 20 20 20 50 4F 52 54 31 20 20 20 20 20 20 50 4F 52 54 32 091110 34 RETURN ; ---------------- End Function $0910DA ---------------- ; ---------------- Begin 2144 Function $09112A ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $091148:$091150 ; called from $091154:$09115C ; called from $091160:$091168 ; called from $09116C:$091174 ; addr bytes opcode operands comment 091131 31 02 SUBSP.B $02 091133 41 PUSH.6 $01 091134 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 091137 48 PUSH.6 $08 091138 38 00 0A BLS.B $000A ; => $091145 09113B 86 03 READ.L $03 09113D 30 00 2E BSR.68K $002E ; => $091112 => $0A056A (NATIVE) 091140 37 10 04 00 0E _23d2 $0004, $000E 091145 32 06 ADDSP.B $06 091147 34 RETURN ; ---------------- End Function $09112A ---------------- ; ---------------- Begin 2144 Function $091148 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A55CC:$0A562B ; addr bytes opcode operands comment 09114F 42 PUSH.6 $02 091150 30 00 29 BSR.68K $0029 ; => $09112A 091153 34 RETURN ; ---------------- End Function $091148 ---------------- ; ---------------- Begin 2144 Function $091154 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A55CC:$0A5614 ; addr bytes opcode operands comment 09115B 44 PUSH.6 $04 09115C 30 00 35 BSR.68K $0035 ; => $09112A 09115F 34 RETURN ; ---------------- End Function $091154 ---------------- ; ---------------- Begin 2144 Function $091160 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A55CC:$0A563B ; addr bytes opcode operands comment 091167 43 PUSH.6 $03 091168 30 00 41 BSR.68K $0041 ; => $09112A 09116B 34 RETURN ; ---------------- End Function $091160 ---------------- ; ---------------- Begin 2144 Function $09116C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A55CC:$0A5604 ; addr bytes opcode operands comment 091173 41 PUSH.6 $01 091174 30 00 4D BSR.68K $004D ; => $09112A 091177 34 RETURN ; ---------------- End Function $09116C ---------------- ; ---------------- Begin 2144 Function $091178 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A55CC:$0A5617 ; addr bytes opcode operands comment 09117F C3 28 27 READ.F $2827 091182 30 00 6D BSR.68K $006D ; => $091118 => $0A05B4 (NATIVE) 091185 C3 28 2F READ.F $282F 091188 30 00 73 BSR.68K $0073 ; => $091118 => $0A05B4 (NATIVE) 09118B C3 28 37 READ.F $2837 09118E 30 00 79 BSR.68K $0079 ; => $091118 => $0A05B4 (NATIVE) 091191 C3 28 3F READ.F $283F 091194 30 00 7F BSR.68K $007F ; => $091118 => $0A05B4 (NATIVE) 091197 C3 28 47 READ.F $2847 09119A 30 00 85 BSR.68K $0085 ; => $091118 => $0A05B4 (NATIVE) 09119D C3 28 4F READ.F $284F 0911A0 30 00 8B BSR.68K $008B ; => $091118 => $0A05B4 (NATIVE) 0911A3 C3 28 57 READ.F $2857 0911A6 30 00 91 BSR.68K $0091 ; => $091118 => $0A05B4 (NATIVE) 0911A9 C3 28 5F READ.F $285F 0911AC 30 00 97 BSR.68K $0097 ; => $091118 => $0A05B4 (NATIVE) 0911AF C3 28 6F READ.F $286F 0911B2 30 00 9D BSR.68K $009D ; => $091118 => $0A05B4 (NATIVE) 0911B5 C3 28 67 READ.F $2867 0911B8 30 00 A3 BSR.68K $00A3 ; => $091118 => $0A05B4 (NATIVE) 0911BB C3 28 87 READ.F $2887 0911BE 30 00 A9 BSR.68K $00A9 ; => $091118 => $0A05B4 (NATIVE) 0911C1 C3 28 77 READ.F $2877 0911C4 30 00 AF BSR.68K $00AF ; => $091118 => $0A05B4 (NATIVE) 0911C7 C3 28 7F READ.F $287F 0911CA 30 00 B5 BSR.68K $00B5 ; => $091118 => $0A05B4 (NATIVE) 0911CD C2 28 8F READ.L $288F 0911D0 03 2A LONG2FLOAT 0911D2 30 00 BD BSR.68K $00BD ; => $091118 => $0A05B4 (NATIVE) 0911D5 C0 28 88 READ.B $2888 0911D8 30 00 C9 BSR.68K $00C9 ; => $091112 => $0A056A (NATIVE) 0911DB C0 28 89 READ.B $2889 0911DE 30 00 CF BSR.68K $00CF ; => $091112 => $0A056A (NATIVE) 0911E1 C0 28 8A READ.B $288A 0911E4 30 00 D5 BSR.68K $00D5 ; => $091112 => $0A056A (NATIVE) 0911E7 C0 28 90 READ.B $2890 0911EA 30 00 DB BSR.68K $00DB ; => $091112 => $0A056A (NATIVE) 0911ED 30 00 D2 BSR.68K $00D2 ; => $09111E => $09FDFE 0911F0 30 00 E1 BSR.68K $00E1 ; => $091112 => $0A056A (NATIVE) 0911F3 34 RETURN ; ---------------- End Function $091178 ---------------- ; ---------------- Begin 2144 Function $0911F4 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A55CC:$0A560C ; addr bytes opcode operands comment 0911FB 86 03 READ.L $03 0911FD E1 01 61 READ.W $0161 091200 03 2A LONG2FLOAT 091202 30 00 ED BSR.68K $00ED ; => $091118 => $0A05B4 (NATIVE) 091205 86 03 READ.L $03 091207 E2 01 E5 READ.L $01E5 09120A 03 2A LONG2FLOAT 09120C 30 00 F7 BSR.68K $00F7 ; => $091118 => $0A05B4 (NATIVE) 09120F 86 03 READ.L $03 091211 E3 03 97 READ.F $0397 091214 30 00 FF BSR.68K $00FF ; => $091118 => $0A05B4 (NATIVE) 091217 86 03 READ.L $03 091219 E2 04 1B READ.L $041B 09121C 03 2A LONG2FLOAT 09121E 30 01 09 BSR.68K $0109 ; => $091118 => $0A05B4 (NATIVE) 091221 86 03 READ.L $03 091223 E2 07 B7 READ.L $07B7 091226 03 2A LONG2FLOAT 091228 30 01 13 BSR.68K $0113 ; => $091118 => $0A05B4 (NATIVE) 09122B 86 03 READ.L $03 09122D E3 05 23 READ.F $0523 091230 30 01 1B BSR.68K $011B ; => $091118 => $0A05B4 (NATIVE) 091233 86 03 READ.L $03 091235 E3 06 2B READ.F $062B 091238 30 01 23 BSR.68K $0123 ; => $091118 => $0A05B4 (NATIVE) 09123B 86 03 READ.L $03 09123D E3 07 33 READ.F $0733 091240 30 01 2B BSR.68K $012B ; => $091118 => $0A05B4 (NATIVE) 091243 86 03 READ.L $03 091245 E2 08 3B READ.L $083B 091248 03 2A LONG2FLOAT 09124A 30 01 35 BSR.68K $0135 ; => $091118 => $0A05B4 (NATIVE) 09124D 86 03 READ.L $03 09124F E3 15 A3 READ.F $15A3 091252 30 01 3D BSR.68K $013D ; => $091118 => $0A05B4 (NATIVE) 091255 86 03 READ.L $03 091257 E3 0A 4B READ.F $0A4B 09125A 30 01 45 BSR.68K $0145 ; => $091118 => $0A05B4 (NATIVE) 09125D 86 03 READ.L $03 09125F E3 09 43 READ.F $0943 091262 30 01 4D BSR.68K $014D ; => $091118 => $0A05B4 (NATIVE) 091265 86 03 READ.L $03 091267 E3 12 8B READ.F $128B 09126A 30 01 55 BSR.68K $0155 ; => $091118 => $0A05B4 (NATIVE) 09126D 86 03 READ.L $03 09126F E3 0B 53 READ.F $0B53 091272 30 01 5D BSR.68K $015D ; => $091118 => $0A05B4 (NATIVE) 091275 86 03 READ.L $03 091277 E3 13 93 READ.F $1393 09127A 30 01 65 BSR.68K $0165 ; => $091118 => $0A05B4 (NATIVE) 09127D 86 03 READ.L $03 09127F E3 0C 5B READ.F $0C5B 091282 30 01 6D BSR.68K $016D ; => $091118 => $0A05B4 (NATIVE) 091285 86 03 READ.L $03 091287 E2 18 37 READ.L $1837 09128A 03 2A LONG2FLOAT 09128C 30 01 77 BSR.68K $0177 ; => $091118 => $0A05B4 (NATIVE) 09128F 86 03 READ.L $03 091291 E3 16 AB READ.F $16AB 091294 30 01 7F BSR.68K $017F ; => $091118 => $0A05B4 (NATIVE) 091297 86 03 READ.L $03 091299 E3 0D 63 READ.F $0D63 09129C 30 01 87 BSR.68K $0187 ; => $091118 => $0A05B4 (NATIVE) 09129F 86 03 READ.L $03 0912A1 E3 17 B3 READ.F $17B3 0912A4 30 01 8F BSR.68K $018F ; => $091118 => $0A05B4 (NATIVE) 0912A7 86 03 READ.L $03 0912A9 E3 10 7B READ.F $107B 0912AC 30 01 97 BSR.68K $0197 ; => $091118 => $0A05B4 (NATIVE) 0912AF 86 03 READ.L $03 0912B1 E3 14 9B READ.F $149B 0912B4 30 01 9F BSR.68K $019F ; => $091118 => $0A05B4 (NATIVE) 0912B7 86 03 READ.L $03 0912B9 E3 0E 6B READ.F $0E6B 0912BC 30 01 A7 BSR.68K $01A7 ; => $091118 => $0A05B4 (NATIVE) 0912BF 86 03 READ.L $03 0912C1 E3 0F 73 READ.F $0F73 0912C4 30 01 AF BSR.68K $01AF ; => $091118 => $0A05B4 (NATIVE) 0912C7 86 03 READ.L $03 0912C9 E3 11 83 READ.F $1183 0912CC 30 01 B7 BSR.68K $01B7 ; => $091118 => $0A05B4 (NATIVE) 0912CF 86 03 READ.L $03 0912D1 E0 02 8F READ.B $028F 0912D4 30 01 C5 BSR.68K $01C5 ; => $091112 => $0A056A (NATIVE) 0912D7 86 03 READ.L $03 0912D9 E0 02 4B READ.B $024B 0912DC 30 01 CD BSR.68K $01CD ; => $091112 => $0A056A (NATIVE) 0912DF 86 03 READ.L $03 0912E1 E0 02 07 READ.B $0207 0912E4 30 01 D5 BSR.68K $01D5 ; => $091112 => $0A056A (NATIVE) 0912E7 86 03 READ.L $03 0912E9 E0 02 29 READ.B $0229 0912EC 30 01 DD BSR.68K $01DD ; => $091112 => $0A056A (NATIVE) 0912EF 86 03 READ.L $03 0912F1 E0 02 6D READ.B $026D 0912F4 30 01 E5 BSR.68K $01E5 ; => $091112 => $0A056A (NATIVE) 0912F7 86 03 READ.L $03 0912F9 30 01 EA BSR.68K $01EA ; => $091112 => $0A056A (NATIVE) 0912FC 86 03 READ.L $03 0912FE E0 18 59 READ.B $1859 091301 30 01 F2 BSR.68K $01F2 ; => $091112 => $0A056A (NATIVE) 091304 86 03 READ.L $03 091306 30 01 E5 BSR.68K $01E5 ; => $091124 => $09FEDC 091309 30 01 FA BSR.68K $01FA ; => $091112 => $0A056A (NATIVE) 09130C 32 04 ADDSP.B $04 09130E 34 RETURN ; ---------------- End Function $0911F4 ---------------- ; ---------------- Begin 2144 Function $091310 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A4E0C:$0A4EC3 ; addr bytes opcode operands comment 091317 31 02 SUBSP.B $02 091319 C0 55 62 READ.B $5562 09131C 18 BB BRZ $0BB ; => $0913D9 09131E 41 PUSH.6 $01 09131F 36 50 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 091322 48 PUSH.6 $08 091323 38 40 09 BLS.W $0009 ; => $09132F 091326 43 PUSH.6 $03 091327 30 02 18 BSR.68K $0218 ; => $091112 => $0A056A (NATIVE) 09132A 37 50 01 00 0D _23d2 $0001, $000D 09132F C3 01 1F READ.F $011F 091332 30 02 1D BSR.68K $021D ; => $091118 => $0A05B4 (NATIVE) 091335 C3 54 E9 READ.F $54E9 091338 30 02 23 BSR.68K $0223 ; => $091118 => $0A05B4 (NATIVE) 09133B C3 54 F1 READ.F $54F1 09133E 30 02 29 BSR.68K $0229 ; => $091118 => $0A05B4 (NATIVE) 091341 C3 54 F9 READ.F $54F9 091344 30 02 2F BSR.68K $022F ; => $091118 => $0A05B4 (NATIVE) 091347 C3 55 21 READ.F $5521 09134A 30 02 35 BSR.68K $0235 ; => $091118 => $0A05B4 (NATIVE) 09134D C3 55 29 READ.F $5529 091350 30 02 3B BSR.68K $023B ; => $091118 => $0A05B4 (NATIVE) 091353 C3 55 31 READ.F $5531 091356 30 02 41 BSR.68K $0241 ; => $091118 => $0A05B4 (NATIVE) 091359 C3 55 19 READ.F $5519 09135C 30 02 47 BSR.68K $0247 ; => $091118 => $0A05B4 (NATIVE) 09135F C3 28 E3 READ.F $28E3 091362 30 02 4D BSR.68K $024D ; => $091118 => $0A05B4 (NATIVE) 091365 3E PUSH.W $0000 091366 30 02 51 BSR.68K $0251 ; => $091118 => $0A05B4 (NATIVE) 091369 C3 56 1D READ.F $561D 09136C 30 02 57 BSR.68K $0257 ; => $091118 => $0A05B4 (NATIVE) 09136F 83 67 READ.F $67 091371 30 02 5C BSR.68K $025C ; => $091118 => $0A05B4 (NATIVE) 091374 83 6F READ.F $6F 091376 30 02 61 BSR.68K $0261 ; => $091118 => $0A05B4 (NATIVE) 091379 83 77 READ.F $77 09137B 30 02 66 BSR.68K $0266 ; => $091118 => $0A05B4 (NATIVE) 09137E 83 7F READ.F $7F 091380 30 02 6B BSR.68K $026B ; => $091118 => $0A05B4 (NATIVE) 091383 C3 01 17 READ.F $0117 091386 30 02 71 BSR.68K $0271 ; => $091118 => $0A05B4 (NATIVE) 091389 83 37 READ.F $37 09138B 30 02 76 BSR.68K $0276 ; => $091118 => $0A05B4 (NATIVE) 09138E 83 3F READ.F $3F 091390 30 02 7B BSR.68K $027B ; => $091118 => $0A05B4 (NATIVE) 091393 83 47 READ.F $47 091395 30 02 80 BSR.68K $0280 ; => $091118 => $0A05B4 (NATIVE) 091398 83 4F READ.F $4F 09139A 30 02 85 BSR.68K $0285 ; => $091118 => $0A05B4 (NATIVE) 09139D 83 57 READ.F $57 09139F 30 02 8A BSR.68K $028A ; => $091118 => $0A05B4 (NATIVE) 0913A2 83 5F READ.F $5F 0913A4 30 02 8F BSR.68K $028F ; => $091118 => $0A05B4 (NATIVE) 0913A7 C3 55 01 READ.F $5501 0913AA 30 02 95 BSR.68K $0295 ; => $091118 => $0A05B4 (NATIVE) 0913AD C3 55 09 READ.F $5509 0913B0 30 02 9B BSR.68K $029B ; => $091118 => $0A05B4 (NATIVE) 0913B3 C3 55 11 READ.F $5511 0913B6 30 02 A1 BSR.68K $02A1 ; => $091118 => $0A05B4 (NATIVE) 0913B9 C3 55 39 READ.F $5539 0913BC 30 02 A7 BSR.68K $02A7 ; => $091118 => $0A05B4 (NATIVE) 0913BF C3 55 41 READ.F $5541 0913C2 30 02 AD BSR.68K $02AD ; => $091118 => $0A05B4 (NATIVE) 0913C5 C3 55 49 READ.F $5549 0913C8 30 02 B3 BSR.68K $02B3 ; => $091118 => $0A05B4 (NATIVE) 0913CB C0 55 63 READ.B $5563 0913CE 30 02 BF BSR.68K $02BF ; => $091112 => $0A056A (NATIVE) 0913D1 C0 55 62 READ.B $5562 0913D4 40 PUSH.6 $00 0913D5 2B NEQ.L 0913D6 30 02 C7 BSR.68K $02C7 ; => $091112 => $0A056A (NATIVE) 0913D9 32 02 ADDSP.B $02 0913DB 34 RETURN ; ---------------- End Function $091310 ---------------- ; ---------------- Begin 2144 Function $0913DC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A55CC:$0A563E ; addr bytes opcode operands comment 0913E3 83 37 READ.F $37 0913E5 30 02 D0 BSR.68K $02D0 ; => $091118 => $0A05B4 (NATIVE) 0913E8 83 3F READ.F $3F 0913EA 30 02 D5 BSR.68K $02D5 ; => $091118 => $0A05B4 (NATIVE) 0913ED 83 47 READ.F $47 0913EF 30 02 DA BSR.68K $02DA ; => $091118 => $0A05B4 (NATIVE) 0913F2 83 4F READ.F $4F 0913F4 30 02 DF BSR.68K $02DF ; => $091118 => $0A05B4 (NATIVE) 0913F7 83 57 READ.F $57 0913F9 30 02 E4 BSR.68K $02E4 ; => $091118 => $0A05B4 (NATIVE) 0913FC 83 5F READ.F $5F 0913FE 30 02 E9 BSR.68K $02E9 ; => $091118 => $0A05B4 (NATIVE) 091401 83 67 READ.F $67 091403 30 02 EE BSR.68K $02EE ; => $091118 => $0A05B4 (NATIVE) 091406 C3 55 19 READ.F $5519 091409 30 02 F4 BSR.68K $02F4 ; => $091118 => $0A05B4 (NATIVE) 09140C C3 56 1D READ.F $561D 09140F 30 02 FA BSR.68K $02FA ; => $091118 => $0A05B4 (NATIVE) 091412 34 RETURN ; ---------------- End Function $0913DC ---------------- ; ---------------- Begin 2144 Function $091414 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A55CC:$0A5633 ; addr bytes opcode operands comment 09141B 31 02 SUBSP.B $02 09141D C0 51 01 READ.B $5101 091420 94 00 WRITE.B $00 091422 84 00 READ.B $00 091424 E3 40 59 READ.F $4059 091427 30 03 12 BSR.68K $0312 ; => $091118 => $0A05B4 (NATIVE) 09142A 84 00 READ.B $00 09142C E3 40 A9 READ.F $40A9 09142F 30 03 1A BSR.68K $031A ; => $091118 => $0A05B4 (NATIVE) 091432 84 00 READ.B $00 091434 E3 40 F9 READ.F $40F9 091437 30 03 22 BSR.68K $0322 ; => $091118 => $0A05B4 (NATIVE) 09143A 84 00 READ.B $00 09143C E3 42 D9 READ.F $42D9 09143F 30 03 2A BSR.68K $032A ; => $091118 => $0A05B4 (NATIVE) 091442 84 00 READ.B $00 091444 E3 44 C3 READ.F $44C3 091447 30 03 32 BSR.68K $0332 ; => $091118 => $0A05B4 (NATIVE) 09144A 84 00 READ.B $00 09144C E3 47 07 READ.F $4707 09144F 30 03 3A BSR.68K $033A ; => $091118 => $0A05B4 (NATIVE) 091452 84 00 READ.B $00 091454 E3 43 29 READ.F $4329 091457 30 03 42 BSR.68K $0342 ; => $091118 => $0A05B4 (NATIVE) 09145A 84 00 READ.B $00 09145C E3 46 03 READ.F $4603 09145F 30 03 4A BSR.68K $034A ; => $091118 => $0A05B4 (NATIVE) 091462 84 00 READ.B $00 091464 E0 40 09 READ.B $4009 091467 30 03 58 BSR.68K $0358 ; => $091112 => $0A056A (NATIVE) 09146A 84 00 READ.B $00 09146C E0 44 23 READ.B $4423 09146F 30 03 60 BSR.68K $0360 ; => $091112 => $0A056A (NATIVE) 091472 84 00 READ.B $00 091474 C0 29 9B READ.B $299B 091477 03 25 LT.L 091479 18 11 BRZ $011 ; => $09148C 09147B 84 00 READ.B $00 09147D E3 41 49 READ.F $4149 091480 3B 40 50 00 00 00 00 00 00 PUSH.F $4050000000000000 ; float = 64.000000 091489 22 MUL.F 09148A 10 05 BR $005 ; => $091491 09148C 84 00 READ.B $00 09148E E3 41 49 READ.F $4149 091491 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09149A 20 ADD.F 09149B 03 29 FLOAT2LONG 09149D 30 03 8E BSR.68K $038E ; => $091112 => $0A056A (NATIVE) 0914A0 84 00 READ.B $00 0914A2 E3 49 BB READ.F $49BB 0914A5 30 03 90 BSR.68K $0390 ; => $091118 => $0A05B4 (NATIVE) 0914A8 84 00 READ.B $00 0914AA E3 4A 0B READ.F $4A0B 0914AD 30 03 98 BSR.68K $0398 ; => $091118 => $0A05B4 (NATIVE) 0914B0 3E PUSH.W $0000 0914B1 30 03 9C BSR.68K $039C ; => $091118 => $0A05B4 (NATIVE) 0914B4 84 00 READ.B $00 0914B6 E3 48 67 READ.F $4867 0914B9 30 03 A4 BSR.68K $03A4 ; => $091118 => $0A05B4 (NATIVE) 0914BC 84 00 READ.B $00 0914BE E3 49 07 READ.F $4907 0914C1 30 03 AC BSR.68K $03AC ; => $091118 => $0A05B4 (NATIVE) 0914C4 84 00 READ.B $00 0914C6 E3 4A FB READ.F $4AFB 0914C9 30 03 B4 BSR.68K $03B4 ; => $091118 => $0A05B4 (NATIVE) 0914CC 84 00 READ.B $00 0914CE E3 4B 73 READ.F $4B73 0914D1 30 03 BC BSR.68K $03BC ; => $091118 => $0A05B4 (NATIVE) 0914D4 3E PUSH.W $0000 0914D5 30 03 C0 BSR.68K $03C0 ; => $091118 => $0A05B4 (NATIVE) 0914D8 3E PUSH.W $0000 0914D9 30 03 C4 BSR.68K $03C4 ; => $091118 => $0A05B4 (NATIVE) 0914DC 84 00 READ.B $00 0914DE E3 4C 45 READ.F $4C45 0914E1 30 03 CC BSR.68K $03CC ; => $091118 => $0A05B4 (NATIVE) 0914E4 84 00 READ.B $00 0914E6 E0 49 6B READ.B $496B 0914E9 30 03 DA BSR.68K $03DA ; => $091112 => $0A056A (NATIVE) 0914EC 84 00 READ.B $00 0914EE E0 49 11 READ.B $4911 0914F1 30 03 E2 BSR.68K $03E2 ; => $091112 => $0A056A (NATIVE) 0914F4 84 00 READ.B $00 0914F6 E0 4B 05 READ.B $4B05 0914F9 30 03 EA BSR.68K $03EA ; => $091112 => $0A056A (NATIVE) 0914FC 84 00 READ.B $00 0914FE E0 4B 19 READ.B $4B19 091501 30 03 F2 BSR.68K $03F2 ; => $091112 => $0A056A (NATIVE) 091504 84 00 READ.B $00 091506 E0 4B 0F READ.B $4B0F 091509 30 03 FA BSR.68K $03FA ; => $091112 => $0A056A (NATIVE) 09150C 84 00 READ.B $00 09150E E0 4B 7D READ.B $4B7D 091511 30 04 02 BSR.68K $0402 ; => $091112 => $0A056A (NATIVE) 091514 40 PUSH.6 $00 091515 30 04 06 BSR.68K $0406 ; => $091112 => $0A056A (NATIVE) 091518 84 00 READ.B $00 09151A E3 46 B7 READ.F $46B7 09151D 30 04 08 BSR.68K $0408 ; => $091118 => $0A05B4 (NATIVE) 091520 84 00 READ.B $00 091522 E3 46 53 READ.F $4653 091525 30 04 10 BSR.68K $0410 ; => $091118 => $0A05B4 (NATIVE) 091528 84 00 READ.B $00 09152A E3 47 61 READ.F $4761 09152D 30 04 18 BSR.68K $0418 ; => $091118 => $0A05B4 (NATIVE) 091530 32 02 ADDSP.B $02 091532 34 RETURN ; ---------------- End Function $091414 ---------------- ; ---------------- Begin 2144 Function $09154C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $091584:$09159E ; called from $09A458:$09A52B ; addr bytes opcode operands comment 091553 30 00 16 BSR.68K $0016 ; => $091540 => $0034AA (CLEARSCREEN) (NATIVE) 091556 40 PUSH.6 $00 091557 3F 1F 43 41 42 4C 45 20 54 DISP "CABLE TIME DELAY NANOSECONDS" 49 4D 45 20 44 45 4C 41 59 20 20 20 20 4E 41 4E 4F 53 45 43 4F 4E 44 53 091578 50 PUSH.6 $10 091579 43 PUSH.6 $03 09157A C3 29 57 READ.F $2957 09157D 30 00 3A BSR.68K $003A ; => $091546 => $097AD2 091580 50 PUSH.6 $10 091581 90 26 WRITE.B $26 091583 34 RETURN ; ---------------- End Function $09154C ---------------- ; ---------------- Begin 2144 Function $091584 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB3E ; addr bytes opcode operands comment 09158B 31 02 SUBSP.B $02 09158D 80 20 READ.B $20 09158F 35 SWITCH 091590 10 11 02 CASE $02 ; SWITCH $09158F 091593 80 26 READ.B $26 091595 50 PUSH.6 $10 091596 2A EQ.L 091597 18 05 BRZ $005 ; => $09159E 091599 40 PUSH.6 $00 09159A 90 21 WRITE.B $21 09159C 10 03 BR $003 ; => $0915A1 09159E 30 00 55 BSR.68K $0055 ; => $09154C 0915A1 10 15 BR $015 ; => $0915B8 0915A3 10 06 04 CASE $04 ; SWITCH $09158F 0915A6 61 PUSH.6 $21 0915A7 90 26 WRITE.B $26 0915A9 10 0D BR $00D ; => $0915B8 0915AB 00 DEFAULT ; SWITCH $09158F 0915AC 80 26 READ.B $26 0915AE 53 PUSH.6 $13 0915AF 03 26 GT.L 0915B1 18 05 BRZ $005 ; => $0915B8 0915B3 30 00 82 BSR.68K $0082 ; => $091534 => $09DFB4 0915B6 94 00 WRITE.B $00 0915B8 80 26 READ.B $26 0915BA 53 PUSH.6 $13 0915BB 2A EQ.L 0915BC 18 03 BRZ $003 ; => $0915C1 0915BE 60 PUSH.6 $20 0915BF 90 26 WRITE.B $26 0915C1 80 26 READ.B $26 0915C3 61 PUSH.6 $21 0915C4 2A EQ.L 0915C5 18 2E BRZ $02E ; => $0915F5 0915C7 4C PUSH.6 $0C 0915C8 90 21 WRITE.B $21 0915CA 50 PUSH.6 $10 0915CB 52 PUSH.6 $12 0915CC 30 00 95 BSR.68K $0095 ; => $09153A => $09E02C 0915CF D3 29 57 WRITE.F $2957 0915D2 40 PUSH.6 $00 0915D3 3F 20 43 41 42 4C 45 20 54 DISP "CABLE TIME DELAY ENTERED " 49 4D 45 20 44 45 4C 41 59 20 20 20 20 45 4E 54 45 52 45 44 20 20 20 20 20 0915F5 32 02 ADDSP.B $02 0915F7 34 RETURN ; ---------------- End Function $091584 ---------------- ; ---------------- Begin 2144 Function $091640 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0917DC:$09187E ; called from $0A169E:$0A16A5 ; addr bytes opcode operands comment 091647 40 PUSH.6 $00 091648 3F 20 20 20 57 41 49 54 20 DISP " WAIT FOR THE CYCLE TO FINISH " 46 4F 52 20 54 48 45 20 20 43 59 43 4C 45 20 54 4F 20 46 49 4E 49 53 48 20 09166A 34 RETURN ; ---------------- End Function $091640 ---------------- ; ---------------- Begin 2144 Function $09166C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A170E:$0A1732 ; called from $0A17D0:$0A17EA ; called from $0A1832:$0A1848 ; addr bytes opcode operands comment 091673 50 PUSH.6 $10 091674 3F 0A 46 4F 52 20 30 36 2F DISP "FOR 06/04-" 30 34 2D 091680 54 PUSH.6 $14 091681 C0 2A 0B READ.B $2A0B 091684 30 00 65 BSR.68K $0065 ; => $091622 => $097B0A 091687 57 PUSH.6 $17 091688 C0 2A 0C READ.B $2A0C 09168B 41 PUSH.6 $01 09168C 27 ADD.L 09168D 30 00 6E BSR.68K $006E ; => $091622 => $097B0A 091690 5A PUSH.6 $1A 091691 C0 2A 0C READ.B $2A0C 091694 30 00 7B BSR.68K $007B ; => $09161C => $097D4A 091697 34 RETURN ; ---------------- End Function $09166C ---------------- ; ---------------- Begin 2164 Function $091698 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0917DC:$091878 ; called from $0A173A:$0A17B9 ; called from $0A17F2:$0A1823 ; called from $0A1850:$0A1881 ; addr bytes opcode operands comment 0916A1 31 0A SUBSP.B $0A 0916A3 C0 2A 0B READ.B $2A0B 0916A6 C0 2A 0C READ.B $2A0C 0916A9 C0 2A 0D READ.B $2A0D 0916AC 30 00 81 BSR.68K $0081 ; => $09162E => $091F30 0916AF 96 0D WRITE.L $0D 0916B1 54 PUSH.6 $14 0916B2 30 00 B1 BSR.68K $00B1 ; => $091604 => $09E078 0916B5 90 24 WRITE.B $24 0916B7 57 PUSH.6 $17 0916B8 30 00 B7 BSR.68K $00B7 ; => $091604 => $09E078 0916BB 90 25 WRITE.B $25 0916BD 80 24 READ.B $24 0916BF 41 PUSH.6 $01 0916C0 28 SUB.L 0916C1 94 04 WRITE.B $04 0916C3 80 25 READ.B $25 0916C5 41 PUSH.6 $01 0916C6 28 SUB.L 0916C7 94 05 WRITE.B $05 0916C9 84 04 READ.B $04 0916CB 84 05 READ.B $05 0916CD C0 2A 0D READ.B $2A0D 0916D0 30 00 A5 BSR.68K $00A5 ; => $09162E => $091F30 0916D3 96 09 WRITE.L $09 0916D5 86 09 READ.L $09 0916D7 86 0D READ.L $0D 0916D9 60 PUSH.6 $20 0916DA 28 SUB.L 0916DB 03 26 GT.L 0916DD 18 10 BRZ $010 ; => $0916EF 0916DF 84 04 READ.B $04 0916E1 84 05 READ.B $05 0916E3 C0 2A 0D READ.B $2A0D 0916E6 41 PUSH.6 $01 0916E7 27 ADD.L 0916E8 30 00 BD BSR.68K $00BD ; => $09162E => $091F30 0916EB 96 09 WRITE.L $09 0916ED 10 19 BR $019 ; => $091708 0916EF 86 09 READ.L $09 0916F1 86 0D READ.L $0D 0916F3 05 4D PUSH.10 $14D 0916F5 27 ADD.L 0916F6 03 25 LT.L 0916F8 18 0E BRZ $00E ; => $091708 0916FA 84 04 READ.B $04 0916FC 84 05 READ.B $05 0916FE C0 2A 0D READ.B $2A0D 091701 41 PUSH.6 $01 091702 28 SUB.L 091703 30 00 D8 BSR.68K $00D8 ; => $09162E => $091F30 091706 96 09 WRITE.L $09 091708 86 09 READ.L $09 09170A 96 03 WRITE.L $03 09170C 32 0A ADDSP.B $0A 09170E 34 RETURN ; ---------------- End Function $091698 ---------------- ; ---------------- Begin 2144 Function $091710 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0917DC:$091831 ; called from $0A173A:$0A1777 ; called from $0A17F2:$0A181A ; called from $0A1850:$0A1878 ; addr bytes opcode operands comment 091717 31 02 SUBSP.B $02 091719 30 01 1E BSR.68K $011E ; => $0915FE => $09DFB4 09171C 94 00 WRITE.B $00 09171E 80 26 READ.B $26 091720 35 SWITCH 091721 10 10 15 CASE $15 ; SWITCH $091720 091724 73 PUSH.6 $33 091725 30 01 00 BSR.68K $0100 ; => $091628 => $09E0F6 091728 80 26 READ.B $26 09172A 54 PUSH.6 $14 09172B 2A EQ.L 09172C 18 03 BRZ $003 ; => $091731 09172E 71 PUSH.6 $31 09172F 90 0A WRITE.B $0A 091731 10 5D BR $05D ; => $091790 091733 10 20 16 CASE $16 ; SWITCH $091720 091736 54 PUSH.6 $14 091737 30 01 36 BSR.68K $0136 ; => $091604 => $09E078 09173A 41 PUSH.6 $01 09173B 28 SUB.L 09173C 94 00 WRITE.B $00 09173E 84 00 READ.B $00 091740 5E PUSH.6 $1E 091741 03 25 LT.L 091743 18 0B BRZ $00B ; => $091750 091745 73 PUSH.6 $33 091746 90 0B WRITE.B $0B 091748 71 PUSH.6 $31 091749 90 0A WRITE.B $0A 09174B 54 PUSH.6 $14 09174C 90 26 WRITE.B $26 09174E 10 03 BR $003 ; => $091753 091750 57 PUSH.6 $17 091751 90 26 WRITE.B $26 091753 10 3B BR $03B ; => $091790 091755 10 10 18 CASE $18 ; SWITCH $091720 091758 71 PUSH.6 $31 091759 30 01 34 BSR.68K $0134 ; => $091628 => $09E0F6 09175C 80 26 READ.B $26 09175E 57 PUSH.6 $17 09175F 2A EQ.L 091760 18 03 BRZ $003 ; => $091765 091762 72 PUSH.6 $32 091763 90 07 WRITE.B $07 091765 10 29 BR $029 ; => $091790 091767 10 26 19 CASE $19 ; SWITCH $091720 09176A 57 PUSH.6 $17 09176B 30 01 6A BSR.68K $016A ; => $091604 => $09E078 09176E 41 PUSH.6 $01 09176F 28 SUB.L 091770 94 00 WRITE.B $00 091772 84 00 READ.B $00 091774 4B PUSH.6 $0B 091775 03 25 LT.L 091777 18 0B BRZ $00B ; => $091784 091779 71 PUSH.6 $31 09177A 90 08 WRITE.B $08 09177C 72 PUSH.6 $32 09177D 90 07 WRITE.B $07 09177F 57 PUSH.6 $17 091780 90 26 WRITE.B $26 091782 10 09 BR $009 ; => $09178D 091784 5A PUSH.6 $1A 091785 84 00 READ.B $00 091787 30 01 6E BSR.68K $016E ; => $09161C => $097D4A 09178A 60 PUSH.6 $20 09178B 90 26 WRITE.B $26 09178D 10 01 BR $001 ; => $091790 09178F 00 DEFAULT ; SWITCH $091720 091790 32 02 ADDSP.B $02 091792 34 RETURN ; ---------------- End Function $091710 ---------------- ; ---------------- Begin 2144 Function $091794 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0917DC:$0917F6 ; called from $0917DC:$09185C ; called from $0917DC:$09188E ; called from $091898:$0918DF ; called from $0918EE:$091915 ; addr bytes opcode operands comment 09179B 30 01 A6 BSR.68K $01A6 ; => $0915F8 => $0034AA (CLEARSCREEN) (NATIVE) 09179E 40 PUSH.6 $00 09179F 3F 1D 53 56 20 30 33 20 52 DISP "SV 03 RISE-SET FOR 06/04-APR" 49 53 45 2D 53 45 54 20 20 46 4F 52 20 30 36 2F 30 34 2D 41 50 52 0917BE 43 PUSH.6 $03 0917BF 80 23 READ.B $23 0917C1 30 01 A2 BSR.68K $01A2 ; => $091622 => $097B0A 0917C4 54 PUSH.6 $14 0917C5 80 24 READ.B $24 0917C7 30 01 A8 BSR.68K $01A8 ; => $091622 => $097B0A 0917CA 57 PUSH.6 $17 0917CB 80 25 READ.B $25 0917CD 30 01 AE BSR.68K $01AE ; => $091622 => $097B0A 0917D0 5A PUSH.6 $1A 0917D1 80 25 READ.B $25 0917D3 41 PUSH.6 $01 0917D4 28 SUB.L 0917D5 30 01 BC BSR.68K $01BC ; => $09161C => $097D4A 0917D8 43 PUSH.6 $03 0917D9 90 26 WRITE.B $26 0917DB 34 RETURN ; ---------------- End Function $091794 ---------------- ; ---------------- Begin 2144 Function $0917DC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $091898:$0918A7 ; addr bytes opcode operands comment 0917E3 31 02 SUBSP.B $02 0917E5 80 20 READ.B $20 0917E7 35 SWITCH 0917E8 10 11 02 CASE $02 ; SWITCH $0917E7 0917EB 80 26 READ.B $26 0917ED 43 PUSH.6 $03 0917EE 2A EQ.L 0917EF 18 05 BRZ $005 ; => $0917F6 0917F1 40 PUSH.6 $00 0917F2 90 21 WRITE.B $21 0917F4 10 03 BR $003 ; => $0917F9 0917F6 30 00 65 BSR.68K $0065 ; => $091794 0917F9 10 39 BR $039 ; => $091834 0917FB 10 1E 04 CASE $04 ; SWITCH $0917E7 0917FE 54 PUSH.6 $14 0917FF 30 01 FE BSR.68K $01FE ; => $091604 => $09E078 091802 5F PUSH.6 $1F 091803 03 25 LT.L 091805 18 03 BRZ $003 ; => $09180A 091807 54 PUSH.6 $14 091808 10 0D BR $00D ; => $091817 09180A 57 PUSH.6 $17 09180B 30 02 0A BSR.68K $020A ; => $091604 => $09E078 09180E 4C PUSH.6 $0C 09180F 03 25 LT.L 091811 18 03 BRZ $003 ; => $091816 091813 57 PUSH.6 $17 091814 10 01 BR $001 ; => $091817 091816 61 PUSH.6 $21 091817 90 26 WRITE.B $26 091819 10 19 BR $019 ; => $091834 09181B 00 DEFAULT ; SWITCH $0917E7 09181C 80 26 READ.B $26 09181E 45 PUSH.6 $05 09181F 03 26 GT.L 091821 18 07 BRZ $007 ; => $09182A 091823 30 02 28 BSR.68K $0228 ; => $0915FE => $09DFB4 091826 94 00 WRITE.B $00 091828 10 0A BR $00A ; => $091834 09182A 80 26 READ.B $26 09182C 60 PUSH.6 $20 09182D 03 26 GT.L 09182F 18 03 BRZ $003 ; => $091834 091831 30 01 24 BSR.68K $0124 ; => $091710 091834 80 26 READ.B $26 091836 35 SWITCH 091837 10 13 04 CASE $04 ; SWITCH $091836 09183A 80 1C READ.B $1C 09183C 73 PUSH.6 $33 09183D 03 25 LT.L 09183F 18 09 BRZ $009 ; => $09184A 091841 80 1C READ.B $1C 091843 90 1B WRITE.B $1B 091845 70 PUSH.6 $30 091846 90 1C WRITE.B $1C 091848 10 05 BR $005 ; => $09184F 09184A 10 48 BR $048 ; => $091894 09184C 10 13 05 CASE $05 ; SWITCH $091836 09184F 54 PUSH.6 $14 091850 90 26 WRITE.B $26 091852 43 PUSH.6 $03 091853 30 02 52 BSR.68K $0252 ; => $091604 => $09E078 091856 30 02 1F BSR.68K $021F ; => $09163A => $097AA8 091859 2E NOT.L 09185A 18 03 BRZ $003 ; => $09185F 09185C 30 00 CB BSR.68K $00CB ; => $091794 09185F 10 33 BR $033 ; => $091894 091861 10 30 21 CASE $21 ; SWITCH $091836 091864 43 PUSH.6 $03 091865 30 02 64 BSR.68K $0264 ; => $091604 => $09E078 091868 D0 55 71 WRITE.B $5571 09186B C0 55 71 READ.B $5571 09186E 30 02 37 BSR.68K $0237 ; => $09163A => $097AA8 091871 18 1B BRZ $01B ; => $09188E 091873 C0 55 71 READ.B $5571 091876 90 23 WRITE.B $23 091878 30 01 E3 BSR.68K $01E3 ; => $091698 09187B D2 55 7D WRITE.L $557D 09187E 30 02 41 BSR.68K $0241 ; => $091640 091881 C1 56 27 READ.W $5627 091884 41 PUSH.6 $01 091885 2D OR.L 091886 D1 56 27 WRITE.W $5627 091889 4B PUSH.6 $0B 09188A 90 21 WRITE.B $21 09188C 10 03 BR $003 ; => $091891 09188E 30 00 FD BSR.68K $00FD ; => $091794 091891 10 01 BR $001 ; => $091894 091893 00 DEFAULT ; SWITCH $091836 091894 32 02 ADDSP.B $02 091896 34 RETURN ; ---------------- End Function $0917DC ---------------- ; ---------------- Begin 2144 Function $091898 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DBDF ; addr bytes opcode operands comment 09189F 31 02 SUBSP.B $02 0918A1 80 22 READ.B $22 0918A3 35 SWITCH 0918A4 10 06 00 CASE $00 ; SWITCH $0918A3 0918A7 30 00 CE BSR.68K $00CE ; => $0917DC 0918AA 10 3F BR $03F ; => $0918EB 0918AC 10 3C 01 CASE $01 ; SWITCH $0918A3 0918AF 80 20 READ.B $20 0918B1 35 SWITCH 0918B2 10 30 04 CASE $04 ; SWITCH $0918B1 0918B5 40 PUSH.6 $00 0918B6 90 22 WRITE.B $22 0918B8 80 23 READ.B $23 0918BA 94 00 WRITE.B $00 0918BC 84 00 READ.B $00 0918BE 41 PUSH.6 $01 0918BF 27 ADD.L 0918C0 94 00 WRITE.B $00 0918C2 84 00 READ.B $00 0918C4 60 PUSH.6 $20 0918C5 03 25 LT.L 0918C7 18 03 BRZ $003 ; => $0918CC 0918C9 41 PUSH.6 $01 0918CA 94 00 WRITE.B $00 0918CC 84 00 READ.B $00 0918CE E0 02 29 READ.B $0229 0918D1 40 PUSH.6 $00 0918D2 2A EQ.L 0918D3 84 00 READ.B $00 0918D5 80 23 READ.B $23 0918D7 2A EQ.L 0918D8 2D OR.L 0918D9 1F E1 BRZ $-1F ; => $0918BC 0918DB 84 00 READ.B $00 0918DD 90 23 WRITE.B $23 0918DF 30 01 4E BSR.68K $014E ; => $091794 0918E2 10 04 BR $004 ; => $0918E8 0918E4 00 DEFAULT ; SWITCH $0918B1 0918E5 30 02 D2 BSR.68K $02D2 ; => $091616 => $09D9DE 0918E8 10 01 BR $001 ; => $0918EB 0918EA 00 DEFAULT ; SWITCH $0918A3 0918EB 32 02 ADDSP.B $02 0918ED 34 RETURN ; ---------------- End Function $091898 ---------------- ; ---------------- Begin 2144 Function $0918EE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DBD7 ; addr bytes opcode operands comment 0918F5 80 20 READ.B $20 0918F7 35 SWITCH 0918F8 10 20 10 CASE $10 ; SWITCH $0918F7 0918FB 30 02 F4 BSR.68K $02F4 ; => $09160A => $099642 0918FE 7E PUSH.6 $3E 0918FF 90 21 WRITE.B $21 091901 40 PUSH.6 $00 091902 90 22 WRITE.B $22 091904 30 02 D3 BSR.68K $02D3 ; => $091634 => $097A88 091907 90 23 WRITE.B $23 091909 C0 2A 0B READ.B $2A0B 09190C 90 24 WRITE.B $24 09190E C0 2A 0C READ.B $2A0C 091911 41 PUSH.6 $01 091912 27 ADD.L 091913 90 25 WRITE.B $25 091915 30 01 84 BSR.68K $0184 ; => $091794 091918 10 3D BR $03D ; => $091957 09191A 10 06 50 CASE $50 ; SWITCH $0918F7 09191D 41 PUSH.6 $01 09191E 90 21 WRITE.B $21 091920 10 35 BR $035 ; => $091957 091922 10 2A 90 CASE $90 ; SWITCH $0918F7 091925 30 03 1E BSR.68K $031E ; => $09160A => $099642 091928 30 03 33 BSR.68K $0333 ; => $0915F8 => $0034AA (CLEARSCREEN) (NATIVE) 09192B 44 PUSH.6 $04 09192C 3F 18 53 43 48 45 44 20 20 DISP "SCHED ELEV PDOP" 20 20 20 20 20 45 4C 45 56 20 20 20 20 50 44 4F 50 091946 40 PUSH.6 $00 091947 90 22 WRITE.B $22 091949 75 PUSH.6 $35 09194A 90 21 WRITE.B $21 09194C 10 09 BR $009 ; => $091957 09194E 10 03 D0 CASE $D0 ; SWITCH $0918F7 091951 10 04 BR $004 ; => $091957 091953 00 DEFAULT ; SWITCH $0918F7 091954 30 03 41 BSR.68K $0341 ; => $091616 => $09D9DE 091957 34 RETURN ; ---------------- End Function $0918EE ---------------- ; ---------------- Begin 2144 Function $091958 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D9DE:$09DA1E ; called from $0A0AE4:$0A0B36 ; addr bytes opcode operands comment 09195F 30 03 6A BSR.68K $036A ; => $0915F8 => $0034AA (CLEARSCREEN) (NATIVE) 091962 C0 29 58 READ.B $2958 091965 18 21 BRZ $021 ; => $091988 091967 43 PUSH.6 $03 091968 3F 19 49 4E 56 49 45 57 20 DISP "INVIEW RISET PLOT" 20 20 20 20 20 20 52 49 53 45 54 20 20 20 50 4C 4F 54 091983 45 PUSH.6 $05 091984 90 21 WRITE.B $21 091986 10 06 BR $006 ; => $09198E 091988 30 03 7B BSR.68K $037B ; => $091610 => $0A0AC0 09198B 62 PUSH.6 $22 09198C 90 21 WRITE.B $21 09198E 34 RETURN ; ---------------- End Function $091958 ---------------- ; ---------------- Begin 2144 Function $0919AE ---------------- ; A0 = $004008; (A0) = SP + $3 ; called from $0919F4:$091A08 ; called from $0919F4:$091A12 ; addr bytes opcode operands comment 0919B5 40 PUSH.6 $00 0919B6 36 10 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 0919B9 42 PUSH.6 $02 0919BA 38 00 2D BLS.B $002D ; => $0919EA 0919BD 8A 03 READ.L $03 0919BF 84 03 READ.B $03 0919C1 45 PUSH.6 $05 0919C2 29 MUL.L 0919C3 27 ADD.L 0919C4 36 10 02 _2362 $0002 ; A0 = $004000; (A0) = A6 + $0 0919C7 8A 03 READ.L $03 0919C9 84 03 READ.B $03 0919CB 45 PUSH.6 $05 0919CC 29 MUL.L 0919CD 27 ADD.L 0919CE 43 PUSH.6 $03 0919CF 27 ADD.L 0919D0 38 00 12 BLS.B $0012 ; => $0919E5 0919D3 84 02 READ.B $02 0919D5 41 PUSH.6 $01 0919D6 28 SUB.L 0919D7 84 03 READ.B $03 0919D9 28 SUB.L 0919DA 84 02 READ.B $02 0919DC A0 1F READ.B $1F 0919DE B0 1F WRITE.B $1F 0919E0 37 10 02 00 1E _23d2 $0002, $001E 0919E5 37 10 03 00 31 _23d2 $0003, $0031 0919EA 8A 03 READ.L $03 0919EC 4B PUSH.6 $0B 0919ED 27 ADD.L 0919EE 94 01 WRITE.B $01 0919F0 32 04 ADDSP.B $04 0919F2 34 RETURN ; ---------------- End Function $0919AE ---------------- ; ---------------- Begin 2144 Function $0919F4 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $091A50:$091ADA ; called from $091A50:$091B19 ; addr bytes opcode operands comment 0919FB 84 04 READ.B $04 0919FD 41 PUSH.6 $01 0919FE 27 ADD.L 0919FF 94 04 WRITE.B $04 091A01 84 04 READ.B $04 091A03 47 PUSH.6 $07 091A04 2A EQ.L 091A05 18 04 BRZ $004 ; => $091A0B 091A07 51 PUSH.6 $11 091A08 30 00 5D BSR.68K $005D ; => $0919AE 091A0B 84 04 READ.B $04 091A0D 48 PUSH.6 $08 091A0E 2A EQ.L 091A0F 18 04 BRZ $004 ; => $091A15 091A11 41 PUSH.6 $01 091A12 30 00 67 BSR.68K $0067 ; => $0919AE 091A15 84 04 READ.B $04 091A17 49 PUSH.6 $09 091A18 03 26 GT.L 091A1A 18 32 BRZ $032 ; => $091A4E 091A1C 84 01 READ.B $01 091A1E 84 00 READ.B $00 091A20 30 00 7B BSR.68K $007B ; => $0919A8 => $097B0A 091A23 84 01 READ.B $01 091A25 42 PUSH.6 $02 091A26 27 ADD.L 091A27 84 00 READ.B $00 091A29 E3 23 FF READ.F $23FF 091A2C 03 29 FLOAT2LONG 091A2E 30 00 89 BSR.68K $0089 ; => $0919A8 => $097B0A 091A31 84 01 READ.B $01 091A33 41 PUSH.6 $01 091A34 27 ADD.L 091A35 30 00 9C BSR.68K $009C ; => $09199C => $097B72 091A38 84 01 READ.B $01 091A3A 43 PUSH.6 $03 091A3B 27 ADD.L 091A3C 30 00 9D BSR.68K $009D ; => $0919A2 => $097B5C 091A3F 84 01 READ.B $01 091A41 45 PUSH.6 $05 091A42 27 ADD.L 091A43 94 01 WRITE.B $01 091A45 84 01 READ.B $01 091A47 50 PUSH.6 $10 091A48 2A EQ.L 091A49 18 03 BRZ $003 ; => $091A4E 091A4B 51 PUSH.6 $11 091A4C 94 01 WRITE.B $01 091A4E 34 RETURN ; ---------------- End Function $0919F4 ---------------- ; ---------------- Begin 2144 Function $091A50 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0976BA:$09776D ; addr bytes opcode operands comment 091A57 31 0E SUBSP.B $0E 091A59 30 00 CC BSR.68K $00CC ; => $091990 => $0034AA (CLEARSCREEN) (NATIVE) 091A5C C0 55 A2 READ.B $55A2 091A5F 2E NOT.L 091A60 18 15 BRZ $015 ; => $091A77 091A62 40 PUSH.6 $00 091A63 3F 10 54 49 4D 45 20 4E 4F DISP "TIME NOT SET YET" 54 20 53 45 54 20 59 45 54 091A75 10 D0 BR $0D0 ; => $091B47 091A77 83 37 READ.F $37 091A79 3E PUSH.W $0000 091A7A 26 EQ.F 091A7B 83 3F READ.F $3F 091A7D 3E PUSH.W $0000 091A7E 26 EQ.F 091A7F 2C AND.L 091A80 18 15 BRZ $015 ; => $091A97 091A82 40 PUSH.6 $00 091A83 3F 10 50 4F 53 49 54 49 4F DISP "POSITION UNKNOWN" 4E 20 55 4E 4B 4E 4F 57 4E 091A95 10 B0 BR $0B0 ; => $091B47 091A97 C0 4E 69 READ.B $4E69 091A9A 18 03 BRZ $003 ; => $091A9F 091A9C 3E PUSH.W $0000 091A9D 10 03 BR $003 ; => $091AA2 091A9F C3 28 DB READ.F $28DB 091AA2 97 0D WRITE.F $0D 091AA4 40 PUSH.6 $00 091AA5 94 04 WRITE.B $04 091AA7 41 PUSH.6 $01 091AA8 94 01 WRITE.B $01 091AAA 41 PUSH.6 $01 091AAB 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 091AAE 60 PUSH.6 $20 091AAF 38 00 30 BLS.B $0030 ; => $091AE2 091AB2 84 00 READ.B $00 091AB4 E3 23 FF READ.F $23FF 091AB7 87 0D READ.F $0D 091AB9 25 GTE.F 091ABA 84 00 READ.B $00 091ABC E0 02 29 READ.B $0229 091ABF 40 PUSH.6 $00 091AC0 2A EQ.L 091AC1 84 00 READ.B $00 091AC3 E0 22 F5 READ.B $22F5 091AC6 2D OR.L 091AC7 2C AND.L 091AC8 84 00 READ.B $00 091ACA E1 01 61 READ.W $0161 091ACD 40 PUSH.6 $00 091ACE 2B NEQ.L 091ACF 84 00 READ.B $00 091AD1 E1 18 9B READ.W $189B 091AD4 40 PUSH.6 $00 091AD5 2B NEQ.L 091AD6 2D OR.L 091AD7 2C AND.L 091AD8 18 03 BRZ $003 ; => $091ADD 091ADA 30 00 E9 BSR.68K $00E9 ; => $0919F4 091ADD 37 10 00 00 34 _23d2 $0000, $0034 091AE2 41 PUSH.6 $01 091AE3 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 091AE6 60 PUSH.6 $20 091AE7 38 00 37 BLS.B $0037 ; => $091B21 091AEA 84 00 READ.B $00 091AEC E3 23 FF READ.F $23FF 091AEF 87 0D READ.F $0D 091AF1 25 GTE.F 091AF2 84 00 READ.B $00 091AF4 E1 01 61 READ.W $0161 091AF7 40 PUSH.6 $00 091AF8 2B NEQ.L 091AF9 84 00 READ.B $00 091AFB E1 18 9B READ.W $189B 091AFE 40 PUSH.6 $00 091AFF 2B NEQ.L 091B00 2D OR.L 091B01 2C AND.L 091B02 84 00 READ.B $00 091B04 E0 02 29 READ.B $0229 091B07 40 PUSH.6 $00 091B08 2A EQ.L 091B09 84 00 READ.B $00 091B0B E0 22 F5 READ.B $22F5 091B0E 2D OR.L 091B0F 2E NOT.L 091B10 2C AND.L 091B11 84 04 READ.B $04 091B13 46 PUSH.6 $06 091B14 03 26 GT.L 091B16 2C AND.L 091B17 18 03 BRZ $003 ; => $091B1C 091B19 30 01 28 BSR.68K $0128 ; => $0919F4 091B1C 37 10 00 00 3B _23d2 $0000, $003B 091B21 84 01 READ.B $01 091B23 41 PUSH.6 $01 091B24 2A EQ.L 091B25 18 20 BRZ $020 ; => $091B47 091B27 40 PUSH.6 $00 091B28 3F 1D 20 20 4E 4F 20 53 56 DISP " NO SVS ABOVE ELEV MASK" 53 20 41 42 4F 56 45 20 20 20 20 20 45 4C 45 56 20 20 4D 41 53 4B 091B47 30 01 B4 BSR.68K $01B4 ; => $091996 => $0034C8 (SETSEGMENTS) (NATIVE) 091B4A 32 0E ADDSP.B $0E 091B4C 34 RETURN ; ---------------- End Function $091A50 ---------------- ; ---------------- Begin 2144 Function $091B7E ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $091BF2:$091DD2 ; called from $0A1C82:$0A1DC8 ; called from $0A1C82:$0A1E79 ; addr bytes opcode operands comment 091B85 86 03 READ.L $03 091B87 86 07 READ.L $07 091B89 68 PUSH.6 $28 091B8A 03 24 DIV.L 091B8C 70 PUSH.6 $30 091B8D 27 ADD.L 091B8E B0 1F WRITE.B $1F 091B90 86 03 READ.L $03 091B92 41 PUSH.6 $01 091B93 27 ADD.L 091B94 86 07 READ.L $07 091B96 44 PUSH.6 $04 091B97 03 24 DIV.L 091B99 4A PUSH.6 $0A 091B9A 2F MOD.L 091B9B 70 PUSH.6 $30 091B9C 27 ADD.L 091B9D B0 1F WRITE.B $1F 091B9F 86 07 READ.L $07 091BA1 44 PUSH.6 $04 091BA2 2F MOD.L 091BA3 4F PUSH.6 $0F 091BA4 29 MUL.L 091BA5 96 07 WRITE.L $07 091BA7 86 03 READ.L $03 091BA9 42 PUSH.6 $02 091BAA 27 ADD.L 091BAB 86 07 READ.L $07 091BAD 4A PUSH.6 $0A 091BAE 03 24 DIV.L 091BB0 70 PUSH.6 $30 091BB1 27 ADD.L 091BB2 B0 1F WRITE.B $1F 091BB4 86 03 READ.L $03 091BB6 43 PUSH.6 $03 091BB7 27 ADD.L 091BB8 86 07 READ.L $07 091BBA 4A PUSH.6 $0A 091BBB 2F MOD.L 091BBC 70 PUSH.6 $30 091BBD 27 ADD.L 091BBE B0 1F WRITE.B $1F 091BC0 32 08 ADDSP.B $08 091BC2 34 RETURN ; ---------------- End Function $091B7E ---------------- ; ---------------- Begin 2164 Function $091BC4 ---------------- ; P0 = $0014; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $13; D1 = $000008 ; called from $091BF2:$091CC4 ; called from $091BF2:$091D19 ; called from $0A1C82:$0A1D5A ; called from $0A1C82:$0A1D91 ; called from $0A23A8:$0A23E4 ; called from $0A27A0:$0A2931 ; addr bytes opcode operands comment 091BCD 86 0F READ.L $0F 091BCF 18 0C BRZ $00C ; => $091BDD 091BD1 86 0B READ.L $0B 091BD3 86 13 READ.L $13 091BD5 87 1B READ.F $1B 091BD7 40 PUSH.6 $00 091BD8 30 00 8D BSR.68K $008D ; => $091B4E => $0AD08A 091BDB 10 09 BR $009 ; => $091BE6 091BDD 86 0B READ.L $0B 091BDF 86 13 READ.L $13 091BE1 87 1B READ.F $1B 091BE3 30 00 92 BSR.68K $0092 ; => $091B54 => $0AD3AC 091BE6 30 00 8F BSR.68K $008F ; => $091B5A => $0AA358 091BE9 C3 56 15 READ.F $5615 091BEC 97 07 WRITE.F $07 091BEE 32 14 ADDSP.B $14 091BF0 34 RETURN ; ---------------- End Function $091BC4 ---------------- ; ---------------- Begin 2144 Function $091BF2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A96E2:$0A9701 ; addr bytes opcode operands comment 091BF9 31 1C SUBSP.B $1C 091BFB C0 55 71 READ.B $5571 091BFE 94 1A WRITE.B $1A 091C00 C2 55 7D READ.L $557D 091C03 47 PUSH.6 $07 091C04 03 24 DIV.L 091C06 95 0F WRITE.W $0F 091C08 C2 55 7D READ.L $557D 091C0B 47 PUSH.6 $07 091C0C 2F MOD.L 091C0D 3D 00 01 51 80 PUSH.L $00015180 091C12 29 MUL.L 091C13 96 19 WRITE.L $19 091C15 40 PUSH.6 $00 091C16 36 10 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 091C19 43 PUSH.6 $03 091C1A 38 00 0B BLS.B $000B ; => $091C28 091C1D 84 03 READ.B $03 091C1F 04 FF PUSH.10 $0FF 091C21 B4 13 WRITE.B $13 091C23 37 10 03 00 0F _23d2 $0003, $000F 091C28 04 FF PUSH.10 $0FF 091C2A D0 4E 66 WRITE.B $4E66 091C2D 80 21 READ.B $21 091C2F 4B PUSH.6 $0B 091C30 2B NEQ.L 091C31 18 02 BRZ $002 ; => $091C35 091C33 11 AE BR $1AE ; => $091DE3 091C35 30 00 C6 BSR.68K $00C6 ; => $091B72 => $0034AA (CLEARSCREEN) (NATIVE) 091C38 40 PUSH.6 $00 091C39 3F 0F 53 56 78 78 20 20 52 DISP "SVxx RISE--SET" 49 53 45 2D 2D 53 45 54 091C4A 42 PUSH.6 $02 091C4B 84 1A READ.B $1A 091C4D 30 00 D8 BSR.68K $00D8 ; => $091B78 => $097B0A 091C50 84 1A READ.B $1A 091C52 30 00 EF BSR.68K $00EF ; => $091B66 => $095184 091C55 18 17 BRZ $017 ; => $091C6E 091C57 40 PUSH.6 $00 091C58 94 00 WRITE.B $00 091C5A 50 PUSH.6 $10 091C5B 3F 0F 55 53 49 4E 47 20 45 DISP "USING EPHEMERIS" 50 48 45 4D 45 52 49 53 091C6C 10 3C BR $03C ; => $091CAA 091C6E 84 1A READ.B $1A 091C70 30 01 07 BSR.68K $0107 ; => $091B6C => $09519A 091C73 18 15 BRZ $015 ; => $091C8A 091C75 41 PUSH.6 $01 091C76 94 00 WRITE.B $00 091C78 50 PUSH.6 $10 091C79 3F 0D 55 53 49 4E 47 20 41 DISP "USING ALMANAC" 4C 4D 41 4E 41 43 091C88 10 20 BR $020 ; => $091CAA 091C8A 46 PUSH.6 $06 091C8B 3F 18 4F 52 42 49 54 20 44 DISP "ORBIT DATA NOT AVAILABLE" 41 54 41 20 4E 4F 54 20 41 56 41 49 4C 41 42 4C 45 091CA5 30 01 48 BSR.68K $0148 ; => $091B60 => $0034C8 (SETSEGMENTS) (NATIVE) 091CA8 11 39 BR $139 ; => $091DE3 091CAA 30 01 4D BSR.68K $014D ; => $091B60 => $0034C8 (SETSEGMENTS) (NATIVE) 091CAD 40 PUSH.6 $00 091CAE D0 4E 66 WRITE.B $4E66 091CB1 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 091CBA 84 1A READ.B $1A 091CBC 84 00 READ.B $00 091CBE 85 0F READ.W $0F 091CC0 86 19 READ.L $19 091CC2 03 2A LONG2FLOAT 091CC4 30 01 03 BSR.68K $0103 ; => $091BC4 091CC7 22 MUL.F 091CC8 97 0D WRITE.F $0D 091CCA 87 0D READ.F $0D 091CCC C3 28 DB READ.F $28DB 091CCF 24 GT.F 091CD0 94 02 WRITE.B $02 091CD2 84 02 READ.B $02 091CD4 41 PUSH.6 $01 091CD5 2C AND.L 091CD6 94 14 WRITE.B $14 091CD8 41 PUSH.6 $01 091CD9 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 091CDC 04 60 PUSH.10 $060 091CDE 38 00 64 BLS.B $0064 ; => $091D45 091CE1 87 0D READ.F $0D 091CE3 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 091CEC 03 20 NEG.W 091CEE 03 21 LT.F 091CF0 18 0E BRZ $00E ; => $091D00 091CF2 87 0D READ.F $0D 091CF4 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 091CFD 20 ADD.F 091CFE 10 1D BR $01D ; => $091D1D 091D00 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 091D09 84 1A READ.B $1A 091D0B 84 00 READ.B $00 091D0D 85 0F READ.W $0F 091D0F 86 19 READ.L $19 091D11 07 84 PUSH.10 $384 091D13 84 04 READ.B $04 091D15 29 MUL.L 091D16 27 ADD.L 091D17 03 2A LONG2FLOAT 091D19 30 01 58 BSR.68K $0158 ; => $091BC4 091D1C 22 MUL.F 091D1D 97 0D WRITE.F $0D 091D1F 84 02 READ.B $02 091D21 94 01 WRITE.B $01 091D23 87 0D READ.F $0D 091D25 C3 28 DB READ.F $28DB 091D28 25 GTE.F 091D29 94 02 WRITE.B $02 091D2B 84 02 READ.B $02 091D2D 84 01 READ.B $01 091D2F 2B NEQ.L 091D30 18 0E BRZ $00E ; => $091D40 091D32 84 14 READ.B $14 091D34 84 04 READ.B $04 091D36 B4 13 WRITE.B $13 091D38 84 14 READ.B $14 091D3A 41 PUSH.6 $01 091D3B 27 ADD.L 091D3C 44 PUSH.6 $04 091D3D 2F MOD.L 091D3E 94 14 WRITE.B $14 091D40 37 10 04 00 69 _23d2 $0004, $0069 091D45 04 FF PUSH.10 $0FF 091D47 D0 4E 66 WRITE.B $4E66 091D4A 80 21 READ.B $21 091D4C 4B PUSH.6 $0B 091D4D 2B NEQ.L 091D4E 18 02 BRZ $002 ; => $091D52 091D50 10 91 BR $091 ; => $091DE3 091D52 30 01 E3 BSR.68K $01E3 ; => $091B72 => $0034AA (CLEARSCREEN) (NATIVE) 091D55 40 PUSH.6 $00 091D56 3F 02 53 56 DISP "SV" 091D5A 42 PUSH.6 $02 091D5B 84 1A READ.B $1A 091D5D 30 01 E8 BSR.68K $01E8 ; => $091B78 => $097B0A 091D60 84 13 READ.B $13 091D62 04 FF PUSH.10 $0FF 091D64 2A EQ.L 091D65 18 08 BRZ $008 ; => $091D6F 091D67 84 11 READ.B $11 091D69 94 13 WRITE.B $13 091D6B 04 FF PUSH.10 $0FF 091D6D 94 11 WRITE.B $11 091D6F 84 13 READ.B $13 091D71 04 FF PUSH.10 $0FF 091D73 2A EQ.L 091D74 18 15 BRZ $015 ; => $091D8B 091D76 50 PUSH.6 $10 091D77 3F 10 4E 45 56 45 52 20 41 DISP "NEVER ABOVE MASK" 42 4F 56 45 20 4D 41 53 4B 091D89 10 4F BR $04F ; => $091DDA 091D8B 40 PUSH.6 $00 091D8C 36 10 14 _2362 $0014 ; A0 = $004000; (A0) = A6 + $0 091D8F 84 11 READ.B $11 091D91 04 FF PUSH.10 $0FF 091D93 2A EQ.L 091D94 84 10 READ.B $10 091D96 04 FF PUSH.10 $0FF 091D98 2A EQ.L 091D99 2D OR.L 091D9A 18 03 BRZ $003 ; => $091D9F 091D9C 41 PUSH.6 $01 091D9D 10 01 BR $001 ; => $091DA0 091D9F 43 PUSH.6 $03 091DA0 38 00 37 BLS.B $0037 ; => $091DDA 091DA3 84 14 READ.B $14 091DA5 35 SWITCH 091DA6 10 0B 00 CASE $00 ; SWITCH $091DA5 091DA9 46 PUSH.6 $06 091DAA 94 05 WRITE.B $05 091DAC 4A PUSH.6 $0A 091DAD 3F 02 2D 2D DISP "--" 091DB1 10 19 BR $019 ; => $091DCC 091DB3 10 06 01 CASE $01 ; SWITCH $091DA5 091DB6 4C PUSH.6 $0C 091DB7 94 05 WRITE.B $05 091DB9 10 11 BR $011 ; => $091DCC 091DBB 10 0B 02 CASE $02 ; SWITCH $091DA5 091DBE 56 PUSH.6 $16 091DBF 94 05 WRITE.B $05 091DC1 5A PUSH.6 $1A 091DC2 3F 02 2D 2D DISP "--" 091DC6 10 04 BR $004 ; => $091DCC 091DC8 00 DEFAULT ; SWITCH $091DA5 091DC9 5C PUSH.6 $1C 091DCA 94 05 WRITE.B $05 091DCC 84 05 READ.B $05 091DCE 84 14 READ.B $14 091DD0 A4 13 READ.B $13 091DD2 30 02 57 BSR.68K $0257 ; => $091B7E 091DD5 37 10 14 00 4B _23d2 $0014, $004B 091DDA 30 02 7D BSR.68K $027D ; => $091B60 => $0034C8 (SETSEGMENTS) (NATIVE) 091DDD 7E PUSH.6 $3E 091DDE 90 21 WRITE.B $21 091DE0 41 PUSH.6 $01 091DE1 90 22 WRITE.B $22 091DE3 40 PUSH.6 $00 091DE4 D0 4E 66 WRITE.B $4E66 091DE7 32 1C ADDSP.B $1C 091DE9 34 RETURN ; ---------------- End Function $091BF2 ---------------- ; ---------------- Begin 2144 Function $091DF6 ---------------- ; A0 = $004004; (A0) = SP + $4F ; called from $091FC6:$092032 ; called from $0A03BC:$0A03E2 ; called from $0A042E:$0A0460 ; addr bytes opcode operands comment 091DFD 31 0E SUBSP.B $0E 091DFF 87 07 READ.F $07 091E01 C3 28 77 READ.F $2877 091E04 21 SUB.F 091E05 97 07 WRITE.F $07 091E07 87 07 READ.F $07 091E09 3E PUSH.W $0000 091E0A 03 21 LT.F 091E0C 87 07 READ.F $07 091E0E 3B 41 EF FF FF FF E0 00 00 PUSH.F $41EFFFFFFFE00000 ; float = 4294967295.000000 091E17 24 GT.F 091E18 2D OR.L 091E19 18 03 BRZ $003 ; => $091E1E 091E1B 3E PUSH.W $0000 091E1C 97 07 WRITE.F $07 091E1E 87 07 READ.F $07 091E20 03 29 FLOAT2LONG 091E22 96 53 WRITE.L $53 091E24 86 53 READ.L $53 091E26 3D 00 01 51 80 PUSH.L $00015180 091E2B 03 24 DIV.L 091E2D 47 PUSH.6 $07 091E2E 2F MOD.L 091E2F 96 23 WRITE.L $23 091E31 86 53 READ.L $53 091E33 3D 09 62 0D 00 PUSH.L $09620D00 091E38 28 SUB.L 091E39 96 53 WRITE.L $53 091E3B 3D 01 E1 33 80 PUSH.L $01E13380 091E40 96 57 WRITE.L $57 091E42 40 PUSH.6 $00 091E43 96 0B WRITE.L $0B 091E45 86 53 READ.L $53 091E47 86 57 READ.L $57 091E49 03 27 LTE.L 091E4B 18 25 BRZ $025 ; => $091E72 091E4D 86 53 READ.L $53 091E4F 86 57 READ.L $57 091E51 28 SUB.L 091E52 96 53 WRITE.L $53 091E54 86 0B READ.L $0B 091E56 41 PUSH.6 $01 091E57 27 ADD.L 091E58 96 0B WRITE.L $0B 091E5A 86 0B READ.L $0B 091E5C 41 PUSH.6 $01 091E5D 27 ADD.L 091E5E 44 PUSH.6 $04 091E5F 2F MOD.L 091E60 18 07 BRZ $007 ; => $091E69 091E62 3D 01 E1 33 80 PUSH.L $01E13380 091E67 10 05 BR $005 ; => $091E6E 091E69 3D 01 E2 85 00 PUSH.L $01E28500 091E6E 96 57 WRITE.L $57 091E70 17 D3 BR $-2D ; => $091E45 091E72 41 PUSH.6 $01 091E73 86 53 READ.L $53 091E75 3D 00 01 51 80 PUSH.L $00015180 091E7A 03 24 DIV.L 091E7C 27 ADD.L 091E7D 96 4B WRITE.L $4B 091E7F 86 0B READ.L $0B 091E81 41 PUSH.6 $01 091E82 27 ADD.L 091E83 44 PUSH.6 $04 091E84 2F MOD.L 091E85 94 5C WRITE.B $5C 091E87 3D 00 28 DE 80 PUSH.L $0028DE80 091E8C 96 5B WRITE.L $5B 091E8E 40 PUSH.6 $00 091E8F 96 13 WRITE.L $13 091E91 86 53 READ.L $53 091E93 86 5B READ.L $5B 091E95 03 27 LTE.L 091E97 18 40 BRZ $040 ; => $091ED9 091E99 86 53 READ.L $53 091E9B 86 5B READ.L $5B 091E9D 28 SUB.L 091E9E 96 53 WRITE.L $53 091EA0 86 13 READ.L $13 091EA2 41 PUSH.6 $01 091EA3 27 ADD.L 091EA4 96 13 WRITE.L $13 091EA6 86 13 READ.L $13 091EA8 35 SWITCH 091EA9 10 15 01 CASE $01 ; SWITCH $091EA8 091EAC 84 5C READ.B $5C 091EAE 18 07 BRZ $007 ; => $091EB7 091EB0 3D 00 24 EA 00 PUSH.L $0024EA00 091EB5 10 05 BR $005 ; => $091EBC 091EB7 3D 00 26 3B 80 PUSH.L $00263B80 091EBC 96 5B WRITE.L $5B 091EBE 10 17 BR $017 ; => $091ED7 091EC0 40 0D 03 05 08 0A CASE $03, $05, $08, $0A ; SWITCH $091EA8 091EC6 3D 00 27 8D 00 PUSH.L $00278D00 091ECB 96 5B WRITE.L $5B 091ECD 10 08 BR $008 ; => $091ED7 091ECF 00 DEFAULT ; SWITCH $091EA8 091ED0 3D 00 28 DE 80 PUSH.L $0028DE80 091ED5 96 5B WRITE.L $5B 091ED7 17 B8 BR $-48 ; => $091E91 091ED9 86 53 READ.L $53 091EDB 3D 00 01 51 80 PUSH.L $00015180 091EE0 03 24 DIV.L 091EE2 41 PUSH.6 $01 091EE3 27 ADD.L 091EE4 96 1B WRITE.L $1B 091EE6 86 53 READ.L $53 091EE8 3D 00 01 51 80 PUSH.L $00015180 091EED 2F MOD.L 091EEE 96 53 WRITE.L $53 091EF0 86 53 READ.L $53 091EF2 3C 0E 10 PUSH.W $0E10 091EF5 03 24 DIV.L 091EF7 96 2B WRITE.L $2B 091EF9 86 53 READ.L $53 091EFB 3C 0E 10 PUSH.W $0E10 091EFE 2F MOD.L 091EFF 96 53 WRITE.L $53 091F01 86 53 READ.L $53 091F03 7C PUSH.6 $3C 091F04 03 24 DIV.L 091F06 96 33 WRITE.L $33 091F08 86 53 READ.L $53 091F0A 7C PUSH.6 $3C 091F0B 2F MOD.L 091F0C 96 3B WRITE.L $3B 091F0E 3B 40 49 00 00 00 00 00 00 PUSH.F $4049000000000000 ; float = 50.000000 091F17 87 07 READ.F $07 091F19 30 01 2C BSR.68K $012C ; => $091DF0 => $002C08 (NATIVE) 091F1C 22 MUL.F 091F1D 03 29 FLOAT2LONG 091F1F 96 43 WRITE.L $43 091F21 32 0E ADDSP.B $0E 091F23 33 _2300 091F24 33 _2300 091F25 33 _2300 091F26 33 _2300 091F27 33 _2300 091F28 33 _2300 091F29 33 _2300 091F2A 33 _2300 091F2B 33 _2300 091F2C 32 08 ADDSP.B $08 091F2E 34 RETURN ; ---------------- End Function $091DF6 ---------------- ; ---------------- Begin 2164 Function $091F30 ---------------- ; P0 = $000C; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $B; D1 = $000004 ; called from $091698:$0916AC ; called from $091698:$0916D0 ; called from $091698:$0916E8 ; called from $091698:$091703 ; addr bytes opcode operands comment 091F39 31 0C SUBSP.B $0C 091F3B 86 0F READ.L $0F 091F3D 04 50 PUSH.10 $050 091F3F 03 26 GT.L 091F41 18 07 BRZ $007 ; => $091F4A 091F43 86 0F READ.L $0F 091F45 04 64 PUSH.10 $064 091F47 27 ADD.L 091F48 96 0F WRITE.L $0F 091F4A 40 PUSH.6 $00 091F4B 96 13 WRITE.L $13 091F4D 05 6E PUSH.10 $16E 091F4F 95 15 WRITE.W $15 091F51 04 50 PUSH.10 $050 091F53 95 19 WRITE.W $19 091F55 86 0F READ.L $0F 091F57 85 19 READ.W $19 091F59 03 25 LT.L 091F5B 18 1D BRZ $01D ; => $091F7A 091F5D 86 13 READ.L $13 091F5F 85 15 READ.W $15 091F61 27 ADD.L 091F62 96 13 WRITE.L $13 091F64 85 19 READ.W $19 091F66 41 PUSH.6 $01 091F67 27 ADD.L 091F68 95 19 WRITE.W $19 091F6A 85 19 READ.W $19 091F6C 44 PUSH.6 $04 091F6D 2F MOD.L 091F6E 18 04 BRZ $004 ; => $091F74 091F70 05 6D PUSH.10 $16D 091F72 10 02 BR $002 ; => $091F76 091F74 05 6E PUSH.10 $16E 091F76 95 15 WRITE.W $15 091F78 17 DB BR $-25 ; => $091F55 091F7A 5F PUSH.6 $1F 091F7B 95 17 WRITE.W $17 091F7D 40 PUSH.6 $00 091F7E 95 1B WRITE.W $1B 091F80 86 0B READ.L $0B 091F82 85 1B READ.W $1B 091F84 03 25 LT.L 091F86 18 32 BRZ $032 ; => $091FBA 091F88 86 13 READ.L $13 091F8A 85 17 READ.W $17 091F8C 27 ADD.L 091F8D 96 13 WRITE.L $13 091F8F 85 1B READ.W $1B 091F91 41 PUSH.6 $01 091F92 27 ADD.L 091F93 95 1B WRITE.W $1B 091F95 85 1B READ.W $1B 091F97 35 SWITCH 091F98 10 0F 01 CASE $01 ; SWITCH $091F97 091F9B 86 0F READ.L $0F 091F9D 44 PUSH.6 $04 091F9E 2F MOD.L 091F9F 18 03 BRZ $003 ; => $091FA4 091FA1 5C PUSH.6 $1C 091FA2 10 01 BR $001 ; => $091FA5 091FA4 5D PUSH.6 $1D 091FA5 95 17 WRITE.W $17 091FA7 10 0F BR $00F ; => $091FB8 091FA9 40 09 03 05 08 0A CASE $03, $05, $08, $0A ; SWITCH $091F97 091FAF 5E PUSH.6 $1E 091FB0 95 17 WRITE.W $17 091FB2 10 04 BR $004 ; => $091FB8 091FB4 00 DEFAULT ; SWITCH $091F97 091FB5 5F PUSH.6 $1F 091FB6 95 17 WRITE.W $17 091FB8 17 C6 BR $-3A ; => $091F80 091FBA 86 13 READ.L $13 091FBC 86 07 READ.L $07 091FBE 27 ADD.L 091FBF 45 PUSH.6 $05 091FC0 28 SUB.L 091FC1 96 03 WRITE.L $03 091FC3 32 18 ADDSP.B $18 091FC5 34 RETURN ; ---------------- End Function $091F30 ---------------- ; ---------------- Begin 2144 Function $091FC6 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $000FF4:$00100B ; addr bytes opcode operands comment 091FCD 31 1C SUBSP.B $1C 091FCF 87 07 READ.F $07 091FD1 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 091FDA 23 DIV.F 091FDB 97 1B WRITE.F $1B 091FDD 87 1B READ.F $1B 091FDF 3B 40 96 80 00 00 00 00 00 PUSH.F $4096800000000000 ; float = 1440.000000 091FE8 23 DIV.F 091FE9 97 23 WRITE.F $23 091FEB 87 1B READ.F $1B 091FED 87 23 READ.F $23 091FEF 87 23 READ.F $23 091FF1 30 02 04 BSR.68K $0204 ; => $091DF0 => $002C08 (NATIVE) 091FF4 21 SUB.F 091FF5 3B 40 96 80 00 00 00 00 00 PUSH.F $4096800000000000 ; float = 1440.000000 091FFE 22 MUL.F 091FFF 21 SUB.F 092000 03 29 FLOAT2LONG 092002 D1 56 AF WRITE.W $56AF 092005 87 07 READ.F $07 092007 C1 29 FD READ.W $29FD 09200A 3D 00 09 3A 80 PUSH.L $00093A80 09200F 29 MUL.L 092010 03 2A LONG2FLOAT 092012 20 ADD.F 092013 97 1B WRITE.F $1B 092015 87 1B READ.F $1B 092017 84 09 00 READ.B $09 09201A 84 0A 00 READ.B $0A 09201D 84 0B 00 READ.B $0B 092020 84 0C 00 READ.B $0C 092023 84 0D 00 READ.B $0D 092026 84 0E 00 READ.B $0E 092029 84 0F 00 READ.B $0F 09202C 84 10 00 READ.B $10 09202F 85 13 00 READ.W $13 092032 30 02 3F BSR.68K $023F ; => $091DF6 092035 84 10 READ.B $10 092037 D0 2A 08 WRITE.B $2A08 09203A 84 0F READ.B $0F 09203C D0 2A 09 WRITE.B $2A09 09203F 84 0E READ.B $0E 092041 D0 29 FE WRITE.B $29FE 092044 84 0D READ.B $0D 092046 D0 29 FF WRITE.B $29FF 092049 84 0C READ.B $0C 09204B D0 2A 0A WRITE.B $2A0A 09204E 84 0B READ.B $0B 092050 D0 2A 0B WRITE.B $2A0B 092053 84 0A READ.B $0A 092055 D0 2A 0C WRITE.B $2A0C 092058 85 13 READ.W $13 09205A 03 2A LONG2FLOAT 09205C D3 2A 07 WRITE.F $2A07 09205F 04 55 PUSH.10 $055 092061 84 09 READ.B $09 092063 27 ADD.L 092064 94 08 WRITE.B $08 092066 84 08 READ.B $08 092068 04 63 PUSH.10 $063 09206A 03 25 LT.L 09206C 18 07 BRZ $007 ; => $092075 09206E 84 08 READ.B $08 092070 04 64 PUSH.10 $064 092072 28 SUB.L 092073 94 08 WRITE.B $08 092075 84 08 READ.B $08 092077 D0 2A 0D WRITE.B $2A0D 09207A 32 24 ADDSP.B $24 09207C 34 RETURN ; ---------------- End Function $091FC6 ---------------- ; ---------------- Begin 2144 Function $0920C0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $092626:$092647 ; addr bytes opcode operands comment 0920C7 31 0A SUBSP.B $0A 0920C9 30 00 48 BSR.68K $0048 ; => $092084 => $099642 0920CC 30 00 51 BSR.68K $0051 ; => $09207E => $0034AA (CLEARSCREEN) (NATIVE) 0920CF 40 PUSH.6 $00 0920D0 3F 03 43 41 4C DISP "CAL" 0920D5 41 PUSH.6 $01 0920D6 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0920D9 C0 29 9B READ.B $299B 0920DC 38 00 DA BLS.B $00DA ; => $0921B9 0920DF 84 00 READ.B $00 0920E1 E3 34 2B READ.F $342B 0920E4 97 09 WRITE.F $09 0920E6 4C PUSH.6 $0C 0920E7 44 PUSH.6 $04 0920E8 84 00 READ.B $00 0920EA 29 MUL.L 0920EB 27 ADD.L 0920EC 94 01 WRITE.B $01 0920EE 87 09 READ.F $09 0920F0 3E PUSH.W $0000 0920F1 03 21 LT.F 0920F3 18 05 BRZ $005 ; => $0920FA 0920F5 84 01 READ.B $01 0920F7 6D PUSH.6 $2D 0920F8 B0 1F WRITE.B $1F 0920FA 87 09 READ.F $09 0920FC 30 00 45 BSR.68K $0045 ; => $0920BA => $002B7E (NATIVE) 0920FF 3B 40 23 FA E1 47 AE 14 7B PUSH.F $4023FAE147AE147B ; float = 9.990000 092108 24 GT.F 092109 18 0B BRZ $00B ; => $092116 09210B 84 01 READ.B $01 09210D 41 PUSH.6 $01 09210E 27 ADD.L 09210F 3F 03 2A 2A 2A DISP "***" 092114 10 14 BR $014 ; => $09212A 092116 84 01 READ.B $01 092118 41 PUSH.6 $01 092119 27 ADD.L 09211A 43 PUSH.6 $03 09211B 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 092124 87 09 READ.F $09 092126 22 MUL.F 092127 30 00 9A BSR.68K $009A ; => $092090 => $097AD2 09212A 84 01 READ.B $01 09212C 41 PUSH.6 $01 09212D 27 ADD.L 09212E A0 1F READ.B $1F 092130 70 PUSH.6 $30 092131 2A EQ.L 092132 18 0F BRZ $00F ; => $092143 092134 84 01 READ.B $01 092136 41 PUSH.6 $01 092137 27 ADD.L 092138 84 01 READ.B $01 09213A A0 1F READ.B $1F 09213C B0 1F WRITE.B $1F 09213E 84 01 READ.B $01 092140 60 PUSH.6 $20 092141 B0 1F WRITE.B $1F 092143 84 01 READ.B $01 092145 43 PUSH.6 $03 092146 27 ADD.L 092147 30 00 9C BSR.68K $009C ; => $0920AE => $097B72 09214A 84 00 READ.B $00 09214C E3 34 7B READ.F $347B 09214F 97 09 WRITE.F $09 092151 41 PUSH.6 $01 092152 43 PUSH.6 $03 092153 84 00 READ.B $00 092155 29 MUL.L 092156 27 ADD.L 092157 94 01 WRITE.B $01 092159 87 09 READ.F $09 09215B 3E PUSH.W $0000 09215C 03 21 LT.F 09215E 18 05 BRZ $005 ; => $092165 092160 84 01 READ.B $01 092162 6D PUSH.6 $2D 092163 B0 1F WRITE.B $1F 092165 87 09 READ.F $09 092167 30 00 B0 BSR.68K $00B0 ; => $0920BA => $002B7E (NATIVE) 09216A 3B 3F B9 58 10 62 4D D2 F2 PUSH.F $3FB95810624DD2F2 ; float = 0.099000 092173 24 GT.F 092174 18 0A BRZ $00A ; => $092180 092176 84 01 READ.B $01 092178 41 PUSH.6 $01 092179 27 ADD.L 09217A 3F 02 2A 2A DISP "**" 09217E 10 14 BR $014 ; => $092194 092180 84 01 READ.B $01 092182 41 PUSH.6 $01 092183 27 ADD.L 092184 42 PUSH.6 $02 092185 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 09218E 87 09 READ.F $09 092190 22 MUL.F 092191 30 01 04 BSR.68K $0104 ; => $092090 => $097AD2 092194 84 01 READ.B $01 092196 42 PUSH.6 $02 092197 27 ADD.L 092198 30 00 ED BSR.68K $00ED ; => $0920AE => $097B72 09219B 84 01 READ.B $01 09219D 41 PUSH.6 $01 09219E 27 ADD.L 09219F A0 1F READ.B $1F 0921A1 70 PUSH.6 $30 0921A2 2A EQ.L 0921A3 18 0F BRZ $00F ; => $0921B4 0921A5 84 01 READ.B $01 0921A7 41 PUSH.6 $01 0921A8 27 ADD.L 0921A9 84 01 READ.B $01 0921AB A0 1F READ.B $1F 0921AD B0 1F WRITE.B $1F 0921AF 84 01 READ.B $01 0921B1 60 PUSH.6 $20 0921B2 B0 1F WRITE.B $1F 0921B4 37 10 00 00 E0 _23d2 $0000, $00E0 0921B9 32 0A ADDSP.B $0A 0921BB 34 RETURN ; ---------------- End Function $0920C0 ---------------- ; ---------------- Begin 2144 Function $0921BC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $092626:$09267C ; addr bytes opcode operands comment 0921C3 31 08 SUBSP.B $08 0921C5 30 01 44 BSR.68K $0144 ; => $092084 => $099642 0921C8 30 01 4D BSR.68K $014D ; => $09207E => $0034AA (CLEARSCREEN) (NATIVE) 0921CB 40 PUSH.6 $00 0921CC 3F 20 43 48 78 20 20 20 43 DISP "CHx CODE 999"#SNRxx CARR 999##" 4F 44 45 20 39 39 39 22 23 53 4E 52 78 78 20 43 41 52 52 20 39 39 39 23 23 0921EE 70 PUSH.6 $30 0921EF 80 23 READ.B $23 0921F1 27 ADD.L 0921F2 90 1D WRITE.B $1D 0921F4 53 PUSH.6 $13 0921F5 80 23 READ.B $23 0921F7 E2 34 A3 READ.L $34A3 0921FA 30 01 67 BSR.68K $0167 ; => $092096 => $097B0A 0921FD 80 23 READ.B $23 0921FF E3 34 2B READ.F $342B 092202 97 07 WRITE.F $07 092204 87 07 READ.F $07 092206 3E PUSH.W $0000 092207 03 21 LT.F 092209 18 03 BRZ $003 ; => $09220E 09220B 6D PUSH.6 $2D 09220C 90 15 WRITE.B $15 09220E 87 07 READ.F $07 092210 30 01 59 BSR.68K $0159 ; => $0920BA => $002B7E (NATIVE) 092213 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 09221C 03 21 LT.F 09221E 18 11 BRZ $011 ; => $092231 092220 4B PUSH.6 $0B 092221 43 PUSH.6 $03 092222 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 09222B 87 07 READ.F $07 09222D 22 MUL.F 09222E 30 01 A1 BSR.68K $01A1 ; => $092090 => $097AD2 092231 80 14 READ.B $14 092233 70 PUSH.6 $30 092234 2A EQ.L 092235 18 07 BRZ $007 ; => $09223E 092237 80 15 READ.B $15 092239 90 14 WRITE.B $14 09223B 60 PUSH.6 $20 09223C 90 15 WRITE.B $15 09223E 80 23 READ.B $23 092240 E3 34 7B READ.F $347B 092243 97 07 WRITE.F $07 092245 87 07 READ.F $07 092247 3E PUSH.W $0000 092248 03 21 LT.F 09224A 18 03 BRZ $003 ; => $09224F 09224C 6D PUSH.6 $2D 09224D 90 05 WRITE.B $05 09224F 87 07 READ.F $07 092251 30 01 9A BSR.68K $019A ; => $0920BA => $002B7E (NATIVE) 092254 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09225D 03 21 LT.F 09225F 18 11 BRZ $011 ; => $092272 092261 5B PUSH.6 $1B 092262 43 PUSH.6 $03 092263 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 09226C 87 07 READ.F $07 09226E 22 MUL.F 09226F 30 01 E2 BSR.68K $01E2 ; => $092090 => $097AD2 092272 80 04 READ.B $04 092274 70 PUSH.6 $30 092275 2A EQ.L 092276 18 07 BRZ $007 ; => $09227F 092278 80 05 READ.B $05 09227A 90 04 WRITE.B $04 09227C 60 PUSH.6 $20 09227D 90 05 WRITE.B $05 09227F 32 08 ADDSP.B $08 092281 34 RETURN ; ---------------- End Function $0921BC ---------------- ; ---------------- Begin 2144 Function $092282 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0976BA:$097791 ; addr bytes opcode operands comment 092289 31 10 SUBSP.B $10 09228B 30 02 0A BSR.68K $020A ; => $092084 => $099642 09228E 30 02 13 BSR.68K $0213 ; => $09207E => $0034AA (CLEARSCREEN) (NATIVE) 092291 40 PUSH.6 $00 092292 3F 20 43 48 78 20 44 43 20 DISP "CHx DC XXX XXX SIGMA XXX" 20 58 58 58 20 20 58 58 58 20 20 20 20 53 49 47 4D 41 20 20 20 20 58 58 58 0922B4 70 PUSH.6 $30 0922B5 86 03 READ.L $03 0922B7 27 ADD.L 0922B8 90 1D WRITE.B $1D 0922BA 86 03 READ.L $03 0922BC E3 34 F3 READ.F $34F3 0922BF 97 0B WRITE.F $0B 0922C1 86 03 READ.L $03 0922C3 E3 35 43 READ.F $3543 0922C6 3B 3F 90 00 00 00 00 00 00 PUSH.F $3F90000000000000 ; float = 0.015625 0922CF 22 MUL.F 0922D0 97 13 WRITE.F $13 0922D2 48 PUSH.6 $08 0922D3 43 PUSH.6 $03 0922D4 87 0B READ.F $0B 0922D6 87 0B READ.F $0B 0922D8 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0922E1 24 GT.F 0922E2 18 0B BRZ $00B ; => $0922EF 0922E4 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0922ED 10 09 BR $009 ; => $0922F8 0922EF 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 0922F8 22 MUL.F 0922F9 30 02 6C BSR.68K $026C ; => $092090 => $097AD2 0922FC 87 0B READ.F $0B 0922FE 3E PUSH.W $0000 0922FF 03 21 LT.F 092301 18 03 BRZ $003 ; => $092306 092303 6D PUSH.6 $2D 092304 90 18 WRITE.B $18 092306 4D PUSH.6 $0D 092307 43 PUSH.6 $03 092308 87 13 READ.F $13 09230A 87 13 READ.F $13 09230C 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 092315 24 GT.F 092316 18 0B BRZ $00B ; => $092323 092318 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 092321 10 09 BR $009 ; => $09232C 092323 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 09232C 22 MUL.F 09232D 30 02 A0 BSR.68K $02A0 ; => $092090 => $097AD2 092330 87 13 READ.F $13 092332 3E PUSH.W $0000 092333 03 21 LT.F 092335 18 03 BRZ $003 ; => $09233A 092337 6D PUSH.6 $2D 092338 90 13 WRITE.B $13 09233A 5D PUSH.6 $1D 09233B 43 PUSH.6 $03 09233C 86 03 READ.L $03 09233E E3 4A AB READ.F $4AAB 092341 30 02 B4 BSR.68K $02B4 ; => $092090 => $097AD2 092344 87 0B READ.F $0B 092346 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 09234F 24 GT.F 092350 18 06 BRZ $006 ; => $092358 092352 49 PUSH.6 $09 092353 30 02 A2 BSR.68K $02A2 ; => $0920B4 => $097B5C 092356 10 04 BR $004 ; => $09235C 092358 48 PUSH.6 $08 092359 30 02 A8 BSR.68K $02A8 ; => $0920B4 => $097B5C 09235C 87 13 READ.F $13 09235E 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 092367 24 GT.F 092368 18 06 BRZ $006 ; => $092370 09236A 4E PUSH.6 $0E 09236B 30 02 BA BSR.68K $02BA ; => $0920B4 => $097B5C 09236E 10 04 BR $004 ; => $092374 092370 4D PUSH.6 $0D 092371 30 02 C0 BSR.68K $02C0 ; => $0920B4 => $097B5C 092374 32 14 ADDSP.B $14 092376 34 RETURN ; ---------------- End Function $092282 ---------------- ; ---------------- Begin 2144 Function $092378 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $092464:$092483 ; called from $092490:$0924AA ; called from $092490:$092524 ; addr bytes opcode operands comment 09237F 30 02 FE BSR.68K $02FE ; => $092084 => $099642 092382 40 PUSH.6 $00 092383 3F 20 43 41 4C 49 42 52 41 DISP "CALIBRATION TIME XXXX SECONDS " 54 49 4F 4E 20 54 49 4D 45 20 20 58 58 58 58 20 53 45 43 4F 4E 44 53 20 20 0923A5 52 PUSH.6 $12 0923A6 44 PUSH.6 $04 0923A7 C1 33 D9 READ.W $33D9 0923AA 03 2A LONG2FLOAT 0923AC 30 03 1F BSR.68K $031F ; => $092090 => $097AD2 0923AF 52 PUSH.6 $12 0923B0 90 26 WRITE.B $26 0923B2 34 RETURN ; ---------------- End Function $092378 ---------------- ; ---------------- Begin 2144 Function $0923B4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $092490:$09255D ; called from $092608:$092613 ; called from $092626:$092676 ; addr bytes opcode operands comment 0923BB 67 PUSH.6 $27 0923BC 6D PUSH.6 $2D 0923BD 6F PUSH.6 $2F 0923BE 6E PUSH.6 $2E 0923BF 40 PUSH.6 $00 0923C0 40 PUSH.6 $00 0923C1 40 PUSH.6 $00 0923C2 40 PUSH.6 $00 0923C3 30 03 3C BSR.68K $033C ; => $09208A => $099614 0923C6 40 PUSH.6 $00 0923C7 3F 20 20 43 41 4C 49 42 20 DISP " CALIB RESULTS PRESS SOFTKEYS " 52 45 53 55 4C 54 53 20 20 20 50 52 45 53 53 20 53 4F 46 54 4B 45 59 53 20 0923E9 34 RETURN ; ---------------- End Function $0923B4 ---------------- ; ---------------- Begin 2144 Function $0923EA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $092626:$09264F ; addr bytes opcode operands comment 0923F1 31 02 SUBSP.B $02 0923F3 30 03 78 BSR.68K $0378 ; => $09207E => $0034AA (CLEARSCREEN) (NATIVE) 0923F6 40 PUSH.6 $00 0923F7 3F 10 53 2F 4E 20 43 4F 55 DISP "S/N COUNTS CALIB" 4E 54 53 20 43 41 4C 49 42 092409 40 PUSH.6 $00 09240A 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09240D C0 29 9B READ.B $299B 092410 38 00 13 BLS.B $0013 ; => $092426 092413 51 PUSH.6 $11 092414 43 PUSH.6 $03 092415 84 00 READ.B $00 092417 29 MUL.L 092418 27 ADD.L 092419 84 00 READ.B $00 09241B E2 34 A3 READ.L $34A3 09241E 30 03 8B BSR.68K $038B ; => $092096 => $097B0A 092421 37 10 00 00 19 _23d2 $0000, $0019 092426 32 02 ADDSP.B $02 092428 34 RETURN ; ---------------- End Function $0923EA ---------------- ; ---------------- Begin 2144 Function $09242A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0925F6:$0925FD ; called from $092626:$092657 ; addr bytes opcode operands comment 092431 30 03 B6 BSR.68K $03B6 ; => $09207E => $0034AA (CLEARSCREEN) (NATIVE) 092434 40 PUSH.6 $00 092435 3F 20 20 20 52 45 43 41 4C DISP " RECALIBRATE YES NO " 49 42 52 41 54 45 20 20 20 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 092457 67 PUSH.6 $27 092458 40 PUSH.6 $00 092459 40 PUSH.6 $00 09245A 6C PUSH.6 $2C 09245B 40 PUSH.6 $00 09245C 40 PUSH.6 $00 09245D 40 PUSH.6 $00 09245E 40 PUSH.6 $00 09245F 30 03 D8 BSR.68K $03D8 ; => $09208A => $099614 092462 34 RETURN ; ---------------- End Function $09242A ---------------- ; ---------------- Begin 2144 Function $092464 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $092626:$09265F ; addr bytes opcode operands comment 09246B 80 20 READ.B $20 09246D 35 SWITCH 09246E 10 0A 10 CASE $10 ; SWITCH $09246D 092471 49 PUSH.6 $09 092472 D0 55 70 WRITE.B $5570 092475 40 PUSH.6 $00 092476 90 21 WRITE.B $21 092478 10 15 BR $015 ; => $09248F 09247A 10 03 50 CASE $50 ; SWITCH $09246D 09247D 10 10 BR $010 ; => $09248F 09247F 20 0A 90 D0 CASE $90, $D0 ; SWITCH $09246D 092483 30 01 0E BSR.68K $010E ; => $092378 092486 4E PUSH.6 $0E 092487 90 23 WRITE.B $23 092489 10 04 BR $004 ; => $09248F 09248B 00 DEFAULT ; SWITCH $09246D 09248C 30 03 F3 BSR.68K $03F3 ; => $09209C => $09D9DE 09248F 34 RETURN ; ---------------- End Function $092464 ---------------- ; ---------------- Begin 2144 Function $092490 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $092626:$092633 ; addr bytes opcode operands comment 092497 31 04 SUBSP.B $04 092499 80 20 READ.B $20 09249B 35 SWITCH 09249C 10 11 02 CASE $02 ; SWITCH $09249B 09249F 80 26 READ.B $26 0924A1 52 PUSH.6 $12 0924A2 2A EQ.L 0924A3 18 05 BRZ $005 ; => $0924AA 0924A5 40 PUSH.6 $00 0924A6 90 21 WRITE.B $21 0924A8 10 03 BR $003 ; => $0924AD 0924AA 30 01 35 BSR.68K $0135 ; => $092378 0924AD 10 53 BR $053 ; => $092502 0924AF 10 0D 90 CASE $90 ; SWITCH $09249B 0924B2 80 21 READ.B $21 0924B4 04 51 PUSH.10 $051 0924B6 2A EQ.L 0924B7 18 03 BRZ $003 ; => $0924BC 0924B9 61 PUSH.6 $21 0924BA 90 26 WRITE.B $26 0924BC 10 44 BR $044 ; => $092502 0924BE 10 06 04 CASE $04 ; SWITCH $09249B 0924C1 61 PUSH.6 $21 0924C2 90 26 WRITE.B $26 0924C4 10 3C BR $03C ; => $092502 0924C6 10 1A 10 CASE $10 ; SWITCH $09249B 0924C9 80 26 READ.B $26 0924CB 35 SWITCH 0924CC 10 03 12 CASE $12 ; SWITCH $0924CB 0924CF 10 0F BR $00F ; => $0924E0 0924D1 10 06 20 CASE $20 ; SWITCH $0924CB 0924D4 55 PUSH.6 $15 0924D5 90 26 WRITE.B $26 0924D7 10 07 BR $007 ; => $0924E0 0924D9 00 DEFAULT ; SWITCH $0924CB 0924DA 80 26 READ.B $26 0924DC 41 PUSH.6 $01 0924DD 28 SUB.L 0924DE 90 26 WRITE.B $26 0924E0 10 20 BR $020 ; => $092502 0924E2 20 11 50 D0 CASE $50, $D0 ; SWITCH $09249B 0924E6 80 26 READ.B $26 0924E8 55 PUSH.6 $15 0924E9 03 26 GT.L 0924EB 18 06 BRZ $006 ; => $0924F3 0924ED 80 26 READ.B $26 0924EF 41 PUSH.6 $01 0924F0 27 ADD.L 0924F1 90 26 WRITE.B $26 0924F3 10 0D BR $00D ; => $092502 0924F5 00 DEFAULT ; SWITCH $09249B 0924F6 80 26 READ.B $26 0924F8 56 PUSH.6 $16 0924F9 03 26 GT.L 0924FB 18 05 BRZ $005 ; => $092502 0924FD 30 04 5E BSR.68K $045E ; => $0920A2 => $09DFB4 092500 94 00 WRITE.B $00 092502 80 26 READ.B $26 092504 35 SWITCH 092505 10 06 16 CASE $16 ; SWITCH $092504 092508 60 PUSH.6 $20 092509 90 26 WRITE.B $26 09250B 10 8A BR $08A ; => $092597 09250D 10 87 21 CASE $21 ; SWITCH $092504 092510 52 PUSH.6 $12 092511 55 PUSH.6 $15 092512 30 04 6D BSR.68K $046D ; => $0920A8 => $09E02C 092515 03 29 FLOAT2LONG 092517 95 03 WRITE.W $03 092519 85 03 READ.W $03 09251B 4A PUSH.6 $0A 09251C 03 26 GT.L 09251E 18 09 BRZ $009 ; => $092529 092520 4A PUSH.6 $0A 092521 D1 33 D9 WRITE.W $33D9 092524 30 01 AF BSR.68K $01AF ; => $092378 092527 10 6B BR $06B ; => $092594 092529 85 03 READ.W $03 09252B C1 33 D9 READ.W $33D9 09252E 2B NEQ.L 09252F C0 54 2C READ.B $542C 092532 2C AND.L 092533 18 04 BRZ $004 ; => $092539 092535 49 PUSH.6 $09 092536 D0 55 70 WRITE.B $5570 092539 85 03 READ.W $03 09253B D1 33 D9 WRITE.W $33D9 09253E 80 21 READ.B $21 092540 04 51 PUSH.10 $051 092542 2A EQ.L 092543 18 2B BRZ $02B ; => $092570 092545 C0 29 8F READ.B $298F 092548 18 13 BRZ $013 ; => $09255D 09254A C0 35 92 READ.B $3592 09254D C0 56 6E READ.B $566E 092550 2E NOT.L 092551 2C AND.L 092552 18 04 BRZ $004 ; => $092558 092554 43 PUSH.6 $03 092555 D0 6B 28 WRITE.B $6B28 092558 4F PUSH.6 $0F 092559 90 23 WRITE.B $23 09255B 10 11 BR $011 ; => $09256E 09255D 30 01 AC BSR.68K $01AC ; => $0923B4 092560 C0 29 9A READ.B $299A 092563 44 PUSH.6 $04 092564 03 25 LT.L 092566 18 03 BRZ $003 ; => $09256B 092568 40 PUSH.6 $00 092569 10 01 BR $001 ; => $09256C 09256B 4A PUSH.6 $0A 09256C 90 23 WRITE.B $23 09256E 10 24 BR $024 ; => $092594 092570 30 04 F5 BSR.68K $04F5 ; => $09207E => $0034AA (CLEARSCREEN) (NATIVE) 092573 40 PUSH.6 $00 092574 3F 1B 43 41 4C 49 42 52 41 DISP "CALIBRATION TIME ENTERED" 54 49 4F 4E 20 54 49 4D 45 20 20 20 20 45 4E 54 45 52 45 44 092591 4C PUSH.6 $0C 092592 90 21 WRITE.B $21 092594 10 01 BR $001 ; => $092597 092596 00 DEFAULT ; SWITCH $092504 092597 32 04 ADDSP.B $04 092599 34 RETURN ; ---------------- End Function $092490 ---------------- ; ---------------- Begin 2144 Function $09259A ---------------- ; A0 = $004004; (A0) = SP + $9 ; called from $0903FC:$090463 ; addr bytes opcode operands comment 0925A1 31 02 SUBSP.B $02 0925A3 40 PUSH.6 $00 0925A4 D0 29 F1 WRITE.B $29F1 0925A7 4C PUSH.6 $0C 0925A8 90 21 WRITE.B $21 0925AA 40 PUSH.6 $00 0925AB 3F 14 43 41 4C 49 42 20 46 DISP "CALIB FAILURE CHAN" 41 49 4C 55 52 45 20 20 20 43 48 41 4E 0925C1 54 PUSH.6 $14 0925C2 94 0A WRITE.B $0A 0925C4 40 PUSH.6 $00 0925C5 36 10 0B _2362 $000B ; A0 = $004000; (A0) = A6 + $0 0925C8 C0 29 9A READ.B $299A 0925CB 38 00 24 BLS.B $0024 ; => $0925F2 0925CE 84 0B READ.B $0B 0925D0 A4 09 READ.B $09 0925D2 18 19 BRZ $019 ; => $0925ED 0925D4 84 0A READ.B $0A 0925D6 54 PUSH.6 $14 0925D7 2B NEQ.L 0925D8 18 05 BRZ $005 ; => $0925DF 0925DA 84 0A READ.B $0A 0925DC 30 05 31 BSR.68K $0531 ; => $0920AE => $097B72 0925DF 84 0A READ.B $0A 0925E1 41 PUSH.6 $01 0925E2 27 ADD.L 0925E3 94 0A WRITE.B $0A 0925E5 84 0A READ.B $0A 0925E7 70 PUSH.6 $30 0925E8 84 0B READ.B $0B 0925EA 27 ADD.L 0925EB B0 1F WRITE.B $1F 0925ED 37 10 0B 00 2A _23d2 $000B, $002A 0925F2 32 0C ADDSP.B $0C 0925F4 34 RETURN ; ---------------- End Function $09259A ---------------- ; ---------------- Begin 2144 Function $0925F6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09A458:$09A493 ; addr bytes opcode operands comment 0925FD 30 01 D6 BSR.68K $01D6 ; => $09242A 092600 04 57 PUSH.10 $057 092602 90 21 WRITE.B $21 092604 4D PUSH.6 $0D 092605 90 23 WRITE.B $23 092607 34 RETURN ; ---------------- End Function $0925F6 ---------------- ; ---------------- Begin 2144 Function $092608 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AEC74:$0AECD8 ; addr bytes opcode operands comment 09260F 04 51 PUSH.10 $051 092611 90 21 WRITE.B $21 092613 30 02 62 BSR.68K $0262 ; => $0923B4 092616 C0 29 9A READ.B $299A 092619 44 PUSH.6 $04 09261A 03 25 LT.L 09261C 18 03 BRZ $003 ; => $092621 09261E 40 PUSH.6 $00 09261F 10 01 BR $001 ; => $092622 092621 4A PUSH.6 $0A 092622 90 23 WRITE.B $23 092624 34 RETURN ; ---------------- End Function $092608 ---------------- ; ---------------- Begin 2144 Function $092626 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB67 ; called from $09DA58:$09DC3F ; addr bytes opcode operands comment 09262D 80 23 READ.B $23 09262F 4E PUSH.6 $0E 092630 2A EQ.L 092631 18 05 BRZ $005 ; => $092638 092633 30 01 A6 BSR.68K $01A6 ; => $092490 092636 10 AA BR $0AA ; => $0926E2 092638 80 20 READ.B $20 09263A 35 SWITCH 09263B 40 9D 10 50 90 D0 CASE $10, $50, $90, $D0 ; SWITCH $09263A 092641 80 23 READ.B $23 092643 35 SWITCH 092644 10 06 0A CASE $0A ; SWITCH $092643 092647 30 05 8A BSR.68K $058A ; => $0920C0 09264A 10 33 BR $033 ; => $09267F 09264C 10 06 0B CASE $0B ; SWITCH $092643 09264F 30 02 68 BSR.68K $0268 ; => $0923EA 092652 10 2B BR $02B ; => $09267F 092654 10 06 0C CASE $0C ; SWITCH $092643 092657 30 02 30 BSR.68K $0230 ; => $09242A 09265A 10 23 BR $023 ; => $09267F 09265C 10 06 0D CASE $0D ; SWITCH $092643 09265F 30 01 FE BSR.68K $01FE ; => $092464 092662 10 1B BR $01B ; => $09267F 092664 40 06 0F 10 11 12 CASE $0F, $10, $11, $12 ; SWITCH $092643 09266A 10 13 BR $013 ; => $09267F 09266C 10 0D 13 CASE $13 ; SWITCH $092643 09266F 80 20 READ.B $20 092671 04 50 PUSH.10 $050 092673 2B NEQ.L 092674 18 03 BRZ $003 ; => $092679 092676 30 02 C5 BSR.68K $02C5 ; => $0923B4 092679 10 04 BR $004 ; => $09267F 09267B 00 DEFAULT ; SWITCH $092643 09267C 30 04 C3 BSR.68K $04C3 ; => $0921BC 09267F 80 23 READ.B $23 092681 49 PUSH.6 $09 092682 2A EQ.L 092683 18 03 BRZ $003 ; => $092688 092685 4B PUSH.6 $0B 092686 90 23 WRITE.B $23 092688 80 23 READ.B $23 09268A 4F PUSH.6 $0F 09268B 03 27 LTE.L 09268D 80 23 READ.B $23 09268F 53 PUSH.6 $13 092690 03 28 GTE.L 092692 2C AND.L 092693 18 24 BRZ $024 ; => $0926B9 092695 80 20 READ.B $20 092697 04 90 PUSH.10 $090 092699 2A EQ.L 09269A 18 08 BRZ $008 ; => $0926A4 09269C 80 23 READ.B $23 09269E 41 PUSH.6 $01 09269F 27 ADD.L 0926A0 90 23 WRITE.B $23 0926A2 10 13 BR $013 ; => $0926B7 0926A4 80 20 READ.B $20 0926A6 04 50 PUSH.10 $050 0926A8 2A EQ.L 0926A9 80 23 READ.B $23 0926AB 4F PUSH.6 $0F 0926AC 03 25 LT.L 0926AE 2C AND.L 0926AF 18 06 BRZ $006 ; => $0926B7 0926B1 80 23 READ.B $23 0926B3 41 PUSH.6 $01 0926B4 28 SUB.L 0926B5 90 23 WRITE.B $23 0926B7 10 11 BR $011 ; => $0926CA 0926B9 80 23 READ.B $23 0926BB 4D PUSH.6 $0D 0926BC 2B NEQ.L 0926BD 80 23 READ.B $23 0926BF 4E PUSH.6 $0E 0926C0 2B NEQ.L 0926C1 2C AND.L 0926C2 18 06 BRZ $006 ; => $0926CA 0926C4 80 23 READ.B $23 0926C6 41 PUSH.6 $01 0926C7 27 ADD.L 0926C8 90 23 WRITE.B $23 0926CA 80 23 READ.B $23 0926CC 53 PUSH.6 $13 0926CD 03 25 LT.L 0926CF 18 07 BRZ $007 ; => $0926D8 0926D1 40 PUSH.6 $00 0926D2 90 23 WRITE.B $23 0926D4 41 PUSH.6 $01 0926D5 D0 6B 28 WRITE.B $6B28 0926D8 10 08 BR $008 ; => $0926E2 0926DA 00 DEFAULT ; SWITCH $09263A 0926DB 41 PUSH.6 $01 0926DC D0 6B 28 WRITE.B $6B28 0926DF 30 06 46 BSR.68K $0646 ; => $09209C => $09D9DE 0926E2 34 RETURN ; ---------------- End Function $092626 ---------------- ; ---------------- Begin 2144 Function $09272C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $092CE8:$092D53 ; called from $093118:$09316D ; addr bytes opcode operands comment 092733 31 06 SUBSP.B $06 092735 C0 29 A0 READ.B $29A0 092738 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09273B C0 29 9A READ.B $299A 09273E 38 00 BB BLS.B $00BB ; => $0927FC 092741 84 00 READ.B $00 092743 E0 60 29 READ.B $6029 092746 18 AF BRZ $0AF ; => $0927F7 092748 84 00 READ.B $00 09274A D0 51 00 WRITE.B $5100 09274D 84 00 READ.B $00 09274F E3 34 F3 READ.F $34F3 092752 3E PUSH.W $0000 092753 03 21 LT.F 092755 18 21 BRZ $021 ; => $092778 092757 40 PUSH.6 $00 092758 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 092761 84 00 READ.B $00 092763 E3 34 F3 READ.F $34F3 092766 3B 40 50 00 00 00 00 00 00 PUSH.F $4050000000000000 ; float = 64.000000 09276F 22 MUL.F 092770 21 SUB.F 092771 03 29 FLOAT2LONG 092773 28 SUB.L 092774 95 03 WRITE.W $03 092776 10 1D BR $01D ; => $092795 092778 84 00 READ.B $00 09277A E3 34 F3 READ.F $34F3 09277D 3B 40 50 00 00 00 00 00 00 PUSH.F $4050000000000000 ; float = 64.000000 092786 22 MUL.F 092787 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 092790 20 ADD.F 092791 03 29 FLOAT2LONG 092793 95 03 WRITE.W $03 092795 84 00 READ.B $00 092797 E3 35 43 READ.F $3543 09279A 3E PUSH.W $0000 09279B 03 21 LT.F 09279D 18 17 BRZ $017 ; => $0927B6 09279F 40 PUSH.6 $00 0927A0 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0927A9 84 00 READ.B $00 0927AB E3 35 43 READ.F $3543 0927AE 21 SUB.F 0927AF 03 29 FLOAT2LONG 0927B1 28 SUB.L 0927B2 95 05 WRITE.W $05 0927B4 10 13 BR $013 ; => $0927C9 0927B6 84 00 READ.B $00 0927B8 E3 35 43 READ.F $3543 0927BB 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0927C4 20 ADD.F 0927C5 03 29 FLOAT2LONG 0927C7 95 05 WRITE.W $05 0927C9 85 03 READ.W $03 0927CB 05 00 PUSH.10 $100 0927CD 03 24 DIV.L 0927CF D0 51 41 WRITE.B $5141 0927D2 85 03 READ.W $03 0927D4 D0 51 40 WRITE.B $5140 0927D7 85 05 READ.W $05 0927D9 05 00 PUSH.10 $100 0927DB 03 24 DIV.L 0927DD D0 51 3F WRITE.B $513F 0927E0 85 05 READ.W $05 0927E2 D0 51 3E WRITE.B $513E 0927E5 4B PUSH.6 $0B 0927E6 44 PUSH.6 $04 0927E7 30 00 D6 BSR.68K $00D6 ; => $092714 => $094D8E 0927EA 04 FF PUSH.10 $0FF 0927EC D0 4E 73 WRITE.B $4E73 0927EF 52 PUSH.6 $12 0927F0 30 00 D9 BSR.68K $00D9 ; => $09271A => $094D12 0927F3 40 PUSH.6 $00 0927F4 D0 4E 73 WRITE.B $4E73 0927F7 37 10 00 00 C1 _23d2 $0000, $00C1 0927FC 32 06 ADDSP.B $06 0927FE 34 RETURN ; ---------------- End Function $09272C ---------------- ; ---------------- Begin 2144 Function $092800 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0928C4:$092949 ; addr bytes opcode operands comment 092807 31 0A SUBSP.B $0A 092809 04 FF PUSH.10 $0FF 09280B 94 02 WRITE.B $02 09280D 3E PUSH.W $0000 09280E 9B 09 WRITE.F $09 092810 40 PUSH.6 $00 092811 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 092814 C0 29 9B READ.B $299B 092817 38 00 20 BLS.B $0020 ; => $09283A 09281A 88 00 READ.B $00 09281C E0 44 23 READ.B $4423 09281F 88 00 READ.B $00 092821 E3 41 49 READ.F $4149 092824 8B 09 READ.F $09 092826 24 GT.F 092827 2C AND.L 092828 18 0B BRZ $00B ; => $092835 09282A 88 00 READ.B $00 09282C E3 41 49 READ.F $4149 09282F 9B 09 WRITE.F $09 092831 88 00 READ.B $00 092833 94 03 WRITE.B $03 092835 37 20 00 00 26 _23d2 $0000, $0026 09283A 8B 09 READ.F $09 09283C 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 092845 25 GTE.F 092846 18 15 BRZ $015 ; => $09285D 092848 84 03 READ.B $03 09284A E0 40 09 READ.B $4009 09284D 94 02 WRITE.B $02 09284F C0 29 9C READ.B $299C 092852 18 03 BRZ $003 ; => $092857 092854 41 PUSH.6 $01 092855 10 01 BR $001 ; => $092858 092857 42 PUSH.6 $02 092858 D0 54 2C WRITE.B $542C 09285B 10 63 BR $063 ; => $0928C0 09285D 8B 09 READ.F $09 09285F 3E PUSH.W $0000 092860 03 23 NEQ.F 092862 18 58 BRZ $058 ; => $0928BC 092864 C0 29 9C READ.B $299C 092867 18 0D BRZ $00D ; => $092876 092869 84 03 READ.B $03 09286B E0 40 09 READ.B $4009 09286E 94 02 WRITE.B $02 092870 41 PUSH.6 $01 092871 D0 54 2C WRITE.B $542C 092874 10 44 BR $044 ; => $0928BA 092876 C0 67 EC READ.B $67EC 092879 2E NOT.L 09287A 18 0D BRZ $00D ; => $092889 09287C 84 03 READ.B $03 09287E E0 40 09 READ.B $4009 092881 94 02 WRITE.B $02 092883 42 PUSH.6 $02 092884 D0 54 2C WRITE.B $542C 092887 10 31 BR $031 ; => $0928BA 092889 C0 54 2C READ.B $542C 09288C 43 PUSH.6 $03 09288D 2A EQ.L 09288E 18 20 BRZ $020 ; => $0928B0 092890 C3 60 3B READ.F $603B 092893 C3 54 35 READ.F $5435 092896 3B 40 34 00 00 00 00 00 00 PUSH.F $4034000000000000 ; float = 20.000000 09289F 20 ADD.F 0928A0 24 GT.F 0928A1 18 0B BRZ $00B ; => $0928AE 0928A3 84 03 READ.B $03 0928A5 E0 40 09 READ.B $4009 0928A8 94 02 WRITE.B $02 0928AA 42 PUSH.6 $02 0928AB D0 54 2C WRITE.B $542C 0928AE 10 0A BR $00A ; => $0928BA 0928B0 C3 60 3B READ.F $603B 0928B3 D3 54 35 WRITE.F $5435 0928B6 43 PUSH.6 $03 0928B7 D0 54 2C WRITE.B $542C 0928BA 10 04 BR $004 ; => $0928C0 0928BC 44 PUSH.6 $04 0928BD D0 54 2C WRITE.B $542C 0928C0 32 0A ADDSP.B $0A 0928C2 34 RETURN ; ---------------- End Function $092800 ---------------- ; ---------------- Begin 2144 Function $0928C4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7C2 ; addr bytes opcode operands comment 0928CB 31 0E SUBSP.B $0E 0928CD C3 54 35 READ.F $5435 0928D0 3E PUSH.W $0000 0928D1 26 EQ.F 0928D2 18 58 BRZ $058 ; => $09292C 0928D4 41 PUSH.6 $01 0928D5 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0928D8 60 PUSH.6 $20 0928D9 38 00 0B BLS.B $000B ; => $0928E7 0928DC 84 00 READ.B $00 0928DE 40 PUSH.6 $00 0928DF F0 55 A1 WRITE.B $55A1 0928E2 37 10 00 00 0F _23d2 $0000, $000F 0928E7 40 PUSH.6 $00 0928E8 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0928EB C0 29 9B READ.B $299B 0928EE 38 00 27 BLS.B $0027 ; => $092918 0928F1 84 01 READ.B $01 0928F3 E0 40 09 READ.B $4009 0928F6 18 09 BRZ $009 ; => $092901 0928F8 84 01 READ.B $01 0928FA E0 40 09 READ.B $4009 0928FD 41 PUSH.6 $01 0928FE F0 55 A1 WRITE.B $55A1 092901 C0 29 9C READ.B $299C 092904 2E NOT.L 092905 18 0C BRZ $00C ; => $092913 092907 84 01 READ.B $01 092909 3E PUSH.W $0000 09290A F3 41 49 WRITE.F $4149 09290D 84 01 READ.B $01 09290F 40 PUSH.6 $00 092910 F0 67 FD WRITE.B $67FD 092913 37 10 01 00 2D _23d2 $0001, $002D 092918 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 092921 D3 54 35 WRITE.F $5435 092924 60 PUSH.6 $20 092925 D0 67 ED WRITE.B $67ED 092928 3E PUSH.W $0000 092929 D3 56 55 WRITE.F $5655 09292C C0 54 2C READ.B $542C 09292F 43 PUSH.6 $03 092930 03 27 LTE.L 092932 C3 60 3B READ.F $603B 092935 C3 54 35 READ.F $5435 092938 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 092941 20 ADD.F 092942 24 GT.F 092943 2D OR.L 092944 18 B7 BRZ $0B7 ; => $0929FD 092946 40 PUSH.6 $00 092947 94 02 WRITE.B $02 092949 30 01 4C BSR.68K $014C ; => $092800 09294C 84 02 READ.B $02 09294E 04 FF PUSH.10 $0FF 092950 2B NEQ.L 092951 18 AA BRZ $0AA ; => $0929FD 092953 C3 60 3B READ.F $603B 092956 D3 54 35 WRITE.F $5435 092959 40 PUSH.6 $00 09295A 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 09295D C0 29 9B READ.B $299B 092960 38 00 94 BLS.B $0094 ; => $0929F7 092963 84 01 READ.B $01 092965 E0 40 09 READ.B $4009 092968 94 04 WRITE.B $04 09296A 84 04 READ.B $04 09296C 84 02 READ.B $02 09296E 2B NEQ.L 09296F 84 01 READ.B $01 092971 E0 44 23 READ.B $4423 092974 2C AND.L 092975 84 04 READ.B $04 092977 E0 55 A1 READ.B $55A1 09297A 2C AND.L 09297B C0 29 9C READ.B $299C 09297E 2E NOT.L 09297F 2C AND.L 092980 18 2B BRZ $02B ; => $0929AD 092982 84 04 READ.B $04 092984 40 PUSH.6 $00 092985 F0 55 A1 WRITE.B $55A1 092988 84 01 READ.B $01 09298A 84 04 READ.B $04 09298C F0 67 FD WRITE.B $67FD 09298F 84 01 READ.B $01 092991 84 01 READ.B $01 092993 E3 47 61 READ.F $4761 092996 F3 68 4D WRITE.F $684D 092999 84 01 READ.B $01 09299B 84 01 READ.B $01 09299D E3 46 53 READ.F $4653 0929A0 F3 68 9D WRITE.F $689D 0929A3 84 01 READ.B $01 0929A5 84 01 READ.B $01 0929A7 E3 40 59 READ.F $4059 0929AA F3 68 ED WRITE.F $68ED 0929AD 84 04 READ.B $04 0929AF 84 02 READ.B $02 0929B1 2B NEQ.L 0929B2 84 01 READ.B $01 0929B4 E0 44 23 READ.B $4423 0929B7 2E NOT.L 0929B8 2D OR.L 0929B9 18 1B BRZ $01B ; => $0929D6 0929BB 84 01 READ.B $01 0929BD 84 03 READ.B $03 0929BF E3 47 61 READ.F $4761 0929C2 F3 47 61 WRITE.F $4761 0929C5 84 01 READ.B $01 0929C7 84 03 READ.B $03 0929C9 E3 40 59 READ.F $4059 0929CC F3 40 59 WRITE.F $4059 0929CF 84 01 READ.B $01 0929D1 04 63 PUSH.10 $063 0929D3 F0 46 5D WRITE.B $465D 0929D6 84 04 READ.B $04 0929D8 40 PUSH.6 $00 0929D9 F0 55 A1 WRITE.B $55A1 0929DC 84 02 READ.B $02 0929DE D0 67 ED WRITE.B $67ED 0929E1 84 01 READ.B $01 0929E3 84 01 READ.B $01 0929E5 E0 60 29 READ.B $6029 0929E8 18 04 BRZ $004 ; => $0929EE 0929EA 84 02 READ.B $02 0929EC 10 01 BR $001 ; => $0929EF 0929EE 40 PUSH.6 $00 0929EF F0 40 09 WRITE.B $4009 0929F2 37 10 01 00 9A _23d2 $0001, $009A 0929F7 84 02 READ.B $02 0929F9 41 PUSH.6 $01 0929FA F0 55 A1 WRITE.B $55A1 0929FD 32 0E ADDSP.B $0E 0929FF 34 RETURN ; ---------------- End Function $0928C4 ---------------- ; ---------------- Begin 2144 Function $092A00 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $092E8E:$092ECE ; addr bytes opcode operands comment 092A07 C0 29 9C READ.B $299C 092A0A 18 26 BRZ $026 ; => $092A32 092A0C C0 29 A0 READ.B $29A0 092A0F 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 092A12 C0 29 9A READ.B $299A 092A15 38 00 18 BLS.B $0018 ; => $092A30 092A18 84 01 READ.B $01 092A1A E0 60 29 READ.B $6029 092A1D 18 0C BRZ $00C ; => $092A2B 092A1F 84 01 READ.B $01 092A21 3E PUSH.W $0000 092A22 F3 34 F3 WRITE.F $34F3 092A25 84 01 READ.B $01 092A27 3E PUSH.W $0000 092A28 F3 35 43 WRITE.F $3543 092A2B 37 10 01 00 1E _23d2 $0001, $001E 092A30 10 27 BR $027 ; => $092A59 092A32 40 PUSH.6 $00 092A33 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 092A36 C0 29 9B READ.B $299B 092A39 38 00 1D BLS.B $001D ; => $092A59 092A3C 84 01 READ.B $01 092A3E 3E PUSH.W $0000 092A3F F3 54 E1 WRITE.F $54E1 092A42 84 01 READ.B $01 092A44 3E PUSH.W $0000 092A45 F3 54 91 WRITE.F $5491 092A48 84 01 READ.B $01 092A4A 40 PUSH.6 $00 092A4B F2 34 A3 WRITE.L $34A3 092A4E 84 01 READ.B $01 092A50 40 PUSH.6 $00 092A51 F0 54 41 WRITE.B $5441 092A54 37 10 01 00 23 _23d2 $0001, $0023 092A59 C0 29 91 READ.B $2991 092A5C 2E NOT.L 092A5D 18 08 BRZ $008 ; => $092A67 092A5F 3E PUSH.W $0000 092A60 D3 29 B5 WRITE.F $29B5 092A63 3E PUSH.W $0000 092A64 D3 29 BD WRITE.F $29BD 092A67 34 RETURN ; ---------------- End Function $092A00 ---------------- ; ---------------- Begin 2144 Function $092A68 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $092E8E:$092FDF ; addr bytes opcode operands comment 092A6F C1 54 37 READ.W $5437 092A72 72 PUSH.6 $32 092A73 03 26 GT.L 092A75 84 11 READ.B $11 092A77 2C AND.L 092A78 18 1E BRZ $01E ; => $092A98 092A7A C1 4E 53 READ.W $4E53 092A7D 3C 05 40 PUSH.W $0540 092A80 03 27 LTE.L 092A82 18 0C BRZ $00C ; => $092A90 092A84 C1 4E 53 READ.W $4E53 092A87 3C 05 40 PUSH.W $0540 092A8A 28 SUB.L 092A8B D1 4E 53 WRITE.W $4E53 092A8E 10 04 BR $004 ; => $092A94 092A90 40 PUSH.6 $00 092A91 D1 4E 53 WRITE.W $4E53 092A94 41 PUSH.6 $01 092A95 D0 4E 54 WRITE.B $4E54 092A98 C1 54 37 READ.W $5437 092A9B 72 PUSH.6 $32 092A9C 2A EQ.L 092A9D 18 04 BRZ $004 ; => $092AA3 092A9F 3E PUSH.W $0000 092AA0 D3 56 05 WRITE.F $5605 092AA3 C1 54 37 READ.W $5437 092AA6 7C PUSH.6 $3C 092AA7 2A EQ.L 092AA8 C3 56 05 READ.F $5605 092AAB 3E PUSH.W $0000 092AAC 24 GT.F 092AAD 2C AND.L 092AAE 84 11 READ.B $11 092AB0 2C AND.L 092AB1 18 20 BRZ $020 ; => $092AD3 092AB3 C3 55 FD READ.F $55FD 092AB6 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 092ABF C3 56 05 READ.F $5605 092AC2 22 MUL.F 092AC3 03 20 NEG.W 092AC5 23 DIV.F 092AC6 D3 29 BD WRITE.F $29BD 092AC9 3C 19 9A PUSH.W $199A 092ACC D1 4E 53 WRITE.W $4E53 092ACF 41 PUSH.6 $01 092AD0 D0 4E 54 WRITE.B $4E54 092AD3 C1 54 37 READ.W $5437 092AD6 7C PUSH.6 $3C 092AD7 03 25 LT.L 092AD9 C1 54 37 READ.W $5437 092ADC 04 46 PUSH.10 $046 092ADE 03 26 GT.L 092AE0 2C AND.L 092AE1 84 11 READ.B $11 092AE3 2C AND.L 092AE4 18 20 BRZ $020 ; => $092B06 092AE6 C1 4E 53 READ.W $4E53 092AE9 3C E6 65 PUSH.W $E665 092AEC 03 28 GTE.L 092AEE 18 0C BRZ $00C ; => $092AFC 092AF0 C1 4E 53 READ.W $4E53 092AF3 3C 19 9A PUSH.W $199A 092AF6 27 ADD.L 092AF7 D1 4E 53 WRITE.W $4E53 092AFA 10 06 BR $006 ; => $092B02 092AFC 3C FF FF PUSH.W $FFFF 092AFF D1 4E 53 WRITE.W $4E53 092B02 41 PUSH.6 $01 092B03 D0 4E 54 WRITE.B $4E54 092B06 C1 54 37 READ.W $5437 092B09 04 46 PUSH.10 $046 092B0B 2A EQ.L 092B0C 18 04 BRZ $004 ; => $092B12 092B0E 3E PUSH.W $0000 092B0F D3 56 05 WRITE.F $5605 092B12 C1 54 37 READ.W $5437 092B15 04 50 PUSH.10 $050 092B17 2A EQ.L 092B18 18 46 BRZ $046 ; => $092B60 092B1A C3 56 05 READ.F $5605 092B1D 3E PUSH.W $0000 092B1E 24 GT.F 092B1F C3 29 BD READ.F $29BD 092B22 3E PUSH.W $0000 092B23 03 23 NEQ.F 092B25 2C AND.L 092B26 18 34 BRZ $034 ; => $092B5C 092B28 C3 55 FD READ.F $55FD 092B2B 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 092B34 C3 56 05 READ.F $5605 092B37 22 MUL.F 092B38 03 20 NEG.W 092B3A 23 DIV.F 092B3B D3 29 B5 WRITE.F $29B5 092B3E C3 29 B5 READ.F $29B5 092B41 C3 29 BD READ.F $29BD 092B44 21 SUB.F 092B45 3B 3E 6A D7 F2 9A BC AF 48 PUSH.F $3E6AD7F29ABCAF48 ; float = 0.000000 092B4E 03 21 LT.F 092B50 18 05 BRZ $005 ; => $092B57 092B52 04 FF PUSH.10 $0FF 092B54 D0 29 92 WRITE.B $2992 092B57 04 FF PUSH.10 $0FF 092B59 D0 29 91 WRITE.B $2991 092B5C 3E PUSH.W $0000 092B5D D3 28 E3 WRITE.F $28E3 092B60 34 RETURN ; ---------------- End Function $092A68 ---------------- ; ---------------- Begin 2144 Function $092B62 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $092E8E:$092F71 ; addr bytes opcode operands comment 092B69 C3 60 3B READ.F $603B 092B6C D3 54 35 WRITE.F $5435 092B6F C1 54 37 READ.W $5437 092B72 41 PUSH.6 $01 092B73 27 ADD.L 092B74 D1 54 37 WRITE.W $5437 092B77 C0 29 9C READ.B $299C 092B7A 18 3A BRZ $03A ; => $092BB6 092B7C C0 29 A0 READ.B $29A0 092B7F 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 092B82 C0 29 9A READ.B $299A 092B85 38 00 2C BLS.B $002C ; => $092BB4 092B88 84 01 READ.B $01 092B8A E0 60 29 READ.B $6029 092B8D 18 20 BRZ $020 ; => $092BAF 092B8F 84 01 READ.B $01 092B91 84 01 READ.B $01 092B93 E3 34 F3 READ.F $34F3 092B96 84 01 READ.B $01 092B98 E3 41 49 READ.F $4149 092B9B 20 ADD.F 092B9C F3 34 F3 WRITE.F $34F3 092B9F 84 01 READ.B $01 092BA1 84 01 READ.B $01 092BA3 E3 35 43 READ.F $3543 092BA6 84 01 READ.B $01 092BA8 E3 4A FB READ.F $4AFB 092BAB 20 ADD.F 092BAC F3 35 43 WRITE.F $3543 092BAF 37 10 01 00 32 _23d2 $0001, $0032 092BB4 11 30 BR $130 ; => $092CE6 092BB6 40 PUSH.6 $00 092BB7 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 092BBA C0 29 9B READ.B $299B 092BBD 38 01 26 BLS.B $0126 ; => $092CE6 092BC0 84 01 READ.B $01 092BC2 E0 60 29 READ.B $6029 092BC5 19 1A BRZ $11A ; => $092CE1 092BC7 84 01 READ.B $01 092BC9 84 01 READ.B $01 092BCB E2 34 A3 READ.L $34A3 092BCE 84 01 READ.B $01 092BD0 E3 41 49 READ.F $4149 092BD3 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 092BDC 20 ADD.F 092BDD 03 29 FLOAT2LONG 092BDF 27 ADD.L 092BE0 F2 34 A3 WRITE.L $34A3 092BE3 84 01 READ.B $01 092BE5 84 01 READ.B $01 092BE7 E3 54 E1 READ.F $54E1 092BEA 84 01 READ.B $01 092BEC E3 46 53 READ.F $4653 092BEF C0 35 4C READ.B $354C 092BF2 E3 46 53 READ.F $4653 092BF5 21 SUB.F 092BF6 20 ADD.F 092BF7 F3 54 E1 WRITE.F $54E1 092BFA 84 01 READ.B $01 092BFC E3 4B 73 READ.F $4B73 092BFF C0 35 4C READ.B $354C 092C02 E3 4B 73 READ.F $4B73 092C05 21 SUB.F 092C06 97 0B WRITE.F $0B 092C08 87 0B READ.F $0B 092C0A 30 05 29 BSR.68K $0529 ; => $0926E4 => $002B7E (NATIVE) 092C0D 3B 3F A9 99 99 99 99 99 9A PUSH.F $3FA999999999999A ; float = 0.050000 092C16 24 GT.F 092C17 18 93 BRZ $093 ; => $092CAC 092C19 87 0B READ.F $0B 092C1B 3B 3F A9 99 99 99 99 99 9A PUSH.F $3FA999999999999A ; float = 0.050000 092C24 24 GT.F 092C25 87 0B READ.F $0B 092C27 3B 3F C3 33 33 33 33 33 33 PUSH.F $3FC3333333333333 ; float = 0.150000 092C30 03 21 LT.F 092C32 2C AND.L 092C33 18 0E BRZ $00E ; => $092C43 092C35 87 0B READ.F $0B 092C37 3B 3F B8 5B 7C FE 58 60 13 PUSH.F $3FB85B7CFE586013 ; float = 0.095146 092C40 21 SUB.F 092C41 97 0B WRITE.F $0B 092C43 87 0B READ.F $0B 092C45 3B 3F A9 99 99 99 99 99 9A PUSH.F $3FA999999999999A ; float = 0.050000 092C4E 03 20 NEG.W 092C50 03 21 LT.F 092C52 87 0B READ.F $0B 092C54 3B 3F C3 33 33 33 33 33 33 PUSH.F $3FC3333333333333 ; float = 0.150000 092C5D 03 20 NEG.W 092C5F 24 GT.F 092C60 2C AND.L 092C61 18 0E BRZ $00E ; => $092C71 092C63 87 0B READ.F $0B 092C65 3B 3F B8 5B 7C FE 58 60 13 PUSH.F $3FB85B7CFE586013 ; float = 0.095146 092C6E 20 ADD.F 092C6F 97 0B WRITE.F $0B 092C71 87 0B READ.F $0B 092C73 3B 3F C3 33 33 33 33 33 33 PUSH.F $3FC3333333333333 ; float = 0.150000 092C7C 24 GT.F 092C7D 18 0E BRZ $00E ; => $092C8D 092C7F 87 0B READ.F $0B 092C81 3B 3F C8 5B 85 61 D4 30 6E PUSH.F $3FC85B8561D4306E ; float = 0.190293 092C8A 21 SUB.F 092C8B 97 0B WRITE.F $0B 092C8D 87 0B READ.F $0B 092C8F 3B 3F C3 33 33 33 33 33 33 PUSH.F $3FC3333333333333 ; float = 0.150000 092C98 03 20 NEG.W 092C9A 03 21 LT.F 092C9C 18 0E BRZ $00E ; => $092CAC 092C9E 87 0B READ.F $0B 092CA0 3B 3F C8 5B 85 61 D4 30 6E PUSH.F $3FC85B8561D4306E ; float = 0.190293 092CA9 20 ADD.F 092CAA 97 0B WRITE.F $0B 092CAC C1 54 37 READ.W $5437 092CAF 41 PUSH.6 $01 092CB0 03 25 LT.L 092CB2 18 2D BRZ $02D ; => $092CE1 092CB4 87 0B READ.F $0B 092CB6 30 05 D5 BSR.68K $05D5 ; => $0926E4 => $002B7E (NATIVE) 092CB9 3B 3F 84 7A E1 47 AE 14 7B PUSH.F $3F847AE147AE147B ; float = 0.010000 092CC2 03 21 LT.F 092CC4 18 0F BRZ $00F ; => $092CD5 092CC6 84 01 READ.B $01 092CC8 84 01 READ.B $01 092CCA E3 54 91 READ.F $5491 092CCD 87 0B READ.F $0B 092CCF 20 ADD.F 092CD0 F3 54 91 WRITE.F $5491 092CD3 10 0C BR $00C ; => $092CE1 092CD5 84 01 READ.B $01 092CD7 84 01 READ.B $01 092CD9 E0 54 41 READ.B $5441 092CDC 41 PUSH.6 $01 092CDD 27 ADD.L 092CDE F0 54 41 WRITE.B $5441 092CE1 37 10 01 01 2C _23d2 $0001, $012C 092CE6 34 RETURN ; ---------------- End Function $092B62 ---------------- ; ---------------- Begin 2144 Function $092CE8 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $092E8E:$092F9E ; addr bytes opcode operands comment 092CEF C0 29 8F READ.B $298F 092CF2 C0 35 92 READ.B $3592 092CF5 40 PUSH.6 $00 092CF6 2A EQ.L 092CF7 2C AND.L 092CF8 18 07 BRZ $007 ; => $092D01 092CFA C0 54 2C READ.B $542C 092CFD 41 PUSH.6 $01 092CFE 28 SUB.L 092CFF 10 01 BR $001 ; => $092D02 092D01 40 PUSH.6 $00 092D02 D0 54 2C WRITE.B $542C 092D05 C0 54 2C READ.B $542C 092D08 40 PUSH.6 $00 092D09 2A EQ.L 092D0A 18 04 BRZ $004 ; => $092D10 092D0C 41 PUSH.6 $01 092D0D D0 29 F1 WRITE.B $29F1 092D10 C0 29 9C READ.B $299C 092D13 18 43 BRZ $043 ; => $092D58 092D15 C0 29 A0 READ.B $29A0 092D18 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 092D1B C0 29 9A READ.B $299A 092D1E 38 00 32 BLS.B $0032 ; => $092D53 092D21 84 01 READ.B $01 092D23 E0 60 29 READ.B $6029 092D26 18 26 BRZ $026 ; => $092D4E 092D28 84 01 READ.B $01 092D2A 84 01 READ.B $01 092D2C E3 34 F3 READ.F $34F3 092D2F C1 54 37 READ.W $5437 092D32 03 2A LONG2FLOAT 092D34 23 DIV.F 092D35 F3 34 F3 WRITE.F $34F3 092D38 84 01 READ.B $01 092D3A 84 01 READ.B $01 092D3C E3 35 43 READ.F $3543 092D3F C1 54 37 READ.W $5437 092D42 03 2A LONG2FLOAT 092D44 23 DIV.F 092D45 F3 35 43 WRITE.F $3543 092D48 84 01 READ.B $01 092D4A 3E PUSH.W $0000 092D4B F3 41 49 WRITE.F $4149 092D4E 37 10 01 00 38 _23d2 $0001, $0038 092D53 30 06 2A BSR.68K $062A ; => $09272C 092D56 10 84 BR $084 ; => $092DDC 092D58 40 PUSH.6 $00 092D59 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 092D5C C0 29 9B READ.B $299B 092D5F 38 00 7A BLS.B $007A ; => $092DDC 092D62 84 01 READ.B $01 092D64 E0 60 29 READ.B $6029 092D67 18 62 BRZ $062 ; => $092DCB 092D69 84 01 READ.B $01 092D6B 84 01 READ.B $01 092D6D E3 54 E1 READ.F $54E1 092D70 C1 54 37 READ.W $5437 092D73 03 2A LONG2FLOAT 092D75 23 DIV.F 092D76 F3 34 2B WRITE.F $342B 092D79 84 01 READ.B $01 092D7B 84 01 READ.B $01 092D7D E2 34 A3 READ.L $34A3 092D80 C1 54 37 READ.W $5437 092D83 03 24 DIV.L 092D85 F2 34 A3 WRITE.L $34A3 092D88 84 01 READ.B $01 092D8A 84 01 READ.B $01 092D8C E3 54 91 READ.F $5491 092D8F C1 54 37 READ.W $5437 092D92 41 PUSH.6 $01 092D93 28 SUB.L 092D94 03 2A LONG2FLOAT 092D96 23 DIV.F 092D97 F3 34 7B WRITE.F $347B 092D9A 84 01 READ.B $01 092D9C E3 34 2B READ.F $342B 092D9F 30 06 BE BSR.68K $06BE ; => $0926E4 => $002B7E (NATIVE) 092DA2 3B 40 34 00 00 00 00 00 00 PUSH.F $4034000000000000 ; float = 20.000000 092DAB 24 GT.F 092DAC 18 04 BRZ $004 ; => $092DB2 092DAE 42 PUSH.6 $02 092DAF D0 54 2C WRITE.B $542C 092DB2 84 01 READ.B $01 092DB4 E0 54 41 READ.B $5441 092DB7 42 PUSH.6 $02 092DB8 03 25 LT.L 092DBA 84 01 READ.B $01 092DBC E0 54 41 READ.B $5441 092DBF 45 PUSH.6 $05 092DC0 03 26 GT.L 092DC2 2C AND.L 092DC3 18 04 BRZ $004 ; => $092DC9 092DC5 42 PUSH.6 $02 092DC6 D0 54 2C WRITE.B $542C 092DC9 10 0C BR $00C ; => $092DD7 092DCB 84 01 READ.B $01 092DCD 3E PUSH.W $0000 092DCE F3 34 2B WRITE.F $342B 092DD1 84 01 READ.B $01 092DD3 3E PUSH.W $0000 092DD4 F3 34 7B WRITE.F $347B 092DD7 37 10 01 00 80 _23d2 $0001, $0080 092DDC C0 54 2C READ.B $542C 092DDF 40 PUSH.6 $00 092DE0 2A EQ.L 092DE1 18 A6 BRZ $0A6 ; => $092E89 092DE3 C0 35 4C READ.B $354C 092DE6 41 PUSH.6 $01 092DE7 27 ADD.L 092DE8 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 092DEB C0 29 9A READ.B $299A 092DEE 38 00 0B BLS.B $000B ; => $092DFC 092DF1 84 00 READ.B $00 092DF3 40 PUSH.6 $00 092DF4 F0 40 09 WRITE.B $4009 092DF7 37 10 00 00 11 _23d2 $0000, $0011 092DFC C0 35 4C READ.B $354C 092DFF 94 00 WRITE.B $00 092E01 40 PUSH.6 $00 092E02 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 092E05 C0 29 9A READ.B $299A 092E08 38 00 72 BLS.B $0072 ; => $092E7D 092E0B 84 01 READ.B $01 092E0D E0 67 FD READ.B $67FD 092E10 18 66 BRZ $066 ; => $092E78 092E12 84 00 READ.B $00 092E14 41 PUSH.6 $01 092E15 27 ADD.L 092E16 94 00 WRITE.B $00 092E18 84 00 READ.B $00 092E1A E0 60 29 READ.B $6029 092E1D 84 00 READ.B $00 092E1F C0 29 9A READ.B $299A 092E22 03 27 LTE.L 092E24 2D OR.L 092E25 1F EB BRZ $-15 ; => $092E12 092E27 C0 28 FF READ.B $28FF 092E2A 84 01 READ.B $01 092E2C E0 67 FD READ.B $67FD 092E2F 84 01 READ.B $01 092E31 41 PUSH.6 $01 092E32 27 ADD.L 092E33 E0 29 0B READ.B $290B 092E36 2A EQ.L 092E37 2D OR.L 092E38 18 3E BRZ $03E ; => $092E78 092E3A 84 00 READ.B $00 092E3C 84 01 READ.B $01 092E3E E0 67 FD READ.B $67FD 092E41 F0 40 09 WRITE.B $4009 092E44 84 00 READ.B $00 092E46 84 01 READ.B $01 092E48 E3 68 4D READ.F $684D 092E4B F3 47 61 WRITE.F $4761 092E4E 84 00 READ.B $00 092E50 84 01 READ.B $01 092E52 E3 68 9D READ.F $689D 092E55 F3 46 53 WRITE.F $4653 092E58 84 00 READ.B $00 092E5A 84 01 READ.B $01 092E5C E3 68 ED READ.F $68ED 092E5F F3 40 59 WRITE.F $4059 092E62 84 00 READ.B $00 092E64 40 PUSH.6 $00 092E65 F0 44 23 WRITE.B $4423 092E68 84 00 READ.B $00 092E6A E0 40 09 READ.B $4009 092E6D 41 PUSH.6 $01 092E6E F0 55 A1 WRITE.B $55A1 092E71 84 00 READ.B $00 092E73 04 63 PUSH.10 $063 092E75 F0 46 5D WRITE.B $465D 092E78 37 10 01 00 78 _23d2 $0001, $0078 092E7D 60 PUSH.6 $20 092E7E D0 67 ED WRITE.B $67ED 092E81 4C PUSH.6 $0C 092E82 D0 55 70 WRITE.B $5570 092E85 3E PUSH.W $0000 092E86 D3 54 35 WRITE.F $5435 092E89 40 PUSH.6 $00 092E8A D1 54 37 WRITE.W $5437 092E8D 34 RETURN ; ---------------- End Function $092CE8 ---------------- ; ---------------- Begin 2144 Function $092E8E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D80A ; addr bytes opcode operands comment 092E95 31 12 SUBSP.B $12 092E97 40 PUSH.6 $00 092E98 94 03 WRITE.B $03 092E9A 40 PUSH.6 $00 092E9B 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 092E9E C0 29 9B READ.B $299B 092EA1 38 00 12 BLS.B $0012 ; => $092EB6 092EA4 84 01 READ.B $01 092EA6 E0 60 29 READ.B $6029 092EA9 18 06 BRZ $006 ; => $092EB1 092EAB 84 03 READ.B $03 092EAD 41 PUSH.6 $01 092EAE 27 ADD.L 092EAF 94 03 WRITE.B $03 092EB1 37 10 01 00 18 _23d2 $0001, $0018 092EB6 C0 55 64 READ.B $5564 092EB9 84 03 READ.B $03 092EBB 2B NEQ.L 092EBC C0 54 2C READ.B $542C 092EBF 42 PUSH.6 $02 092EC0 03 25 LT.L 092EC2 2D OR.L 092EC3 18 02 BRZ $002 ; => $092EC7 092EC5 11 1B BR $11B ; => $092FE2 092EC7 C1 54 37 READ.W $5437 092ECA 40 PUSH.6 $00 092ECB 2A EQ.L 092ECC 18 03 BRZ $003 ; => $092ED1 092ECE 30 04 D1 BSR.68K $04D1 ; => $092A00 092ED1 04 FF PUSH.10 $0FF 092ED3 94 02 WRITE.B $02 092ED5 40 PUSH.6 $00 092ED6 D0 54 2D WRITE.B $542D 092ED9 40 PUSH.6 $00 092EDA 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 092EDD C0 29 9B READ.B $299B 092EE0 38 00 52 BLS.B $0052 ; => $092F35 092EE3 84 01 READ.B $01 092EE5 E0 60 29 READ.B $6029 092EE8 18 46 BRZ $046 ; => $092F30 092EEA 84 01 READ.B $01 092EEC E0 49 11 READ.B $4911 092EEF 42 PUSH.6 $02 092EF0 2C AND.L 092EF1 84 01 READ.B $01 092EF3 E3 4A 0B READ.F $4A0B 092EF6 C0 35 4C READ.B $354C 092EF9 E3 4A 0B READ.F $4A0B 092EFC 21 SUB.F 092EFD 30 08 1C BSR.68K $081C ; => $0926E4 => $002B7E (NATIVE) 092F00 3B 40 49 00 00 00 00 00 00 PUSH.F $4049000000000000 ; float = 50.000000 092F09 24 GT.F 092F0A 2D OR.L 092F0B 18 03 BRZ $003 ; => $092F10 092F0D 40 PUSH.6 $00 092F0E 94 02 WRITE.B $02 092F10 84 01 READ.B $01 092F12 E3 46 B7 READ.F $46B7 092F15 C0 35 4C READ.B $354C 092F18 E3 46 B7 READ.F $46B7 092F1B 21 SUB.F 092F1C 30 08 3B BSR.68K $083B ; => $0926E4 => $002B7E (NATIVE) 092F1F 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 092F28 24 GT.F 092F29 18 05 BRZ $005 ; => $092F30 092F2B 04 FF PUSH.10 $0FF 092F2D D0 54 2D WRITE.B $542D 092F30 37 10 01 00 58 _23d2 $0001, $0058 092F35 84 02 READ.B $02 092F37 2E NOT.L 092F38 18 20 BRZ $020 ; => $092F5A 092F3A 04 FF PUSH.10 $0FF 092F3C D0 4E 73 WRITE.B $4E73 092F3F 30 08 58 BSR.68K $0858 ; => $0926EA => $000C22 (NATIVE) 092F42 40 PUSH.6 $00 092F43 D0 4E 73 WRITE.B $4E73 092F46 40 PUSH.6 $00 092F47 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 092F4A C0 29 9A READ.B $299A 092F4D 38 00 0A BLS.B $000A ; => $092F5A 092F50 84 01 READ.B $01 092F52 30 08 5F BSR.68K $085F ; => $0926F6 => $09CF34 092F55 37 10 01 00 10 _23d2 $0001, $0010 092F5A C0 35 4C READ.B $354C 092F5D E0 40 09 READ.B $4009 092F60 94 10 WRITE.B $10 092F62 C0 54 2D READ.B $542D 092F65 2E NOT.L 092F66 84 02 READ.B $02 092F68 2C AND.L 092F69 84 10 READ.B $10 092F6B 30 08 66 BSR.68K $0866 ; => $092708 => $095184 092F6E 2C AND.L 092F6F 18 09 BRZ $009 ; => $092F7A 092F71 30 04 12 BSR.68K $0412 ; => $092B62 092F74 04 FF PUSH.10 $0FF 092F76 94 11 WRITE.B $11 092F78 10 03 BR $003 ; => $092F7D 092F7A 40 PUSH.6 $00 092F7B 94 11 WRITE.B $11 092F7D C0 29 91 READ.B $2991 092F80 18 0F BRZ $00F ; => $092F91 092F82 C0 29 9C READ.B $299C 092F85 18 05 BRZ $005 ; => $092F8C 092F87 C1 33 DB READ.W $33DB 092F8A 10 03 BR $003 ; => $092F8F 092F8C C1 33 D9 READ.W $33D9 092F8F 10 02 BR $002 ; => $092F93 092F91 04 64 PUSH.10 $064 092F93 95 0F WRITE.W $0F 092F95 C1 54 37 READ.W $5437 092F98 85 0F READ.W $0F 092F9A 03 27 LTE.L 092F9C 18 03 BRZ $003 ; => $092FA1 092F9E 30 02 B9 BSR.68K $02B9 ; => $092CE8 092FA1 C0 54 2C READ.B $542C 092FA4 40 PUSH.6 $00 092FA5 2A EQ.L 092FA6 C0 56 6D READ.B $566D 092FA9 2C AND.L 092FAA C0 35 4D READ.B $354D 092FAD 43 PUSH.6 $03 092FAE 03 26 GT.L 092FB0 2C AND.L 092FB1 18 03 BRZ $003 ; => $092FB6 092FB3 30 08 BA BSR.68K $08BA ; => $0926FC => $09B386 092FB6 C0 29 91 READ.B $2991 092FB9 2E NOT.L 092FBA C0 29 9C READ.B $299C 092FBD C0 35 92 READ.B $3592 092FC0 40 PUSH.6 $00 092FC1 2A EQ.L 092FC2 2C AND.L 092FC3 2D OR.L 092FC4 18 13 BRZ $013 ; => $092FD9 092FC6 30 08 A3 BSR.68K $08A3 ; => $092726 => $0A0C6E 092FC9 84 0C 00 READ.B $0C 092FCC 30 08 CD BSR.68K $08CD ; => $092702 => $094B46 092FCF 84 0C READ.B $0C 092FD1 40 PUSH.6 $00 092FD2 2B NEQ.L 092FD3 18 04 BRZ $004 ; => $092FD9 092FD5 40 PUSH.6 $00 092FD6 30 08 B9 BSR.68K $08B9 ; => $092720 => $0948F8 092FD9 C0 29 91 READ.B $2991 092FDC 2E NOT.L 092FDD 18 03 BRZ $003 ; => $092FE2 092FDF 30 05 7A BSR.68K $057A ; => $092A68 092FE2 32 12 ADDSP.B $12 092FE4 34 RETURN ; ---------------- End Function $092E8E ---------------- ; ---------------- Begin 2144 Function $092FFE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $093118:$09312D ; called from $093118:$093154 ; called from $0A08AC:$0A093E ; addr bytes opcode operands comment 093005 31 02 SUBSP.B $02 093007 C0 29 A0 READ.B $29A0 09300A 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09300D C0 29 9A READ.B $299A 093010 38 00 46 BLS.B $0046 ; => $093059 093013 84 00 READ.B $00 093015 E0 60 29 READ.B $6029 093018 18 3A BRZ $03A ; => $093054 09301A 84 00 READ.B $00 09301C D0 51 00 WRITE.B $5100 09301F 04 FF PUSH.10 $0FF 093021 D0 4E 73 WRITE.B $4E73 093024 5F PUSH.6 $1F 093025 30 00 42 BSR.68K $0042 ; => $092FE6 => $094D12 093028 40 PUSH.6 $00 093029 D0 4E 73 WRITE.B $4E73 09302C C0 35 92 READ.B $3592 09302F 40 PUSH.6 $00 093030 2A EQ.L 093031 18 15 BRZ $015 ; => $093048 093033 40 PUSH.6 $00 093034 D0 51 41 WRITE.B $5141 093037 40 PUSH.6 $00 093038 D0 51 40 WRITE.B $5140 09303B 40 PUSH.6 $00 09303C D0 51 3F WRITE.B $513F 09303F 40 PUSH.6 $00 093040 D0 51 3E WRITE.B $513E 093043 4B PUSH.6 $0B 093044 44 PUSH.6 $04 093045 30 00 5C BSR.68K $005C ; => $092FEC => $094D8E 093048 84 00 READ.B $00 09304A 40 PUSH.6 $00 09304B F0 46 5D WRITE.B $465D 09304E 84 00 READ.B $00 093050 40 PUSH.6 $00 093051 F0 40 09 WRITE.B $4009 093054 37 10 00 00 4C _23d2 $0000, $004C 093059 C0 29 9A READ.B $299A 09305C D0 29 9B WRITE.B $299B 09305F C0 29 9A READ.B $299A 093062 41 PUSH.6 $01 093063 27 ADD.L 093064 D0 29 A0 WRITE.B $29A0 093067 04 FF PUSH.10 $0FF 093069 D0 29 9F WRITE.B $299F 09306C 40 PUSH.6 $00 09306D D0 29 9C WRITE.B $299C 093070 C0 35 92 READ.B $3592 093073 40 PUSH.6 $00 093074 2A EQ.L 093075 18 0D BRZ $00D ; => $093084 093077 02 INLINE 093078 11 FC 00 03 A4 79 move.b $3.w, $a479.w 09307E 4B FA 00 04 lea ($0004,PC), A5 093082 4E 75 rts 093084 30 00 95 BSR.68K $0095 ; => $092FF2 => $0A0648 093087 4C PUSH.6 $0C 093088 D0 55 70 WRITE.B $5570 09308B 32 02 ADDSP.B $02 09308D 34 RETURN ; ---------------- End Function $092FFE ---------------- ; ---------------- Begin 2144 Function $09308E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $093118:$09313B ; called from $093118:$093163 ; addr bytes opcode operands comment 093095 31 02 SUBSP.B $02 093097 C0 29 9A READ.B $299A 09309A 42 PUSH.6 $02 09309B 03 24 DIV.L 09309D D0 29 9B WRITE.B $299B 0930A0 C0 29 9B READ.B $299B 0930A3 41 PUSH.6 $01 0930A4 27 ADD.L 0930A5 D0 29 A0 WRITE.B $29A0 0930A8 C0 29 A0 READ.B $29A0 0930AB 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0930AE C0 29 9A READ.B $299A 0930B1 38 00 3C BLS.B $003C ; => $0930F0 0930B4 84 00 READ.B $00 0930B6 E0 60 29 READ.B $6029 0930B9 18 30 BRZ $030 ; => $0930EB 0930BB 84 00 READ.B $00 0930BD D0 51 00 WRITE.B $5100 0930C0 04 FF PUSH.10 $0FF 0930C2 D0 4E 73 WRITE.B $4E73 0930C5 5E PUSH.6 $1E 0930C6 30 00 E3 BSR.68K $00E3 ; => $092FE6 => $094D12 0930C9 C0 54 2C READ.B $542C 0930CC 18 04 BRZ $004 ; => $0930D2 0930CE 51 PUSH.6 $11 0930CF 30 00 EC BSR.68K $00EC ; => $092FE6 => $094D12 0930D2 40 PUSH.6 $00 0930D3 D0 4E 73 WRITE.B $4E73 0930D6 84 00 READ.B $00 0930D8 40 PUSH.6 $00 0930D9 F0 46 5D WRITE.B $465D 0930DC 84 00 READ.B $00 0930DE 3E PUSH.W $0000 0930DF F3 41 49 WRITE.F $4149 0930E2 84 00 READ.B $00 0930E4 E0 40 09 READ.B $4009 0930E7 40 PUSH.6 $00 0930E8 F0 55 A1 WRITE.B $55A1 0930EB 37 10 00 00 42 _23d2 $0000, $0042 0930F0 40 PUSH.6 $00 0930F1 D0 29 9F WRITE.B $299F 0930F4 04 FF PUSH.10 $0FF 0930F6 D0 29 9C WRITE.B $299C 0930F9 C0 35 92 READ.B $3592 0930FC 40 PUSH.6 $00 0930FD 2A EQ.L 0930FE 18 0E BRZ $00E ; => $09310E 093100 02 FF INLINE PAD 093102 11 FC 00 01 A4 79 move.b $1.w, $a479.w 093108 4B FA 00 04 lea ($0004,PC), A5 09310C 4E 75 rts 09310E 30 01 1F BSR.68K $011F ; => $092FF2 => $0A0648 093111 4C PUSH.6 $0C 093112 D0 55 70 WRITE.B $5570 093115 32 02 ADDSP.B $02 093117 34 RETURN ; ---------------- End Function $09308E ---------------- ; ---------------- Begin 2144 Function $093118 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7AA ; addr bytes opcode operands comment 09311F 31 02 SUBSP.B $02 093121 C0 54 2C READ.B $542C 093124 35 SWITCH 093125 10 0B 02 CASE $02 ; SWITCH $093124 093128 C0 29 9C READ.B $299C 09312B 18 03 BRZ $003 ; => $093130 09312D 30 01 32 BSR.68K $0132 ; => $092FFE 093130 10 41 BR $041 ; => $093173 093132 10 0C 01 CASE $01 ; SWITCH $093124 093135 C0 29 9C READ.B $299C 093138 2E NOT.L 093139 18 03 BRZ $003 ; => $09313E 09313B 30 00 B0 BSR.68K $00B0 ; => $09308E 09313E 10 33 BR $033 ; => $093173 093140 10 30 00 CASE $00 ; SWITCH $093124 093143 80 21 READ.B $21 093145 04 58 PUSH.10 $058 093147 2B NEQ.L 093148 18 26 BRZ $026 ; => $093170 09314A C0 29 90 READ.B $2990 09314D 18 0A BRZ $00A ; => $093159 09314F C0 29 9C READ.B $299C 093152 18 03 BRZ $003 ; => $093157 093154 30 01 59 BSR.68K $0159 ; => $092FFE 093157 10 17 BR $017 ; => $093170 093159 C0 29 9C READ.B $299C 09315C 2E NOT.L 09315D C0 29 8F READ.B $298F 093160 2C AND.L 093161 18 0D BRZ $00D ; => $093170 093163 30 00 D8 BSR.68K $00D8 ; => $09308E 093166 C0 35 92 READ.B $3592 093169 40 PUSH.6 $00 09316A 2A EQ.L 09316B 18 03 BRZ $003 ; => $093170 09316D 30 01 78 BSR.68K $0178 ; => $092FF8 => $09272C 093170 10 01 BR $001 ; => $093173 093172 00 DEFAULT ; SWITCH $093124 093173 C0 6B 28 READ.B $6B28 093176 18 6B BRZ $06B ; => $0931E3 093178 C0 6B 28 READ.B $6B28 09317B 35 SWITCH 09317C 10 31 03 CASE $03 ; SWITCH $09317B 09317F C0 29 A0 READ.B $29A0 093182 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 093185 C0 29 9A READ.B $299A 093188 38 00 1E BLS.B $001E ; => $0931A9 09318B 84 00 READ.B $00 09318D E0 60 29 READ.B $6029 093190 18 12 BRZ $012 ; => $0931A4 093192 84 00 READ.B $00 093194 D0 51 00 WRITE.B $5100 093197 04 FF PUSH.10 $0FF 093199 D0 4E 73 WRITE.B $4E73 09319C 51 PUSH.6 $11 09319D 30 01 BA BSR.68K $01BA ; => $092FE6 => $094D12 0931A0 40 PUSH.6 $00 0931A1 D0 4E 73 WRITE.B $4E73 0931A4 37 10 00 00 24 _23d2 $0000, $0024 0931A9 42 PUSH.6 $02 0931AA D0 6B 28 WRITE.B $6B28 0931AD 10 34 BR $034 ; => $0931E3 0931AF 10 31 01 CASE $01 ; SWITCH $09317B 0931B2 C0 29 A0 READ.B $29A0 0931B5 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0931B8 C0 29 9A READ.B $299A 0931BB 38 00 1E BLS.B $001E ; => $0931DC 0931BE 84 00 READ.B $00 0931C0 E0 60 29 READ.B $6029 0931C3 18 12 BRZ $012 ; => $0931D7 0931C5 84 00 READ.B $00 0931C7 D0 51 00 WRITE.B $5100 0931CA 04 FF PUSH.10 $0FF 0931CC D0 4E 73 WRITE.B $4E73 0931CF 52 PUSH.6 $12 0931D0 30 01 ED BSR.68K $01ED ; => $092FE6 => $094D12 0931D3 40 PUSH.6 $00 0931D4 D0 4E 73 WRITE.B $4E73 0931D7 37 10 00 00 24 _23d2 $0000, $0024 0931DC 40 PUSH.6 $00 0931DD D0 6B 28 WRITE.B $6B28 0931E0 10 01 BR $001 ; => $0931E3 0931E2 00 DEFAULT ; SWITCH $09317B 0931E3 32 02 ADDSP.B $02 0931E5 34 RETURN ; ---------------- End Function $093118 ---------------- ; ---------------- Begin 2144 Function $093246 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000E66:$000E83 ; addr bytes opcode operands comment 09324D 31 08 SUBSP.B $08 09324F C0 29 9A READ.B $299A 093252 44 PUSH.6 $04 093253 03 25 LT.L 093255 94 04 WRITE.B $04 093257 84 04 READ.B $04 093259 D0 29 9D WRITE.B $299D 09325C 40 PUSH.6 $00 09325D 94 01 WRITE.B $01 09325F 40 PUSH.6 $00 093260 94 02 WRITE.B $02 093262 40 PUSH.6 $00 093263 95 07 WRITE.W $07 093265 40 PUSH.6 $00 093266 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 093269 49 PUSH.6 $09 09326A 38 01 74 BLS.B $0174 ; => $0933E1 09326D 84 00 READ.B $00 09326F 40 PUSH.6 $00 093270 F0 29 AB WRITE.B $29AB 093273 84 00 READ.B $00 093275 04 FF PUSH.10 $0FF 093277 F0 60 29 WRITE.B $6029 09327A 84 00 READ.B $00 09327C 44 PUSH.6 $04 09327D 03 26 GT.L 09327F 84 04 READ.B $04 093281 2D OR.L 093282 C0 29 9D READ.B $299D 093285 C0 29 9E READ.B $299E 093288 2D OR.L 093289 84 00 READ.B $00 09328B 45 PUSH.6 $05 09328C 03 26 GT.L 09328E 2C AND.L 09328F 2D OR.L 093290 94 03 WRITE.B $03 093292 84 03 READ.B $03 093294 18 3E BRZ $03E ; => $0932D4 093296 4A PUSH.6 $0A 093297 D0 4E 51 WRITE.B $4E51 09329A 30 00 7B BSR.68K $007B ; => $093222 => $0034AA (CLEARSCREEN) (NATIVE) 09329D 44 PUSH.6 $04 09329E 3F 07 54 45 53 54 49 4E 47 DISP "TESTING" 0932A7 57 PUSH.6 $17 0932A8 3F 07 43 48 41 4E 4E 45 4C DISP "CHANNEL" 0932B1 70 PUSH.6 $30 0932B2 84 00 READ.B $00 0932B4 27 ADD.L 0932B5 90 00 WRITE.B $00 0932B7 C0 29 9D READ.B $299D 0932BA 18 08 BRZ $008 ; => $0932C4 0932BC 52 PUSH.6 $12 0932BD 3F 03 4C 53 49 DISP "LSI" 0932C2 10 0D BR $00D ; => $0932D1 0932C4 84 01 READ.B $01 0932C6 18 09 BRZ $009 ; => $0932D1 0932C8 50 PUSH.6 $10 0932C9 3F 06 44 49 53 43 52 54 DISP "DISCRT" 0932D1 30 00 B8 BSR.68K $00B8 ; => $09321C => $0034C8 (SETSEGMENTS) (NATIVE) 0932D4 C0 29 9D READ.B $299D 0932D7 18 0C BRZ $00C ; => $0932E5 0932D9 84 00 READ.B $00 0932DB 84 00 READ.B $00 0932DD 30 00 DC BSR.68K $00DC ; => $093204 => $093FA8 (NATIVE) 0932E0 F0 29 AB WRITE.B $29AB 0932E3 10 36 BR $036 ; => $09331B 0932E5 84 01 READ.B $01 0932E7 18 0C BRZ $00C ; => $0932F5 0932E9 84 00 READ.B $00 0932EB 84 00 READ.B $00 0932ED 30 00 F2 BSR.68K $00F2 ; => $0931FE => $093FC2 (NATIVE) 0932F0 F0 29 AB WRITE.B $29AB 0932F3 10 26 BR $026 ; => $09331B 0932F5 84 00 READ.B $00 0932F7 30 00 F6 BSR.68K $00F6 ; => $093204 => $093FA8 (NATIVE) 0932FA 40 PUSH.6 $00 0932FB 2A EQ.L 0932FC 18 07 BRZ $007 ; => $093305 0932FE 04 FF PUSH.10 $0FF 093300 D0 29 9D WRITE.B $299D 093303 10 16 BR $016 ; => $09331B 093305 84 00 READ.B $00 093307 30 01 0C BSR.68K $010C ; => $0931FE => $093FC2 (NATIVE) 09330A 40 PUSH.6 $00 09330B 2A EQ.L 09330C 18 06 BRZ $006 ; => $093314 09330E 04 FF PUSH.10 $0FF 093310 94 01 WRITE.B $01 093312 10 07 BR $007 ; => $09331B 093314 84 00 READ.B $00 093316 04 FF PUSH.10 $0FF 093318 F0 29 AB WRITE.B $29AB 09331B 84 00 READ.B $00 09331D E0 29 AB READ.B $29AB 093320 40 PUSH.6 $00 093321 2A EQ.L 093322 85 07 READ.W $07 093324 2C AND.L 093325 C1 29 95 READ.W $2995 093328 85 07 READ.W $07 09332A 2B NEQ.L 09332B 2C AND.L 09332C 18 06 BRZ $006 ; => $093334 09332E 84 00 READ.B $00 093330 46 PUSH.6 $06 093331 F0 29 AB WRITE.B $29AB 093334 84 00 READ.B $00 093336 E0 29 AB READ.B $29AB 093339 18 62 BRZ $062 ; => $09339D 09333B 84 00 READ.B $00 09333D 40 PUSH.6 $00 09333E F0 60 29 WRITE.B $6029 093341 84 03 READ.B $03 093343 18 56 BRZ $056 ; => $09339B 093345 C0 4E 61 READ.B $4E61 093348 C0 50 BA READ.B $50BA 09334B 40 PUSH.6 $00 09334C 2A EQ.L 09334D 2C AND.L 09334E 18 02 BRZ $002 ; => $093352 093350 17 F3 BR $-0D ; => $093345 093352 72 PUSH.6 $32 093353 D0 4E 51 WRITE.B $4E51 093356 30 01 37 BSR.68K $0137 ; => $093222 => $0034AA (CLEARSCREEN) (NATIVE) 093359 40 PUSH.6 $00 09335A 3F 1B 43 48 41 4E 20 78 20 DISP "CHAN x ERROR xxxPRESS CLEAR" 45 52 52 4F 52 20 78 78 78 50 52 45 53 53 20 43 4C 45 41 52 093377 70 PUSH.6 $30 093378 84 00 READ.B $00 09337A 27 ADD.L 09337B 90 1A WRITE.B $1A 09337D 4D PUSH.6 $0D 09337E 43 PUSH.6 $03 09337F 84 00 READ.B $00 093381 E0 29 AB READ.B $29AB 093384 03 2A LONG2FLOAT 093386 30 01 61 BSR.68K $0161 ; => $093228 => $097AD2 093389 30 01 70 BSR.68K $0170 ; => $09321C => $0034C8 (SETSEGMENTS) (NATIVE) 09338C C0 4E 61 READ.B $4E61 09338F 42 PUSH.6 $02 093390 2B NEQ.L 093391 C0 50 BA READ.B $50BA 093394 40 PUSH.6 $00 093395 2A EQ.L 093396 2C AND.L 093397 18 02 BRZ $002 ; => $09339B 093399 17 F1 BR $-0F ; => $09338C 09339B 10 3F BR $03F ; => $0933DC 09339D 84 02 READ.B $02 09339F 40 PUSH.6 $00 0933A0 2A EQ.L 0933A1 18 05 BRZ $005 ; => $0933A8 0933A3 84 00 READ.B $00 0933A5 D0 35 4C WRITE.B $354C 0933A8 84 02 READ.B $02 0933AA 41 PUSH.6 $01 0933AB 27 ADD.L 0933AC 94 02 WRITE.B $02 0933AE 85 07 READ.W $07 0933B0 40 PUSH.6 $00 0933B1 2A EQ.L 0933B2 18 05 BRZ $005 ; => $0933B9 0933B4 C1 29 95 READ.W $2995 0933B7 95 07 WRITE.W $07 0933B9 84 00 READ.B $00 0933BB 45 PUSH.6 $05 0933BC 03 27 LTE.L 0933BE 84 04 READ.B $04 0933C0 2D OR.L 0933C1 18 0A BRZ $00A ; => $0933CD 0933C3 04 FF PUSH.10 $0FF 0933C5 94 04 WRITE.B $04 0933C7 40 PUSH.6 $00 0933C8 D0 29 9E WRITE.B $299E 0933CB 10 0F BR $00F ; => $0933DC 0933CD 84 00 READ.B $00 0933CF 44 PUSH.6 $04 0933D0 2A EQ.L 0933D1 C0 29 9D READ.B $299D 0933D4 2D OR.L 0933D5 18 05 BRZ $005 ; => $0933DC 0933D7 04 FF PUSH.10 $0FF 0933D9 D0 29 9E WRITE.B $299E 0933DC 37 10 00 01 78 _23d2 $0000, $0178 0933E1 85 07 READ.W $07 0933E3 D1 29 95 WRITE.W $2995 0933E6 84 04 READ.B $04 0933E8 18 06 BRZ $006 ; => $0933F0 0933EA 49 PUSH.6 $09 0933EB D0 29 9A WRITE.B $299A 0933EE 10 0F BR $00F ; => $0933FF 0933F0 C0 29 9E READ.B $299E 0933F3 18 06 BRZ $006 ; => $0933FB 0933F5 44 PUSH.6 $04 0933F6 D0 29 9A WRITE.B $299A 0933F9 10 04 BR $004 ; => $0933FF 0933FB 43 PUSH.6 $03 0933FC D0 29 9A WRITE.B $299A 0933FF C0 29 9A READ.B $299A 093402 49 PUSH.6 $09 093403 03 26 GT.L 093405 18 04 BRZ $004 ; => $09340B 093407 40 PUSH.6 $00 093408 D0 29 72 WRITE.B $2972 09340B C0 29 9A READ.B $299A 09340E 41 PUSH.6 $01 09340F 27 ADD.L 093410 84 02 READ.B $02 093412 28 SUB.L 093413 D0 29 AC WRITE.B $29AC 093416 84 01 READ.B $01 093418 18 05 BRZ $005 ; => $09341F 09341A 30 02 0D BSR.68K $020D ; => $093210 => $094102 (NATIVE) 09341D 10 10 BR $010 ; => $09342F 09341F 30 02 18 BSR.68K $0218 ; => $09320A => $09414A (NATIVE) 093422 30 01 F1 BSR.68K $01F1 ; => $093234 => $095BD8 (SLEEP1SECOND) (NATIVE) 093425 C0 29 AB READ.B $29AB 093428 40 PUSH.6 $00 093429 2A EQ.L 09342A 18 03 BRZ $003 ; => $09342F 09342C 30 02 19 BSR.68K $0219 ; => $093216 => $09418E (NATIVE) 09342F C0 29 9D READ.B $299D 093432 18 DB BRZ $0DB ; => $09350F 093434 3B 3E B5 CF 75 1D B9 4E 6B PUSH.F $3EB5CF751DB94E6B ; float = 0.000001 09343D D3 59 81 WRITE.F $5981 093440 3B 3E 94 4C E9 11 D1 E4 8F PUSH.F $3E944CE911D1E48F ; float = 0.000000 093449 D3 59 91 WRITE.F $5991 09344C C0 29 9A READ.B $299A 09344F D0 51 00 WRITE.B $5100 093452 C0 51 00 READ.B $5100 093455 E0 29 AB READ.B $29AB 093458 18 29 BRZ $029 ; => $093483 09345A C0 51 00 READ.B $5100 09345D 35 SWITCH 09345E 10 07 09 CASE $09 ; SWITCH $09345D 093461 48 PUSH.6 $08 093462 D0 51 00 WRITE.B $5100 093465 10 1A BR $01A ; => $093481 093467 10 07 08 CASE $08 ; SWITCH $09345D 09346A 44 PUSH.6 $04 09346B D0 51 00 WRITE.B $5100 09346E 10 11 BR $011 ; => $093481 093470 10 07 04 CASE $04 ; SWITCH $09345D 093473 43 PUSH.6 $03 093474 D0 51 00 WRITE.B $5100 093477 10 08 BR $008 ; => $093481 093479 10 05 03 CASE $03 ; SWITCH $09345D 09347C 10 8F BR $08F ; => $09350D 09347E 10 01 BR $001 ; => $093481 093480 00 DEFAULT ; SWITCH $09345D 093481 17 CF BR $-31 ; => $093452 093483 5B PUSH.6 $1B 093484 41 PUSH.6 $01 093485 30 02 9C BSR.68K $029C ; => $0931EC => $094D6E 093488 C0 51 41 READ.B $5141 09348B 50 PUSH.6 $10 09348C 2C AND.L 09348D 50 PUSH.6 $10 09348E 2B NEQ.L 09348F 18 12 BRZ $012 ; => $0934A3 093491 3B 3E C1 C8 AA 53 50 34 20 PUSH.F $3EC1C8AA53503420 ; float = 0.000002 09349A D3 59 81 WRITE.F $5981 09349D 3E PUSH.W $0000 09349E D3 59 91 WRITE.F $5991 0934A1 10 3D BR $03D ; => $0934E0 0934A3 C0 51 41 READ.B $5141 0934A6 04 80 PUSH.10 $080 0934A8 2C AND.L 0934A9 04 80 PUSH.10 $080 0934AB 2A EQ.L 0934AC 18 1A BRZ $01A ; => $0934C8 0934AE 3B 3E B5 CF 75 1D B9 4E 6B PUSH.F $3EB5CF751DB94E6B ; float = 0.000001 0934B7 D3 59 81 WRITE.F $5981 0934BA 3B 3E 94 4C E9 11 D1 E4 8F PUSH.F $3E944CE911D1E48F ; float = 0.000000 0934C3 D3 59 91 WRITE.F $5991 0934C6 10 18 BR $018 ; => $0934E0 0934C8 3B 3E B5 79 8E E2 30 8C 3A PUSH.F $3EB5798EE2308C3A ; float = 0.000001 0934D1 D3 59 81 WRITE.F $5981 0934D4 3B 3E B5 79 8E E2 30 8C 3A PUSH.F $3EB5798EE2308C3A ; float = 0.000001 0934DD D3 59 91 WRITE.F $5991 0934E0 C0 51 41 READ.B $5141 0934E3 60 PUSH.6 $20 0934E4 2C AND.L 0934E5 60 PUSH.6 $20 0934E6 2A EQ.L 0934E7 18 0A BRZ $00A ; => $0934F3 0934E9 04 FF PUSH.10 $0FF 0934EB D0 29 92 WRITE.B $2992 0934EE 04 FF PUSH.10 $0FF 0934F0 D0 29 91 WRITE.B $2991 0934F3 C0 51 41 READ.B $5141 0934F6 04 40 PUSH.10 $040 0934F8 2C AND.L 0934F9 04 40 PUSH.10 $040 0934FB 2A EQ.L 0934FC 18 07 BRZ $007 ; => $093505 0934FE 04 FF PUSH.10 $0FF 093500 D0 29 8F WRITE.B $298F 093503 10 08 BR $008 ; => $09350D 093505 40 PUSH.6 $00 093506 D0 29 8F WRITE.B $298F 093509 40 PUSH.6 $00 09350A D0 29 90 WRITE.B $2990 09350D 10 08 BR $008 ; => $093517 09350F 3E PUSH.W $0000 093510 D3 59 91 WRITE.F $5991 093513 40 PUSH.6 $00 093514 D0 4E 72 WRITE.B $4E72 093517 30 02 EC BSR.68K $02EC ; => $09322E => $09058C 09351A 30 03 01 BSR.68K $0301 ; => $09321C => $0034C8 (SETSEGMENTS) (NATIVE) 09351D 40 PUSH.6 $00 09351E D1 29 E7 WRITE.W $29E7 093521 C1 29 95 READ.W $2995 093524 3C AB 3B PUSH.W $AB3B 093527 2A EQ.L 093528 18 14 BRZ $014 ; => $09353E 09352A 04 65 PUSH.10 $065 09352C D1 29 95 WRITE.W $2995 09352F 44 PUSH.6 $04 093530 D0 29 99 WRITE.B $2999 093533 47 PUSH.6 $07 093534 D0 29 98 WRITE.B $2998 093537 04 56 PUSH.10 $056 093539 D0 29 97 WRITE.B $2997 09353C 10 1B BR $01B ; => $093559 09353E C1 29 95 READ.W $2995 093541 3C 4F A9 PUSH.W $4FA9 093544 2A EQ.L 093545 18 12 BRZ $012 ; => $093559 093547 04 66 PUSH.10 $066 093549 D1 29 95 WRITE.W $2995 09354C 48 PUSH.6 $08 09354D D0 29 99 WRITE.B $2999 093550 4B PUSH.6 $0B 093551 D0 29 98 WRITE.B $2998 093554 04 56 PUSH.10 $056 093556 D0 29 97 WRITE.B $2997 093559 C0 29 9D READ.B $299D 09355C C1 29 95 READ.W $2995 09355F 3C 7F FF PUSH.W $7FFF 093562 2C AND.L 093563 05 36 PUSH.10 $136 093565 03 26 GT.L 093567 2C AND.L 093568 18 09 BRZ $009 ; => $093573 09356A 30 03 33 BSR.68K $0333 ; => $09323A => $0AE8F8 09356D 30 03 54 BSR.68K $0354 ; => $09321C => $0034C8 (SETSEGMENTS) (NATIVE) 093570 40 PUSH.6 $00 093571 1F F7 BRZ $-09 ; => $09356A 093573 C1 29 95 READ.W $2995 093576 3C 80 00 PUSH.W $8000 093579 2C AND.L 09357A 3C 80 00 PUSH.W $8000 09357D 2A EQ.L 09357E 18 0E BRZ $00E ; => $09358E 093580 3B 41 52 BB 50 00 00 00 00 PUSH.F $4152BB5000000000 ; float = 4910400.000000 093589 D3 60 9D WRITE.F $609D 09358C 10 0C BR $00C ; => $09359A 09358E 3B 41 62 BB 50 00 00 00 00 PUSH.F $4162BB5000000000 ; float = 9820800.000000 093597 D3 60 9D WRITE.F $609D 09359A 43 PUSH.6 $03 09359B 30 03 5E BSR.68K $035E ; => $093240 => $09503C 09359E 40 PUSH.6 $00 09359F 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0935A2 C0 29 9A READ.B $299A 0935A5 38 00 24 BLS.B $0024 ; => $0935CC 0935A8 84 00 READ.B $00 0935AA E0 29 AB READ.B $29AB 0935AD 40 PUSH.6 $00 0935AE 2A EQ.L 0935AF 18 16 BRZ $016 ; => $0935C7 0935B1 84 00 READ.B $00 0935B3 D0 51 00 WRITE.B $5100 0935B6 04 FF PUSH.10 $0FF 0935B8 D0 4E 73 WRITE.B $4E73 0935BB 54 PUSH.6 $14 0935BC 30 03 CD BSR.68K $03CD ; => $0931F2 => $094D12 0935BF 40 PUSH.6 $00 0935C0 D0 4E 73 WRITE.B $4E73 0935C3 55 PUSH.6 $15 0935C4 30 03 D5 BSR.68K $03D5 ; => $0931F2 => $094D12 0935C7 37 10 00 00 2A _23d2 $0000, $002A 0935CC 40 PUSH.6 $00 0935CD 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0935D0 C0 29 9A READ.B $299A 0935D3 38 00 17 BLS.B $0017 ; => $0935ED 0935D6 84 00 READ.B $00 0935D8 E0 29 AB READ.B $29AB 0935DB 40 PUSH.6 $00 0935DC 2A EQ.L 0935DD 18 09 BRZ $009 ; => $0935E8 0935DF 84 00 READ.B $00 0935E1 D0 51 00 WRITE.B $5100 0935E4 41 PUSH.6 $01 0935E5 30 03 F0 BSR.68K $03F0 ; => $0931F8 => $094D52 0935E8 37 10 00 00 1D _23d2 $0000, $001D 0935ED C0 29 9A READ.B $299A 0935F0 D0 29 9B WRITE.B $299B 0935F3 C0 29 9A READ.B $299A 0935F6 41 PUSH.6 $01 0935F7 27 ADD.L 0935F8 D0 29 A0 WRITE.B $29A0 0935FB C0 29 9B READ.B $299B 0935FE 44 PUSH.6 $04 0935FF 03 25 LT.L 093601 D0 29 9F WRITE.B $299F 093604 C1 29 E7 READ.W $29E7 093607 04 96 PUSH.10 $096 093609 03 26 GT.L 09360B 18 02 BRZ $002 ; => $09360F 09360D 17 F5 BR $-0B ; => $093604 09360F 32 08 ADDSP.B $08 093611 34 RETURN ; ---------------- End Function $093246 ---------------- ; ---------------- Begin 2164 Function $09363C ---------------- ; P0 = $0010; P1 = $0004; P2 = $02 ; A0 = $004008; (A0) = A6 + $F; D1 = $000004 ; called from $0936B6:$0936FE ; addr bytes opcode operands comment 093645 31 0A SUBSP.B $0A 093647 8B 0F READ.F $0F 093649 C3 29 FB READ.F $29FB 09364C 25 GTE.F 09364D C0 29 73 READ.B $2973 093650 40 PUSH.6 $00 093651 2A EQ.L 093652 C0 29 74 READ.B $2974 093655 2E NOT.L 093656 2D OR.L 093657 2C AND.L 093658 98 1C WRITE.B $1C 09365A 8A 07 READ.L $07 09365C E1 01 61 READ.W $0161 09365F 40 PUSH.6 $00 093660 2B NEQ.L 093661 18 24 BRZ $024 ; => $093687 093663 8B 0F READ.F $0F 093665 8A 07 READ.L $07 093667 E1 01 61 READ.W $0161 09366A 3D 00 09 3A 80 PUSH.L $00093A80 09366F 29 MUL.L 093670 8A 07 READ.L $07 093672 E2 01 E5 READ.L $01E5 093675 27 ADD.L 093676 03 2A LONG2FLOAT 093678 21 SUB.F 093679 3B 3F 32 34 56 78 9A BD 08 PUSH.F $3F323456789ABD08 ; float = 0.000278 093682 22 MUL.F 093683 9B 1B WRITE.F $1B 093685 10 0B BR $00B ; => $093692 093687 3B 54 7D 42 AE A2 87 9F 2E PUSH.F $547D42AEA2879F2E ; float = 999999999999999967336168804116691273849533185806555472917961779471295845921727862608739868455469056.000000 093690 9B 1B WRITE.F $1B 093692 8A 13 READ.L $13 093694 8B 1B READ.F $1B 093696 F3 48 17 WRITE.F $4817 093699 88 1C READ.B $1C 09369B 2E NOT.L 09369C 8B 1B READ.F $1B 09369E C0 28 E4 READ.B $28E4 0936A1 03 2A LONG2FLOAT 0936A3 03 21 LT.F 0936A5 2C AND.L 0936A6 C0 28 A9 READ.B $28A9 0936A9 2E NOT.L 0936AA 2D OR.L 0936AB 8A 07 READ.L $07 0936AD 30 00 86 BSR.68K $0086 ; => $09362A => $095184 0936B0 2C AND.L 0936B1 9A 03 WRITE.L $03 0936B3 32 1A ADDSP.B $1A 0936B5 34 RETURN ; ---------------- End Function $09363C ---------------- ; ---------------- Begin 2144 Function $0936B6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7E2 ; addr bytes opcode operands comment 0936BD 31 0C SUBSP.B $0C 0936BF C0 6B CE READ.B $6BCE 0936C2 18 08 BRZ $008 ; => $0936CC 0936C4 40 PUSH.6 $00 0936C5 D2 56 2D WRITE.L $562D 0936C8 40 PUSH.6 $00 0936C9 D0 6B CE WRITE.B $6BCE 0936CC 04 FF PUSH.10 $0FF 0936CE 94 0A WRITE.B $0A 0936D0 30 00 B5 BSR.68K $00B5 ; => $09361E => $094E22 0936D3 97 09 WRITE.F $09 0936D5 40 PUSH.6 $00 0936D6 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0936D9 C0 29 9B READ.B $299B 0936DC 38 00 75 BLS.B $0075 ; => $093754 0936DF 84 00 READ.B $00 0936E1 E0 60 29 READ.B $6029 0936E4 84 00 READ.B $00 0936E6 E0 40 09 READ.B $4009 0936E9 2C AND.L 0936EA 18 63 BRZ $063 ; => $09374F 0936EC 84 00 READ.B $00 0936EE E0 40 09 READ.B $4009 0936F1 94 0B WRITE.B $0B 0936F3 84 00 READ.B $00 0936F5 D0 51 00 WRITE.B $5100 0936F8 84 0B READ.B $0B 0936FA 87 09 READ.F $09 0936FC 84 00 READ.B $00 0936FE 30 00 C5 BSR.68K $00C5 ; => $09363C 093701 2E NOT.L 093702 18 07 BRZ $007 ; => $09370B 093704 84 0B READ.B $0B 093706 04 FF PUSH.10 $0FF 093708 F0 28 D3 WRITE.B $28D3 09370B 84 0B READ.B $0B 09370D E0 28 D3 READ.B $28D3 093710 18 3D BRZ $03D ; => $09374F 093712 30 00 F1 BSR.68K $00F1 ; => $093624 => $094ED4 093715 18 38 BRZ $038 ; => $09374F 093717 30 00 EA BSR.68K $00EA ; => $093630 => $0018F8 09371A C0 28 AD READ.B $28AD 09371D 18 30 BRZ $030 ; => $09374F 09371F 84 00 READ.B $00 093721 3E PUSH.W $0000 093722 F3 48 17 WRITE.F $4817 093725 40 PUSH.6 $00 093726 94 0A WRITE.B $0A 093728 C0 56 6E READ.B $566E 09372B 18 22 BRZ $022 ; => $09374F 09372D 87 09 READ.F $09 09372F 3B 3F 32 34 56 78 9A B7 44 PUSH.F $3F323456789AB744 ; float = 0.000278 093738 22 MUL.F 093739 30 01 24 BSR.68K $0124 ; => $093618 => $002C08 (NATIVE) 09373C 3B 3F C5 55 55 55 55 4B F3 PUSH.F $3FC5555555554BF3 ; float = 0.166667 093745 03 21 LT.F 093747 18 06 BRZ $006 ; => $09374F 093749 84 0B READ.B $0B 09374B 40 PUSH.6 $00 09374C F0 56 93 WRITE.B $5693 09374F 37 10 00 00 7B _23d2 $0000, $007B 093754 87 09 READ.F $09 093756 3B 40 41 80 00 00 00 00 00 PUSH.F $4041800000000000 ; float = 35.000000 09375F 21 SUB.F 093760 3B 3F 5B 4E 81 B4 E8 1A 1B PUSH.F $3F5B4E81B4E81A1B ; float = 0.001667 093769 22 MUL.F 09376A 30 01 5B BSR.68K $015B ; => $093612 => $002CA6 (NATIVE) 09376D 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 093776 20 ADD.F 093777 3B 40 82 C0 00 00 00 00 00 PUSH.F $4082C00000000000 ; float = 600.000000 093780 22 MUL.F 093781 3B 40 41 80 00 00 00 00 00 PUSH.F $4041800000000000 ; float = 35.000000 09378A 20 ADD.F 09378B D3 29 FB WRITE.F $29FB 09378E 84 0A READ.B $0A 093790 18 1D BRZ $01D ; => $0937AF 093792 40 PUSH.6 $00 093793 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 093796 C0 29 9B READ.B $299B 093799 38 00 13 BLS.B $0013 ; => $0937AF 09379C 84 00 READ.B $00 09379E E0 44 23 READ.B $4423 0937A1 18 07 BRZ $007 ; => $0937AA 0937A3 84 00 READ.B $00 0937A5 30 01 72 BSR.68K $0172 ; => $093636 => $0015CE 0937A8 10 05 BR $005 ; => $0937AF 0937AA 37 10 00 00 19 _23d2 $0000, $0019 0937AF 32 0C ADDSP.B $0C 0937B1 34 RETURN ; ---------------- End Function $0936B6 ---------------- ; ---------------- Begin 2144 Function $0937CA ---------------- ; A0 = $004008; (A0) = SP + $3 ; called from $093876:$093920 ; addr bytes opcode operands comment 0937D1 31 02 SUBSP.B $02 0937D3 40 PUSH.6 $00 0937D4 36 20 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0937D7 43 PUSH.6 $03 0937D8 38 00 97 BLS.B $0097 ; => $093872 0937DB 40 PUSH.6 $00 0937DC 36 20 05 _2362 $0005 ; A0 = $004000; (A0) = A6 + $0 0937DF 43 PUSH.6 $03 0937E0 38 00 8A BLS.B $008A ; => $09386D 0937E3 88 04 READ.B $04 0937E5 44 PUSH.6 $04 0937E6 29 MUL.L 0937E7 88 05 READ.B $05 0937E9 27 ADD.L 0937EA 3E PUSH.W $0000 0937EB F7 02 21 WRITE.F $0221 0937EE 40 PUSH.6 $00 0937EF 36 10 20 _2362 $0020 ; A0 = $004000; (A0) = A6 + $0 0937F2 8A 03 READ.L $03 0937F4 38 00 71 BLS.B $0071 ; => $093868 0937F7 86 03 READ.L $03 0937F9 43 PUSH.6 $03 0937FA 2A EQ.L 0937FB 84 20 READ.B $20 0937FD 8A 03 READ.L $03 0937FF 2A EQ.L 093800 2C AND.L 093801 18 36 BRZ $036 ; => $093839 093803 88 04 READ.B $04 093805 44 PUSH.6 $04 093806 29 MUL.L 093807 88 05 READ.B $05 093809 27 ADD.L 09380A 88 04 READ.B $04 09380C 44 PUSH.6 $04 09380D 29 MUL.L 09380E 88 05 READ.B $05 093810 27 ADD.L 093811 E7 02 21 READ.F $0221 093814 84 20 READ.B $20 093816 44 PUSH.6 $04 093817 29 MUL.L 093818 88 04 READ.B $04 09381A 27 ADD.L 09381B E7 01 A1 READ.F $01A1 09381E 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 093827 22 MUL.F 093828 84 20 READ.B $20 09382A 44 PUSH.6 $04 09382B 29 MUL.L 09382C 88 05 READ.B $05 09382E 27 ADD.L 09382F E7 01 A1 READ.F $01A1 093832 22 MUL.F 093833 20 ADD.F 093834 F7 02 21 WRITE.F $0221 093837 10 2A BR $02A ; => $093863 093839 88 04 READ.B $04 09383B 44 PUSH.6 $04 09383C 29 MUL.L 09383D 88 05 READ.B $05 09383F 27 ADD.L 093840 88 04 READ.B $04 093842 44 PUSH.6 $04 093843 29 MUL.L 093844 88 05 READ.B $05 093846 27 ADD.L 093847 E7 02 21 READ.F $0221 09384A 84 20 READ.B $20 09384C 44 PUSH.6 $04 09384D 29 MUL.L 09384E 88 04 READ.B $04 093850 27 ADD.L 093851 E7 01 A1 READ.F $01A1 093854 84 20 READ.B $20 093856 44 PUSH.6 $04 093857 29 MUL.L 093858 88 05 READ.B $05 09385A 27 ADD.L 09385B E7 01 A1 READ.F $01A1 09385E 22 MUL.F 09385F 20 ADD.F 093860 F7 02 21 WRITE.F $0221 093863 37 10 20 00 76 _23d2 $0020, $0076 093868 37 20 05 00 8E _23d2 $0005, $008E 09386D 37 20 04 00 9B _23d2 $0004, $009B 093872 32 06 ADDSP.B $06 093874 34 RETURN ; ---------------- End Function $0937CA ---------------- ; ---------------- Begin 2144 Function $093876 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $093C22:$093C49 ; addr bytes opcode operands comment 09387D 40 PUSH.6 $00 09387E 94 21 WRITE.B $21 093880 40 PUSH.6 $00 093881 36 10 1E _2362 $001E ; A0 = $004000; (A0) = A6 + $0 093884 C0 29 9B READ.B $299B 093887 38 00 52 BLS.B $0052 ; => $0938DC 09388A 84 1E READ.B $1E 09388C E0 47 75 READ.B $4775 09388F 18 46 BRZ $046 ; => $0938D7 093891 84 1E READ.B $1E 093893 E0 40 09 READ.B $4009 093896 94 1F WRITE.B $1F 093898 40 PUSH.6 $00 093899 36 10 20 _2362 $0020 ; A0 = $004000; (A0) = A6 + $0 09389C 42 PUSH.6 $02 09389D 38 00 19 BLS.B $0019 ; => $0938B9 0938A0 84 21 READ.B $21 0938A2 44 PUSH.6 $04 0938A3 29 MUL.L 0938A4 84 20 READ.B $20 0938A6 27 ADD.L 0938A7 84 1F READ.B $1F 0938A9 43 PUSH.6 $03 0938AA 29 MUL.L 0938AB 84 20 READ.B $20 0938AD 27 ADD.L 0938AE E3 28 1F READ.F $281F 0938B1 F7 01 A1 WRITE.F $01A1 0938B4 37 10 20 00 1D _23d2 $0020, $001D 0938B9 84 21 READ.B $21 0938BB 44 PUSH.6 $04 0938BC 29 MUL.L 0938BD 43 PUSH.6 $03 0938BE 27 ADD.L 0938BF 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0938C8 F7 01 A1 WRITE.F $01A1 0938CB 84 21 READ.B $21 0938CD 84 1E READ.B $1E 0938CF B4 19 WRITE.B $19 0938D1 84 21 READ.B $21 0938D3 41 PUSH.6 $01 0938D4 27 ADD.L 0938D5 94 21 WRITE.B $21 0938D7 37 10 1E 00 58 _23d2 $001E, $0058 0938DC 86 03 READ.L $03 0938DE 43 PUSH.6 $03 0938DF 2A EQ.L 0938E0 18 36 BRZ $036 ; => $093918 0938E2 84 21 READ.B $21 0938E4 44 PUSH.6 $04 0938E5 29 MUL.L 0938E6 40 PUSH.6 $00 0938E7 27 ADD.L 0938E8 83 4F READ.F $4F 0938EA 83 C7 READ.F $C7 0938EC 23 DIV.F 0938ED F7 01 A1 WRITE.F $01A1 0938F0 84 21 READ.B $21 0938F2 44 PUSH.6 $04 0938F3 29 MUL.L 0938F4 41 PUSH.6 $01 0938F5 27 ADD.L 0938F6 83 57 READ.F $57 0938F8 83 C7 READ.F $C7 0938FA 23 DIV.F 0938FB F7 01 A1 WRITE.F $01A1 0938FE 84 21 READ.B $21 093900 44 PUSH.6 $04 093901 29 MUL.L 093902 42 PUSH.6 $02 093903 27 ADD.L 093904 83 5F READ.F $5F 093906 83 C7 READ.F $C7 093908 23 DIV.F 093909 F7 01 A1 WRITE.F $01A1 09390C 84 21 READ.B $21 09390E 44 PUSH.6 $04 09390F 29 MUL.L 093910 43 PUSH.6 $03 093911 27 ADD.L 093912 3E PUSH.W $0000 093913 F7 01 A1 WRITE.F $01A1 093916 10 06 BR $006 ; => $09391E 093918 84 21 READ.B $21 09391A 41 PUSH.6 $01 09391B 28 SUB.L 09391C 94 21 WRITE.B $21 09391E 84 21 READ.B $21 093920 30 01 59 BSR.68K $0159 ; => $0937CA 093923 09 02 21 00 80 ?_$09 $0221, $0080 093928 30 01 6D BSR.68K $016D ; => $0937BE => $09788A 09392B 0D 02 A1 00 80 ?_$0D $02A1, $0080 093930 40 PUSH.6 $00 093931 44 PUSH.6 $04 093932 29 MUL.L 093933 40 PUSH.6 $00 093934 27 ADD.L 093935 E7 02 A1 READ.F $02A1 093938 41 PUSH.6 $01 093939 44 PUSH.6 $04 09393A 29 MUL.L 09393B 41 PUSH.6 $01 09393C 27 ADD.L 09393D E7 02 A1 READ.F $02A1 093940 20 ADD.F 093941 42 PUSH.6 $02 093942 44 PUSH.6 $04 093943 29 MUL.L 093944 42 PUSH.6 $02 093945 27 ADD.L 093946 E7 02 A1 READ.F $02A1 093949 20 ADD.F 09394A 30 01 9B BSR.68K $019B ; => $0937B2 => $002682 (NATIVE) 09394D 97 0B WRITE.F $0B 09394F 34 RETURN ; ---------------- End Function $093876 ---------------- ; ---------------- Begin 2144 Function $093950 ---------------- ; A0 = $00400C; (A0) = SP + $3 ; called from $0939F6:$093A7A ; addr bytes opcode operands comment 093957 31 02 SUBSP.B $02 093959 40 PUSH.6 $00 09395A 36 30 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 09395D 42 PUSH.6 $02 09395E 38 00 92 BLS.B $0092 ; => $0939F3 093961 40 PUSH.6 $00 093962 36 30 05 _2362 $0005 ; A0 = $004000; (A0) = A6 + $0 093965 42 PUSH.6 $02 093966 38 00 85 BLS.B $0085 ; => $0939EE 093969 8C 04 READ.B $04 09396B 43 PUSH.6 $03 09396C 29 MUL.L 09396D 8C 05 READ.B $05 09396F 27 ADD.L 093970 3E PUSH.W $0000 093971 FB 01 4F WRITE.F $014F 093974 40 PUSH.6 $00 093975 36 10 20 _2362 $0020 ; A0 = $004000; (A0) = A6 + $0 093978 8E 03 READ.L $03 09397A 38 00 6C BLS.B $006C ; => $0939E9 09397D 84 20 READ.B $20 09397F 8E 03 READ.L $03 093981 2A EQ.L 093982 18 36 BRZ $036 ; => $0939BA 093984 8C 04 READ.B $04 093986 43 PUSH.6 $03 093987 29 MUL.L 093988 8C 05 READ.B $05 09398A 27 ADD.L 09398B 8C 04 READ.B $04 09398D 43 PUSH.6 $03 09398E 29 MUL.L 09398F 8C 05 READ.B $05 093991 27 ADD.L 093992 EB 01 4F READ.F $014F 093995 84 20 READ.B $20 093997 43 PUSH.6 $03 093998 29 MUL.L 093999 8C 04 READ.B $04 09399B 27 ADD.L 09399C EB 01 07 READ.F $0107 09399F 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 0939A8 22 MUL.F 0939A9 84 20 READ.B $20 0939AB 43 PUSH.6 $03 0939AC 29 MUL.L 0939AD 8C 05 READ.B $05 0939AF 27 ADD.L 0939B0 EB 01 07 READ.F $0107 0939B3 22 MUL.F 0939B4 20 ADD.F 0939B5 FB 01 4F WRITE.F $014F 0939B8 10 2A BR $02A ; => $0939E4 0939BA 8C 04 READ.B $04 0939BC 43 PUSH.6 $03 0939BD 29 MUL.L 0939BE 8C 05 READ.B $05 0939C0 27 ADD.L 0939C1 8C 04 READ.B $04 0939C3 43 PUSH.6 $03 0939C4 29 MUL.L 0939C5 8C 05 READ.B $05 0939C7 27 ADD.L 0939C8 EB 01 4F READ.F $014F 0939CB 84 20 READ.B $20 0939CD 43 PUSH.6 $03 0939CE 29 MUL.L 0939CF 8C 04 READ.B $04 0939D1 27 ADD.L 0939D2 EB 01 07 READ.F $0107 0939D5 84 20 READ.B $20 0939D7 43 PUSH.6 $03 0939D8 29 MUL.L 0939D9 8C 05 READ.B $05 0939DB 27 ADD.L 0939DC EB 01 07 READ.F $0107 0939DF 22 MUL.F 0939E0 20 ADD.F 0939E1 FB 01 4F WRITE.F $014F 0939E4 37 10 20 00 71 _23d2 $0020, $0071 0939E9 37 30 05 00 89 _23d2 $0005, $0089 0939EE 37 30 04 00 96 _23d2 $0004, $0096 0939F3 32 06 ADDSP.B $06 0939F5 34 RETURN ; ---------------- End Function $093950 ---------------- ; ---------------- Begin 2144 Function $0939F6 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $093C22:$093C40 ; addr bytes opcode operands comment 0939FD 03 2D 01 98 SUBSP.W $0198 093A01 40 PUSH.6 $00 093A02 94 21 WRITE.B $21 093A04 40 PUSH.6 $00 093A05 36 10 1E _2362 $001E ; A0 = $004000; (A0) = A6 + $0 093A08 C0 29 9B READ.B $299B 093A0B 38 00 40 BLS.B $0040 ; => $093A4E 093A0E 84 1E READ.B $1E 093A10 E0 47 75 READ.B $4775 093A13 18 34 BRZ $034 ; => $093A49 093A15 84 1E READ.B $1E 093A17 E0 40 09 READ.B $4009 093A1A 94 1F WRITE.B $1F 093A1C 40 PUSH.6 $00 093A1D 36 10 20 _2362 $0020 ; A0 = $004000; (A0) = A6 + $0 093A20 42 PUSH.6 $02 093A21 38 00 19 BLS.B $0019 ; => $093A3D 093A24 84 21 READ.B $21 093A26 43 PUSH.6 $03 093A27 29 MUL.L 093A28 84 20 READ.B $20 093A2A 27 ADD.L 093A2B 84 1F READ.B $1F 093A2D 43 PUSH.6 $03 093A2E 29 MUL.L 093A2F 84 20 READ.B $20 093A31 27 ADD.L 093A32 E3 28 1F READ.F $281F 093A35 FB 01 07 WRITE.F $0107 093A38 37 10 20 00 1D _23d2 $0020, $001D 093A3D 84 21 READ.B $21 093A3F 84 1E READ.B $1E 093A41 B4 19 WRITE.B $19 093A43 84 21 READ.B $21 093A45 41 PUSH.6 $01 093A46 27 ADD.L 093A47 94 21 WRITE.B $21 093A49 37 10 1E 00 46 _23d2 $001E, $0046 093A4E 84 21 READ.B $21 093A50 43 PUSH.6 $03 093A51 29 MUL.L 093A52 40 PUSH.6 $00 093A53 27 ADD.L 093A54 83 4F READ.F $4F 093A56 83 C7 READ.F $C7 093A58 23 DIV.F 093A59 FB 01 07 WRITE.F $0107 093A5C 84 21 READ.B $21 093A5E 43 PUSH.6 $03 093A5F 29 MUL.L 093A60 41 PUSH.6 $01 093A61 27 ADD.L 093A62 83 57 READ.F $57 093A64 83 C7 READ.F $C7 093A66 23 DIV.F 093A67 FB 01 07 WRITE.F $0107 093A6A 84 21 READ.B $21 093A6C 43 PUSH.6 $03 093A6D 29 MUL.L 093A6E 42 PUSH.6 $02 093A6F 27 ADD.L 093A70 83 5F READ.F $5F 093A72 83 C7 READ.F $C7 093A74 23 DIV.F 093A75 FB 01 07 WRITE.F $0107 093A78 84 21 READ.B $21 093A7A 30 01 2D BSR.68K $012D ; => $093950 093A7D 0A 01 4F 00 48 ?_$0A $014F, $0048 093A82 30 02 C1 BSR.68K $02C1 ; => $0937C4 => $0977DE 093A85 0E 01 97 00 48 ?_$0E $0197, $0048 093A8A 40 PUSH.6 $00 093A8B 43 PUSH.6 $03 093A8C 29 MUL.L 093A8D 40 PUSH.6 $00 093A8E 27 ADD.L 093A8F EB 01 97 READ.F $0197 093A92 41 PUSH.6 $01 093A93 43 PUSH.6 $03 093A94 29 MUL.L 093A95 41 PUSH.6 $01 093A96 27 ADD.L 093A97 EB 01 97 READ.F $0197 093A9A 20 ADD.F 093A9B 42 PUSH.6 $02 093A9C 43 PUSH.6 $03 093A9D 29 MUL.L 093A9E 42 PUSH.6 $02 093A9F 27 ADD.L 093AA0 EB 01 97 READ.F $0197 093AA3 20 ADD.F 093AA4 30 02 F5 BSR.68K $02F5 ; => $0937B2 => $002682 (NATIVE) 093AA7 97 0B WRITE.F $0B 093AA9 03 2E 01 98 ADDSP.W $0198 093AAD 34 RETURN ; ---------------- End Function $0939F6 ---------------- ; ---------------- Begin 2144 Function $093AAE ---------------- ; A0 = $00400C; (A0) = SP + $3 ; called from $093B12:$093B90 ; addr bytes opcode operands comment 093AB5 31 02 SUBSP.B $02 093AB7 40 PUSH.6 $00 093AB8 36 30 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 093ABB 41 PUSH.6 $01 093ABC 38 00 50 BLS.B $0050 ; => $093B0F 093ABF 40 PUSH.6 $00 093AC0 36 30 05 _2362 $0005 ; A0 = $004000; (A0) = A6 + $0 093AC3 41 PUSH.6 $01 093AC4 38 00 43 BLS.B $0043 ; => $093B0A 093AC7 8C 04 READ.B $04 093AC9 42 PUSH.6 $02 093ACA 29 MUL.L 093ACB 8C 05 READ.B $05 093ACD 27 ADD.L 093ACE 3E PUSH.W $0000 093ACF BB BF WRITE.F $BF 093AD1 40 PUSH.6 $00 093AD2 36 10 20 _2362 $0020 ; A0 = $004000; (A0) = A6 + $0 093AD5 8E 03 READ.L $03 093AD7 38 00 2B BLS.B $002B ; => $093B05 093ADA 8C 04 READ.B $04 093ADC 42 PUSH.6 $02 093ADD 29 MUL.L 093ADE 8C 05 READ.B $05 093AE0 27 ADD.L 093AE1 8C 04 READ.B $04 093AE3 42 PUSH.6 $02 093AE4 29 MUL.L 093AE5 8C 05 READ.B $05 093AE7 27 ADD.L 093AE8 AB BF READ.F $BF 093AEA 84 20 READ.B $20 093AEC 42 PUSH.6 $02 093AED 29 MUL.L 093AEE 8C 04 READ.B $04 093AF0 27 ADD.L 093AF1 AB 9F READ.F $9F 093AF3 84 20 READ.B $20 093AF5 42 PUSH.6 $02 093AF6 29 MUL.L 093AF7 8C 05 READ.B $05 093AF9 27 ADD.L 093AFA AB 9F READ.F $9F 093AFC 22 MUL.F 093AFD 20 ADD.F 093AFE BB BF WRITE.F $BF 093B00 37 10 20 00 30 _23d2 $0020, $0030 093B05 37 30 05 00 47 _23d2 $0005, $0047 093B0A 37 30 04 00 54 _23d2 $0004, $0054 093B0F 32 06 ADDSP.B $06 093B11 34 RETURN ; ---------------- End Function $093AAE ---------------- ; ---------------- Begin 2144 Function $093B12 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $093C22:$093C38 ; addr bytes opcode operands comment 093B19 31 E0 SUBSP.B $E0 093B1B 40 PUSH.6 $00 093B1C 94 21 WRITE.B $21 093B1E 40 PUSH.6 $00 093B1F 36 10 1E _2362 $001E ; A0 = $004000; (A0) = A6 + $0 093B22 C0 29 9B READ.B $299B 093B25 38 00 64 BLS.B $0064 ; => $093B8C 093B28 84 1E READ.B $1E 093B2A E0 47 75 READ.B $4775 093B2D 18 58 BRZ $058 ; => $093B87 093B2F 84 1E READ.B $1E 093B31 E0 40 09 READ.B $4009 093B34 94 1F WRITE.B $1F 093B36 84 21 READ.B $21 093B38 42 PUSH.6 $02 093B39 29 MUL.L 093B3A 40 PUSH.6 $00 093B3B 27 ADD.L 093B3C 84 1F READ.B $1F 093B3E 43 PUSH.6 $03 093B3F 29 MUL.L 093B40 40 PUSH.6 $00 093B41 27 ADD.L 093B42 E3 28 1F READ.F $281F 093B45 83 8F READ.F $8F 093B47 22 MUL.F 093B48 83 9F READ.F $9F 093B4A 22 MUL.F 093B4B 84 1F READ.B $1F 093B4D 43 PUSH.6 $03 093B4E 29 MUL.L 093B4F 41 PUSH.6 $01 093B50 27 ADD.L 093B51 E3 28 1F READ.F $281F 093B54 83 8F READ.F $8F 093B56 22 MUL.F 093B57 83 97 READ.F $97 093B59 22 MUL.F 093B5A 20 ADD.F 093B5B 84 1F READ.B $1F 093B5D 43 PUSH.6 $03 093B5E 29 MUL.L 093B5F 42 PUSH.6 $02 093B60 27 ADD.L 093B61 E3 28 1F READ.F $281F 093B64 83 87 READ.F $87 093B66 22 MUL.F 093B67 20 ADD.F 093B68 BB 9F WRITE.F $9F 093B6A 84 21 READ.B $21 093B6C 42 PUSH.6 $02 093B6D 29 MUL.L 093B6E 41 PUSH.6 $01 093B6F 27 ADD.L 093B70 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 093B79 BB 9F WRITE.F $9F 093B7B 84 21 READ.B $21 093B7D 84 1E READ.B $1E 093B7F B4 19 WRITE.B $19 093B81 84 21 READ.B $21 093B83 41 PUSH.6 $01 093B84 27 ADD.L 093B85 94 21 WRITE.B $21 093B87 37 10 1E 00 6A _23d2 $001E, $006A 093B8C 84 21 READ.B $21 093B8E 41 PUSH.6 $01 093B8F 28 SUB.L 093B90 30 00 E5 BSR.68K $00E5 ; => $093AAE 093B93 0A 00 BF 00 20 ?_$0A $00BF, $0020 093B98 30 03 E3 BSR.68K $03E3 ; => $0937B8 => $0977AA 093B9B 0E 00 DF 00 20 ?_$0E $00DF, $0020 093BA0 40 PUSH.6 $00 093BA1 42 PUSH.6 $02 093BA2 29 MUL.L 093BA3 40 PUSH.6 $00 093BA4 27 ADD.L 093BA5 AB DF READ.F $DF 093BA7 30 03 F8 BSR.68K $03F8 ; => $0937B2 => $002682 (NATIVE) 093BAA 97 0B WRITE.F $0B 093BAC 32 E0 ADDSP.B $E0 093BAE 34 RETURN ; ---------------- End Function $093B12 ---------------- ; ---------------- Begin 2164 Function $093BB0 ---------------- ; P0 = $0000; P1 = $0004; P2 = $02 ; A0 = $004008; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $093C22:$093C2D ; addr bytes opcode operands comment 093BB9 31 02 SUBSP.B $02 093BBB C0 47 75 READ.B $4775 093BBE 41 PUSH.6 $01 093BBF 2C AND.L 093BC0 98 04 WRITE.B $04 093BC2 41 PUSH.6 $01 093BC3 36 10 1E _2362 $001E ; A0 = $004000; (A0) = A6 + $0 093BC6 C0 29 9B READ.B $299B 093BC9 38 00 42 BLS.B $0042 ; => $093C0E 093BCC 84 1E READ.B $1E 093BCE E0 47 75 READ.B $4775 093BD1 18 36 BRZ $036 ; => $093C09 093BD3 40 PUSH.6 $00 093BD4 98 05 WRITE.B $05 093BD6 84 1E READ.B $1E 093BD8 41 PUSH.6 $01 093BD9 28 SUB.L 093BDA 36 10 20 _2362 $0020 ; A0 = $004000; (A0) = A6 + $0 093BDD 40 PUSH.6 $00 093BDE 3A 00 1D BGT.B $001D ; => $093BFE 093BE1 84 20 READ.B $20 093BE3 E0 47 75 READ.B $4775 093BE6 18 11 BRZ $011 ; => $093BF9 093BE8 84 20 READ.B $20 093BEA E0 40 09 READ.B $4009 093BED 84 1E READ.B $1E 093BEF E0 40 09 READ.B $4009 093BF2 2A EQ.L 093BF3 18 04 BRZ $004 ; => $093BF9 093BF5 04 FF PUSH.10 $0FF 093BF7 98 05 WRITE.B $05 093BF9 39 10 20 00 21 _23fc $1020, $0021 093BFE 88 05 READ.B $05 093C00 2E NOT.L 093C01 18 06 BRZ $006 ; => $093C09 093C03 88 04 READ.B $04 093C05 41 PUSH.6 $01 093C06 27 ADD.L 093C07 98 04 WRITE.B $04 093C09 37 10 1E 00 48 _23d2 $001E, $0048 093C0E 88 04 READ.B $04 093C10 86 03 READ.L $03 093C12 41 PUSH.6 $01 093C13 2A EQ.L 093C14 18 03 BRZ $003 ; => $093C19 093C16 42 PUSH.6 $02 093C17 10 02 BR $002 ; => $093C1B 093C19 86 03 READ.L $03 093C1B 03 27 LTE.L 093C1D 9A 03 WRITE.L $03 093C1F 32 02 ADDSP.B $02 093C21 34 RETURN ; ---------------- End Function $093BB0 ---------------- ; ---------------- Begin 2144 Function $093C22 ---------------- ; A0 = $004004; (A0) = SP + $1D ; called from $0991F6:$09943F ; called from $0991F6:$099524 ; called from $0A0EB6:$0A0F47 ; addr bytes opcode operands comment 093C29 03 2D 02 84 SUBSP.W $0284 093C2D 30 00 80 BSR.68K $0080 ; => $093BB0 093C30 18 3E BRZ $03E ; => $093C70 093C32 86 03 READ.L $03 093C34 35 SWITCH 093C35 10 06 01 CASE $01 ; SWITCH $093C34 093C38 30 01 29 BSR.68K $0129 ; => $093B12 093C3B 10 12 BR $012 ; => $093C4F 093C3D 10 06 02 CASE $02 ; SWITCH $093C34 093C40 30 02 4D BSR.68K $024D ; => $0939F6 093C43 10 0A BR $00A ; => $093C4F 093C45 20 07 03 04 CASE $03, $04 ; SWITCH $093C34 093C49 30 03 D6 BSR.68K $03D6 ; => $093876 093C4C 10 01 BR $001 ; => $093C4F 093C4E 00 DEFAULT ; SWITCH $093C34 093C4F C0 67 EC READ.B $67EC 093C52 87 0B READ.F $0B 093C54 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 093C5D 03 21 LT.F 093C5F 2C AND.L 093C60 C0 56 6E READ.B $566E 093C63 C0 56 C6 READ.B $56C6 093C66 2C AND.L 093C67 2E NOT.L 093C68 2C AND.L 093C69 18 03 BRZ $003 ; => $093C6E 093C6B 3E PUSH.W $0000 093C6C 97 0B WRITE.F $0B 093C6E 10 0B BR $00B ; => $093C7B 093C70 3B 40 8F 3F 33 33 33 33 33 PUSH.F $408F3F3333333333 ; float = 999.900000 093C79 97 0B WRITE.F $0B 093C7B 03 2E 02 84 ADDSP.W $0284 093C7F 33 _2300 093C80 33 _2300 093C81 32 04 ADDSP.B $04 093C83 34 RETURN ; ---------------- End Function $093C22 ---------------- ; ---------------- Begin 2144 Function $093CC0 ---------------- ; A0 = $004004; (A0) = SP + $17 ; called from $09DD4E:$09DEF0 ; called from $0ADA06:$0ADA79 ; called from $0ADA80:$0ADA90 ; called from $0ADB48:$0ADBB2 ; called from $0ADBF4:$0ADCB0 ; called from $0ADDF6:$0ADF32 ; called from $0ADDF6:$0ADF60 ; called from $0AF0C0:$0AF215 ; addr bytes opcode operands comment 093CC7 31 3C SUBSP.B $3C 093CC9 C0 51 00 READ.B $5100 093CCC C0 51 00 READ.B $5100 093CCF E0 4C B3 READ.B $4CB3 093CD2 F0 4C BD WRITE.B $4CBD 093CD5 56 PUSH.6 $16 093CD6 41 PUSH.6 $01 093CD7 30 00 50 BSR.68K $0050 ; => $093C8A => $094D6E 093CDA C0 51 41 READ.B $5141 093CDD 49 PUSH.6 $09 093CDE 03 25 LT.L 093CE0 1F F3 BRZ $-0D ; => $093CD5 093CE2 C0 51 00 READ.B $5100 093CE5 C0 51 41 READ.B $5141 093CE8 F0 4C B3 WRITE.B $4CB3 093CEB C0 51 00 READ.B $5100 093CEE C0 29 A0 READ.B $29A0 093CF1 03 25 LT.L 093CF3 C0 35 92 READ.B $3592 093CF6 2C AND.L 093CF7 18 06 BRZ $006 ; => $093CFF 093CF9 87 0B READ.F $0B 093CFB 97 37 WRITE.F $37 093CFD 10 1C BR $01C ; => $093D1B 093CFF 3B 41 A4 00 00 00 00 00 00 PUSH.F $41A4000000000000 ; float = 167772160.000000 093D08 C3 60 9D READ.F $609D 093D0B 23 DIV.F 093D0C 87 0B READ.F $0B 093D0E 3B 41 4D F8 80 00 00 00 00 PUSH.F $414DF88000000000 ; float = 3928320.000000 093D17 21 SUB.F 093D18 22 MUL.F 093D19 97 37 WRITE.F $37 093D1B 87 37 READ.F $37 093D1D 84 48 00 READ.B $48 093D20 84 49 00 READ.B $49 093D23 84 4A 00 READ.B $4A 093D26 30 00 87 BSR.68K $0087 ; => $093CA2 => $0950BE 093D29 87 13 READ.F $13 093D2B 3E PUSH.W $0000 093D2C 26 EQ.F 093D2D 18 0E BRZ $00E ; => $093D3D 093D2F 41 PUSH.6 $01 093D30 94 4B WRITE.B $4B 093D32 41 PUSH.6 $01 093D33 94 4C WRITE.B $4C 093D35 40 PUSH.6 $00 093D36 94 4D WRITE.B $4D 093D38 40 PUSH.6 $00 093D39 94 4E WRITE.B $4E 093D3B 10 8C BR $08C ; => $093DC9 093D3D 87 1F 00 READ.F $1F 093D40 30 00 AD BSR.68K $00AD ; => $093C96 => $09501C 093D43 87 13 READ.F $13 093D45 87 1F READ.F $1F 093D47 21 SUB.F 093D48 97 13 WRITE.F $13 093D4A 87 13 READ.F $13 093D4C 3E PUSH.W $0000 093D4D 03 21 LT.F 093D4F 18 0E BRZ $00E ; => $093D5F 093D51 3B 40 8F F8 00 00 00 00 00 PUSH.F $408FF80000000000 ; float = 1023.000000 093D5A 87 13 READ.F $13 093D5C 20 ADD.F 093D5D 97 13 WRITE.F $13 093D5F 87 13 READ.F $13 093D61 3B 40 1C 00 00 00 00 00 00 PUSH.F $401C000000000000 ; float = 7.000000 093D6A 23 DIV.F 093D6B 44 PUSH.6 $04 093D6C 30 00 EB BSR.68K $00EB ; => $093C84 => $002BAE (NATIVE) 093D6F 97 13 WRITE.F $13 093D71 87 13 READ.F $13 093D73 3B 3F 84 7A E1 47 AE 14 7B PUSH.F $3F847AE147AE147B ; float = 0.010000 093D7C 22 MUL.F 093D7D 03 29 FLOAT2LONG 093D7F 94 4B WRITE.B $4B 093D81 84 4B READ.B $4B 093D83 04 64 PUSH.10 $064 093D85 29 MUL.L 093D86 03 2A LONG2FLOAT 093D88 97 27 WRITE.F $27 093D8A 87 13 READ.F $13 093D8C 87 27 READ.F $27 093D8E 21 SUB.F 093D8F 3B 3F B9 99 99 99 99 99 9A PUSH.F $3FB999999999999A ; float = 0.100000 093D98 22 MUL.F 093D99 03 29 FLOAT2LONG 093D9B 94 4C WRITE.B $4C 093D9D 3B 40 1C 00 00 00 00 00 00 PUSH.F $401C000000000000 ; float = 7.000000 093DA6 87 27 READ.F $27 093DA8 4A PUSH.6 $0A 093DA9 84 4C READ.B $4C 093DAB 29 MUL.L 093DAC 03 2A LONG2FLOAT 093DAE 20 ADD.F 093DAF 22 MUL.F 093DB0 97 27 WRITE.F $27 093DB2 87 27 READ.F $27 093DB4 84 4D 00 READ.B $4D 093DB7 84 4E 00 READ.B $4E 093DBA 30 01 21 BSR.68K $0121 ; => $093C9C => $095098 093DBD 84 4B READ.B $4B 093DBF 41 PUSH.6 $01 093DC0 27 ADD.L 093DC1 94 4B WRITE.B $4B 093DC3 84 4C READ.B $4C 093DC5 41 PUSH.6 $01 093DC6 27 ADD.L 093DC7 94 4C WRITE.B $4C 093DC9 86 17 READ.L $17 093DCB 44 PUSH.6 $04 093DCC 03 26 GT.L 093DCE 86 17 READ.L $17 093DD0 68 PUSH.6 $28 093DD1 03 25 LT.L 093DD3 2D OR.L 093DD4 18 03 BRZ $003 ; => $093DD9 093DD6 4F PUSH.6 $0F 093DD7 96 17 WRITE.L $17 093DD9 42 PUSH.6 $02 093DDA 86 17 READ.L $17 093DDC 29 MUL.L 093DDD 94 52 WRITE.B $52 093DDF 4A PUSH.6 $0A 093DE0 94 51 WRITE.B $51 093DE2 04 E0 PUSH.10 $0E0 093DE4 94 53 WRITE.B $53 093DE6 86 17 READ.L $17 093DE8 50 PUSH.6 $10 093DE9 03 26 GT.L 093DEB 18 07 BRZ $007 ; => $093DF4 093DED 4C PUSH.6 $0C 093DEE 94 51 WRITE.B $51 093DF0 04 F0 PUSH.10 $0F0 093DF2 94 53 WRITE.B $53 093DF4 86 17 READ.L $17 093DF6 48 PUSH.6 $08 093DF7 03 26 GT.L 093DF9 18 07 BRZ $007 ; => $093E02 093DFB 4E PUSH.6 $0E 093DFC 94 51 WRITE.B $51 093DFE 04 F8 PUSH.10 $0F8 093E00 94 53 WRITE.B $53 093E02 87 0B READ.F $0B 093E04 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 093E0D 21 SUB.F 093E0E 3B 3F 65 4C 98 5F 06 F6 94 PUSH.F $3F654C985F06F694 ; float = 0.002600 093E17 22 MUL.F 093E18 84 52 READ.B $52 093E1A 03 2A LONG2FLOAT 093E1C 22 MUL.F 093E1D 97 2F WRITE.F $2F 093E1F 87 2F READ.F $2F 093E21 3E PUSH.W $0000 093E22 03 21 LT.F 093E24 18 0E BRZ $00E ; => $093E34 093E26 3B 40 F0 00 00 00 00 00 00 PUSH.F $40F0000000000000 ; float = 65536.000000 093E2F 87 2F READ.F $2F 093E31 20 ADD.F 093E32 97 2F WRITE.F $2F 093E34 87 2F READ.F $2F 093E36 84 4F 00 READ.B $4F 093E39 84 50 00 READ.B $50 093E3C 30 01 A3 BSR.68K $01A3 ; => $093C9C => $095098 093E3F C0 4E 12 READ.B $4E12 093E42 18 0A BRZ $00A ; => $093E4E 093E44 C0 51 00 READ.B $5100 093E47 04 FF PUSH.10 $0FF 093E49 F0 4E 11 WRITE.B $4E11 093E4C 10 0D BR $00D ; => $093E5B 093E4E C0 51 00 READ.B $5100 093E51 40 PUSH.6 $00 093E52 F0 4E 11 WRITE.B $4E11 093E55 C0 51 00 READ.B $5100 093E58 30 01 B3 BSR.68K $01B3 ; => $093CA8 => $09CF34 093E5B C0 51 00 READ.B $5100 093E5E 86 03 READ.L $03 093E60 F0 46 5D WRITE.B $465D 093E63 86 03 READ.L $03 093E65 30 01 BA BSR.68K $01BA ; => $093CAE => $0A6A78 093E68 D0 51 41 WRITE.B $5141 093E6B 84 48 READ.B $48 093E6D D0 51 40 WRITE.B $5140 093E70 84 49 READ.B $49 093E72 D0 51 3F WRITE.B $513F 093E75 84 4A READ.B $4A 093E77 D0 51 3E WRITE.B $513E 093E7A 84 4B READ.B $4B 093E7C D0 51 3D WRITE.B $513D 093E7F 84 4C READ.B $4C 093E81 D0 51 3C WRITE.B $513C 093E84 84 4F READ.B $4F 093E86 D0 51 3B WRITE.B $513B 093E89 84 50 READ.B $50 093E8B D0 51 3A WRITE.B $513A 093E8E C0 51 00 READ.B $5100 093E91 C0 29 9B READ.B $299B 093E94 03 25 LT.L 093E96 18 08 BRZ $008 ; => $093EA0 093E98 C0 59 97 READ.B $5997 093E9B D0 51 39 WRITE.B $5139 093E9E 10 04 BR $004 ; => $093EA4 093EA0 44 PUSH.6 $04 093EA1 D0 51 39 WRITE.B $5139 093EA4 84 51 READ.B $51 093EA6 D0 51 38 WRITE.B $5138 093EA9 C0 51 00 READ.B $5100 093EAC C0 29 9B READ.B $299B 093EAF 03 25 LT.L 093EB1 18 08 BRZ $008 ; => $093EBB 093EB3 C0 59 96 READ.B $5996 093EB6 D0 51 37 WRITE.B $5137 093EB9 10 04 BR $004 ; => $093EBF 093EBB 40 PUSH.6 $00 093EBC D0 51 37 WRITE.B $5137 093EBF 84 52 READ.B $52 093EC1 D0 51 36 WRITE.B $5136 093EC4 84 53 READ.B $53 093EC6 D0 51 35 WRITE.B $5135 093EC9 84 4D READ.B $4D 093ECB D0 51 34 WRITE.B $5134 093ECE 84 4E READ.B $4E 093ED0 D0 51 33 WRITE.B $5133 093ED3 40 PUSH.6 $00 093ED4 D0 51 32 WRITE.B $5132 093ED7 54 PUSH.6 $14 093ED8 D0 51 31 WRITE.B $5131 093EDB 40 PUSH.6 $00 093EDC D0 51 30 WRITE.B $5130 093EDF 44 PUSH.6 $04 093EE0 52 PUSH.6 $12 093EE1 30 02 54 BSR.68K $0254 ; => $093C90 => $094D8E 093EE4 C0 35 92 READ.B $3592 093EE7 40 PUSH.6 $00 093EE8 2A EQ.L 093EE9 18 7E BRZ $07E ; => $093F69 093EEB C0 29 92 READ.B $2992 093EEE 2E NOT.L 093EEF C0 54 2C READ.B $542C 093EF2 2D OR.L 093EF3 C0 4E 71 READ.B $4E71 093EF6 2D OR.L 093EF7 18 70 BRZ $070 ; => $093F69 093EF9 87 0B READ.F $0B 093EFB 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 093F04 21 SUB.F 093F05 97 3F WRITE.F $3F 093F07 C0 51 00 READ.B $5100 093F0A 87 3F READ.F $3F 093F0C 3E PUSH.W $0000 093F0D 24 GT.F 093F0E 18 03 BRZ $003 ; => $093F13 093F10 40 PUSH.6 $00 093F11 10 02 BR $002 ; => $093F15 093F13 04 FF PUSH.10 $0FF 093F15 F0 4B 87 WRITE.B $4B87 093F18 C0 51 00 READ.B $5100 093F1B C0 51 00 READ.B $5100 093F1E E0 4B 87 READ.B $4B87 093F21 F0 4B 91 WRITE.B $4B91 093F24 C0 51 00 READ.B $5100 093F27 87 3F READ.F $3F 093F29 30 02 78 BSR.68K $0278 ; => $093CB4 => $002B7E (NATIVE) 093F2C 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 093F35 22 MUL.F 093F36 30 02 7F BSR.68K $027F ; => $093CBA => $002C08 (NATIVE) 093F39 3B 40 23 33 33 33 33 33 33 PUSH.F $4023333333333333 ; float = 9.600000 093F42 22 MUL.F 093F43 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 093F4C 20 ADD.F 093F4D 03 29 FLOAT2LONG 093F4F F0 4B 9B WRITE.B $4B9B 093F52 C0 51 00 READ.B $5100 093F55 E0 4B 87 READ.B $4B87 093F58 D0 51 41 WRITE.B $5141 093F5B C0 51 00 READ.B $5100 093F5E E0 4B 9B READ.B $4B9B 093F61 D0 51 40 WRITE.B $5140 093F64 59 PUSH.6 $19 093F65 42 PUSH.6 $02 093F66 30 02 D9 BSR.68K $02D9 ; => $093C90 => $094D8E 093F69 32 54 ADDSP.B $54 093F6B 34 RETURN ; ---------------- End Function $093CC0 ---------------- ; ---------------- Begin 2144 Function $0941F4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7EB ; addr bytes opcode operands comment 0941FB 31 02 SUBSP.B $02 0941FD C2 56 2D READ.L $562D 094200 18 34 BRZ $034 ; => $094236 094202 C0 35 92 READ.B $3592 094205 18 07 BRZ $007 ; => $09420E 094207 C0 35 92 READ.B $3592 09420A 41 PUSH.6 $01 09420B 28 SUB.L 09420C 10 03 BR $003 ; => $094211 09420E C0 29 9A READ.B $299A 094211 94 01 WRITE.B $01 094213 40 PUSH.6 $00 094214 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 094217 84 01 READ.B $01 094219 38 00 1A BLS.B $001A ; => $094236 09421C 84 00 READ.B $00 09421E E0 60 29 READ.B $6029 094221 18 0E BRZ $00E ; => $094231 094223 84 00 READ.B $00 094225 D0 51 00 WRITE.B $5100 094228 C2 56 2D READ.L $562D 09422B 30 00 40 BSR.68K $0040 ; => $0941EE => $09515C 09422E 30 00 55 BSR.68K $0055 ; => $0941DC => $095216 094231 37 10 00 00 1F _23d2 $0000, $001F 094236 32 02 ADDSP.B $02 094238 34 RETURN ; ---------------- End Function $0941F4 ---------------- ; ---------------- Begin 2144 Function $09423A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A0EB6:$0A0FF0 ; called from $0A0EB6:$0A109D ; addr bytes opcode operands comment 094241 31 10 SUBSP.B $10 094243 C0 67 EC READ.B $67EC 094246 18 D6 BRZ $0D6 ; => $09431E 094248 C3 55 19 READ.F $5519 09424B 3B 3E CB FB 3C 01 A3 07 FA PUSH.F $3ECBFB3C01A307FA ; float = 0.000003 094254 22 MUL.F 094255 97 07 WRITE.F $07 094257 87 07 READ.F $07 094259 30 00 98 BSR.68K $0098 ; => $0941C4 => $002C08 (NATIVE) 09425C D3 56 5D WRITE.F $565D 09425F C3 56 5D READ.F $565D 094262 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 09426B 22 MUL.F 09426C D3 55 19 WRITE.F $5519 09426F 87 07 READ.F $07 094271 30 00 AA BSR.68K $00AA ; => $0941CA => $002CA6 (NATIVE) 094274 03 20 NEG.W 094276 97 0F WRITE.F $0F 094278 C0 6B CE READ.B $6BCE 09427B 18 27 BRZ $027 ; => $0942A4 09427D 87 0F READ.F $0F 09427F 3E PUSH.W $0000 094280 25 GTE.F 094281 18 06 BRZ $006 ; => $094289 094283 87 0F READ.F $0F 094285 03 29 FLOAT2LONG 094287 10 08 BR $008 ; => $094291 094289 40 PUSH.6 $00 09428A 87 0F READ.F $0F 09428C 03 20 NEG.W 09428E 03 29 FLOAT2LONG 094290 28 SUB.L 094291 D2 6B CD WRITE.L $6BCD 094294 C2 6B CD READ.L $6BCD 094297 C2 56 2D READ.L $562D 09429A 28 SUB.L 09429B D2 56 2D WRITE.L $562D 09429E 40 PUSH.6 $00 09429F D0 6B CE WRITE.B $6BCE 0942A2 10 78 BR $078 ; => $09431C 0942A4 87 0F READ.F $0F 0942A6 3E PUSH.W $0000 0942A7 24 GT.F 0942A8 18 2F BRZ $02F ; => $0942D9 0942AA C2 6B CD READ.L $6BCD 0942AD 40 PUSH.6 $00 0942AE 2A EQ.L 0942AF 18 0F BRZ $00F ; => $0942C0 0942B1 87 0F READ.F $0F 0942B3 03 29 FLOAT2LONG 0942B5 D2 6B CD WRITE.L $6BCD 0942B8 C2 6B CD READ.L $6BCD 0942BB D2 56 2D WRITE.L $562D 0942BE 10 17 BR $017 ; => $0942D7 0942C0 C2 6B CD READ.L $6BCD 0942C3 3D 7F FF FF FF PUSH.L $7FFFFFFF 0942C8 03 25 LT.L 0942CA 18 0B BRZ $00B ; => $0942D7 0942CC 40 PUSH.6 $00 0942CD D2 6B CD WRITE.L $6BCD 0942D0 87 0F READ.F $0F 0942D2 03 29 FLOAT2LONG 0942D4 D2 56 2D WRITE.L $562D 0942D7 10 43 BR $043 ; => $09431C 0942D9 87 0F READ.F $0F 0942DB 3E PUSH.W $0000 0942DC 03 21 LT.F 0942DE 18 3C BRZ $03C ; => $09431C 0942E0 C2 6B CD READ.L $6BCD 0942E3 40 PUSH.6 $00 0942E4 2A EQ.L 0942E5 18 13 BRZ $013 ; => $0942FA 0942E7 40 PUSH.6 $00 0942E8 87 0F READ.F $0F 0942EA 03 20 NEG.W 0942EC 03 29 FLOAT2LONG 0942EE 28 SUB.L 0942EF D2 6B CD WRITE.L $6BCD 0942F2 C2 6B CD READ.L $6BCD 0942F5 D2 56 2D WRITE.L $562D 0942F8 10 22 BR $022 ; => $09431C 0942FA C2 6B CD READ.L $6BCD 0942FD 40 PUSH.6 $00 0942FE 03 25 LT.L 094300 C2 6B CD READ.L $6BCD 094303 3D 80 00 00 00 PUSH.L $80000000 094308 03 26 GT.L 09430A 2C AND.L 09430B 18 0F BRZ $00F ; => $09431C 09430D 40 PUSH.6 $00 09430E D2 6B CD WRITE.L $6BCD 094311 40 PUSH.6 $00 094312 87 0F READ.F $0F 094314 03 20 NEG.W 094316 03 29 FLOAT2LONG 094318 28 SUB.L 094319 D2 56 2D WRITE.L $562D 09431C 10 80 BR $080 ; => $09439E 09431E C3 55 19 READ.F $5519 094321 3B 3E CB FB 3C 01 A3 07 FA PUSH.F $3ECBFB3C01A307FA ; float = 0.000003 09432A 22 MUL.F 09432B 30 01 6A BSR.68K $016A ; => $0941C4 => $002C08 (NATIVE) 09432E 97 07 WRITE.F $07 094330 C3 56 5D READ.F $565D 094333 87 07 READ.F $07 094335 21 SUB.F 094336 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09433F 24 GT.F 094340 18 2B BRZ $02B ; => $09436D 094342 3D FF FF FF FF PUSH.L $FFFFFFFF 094347 D2 56 2D WRITE.L $562D 09434A C2 6B CD READ.L $6BCD 09434D 40 PUSH.6 $00 09434E 03 25 LT.L 094350 C2 6B CD READ.L $6BCD 094353 3D 80 00 00 00 PUSH.L $80000000 094358 03 26 GT.L 09435A 2C AND.L 09435B 18 06 BRZ $006 ; => $094363 09435D 40 PUSH.6 $00 09435E D2 6B CD WRITE.L $6BCD 094361 10 08 BR $008 ; => $09436B 094363 3D FF FF FF FF PUSH.L $FFFFFFFF 094368 D2 6B CD WRITE.L $6BCD 09436B 10 2C BR $02C ; => $094399 09436D 87 07 READ.F $07 09436F C3 56 5D READ.F $565D 094372 21 SUB.F 094373 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09437C 24 GT.F 09437D 18 1A BRZ $01A ; => $094399 09437F 41 PUSH.6 $01 094380 D2 56 2D WRITE.L $562D 094383 C2 6B CD READ.L $6BCD 094386 3D 7F FF FF FF PUSH.L $7FFFFFFF 09438B 03 25 LT.L 09438D 18 06 BRZ $006 ; => $094395 09438F 40 PUSH.6 $00 094390 D2 6B CD WRITE.L $6BCD 094393 10 04 BR $004 ; => $094399 094395 41 PUSH.6 $01 094396 D2 6B CD WRITE.L $6BCD 094399 87 07 READ.F $07 09439B D3 56 5D WRITE.F $565D 09439E 32 10 ADDSP.B $10 0943A0 34 RETURN ; ---------------- End Function $09423A ---------------- ; ---------------- Begin 2144 Function $0943A2 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $0943FA:$094464 ; called from $0943FA:$0944B2 ; called from $0943FA:$0944B7 ; addr bytes opcode operands comment 0943A9 87 07 READ.F $07 0943AB 3B 40 BF F0 00 00 00 00 00 PUSH.F $40BFF00000000000 ; float = 8176.000000 0943B4 24 GT.F 0943B5 18 10 BRZ $010 ; => $0943C7 0943B7 87 07 READ.F $07 0943B9 3B 40 C0 07 00 00 00 00 00 PUSH.F $40C0070000000000 ; float = 8206.000000 0943C2 20 ADD.F 0943C3 97 07 WRITE.F $07 0943C5 10 0E BR $00E ; => $0943D5 0943C7 87 07 READ.F $07 0943C9 3B 40 D7 FF 80 00 00 00 00 PUSH.F $40D7FF8000000000 ; float = 24574.000000 0943D2 20 ADD.F 0943D3 97 07 WRITE.F $07 0943D5 87 07 READ.F $07 0943D7 C0 4E 4B 00 READ.B $4E4B 0943DB C0 4E 4A 00 READ.B $4E4A 0943DF 30 02 12 BSR.68K $0212 ; => $0941D0 => $095098 0943E2 C0 4E 4B READ.B $4E4B 0943E5 04 80 PUSH.10 $080 0943E7 27 ADD.L 0943E8 D0 4E 4B WRITE.B $4E4B 0943EB 41 PUSH.6 $01 0943EC D0 4E 47 WRITE.B $4E47 0943EF C0 4E 47 READ.B $4E47 0943F2 18 02 BRZ $002 ; => $0943F6 0943F4 17 F9 BR $-07 ; => $0943EF 0943F6 32 08 ADDSP.B $08 0943F8 34 RETURN ; ---------------- End Function $0943A2 ---------------- ; ---------------- Begin 2144 Function $0943FA ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $094646:$09471C ; addr bytes opcode operands comment 094401 31 0A SUBSP.B $0A 094403 87 07 READ.F $07 094405 3B 40 CF F8 00 00 00 00 00 PUSH.F $40CFF80000000000 ; float = 16368.000000 09440E 22 MUL.F 09440F 97 11 WRITE.F $11 094411 87 11 READ.F $11 094413 30 02 52 BSR.68K $0252 ; => $0941C4 => $002C08 (NATIVE) 094416 3B 40 2E 8C 23 08 C1 E6 2C PUSH.F $402E8C2308C1E62C ; float = 15.273705 09441F 22 MUL.F 094420 03 29 FLOAT2LONG 094422 D0 4E 49 WRITE.B $4E49 094425 87 11 READ.F $11 094427 30 02 60 BSR.68K $0260 ; => $0941CA => $002CA6 (NATIVE) 09442A 97 11 WRITE.F $11 09442C C3 56 35 READ.F $5635 09442F 3B 40 BF F1 00 00 00 00 00 PUSH.F $40BFF10000000000 ; float = 8177.000000 094438 03 21 LT.F 09443A 87 11 READ.F $11 09443C 3B 40 BF F1 00 00 00 00 00 PUSH.F $40BFF10000000000 ; float = 8177.000000 094445 24 GT.F 094446 2C AND.L 094447 87 11 READ.F $11 094449 C3 56 35 READ.F $5635 09444C 21 SUB.F 09444D 3B 40 BF FC 00 00 00 00 00 PUSH.F $40BFFC0000000000 ; float = 8188.000000 094456 03 21 LT.F 094458 2C AND.L 094459 18 0E BRZ $00E ; => $094469 09445B 3B 40 BF F1 00 00 00 00 00 PUSH.F $40BFF10000000000 ; float = 8177.000000 094464 30 00 C5 BSR.68K $00C5 ; => $0943A2 094467 10 4C BR $04C ; => $0944B5 094469 87 11 READ.F $11 09446B 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 094474 24 GT.F 094475 C3 56 35 READ.F $5635 094478 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 094481 03 21 LT.F 094483 87 11 READ.F $11 094485 C3 56 35 READ.F $5635 094488 21 SUB.F 094489 3B 40 BF FC 00 00 00 00 00 PUSH.F $40BFFC0000000000 ; float = 8188.000000 094492 03 21 LT.F 094494 2C AND.L 094495 C3 56 35 READ.F $5635 094498 87 11 READ.F $11 09449A 21 SUB.F 09449B 3B 40 BF FC 00 00 00 00 00 PUSH.F $40BFFC0000000000 ; float = 8188.000000 0944A4 24 GT.F 0944A5 2D OR.L 0944A6 2C AND.L 0944A7 18 0C BRZ $00C ; => $0944B5 0944A9 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0944B2 30 01 13 BSR.68K $0113 ; => $0943A2 0944B5 87 11 READ.F $11 0944B7 30 01 18 BSR.68K $0118 ; => $0943A2 0944BA 87 11 READ.F $11 0944BC D3 56 35 WRITE.F $5635 0944BF 32 12 ADDSP.B $12 0944C1 34 RETURN ; ---------------- End Function $0943FA ---------------- ; ---------------- Begin 2144 Function $0944C2 ---------------- ; A0 = $004004; (A0) = SP + $17 ; called from $094646:$094725 ; addr bytes opcode operands comment 0944C9 31 1E SUBSP.B $1E 0944CB 30 02 E6 BSR.68K $02E6 ; => $0941E8 => $094E42 0944CE C0 35 4C READ.B $354C 0944D1 E3 47 C7 READ.F $47C7 0944D4 97 2F WRITE.F $2F 0944D6 C0 35 4C READ.B $354C 0944D9 41 PUSH.6 $01 0944DA 27 ADD.L 0944DB 36 10 34 _2362 $0034 ; A0 = $004000; (A0) = A6 + $0 0944DE C0 29 9A READ.B $299A 0944E1 38 00 1C BLS.B $001C ; => $094500 0944E4 84 34 READ.B $34 0944E6 E0 60 29 READ.B $6029 0944E9 18 10 BRZ $010 ; => $0944FB 0944EB 87 2F READ.F $2F 0944ED 84 34 READ.B $34 0944EF E3 47 C7 READ.F $47C7 0944F2 26 EQ.F 0944F3 18 04 BRZ $004 ; => $0944F9 0944F5 10 09 BR $009 ; => $094500 0944F7 10 02 BR $002 ; => $0944FB 0944F9 11 47 BR $147 ; => $094642 0944FB 37 10 34 00 22 _23d2 $0034, $0022 094500 87 2F READ.F $2F 094502 C2 56 2D READ.L $562D 094505 30 03 1A BSR.68K $031A ; => $0941EE => $09515C 094508 20 ADD.F 094509 97 2F WRITE.F $2F 09450B 87 2F READ.F $2F 09450D 3B 40 69 00 00 00 05 5E 64 PUSH.F $4069000000055E64 ; float = 200.000000 094516 20 ADD.F 094517 87 0F READ.F $0F 094519 21 SUB.F 09451A 3B 3F 3A 36 E2 EB 1C 43 2D PUSH.F $3F3A36E2EB1C432D ; float = 0.000400 094523 20 ADD.F 094524 3B 3E B0 C6 F7 A0 B5 ED 8D PUSH.F $3EB0C6F7A0B5ED8D ; float = 0.000001 09452D C3 29 57 READ.F $2957 094530 22 MUL.F 094531 20 ADD.F 094532 C3 59 91 READ.F $5991 094535 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 09453E 22 MUL.F 09453F 20 ADD.F 094540 97 1F WRITE.F $1F 094542 87 1F READ.F $1F 094544 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 09454D C3 28 77 READ.F $2877 094550 22 MUL.F 094551 21 SUB.F 094552 87 17 READ.F $17 094554 21 SUB.F 094555 97 1F WRITE.F $1F 094557 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 094560 87 1F READ.F $1F 094562 30 03 A1 BSR.68K $03A1 ; => $0941C4 => $002C08 (NATIVE) 094565 21 SUB.F 094566 97 27 WRITE.F $27 094568 87 27 READ.F $27 09456A 87 07 READ.F $07 09456C 21 SUB.F 09456D 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 094576 24 GT.F 094577 18 0E BRZ $00E ; => $094587 094579 87 1F READ.F $1F 09457B 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 094584 21 SUB.F 094585 97 1F WRITE.F $1F 094587 87 07 READ.F $07 094589 87 27 READ.F $27 09458B 21 SUB.F 09458C 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 094595 24 GT.F 094596 18 0E BRZ $00E ; => $0945A6 094598 87 1F READ.F $1F 09459A 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0945A3 20 ADD.F 0945A4 97 1F WRITE.F $1F 0945A6 3B 40 18 00 00 00 00 00 00 PUSH.F $4018000000000000 ; float = 6.000000 0945AF 87 1F READ.F $1F 0945B1 3B 40 ED 4C 00 00 00 00 00 PUSH.F $40ED4C0000000000 ; float = 60000.000000 0945BA 23 DIV.F 0945BB 30 03 FA BSR.68K $03FA ; => $0941C4 => $002C08 (NATIVE) 0945BE 22 MUL.F 0945BF 97 1F WRITE.F $1F 0945C1 04 FF PUSH.10 $0FF 0945C3 87 1F READ.F $1F 0945C5 03 29 FLOAT2LONG 0945C7 28 SUB.L 0945C8 D0 4E 4C WRITE.B $4E4C 0945CB 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0945D4 87 1F READ.F $1F 0945D6 30 04 15 BSR.68K $0415 ; => $0941C4 => $002C08 (NATIVE) 0945D9 22 MUL.F 0945DA 97 1F WRITE.F $1F 0945DC 87 1F READ.F $1F 0945DE 03 29 FLOAT2LONG 0945E0 94 30 WRITE.B $30 0945E2 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0945EB 87 1F READ.F $1F 0945ED 30 04 2C BSR.68K $042C ; => $0941C4 => $002C08 (NATIVE) 0945F0 22 MUL.F 0945F1 97 1F WRITE.F $1F 0945F3 87 1F READ.F $1F 0945F5 03 29 FLOAT2LONG 0945F7 94 31 WRITE.B $31 0945F9 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 094602 87 1F READ.F $1F 094604 30 04 43 BSR.68K $0443 ; => $0941C4 => $002C08 (NATIVE) 094607 22 MUL.F 094608 97 1F WRITE.F $1F 09460A 87 1F READ.F $1F 09460C 03 29 FLOAT2LONG 09460E 94 32 WRITE.B $32 094610 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 094619 87 1F READ.F $1F 09461B 30 04 5A BSR.68K $045A ; => $0941C4 => $002C08 (NATIVE) 09461E 22 MUL.F 09461F 03 29 FLOAT2LONG 094621 94 33 WRITE.B $33 094623 50 PUSH.6 $10 094624 84 32 READ.B $32 094626 29 MUL.L 094627 84 33 READ.B $33 094629 27 ADD.L 09462A D0 4E 4E WRITE.B $4E4E 09462D 50 PUSH.6 $10 09462E 84 30 READ.B $30 094630 29 MUL.L 094631 84 31 READ.B $31 094633 27 ADD.L 094634 D0 4E 4D WRITE.B $4E4D 094637 41 PUSH.6 $01 094638 D0 4E 48 WRITE.B $4E48 09463B C0 4E 48 READ.B $4E48 09463E 18 02 BRZ $002 ; => $094642 094640 17 F9 BR $-07 ; => $09463B 094642 32 36 ADDSP.B $36 094644 34 RETURN ; ---------------- End Function $0944C2 ---------------- ; ---------------- Begin 2144 Function $094646 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A0EB6:$0A100A ; called from $0A0EB6:$0A10A5 ; addr bytes opcode operands comment 09464D 31 2A SUBSP.B $2A 09464F C3 55 19 READ.F $5519 094652 3B 3E CB FB 3C 01 A3 07 FA PUSH.F $3ECBFB3C01A307FA ; float = 0.000003 09465B 22 MUL.F 09465C 97 17 WRITE.F $17 09465E 87 17 READ.F $17 094660 3B 3F 3A 36 E2 EB 1C 43 2D PUSH.F $3F3A36E2EB1C432D ; float = 0.000400 094669 21 SUB.F 09466A 30 04 A9 BSR.68K $04A9 ; => $0941C4 => $002C08 (NATIVE) 09466D 97 0F WRITE.F $0F 09466F C0 35 4C READ.B $354C 094672 D0 51 00 WRITE.B $5100 094675 C1 29 FD READ.W $29FD 094678 03 2A LONG2FLOAT 09467A C0 28 88 READ.B $2888 09467D 03 2A LONG2FLOAT 09467F 21 SUB.F 094680 97 07 WRITE.F $07 094682 87 07 READ.F $07 094684 3B 40 6F 40 00 00 00 00 00 PUSH.F $406F400000000000 ; float = 250.000000 09468D 24 GT.F 09468E 18 10 BRZ $010 ; => $0946A0 094690 87 07 READ.F $07 094692 3B 40 70 00 00 00 00 00 00 PUSH.F $4070000000000000 ; float = 256.000000 09469B 21 SUB.F 09469C 97 07 WRITE.F $07 09469E 17 E2 BR $-1E ; => $094682 0946A0 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 0946A9 C3 28 67 READ.F $2867 0946AC C3 28 6F READ.F $286F 0946AF C0 47 6B READ.B $476B 0946B2 E3 40 59 READ.F $4059 0946B5 C3 28 87 READ.F $2887 0946B8 21 SUB.F 0946B9 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0946C2 87 07 READ.F $07 0946C4 22 MUL.F 0946C5 20 ADD.F 0946C6 22 MUL.F 0946C7 20 ADD.F 0946C8 22 MUL.F 0946C9 97 1F WRITE.F $1F 0946CB 87 0F READ.F $0F 0946CD 87 1F READ.F $1F 0946CF 20 ADD.F 0946D0 3B 3E B0 C6 F7 A0 B5 ED 8D PUSH.F $3EB0C6F7A0B5ED8D ; float = 0.000001 0946D9 C3 29 57 READ.F $2957 0946DC 22 MUL.F 0946DD 21 SUB.F 0946DE C3 59 91 READ.F $5991 0946E1 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 0946EA 22 MUL.F 0946EB 21 SUB.F 0946EC 97 07 WRITE.F $07 0946EE 87 07 READ.F $07 0946F0 C0 29 10 READ.B $2910 0946F3 04 80 PUSH.10 $080 0946F5 29 MUL.L 0946F6 03 2A LONG2FLOAT 0946F8 3B 40 7F 40 00 00 00 00 00 PUSH.F $407F400000000000 ; float = 500.000000 094701 20 ADD.F 094702 C3 56 1D READ.F $561D 094705 22 MUL.F 094706 3B 3E 05 CF 55 03 0F 15 63 PUSH.F $3E05CF55030F1563 ; float = 0.000000 09470F 22 MUL.F 094710 21 SUB.F 094711 97 07 WRITE.F $07 094713 87 07 READ.F $07 094715 30 05 54 BSR.68K $0554 ; => $0941C4 => $002C08 (NATIVE) 094718 97 27 WRITE.F $27 09471A 87 27 READ.F $27 09471C 30 03 25 BSR.68K $0325 ; => $0943FA 09471F 87 27 READ.F $27 094721 87 17 READ.F $17 094723 87 1F READ.F $1F 094725 30 02 66 BSR.68K $0266 ; => $0944C2 094728 32 2A ADDSP.B $2A 09472A 34 RETURN ; ---------------- End Function $094646 ---------------- ; ---------------- Begin 2144 Function $094774 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A0EB6:$0A1002 ; addr bytes opcode operands comment 09477B 31 20 SUBSP.B $20 09477D C3 55 B5 READ.F $55B5 094780 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 094789 20 ADD.F 09478A D3 55 B5 WRITE.F $55B5 09478D C0 56 5F READ.B $565F 094790 E3 40 59 READ.F $4059 094793 C1 29 FD READ.W $29FD 094796 3D 00 09 3A 80 PUSH.L $00093A80 09479B 29 MUL.L 09479C 03 2A LONG2FLOAT 09479E 20 ADD.F 09479F D3 56 0D WRITE.F $560D 0947A2 C3 55 B5 READ.F $55B5 0947A5 3B 3F F8 00 00 00 00 00 00 PUSH.F $3FF8000000000000 ; float = 1.500000 0947AE 03 21 LT.F 0947B0 18 28 BRZ $028 ; => $0947DA 0947B2 C3 56 0D READ.F $560D 0947B5 D3 55 E5 WRITE.F $55E5 0947B8 C3 55 19 READ.F $5519 0947BB D3 55 ED WRITE.F $55ED 0947BE 3E PUSH.W $0000 0947BF D3 55 BD WRITE.F $55BD 0947C2 3E PUSH.W $0000 0947C3 D3 55 C5 WRITE.F $55C5 0947C6 3E PUSH.W $0000 0947C7 D3 55 CD WRITE.F $55CD 0947CA 3E PUSH.W $0000 0947CB D3 55 D5 WRITE.F $55D5 0947CE 3E PUSH.W $0000 0947CF D3 55 DD WRITE.F $55DD 0947D2 C3 55 19 READ.F $5519 0947D5 D3 55 F5 WRITE.F $55F5 0947D8 10 C5 BR $0C5 ; => $09489F 0947DA 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0947E3 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0947EC 22 MUL.F 0947ED 97 1F WRITE.F $1F 0947EF C3 56 0D READ.F $560D 0947F2 C3 55 E5 READ.F $55E5 0947F5 21 SUB.F 0947F6 97 07 WRITE.F $07 0947F8 C3 55 19 READ.F $5519 0947FB C3 55 ED READ.F $55ED 0947FE 21 SUB.F 0947FF 97 0F WRITE.F $0F 094801 87 0F READ.F $0F 094803 87 1F READ.F $1F 094805 24 GT.F 094806 18 10 BRZ $010 ; => $094818 094808 87 0F READ.F $0F 09480A 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 094813 21 SUB.F 094814 97 0F WRITE.F $0F 094816 17 E9 BR $-17 ; => $094801 094818 87 0F READ.F $0F 09481A 87 1F READ.F $1F 09481C 03 20 NEG.W 09481E 03 21 LT.F 094820 18 10 BRZ $010 ; => $094832 094822 87 0F READ.F $0F 094824 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 09482D 20 ADD.F 09482E 97 0F WRITE.F $0F 094830 17 E6 BR $-1A ; => $094818 094832 C3 55 BD READ.F $55BD 094835 87 07 READ.F $07 094837 20 ADD.F 094838 D3 55 BD WRITE.F $55BD 09483B C3 55 C5 READ.F $55C5 09483E 87 07 READ.F $07 094840 87 07 READ.F $07 094842 22 MUL.F 094843 20 ADD.F 094844 D3 55 C5 WRITE.F $55C5 094847 C3 55 CD READ.F $55CD 09484A 87 0F READ.F $0F 09484C 20 ADD.F 09484D D3 55 CD WRITE.F $55CD 094850 C3 55 D5 READ.F $55D5 094853 87 07 READ.F $07 094855 87 0F READ.F $0F 094857 22 MUL.F 094858 20 ADD.F 094859 D3 55 D5 WRITE.F $55D5 09485C C3 55 B5 READ.F $55B5 09485F C3 55 D5 READ.F $55D5 094862 22 MUL.F 094863 C3 55 BD READ.F $55BD 094866 C3 55 CD READ.F $55CD 094869 22 MUL.F 09486A 21 SUB.F 09486B C3 55 B5 READ.F $55B5 09486E C3 55 C5 READ.F $55C5 094871 22 MUL.F 094872 C3 55 BD READ.F $55BD 094875 C3 55 BD READ.F $55BD 094878 22 MUL.F 094879 21 SUB.F 09487A 23 DIV.F 09487B D3 55 DD WRITE.F $55DD 09487E C3 55 CD READ.F $55CD 094881 C3 55 DD READ.F $55DD 094884 C3 55 BD READ.F $55BD 094887 22 MUL.F 094888 21 SUB.F 094889 C3 55 B5 READ.F $55B5 09488C 23 DIV.F 09488D 97 17 WRITE.F $17 09488F C3 55 ED READ.F $55ED 094892 87 17 READ.F $17 094894 20 ADD.F 094895 C3 55 DD READ.F $55DD 094898 87 07 READ.F $07 09489A 22 MUL.F 09489B 20 ADD.F 09489C D3 55 F5 WRITE.F $55F5 09489F 32 20 ADDSP.B $20 0948A1 34 RETURN ; ---------------- End Function $094774 ---------------- ; ---------------- Begin 2144 Function $0948A2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000E66:$000F2C ; called from $0948F8:$0949E1 ; addr bytes opcode operands comment 0948A9 31 02 SUBSP.B $02 0948AB C3 29 7D READ.F $297D 0948AE 3E PUSH.W $0000 0948AF 03 21 LT.F 0948B1 18 04 BRZ $004 ; => $0948B7 0948B3 3E PUSH.W $0000 0948B4 D3 29 7D WRITE.F $297D 0948B7 C3 29 7D READ.F $297D 0948BA 3B 40 EF FF E0 00 00 00 00 PUSH.F $40EFFFE000000000 ; float = 65535.000000 0948C3 24 GT.F 0948C4 18 0C BRZ $00C ; => $0948D2 0948C6 3B 40 EF FF E0 00 00 00 00 PUSH.F $40EFFFE000000000 ; float = 65535.000000 0948CF D3 29 7D WRITE.F $297D 0948D2 C3 29 7D READ.F $297D 0948D5 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0948DE 20 ADD.F 0948DF 03 29 FLOAT2LONG 0948E1 D1 4E 53 WRITE.W $4E53 0948E4 02 FF INLINE PAD 0948E6 31 F9 00 00 71 AC move.w $0.w, $71ac.w 0948EC A2 00 dc.w $a200; opcode 1010 0948EE 4B FA 00 04 lea ($0004,PC), A5 0948F2 4E 75 rts 0948F4 32 02 ADDSP.B $02 0948F6 34 RETURN ; ---------------- End Function $0948A2 ---------------- ; ---------------- Begin 2144 Function $0948F8 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $092E8E:$092FD6 ; called from $0A0EB6:$0A0FFF ; called from $0A0EB6:$0A109A ; addr bytes opcode operands comment 0948FF 31 10 SUBSP.B $10 094901 C3 28 E3 READ.F $28E3 094904 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 09490D 22 MUL.F 09490E 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 094917 22 MUL.F 094918 03 20 NEG.W 09491A D3 56 1D WRITE.F $561D 09491D C3 56 1D READ.F $561D 094920 3B 41 D7 6A 24 00 00 00 00 PUSH.F $41D76A2400000000 ; float = 1571328000.000000 094929 23 DIV.F 09492A 03 20 NEG.W 09492C D3 56 25 WRITE.F $5625 09492F 86 03 READ.L $03 094931 40 PUSH.6 $00 094932 2B NEQ.L 094933 18 24 BRZ $024 ; => $094959 094935 C3 56 4D READ.F $564D 094938 3E PUSH.W $0000 094939 26 EQ.F 09493A 18 05 BRZ $005 ; => $094941 09493C C3 56 25 READ.F $5625 09493F 10 15 BR $015 ; => $094956 094941 3B 3F EA 2D 0E 56 04 18 93 PUSH.F $3FEA2D0E56041893 ; float = 0.818000 09494A C3 56 4D READ.F $564D 09494D C3 56 25 READ.F $5625 094950 21 SUB.F 094951 22 MUL.F 094952 C3 56 25 READ.F $5625 094955 20 ADD.F 094956 D3 56 4D WRITE.F $564D 094959 C0 56 6B READ.B $566B 09495C 40 PUSH.6 $00 09495D 2A EQ.L 09495E D0 56 6B WRITE.B $566B 094961 C0 56 6B READ.B $566B 094964 C0 29 75 READ.B $2975 094967 2C AND.L 094968 C0 29 91 READ.B $2991 09496B C0 54 2C READ.B $542C 09496E 40 PUSH.6 $00 09496F 2A EQ.L 094970 2D OR.L 094971 2C AND.L 094972 18 70 BRZ $070 ; => $0949E4 094974 3B 40 6F 40 00 00 00 00 00 PUSH.F $406F400000000000 ; float = 250.000000 09497D 97 13 WRITE.F $13 09497F 3B 40 72 28 00 00 00 00 00 PUSH.F $4072280000000000 ; float = 290.500000 094988 C3 56 1D READ.F $561D 09498B 22 MUL.F 09498C 97 0B WRITE.F $0B 09498E 87 0B READ.F $0B 094990 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 094999 24 GT.F 09499A 87 0B READ.F $0B 09499C 87 13 READ.F $13 09499E 03 21 LT.F 0949A0 2C AND.L 0949A1 18 0D BRZ $00D ; => $0949B0 0949A3 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0949AC 97 0B WRITE.F $0B 0949AE 10 22 BR $022 ; => $0949D2 0949B0 87 0B READ.F $0B 0949B2 3B BF F0 00 00 00 00 00 00 PUSH.F $BFF0000000000000 ; float = -1.000000 0949BB 03 21 LT.F 0949BD 87 0B READ.F $0B 0949BF 87 13 READ.F $13 0949C1 03 20 NEG.W 0949C3 24 GT.F 0949C4 2C AND.L 0949C5 18 0B BRZ $00B ; => $0949D2 0949C7 3B BF F0 00 00 00 00 00 00 PUSH.F $BFF0000000000000 ; float = -1.000000 0949D0 97 0B WRITE.F $0B 0949D2 C3 29 7D READ.F $297D 0949D5 87 0B READ.F $0B 0949D7 20 ADD.F 0949D8 D3 29 7D WRITE.F $297D 0949DB C0 4E 70 READ.B $4E70 0949DE 2E NOT.L 0949DF 18 03 BRZ $003 ; => $0949E4 0949E1 30 01 42 BSR.68K $0142 ; => $0948A2 0949E4 C3 56 05 READ.F $5605 0949E7 3E PUSH.W $0000 0949E8 26 EQ.F 0949E9 18 08 BRZ $008 ; => $0949F3 0949EB 3E PUSH.W $0000 0949EC D3 55 B5 WRITE.F $55B5 0949EF 3E PUSH.W $0000 0949F0 D3 55 FD WRITE.F $55FD 0949F3 C3 56 05 READ.F $5605 0949F6 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0949FF 20 ADD.F 094A00 D3 56 05 WRITE.F $5605 094A03 C3 55 FD READ.F $55FD 094A06 C3 56 1D READ.F $561D 094A09 20 ADD.F 094A0A D3 55 FD WRITE.F $55FD 094A0D 32 14 ADDSP.B $14 094A0F 34 RETURN ; ---------------- End Function $0948F8 ---------------- ; ---------------- Begin 2144 Function $094A10 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $094B46:$094BC6 ; addr bytes opcode operands comment 094A17 31 42 SUBSP.B $42 094A19 3E PUSH.W $0000 094A1A 9B 37 WRITE.F $37 094A1C 3E PUSH.W $0000 094A1D 9B 3F WRITE.F $3F 094A1F 40 PUSH.6 $00 094A20 36 20 40 _2362 $0040 ; A0 = $004000; (A0) = A6 + $0 094A23 86 03 READ.L $03 094A25 41 PUSH.6 $01 094A26 28 SUB.L 094A27 38 00 B9 BLS.B $00B9 ; => $094AE3 094A2A 88 40 READ.B $40 094A2C E0 47 6B READ.B $476B 094A2F 94 08 WRITE.B $08 094A31 84 08 READ.B $08 094A33 E3 42 D9 READ.F $42D9 094A36 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 094A3F 22 MUL.F 094A40 C3 29 DF READ.F $29DF 094A43 22 MUL.F 094A44 83 3F READ.F $3F 094A46 20 ADD.F 094A47 9B 0F WRITE.F $0F 094A49 83 37 READ.F $37 094A4B 8B 0F READ.F $0F 094A4D 83 47 READ.F $47 094A4F 8B 1F 00 READ.F $1F 094A52 8B 27 00 READ.F $27 094A55 8B 2F 00 READ.F $2F 094A58 30 02 F3 BSR.68K $02F3 ; => $094768 => $0A2972 094A5B 8B 1F READ.F $1F 094A5D 8B 27 READ.F $27 094A5F 8B 2F READ.F $2F 094A61 84 08 READ.B $08 094A63 E3 41 E9 READ.F $41E9 094A66 84 08 READ.B $08 094A68 E3 42 39 READ.F $4239 094A6B 84 08 READ.B $08 094A6D E3 42 89 READ.F $4289 094A70 30 03 23 BSR.68K $0323 ; => $094750 => $0AA32C 094A73 9B 17 WRITE.F $17 094A75 8B 37 READ.F $37 094A77 84 08 READ.B $08 094A79 E3 40 A9 READ.F $40A9 094A7C 20 ADD.F 094A7D 8B 17 READ.F $17 094A7F 21 SUB.F 094A80 9B 37 WRITE.F $37 094A82 84 08 READ.B $08 094A84 E3 43 79 READ.F $4379 094A87 84 08 READ.B $08 094A89 E3 41 E9 READ.F $41E9 094A8C 8B 1F READ.F $1F 094A8E 21 SUB.F 094A8F 22 MUL.F 094A90 84 08 READ.B $08 094A92 E3 43 C9 READ.F $43C9 094A95 84 08 READ.B $08 094A97 E3 42 39 READ.F $4239 094A9A 8B 27 READ.F $27 094A9C 21 SUB.F 094A9D 22 MUL.F 094A9E 20 ADD.F 094A9F 84 08 READ.B $08 094AA1 E3 44 19 READ.F $4419 094AA4 84 08 READ.B $08 094AA6 E3 42 89 READ.F $4289 094AA9 8B 2F READ.F $2F 094AAB 21 SUB.F 094AAC 22 MUL.F 094AAD 20 ADD.F 094AAE 8B 17 READ.F $17 094AB0 23 DIV.F 094AB1 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 094ABA 22 MUL.F 094ABB 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 094AC4 22 MUL.F 094AC5 9B 07 WRITE.F $07 094AC7 8B 3F READ.F $3F 094AC9 84 08 READ.B $08 094ACB E3 40 F9 READ.F $40F9 094ACE 20 ADD.F 094ACF 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 094AD8 21 SUB.F 094AD9 8B 07 READ.F $07 094ADB 20 ADD.F 094ADC 9B 3F WRITE.F $3F 094ADE 37 20 40 00 C0 _23d2 $0040, $00C0 094AE3 C0 54 2C READ.B $542C 094AE6 40 PUSH.6 $00 094AE7 2A EQ.L 094AE8 18 0A BRZ $00A ; => $094AF4 094AEA 8B 37 READ.F $37 094AEC 86 03 READ.L $03 094AEE 03 2A LONG2FLOAT 094AF0 23 DIV.F 094AF1 D3 55 19 WRITE.F $5519 094AF4 8B 3F READ.F $3F 094AF6 86 03 READ.L $03 094AF8 03 2A LONG2FLOAT 094AFA 23 DIV.F 094AFB D3 56 1D WRITE.F $561D 094AFE C0 67 EC READ.B $67EC 094B01 2E NOT.L 094B02 C3 55 19 READ.F $5519 094B05 3E PUSH.W $0000 094B06 03 21 LT.F 094B08 2C AND.L 094B09 18 10 BRZ $010 ; => $094B1B 094B0B C3 55 19 READ.F $5519 094B0E 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 094B17 20 ADD.F 094B18 D3 55 19 WRITE.F $5519 094B1B C0 4E 70 READ.B $4E70 094B1E 18 06 BRZ $006 ; => $094B26 094B20 3E PUSH.W $0000 094B21 D3 28 E3 WRITE.F $28E3 094B24 10 1C BR $01C ; => $094B42 094B26 C3 56 1D READ.F $561D 094B29 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 094B32 22 MUL.F 094B33 3B 3E 05 CF 55 03 0F 15 63 PUSH.F $3E05CF55030F1563 ; float = 0.000000 094B3C 22 MUL.F 094B3D 03 20 NEG.W 094B3F D3 28 E3 WRITE.F $28E3 094B42 32 42 ADDSP.B $42 094B44 34 RETURN ; ---------------- End Function $094A10 ---------------- ; ---------------- Begin 2144 Function $094B46 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $092E8E:$092FCC ; called from $0A0EB6:$0A108B ; addr bytes opcode operands comment 094B4D 31 02 SUBSP.B $02 094B4F 40 PUSH.6 $00 094B50 96 03 WRITE.L $03 094B52 40 PUSH.6 $00 094B53 36 10 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 094B56 C0 29 9B READ.B $299B 094B59 38 00 55 BLS.B $0055 ; => $094BB1 094B5C 84 08 READ.B $08 094B5E E0 47 75 READ.B $4775 094B61 18 49 BRZ $049 ; => $094BAC 094B63 C0 35 7C READ.B $357C 094B66 2E NOT.L 094B67 18 36 BRZ $036 ; => $094B9F 094B69 86 03 READ.L $03 094B6B 40 PUSH.6 $00 094B6C 03 25 LT.L 094B6E 18 2B BRZ $02B ; => $094B9B 094B70 C0 67 EC READ.B $67EC 094B73 18 13 BRZ $013 ; => $094B88 094B75 84 08 READ.B $08 094B77 E3 41 49 READ.F $4149 094B7A 84 09 READ.B $09 094B7C E3 41 49 READ.F $4149 094B7F 24 GT.F 094B80 18 04 BRZ $004 ; => $094B86 094B82 84 08 READ.B $08 094B84 94 09 WRITE.B $09 094B86 10 11 BR $011 ; => $094B99 094B88 84 08 READ.B $08 094B8A E3 43 29 READ.F $4329 094B8D 84 09 READ.B $09 094B8F E3 43 29 READ.F $4329 094B92 24 GT.F 094B93 18 04 BRZ $004 ; => $094B99 094B95 84 08 READ.B $08 094B97 94 09 WRITE.B $09 094B99 10 04 BR $004 ; => $094B9F 094B9B 84 08 READ.B $08 094B9D 94 09 WRITE.B $09 094B9F 86 03 READ.L $03 094BA1 84 08 READ.B $08 094BA3 F0 47 6B WRITE.B $476B 094BA6 86 03 READ.L $03 094BA8 41 PUSH.6 $01 094BA9 27 ADD.L 094BAA 96 03 WRITE.L $03 094BAC 37 10 08 00 5B _23d2 $0008, $005B 094BB1 86 03 READ.L $03 094BB3 40 PUSH.6 $00 094BB4 03 25 LT.L 094BB6 18 11 BRZ $011 ; => $094BC9 094BB8 C0 35 7C READ.B $357C 094BBB 2E NOT.L 094BBC 18 08 BRZ $008 ; => $094BC6 094BBE 41 PUSH.6 $01 094BBF 96 03 WRITE.L $03 094BC1 84 09 READ.B $09 094BC3 D0 47 6B WRITE.B $476B 094BC6 30 01 B9 BSR.68K $01B9 ; => $094A10 094BC9 32 02 ADDSP.B $02 094BCB 33 _2300 094BCC 34 RETURN ; ---------------- End Function $094B46 ---------------- ; ---------------- Begin 2144 Function $094C3A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $094C5A:$094C84 ; called from $094C8E:$094CAF ; called from $094CB6:$094CD7 ; addr bytes opcode operands comment 094C41 4D PUSH.6 $0D 094C42 41 PUSH.6 $01 094C43 C0 51 00 READ.B $5100 094C46 03 2A LONG2FLOAT 094C48 30 00 53 BSR.68K $0053 ; => $094BF8 => $097AD2 094C4B 54 PUSH.6 $14 094C4C 43 PUSH.6 $03 094C4D C0 51 41 READ.B $5141 094C50 03 2A LONG2FLOAT 094C52 30 00 5D BSR.68K $005D ; => $094BF8 => $097AD2 094C55 30 00 66 BSR.68K $0066 ; => $094BF2 => $0034C8 (SETSEGMENTS) (NATIVE) 094C58 34 RETURN ; ---------------- End Function $094C3A ---------------- ; ---------------- Begin 2144 Function $094C5A ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $094D12:$094D4B ; called from $094E42:$094E92 ; addr bytes opcode operands comment 094C61 72 PUSH.6 $32 094C62 D0 4E 51 WRITE.B $4E51 094C65 30 00 7C BSR.68K $007C ; => $094BEC => $0034AA (CLEARSCREEN) (NATIVE) 094C68 40 PUSH.6 $00 094C69 3F 10 42 41 44 20 45 43 48 DISP "BAD ECHO CHN " 4F 20 43 48 4E 20 20 20 20 094C7B 50 PUSH.6 $10 094C7C 43 PUSH.6 $03 094C7D 86 03 READ.L $03 094C7F 03 2A LONG2FLOAT 094C81 30 00 8C BSR.68K $008C ; => $094BF8 => $097AD2 094C84 30 00 4D BSR.68K $004D ; => $094C3A 094C87 40 PUSH.6 $00 094C88 1F DB BRZ $-25 ; => $094C65 094C8A 32 04 ADDSP.B $04 094C8C 34 RETURN ; ---------------- End Function $094C5A ---------------- ; ---------------- Begin 2144 Function $094C8E ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 094C95 72 PUSH.6 $32 094C96 D0 4E 51 WRITE.B $4E51 094C99 30 00 B0 BSR.68K $00B0 ; => $094BEC => $0034AA (CLEARSCREEN) (NATIVE) 094C9C 40 PUSH.6 $00 094C9D 3F 10 42 41 44 20 54 58 20 DISP "BAD TX CHAN " 20 43 48 41 4E 20 20 20 20 094CAF 30 00 78 BSR.68K $0078 ; => $094C3A 094CB2 40 PUSH.6 $00 094CB3 1F E4 BRZ $-1C ; => $094C99 094CB5 34 RETURN ; ---------------- End Function $094C8E ---------------- ; ---------------- Begin 2144 Function $094CB6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 094CBD 72 PUSH.6 $32 094CBE D0 4E 51 WRITE.B $4E51 094CC1 30 00 D8 BSR.68K $00D8 ; => $094BEC => $0034AA (CLEARSCREEN) (NATIVE) 094CC4 40 PUSH.6 $00 094CC5 3F 10 42 41 44 20 52 58 20 DISP "BAD RX CHAN " 20 43 48 41 4E 20 20 20 20 094CD7 30 00 A0 BSR.68K $00A0 ; => $094C3A 094CDA 40 PUSH.6 $00 094CDB 1F E4 BRZ $-1C ; => $094CC1 094CDD 34 RETURN ; ---------------- End Function $094CB6 ---------------- ; ---------------- Begin 2144 Function $094CDE ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $096676:$0966F3 ; addr bytes opcode operands comment 094CE5 72 PUSH.6 $32 094CE6 D0 4E 51 WRITE.B $4E51 094CE9 30 01 00 BSR.68K $0100 ; => $094BEC => $0034AA (CLEARSCREEN) (NATIVE) 094CEC 40 PUSH.6 $00 094CED 3F 14 41 4C 49 47 4E 4D 45 DISP "ALIGNMENT ERROR CHAN" 4E 54 20 45 52 52 4F 52 20 43 48 41 4E 094D03 55 PUSH.6 $15 094D04 86 03 READ.L $03 094D06 30 00 F9 BSR.68K $00F9 ; => $094C10 => $097B0A 094D09 30 01 1A BSR.68K $011A ; => $094BF2 => $0034C8 (SETSEGMENTS) (NATIVE) 094D0C 40 PUSH.6 $00 094D0D 1F DA BRZ $-26 ; => $094CE9 094D0F 32 04 ADDSP.B $04 094D11 34 RETURN ; ---------------- End Function $094CDE ---------------- ; ---------------- Begin 2144 Function $094D12 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0015CE:$0015E5 ; called from $0018F8:$001922 ; called from $09272C:$0927F0 ; called from $092FFE:$093025 ; called from $09308E:$0930C6 ; called from $09308E:$0930CF ; called from $093118:$09319D ; called from $093118:$0931D0 ; called from $093246:$0935BC ; called from $093246:$0935C4 ; called from $094D6E:$094D7C ; called from $094D8E:$094DA3 ; called from $096BC2:$096C79 ; called from $096BC2:$096CAD ; called from $09CF68:$09CFA3 ; called from $0AF722:$0AF74E ; called from $0AF722:$0AF7C2 ; called from $0AF84E:$0AF9D2 ; addr bytes opcode operands comment 094D19 C0 35 92 READ.B $3592 094D1C 18 10 BRZ $010 ; => $094D2E 094D1E C0 51 00 READ.B $5100 094D21 C0 35 92 READ.B $3592 094D24 03 27 LTE.L 094D26 18 06 BRZ $006 ; => $094D2E 094D28 86 03 READ.L $03 094D2A 68 PUSH.6 $28 094D2B 27 ADD.L 094D2C 96 03 WRITE.L $03 094D2E 86 03 READ.L $03 094D30 D0 51 41 WRITE.B $5141 094D33 41 PUSH.6 $01 094D34 D0 51 01 WRITE.B $5101 094D37 30 01 5A BSR.68K $015A ; => $094BE0 => $095AD0 (NATIVE) 094D3A 41 PUSH.6 $01 094D3B D0 51 01 WRITE.B $5101 094D3E 30 01 67 BSR.68K $0167 ; => $094BDA => $095B20 (NATIVE) 094D41 C0 51 41 READ.B $5141 094D44 86 03 READ.L $03 094D46 2B NEQ.L 094D47 18 05 BRZ $005 ; => $094D4E 094D49 86 03 READ.L $03 094D4B 30 00 F4 BSR.68K $00F4 ; => $094C5A 094D4E 32 04 ADDSP.B $04 094D50 34 RETURN ; ---------------- End Function $094D12 ---------------- ; ---------------- Begin 2144 Function $094D52 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $093246:$0935E5 ; addr bytes opcode operands comment 094D59 04 FF PUSH.10 $0FF 094D5B D0 4E 73 WRITE.B $4E73 094D5E 86 03 READ.L $03 094D60 D0 51 01 WRITE.B $5101 094D63 30 01 8C BSR.68K $018C ; => $094BDA => $095B20 (NATIVE) 094D66 40 PUSH.6 $00 094D67 D0 4E 73 WRITE.B $4E73 094D6A 32 04 ADDSP.B $04 094D6C 34 RETURN ; ---------------- End Function $094D52 ---------------- ; ---------------- Begin 2144 Function $094D6E ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $093246:$093485 ; called from $093CC0:$093CD7 ; called from $094DD8:$094DF0 ; called from $094ED4:$094EDF ; called from $094EF2:$094EFD ; called from $094F08:$094F13 ; called from $09501C:$095025 ; called from $098480:$0984AB ; called from $0ADA06:$0ADA11 ; called from $0AF6FE:$0AF707 ; addr bytes opcode operands comment 094D75 04 FF PUSH.10 $0FF 094D77 D0 4E 73 WRITE.B $4E73 094D7A 86 03 READ.L $03 094D7C 30 00 6D BSR.68K $006D ; => $094D12 094D7F 86 07 READ.L $07 094D81 D0 51 01 WRITE.B $5101 094D84 30 01 AD BSR.68K $01AD ; => $094BDA => $095B20 (NATIVE) 094D87 40 PUSH.6 $00 094D88 D0 4E 73 WRITE.B $4E73 094D8B 32 08 ADDSP.B $08 094D8D 34 RETURN ; ---------------- End Function $094D6E ---------------- ; ---------------- Begin 2144 Function $094D8E ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $09272C:$0927E7 ; called from $092FFE:$093045 ; called from $093CC0:$093EE1 ; called from $093CC0:$093F66 ; called from $09503C:$09508C ; called from $095216:$095254 ; called from $0A0648:$0A0693 ; called from $0A06A2:$0A0702 ; called from $0A070E:$0A0816 ; called from $0A0854:$0A08A0 ; called from $0ADA06:$0ADA67 ; addr bytes opcode operands comment 094D95 31 02 SUBSP.B $02 094D97 04 FF PUSH.10 $0FF 094D99 D0 4E 73 WRITE.B $4E73 094D9C C0 51 41 READ.B $5141 094D9F 94 08 WRITE.B $08 094DA1 86 03 READ.L $03 094DA3 30 00 94 BSR.68K $0094 ; => $094D12 094DA6 84 08 READ.B $08 094DA8 D0 51 41 WRITE.B $5141 094DAB 86 07 READ.L $07 094DAD D0 51 01 WRITE.B $5101 094DB0 30 01 D3 BSR.68K $01D3 ; => $094BE0 => $095AD0 (NATIVE) 094DB3 40 PUSH.6 $00 094DB4 D0 4E 73 WRITE.B $4E73 094DB7 32 0A ADDSP.B $0A 094DB9 34 RETURN ; ---------------- End Function $094D8E ---------------- ; ---------------- Begin 2144 Function $094DBA ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A1C82:$0A1E85 ; addr bytes opcode operands comment 094DC1 31 02 SUBSP.B $02 094DC3 41 PUSH.6 $01 094DC4 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 094DC7 86 03 READ.L $03 094DC9 38 00 08 BLS.B $0008 ; => $094DD4 094DCC 30 01 E9 BSR.68K $01E9 ; => $094BE6 => $095BD8 (SLEEP1SECOND) (NATIVE) 094DCF 37 10 04 00 0D _23d2 $0004, $000D 094DD4 32 06 ADDSP.B $06 094DD6 34 RETURN ; ---------------- End Function $094DBA ---------------- ; ---------------- Begin 2164 Function $094DD8 ---------------- ; P0 = $0000; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $000FF4:$001008 ; called from $094E22:$094E2B ; called from $0AA3C0:$0AA3D2 ; called from $0AA3C0:$0AA3E0 ; called from $0AA682:$0AA68B ; called from $0ADCB6:$0ADD0C ; called from $0ADCB6:$0ADD3F ; called from $0ADF66:$0ADF6F ; called from $0AEF66:$0AF04B ; called from $0AEF66:$0AF05E ; addr bytes opcode operands comment 094DE1 31 02 SUBSP.B $02 094DE3 C0 51 00 READ.B $5100 094DE6 94 08 WRITE.B $08 094DE8 C0 35 4C READ.B $354C 094DEB D0 51 00 WRITE.B $5100 094DEE 43 PUSH.6 $03 094DEF 44 PUSH.6 $04 094DF0 30 00 85 BSR.68K $0085 ; => $094D6E 094DF3 C0 51 41 READ.B $5141 094DF6 05 00 PUSH.10 $100 094DF8 29 MUL.L 094DF9 C0 51 40 READ.B $5140 094DFC 27 ADD.L 094DFD 05 00 PUSH.10 $100 094DFF 29 MUL.L 094E00 C0 51 3F READ.B $513F 094E03 27 ADD.L 094E04 05 00 PUSH.10 $100 094E06 29 MUL.L 094E07 C0 51 3E READ.B $513E 094E0A 27 ADD.L 094E0B 03 2A LONG2FLOAT 094E0D 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 094E16 22 MUL.F 094E17 97 07 WRITE.F $07 094E19 84 08 READ.B $08 094E1B D0 51 00 WRITE.B $5100 094E1E 32 02 ADDSP.B $02 094E20 34 RETURN ; ---------------- End Function $094DD8 ---------------- ; ---------------- Begin 2164 Function $094E22 ---------------- ; P0 = $0000; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $0010A2:$0010C1 ; called from $0011E6:$0011F3 ; called from $001360:$0013AE ; called from $0014E6:$001515 ; called from $0936B6:$0936D0 ; called from $094F62:$094FD0 ; called from $094F62:$094FE8 ; called from $095216:$09527E ; called from $09DD4E:$09DDBC ; called from $09DD4E:$09DF25 ; called from $0A61EA:$0A623C ; called from $0A6B6C:$0A6B7C ; called from $0A7E94:$0A7E9B ; called from $0AA80A:$0AA841 ; called from $0ABFB6:$0AC0DD ; called from $0AE864:$0AE86D ; called from $0AEE7A:$0AEE85 ; called from $0AF21A:$0AF29D ; called from $0AF21A:$0AF383 ; called from $0AF50C:$0AF5C2 ; called from $0AF634:$0AF68A ; called from $0AF834:$0AF83B ; called from $0AF84E:$0AF896 ; addr bytes opcode operands comment 094E2B 30 00 56 BSR.68K $0056 ; => $094DD8 094E2E C1 29 FD READ.W $29FD 094E31 3D 00 09 3A 80 PUSH.L $00093A80 094E36 29 MUL.L 094E37 03 2A LONG2FLOAT 094E39 20 ADD.F 094E3A 97 07 WRITE.F $07 094E3C 87 07 READ.F $07 094E3E D3 60 3B WRITE.F $603B 094E41 34 RETURN ; ---------------- End Function $094E22 ---------------- ; ---------------- Begin 2144 Function $094E42 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0944C2:$0944CB ; called from $0AA80A:$0AA89A ; called from $0AF50C:$0AF519 ; addr bytes opcode operands comment 094E49 31 02 SUBSP.B $02 094E4B 04 FF PUSH.10 $0FF 094E4D D0 4E 73 WRITE.B $4E73 094E50 C0 35 92 READ.B $3592 094E53 18 03 BRZ $003 ; => $094E58 094E55 30 02 24 BSR.68K $0224 ; => $094C34 => $000C1C (NATIVE) 094E58 04 FF PUSH.10 $0FF 094E5A D0 4E 55 WRITE.B $4E55 094E5D C0 35 92 READ.B $3592 094E60 18 07 BRZ $007 ; => $094E69 094E62 C0 35 92 READ.B $3592 094E65 41 PUSH.6 $01 094E66 28 SUB.L 094E67 10 03 BR $003 ; => $094E6C 094E69 C0 29 9A READ.B $299A 094E6C 94 01 WRITE.B $01 094E6E 40 PUSH.6 $00 094E6F 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 094E72 84 01 READ.B $01 094E74 38 00 55 BLS.B $0055 ; => $094ECC 094E77 84 00 READ.B $00 094E79 E0 60 29 READ.B $6029 094E7C 18 49 BRZ $049 ; => $094EC7 094E7E 84 00 READ.B $00 094E80 D0 51 00 WRITE.B $5100 094E83 45 PUSH.6 $05 094E84 D0 51 01 WRITE.B $5101 094E87 30 02 B0 BSR.68K $02B0 ; => $094BDA => $095B20 (NATIVE) 094E8A C0 51 41 READ.B $5141 094E8D 43 PUSH.6 $03 094E8E 2B NEQ.L 094E8F 18 04 BRZ $004 ; => $094E95 094E91 43 PUSH.6 $03 094E92 30 02 3B BSR.68K $023B ; => $094C5A 094E95 84 00 READ.B $00 094E97 C0 51 40 READ.B $5140 094E9A 05 00 PUSH.10 $100 094E9C 29 MUL.L 094E9D C0 51 3F READ.B $513F 094EA0 27 ADD.L 094EA1 05 00 PUSH.10 $100 094EA3 29 MUL.L 094EA4 C0 51 3E READ.B $513E 094EA7 27 ADD.L 094EA8 05 00 PUSH.10 $100 094EAA 29 MUL.L 094EAB C0 51 3D READ.B $513D 094EAE 27 ADD.L 094EAF 03 2A LONG2FLOAT 094EB1 F3 47 C7 WRITE.F $47C7 094EB4 C0 35 92 READ.B $3592 094EB7 18 0E BRZ $00E ; => $094EC7 094EB9 84 00 READ.B $00 094EBB C0 35 92 READ.B $3592 094EBE 27 ADD.L 094EBF 84 00 READ.B $00 094EC1 E3 47 C7 READ.F $47C7 094EC4 F3 47 C7 WRITE.F $47C7 094EC7 37 10 00 00 5A _23d2 $0000, $005A 094ECC 40 PUSH.6 $00 094ECD D0 4E 73 WRITE.B $4E73 094ED0 32 02 ADDSP.B $02 094ED2 34 RETURN ; ---------------- End Function $094E42 ---------------- ; ---------------- Begin 2164 Function $094ED4 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0015CE:$0015DA ; called from $0936B6:$093712 ; called from $09DD4E:$09DF16 ; called from $0AF21A:$0AF378 ; addr bytes opcode operands comment 094EDD 4E PUSH.6 $0E 094EDE 41 PUSH.6 $01 094EDF 30 01 74 BSR.68K $0174 ; => $094D6E 094EE2 C0 51 41 READ.B $5141 094EE5 41 PUSH.6 $01 094EE6 2C AND.L 094EE7 40 PUSH.6 $00 094EE8 2B NEQ.L 094EE9 96 03 WRITE.L $03 094EEB C0 51 41 READ.B $5141 094EEE D0 55 A4 WRITE.B $55A4 094EF1 34 RETURN ; ---------------- End Function $094ED4 ---------------- ; ---------------- Begin 2164 Function $094EF2 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $094F62:$094F6D ; called from $094F62:$094F83 ; called from $094F62:$094FBD ; called from $094F62:$094FED ; addr bytes opcode operands comment 094EFB 4D PUSH.6 $0D 094EFC 41 PUSH.6 $01 094EFD 30 01 92 BSR.68K $0192 ; => $094D6E 094F00 C0 51 41 READ.B $5141 094F03 40 PUSH.6 $00 094F04 2B NEQ.L 094F05 96 03 WRITE.L $03 094F07 34 RETURN ; ---------------- End Function $094EF2 ---------------- ; ---------------- Begin 2164 Function $094F08 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $094F62:$094FC8 ; called from $094F62:$094FF8 ; called from $09DD4E:$09DDFA ; called from $0AB022:$0AB048 ; called from $0ADF66:$0AE05B ; called from $0ADF66:$0AE0BC ; called from $0AF21A:$0AF26C ; called from $0AF21A:$0AF30B ; called from $0AF7EC:$0AF81F ; addr bytes opcode operands comment 094F11 45 PUSH.6 $05 094F12 41 PUSH.6 $01 094F13 30 01 A8 BSR.68K $01A8 ; => $094D6E 094F16 C0 51 41 READ.B $5141 094F19 40 PUSH.6 $00 094F1A 2B NEQ.L 094F1B 96 03 WRITE.L $03 094F1D C0 29 E0 READ.B $29E0 094F20 43 PUSH.6 $03 094F21 03 26 GT.L 094F23 18 3C BRZ $03C ; => $094F61 094F25 C0 51 00 READ.B $5100 094F28 C0 29 A0 READ.B $29A0 094F2B 03 26 GT.L 094F2D C0 51 41 READ.B $5141 094F30 41 PUSH.6 $01 094F31 03 25 LT.L 094F33 2C AND.L 094F34 18 2B BRZ $02B ; => $094F61 094F36 C0 51 00 READ.B $5100 094F39 C0 51 00 READ.B $5100 094F3C E3 41 49 READ.F $4149 094F3F 3E PUSH.W $0000 094F40 26 EQ.F 094F41 18 07 BRZ $007 ; => $094F4A 094F43 C0 51 41 READ.B $5141 094F46 03 2A LONG2FLOAT 094F48 10 14 BR $014 ; => $094F5E 094F4A C0 51 00 READ.B $5100 094F4D E3 41 49 READ.F $4149 094F50 71 PUSH.6 $31 094F51 03 2A LONG2FLOAT 094F53 22 MUL.F 094F54 C0 51 41 READ.B $5141 094F57 03 2A LONG2FLOAT 094F59 20 ADD.F 094F5A 72 PUSH.6 $32 094F5B 03 2A LONG2FLOAT 094F5D 23 DIV.F 094F5E F3 41 49 WRITE.F $4149 094F61 34 RETURN ; ---------------- End Function $094F08 ---------------- ; ---------------- Begin 2164 Function $094F62 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0AF6A0:$0AF6E7 ; addr bytes opcode operands comment 094F6B 31 12 SUBSP.B $12 094F6D 30 00 7E BSR.68K $007E ; => $094EF2 094F70 94 14 WRITE.B $14 094F72 C0 6B 28 READ.B $6B28 094F75 42 PUSH.6 $02 094F76 2A EQ.L 094F77 18 1A BRZ $01A ; => $094F93 094F79 C0 51 00 READ.B $5100 094F7C C0 29 A0 READ.B $29A0 094F7F 03 27 LTE.L 094F81 18 0E BRZ $00E ; => $094F91 094F83 30 00 94 BSR.68K $0094 ; => $094EF2 094F86 94 14 WRITE.B $14 094F88 84 14 READ.B $14 094F8A 18 02 BRZ $002 ; => $094F8E 094F8C 10 87 BR $087 ; => $095015 094F8E 40 PUSH.6 $00 094F8F 1F F2 BRZ $-0E ; => $094F83 094F91 10 82 BR $082 ; => $095015 094F93 84 14 READ.B $14 094F95 2E NOT.L 094F96 C0 51 00 READ.B $5100 094F99 C0 29 A0 READ.B $29A0 094F9C 03 26 GT.L 094F9E 2C AND.L 094F9F 18 74 BRZ $074 ; => $095015 094FA1 C0 29 10 READ.B $2910 094FA4 03 2A LONG2FLOAT 094FA6 3B 3F D0 62 4D D2 F1 A9 FC PUSH.F $3FD0624DD2F1A9FC ; float = 0.256000 094FAF 22 MUL.F 094FB0 97 0B WRITE.F $0B 094FB2 C1 29 0F READ.W $290F 094FB5 40 PUSH.6 $00 094FB6 2A EQ.L 094FB7 C0 54 2C READ.B $542C 094FBA 2D OR.L 094FBB 18 2B BRZ $02B ; => $094FE8 094FBD 30 00 CE BSR.68K $00CE ; => $094EF2 094FC0 94 14 WRITE.B $14 094FC2 84 14 READ.B $14 094FC4 18 02 BRZ $002 ; => $094FC8 094FC6 10 4D BR $04D ; => $095015 094FC8 30 00 C3 BSR.68K $00C3 ; => $094F08 094FCB 2E NOT.L 094FCC 18 02 BRZ $002 ; => $094FD0 094FCE 10 45 BR $045 ; => $095015 094FD0 30 01 B1 BSR.68K $01B1 ; => $094E22 094FD3 C3 59 89 READ.F $5989 094FD6 21 SUB.F 094FD7 87 0B READ.F $0B 094FD9 3B 40 08 00 00 00 00 00 00 PUSH.F $4008000000000000 ; float = 3.000000 094FE2 20 ADD.F 094FE3 24 GT.F 094FE4 1F D7 BRZ $-29 ; => $094FBD 094FE6 10 2D BR $02D ; => $095015 094FE8 30 01 C9 BSR.68K $01C9 ; => $094E22 094FEB 97 13 WRITE.F $13 094FED 30 00 FE BSR.68K $00FE ; => $094EF2 094FF0 94 14 WRITE.B $14 094FF2 84 14 READ.B $14 094FF4 18 02 BRZ $002 ; => $094FF8 094FF6 10 1D BR $01D ; => $095015 094FF8 30 00 F3 BSR.68K $00F3 ; => $094F08 094FFB 2E NOT.L 094FFC 18 02 BRZ $002 ; => $095000 094FFE 10 15 BR $015 ; => $095015 095000 87 13 READ.F $13 095002 C3 59 89 READ.F $5989 095005 21 SUB.F 095006 87 0B READ.F $0B 095008 3B 3F 9E B8 51 EB 85 1E B8 PUSH.F $3F9EB851EB851EB8 ; float = 0.030000 095011 20 ADD.F 095012 24 GT.F 095013 1F D3 BRZ $-2D ; => $094FE8 095015 84 14 READ.B $14 095017 96 03 WRITE.L $03 095019 32 12 ADDSP.B $12 09501B 34 RETURN ; ---------------- End Function $094F62 ---------------- ; ---------------- Begin 2144 Function $09501C ---------------- ; A0 = $004004; (A0) = SP + $B ; called from $093CC0:$093D40 ; addr bytes opcode operands comment 095023 48 PUSH.6 $08 095024 42 PUSH.6 $02 095025 30 02 BA BSR.68K $02BA ; => $094D6E 095028 C0 51 41 READ.B $5141 09502B 05 00 PUSH.10 $100 09502D 29 MUL.L 09502E C0 51 40 READ.B $5140 095031 27 ADD.L 095032 03 2A LONG2FLOAT 095034 44 PUSH.6 $04 095035 30 04 64 BSR.68K $0464 ; => $094BD4 => $002BEA (NATIVE) 095038 97 07 WRITE.F $07 09503A 33 _2300 09503B 34 RETURN ; ---------------- End Function $09501C ---------------- ; ---------------- Begin 2144 Function $09503C ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $093246:$09359B ; addr bytes opcode operands comment 095043 31 02 SUBSP.B $02 095045 40 PUSH.6 $00 095046 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 095049 C0 35 92 READ.B $3592 09504C 18 07 BRZ $007 ; => $095055 09504E C0 35 92 READ.B $3592 095051 41 PUSH.6 $01 095052 28 SUB.L 095053 10 03 BR $003 ; => $095058 095055 C0 29 9A READ.B $299A 095058 38 00 39 BLS.B $0039 ; => $095094 09505B 84 04 READ.B $04 09505D E0 60 29 READ.B $6029 095060 18 2D BRZ $02D ; => $09508F 095062 84 04 READ.B $04 095064 D0 51 00 WRITE.B $5100 095067 C0 29 9D READ.B $299D 09506A 18 05 BRZ $005 ; => $095071 09506C C0 4E 72 READ.B $4E72 09506F 10 01 BR $001 ; => $095072 095071 41 PUSH.6 $01 095072 D0 51 41 WRITE.B $5141 095075 C0 29 9D READ.B $299D 095078 18 04 BRZ $004 ; => $09507E 09507A 86 03 READ.L $03 09507C 10 01 BR $001 ; => $09507F 09507E 41 PUSH.6 $01 09507F D0 51 40 WRITE.B $5140 095082 41 PUSH.6 $01 095083 D0 51 3F WRITE.B $513F 095086 40 PUSH.6 $00 095087 D0 51 3E WRITE.B $513E 09508A 4A PUSH.6 $0A 09508B 44 PUSH.6 $04 09508C 30 03 01 BSR.68K $0301 ; => $094D8E 09508F 37 10 04 00 4B _23d2 $0004, $004B 095094 32 06 ADDSP.B $06 095096 34 RETURN ; ---------------- End Function $09503C ---------------- ; ---------------- Begin 2144 Function $095098 ---------------- ; A0 = $004004; (A0) = SP + $17 ; called from $093CC0:$093DBA ; called from $093CC0:$093E3C ; called from $0943A2:$0943DF ; addr bytes opcode operands comment 09509F 31 04 SUBSP.B $04 0950A1 87 07 READ.F $07 0950A3 03 29 FLOAT2LONG 0950A5 96 1B WRITE.L $1B 0950A7 86 1B READ.L $1B 0950A9 05 00 PUSH.10 $100 0950AB 03 24 DIV.L 0950AD 96 0B WRITE.L $0B 0950AF 86 1B READ.L $1B 0950B1 05 00 PUSH.10 $100 0950B3 2F MOD.L 0950B4 96 13 WRITE.L $13 0950B6 32 04 ADDSP.B $04 0950B8 33 _2300 0950B9 33 _2300 0950BA 32 08 ADDSP.B $08 0950BC 34 RETURN ; ---------------- End Function $095098 ---------------- ; ---------------- Begin 2144 Function $0950BE ---------------- ; A0 = $004004; (A0) = SP + $1F ; called from $093CC0:$093D26 ; called from $0ADA06:$0ADA62 ; addr bytes opcode operands comment 0950C5 31 04 SUBSP.B $04 0950C7 87 07 READ.F $07 0950C9 30 04 FE BSR.68K $04FE ; => $094BCE => $002B7E (NATIVE) 0950CC 03 29 FLOAT2LONG 0950CE 96 23 WRITE.L $23 0950D0 87 07 READ.F $07 0950D2 3E PUSH.W $0000 0950D3 03 21 LT.F 0950D5 18 06 BRZ $006 ; => $0950DD 0950D7 40 PUSH.6 $00 0950D8 86 23 READ.L $23 0950DA 28 SUB.L 0950DB 96 23 WRITE.L $23 0950DD 86 23 READ.L $23 0950DF 3D 00 01 00 00 PUSH.L $00010000 0950E4 03 24 DIV.L 0950E6 96 0B WRITE.L $0B 0950E8 86 23 READ.L $23 0950EA 3D 00 01 00 00 PUSH.L $00010000 0950EF 2F MOD.L 0950F0 96 23 WRITE.L $23 0950F2 86 23 READ.L $23 0950F4 05 00 PUSH.10 $100 0950F6 03 24 DIV.L 0950F8 96 13 WRITE.L $13 0950FA 86 23 READ.L $23 0950FC 05 00 PUSH.10 $100 0950FE 2F MOD.L 0950FF 96 1B WRITE.L $1B 095101 32 04 ADDSP.B $04 095103 33 _2300 095104 33 _2300 095105 33 _2300 095106 32 08 ADDSP.B $08 095108 34 RETURN ; ---------------- End Function $0950BE ---------------- ; ---------------- Begin 2144 Function $09510A ---------------- ; A0 = $004004; (A0) = SP + $27 ; called from $095216:$09523E ; addr bytes opcode operands comment 095111 31 04 SUBSP.B $04 095113 87 07 READ.F $07 095115 03 29 FLOAT2LONG 095117 96 2B WRITE.L $2B 095119 86 2B READ.L $2B 09511B 3D 01 00 00 00 PUSH.L $01000000 095120 03 24 DIV.L 095122 96 0B WRITE.L $0B 095124 86 2B READ.L $2B 095126 3D 01 00 00 00 PUSH.L $01000000 09512B 2F MOD.L 09512C 96 2B WRITE.L $2B 09512E 86 2B READ.L $2B 095130 3D 00 01 00 00 PUSH.L $00010000 095135 03 24 DIV.L 095137 96 13 WRITE.L $13 095139 86 2B READ.L $2B 09513B 3D 00 01 00 00 PUSH.L $00010000 095140 2F MOD.L 095141 96 2B WRITE.L $2B 095143 86 2B READ.L $2B 095145 05 00 PUSH.10 $100 095147 03 24 DIV.L 095149 96 1B WRITE.L $1B 09514B 86 2B READ.L $2B 09514D 05 00 PUSH.10 $100 09514F 2F MOD.L 095150 96 23 WRITE.L $23 095152 32 04 ADDSP.B $04 095154 33 _2300 095155 33 _2300 095156 33 _2300 095157 33 _2300 095158 32 08 ADDSP.B $08 09515A 34 RETURN ; ---------------- End Function $09510A ---------------- ; ---------------- Begin 2164 Function $09515C ---------------- ; P0 = $0004; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000008 ; called from $0941F4:$09422B ; called from $0944C2:$094505 ; called from $0966FA:$096882 ; called from $0A8216:$0A823D ; called from $0AB1DA:$0AB25E ; called from $0AB514:$0AB544 ; addr bytes opcode operands comment 095165 86 0B READ.L $0B 095167 3D 7F FF FF FF PUSH.L $7FFFFFFF 09516C 03 25 LT.L 09516E 18 0A BRZ $00A ; => $09517A 095170 40 PUSH.6 $00 095171 86 0B READ.L $0B 095173 28 SUB.L 095174 03 2A LONG2FLOAT 095176 03 20 NEG.W 095178 10 04 BR $004 ; => $09517E 09517A 86 0B READ.L $0B 09517C 03 2A LONG2FLOAT 09517E 97 07 WRITE.F $07 095180 32 04 ADDSP.B $04 095182 34 RETURN ; ---------------- End Function $09515C ---------------- ; ---------------- Begin 2164 Function $095184 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $091BF2:$091C52 ; called from $092E8E:$092F6B ; called from $09363C:$0936AD ; called from $0A0C6E:$0A0C9A ; called from $0A1C82:$0A1CD2 ; called from $0A235C:$0A237E ; called from $0A27A0:$0A27EA ; called from $0A6B6C:$0A6C4D ; called from $0A7F70:$0A7F83 ; called from $0ABAD2:$0ABAEB ; called from $0ABAD2:$0ABB11 ; called from $0ABEE2:$0ABEF5 ; called from $0ADCB6:$0ADD02 ; addr bytes opcode operands comment 09518D 86 07 READ.L $07 09518F E1 01 61 READ.W $0161 095192 40 PUSH.6 $00 095193 2B NEQ.L 095194 96 03 WRITE.L $03 095196 32 04 ADDSP.B $04 095198 34 RETURN ; ---------------- End Function $095184 ---------------- ; ---------------- Begin 2164 Function $09519A ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $091BF2:$091C70 ; called from $0A235C:$0A238A ; called from $0A27A0:$0A27F6 ; called from $0ABAD2:$0ABB22 ; called from $0ADCB6:$0ADD35 ; addr bytes opcode operands comment 0951A3 86 07 READ.L $07 0951A5 E1 18 9B READ.W $189B 0951A8 40 PUSH.6 $00 0951A9 2B NEQ.L 0951AA 86 07 READ.L $07 0951AC E0 20 FD READ.B $20FD 0951AF 86 07 READ.L $07 0951B1 30 05 86 BSR.68K $0586 ; => $094C2E => $09FE70 0951B4 2A EQ.L 0951B5 2C AND.L 0951B6 96 03 WRITE.L $03 0951B8 32 04 ADDSP.B $04 0951BA 34 RETURN ; ---------------- End Function $09519A ---------------- ; ---------------- Begin 2164 Function $0951BC ---------------- ; P0 = $0000; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $0ADCB6:$0ADD18 ; called from $0ADCB6:$0ADD49 ; called from $0AEF66:$0AF06D ; addr bytes opcode operands comment 0951C5 31 08 SUBSP.B $08 0951C7 C3 4E 33 READ.F $4E33 0951CA C3 4E 1B READ.F $4E1B 0951CD 83 4F READ.F $4F 0951CF 21 SUB.F 0951D0 22 MUL.F 0951D1 C3 4E 3B READ.F $4E3B 0951D4 C3 4E 23 READ.F $4E23 0951D7 83 57 READ.F $57 0951D9 21 SUB.F 0951DA 22 MUL.F 0951DB 20 ADD.F 0951DC C3 4E 43 READ.F $4E43 0951DF C3 4E 2B READ.F $4E2B 0951E2 83 5F READ.F $5F 0951E4 21 SUB.F 0951E5 22 MUL.F 0951E6 20 ADD.F 0951E7 83 CF READ.F $CF 0951E9 23 DIV.F 0951EA 97 0F WRITE.F $0F 0951EC 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0951F5 87 0F READ.F $0F 0951F7 C3 28 E3 READ.F $28E3 0951FA 20 ADD.F 0951FB 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 095204 22 MUL.F 095205 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 09520E 22 MUL.F 09520F 21 SUB.F 095210 97 07 WRITE.F $07 095212 32 08 ADDSP.B $08 095214 34 RETURN ; ---------------- End Function $0951BC ---------------- ; ---------------- Begin 2144 Function $095216 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $0941F4:$09422E ; called from $0AA80A:$0AA8B2 ; called from $0AF50C:$0AF544 ; called from $0AF50C:$0AF611 ; addr bytes opcode operands comment 09521D 31 06 SUBSP.B $06 09521F 87 07 READ.F $07 095221 30 06 56 BSR.68K $0656 ; => $094BCE => $002B7E (NATIVE) 095224 3B 3F 74 7A E1 47 AE 14 7B PUSH.F $3F747AE147AE147B ; float = 0.005000 09522D 20 ADD.F 09522E C0 51 40 00 READ.B $5140 095232 C0 51 3F 00 READ.B $513F 095236 C0 51 3E 00 READ.B $513E 09523A C0 51 3D 00 READ.B $513D 09523E 30 01 37 BSR.68K $0137 ; => $09510A 095241 87 07 READ.F $07 095243 3E PUSH.W $0000 095244 03 21 LT.F 095246 18 06 BRZ $006 ; => $09524E 095248 41 PUSH.6 $01 095249 D0 51 41 WRITE.B $5141 09524C 10 04 BR $004 ; => $095252 09524E 40 PUSH.6 $00 09524F D0 51 41 WRITE.B $5141 095252 41 PUSH.6 $01 095253 45 PUSH.6 $05 095254 30 04 C9 BSR.68K $04C9 ; => $094D8E 095257 C0 4E 69 READ.B $4E69 09525A 18 54 BRZ $054 ; => $0952B0 09525C 04 FF PUSH.10 $0FF 09525E D0 4E 94 WRITE.B $4E94 095261 03 30 1A 2A 2A 2A 20 54 45 TRAP1 "*** TEST MODE ENABLED *** " 53 54 20 4D 4F 44 45 20 45 4E 41 42 4C 45 44 20 2A 2A 2A 20 09527E 30 04 5F BSR.68K $045F ; => $094E22 095281 30 06 62 BSR.68K $0662 ; => $094C22 => $0A03BC 095284 03 30 09 20 43 48 41 4E 4E TRAP1 " CHANNEL " 45 4C 20 095290 C0 51 00 READ.B $5100 095293 42 PUSH.6 $02 095294 30 06 8D BSR.68K $068D ; => $094C0A => $0A0036 095297 03 30 0E 20 54 49 4D 45 20 TRAP1 " TIME ADJUST: " 41 44 4A 55 53 54 3A 20 0952A8 87 07 READ.F $07 0952AA 30 06 97 BSR.68K $0697 ; => $094C16 => $0A57D4 0952AD 30 06 B2 BSR.68K $06B2 ; => $094BFE => $0A05A4 (NATIVE) 0952B0 32 0E ADDSP.B $0E 0952B2 34 RETURN ; ---------------- End Function $095216 ---------------- ; ---------------- Begin 2144 Function $09530E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DA84 ; addr bytes opcode operands comment 095315 30 00 64 BSR.68K $0064 ; => $0952B4 => $0034AA (CLEARSCREEN) (NATIVE) 095318 80 20 READ.B $20 09531A 35 SWITCH 09531B 10 20 10 CASE $10 ; SWITCH $09531A 09531E 4D PUSH.6 $0D 09531F 90 21 WRITE.B $21 095321 45 PUSH.6 $05 095322 3F 17 41 47 45 20 20 20 20 DISP "AGE ELEV PDOP" 20 20 20 20 20 45 4C 45 56 20 20 20 50 44 4F 50 09533B 10 38 BR $038 ; => $095375 09533D 10 06 50 CASE $50 ; SWITCH $09531A 095340 30 00 77 BSR.68K $0077 ; => $0952CC => $0ACE3C 095343 10 30 BR $030 ; => $095375 095345 10 1B 90 CASE $90 ; SWITCH $09531A 095348 4F PUSH.6 $0F 095349 90 21 WRITE.B $21 09534B 50 PUSH.6 $10 09534C 3F 0F 45 4E 41 42 4C 45 20 DISP "ENABLE NOW" 20 20 20 20 20 4E 4F 57 09535D 40 PUSH.6 $00 09535E 90 22 WRITE.B $22 095360 10 13 BR $013 ; => $095375 095362 10 0D D0 CASE $D0 ; SWITCH $09531A 095365 04 41 PUSH.10 $041 095367 90 21 WRITE.B $21 095369 30 00 AC BSR.68K $00AC ; => $0952C0 => $099642 09536C 30 00 9D BSR.68K $009D ; => $0952D2 => $0ACE50 09536F 10 04 BR $004 ; => $095375 095371 00 DEFAULT ; SWITCH $09531A 095372 30 00 7F BSR.68K $007F ; => $0952F6 => $09D9DE 095375 34 RETURN ; ---------------- End Function $09530E ---------------- ; ---------------- Begin 2144 Function $095376 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0953C8:$0953E2 ; called from $0953C8:$095458 ; called from $0955C0:$0955D8 ; addr bytes opcode operands comment 09537D 30 00 C0 BSR.68K $00C0 ; => $0952C0 => $099642 095380 40 PUSH.6 $00 095381 3F 20 41 56 45 52 41 47 49 DISP "AVERAGING TIME EACH SV SEC" 4E 47 20 54 49 4D 45 20 20 45 41 43 48 20 53 56 20 20 20 20 20 20 53 45 43 0953A3 59 PUSH.6 $19 0953A4 43 PUSH.6 $03 0953A5 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0953AE C3 28 F5 READ.F $28F5 0953B1 22 MUL.F 0953B2 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0953BB 20 ADD.F 0953BC 30 00 D5 BSR.68K $00D5 ; => $0952EA => $097AD2 0953BF 59 PUSH.6 $19 0953C0 90 26 WRITE.B $26 0953C2 5A PUSH.6 $1A 0953C3 30 00 EE BSR.68K $00EE ; => $0952D8 => $097B5C 0953C6 34 RETURN ; ---------------- End Function $095376 ---------------- ; ---------------- Begin 2144 Function $0953C8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0955C0:$0955F7 ; addr bytes opcode operands comment 0953CF 31 0A SUBSP.B $0A 0953D1 80 20 READ.B $20 0953D3 35 SWITCH 0953D4 10 11 02 CASE $02 ; SWITCH $0953D3 0953D7 80 26 READ.B $26 0953D9 59 PUSH.6 $19 0953DA 2A EQ.L 0953DB 18 05 BRZ $005 ; => $0953E2 0953DD 40 PUSH.6 $00 0953DE 90 21 WRITE.B $21 0953E0 10 03 BR $003 ; => $0953E5 0953E2 30 00 6F BSR.68K $006F ; => $095376 0953E5 10 15 BR $015 ; => $0953FC 0953E7 10 06 04 CASE $04 ; SWITCH $0953D3 0953EA 61 PUSH.6 $21 0953EB 90 26 WRITE.B $26 0953ED 10 0D BR $00D ; => $0953FC 0953EF 00 DEFAULT ; SWITCH $0953D3 0953F0 80 26 READ.B $26 0953F2 5C PUSH.6 $1C 0953F3 03 26 GT.L 0953F5 18 05 BRZ $005 ; => $0953FC 0953F7 30 01 1C BSR.68K $011C ; => $0952DE => $09DFB4 0953FA 94 00 WRITE.B $00 0953FC 5A PUSH.6 $1A 0953FD 30 01 28 BSR.68K $0128 ; => $0952D8 => $097B5C 095400 80 26 READ.B $26 095402 35 SWITCH 095403 10 07 1A CASE $1A ; SWITCH $095402 095406 71 PUSH.6 $31 095407 30 01 1A BSR.68K $011A ; => $0952F0 => $09E0F6 09540A 10 7F BR $07F ; => $09548B 09540C 10 12 1B CASE $1B ; SWITCH $095402 09540F 80 06 READ.B $06 095411 71 PUSH.6 $31 095412 2A EQ.L 095413 18 09 BRZ $009 ; => $09541E 095415 04 B5 PUSH.10 $0B5 095417 30 01 2A BSR.68K $012A ; => $0952F0 => $09E0F6 09541A 5A PUSH.6 $1A 09541B 30 01 46 BSR.68K $0146 ; => $0952D8 => $097B5C 09541E 10 6B BR $06B ; => $09548B 095420 10 06 1C CASE $1C ; SWITCH $095402 095423 60 PUSH.6 $20 095424 90 26 WRITE.B $26 095426 10 63 BR $063 ; => $09548B 095428 10 60 21 CASE $21 ; SWITCH $095402 09542B 3B 3F B9 99 99 99 99 99 9A PUSH.F $3FB999999999999A ; float = 0.100000 095434 59 PUSH.6 $19 095435 5B PUSH.6 $1B 095436 30 01 55 BSR.68K $0155 ; => $0952E4 => $09E02C 095439 22 MUL.F 09543A 97 09 WRITE.F $09 09543C 87 09 READ.F $09 09543E 3B 3F D3 33 33 33 33 33 33 PUSH.F $3FD3333333333333 ; float = 0.300000 095447 03 21 LT.F 095449 87 09 READ.F $09 09544B 3B 40 2E 00 00 00 00 00 00 PUSH.F $402E000000000000 ; float = 15.000000 095454 24 GT.F 095455 2D OR.L 095456 18 05 BRZ $005 ; => $09545D 095458 30 00 E5 BSR.68K $00E5 ; => $095376 09545B 10 2B BR $02B ; => $095488 09545D 87 09 READ.F $09 09545F D3 28 F5 WRITE.F $28F5 095462 40 PUSH.6 $00 095463 3F 20 20 41 56 45 52 41 47 DISP " AVERAGING TIME ENTERED " 49 4E 47 20 54 49 4D 45 20 20 20 20 20 45 4E 54 45 52 45 44 20 20 20 20 20 095485 4C PUSH.6 $0C 095486 90 21 WRITE.B $21 095488 10 01 BR $001 ; => $09548B 09548A 00 DEFAULT ; SWITCH $095402 09548B 32 0A ADDSP.B $0A 09548D 34 RETURN ; ---------------- End Function $0953C8 ---------------- ; ---------------- Begin 2144 Function $09548E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0954C0:$0954DA ; called from $0955C0:$0955E3 ; addr bytes opcode operands comment 095495 30 01 E4 BSR.68K $01E4 ; => $0952B4 => $0034AA (CLEARSCREEN) (NATIVE) 095498 30 01 DB BSR.68K $01DB ; => $0952C0 => $099642 09549B 40 PUSH.6 $00 09549C 3F 15 4E 55 4D 42 45 52 20 DISP "NUMBER OF POS FIXES" 4F 46 20 50 4F 53 20 20 20 46 49 58 45 53 0954B3 56 PUSH.6 $16 0954B4 44 PUSH.6 $04 0954B5 C3 28 FD READ.F $28FD 0954B8 30 01 D1 BSR.68K $01D1 ; => $0952EA => $097AD2 0954BB 56 PUSH.6 $16 0954BC 90 26 WRITE.B $26 0954BE 34 RETURN ; ---------------- End Function $09548E ---------------- ; ---------------- Begin 2144 Function $0954C0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0955C0:$0955FF ; addr bytes opcode operands comment 0954C7 31 02 SUBSP.B $02 0954C9 80 20 READ.B $20 0954CB 35 SWITCH 0954CC 10 11 02 CASE $02 ; SWITCH $0954CB 0954CF 80 26 READ.B $26 0954D1 56 PUSH.6 $16 0954D2 2A EQ.L 0954D3 18 05 BRZ $005 ; => $0954DA 0954D5 40 PUSH.6 $00 0954D6 90 21 WRITE.B $21 0954D8 10 03 BR $003 ; => $0954DD 0954DA 30 00 4F BSR.68K $004F ; => $09548E 0954DD 10 15 BR $015 ; => $0954F4 0954DF 10 06 04 CASE $04 ; SWITCH $0954CB 0954E2 61 PUSH.6 $21 0954E3 90 26 WRITE.B $26 0954E5 10 0D BR $00D ; => $0954F4 0954E7 00 DEFAULT ; SWITCH $0954CB 0954E8 80 26 READ.B $26 0954EA 5A PUSH.6 $1A 0954EB 03 26 GT.L 0954ED 18 05 BRZ $005 ; => $0954F4 0954EF 30 02 14 BSR.68K $0214 ; => $0952DE => $09DFB4 0954F2 94 00 WRITE.B $00 0954F4 80 26 READ.B $26 0954F6 5A PUSH.6 $1A 0954F7 2A EQ.L 0954F8 18 03 BRZ $003 ; => $0954FD 0954FA 60 PUSH.6 $20 0954FB 90 26 WRITE.B $26 0954FD 80 26 READ.B $26 0954FF 61 PUSH.6 $21 095500 2A EQ.L 095501 18 B9 BRZ $0B9 ; => $0955BC 095503 4C PUSH.6 $0C 095504 90 21 WRITE.B $21 095506 56 PUSH.6 $16 095507 59 PUSH.6 $19 095508 30 02 27 BSR.68K $0227 ; => $0952E4 => $09E02C 09550B D3 28 FD WRITE.F $28FD 09550E 30 02 5D BSR.68K $025D ; => $0952B4 => $0034AA (CLEARSCREEN) (NATIVE) 095511 C3 28 FD READ.F $28FD 095514 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09551D 24 GT.F 09551E 18 50 BRZ $050 ; => $095570 095520 C0 28 FE READ.B $28FE 095523 18 22 BRZ $022 ; => $095547 095525 40 PUSH.6 $00 095526 3F 1D 53 54 41 54 49 43 20 DISP "STATIC POS ONLY DOPAID OFF" 50 4F 53 20 4F 4E 4C 59 20 20 20 20 44 4F 50 41 49 44 20 4F 46 46 095545 10 23 BR $023 ; => $09556A 095547 40 PUSH.6 $00 095548 3F 20 57 41 52 4E 49 4E 47 DISP "WARNING - STATICPOSITIONING ONLY" 20 2D 20 53 54 41 54 49 43 50 4F 53 49 54 49 4F 4E 49 4E 47 20 4F 4E 4C 59 09556A 40 PUSH.6 $00 09556B D0 28 FE WRITE.B $28FE 09556E 10 4C BR $04C ; => $0955BC 095570 C3 28 FD READ.F $28FD 095573 3E PUSH.W $0000 095574 24 GT.F 095575 18 22 BRZ $022 ; => $095599 095577 41 PUSH.6 $01 095578 3F 1D 4E 55 4D 42 45 52 20 DISP "NUMBER OF POS FIXES ENTERED" 4F 46 20 50 4F 53 20 20 20 46 49 58 45 53 20 45 4E 54 45 52 45 44 095597 10 23 BR $023 ; => $0955BC 095599 40 PUSH.6 $00 09559A 3F 20 52 41 4E 47 45 2F 52 DISP "RANGE/RANGE-RATEACQUISITION MODE" 41 4E 47 45 2D 52 41 54 45 41 43 51 55 49 53 49 54 49 4F 4E 20 4D 4F 44 45 0955BC 32 02 ADDSP.B $02 0955BE 34 RETURN ; ---------------- End Function $0954C0 ---------------- ; ---------------- Begin 2144 Function $0955C0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DAF4 ; addr bytes opcode operands comment 0955C7 31 02 SUBSP.B $02 0955C9 80 22 READ.B $22 0955CB 35 SWITCH 0955CC 10 26 00 CASE $00 ; SWITCH $0955CB 0955CF 80 20 READ.B $20 0955D1 35 SWITCH 0955D2 10 09 10 CASE $10 ; SWITCH $0955D1 0955D5 41 PUSH.6 $01 0955D6 90 22 WRITE.B $22 0955D8 30 02 65 BSR.68K $0265 ; => $095376 0955DB 10 15 BR $015 ; => $0955F2 0955DD 10 09 50 CASE $50 ; SWITCH $0955D1 0955E0 42 PUSH.6 $02 0955E1 90 22 WRITE.B $22 0955E3 30 01 58 BSR.68K $0158 ; => $09548E 0955E6 10 0A BR $00A ; => $0955F2 0955E8 20 04 90 D0 CASE $90, $D0 ; SWITCH $0955D1 0955EC 10 04 BR $004 ; => $0955F2 0955EE 00 DEFAULT ; SWITCH $0955D1 0955EF 30 02 FC BSR.68K $02FC ; => $0952F6 => $09D9DE 0955F2 10 11 BR $011 ; => $095605 0955F4 10 06 01 CASE $01 ; SWITCH $0955CB 0955F7 30 02 32 BSR.68K $0232 ; => $0953C8 0955FA 10 09 BR $009 ; => $095605 0955FC 10 06 02 CASE $02 ; SWITCH $0955CB 0955FF 30 01 42 BSR.68K $0142 ; => $0954C0 095602 10 01 BR $001 ; => $095605 095604 00 DEFAULT ; SWITCH $0955CB 095605 32 02 ADDSP.B $02 095607 34 RETURN ; ---------------- End Function $0955C0 ---------------- ; ---------------- Begin 2144 Function $095608 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09565E:$09568A ; called from $09565E:$09572E ; called from $09565E:$095757 ; called from $09587C:$0958F2 ; called from $09B6FE:$09B783 ; addr bytes opcode operands comment 09560F 30 03 52 BSR.68K $0352 ; => $0952C0 => $099642 095612 40 PUSH.6 $00 095613 3F 20 20 53 59 4E 43 20 20 DISP " SYNC INTERVAL SECONDS " 49 4E 54 45 52 56 41 4C 20 20 20 20 20 20 20 20 53 45 43 4F 4E 44 53 20 20 095635 86 03 READ.L $03 095637 40 PUSH.6 $00 095638 2A EQ.L 095639 18 0C BRZ $00C ; => $095647 09563B 51 PUSH.6 $11 09563C 44 PUSH.6 $04 09563D C1 29 0F READ.W $290F 095640 03 2A LONG2FLOAT 095642 30 03 5B BSR.68K $035B ; => $0952EA => $097AD2 095645 10 0D BR $00D ; => $095654 095647 51 PUSH.6 $11 095648 44 PUSH.6 $04 095649 C0 32 D5 READ.B $32D5 09564C E1 33 D5 READ.W $33D5 09564F 03 2A LONG2FLOAT 095651 30 03 6A BSR.68K $036A ; => $0952EA => $097AD2 095654 53 PUSH.6 $13 095655 30 03 80 BSR.68K $0380 ; => $0952D8 => $097B5C 095658 51 PUSH.6 $11 095659 90 26 WRITE.B $26 09565B 32 04 ADDSP.B $04 09565D 34 RETURN ; ---------------- End Function $095608 ---------------- ; ---------------- Begin 2144 Function $09565E ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09C2AA:$09C30B ; called from $09DA58:$09DB05 ; addr bytes opcode operands comment 095665 31 06 SUBSP.B $06 095667 80 20 READ.B $20 095669 35 SWITCH 09566A 10 23 02 CASE $02 ; SWITCH $095669 09566D 80 26 READ.B $26 09566F 51 PUSH.6 $11 095670 2A EQ.L 095671 18 15 BRZ $015 ; => $095688 095673 86 03 READ.L $03 095675 40 PUSH.6 $00 095676 2A EQ.L 095677 18 05 BRZ $005 ; => $09567E 095679 40 PUSH.6 $00 09567A 90 21 WRITE.B $21 09567C 10 08 BR $008 ; => $095686 09567E 42 PUSH.6 $02 09567F 90 23 WRITE.B $23 095681 30 03 7C BSR.68K $037C ; => $095308 => $09B9B8 095684 11 34 BR $134 ; => $0957BA 095686 10 05 BR $005 ; => $09568D 095688 86 03 READ.L $03 09568A 30 00 85 BSR.68K $0085 ; => $095608 09568D 10 38 BR $038 ; => $0956C7 09568F 10 06 04 CASE $04 ; SWITCH $095669 095692 61 PUSH.6 $21 095693 90 26 WRITE.B $26 095695 10 30 BR $030 ; => $0956C7 095697 10 1A 10 CASE $10 ; SWITCH $095669 09569A 80 26 READ.B $26 09569C 35 SWITCH 09569D 10 03 11 CASE $11 ; SWITCH $09569C 0956A0 10 0F BR $00F ; => $0956B1 0956A2 10 06 20 CASE $20 ; SWITCH $09569C 0956A5 54 PUSH.6 $14 0956A6 90 26 WRITE.B $26 0956A8 10 07 BR $007 ; => $0956B1 0956AA 00 DEFAULT ; SWITCH $09569C 0956AB 80 26 READ.B $26 0956AD 41 PUSH.6 $01 0956AE 28 SUB.L 0956AF 90 26 WRITE.B $26 0956B1 10 14 BR $014 ; => $0956C7 0956B3 20 11 50 D0 CASE $50, $D0 ; SWITCH $095669 0956B7 80 26 READ.B $26 0956B9 54 PUSH.6 $14 0956BA 03 26 GT.L 0956BC 18 06 BRZ $006 ; => $0956C4 0956BE 80 26 READ.B $26 0956C0 41 PUSH.6 $01 0956C1 27 ADD.L 0956C2 90 26 WRITE.B $26 0956C4 10 01 BR $001 ; => $0956C7 0956C6 00 DEFAULT ; SWITCH $095669 0956C7 80 26 READ.B $26 0956C9 55 PUSH.6 $15 0956CA 03 26 GT.L 0956CC 18 05 BRZ $005 ; => $0956D3 0956CE 30 03 F3 BSR.68K $03F3 ; => $0952DE => $09DFB4 0956D1 94 04 WRITE.B $04 0956D3 80 26 READ.B $26 0956D5 35 SWITCH 0956D6 10 07 14 CASE $14 ; SWITCH $0956D5 0956D9 53 PUSH.6 $13 0956DA 30 04 05 BSR.68K $0405 ; => $0952D8 => $097B5C 0956DD 10 DB BR $0DB ; => $0957BA 0956DF 10 06 15 CASE $15 ; SWITCH $0956D5 0956E2 60 PUSH.6 $20 0956E3 90 26 WRITE.B $26 0956E5 10 D3 BR $0D3 ; => $0957BA 0956E7 10 D0 21 CASE $21 ; SWITCH $0956D5 0956EA 51 PUSH.6 $11 0956EB 54 PUSH.6 $14 0956EC 30 04 0B BSR.68K $040B ; => $0952E4 => $09E02C 0956EF 03 29 FLOAT2LONG 0956F1 95 07 WRITE.W $07 0956F3 86 03 READ.L $03 0956F5 40 PUSH.6 $00 0956F6 2A EQ.L 0956F7 18 03 BRZ $003 ; => $0956FC 0956F9 54 PUSH.6 $14 0956FA 10 0E BR $00E ; => $09570A 0956FC C0 29 8F READ.B $298F 0956FF C0 29 90 READ.B $2990 095702 2E NOT.L 095703 2C AND.L 095704 18 03 BRZ $003 ; => $095709 095706 72 PUSH.6 $32 095707 10 01 BR $001 ; => $09570A 095709 54 PUSH.6 $14 09570A 94 08 WRITE.B $08 09570C 85 07 READ.W $07 09570E 3C 17 70 PUSH.W $1770 095711 03 25 LT.L 095713 18 1E BRZ $01E ; => $095733 095715 86 03 READ.L $03 095717 40 PUSH.6 $00 095718 2A EQ.L 095719 18 08 BRZ $008 ; => $095723 09571B 3C 17 70 PUSH.W $1770 09571E D1 29 0F WRITE.W $290F 095721 10 09 BR $009 ; => $09572C 095723 C0 32 D5 READ.B $32D5 095726 3C 17 70 PUSH.W $1770 095729 F1 33 D5 WRITE.W $33D5 09572C 86 03 READ.L $03 09572E 30 01 29 BSR.68K $0129 ; => $095608 095731 10 84 BR $084 ; => $0957B7 095733 85 07 READ.W $07 095735 40 PUSH.6 $00 095736 03 25 LT.L 095738 85 07 READ.W $07 09573A 84 08 READ.B $08 09573C 03 26 GT.L 09573E 2C AND.L 09573F 18 1B BRZ $01B ; => $09575C 095741 86 03 READ.L $03 095743 40 PUSH.6 $00 095744 2A EQ.L 095745 18 06 BRZ $006 ; => $09574D 095747 54 PUSH.6 $14 095748 D1 29 0F WRITE.W $290F 09574B 10 08 BR $008 ; => $095755 09574D C0 32 D5 READ.B $32D5 095750 84 08 READ.B $08 095752 F1 33 D5 WRITE.W $33D5 095755 86 03 READ.L $03 095757 30 01 52 BSR.68K $0152 ; => $095608 09575A 10 5B BR $05B ; => $0957B7 09575C 86 03 READ.L $03 09575E 40 PUSH.6 $00 09575F 2A EQ.L 095760 18 47 BRZ $047 ; => $0957A9 095762 85 07 READ.W $07 095764 D1 29 0F WRITE.W $290F 095767 30 04 B6 BSR.68K $04B6 ; => $0952B4 => $0034AA (CLEARSCREEN) (NATIVE) 09576A 85 07 READ.W $07 09576C 40 PUSH.6 $00 09576D 03 25 LT.L 09576F 18 1A BRZ $01A ; => $09578B 095771 47 PUSH.6 $07 095772 3F 08 53 45 43 20 53 59 4E DISP "SEC SYNC" 43 09577C 42 PUSH.6 $02 09577D 44 PUSH.6 $04 09577E 85 07 READ.W $07 095780 03 2A LONG2FLOAT 095782 30 04 9B BSR.68K $049B ; => $0952EA => $097AD2 095785 44 PUSH.6 $04 095786 30 04 B1 BSR.68K $04B1 ; => $0952D8 => $097B5C 095789 10 0A BR $00A ; => $095795 09578B 45 PUSH.6 $05 09578C 3F 07 4E 4F 20 53 59 4E 43 DISP "NO SYNC" 095795 52 PUSH.6 $12 095796 3F 0C 57 49 4C 4C 20 42 45 DISP "WILL BE USED" 20 55 53 45 44 0957A4 4C PUSH.6 $0C 0957A5 90 21 WRITE.B $21 0957A7 10 0E BR $00E ; => $0957B7 0957A9 C0 32 D5 READ.B $32D5 0957AC 85 07 READ.W $07 0957AE F1 33 D5 WRITE.W $33D5 0957B1 4B PUSH.6 $0B 0957B2 90 23 WRITE.B $23 0957B4 30 04 B5 BSR.68K $04B5 ; => $095302 => $09B5DC 0957B7 10 01 BR $001 ; => $0957BA 0957B9 00 DEFAULT ; SWITCH $0956D5 0957BA 32 0A ADDSP.B $0A 0957BC 34 RETURN ; ---------------- End Function $09565E ---------------- ; ---------------- Begin 2144 Function $0957BE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $095802:$095860 ; called from $095802:$09586C ; called from $09587C:$0958FD ; addr bytes opcode operands comment 0957C5 30 05 08 BSR.68K $0508 ; => $0952C0 => $099642 0957C8 30 05 17 BSR.68K $0517 ; => $0952B4 => $0034AA (CLEARSCREEN) (NATIVE) 0957CB 40 PUSH.6 $00 0957CC 3F 20 20 44 4F 50 50 4C 45 DISP " DOPPLER AIDING ON OFF " 52 20 41 49 44 49 4E 47 20 20 20 4F 4E 20 20 20 20 20 20 20 20 4F 46 46 20 0957EE C0 28 FE READ.B $28FE 0957F1 18 05 BRZ $005 ; => $0957F8 0957F3 6A PUSH.6 $2A 0957F4 90 0E WRITE.B $0E 0957F6 10 03 BR $003 ; => $0957FB 0957F8 6A PUSH.6 $2A 0957F9 90 04 WRITE.B $04 0957FB 43 PUSH.6 $03 0957FC 90 2B WRITE.B $2B 0957FE 4E PUSH.6 $0E 0957FF 90 2E WRITE.B $2E 095801 34 RETURN ; ---------------- End Function $0957BE ---------------- ; ---------------- Begin 2144 Function $095802 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DAFC ; addr bytes opcode operands comment 095809 80 20 READ.B $20 09580B 35 SWITCH 09580C 20 07 04 02 CASE $04, $02 ; SWITCH $09580B 095810 40 PUSH.6 $00 095811 90 21 WRITE.B $21 095813 10 66 BR $066 ; => $09587B 095815 10 4E 10 CASE $10 ; SWITCH $09580B 095818 04 FF PUSH.10 $0FF 09581A D0 28 FE WRITE.B $28FE 09581D C3 28 FD READ.F $28FD 095820 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 095829 24 GT.F 09582A 18 34 BRZ $034 ; => $095860 09582C 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 095835 D3 28 FD WRITE.F $28FD 095838 40 PUSH.6 $00 095839 3F 20 20 44 4F 50 20 41 49 DISP " DOP AIDING ON POSAVG SET TO 1 " 44 49 4E 47 20 4F 4E 20 20 50 4F 53 41 56 47 20 53 45 54 20 54 4F 20 31 20 09585B 4C PUSH.6 $0C 09585C 90 21 WRITE.B $21 09585E 10 03 BR $003 ; => $095863 095860 30 00 A5 BSR.68K $00A5 ; => $0957BE 095863 10 16 BR $016 ; => $09587B 095865 10 0A D0 CASE $D0 ; SWITCH $09580B 095868 40 PUSH.6 $00 095869 D0 28 FE WRITE.B $28FE 09586C 30 00 B1 BSR.68K $00B1 ; => $0957BE 09586F 10 0A BR $00A ; => $09587B 095871 20 04 50 90 CASE $50, $90 ; SWITCH $09580B 095875 10 04 BR $004 ; => $09587B 095877 00 DEFAULT ; SWITCH $09580B 095878 30 05 85 BSR.68K $0585 ; => $0952F6 => $09D9DE 09587B 34 RETURN ; ---------------- End Function $095802 ---------------- ; ---------------- Begin 2144 Function $09587C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DAD4 ; addr bytes opcode operands comment 095883 31 02 SUBSP.B $02 095885 80 20 READ.B $20 095887 35 SWITCH 095888 10 30 10 CASE $10 ; SWITCH $095887 09588B 30 05 DA BSR.68K $05DA ; => $0952B4 => $0034AA (CLEARSCREEN) (NATIVE) 09588E 54 PUSH.6 $14 09588F 90 21 WRITE.B $21 095891 40 PUSH.6 $00 095892 3F 14 20 20 20 53 45 4C 45 DISP " SELECT AUTO" 43 54 20 20 20 20 20 20 20 41 55 54 4F 0958A8 C0 28 FF READ.B $28FF 0958AB 18 03 BRZ $003 ; => $0958B0 0958AD 54 PUSH.6 $14 0958AE 10 01 BR $001 ; => $0958B1 0958B0 49 PUSH.6 $09 0958B1 94 00 WRITE.B $00 0958B3 84 00 READ.B $00 0958B5 3F 01 2A DISP "*" 0958B8 10 4C BR $04C ; => $095906 0958BA 10 2F 50 CASE $50 ; SWITCH $095887 0958BD 6F PUSH.6 $2F 0958BE 90 21 WRITE.B $21 0958C0 40 PUSH.6 $00 0958C1 90 22 WRITE.B $22 0958C3 30 06 06 BSR.68K $0606 ; => $0952C0 => $099642 0958C6 40 PUSH.6 $00 0958C7 3F 20 20 20 20 20 50 4F 53 DISP " POSAVG SVAVG " 41 56 47 20 20 20 20 20 20 53 56 41 56 47 20 20 20 20 20 20 20 20 20 20 20 0958E9 10 1B BR $01B ; => $095906 0958EB 10 0A 90 CASE $90 ; SWITCH $095887 0958EE 6A PUSH.6 $2A 0958EF 90 21 WRITE.B $21 0958F1 40 PUSH.6 $00 0958F2 30 02 ED BSR.68K $02ED ; => $095608 0958F5 10 0F BR $00F ; => $095906 0958F7 10 09 D0 CASE $D0 ; SWITCH $095887 0958FA 69 PUSH.6 $29 0958FB 90 21 WRITE.B $21 0958FD 30 01 42 BSR.68K $0142 ; => $0957BE 095900 10 04 BR $004 ; => $095906 095902 00 DEFAULT ; SWITCH $095887 095903 30 06 10 BSR.68K $0610 ; => $0952F6 => $09D9DE 095906 32 02 ADDSP.B $02 095908 34 RETURN ; ---------------- End Function $09587C ---------------- ; ---------------- Begin 2144 Function $09590A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DA7C ; addr bytes opcode operands comment 095911 31 02 SUBSP.B $02 095913 80 20 READ.B $20 095915 35 SWITCH 095916 10 3B 90 CASE $90 ; SWITCH $095915 095919 66 PUSH.6 $26 09591A 90 21 WRITE.B $21 09591C 30 06 6B BSR.68K $066B ; => $0952B4 => $0034AA (CLEARSCREEN) (NATIVE) 09591F 40 PUSH.6 $00 095920 3F 14 20 20 20 53 45 4C 45 DISP " SELECT AUTO" 43 54 20 20 20 20 20 20 20 41 55 54 4F 095936 C0 29 11 READ.B $2911 095939 18 03 BRZ $003 ; => $09593E 09593B 49 PUSH.6 $09 09593C 10 01 BR $001 ; => $09593F 09593E 54 PUSH.6 $14 09593F 94 00 WRITE.B $00 095941 84 00 READ.B $00 095943 3F 01 2A DISP "*" 095946 6F PUSH.6 $2F 095947 40 PUSH.6 $00 095948 40 PUSH.6 $00 095949 40 PUSH.6 $00 09594A 40 PUSH.6 $00 09594B 40 PUSH.6 $00 09594C 40 PUSH.6 $00 09594D 40 PUSH.6 $00 09594E 30 06 97 BSR.68K $0697 ; => $0952BA => $099614 095951 10 67 BR $067 ; => $0959BA 095953 10 29 50 CASE $50 ; SWITCH $095915 095956 52 PUSH.6 $12 095957 90 21 WRITE.B $21 095959 40 PUSH.6 $00 09595A 3F 20 20 20 20 20 41 56 47 DISP " AVG DOPAIDSVSEL SYNC " 20 20 20 44 4F 50 41 49 44 53 56 53 45 4C 20 20 20 53 59 4E 43 20 20 20 20 09597C 10 3C BR $03C ; => $0959BA 09597E 10 29 10 CASE $10 ; SWITCH $095915 095981 48 PUSH.6 $08 095982 90 21 WRITE.B $21 095984 40 PUSH.6 $00 095985 3F 20 20 20 20 20 53 56 27 DISP " SV'S DATAMASKS DBASE " 53 20 20 20 20 44 41 54 41 4D 41 53 4B 53 20 20 20 44 42 41 53 45 20 20 20 0959A7 10 11 BR $011 ; => $0959BA 0959A9 10 0B D0 CASE $D0 ; SWITCH $095915 0959AC C0 29 8C READ.B $298C 0959AF 18 03 BRZ $003 ; => $0959B4 0959B1 30 06 B8 BSR.68K $06B8 ; => $0952FC => $09807A 0959B4 10 04 BR $004 ; => $0959BA 0959B6 00 DEFAULT ; SWITCH $095915 0959B7 30 06 C4 BSR.68K $06C4 ; => $0952F6 => $09D9DE 0959BA 32 02 ADDSP.B $02 0959BC 34 RETURN ; ---------------- End Function $09590A ---------------- ; ---------------- Begin 2144 Function $0959BE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D9DE:$09D9F6 ; called from $0A0AE4:$0A0B26 ; addr bytes opcode operands comment 0959C5 30 07 14 BSR.68K $0714 ; => $0952B4 => $0034AA (CLEARSCREEN) (NATIVE) 0959C8 C0 56 6D READ.B $566D 0959CB C0 4E 69 READ.B $4E69 0959CE 2E NOT.L 0959CF 2C AND.L 0959D0 18 45 BRZ $045 ; => $095A17 0959D2 4C PUSH.6 $0C 0959D3 90 21 WRITE.B $21 0959D5 C0 33 70 READ.B $3370 0959D8 41 PUSH.6 $01 0959D9 2A EQ.L 0959DA 18 15 BRZ $015 ; => $0959F1 0959DC 40 PUSH.6 $00 0959DD 3F 10 4C 4F 47 47 49 4E 47 DISP "LOGGING STARTED-" 20 53 54 41 52 54 45 44 2D 0959EF 10 13 BR $013 ; => $095A04 0959F1 40 PUSH.6 $00 0959F2 3F 10 53 55 52 56 45 59 20 DISP "SURVEY STARTED -" 53 54 41 52 54 45 44 20 2D 095A04 50 PUSH.6 $10 095A05 3F 0E 43 4F 4E 54 52 4F 4C DISP "CONTROL LOCKED" 20 4C 4F 43 4B 45 44 095A15 10 70 BR $070 ; => $095A87 095A17 C0 56 6C READ.B $566C 095A1A 2E NOT.L 095A1B C0 29 93 READ.B $2993 095A1E 2C AND.L 095A1F C0 4E 69 READ.B $4E69 095A22 2E NOT.L 095A23 2C AND.L 095A24 18 26 BRZ $026 ; => $095A4C 095A26 4C PUSH.6 $0C 095A27 90 21 WRITE.B $21 095A29 40 PUSH.6 $00 095A2A 3F 1E 49 4E 20 46 49 45 4C DISP "IN FIELD MODE - CONTROL LOCKED" 44 20 4D 4F 44 45 20 2D 20 43 4F 4E 54 52 4F 4C 20 4C 4F 43 4B 45 44 095A4A 10 3B BR $03B ; => $095A87 095A4C C0 29 58 READ.B $2958 095A4F 18 30 BRZ $030 ; => $095A81 095A51 43 PUSH.6 $03 095A52 90 21 WRITE.B $21 095A54 42 PUSH.6 $02 095A55 3F 1B 50 4F 53 44 45 54 20 DISP "POSDET GENRL SEARCH" 20 20 20 20 20 20 20 47 45 4E 52 4C 20 20 53 45 41 52 43 48 095A72 C0 29 8C READ.B $298C 095A75 18 08 BRZ $008 ; => $095A7F 095A77 4B PUSH.6 $0B 095A78 3F 05 46 49 4C 45 53 DISP "FILES" 095A7F 10 06 BR $006 ; => $095A87 095A81 5F PUSH.6 $1F 095A82 90 21 WRITE.B $21 095A84 30 07 C1 BSR.68K $07C1 ; => $0952C6 => $0A0AC0 095A87 34 RETURN ; ---------------- End Function $0959BE ---------------- ; ---------------- Begin 2144 Function $095C50 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AF634:$0AF69A ; addr bytes opcode operands comment 095C57 31 78 SUBSP.B $78 095C59 C0 29 10 READ.B $2910 095C5C 42 PUSH.6 $02 095C5D 29 MUL.L 095C5E 94 02 WRITE.B $02 095C60 84 02 READ.B $02 095C62 03 2A LONG2FLOAT 095C64 97 2F WRITE.F $2F 095C66 84 02 READ.B $02 095C68 41 PUSH.6 $01 095C69 28 SUB.L 095C6A 94 00 WRITE.B $00 095C6C 84 00 READ.B $00 095C6E 84 00 READ.B $00 095C70 41 PUSH.6 $01 095C71 27 ADD.L 095C72 29 MUL.L 095C73 42 PUSH.6 $02 095C74 03 24 DIV.L 095C76 03 2A LONG2FLOAT 095C78 97 27 WRITE.F $27 095C7A 84 00 READ.B $00 095C7C 84 00 READ.B $00 095C7E 41 PUSH.6 $01 095C7F 27 ADD.L 095C80 29 MUL.L 095C81 42 PUSH.6 $02 095C82 84 00 READ.B $00 095C84 29 MUL.L 095C85 41 PUSH.6 $01 095C86 27 ADD.L 095C87 29 MUL.L 095C88 46 PUSH.6 $06 095C89 03 24 DIV.L 095C8B 03 2A LONG2FLOAT 095C8D 97 1F WRITE.F $1F 095C8F 84 00 READ.B $00 095C91 84 00 READ.B $00 095C93 29 MUL.L 095C94 95 05 WRITE.W $05 095C96 85 05 READ.W $05 095C98 84 00 READ.B $00 095C9A 41 PUSH.6 $01 095C9B 27 ADD.L 095C9C 29 MUL.L 095C9D 84 00 READ.B $00 095C9F 41 PUSH.6 $01 095CA0 27 ADD.L 095CA1 29 MUL.L 095CA2 44 PUSH.6 $04 095CA3 03 24 DIV.L 095CA5 03 2A LONG2FLOAT 095CA7 97 17 WRITE.F $17 095CA9 85 05 READ.W $05 095CAB 84 00 READ.B $00 095CAD 29 MUL.L 095CAE 95 07 WRITE.W $07 095CB0 84 00 READ.B $00 095CB2 46 PUSH.6 $06 095CB3 85 07 READ.W $07 095CB5 29 MUL.L 095CB6 84 00 READ.B $00 095CB8 29 MUL.L 095CB9 4F PUSH.6 $0F 095CBA 85 07 READ.W $07 095CBC 29 MUL.L 095CBD 27 ADD.L 095CBE 4A PUSH.6 $0A 095CBF 85 05 READ.W $05 095CC1 29 MUL.L 095CC2 27 ADD.L 095CC3 41 PUSH.6 $01 095CC4 28 SUB.L 095CC5 29 MUL.L 095CC6 5E PUSH.6 $1E 095CC7 03 24 DIV.L 095CC9 03 2A LONG2FLOAT 095CCB 97 0F WRITE.F $0F 095CCD 40 PUSH.6 $00 095CCE 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 095CD1 42 PUSH.6 $02 095CD2 38 00 22 BLS.B $0022 ; => $095CF7 095CD5 40 PUSH.6 $00 095CD6 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 095CD9 42 PUSH.6 $02 095CDA 38 00 15 BLS.B $0015 ; => $095CF2 095CDD 84 00 READ.B $00 095CDF 43 PUSH.6 $03 095CE0 29 MUL.L 095CE1 84 01 READ.B $01 095CE3 27 ADD.L 095CE4 84 00 READ.B $00 095CE6 84 01 READ.B $01 095CE8 27 ADD.L 095CE9 A7 2F READ.F $2F 095CEB B7 77 WRITE.F $77 095CED 37 10 01 00 19 _23d2 $0001, $0019 095CF2 37 10 00 00 26 _23d2 $0000, $0026 095CF7 09 00 77 00 48 ?_$09 $0077, $0048 095CFC 30 00 E5 BSR.68K $00E5 ; => $095C1A => $00398A 095CFF 0C 69 35 00 48 ?_$0C $6935, $0048 095D04 32 78 ADDSP.B $78 095D06 34 RETURN ; ---------------- End Function $095C50 ---------------- ; ---------------- Begin 2144 Function $095D08 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0AF722:$0AF7CA ; addr bytes opcode operands comment 095D0F 31 8E SUBSP.B $8E 095D11 41 PUSH.6 $01 095D12 4A PUSH.6 $0A 095D13 29 MUL.L 095D14 86 03 READ.L $03 095D16 27 ADD.L 095D17 40 PUSH.6 $00 095D18 4A PUSH.6 $0A 095D19 29 MUL.L 095D1A 86 03 READ.L $03 095D1C 27 ADD.L 095D1D E3 66 61 READ.F $6661 095D20 F3 66 61 WRITE.F $6661 095D23 40 PUSH.6 $00 095D24 4A PUSH.6 $0A 095D25 29 MUL.L 095D26 86 03 READ.L $03 095D28 27 ADD.L 095D29 86 03 READ.L $03 095D2B E3 4B 73 READ.F $4B73 095D2E F3 66 61 WRITE.F $6661 095D31 86 03 READ.L $03 095D33 E3 47 61 READ.F $4761 095D36 3E PUSH.W $0000 095D37 03 23 NEQ.F 095D39 18 13 BRZ $013 ; => $095D4E 095D3B 86 03 READ.L $03 095D3D E3 47 61 READ.F $4761 095D40 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 095D49 21 SUB.F 095D4A 97 5D WRITE.F $5D 095D4C 10 03 BR $003 ; => $095D51 095D4E 3E PUSH.W $0000 095D4F 97 5D WRITE.F $5D 095D51 C0 35 92 READ.B $3592 095D54 86 03 READ.L $03 095D56 C0 29 9B READ.B $299B 095D59 03 25 LT.L 095D5B 2C AND.L 095D5C 18 23 BRZ $023 ; => $095D81 095D5E C0 35 C4 READ.B $35C4 095D61 18 10 BRZ $010 ; => $095D73 095D63 87 5D READ.F $5D 095D65 03 20 NEG.W 095D67 3B 3F EF 40 00 00 00 00 00 PUSH.F $3FEF400000000000 ; float = 0.976562 095D70 21 SUB.F 095D71 10 0C BR $00C ; => $095D7F 095D73 87 5D READ.F $5D 095D75 3B 3F EF 40 00 00 00 00 00 PUSH.F $3FEF400000000000 ; float = 0.976562 095D7E 21 SUB.F 095D7F 10 02 BR $002 ; => $095D83 095D81 87 5D READ.F $5D 095D83 97 65 WRITE.F $65 095D85 86 03 READ.L $03 095D87 C0 29 9B READ.B $299B 095D8A 03 25 LT.L 095D8C 18 1A BRZ $01A ; => $095DA8 095D8E 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 095D97 3B 41 E2 4A EC 20 00 00 00 PUSH.F $41E24AEC20000000 ; float = 2455200000.000000 095DA0 87 5D READ.F $5D 095DA2 20 ADD.F 095DA3 23 DIV.F 095DA4 97 55 WRITE.F $55 095DA6 10 18 BR $018 ; => $095DC0 095DA8 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 095DB1 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 095DBA 87 5D READ.F $5D 095DBC 20 ADD.F 095DBD 23 DIV.F 095DBE 97 55 WRITE.F $55 095DC0 3B 40 10 00 00 00 00 00 00 PUSH.F $4010000000000000 ; float = 4.000000 095DC9 87 65 READ.F $65 095DCB 3B 3E B0 66 67 6C CC D6 79 PUSH.F $3EB066676CCCD679 ; float = 0.000001 095DD4 22 MUL.F 095DD5 20 ADD.F 095DD6 3B 40 43 33 33 33 33 33 33 PUSH.F $4043333333333333 ; float = 38.400000 095DDF 23 DIV.F 095DE0 97 75 WRITE.F $75 095DE2 C0 29 10 READ.B $2910 095DE5 42 PUSH.6 $02 095DE6 29 MUL.L 095DE7 94 06 WRITE.B $06 095DE9 84 06 READ.B $06 095DEB 41 PUSH.6 $01 095DEC 28 SUB.L 095DED 94 04 WRITE.B $04 095DEF 3E PUSH.W $0000 095DF0 97 0F WRITE.F $0F 095DF2 3E PUSH.W $0000 095DF3 97 17 WRITE.F $17 095DF5 3E PUSH.W $0000 095DF6 97 1F WRITE.F $1F 095DF8 40 PUSH.6 $00 095DF9 94 4C WRITE.B $4C 095DFB 40 PUSH.6 $00 095DFC 36 90 4B _2362 $004B ; A0 = $004000; (A0) = A6 + $0 095DFF 84 04 READ.B $04 095E01 38 80 9F BLS.L $009F ; => $095EA3 095E04 84 4C READ.B $4C 095E06 E0 51 FF READ.B $51FF 095E09 05 00 PUSH.10 $100 095E0B 29 MUL.L 095E0C 84 4C READ.B $4C 095E0E 41 PUSH.6 $01 095E0F 27 ADD.L 095E10 E0 51 FF READ.B $51FF 095E13 27 ADD.L 095E14 05 00 PUSH.10 $100 095E16 29 MUL.L 095E17 84 4C READ.B $4C 095E19 42 PUSH.6 $02 095E1A 27 ADD.L 095E1B E0 51 FF READ.B $51FF 095E1E 27 ADD.L 095E1F 96 91 WRITE.L $91 095E21 84 4C READ.B $4C 095E23 E0 51 FF READ.B $51FF 095E26 04 80 PUSH.10 $080 095E28 2C AND.L 095E29 04 80 PUSH.10 $080 095E2B 2A EQ.L 095E2C 18 10 BRZ $010 ; => $095E3E 095E2E 3D 01 00 00 00 PUSH.L $01000000 095E33 86 91 READ.L $91 095E35 28 SUB.L 095E36 03 2A LONG2FLOAT 095E38 03 20 NEG.W 095E3A 97 85 WRITE.F $85 095E3C 10 06 BR $006 ; => $095E44 095E3E 86 91 READ.L $91 095E40 03 2A LONG2FLOAT 095E42 97 85 WRITE.F $85 095E44 C0 35 92 READ.B $3592 095E47 40 PUSH.6 $00 095E48 2A EQ.L 095E49 18 0E BRZ $00E ; => $095E59 095E4B 86 03 READ.L $03 095E4D E0 4B 87 READ.B $4B87 095E50 2E NOT.L 095E51 18 06 BRZ $006 ; => $095E59 095E53 87 85 READ.F $85 095E55 03 20 NEG.W 095E57 97 85 WRITE.F $85 095E59 84 4C READ.B $4C 095E5B 43 PUSH.6 $03 095E5C 27 ADD.L 095E5D E0 51 FF READ.B $51FF 095E60 84 4C READ.B $4C 095E62 44 PUSH.6 $04 095E63 27 ADD.L 095E64 E0 51 FF READ.B $51FF 095E67 30 02 44 BSR.68K $0244 ; => $095C26 => $09CCFA 095E6A 87 75 READ.F $75 095E6C 22 MUL.F 095E6D 97 8D WRITE.F $8D 095E6F 87 85 READ.F $85 095E71 87 8D READ.F $8D 095E73 20 ADD.F 095E74 97 47 WRITE.F $47 095E76 87 0F READ.F $0F 095E78 87 47 READ.F $47 095E7A 20 ADD.F 095E7B 97 0F WRITE.F $0F 095E7D 87 17 READ.F $17 095E7F 86 4B READ.L $4B 095E81 03 2A LONG2FLOAT 095E83 87 47 READ.F $47 095E85 22 MUL.F 095E86 20 ADD.F 095E87 97 17 WRITE.F $17 095E89 87 1F READ.F $1F 095E8B 86 4B READ.L $4B 095E8D 86 4B READ.L $4B 095E8F 29 MUL.L 095E90 03 2A LONG2FLOAT 095E92 87 47 READ.F $47 095E94 22 MUL.F 095E95 20 ADD.F 095E96 97 1F WRITE.F $1F 095E98 84 4C READ.B $4C 095E9A 45 PUSH.6 $05 095E9B 27 ADD.L 095E9C 94 4C WRITE.B $4C 095E9E 37 90 4B 00 A4 _23d2 $004B, $00A4 095EA3 40 PUSH.6 $00 095EA4 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 095EA7 42 PUSH.6 $02 095EA8 38 00 2F BLS.B $002F ; => $095EDA 095EAB 84 04 READ.B $04 095EAD 84 04 READ.B $04 095EAF 43 PUSH.6 $03 095EB0 29 MUL.L 095EB1 40 PUSH.6 $00 095EB2 27 ADD.L 095EB3 E3 69 35 READ.F $6935 095EB6 87 0F READ.F $0F 095EB8 22 MUL.F 095EB9 84 04 READ.B $04 095EBB 43 PUSH.6 $03 095EBC 29 MUL.L 095EBD 41 PUSH.6 $01 095EBE 27 ADD.L 095EBF E3 69 35 READ.F $6935 095EC2 87 17 READ.F $17 095EC4 22 MUL.F 095EC5 20 ADD.F 095EC6 84 04 READ.B $04 095EC8 43 PUSH.6 $03 095EC9 29 MUL.L 095ECA 42 PUSH.6 $02 095ECB 27 ADD.L 095ECC E3 69 35 READ.F $6935 095ECF 87 1F READ.F $1F 095ED1 22 MUL.F 095ED2 20 ADD.F 095ED3 B7 37 WRITE.F $37 095ED5 37 10 04 00 33 _23d2 $0004, $0033 095EDA 84 06 READ.B $06 095EDC 41 PUSH.6 $01 095EDD 28 SUB.L 095EDE 03 2A LONG2FLOAT 095EE0 3B 40 00 00 00 00 00 00 00 PUSH.F $4000000000000000 ; float = 2.000000 095EE9 23 DIV.F 095EEA 97 3F WRITE.F $3F 095EEC 87 37 READ.F $37 095EEE 87 2F READ.F $2F 095EF0 87 3F READ.F $3F 095EF2 22 MUL.F 095EF3 20 ADD.F 095EF4 87 27 READ.F $27 095EF6 87 3F READ.F $3F 095EF8 22 MUL.F 095EF9 87 3F READ.F $3F 095EFB 22 MUL.F 095EFC 20 ADD.F 095EFD 3B 40 60 20 00 00 00 00 00 PUSH.F $4060200000000000 ; float = 129.000000 095F06 23 DIV.F 095F07 97 7D WRITE.F $7D 095F09 87 2F READ.F $2F 095F0B 3B 3F AF 01 FC 07 E7 99 C6 PUSH.F $3FAF01FC07E799C6 ; float = 0.060562 095F14 22 MUL.F 095F15 97 2F WRITE.F $2F 095F17 87 27 READ.F $27 095F19 3B 3F DE 47 F0 1F B9 E3 FA PUSH.F $3FDE47F01FB9E3FA ; float = 0.473141 095F22 22 MUL.F 095F23 97 27 WRITE.F $27 095F25 86 03 READ.L $03 095F27 C0 29 9B READ.B $299B 095F2A 03 25 LT.L 095F2C 18 30 BRZ $030 ; => $095F5E 095F2E 86 03 READ.L $03 095F30 87 2F READ.F $2F 095F32 87 27 READ.F $27 095F34 3B 3F D0 62 4D D2 F1 A9 FC PUSH.F $3FD0624DD2F1A9FC ; float = 0.256000 095F3D 22 MUL.F 095F3E 87 3F READ.F $3F 095F40 22 MUL.F 095F41 20 ADD.F 095F42 F3 60 95 WRITE.F $6095 095F45 C0 35 92 READ.B $3592 095F48 18 14 BRZ $014 ; => $095F5E 095F4A 86 03 READ.L $03 095F4C 86 03 READ.L $03 095F4E E3 60 95 READ.F $6095 095F51 3B 3F EF 40 00 00 00 00 00 PUSH.F $3FEF400000000000 ; float = 0.976562 095F5A 21 SUB.F 095F5B F3 60 95 WRITE.F $6095 095F5E C0 35 92 READ.B $3592 095F61 86 03 READ.L $03 095F63 C0 29 9B READ.B $299B 095F66 03 25 LT.L 095F68 2C AND.L 095F69 18 46 BRZ $046 ; => $095FB1 095F6B 87 7D READ.F $7D 095F6D 86 03 READ.L $03 095F6F 50 PUSH.6 $10 095F70 30 03 2F BSR.68K $032F ; => $095C44 => $0AFA16 095F73 86 03 READ.L $03 095F75 44 PUSH.6 $04 095F76 30 03 35 BSR.68K $0335 ; => $095C44 => $0AFA16 095F79 30 03 32 BSR.68K $0332 ; => $095C4A => $095C10 (NATIVE) 095F7C 03 2A LONG2FLOAT 095F7E 3B 3F 20 00 00 00 00 00 00 PUSH.F $3F20000000000000 ; float = 0.000122 095F87 22 MUL.F 095F88 21 SUB.F 095F89 3B 3F 50 00 00 00 00 00 00 PUSH.F $3F50000000000000 ; float = 0.000977 095F92 C0 29 10 READ.B $2910 095F95 04 80 PUSH.10 $080 095F97 29 MUL.L 095F98 03 2A LONG2FLOAT 095F9A 22 MUL.F 095F9B 21 SUB.F 095F9C 97 7D WRITE.F $7D 095F9E C0 35 C4 READ.B $35C4 095FA1 18 0E BRZ $00E ; => $095FB1 095FA3 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 095FAC 87 7D READ.F $7D 095FAE 21 SUB.F 095FAF 97 7D WRITE.F $7D 095FB1 C0 29 9D READ.B $299D 095FB4 18 0B BRZ $00B ; => $095FC1 095FB6 87 7D READ.F $7D 095FB8 87 5D READ.F $5D 095FBA C3 59 81 READ.F $5981 095FBD 22 MUL.F 095FBE 20 ADD.F 095FBF 97 7D WRITE.F $7D 095FC1 87 7D READ.F $7D 095FC3 30 03 8E BSR.68K $038E ; => $095C38 => $002C08 (NATIVE) 095FC6 87 55 READ.F $55 095FC8 22 MUL.F 095FC9 97 7D WRITE.F $7D 095FCB C0 54 2C READ.B $542C 095FCE 40 PUSH.6 $00 095FCF 2A EQ.L 095FD0 C0 4E 71 READ.B $4E71 095FD3 2E NOT.L 095FD4 2C AND.L 095FD5 18 08 BRZ $008 ; => $095FDF 095FD7 87 7D 00 READ.F $7D 095FDA 86 03 READ.L $03 095FDC 30 03 BF BSR.68K $03BF ; => $095C20 => $09D240 095FDF 86 03 READ.L $03 095FE1 87 7D READ.F $7D 095FE3 3B 40 49 39 63 38 B4 7C 74 PUSH.F $4049396338B47C74 ; float = 50.448341 095FEC 22 MUL.F 095FED 03 29 FLOAT2LONG 095FEF F0 49 6B WRITE.B $496B 095FF2 C0 29 92 READ.B $2992 095FF5 18 13 BRZ $013 ; => $09600A 095FF7 C0 29 9D READ.B $299D 095FFA C0 54 2C READ.B $542C 095FFD 40 PUSH.6 $00 095FFE 2B NEQ.L 095FFF C0 4E 71 READ.B $4E71 096002 2D OR.L 096003 2C AND.L 096004 2E NOT.L 096005 18 03 BRZ $003 ; => $09600A 096007 3E PUSH.W $0000 096008 97 7D WRITE.F $7D 09600A C0 35 92 READ.B $3592 09600D 40 PUSH.6 $00 09600E 2A EQ.L 09600F 18 8F BRZ $08F ; => $0960A0 096011 86 03 READ.L $03 096013 E3 47 61 READ.F $4761 096016 3E PUSH.W $0000 096017 03 23 NEQ.F 096019 18 85 BRZ $085 ; => $0960A0 09601B 86 03 READ.L $03 09601D C0 29 9B READ.B $299B 096020 03 25 LT.L 096022 18 32 BRZ $032 ; => $096056 096024 87 65 READ.F $65 096026 86 03 READ.L $03 096028 C0 29 A0 READ.B $29A0 09602B 28 SUB.L 09602C E3 59 E7 READ.F $59E7 09602F C1 29 0F READ.W $290F 096032 03 2A LONG2FLOAT 096034 22 MUL.F 096035 C0 35 C4 READ.B $35C4 096038 18 0D BRZ $00D ; => $096047 09603A 3B 3F D3 F2 B3 87 92 97 2D PUSH.F $3FD3F2B38792972D ; float = 0.311688 096043 03 20 NEG.W 096045 10 09 BR $009 ; => $096050 096047 3B 3F D3 F2 B3 87 92 97 2D PUSH.F $3FD3F2B38792972D ; float = 0.311688 096050 22 MUL.F 096051 20 ADD.F 096052 97 6D WRITE.F $6D 096054 10 1A BR $01A ; => $096070 096056 87 65 READ.F $65 096058 86 03 READ.L $03 09605A E3 59 E7 READ.F $59E7 09605D C1 29 0F READ.W $290F 096060 03 2A LONG2FLOAT 096062 22 MUL.F 096063 3B 3F C9 99 99 99 99 99 9A PUSH.F $3FC999999999999A ; float = 0.200000 09606C 22 MUL.F 09606D 20 ADD.F 09606E 97 6D WRITE.F $6D 096070 86 03 READ.L $03 096072 87 6D READ.F $6D 096074 3E PUSH.W $0000 096075 03 22 LTE.F 096077 F0 4B 87 WRITE.B $4B87 09607A 86 03 READ.L $03 09607C 87 6D READ.F $6D 09607E 30 04 55 BSR.68K $0455 ; => $095C2C => $002B7E (NATIVE) 096081 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 09608A 22 MUL.F 09608B 30 04 56 BSR.68K $0456 ; => $095C38 => $002C08 (NATIVE) 09608E 87 75 READ.F $75 096090 23 DIV.F 096091 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09609A 20 ADD.F 09609B 03 29 FLOAT2LONG 09609D F0 4B 9B WRITE.B $4B9B 0960A0 86 03 READ.L $03 0960A2 87 7D READ.F $7D 0960A4 F3 4B 73 WRITE.F $4B73 0960A7 32 92 ADDSP.B $92 0960A9 34 RETURN ; ---------------- End Function $095D08 ---------------- ; ---------------- Begin 2144 Function $0960AA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000E66:$000EF1 ; addr bytes opcode operands comment 0960B1 3B 41 58 54 A6 40 00 00 00 PUSH.F $415854A640000000 ; float = 6378137.000000 0960BA D3 29 C7 WRITE.F $29C7 0960BD 3B 3F 7B 6B 90 F1 FE 94 DD PUSH.F $3F7B6B90F1FE94DD ; float = 0.006694 0960C6 D3 29 CF WRITE.F $29CF 0960C9 3B 41 58 3E 1A C6 45 A1 CB PUSH.F $41583E1AC645A1CB ; float = 6355051.098000 0960D2 D3 29 D7 WRITE.F $29D7 0960D5 3B 3E F8 56 CB BE 72 5C 85 PUSH.F $3EF856CBBE725C85 ; float = 0.000023 0960DE D3 29 DF WRITE.F $29DF 0960E1 34 RETURN ; ---------------- End Function $0960AA ---------------- ; ---------------- Begin 2144 Function $0960FA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $096168:$096178 ; called from $096168:$096184 ; called from $096194:$0961E1 ; called from $096194:$0961F6 ; called from $096194:$096205 ; called from $096214:$09622A ; called from $096214:$09624B ; called from $096214:$09625A ; addr bytes opcode operands comment 096101 40 PUSH.6 $00 096102 3F 20 20 20 20 20 44 41 54 DISP " DATA HEALTH ION " 41 20 20 20 20 20 20 20 20 48 45 41 4C 54 48 20 20 20 49 4F 4E 20 20 20 20 096124 6F PUSH.6 $2F 096125 6C PUSH.6 $2C 096126 67 PUSH.6 $27 096127 40 PUSH.6 $00 096128 40 PUSH.6 $00 096129 6F PUSH.6 $2F 09612A 40 PUSH.6 $00 09612B 40 PUSH.6 $00 09612C 30 00 47 BSR.68K $0047 ; => $0960E8 => $099614 09612F 80 21 READ.B $21 096131 65 PUSH.6 $25 096132 2A EQ.L 096133 18 1A BRZ $01A ; => $09614F 096135 C0 28 A8 READ.B $28A8 096138 18 03 BRZ $003 ; => $09613D 09613A 6A PUSH.6 $2A 09613B 90 09 WRITE.B $09 09613D C0 28 AA READ.B $28AA 096140 18 03 BRZ $003 ; => $096145 096142 6A PUSH.6 $2A 096143 90 03 WRITE.B $03 096145 C0 28 A9 READ.B $28A9 096148 18 03 BRZ $003 ; => $09614D 09614A 6A PUSH.6 $2A 09614B 90 17 WRITE.B $17 09614D 10 17 BR $017 ; => $096166 09614F C0 28 AF READ.B $28AF 096152 18 03 BRZ $003 ; => $096157 096154 6A PUSH.6 $2A 096155 90 09 WRITE.B $09 096157 C0 28 B0 READ.B $28B0 09615A 18 03 BRZ $003 ; => $09615F 09615C 6A PUSH.6 $2A 09615D 90 03 WRITE.B $03 09615F 80 22 READ.B $22 096161 18 03 BRZ $003 ; => $096166 096163 6A PUSH.6 $2A 096164 90 17 WRITE.B $17 096166 34 RETURN ; ---------------- End Function $0960FA ---------------- ; ---------------- Begin 2144 Function $096168 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DAB4 ; addr bytes opcode operands comment 09616F 80 20 READ.B $20 096171 35 SWITCH 096172 10 09 10 CASE $10 ; SWITCH $096171 096175 65 PUSH.6 $25 096176 90 21 WRITE.B $21 096178 30 00 81 BSR.68K $0081 ; => $0960FA 09617B 10 16 BR $016 ; => $096193 09617D 10 0A D0 CASE $D0 ; SWITCH $096171 096180 04 40 PUSH.10 $040 096182 90 21 WRITE.B $21 096184 30 00 8D BSR.68K $008D ; => $0960FA 096187 10 0A BR $00A ; => $096193 096189 20 04 50 90 CASE $50, $90 ; SWITCH $096171 09618D 10 04 BR $004 ; => $096193 09618F 00 DEFAULT ; SWITCH $096171 096190 30 00 9F BSR.68K $009F ; => $0960F4 => $09D9DE 096193 34 RETURN ; ---------------- End Function $096168 ---------------- ; ---------------- Begin 2144 Function $096194 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DABC ; addr bytes opcode operands comment 09619B 80 20 READ.B $20 09619D 35 SWITCH 09619E 20 37 02 04 CASE $02, $04 ; SWITCH $09619D 0961A2 C0 28 A9 READ.B $28A9 0961A5 18 05 BRZ $005 ; => $0961AC 0961A7 40 PUSH.6 $00 0961A8 90 21 WRITE.B $21 0961AA 10 29 BR $029 ; => $0961D5 0961AC 30 00 CD BSR.68K $00CD ; => $0960E2 => $099642 0961AF 40 PUSH.6 $00 0961B0 3F 20 57 41 52 4E 49 4E 47 DISP "WARNING - EPHEM UPDATE DISABLED " 20 2D 20 45 50 48 45 4D 20 55 50 44 41 54 45 20 44 49 53 41 42 4C 45 44 20 0961D2 4C PUSH.6 $0C 0961D3 90 21 WRITE.B $21 0961D5 10 3C BR $03C ; => $096213 0961D7 10 0D 10 CASE $10 ; SWITCH $09619D 0961DA C0 28 A8 READ.B $28A8 0961DD 2E NOT.L 0961DE D0 28 A8 WRITE.B $28A8 0961E1 30 00 EA BSR.68K $00EA ; => $0960FA 0961E4 10 2D BR $02D ; => $096213 0961E6 10 13 50 CASE $50 ; SWITCH $09619D 0961E9 C0 28 A9 READ.B $28A9 0961EC 2E NOT.L 0961ED D0 28 A9 WRITE.B $28A9 0961F0 C0 28 A9 READ.B $28A9 0961F3 D0 29 00 WRITE.B $2900 0961F6 30 00 FF BSR.68K $00FF ; => $0960FA 0961F9 10 18 BR $018 ; => $096213 0961FB 10 0D 90 CASE $90 ; SWITCH $09619D 0961FE C0 28 AA READ.B $28AA 096201 2E NOT.L 096202 D0 28 AA WRITE.B $28AA 096205 30 01 0E BSR.68K $010E ; => $0960FA 096208 10 09 BR $009 ; => $096213 09620A 10 03 D0 CASE $D0 ; SWITCH $09619D 09620D 10 04 BR $004 ; => $096213 09620F 00 DEFAULT ; SWITCH $09619D 096210 30 01 1F BSR.68K $011F ; => $0960F4 => $09D9DE 096213 34 RETURN ; ---------------- End Function $096194 ---------------- ; ---------------- Begin 2144 Function $096214 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DAC4 ; addr bytes opcode operands comment 09621B 31 02 SUBSP.B $02 09621D 80 20 READ.B $20 09621F 35 SWITCH 096220 10 0D 10 CASE $10 ; SWITCH $09621F 096223 C0 28 AF READ.B $28AF 096226 2E NOT.L 096227 D0 28 AF WRITE.B $28AF 09622A 30 01 33 BSR.68K $0133 ; => $0960FA 09622D 10 39 BR $039 ; => $096268 09622F 10 1F 50 CASE $50 ; SWITCH $09621F 096232 80 22 READ.B $22 096234 2E NOT.L 096235 90 22 WRITE.B $22 096237 41 PUSH.6 $01 096238 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09623B 60 PUSH.6 $20 09623C 38 00 0C BLS.B $000C ; => $09624B 09623F 84 00 READ.B $00 096241 80 22 READ.B $22 096243 F0 28 D3 WRITE.B $28D3 096246 37 10 00 00 10 _23d2 $0000, $0010 09624B 30 01 54 BSR.68K $0154 ; => $0960FA 09624E 10 18 BR $018 ; => $096268 096250 10 0D 90 CASE $90 ; SWITCH $09621F 096253 C0 28 B0 READ.B $28B0 096256 2E NOT.L 096257 D0 28 B0 WRITE.B $28B0 09625A 30 01 63 BSR.68K $0163 ; => $0960FA 09625D 10 09 BR $009 ; => $096268 09625F 10 03 D0 CASE $D0 ; SWITCH $09621F 096262 10 04 BR $004 ; => $096268 096264 00 DEFAULT ; SWITCH $09621F 096265 30 01 74 BSR.68K $0174 ; => $0960F4 => $09D9DE 096268 32 02 ADDSP.B $02 09626A 34 RETURN ; ---------------- End Function $096214 ---------------- ; ---------------- Begin 2144 Function $0962CC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A6B6C:$0A6CB1 ; addr bytes opcode operands comment 0962D3 31 0A SUBSP.B $0A 0962D5 40 PUSH.6 $00 0962D6 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0962D9 C0 29 9B READ.B $299B 0962DC 38 00 C8 BLS.B $00C8 ; => $0963A7 0962DF 84 00 READ.B $00 0962E1 E0 44 23 READ.B $4423 0962E4 18 BC BRZ $0BC ; => $0963A2 0962E6 84 00 READ.B $00 0962E8 E3 41 49 READ.F $4149 0962EB 3B 40 14 00 00 00 00 00 00 PUSH.F $4014000000000000 ; float = 5.000000 0962F4 03 21 LT.F 0962F6 18 AA BRZ $0AA ; => $0963A2 0962F8 40 PUSH.6 $00 0962F9 4A PUSH.6 $0A 0962FA 29 MUL.L 0962FB 84 00 READ.B $00 0962FD 27 ADD.L 0962FE E0 63 A1 READ.B $63A1 096301 18 9F BRZ $09F ; => $0963A2 096303 40 PUSH.6 $00 096304 4A PUSH.6 $0A 096305 29 MUL.L 096306 84 00 READ.B $00 096308 27 ADD.L 096309 E3 61 FD READ.F $61FD 09630C 84 00 READ.B $00 09630E E3 46 53 READ.F $4653 096311 21 SUB.F 096312 97 09 WRITE.F $09 096314 87 09 READ.F $09 096316 3B 41 02 4F 80 00 00 00 00 PUSH.F $41024F8000000000 ; float = 150000.000000 09631F 24 GT.F 096320 18 10 BRZ $010 ; => $096332 096322 87 09 READ.F $09 096324 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 09632D 21 SUB.F 09632E 97 09 WRITE.F $09 096330 10 1F BR $01F ; => $096351 096332 87 09 READ.F $09 096334 3B 41 02 4F 80 00 00 00 00 PUSH.F $41024F8000000000 ; float = 150000.000000 09633D 03 20 NEG.W 09633F 03 21 LT.F 096341 18 0E BRZ $00E ; => $096351 096343 87 09 READ.F $09 096345 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 09634E 20 ADD.F 09634F 97 09 WRITE.F $09 096351 87 09 READ.F $09 096353 84 00 READ.B $00 096355 E3 46 B7 READ.F $46B7 096358 40 PUSH.6 $00 096359 4A PUSH.6 $0A 09635A 29 MUL.L 09635B 84 00 READ.B $00 09635D 27 ADD.L 09635E E3 67 01 READ.F $6701 096361 21 SUB.F 096362 23 DIV.F 096363 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 09636C 22 MUL.F 09636D 3B 40 15 05 28 04 93 D4 01 PUSH.F $401505280493D401 ; float = 5.255035 096376 22 MUL.F 096377 84 00 READ.B $00 096379 E3 47 61 READ.F $4761 09637C 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 096385 21 SUB.F 096386 21 SUB.F 096387 30 01 1E BSR.68K $011E ; => $09626C => $002B7E (NATIVE) 09638A 3B 40 7F 40 00 00 00 00 00 PUSH.F $407F400000000000 ; float = 500.000000 096393 24 GT.F 096394 18 0C BRZ $00C ; => $0963A2 096396 84 00 READ.B $00 096398 40 PUSH.6 $00 096399 F0 44 23 WRITE.B $4423 09639C 84 00 READ.B $00 09639E 40 PUSH.6 $00 09639F F0 46 5D WRITE.B $465D 0963A2 37 10 00 00 CE _23d2 $0000, $00CE 0963A7 40 PUSH.6 $00 0963A8 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0963AB C0 29 9B READ.B $299B 0963AE 38 00 7F BLS.B $007F ; => $096430 0963B1 84 00 READ.B $00 0963B3 E0 44 23 READ.B $4423 0963B6 18 73 BRZ $073 ; => $09642B 0963B8 84 00 READ.B $00 0963BA E3 41 49 READ.F $4149 0963BD 3B 40 14 00 00 00 00 00 00 PUSH.F $4014000000000000 ; float = 5.000000 0963C6 03 21 LT.F 0963C8 18 61 BRZ $061 ; => $09642B 0963CA 40 PUSH.6 $00 0963CB 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0963CE C0 29 9B READ.B $299B 0963D1 38 00 57 BLS.B $0057 ; => $09642B 0963D4 84 01 READ.B $01 0963D6 E0 44 23 READ.B $4423 0963D9 18 4B BRZ $04B ; => $096426 0963DB 84 01 READ.B $01 0963DD 84 00 READ.B $00 0963DF 2B NEQ.L 0963E0 84 01 READ.B $01 0963E2 E3 47 61 READ.F $4761 0963E5 84 00 READ.B $00 0963E7 E3 47 61 READ.F $4761 0963EA 21 SUB.F 0963EB 30 01 82 BSR.68K $0182 ; => $09626C => $002B7E (NATIVE) 0963EE 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0963F7 03 21 LT.F 0963F9 2C AND.L 0963FA 18 2A BRZ $02A ; => $096426 0963FC 84 00 READ.B $00 0963FE 40 PUSH.6 $00 0963FF F0 44 23 WRITE.B $4423 096402 84 00 READ.B $00 096404 40 PUSH.6 $00 096405 F0 46 5D WRITE.B $465D 096408 84 01 READ.B $01 09640A E3 41 49 READ.F $4149 09640D 3B 40 14 00 00 00 00 00 00 PUSH.F $4014000000000000 ; float = 5.000000 096416 03 21 LT.F 096418 18 0C BRZ $00C ; => $096426 09641A 84 01 READ.B $01 09641C 40 PUSH.6 $00 09641D F0 44 23 WRITE.B $4423 096420 84 01 READ.B $01 096422 40 PUSH.6 $00 096423 F0 46 5D WRITE.B $465D 096426 37 10 01 00 5D _23d2 $0001, $005D 09642B 37 10 00 00 85 _23d2 $0000, $0085 096430 32 0A ADDSP.B $0A 096432 34 RETURN ; ---------------- End Function $0962CC ---------------- ; ---------------- Begin 2164 Function $096434 ---------------- ; P0 = $0000; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $0966FA:$096984 ; called from $096A90:$096B69 ; called from $0A6B6C:$0A6C85 ; addr bytes opcode operands comment 09643D 31 04 SUBSP.B $04 09643F C0 52 2B READ.B $522B 096442 04 7F PUSH.10 $07F 096444 2C AND.L 096445 C0 52 2A READ.B $522A 096448 C0 52 29 READ.B $5229 09644B 30 01 AC BSR.68K $01AC ; => $0962A2 => $095BE4 (NATIVE) 09644E 96 0B WRITE.L $0B 096450 C0 52 2B READ.B $522B 096453 04 40 PUSH.10 $040 096455 2C AND.L 096456 18 14 BRZ $014 ; => $09646C 096458 C3 60 45 READ.F $6045 09645B 3D 00 80 00 00 PUSH.L $00800000 096460 86 0B READ.L $0B 096462 28 SUB.L 096463 03 2A LONG2FLOAT 096465 22 MUL.F 096466 03 20 NEG.W 096468 97 07 WRITE.F $07 09646A 10 0A BR $00A ; => $096476 09646C C3 60 45 READ.F $6045 09646F 86 0B READ.L $0B 096471 03 2A LONG2FLOAT 096473 22 MUL.F 096474 97 07 WRITE.F $07 096476 C0 52 2B READ.B $522B 096479 04 80 PUSH.10 $080 09647B 2C AND.L 09647C 18 0E BRZ $00E ; => $09648C 09647E 87 07 READ.F $07 096480 3B 40 10 00 00 00 00 00 00 PUSH.F $4010000000000000 ; float = 4.000000 096489 22 MUL.F 09648A 97 07 WRITE.F $07 09648C 32 04 ADDSP.B $04 09648E 34 RETURN ; ---------------- End Function $096434 ---------------- ; ---------------- Begin 2164 Function $096490 ---------------- ; P0 = $0000; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $096A90:$096B62 ; addr bytes opcode operands comment 096499 31 04 SUBSP.B $04 09649B C0 52 2B READ.B $522B 09649E C0 52 2A READ.B $522A 0964A1 C0 52 29 READ.B $5229 0964A4 30 02 05 BSR.68K $0205 ; => $0962A2 => $095BE4 (NATIVE) 0964A7 96 0B WRITE.L $0B 0964A9 C0 52 2B READ.B $522B 0964AC 04 80 PUSH.10 $080 0964AE 2C AND.L 0964AF 18 10 BRZ $010 ; => $0964C1 0964B1 3D 01 00 00 00 PUSH.L $01000000 0964B6 86 0B READ.L $0B 0964B8 28 SUB.L 0964B9 03 2A LONG2FLOAT 0964BB 03 20 NEG.W 0964BD 97 07 WRITE.F $07 0964BF 10 06 BR $006 ; => $0964C7 0964C1 86 0B READ.L $0B 0964C3 03 2A LONG2FLOAT 0964C5 97 07 WRITE.F $07 0964C7 C0 6B 28 READ.B $6B28 0964CA 42 PUSH.6 $02 0964CB 2A EQ.L 0964CC 18 14 BRZ $014 ; => $0964E2 0964CE 87 07 READ.F $07 0964D0 C3 60 45 READ.F $6045 0964D3 22 MUL.F 0964D4 3B 3F 90 00 00 00 00 00 00 PUSH.F $3F90000000000000 ; float = 0.015625 0964DD 22 MUL.F 0964DE 97 07 WRITE.F $07 0964E0 10 0E BR $00E ; => $0964F0 0964E2 87 07 READ.F $07 0964E4 3B 3E EB 31 80 1B 38 3A 50 PUSH.F $3EEB31801B383A50 ; float = 0.000013 0964ED 22 MUL.F 0964EE 97 07 WRITE.F $07 0964F0 32 04 ADDSP.B $04 0964F2 34 RETURN ; ---------------- End Function $096490 ---------------- ; ---------------- Begin 2164 Function $0964F4 ---------------- ; P0 = $0000; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $096A90:$096AE8 ; called from $096A90:$096B03 ; called from $096A90:$096B14 ; addr bytes opcode operands comment 0964FD 31 04 SUBSP.B $04 0964FF C0 52 17 READ.B $5217 096502 C0 52 16 READ.B $5216 096505 C0 52 15 READ.B $5215 096508 C0 52 14 READ.B $5214 09650B 30 02 66 BSR.68K $0266 ; => $0962A8 => $095BF8 (NATIVE) 09650E 96 0B WRITE.L $0B 096510 C0 52 17 READ.B $5217 096513 04 80 PUSH.10 $080 096515 2C AND.L 096516 18 0A BRZ $00A ; => $096522 096518 40 PUSH.6 $00 096519 86 0B READ.L $0B 09651B 28 SUB.L 09651C 03 2A LONG2FLOAT 09651E 03 20 NEG.W 096520 10 04 BR $004 ; => $096526 096522 86 0B READ.L $0B 096524 03 2A LONG2FLOAT 096526 97 07 WRITE.F $07 096528 32 04 ADDSP.B $04 09652A 34 RETURN ; ---------------- End Function $0964F4 ---------------- ; ---------------- Begin 2164 Function $09652C ---------------- ; P0 = $0000; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $096A90:$096AF4 ; addr bytes opcode operands comment 096535 31 04 SUBSP.B $04 096537 C0 52 1C READ.B $521C 09653A C0 52 1B READ.B $521B 09653D C0 52 1A READ.B $521A 096540 C0 52 19 READ.B $5219 096543 30 02 9E BSR.68K $029E ; => $0962A8 => $095BF8 (NATIVE) 096546 96 0B WRITE.L $0B 096548 C3 60 45 READ.F $6045 09654B C0 52 1C READ.B $521C 09654E 04 80 PUSH.10 $080 096550 2C AND.L 096551 18 0A BRZ $00A ; => $09655D 096553 40 PUSH.6 $00 096554 86 0B READ.L $0B 096556 28 SUB.L 096557 03 2A LONG2FLOAT 096559 03 20 NEG.W 09655B 10 04 BR $004 ; => $096561 09655D 86 0B READ.L $0B 09655F 03 2A LONG2FLOAT 096561 22 MUL.F 096562 3B 3F F4 0D 93 1F E0 78 AF PUSH.F $3FF40D931FE078AF ; float = 1.253314 09656B 22 MUL.F 09656C 97 07 WRITE.F $07 09656E 32 04 ADDSP.B $04 096570 34 RETURN ; ---------------- End Function $09652C ---------------- ; ---------------- Begin 2164 Function $096572 ---------------- ; P0 = $0004; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000008 ; called from $0966FA:$096952 ; called from $096A90:$096AD9 ; addr bytes opcode operands comment 09657B C3 60 45 READ.F $6045 09657E C0 52 28 READ.B $5228 096581 C0 52 37 READ.B $5237 096584 C0 52 36 READ.B $5236 096587 C0 52 35 READ.B $5235 09658A C0 52 34 READ.B $5234 09658D 30 03 0C BSR.68K $030C ; => $096284 => $0AA3F2 096590 22 MUL.F 096591 C3 60 9D READ.F $609D 096594 22 MUL.F 096595 3B 3E 39 99 99 99 99 9E 07 PUSH.F $3E39999999999E07 ; float = 0.000000 09659E 22 MUL.F 09659F 97 07 WRITE.F $07 0965A1 86 0B READ.L $0B 0965A3 C0 35 92 READ.B $3592 0965A6 40 PUSH.6 $00 0965A7 2A EQ.L 0965A8 2D OR.L 0965A9 18 10 BRZ $010 ; => $0965BB 0965AB 87 07 READ.F $07 0965AD 3B 41 4D F8 80 00 00 00 00 PUSH.F $414DF88000000000 ; float = 3928320.000000 0965B6 20 ADD.F 0965B7 97 07 WRITE.F $07 0965B9 10 23 BR $023 ; => $0965DE 0965BB C0 35 C4 READ.B $35C4 0965BE 18 10 BRZ $010 ; => $0965D0 0965C0 3B 41 50 3B EF C1 80 0A 7C PUSH.F $41503BEFC1800A7C ; float = 4255679.023440 0965C9 87 07 READ.F $07 0965CB 21 SUB.F 0965CC 97 07 WRITE.F $07 0965CE 10 0E BR $00E ; => $0965DE 0965D0 87 07 READ.F $07 0965D2 3B 41 4D F8 80 7D 00 00 00 PUSH.F $414DF8807D000000 ; float = 3928320.976562 0965DB 20 ADD.F 0965DC 97 07 WRITE.F $07 0965DE 32 04 ADDSP.B $04 0965E0 34 RETURN ; ---------------- End Function $096572 ---------------- ; ---------------- Begin 2164 Function $0965E2 ---------------- ; P0 = $0008; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $7; D1 = $000008 ; called from $0966FA:$0967F1 ; called from $096A90:$096AAB ; addr bytes opcode operands comment 0965EB 31 06 SUBSP.B $06 0965ED C0 52 2F READ.B $522F 0965F0 C0 52 2E READ.B $522E 0965F3 C0 52 2D READ.B $522D 0965F6 C0 52 2C READ.B $522C 0965F9 30 03 54 BSR.68K $0354 ; => $0962A8 => $095BF8 (NATIVE) 0965FC 96 13 WRITE.L $13 0965FE C0 52 2C READ.B $522C 096601 04 7F PUSH.10 $07F 096603 2C AND.L 096604 94 14 WRITE.B $14 096606 84 14 READ.B $14 096608 18 18 BRZ $018 ; => $096622 09660A C1 29 0F READ.W $290F 09660D 40 PUSH.6 $00 09660E 2B NEQ.L 09660F 84 14 READ.B $14 096611 41 PUSH.6 $01 096612 2B NEQ.L 096613 2C AND.L 096614 84 14 READ.B $14 096616 04 7F PUSH.10 $07F 096618 2B NEQ.L 096619 2C AND.L 09661A 18 06 BRZ $006 ; => $096622 09661C 86 0B READ.L $0B 09661E 40 PUSH.6 $00 09661F F0 44 23 WRITE.B $4423 096622 86 0F READ.L $0F 096624 35 SWITCH 096625 10 22 00 CASE $00 ; SWITCH $096624 096628 84 14 READ.B $14 09662A 18 1B BRZ $01B ; => $096647 09662C 84 14 READ.B $14 09662E 41 PUSH.6 $01 09662F 2A EQ.L 096630 18 08 BRZ $008 ; => $09663A 096632 86 13 READ.L $13 096634 41 PUSH.6 $01 096635 28 SUB.L 096636 96 13 WRITE.L $13 096638 10 0D BR $00D ; => $096647 09663A 84 14 READ.B $14 09663C 04 7F PUSH.10 $07F 09663E 2A EQ.L 09663F 18 06 BRZ $006 ; => $096647 096641 86 13 READ.L $13 096643 41 PUSH.6 $01 096644 27 ADD.L 096645 96 13 WRITE.L $13 096647 10 24 BR $024 ; => $09666D 096649 10 0F 01 CASE $01 ; SWITCH $096624 09664C 84 14 READ.B $14 09664E 41 PUSH.6 $01 09664F 2B NEQ.L 096650 18 06 BRZ $006 ; => $096658 096652 86 13 READ.L $13 096654 41 PUSH.6 $01 096655 27 ADD.L 096656 96 13 WRITE.L $13 096658 10 13 BR $013 ; => $09666D 09665A 10 10 02 CASE $02 ; SWITCH $096624 09665D 84 14 READ.B $14 09665F 04 7F PUSH.10 $07F 096661 2B NEQ.L 096662 18 06 BRZ $006 ; => $09666A 096664 86 13 READ.L $13 096666 41 PUSH.6 $01 096667 28 SUB.L 096668 96 13 WRITE.L $13 09666A 10 01 BR $001 ; => $09666D 09666C 00 DEFAULT ; SWITCH $096624 09666D 86 13 READ.L $13 09666F 03 2A LONG2FLOAT 096671 97 07 WRITE.F $07 096673 32 0E ADDSP.B $0E 096675 34 RETURN ; ---------------- End Function $0965E2 ---------------- ; ---------------- Begin 2144 Function $096676 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0966FA:$096705 ; called from $096A90:$096AA3 ; addr bytes opcode operands comment 09667D 41 PUSH.6 $01 09667E 4A PUSH.6 $0A 09667F 29 MUL.L 096680 86 03 READ.L $03 096682 27 ADD.L 096683 40 PUSH.6 $00 096684 4A PUSH.6 $0A 096685 29 MUL.L 096686 86 03 READ.L $03 096688 27 ADD.L 096689 E0 67 15 READ.B $6715 09668C F0 67 15 WRITE.B $6715 09668F 40 PUSH.6 $00 096690 4A PUSH.6 $0A 096691 29 MUL.L 096692 86 03 READ.L $03 096694 27 ADD.L 096695 86 03 READ.L $03 096697 E0 49 11 READ.B $4911 09669A F0 67 15 WRITE.B $6715 09669D 86 03 READ.L $03 09669F C0 52 18 READ.B $5218 0966A2 F0 49 11 WRITE.B $4911 0966A5 86 03 READ.L $03 0966A7 E0 49 11 READ.B $4911 0966AA 42 PUSH.6 $02 0966AB 2C AND.L 0966AC 40 PUSH.6 $00 0966AD 2B NEQ.L 0966AE 86 03 READ.L $03 0966B0 E0 57 4B READ.B $574B 0966B3 40 PUSH.6 $00 0966B4 2A EQ.L 0966B5 2C AND.L 0966B6 18 06 BRZ $006 ; => $0966BE 0966B8 86 03 READ.L $03 0966BA 41 PUSH.6 $01 0966BB F0 57 4B WRITE.B $574B 0966BE 41 PUSH.6 $01 0966BF 4A PUSH.6 $0A 0966C0 29 MUL.L 0966C1 86 03 READ.L $03 0966C3 27 ADD.L 0966C4 40 PUSH.6 $00 0966C5 4A PUSH.6 $0A 0966C6 29 MUL.L 0966C7 86 03 READ.L $03 0966C9 27 ADD.L 0966CA E0 67 29 READ.B $6729 0966CD F0 67 29 WRITE.B $6729 0966D0 40 PUSH.6 $00 0966D1 4A PUSH.6 $0A 0966D2 29 MUL.L 0966D3 86 03 READ.L $03 0966D5 27 ADD.L 0966D6 86 03 READ.L $03 0966D8 E0 4B 7D READ.B $4B7D 0966DB F0 67 29 WRITE.B $6729 0966DE 86 03 READ.L $03 0966E0 C0 52 0B READ.B $520B 0966E3 60 PUSH.6 $20 0966E4 2D OR.L 0966E5 F0 4B 7D WRITE.B $4B7D 0966E8 C0 4E 69 READ.B $4E69 0966EB C0 52 0A READ.B $520A 0966EE 2C AND.L 0966EF 18 05 BRZ $005 ; => $0966F6 0966F1 86 03 READ.L $03 0966F3 30 04 60 BSR.68K $0460 ; => $096296 => $094CDE 0966F6 32 04 ADDSP.B $04 0966F8 34 RETURN ; ---------------- End Function $096676 ---------------- ; ---------------- Begin 2144 Function $0966FA ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $0A6B6C:$0A6C7E ; addr bytes opcode operands comment 096701 31 34 SUBSP.B $34 096703 86 03 READ.L $03 096705 30 00 92 BSR.68K $0092 ; => $096676 096708 86 03 READ.L $03 09670A C0 52 13 READ.B $5213 09670D 54 PUSH.6 $14 09670E C0 52 12 READ.B $5212 096711 05 00 PUSH.10 $100 096713 29 MUL.L 096714 C0 52 11 READ.B $5211 096717 27 ADD.L 096718 29 MUL.L 096719 27 ADD.L 09671A F1 67 3D WRITE.W $673D 09671D C0 52 27 READ.B $5227 096720 C0 52 33 READ.B $5233 096723 30 04 8A BSR.68K $048A ; => $09629C => $095C10 (NATIVE) 096726 03 2A LONG2FLOAT 096728 3B 40 32 50 D6 0A 80 64 FF PUSH.F $403250D60A8064FF ; float = 18.315766 096731 22 MUL.F 096732 97 39 WRITE.F $39 096734 C0 52 32 READ.B $5232 096737 04 80 PUSH.10 $080 096739 2C AND.L 09673A 18 18 BRZ $018 ; => $096754 09673C 3D 01 00 00 00 PUSH.L $01000000 096741 C0 52 32 READ.B $5232 096744 C0 52 31 READ.B $5231 096747 C0 52 30 READ.B $5230 09674A 30 04 AB BSR.68K $04AB ; => $0962A2 => $095BE4 (NATIVE) 09674D 28 SUB.L 09674E 03 2A LONG2FLOAT 096750 03 20 NEG.W 096752 10 0E BR $00E ; => $096762 096754 C0 52 32 READ.B $5232 096757 C0 52 31 READ.B $5231 09675A C0 52 30 READ.B $5230 09675D 30 04 BE BSR.68K $04BE ; => $0962A2 => $095BE4 (NATIVE) 096760 03 2A LONG2FLOAT 096762 C3 60 45 READ.F $6045 096765 22 MUL.F 096766 3B 40 32 50 D6 0A 80 64 FF PUSH.F $403250D60A8064FF ; float = 18.315766 09676F 22 MUL.F 096770 87 39 READ.F $39 096772 20 ADD.F 096773 97 17 WRITE.F $17 096775 C0 54 2C READ.B $542C 096778 40 PUSH.6 $00 096779 2A EQ.L 09677A C0 4E 71 READ.B $4E71 09677D 2E NOT.L 09677E 2C AND.L 09677F 18 0A BRZ $00A ; => $09678B 096781 87 17 READ.F $17 096783 86 03 READ.L $03 096785 E3 34 2B READ.F $342B 096788 21 SUB.F 096789 97 17 WRITE.F $17 09678B 87 17 READ.F $17 09678D 3E PUSH.W $0000 09678E 03 21 LT.F 096790 18 10 BRZ $010 ; => $0967A2 096792 87 17 READ.F $17 096794 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 09679D 20 ADD.F 09679E 97 17 WRITE.F $17 0967A0 10 1C BR $01C ; => $0967BE 0967A2 87 17 READ.F $17 0967A4 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0967AD 25 GTE.F 0967AE 18 0E BRZ $00E ; => $0967BE 0967B0 87 17 READ.F $17 0967B2 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0967BB 21 SUB.F 0967BC 97 17 WRITE.F $17 0967BE 87 39 READ.F $39 0967C0 87 17 READ.F $17 0967C2 21 SUB.F 0967C3 3B 41 02 4F 80 00 00 00 00 PUSH.F $41024F8000000000 ; float = 150000.000000 0967CC 24 GT.F 0967CD 18 03 BRZ $003 ; => $0967D2 0967CF 41 PUSH.6 $01 0967D0 10 15 BR $015 ; => $0967E7 0967D2 87 17 READ.F $17 0967D4 87 39 READ.F $39 0967D6 21 SUB.F 0967D7 3B 41 02 4F 80 00 00 00 00 PUSH.F $41024F8000000000 ; float = 150000.000000 0967E0 24 GT.F 0967E1 18 03 BRZ $003 ; => $0967E6 0967E3 42 PUSH.6 $02 0967E4 10 01 BR $001 ; => $0967E7 0967E6 40 PUSH.6 $00 0967E7 94 3A WRITE.B $3A 0967E9 87 17 READ.F $17 0967EB 97 31 WRITE.F $31 0967ED 86 03 READ.L $03 0967EF 84 3A READ.B $3A 0967F1 30 02 12 BSR.68K $0212 ; => $0965E2 0967F4 97 0F WRITE.F $0F 0967F6 41 PUSH.6 $01 0967F7 4A PUSH.6 $0A 0967F8 29 MUL.L 0967F9 86 03 READ.L $03 0967FB 27 ADD.L 0967FC 40 PUSH.6 $00 0967FD 4A PUSH.6 $0A 0967FE 29 MUL.L 0967FF 86 03 READ.L $03 096801 27 ADD.L 096802 E3 67 01 READ.F $6701 096805 F3 67 01 WRITE.F $6701 096808 40 PUSH.6 $00 096809 4A PUSH.6 $0A 09680A 29 MUL.L 09680B 86 03 READ.L $03 09680D 27 ADD.L 09680E 86 03 READ.L $03 096810 E3 46 B7 READ.F $46B7 096813 F3 67 01 WRITE.F $6701 096816 86 03 READ.L $03 096818 87 0F READ.F $0F 09681A F3 46 B7 WRITE.F $46B7 09681D C0 67 EC READ.B $67EC 096820 C0 54 2C READ.B $542C 096823 40 PUSH.6 $00 096824 2A EQ.L 096825 2C AND.L 096826 18 4C BRZ $04C ; => $096874 096828 87 0F READ.F $0F 09682A 87 0F READ.F $0F 09682C 3B 40 B7 70 00 00 00 00 00 PUSH.F $40B7700000000000 ; float = 6000.000000 096835 23 DIV.F 096836 30 05 BB BSR.68K $05BB ; => $09627E => $002CA6 (NATIVE) 096839 3B 40 B7 70 00 00 00 00 00 PUSH.F $40B7700000000000 ; float = 6000.000000 096842 22 MUL.F 096843 21 SUB.F 096844 86 03 READ.L $03 096846 E1 67 3D READ.W $673D 096849 03 2A LONG2FLOAT 09684B 21 SUB.F 09684C 97 29 WRITE.F $29 09684E 87 29 READ.F $29 096850 3E PUSH.W $0000 096851 03 21 LT.F 096853 18 0E BRZ $00E ; => $096863 096855 87 29 READ.F $29 096857 3B 40 B7 70 00 00 00 00 00 PUSH.F $40B7700000000000 ; float = 6000.000000 096860 20 ADD.F 096861 97 29 WRITE.F $29 096863 87 17 READ.F $17 096865 87 29 READ.F $29 096867 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 096870 22 MUL.F 096871 20 ADD.F 096872 97 17 WRITE.F $17 096874 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 09687D 87 0F READ.F $0F 09687F C2 56 2D READ.L $562D 096882 30 05 C5 BSR.68K $05C5 ; => $0962C0 => $09515C 096885 20 ADD.F 096886 C3 55 19 READ.F $5519 096889 3B 3E CB FB 3C 01 A3 07 FA PUSH.F $3ECBFB3C01A307FA ; float = 0.000003 096892 22 MUL.F 096893 21 SUB.F 096894 22 MUL.F 096895 87 31 READ.F $31 096897 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 0968A0 22 MUL.F 0968A1 20 ADD.F 0968A2 97 0F WRITE.F $0F 0968A4 C0 59 92 READ.B $5992 0968A7 18 5C BRZ $05C ; => $096905 0968A9 87 0F READ.F $0F 0968AB 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0968B4 25 GTE.F 0968B5 18 24 BRZ $024 ; => $0968DB 0968B7 87 0F READ.F $0F 0968B9 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0968C2 21 SUB.F 0968C3 97 0F WRITE.F $0F 0968C5 86 03 READ.L $03 0968C7 86 03 READ.L $03 0968C9 E3 46 B7 READ.F $46B7 0968CC 3B 41 C2 06 42 00 00 00 00 PUSH.F $41C2064200000000 ; float = 604800000.000000 0968D5 21 SUB.F 0968D6 F3 46 B7 WRITE.F $46B7 0968D9 10 28 BR $028 ; => $096903 0968DB 87 0F READ.F $0F 0968DD 3B 41 12 75 00 00 00 00 00 PUSH.F $4112750000000000 ; float = 302400.000000 0968E6 25 GTE.F 0968E7 18 1A BRZ $01A ; => $096903 0968E9 86 03 READ.L $03 0968EB 86 03 READ.L $03 0968ED E3 46 B7 READ.F $46B7 0968F0 3B 41 C2 06 42 00 00 00 00 PUSH.F $41C2064200000000 ; float = 604800000.000000 0968F9 21 SUB.F 0968FA F3 46 B7 WRITE.F $46B7 0968FD 86 03 READ.L $03 0968FF 40 PUSH.6 $00 096900 F0 44 23 WRITE.B $4423 096903 10 14 BR $014 ; => $096919 096905 87 0F READ.F $0F 096907 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 096910 25 GTE.F 096911 18 06 BRZ $006 ; => $096919 096913 86 03 READ.L $03 096915 40 PUSH.6 $00 096916 F0 44 23 WRITE.B $4423 096919 86 03 READ.L $03 09691B 87 0F READ.F $0F 09691D F3 40 59 WRITE.F $4059 096920 86 03 READ.L $03 096922 87 17 READ.F $17 096924 F3 40 A9 WRITE.F $40A9 096927 41 PUSH.6 $01 096928 4A PUSH.6 $0A 096929 29 MUL.L 09692A 86 03 READ.L $03 09692C 27 ADD.L 09692D 40 PUSH.6 $00 09692E 4A PUSH.6 $0A 09692F 29 MUL.L 096930 86 03 READ.L $03 096932 27 ADD.L 096933 E3 61 FD READ.F $61FD 096936 F3 61 FD WRITE.F $61FD 096939 40 PUSH.6 $00 09693A 4A PUSH.6 $0A 09693B 29 MUL.L 09693C 86 03 READ.L $03 09693E 27 ADD.L 09693F 86 03 READ.L $03 096941 E3 46 53 READ.F $4653 096944 F3 61 FD WRITE.F $61FD 096947 86 03 READ.L $03 096949 87 31 READ.F $31 09694B F3 46 53 WRITE.F $4653 09694E 86 03 READ.L $03 096950 04 FF PUSH.10 $0FF 096952 30 03 E3 BSR.68K $03E3 ; => $096572 096955 F3 40 F9 WRITE.F $40F9 096958 41 PUSH.6 $01 096959 4A PUSH.6 $0A 09695A 29 MUL.L 09695B 86 03 READ.L $03 09695D 27 ADD.L 09695E 40 PUSH.6 $00 09695F 4A PUSH.6 $0A 096960 29 MUL.L 096961 86 03 READ.L $03 096963 27 ADD.L 096964 E3 62 9D READ.F $629D 096967 F3 62 9D WRITE.F $629D 09696A 40 PUSH.6 $00 09696B 4A PUSH.6 $0A 09696C 29 MUL.L 09696D 86 03 READ.L $03 09696F 27 ADD.L 096970 86 03 READ.L $03 096972 E3 47 61 READ.F $4761 096975 F3 62 9D WRITE.F $629D 096978 86 03 READ.L $03 09697A 86 03 READ.L $03 09697C E3 40 F9 READ.F $40F9 09697F F3 47 61 WRITE.F $4761 096982 86 03 READ.L $03 096984 30 05 53 BSR.68K $0553 ; => $096434 096987 F3 41 49 WRITE.F $4149 09698A C3 28 FD READ.F $28FD 09698D 3E PUSH.W $0000 09698E 03 23 NEQ.F 096990 80 21 READ.B $21 096992 59 PUSH.6 $19 096993 2A EQ.L 096994 2D OR.L 096995 C0 54 2C READ.B $542C 096998 2D OR.L 096999 18 EC BRZ $0EC ; => $096A87 09699B 86 03 READ.L $03 09699D 86 07 READ.L $07 09699F 86 03 READ.L $03 0969A1 E3 40 59 00 READ.F $4059 0969A5 86 03 READ.L $03 0969A7 E3 40 A9 00 READ.F $40A9 0969AB 86 03 READ.L $03 0969AD E3 40 F9 00 READ.F $40F9 0969B1 86 03 READ.L $03 0969B3 E3 44 73 00 READ.F $4473 0969B7 86 03 READ.L $03 0969B9 E3 44 C3 00 READ.F $44C3 0969BD 86 03 READ.L $03 0969BF E3 41 99 00 READ.F $4199 0969C3 30 07 12 BSR.68K $0712 ; => $0962B4 => $0A6E44 0969C6 86 03 READ.L $03 0969C8 C0 56 5F READ.B $565F 0969CB 2B NEQ.L 0969CC 18 25 BRZ $025 ; => $0969F3 0969CE 86 03 READ.L $03 0969D0 86 03 READ.L $03 0969D2 E3 40 A9 READ.F $40A9 0969D5 C3 28 E3 READ.F $28E3 0969D8 86 03 READ.L $03 0969DA E3 46 B7 READ.F $46B7 0969DD C0 56 5F READ.B $565F 0969E0 E3 46 B7 READ.F $46B7 0969E3 21 SUB.F 0969E4 22 MUL.F 0969E5 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 0969EE 22 MUL.F 0969EF 21 SUB.F 0969F0 F3 40 A9 WRITE.F $40A9 0969F3 C0 67 EC READ.B $67EC 0969F6 2E NOT.L 0969F7 18 8C BRZ $08C ; => $096A85 0969F9 86 03 READ.L $03 0969FB 86 03 READ.L $03 0969FD E3 40 A9 READ.F $40A9 096A00 86 03 READ.L $03 096A02 E3 42 D9 READ.F $42D9 096A05 86 03 READ.L $03 096A07 E3 40 A9 READ.F $40A9 096A0A 21 SUB.F 096A0B 3B 3E CB FB 3C 01 A3 07 FA PUSH.F $3ECBFB3C01A307FA ; float = 0.000003 096A14 22 MUL.F 096A15 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 096A1E 20 ADD.F 096A1F 30 07 A4 BSR.68K $07A4 ; => $09627E => $002CA6 (NATIVE) 096A22 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 096A2B 22 MUL.F 096A2C 20 ADD.F 096A2D F3 40 A9 WRITE.F $40A9 096A30 86 03 READ.L $03 096A32 C0 56 5F READ.B $565F 096A35 2A EQ.L 096A36 18 12 BRZ $012 ; => $096A4A 096A38 C0 56 5F READ.B $565F 096A3B E3 40 A9 READ.F $40A9 096A3E C0 56 5F READ.B $565F 096A41 E3 42 D9 READ.F $42D9 096A44 21 SUB.F 096A45 D3 6B 27 WRITE.F $6B27 096A48 10 3B BR $03B ; => $096A85 096A4A 86 03 READ.L $03 096A4C 86 03 READ.L $03 096A4E E3 40 A9 READ.F $40A9 096A51 86 03 READ.L $03 096A53 E3 40 A9 READ.F $40A9 096A56 86 03 READ.L $03 096A58 E3 42 D9 READ.F $42D9 096A5B 21 SUB.F 096A5C C3 6B 27 READ.F $6B27 096A5F 21 SUB.F 096A60 3B 3E CB FB 3C 01 A3 07 FA PUSH.F $3ECBFB3C01A307FA ; float = 0.000003 096A69 22 MUL.F 096A6A 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 096A73 20 ADD.F 096A74 30 07 F9 BSR.68K $07F9 ; => $09627E => $002CA6 (NATIVE) 096A77 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 096A80 22 MUL.F 096A81 21 SUB.F 096A82 F3 40 A9 WRITE.F $40A9 096A85 10 06 BR $006 ; => $096A8D 096A87 86 03 READ.L $03 096A89 3E PUSH.W $0000 096A8A 30 08 03 BSR.68K $0803 ; => $09628A => $09CFB8 096A8D 32 3C ADDSP.B $3C 096A8F 34 RETURN ; ---------------- End Function $0966FA ---------------- ; ---------------- Begin 2144 Function $096A90 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A6B6C:$0A6C6B ; addr bytes opcode operands comment 096A97 31 12 SUBSP.B $12 096A99 86 03 READ.L $03 096A9B C0 29 A0 READ.B $29A0 096A9E 28 SUB.L 096A9F 94 05 WRITE.B $05 096AA1 86 03 READ.L $03 096AA3 30 04 30 BSR.68K $0430 ; => $096676 096AA6 86 03 READ.L $03 096AA8 86 03 READ.L $03 096AAA 40 PUSH.6 $00 096AAB 30 04 CC BSR.68K $04CC ; => $0965E2 096AAE F3 46 B7 WRITE.F $46B7 096AB1 86 03 READ.L $03 096AB3 E3 46 B7 READ.F $46B7 096AB6 3B 41 C2 06 42 00 00 00 00 PUSH.F $41C2064200000000 ; float = 604800000.000000 096ABF 25 GTE.F 096AC0 18 14 BRZ $014 ; => $096AD6 096AC2 86 03 READ.L $03 096AC4 86 03 READ.L $03 096AC6 E3 46 B7 READ.F $46B7 096AC9 3B 41 C2 06 42 00 00 00 00 PUSH.F $41C2064200000000 ; float = 604800000.000000 096AD2 21 SUB.F 096AD3 F3 46 B7 WRITE.F $46B7 096AD6 86 03 READ.L $03 096AD8 40 PUSH.6 $00 096AD9 30 05 6A BSR.68K $056A ; => $096572 096ADC F3 47 61 WRITE.F $4761 096ADF C0 6B 28 READ.B $6B28 096AE2 42 PUSH.6 $02 096AE3 2A EQ.L 096AE4 18 16 BRZ $016 ; => $096AFC 096AE6 86 03 READ.L $03 096AE8 30 05 F7 BSR.68K $05F7 ; => $0964F4 096AEB C3 60 45 READ.F $6045 096AEE 22 MUL.F 096AEF F3 35 43 WRITE.F $3543 096AF2 86 03 READ.L $03 096AF4 30 05 CB BSR.68K $05CB ; => $09652C 096AF7 F3 4A AB WRITE.F $4AAB 096AFA 10 61 BR $061 ; => $096B5D 096AFC C0 54 2C READ.B $542C 096AFF 18 0E BRZ $00E ; => $096B0F 096B01 86 03 READ.L $03 096B03 30 06 12 BSR.68K $0612 ; => $0964F4 096B06 C3 60 45 READ.F $6045 096B09 22 MUL.F 096B0A F3 4A FB WRITE.F $4AFB 096B0D 10 4E BR $04E ; => $096B5D 096B0F C0 35 92 READ.B $3592 096B12 18 49 BRZ $049 ; => $096B5D 096B14 30 06 23 BSR.68K $0623 ; => $0964F4 096B17 97 15 WRITE.F $15 096B19 C0 35 C4 READ.B $35C4 096B1C 18 06 BRZ $006 ; => $096B24 096B1E 87 15 READ.F $15 096B20 03 20 NEG.W 096B22 10 02 BR $002 ; => $096B26 096B24 87 15 READ.F $15 096B26 3B 3E ED F8 80 00 01 21 58 PUSH.F $3EEDF88000012158 ; float = 0.000014 096B2F 22 MUL.F 096B30 97 15 WRITE.F $15 096B32 84 05 READ.B $05 096B34 87 15 READ.F $15 096B36 3B 3E 9A 98 EF 60 6A 84 52 PUSH.F $3E9A98EF606A8452 ; float = 0.000000 096B3F 84 05 READ.B $05 096B41 E3 47 61 READ.F $4761 096B44 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 096B4D 21 SUB.F 096B4E 22 MUL.F 096B4F 21 SUB.F 096B50 3B 3F EF BD 2B 6B 2F A5 3C PUSH.F $3FEFBD2B6B2FA53C ; float = 0.991842 096B59 22 MUL.F 096B5A F3 6B 79 WRITE.F $6B79 096B5D C0 35 92 READ.B $3592 096B60 18 07 BRZ $007 ; => $096B69 096B62 30 06 D5 BSR.68K $06D5 ; => $096490 096B65 97 0D WRITE.F $0D 096B67 10 24 BR $024 ; => $096B8D 096B69 30 07 38 BSR.68K $0738 ; => $096434 096B6C 97 0D WRITE.F $0D 096B6E 87 0D READ.F $0D 096B70 3B 3F BE B8 51 EB 85 1E B8 PUSH.F $3FBEB851EB851EB8 ; float = 0.120000 096B79 03 21 LT.F 096B7B 18 10 BRZ $010 ; => $096B8D 096B7D 86 03 READ.L $03 096B7F 40 PUSH.6 $00 096B80 F0 44 23 WRITE.B $4423 096B83 C0 54 2C READ.B $542C 096B86 40 PUSH.6 $00 096B87 2A EQ.L 096B88 18 03 BRZ $003 ; => $096B8D 096B8A 3E PUSH.W $0000 096B8B 97 0D WRITE.F $0D 096B8D C0 6B 28 READ.B $6B28 096B90 42 PUSH.6 $02 096B91 2A EQ.L 096B92 18 09 BRZ $009 ; => $096B9D 096B94 86 03 READ.L $03 096B96 87 0D READ.F $0D 096B98 F3 34 F3 WRITE.F $34F3 096B9B 10 07 BR $007 ; => $096BA4 096B9D 86 03 READ.L $03 096B9F 87 0D READ.F $0D 096BA1 F3 41 49 WRITE.F $4149 096BA4 C0 29 10 READ.B $2910 096BA7 44 PUSH.6 $04 096BA8 03 28 GTE.L 096BAA C0 29 10 READ.B $2910 096BAD 4D PUSH.6 $0D 096BAE 03 25 LT.L 096BB0 2D OR.L 096BB1 18 05 BRZ $005 ; => $096BB8 096BB3 86 03 READ.L $03 096BB5 30 09 28 BSR.68K $0928 ; => $096290 => $09D2BC 096BB8 86 03 READ.L $03 096BBA 3E PUSH.W $0000 096BBB 30 09 34 BSR.68K $0934 ; => $09628A => $09CFB8 096BBE 32 16 ADDSP.B $16 096BC0 34 RETURN ; ---------------- End Function $096A90 ---------------- ; ---------------- Begin 2144 Function $096BC2 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A6B6C:$0A6C70 ; addr bytes opcode operands comment 096BC9 31 1A SUBSP.B $1A 096BCB 86 03 READ.L $03 096BCD C0 29 A0 READ.B $29A0 096BD0 28 SUB.L 096BD1 94 1C WRITE.B $1C 096BD3 84 1C READ.B $1C 096BD5 E0 44 23 READ.B $4423 096BD8 18 6F BRZ $06F ; => $096C49 096BDA 86 03 READ.L $03 096BDC E3 46 B7 READ.F $46B7 096BDF 84 1C READ.B $1C 096BE1 E3 46 B7 READ.F $46B7 096BE4 21 SUB.F 096BE5 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 096BEE 22 MUL.F 096BEF 84 1C READ.B $1C 096BF1 E3 59 E7 READ.F $59E7 096BF4 22 MUL.F 096BF5 84 1C READ.B $1C 096BF7 E3 47 61 READ.F $4761 096BFA 20 ADD.F 096BFB 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 096C04 21 SUB.F 096C05 3B 3F F8 EF 60 6A 45 65 87 PUSH.F $3FF8EF606A456587 ; float = 1.558442 096C0E 22 MUL.F 096C0F 97 0B WRITE.F $0B 096C11 87 0B READ.F $0B 096C13 86 03 READ.L $03 096C15 E3 47 61 READ.F $4761 096C18 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 096C21 21 SUB.F 096C22 21 SUB.F 096C23 97 13 WRITE.F $13 096C25 87 13 READ.F $13 096C27 30 09 BE BSR.68K $09BE ; => $09626C => $002B7E (NATIVE) 096C2A 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 096C33 24 GT.F 096C34 18 13 BRZ $013 ; => $096C49 096C36 86 03 READ.L $03 096C38 40 PUSH.6 $00 096C39 F0 44 23 WRITE.B $4423 096C3C 86 03 READ.L $03 096C3E 04 FF PUSH.10 $0FF 096C40 F0 60 33 WRITE.B $6033 096C43 86 03 READ.L $03 096C45 3E PUSH.W $0000 096C46 F3 6B 79 WRITE.F $6B79 096C49 C0 35 92 READ.B $3592 096C4C 84 1C READ.B $1C 096C4E E0 44 23 READ.B $4423 096C51 2C AND.L 096C52 19 0F BRZ $10F ; => $096D63 096C54 87 0B READ.F $0B 096C56 30 09 ED BSR.68K $09ED ; => $09626C => $002B7E (NATIVE) 096C59 3B 40 2E 00 00 00 00 00 00 PUSH.F $402E000000000000 ; float = 15.000000 096C62 03 22 LTE.F 096C64 18 35 BRZ $035 ; => $096C9B 096C66 84 1C READ.B $1C 096C68 E0 6C 29 READ.B $6C29 096C6B 2E NOT.L 096C6C 18 23 BRZ $023 ; => $096C91 096C6E 04 FF PUSH.10 $0FF 096C70 D0 4E 73 WRITE.B $4E73 096C73 86 03 READ.L $03 096C75 D0 51 00 WRITE.B $5100 096C78 5C PUSH.6 $1C 096C79 30 09 B6 BSR.68K $09B6 ; => $0962C6 => $094D12 096C7C 40 PUSH.6 $00 096C7D D0 4E 73 WRITE.B $4E73 096C80 84 1C READ.B $1C 096C82 04 FF PUSH.10 $0FF 096C84 F0 6C 29 WRITE.B $6C29 096C87 84 1C READ.B $1C 096C89 86 03 READ.L $03 096C8B E3 46 B7 READ.F $46B7 096C8E F3 6C 1F WRITE.F $6C1F 096C91 86 03 READ.L $03 096C93 C0 29 72 READ.B $2972 096C96 F0 44 23 WRITE.B $4423 096C99 10 C8 BR $0C8 ; => $096D63 096C9B 84 1C READ.B $1C 096C9D E0 6C 29 READ.B $6C29 096CA0 18 6D BRZ $06D ; => $096D0F 096CA2 04 FF PUSH.10 $0FF 096CA4 D0 4E 73 WRITE.B $4E73 096CA7 86 03 READ.L $03 096CA9 D0 51 00 WRITE.B $5100 096CAC 5D PUSH.6 $1D 096CAD 30 09 EA BSR.68K $09EA ; => $0962C6 => $094D12 096CB0 40 PUSH.6 $00 096CB1 D0 4E 73 WRITE.B $4E73 096CB4 84 1C READ.B $1C 096CB6 40 PUSH.6 $00 096CB7 F0 6C 29 WRITE.B $6C29 096CBA 86 03 READ.L $03 096CBC C0 29 72 READ.B $2972 096CBF F0 44 23 WRITE.B $4423 096CC2 86 03 READ.L $03 096CC4 E3 46 B7 READ.F $46B7 096CC7 84 1C READ.B $1C 096CC9 E3 6C 1F READ.F $6C1F 096CCC 21 SUB.F 096CCD 97 1B WRITE.F $1B 096CCF 87 1B READ.F $1B 096CD1 3B 41 B2 06 42 00 00 00 00 PUSH.F $41B2064200000000 ; float = 302400000.000000 096CDA 03 20 NEG.W 096CDC 03 21 LT.F 096CDE 18 0E BRZ $00E ; => $096CEE 096CE0 87 1B READ.F $1B 096CE2 3B 41 C2 06 42 00 00 00 00 PUSH.F $41C2064200000000 ; float = 604800000.000000 096CEB 20 ADD.F 096CEC 97 1B WRITE.F $1B 096CEE 87 1B READ.F $1B 096CF0 3B 41 02 4F 80 00 00 00 00 PUSH.F $41024F8000000000 ; float = 150000.000000 096CF9 24 GT.F 096CFA 18 07 BRZ $007 ; => $096D03 096CFC 86 03 READ.L $03 096CFE 04 FF PUSH.10 $0FF 096D00 F0 57 4B WRITE.B $574B 096D03 84 1C READ.B $1C 096D05 86 03 READ.L $03 096D07 E3 46 B7 READ.F $46B7 096D0A F3 6C 1F WRITE.F $6C1F 096D0D 10 54 BR $054 ; => $096D63 096D0F 84 1C READ.B $1C 096D11 E3 6C 1F READ.F $6C1F 096D14 3E PUSH.W $0000 096D15 03 23 NEQ.F 096D17 18 4A BRZ $04A ; => $096D63 096D19 86 03 READ.L $03 096D1B E3 46 B7 READ.F $46B7 096D1E 84 1C READ.B $1C 096D20 E3 6C 1F READ.F $6C1F 096D23 21 SUB.F 096D24 97 1B WRITE.F $1B 096D26 87 1B READ.F $1B 096D28 3B 41 B2 06 42 00 00 00 00 PUSH.F $41B2064200000000 ; float = 302400000.000000 096D31 03 20 NEG.W 096D33 03 21 LT.F 096D35 18 0E BRZ $00E ; => $096D45 096D37 87 1B READ.F $1B 096D39 3B 41 C2 06 42 00 00 00 00 PUSH.F $41C2064200000000 ; float = 604800000.000000 096D42 20 ADD.F 096D43 97 1B WRITE.F $1B 096D45 87 1B READ.F $1B 096D47 3B 40 DD 4C 00 00 00 00 00 PUSH.F $40DD4C0000000000 ; float = 30000.000000 096D50 24 GT.F 096D51 18 08 BRZ $008 ; => $096D5B 096D53 84 1C READ.B $1C 096D55 3E PUSH.W $0000 096D56 F3 6C 1F WRITE.F $6C1F 096D59 10 08 BR $008 ; => $096D63 096D5B 86 03 READ.L $03 096D5D C0 29 72 READ.B $2972 096D60 F0 44 23 WRITE.B $4423 096D63 32 1E ADDSP.B $1E 096D65 34 RETURN ; ---------------- End Function $096BC2 ---------------- ; ---------------- Begin 2144 Function $096D66 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A6B6C:$0A6C75 ; addr bytes opcode operands comment 096D6D 31 02 SUBSP.B $02 096D6F C0 29 72 READ.B $2972 096D72 2E NOT.L 096D73 18 5E BRZ $05E ; => $096DD3 096D75 86 03 READ.L $03 096D77 C0 29 A0 READ.B $29A0 096D7A 28 SUB.L 096D7B 94 04 WRITE.B $04 096D7D 84 04 READ.B $04 096D7F 41 PUSH.6 $01 096D80 27 ADD.L 096D81 36 10 05 _2362 $0005 ; A0 = $004000; (A0) = A6 + $0 096D84 C0 29 9B READ.B $299B 096D87 38 00 49 BLS.B $0049 ; => $096DD3 096D8A 84 04 READ.B $04 096D8C E0 44 23 READ.B $4423 096D8F 84 05 READ.B $05 096D91 E0 44 23 READ.B $4423 096D94 2C AND.L 096D95 84 04 READ.B $04 096D97 E0 40 09 READ.B $4009 096D9A 84 05 READ.B $05 096D9C E0 40 09 READ.B $4009 096D9F 2B NEQ.L 096DA0 2C AND.L 096DA1 18 2B BRZ $02B ; => $096DCE 096DA3 84 04 READ.B $04 096DA5 E3 47 61 READ.F $4761 096DA8 84 05 READ.B $05 096DAA E3 47 61 READ.F $4761 096DAD 21 SUB.F 096DAE 30 0B 45 BSR.68K $0B45 ; => $09626C => $002B7E (NATIVE) 096DB1 3B 40 19 99 99 99 99 99 9A PUSH.F $401999999999999A ; float = 6.400000 096DBA 03 21 LT.F 096DBC 18 10 BRZ $010 ; => $096DCE 096DBE 86 03 READ.L $03 096DC0 40 PUSH.6 $00 096DC1 F0 44 23 WRITE.B $4423 096DC4 84 05 READ.B $05 096DC6 C0 29 A0 READ.B $29A0 096DC9 27 ADD.L 096DCA 40 PUSH.6 $00 096DCB F0 44 23 WRITE.B $4423 096DCE 37 10 05 00 4F _23d2 $0005, $004F 096DD3 32 06 ADDSP.B $06 096DD5 34 RETURN ; ---------------- End Function $096D66 ---------------- ; ---------------- Begin 2144 Function $096E2A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0976BA:$097717 ; addr bytes opcode operands comment 096E31 30 00 58 BSR.68K $0058 ; => $096DDC => $0034AA (CLEARSCREEN) (NATIVE) 096E34 47 PUSH.6 $07 096E35 3F 09 45 2D 31 32 20 44 46 DISP "E-12 DF/F" 2F 46 096E40 41 PUSH.6 $01 096E41 46 PUSH.6 $06 096E42 3B 42 6D 1A 94 A2 00 00 00 PUSH.F $426D1A94A2000000 ; float = 1000000000000.000000 096E4B C3 56 25 READ.F $5625 096E4E 22 MUL.F 096E4F 30 00 7C BSR.68K $007C ; => $096DD6 => $002B7E (NATIVE) 096E52 30 00 73 BSR.68K $0073 ; => $096DE2 => $097AD2 096E55 C3 56 25 READ.F $5625 096E58 3E PUSH.W $0000 096E59 03 21 LT.F 096E5B 18 05 BRZ $005 ; => $096E62 096E5D 6D PUSH.6 $2D 096E5E 90 1F WRITE.B $1F 096E60 10 03 BR $003 ; => $096E65 096E62 6B PUSH.6 $2B 096E63 90 1F WRITE.B $1F 096E65 43 PUSH.6 $03 096E66 30 00 63 BSR.68K $0063 ; => $096E06 => $097B72 096E69 C3 56 05 READ.F $5605 096E6C 3E PUSH.W $0000 096E6D 03 23 NEQ.F 096E6F 18 45 BRZ $045 ; => $096EB6 096E71 C3 55 FD READ.F $55FD 096E74 3E PUSH.W $0000 096E75 24 GT.F 096E76 18 05 BRZ $005 ; => $096E7D 096E78 6D PUSH.6 $2D 096E79 90 0F WRITE.B $0F 096E7B 10 03 BR $003 ; => $096E80 096E7D 6B PUSH.6 $2B 096E7E 90 0F WRITE.B $0F 096E80 51 PUSH.6 $11 096E81 46 PUSH.6 $06 096E82 C3 55 FD READ.F $55FD 096E85 3B 42 6D 1A 94 A2 00 00 00 PUSH.F $426D1A94A2000000 ; float = 1000000000000.000000 096E8E 22 MUL.F 096E8F 3B 41 D7 6A 24 00 00 00 00 PUSH.F $41D76A2400000000 ; float = 1571328000.000000 096E98 C3 56 05 READ.F $5605 096E9B 22 MUL.F 096E9C 23 DIV.F 096E9D 30 00 CA BSR.68K $00CA ; => $096DD6 => $002B7E (NATIVE) 096EA0 30 00 C1 BSR.68K $00C1 ; => $096DE2 => $097AD2 096EA3 57 PUSH.6 $17 096EA4 3F 04 45 2D 31 32 DISP "E-12" 096EAA 53 PUSH.6 $13 096EAB 30 00 A8 BSR.68K $00A8 ; => $096E06 => $097B72 096EAE 5C PUSH.6 $1C 096EAF 44 PUSH.6 $04 096EB0 C3 56 05 READ.F $5605 096EB3 30 00 D4 BSR.68K $00D4 ; => $096DE2 => $097AD2 096EB6 34 RETURN ; ---------------- End Function $096E2A ---------------- ; ---------------- Begin 2144 Function $096EB8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0975AE:$0975DA ; called from $09DA58:$09DBA7 ; addr bytes opcode operands comment 096EBF 80 20 READ.B $20 096EC1 35 SWITCH 096EC2 40 06 10 50 90 D0 CASE $10, $50, $90, $D0 ; SWITCH $096EC1 096EC8 10 04 BR $004 ; => $096ECE 096ECA 00 DEFAULT ; SWITCH $096EC1 096ECB 30 00 C2 BSR.68K $00C2 ; => $096E0C => $09D9DE 096ECE 34 RETURN ; ---------------- End Function $096EB8 ---------------- ; ---------------- Begin 2164 Function $096ED0 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $096F3C:$096F55 ; called from $096F5E:$096F70 ; called from $09701C:$097046 ; called from $09735C:$09739E ; addr bytes opcode operands comment 096ED9 31 08 SUBSP.B $08 096EDB 3B 3F C9 99 99 99 99 99 9A PUSH.F $3FC999999999999A ; float = 0.200000 096EE4 C1 29 0F READ.W $290F 096EE7 03 2A LONG2FLOAT 096EE9 22 MUL.F 096EEA 97 0B WRITE.F $0B 096EEC 87 0B READ.F $0B 096EEE 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 096EF7 03 21 LT.F 096EF9 18 0B BRZ $00B ; => $096F06 096EFB 3B 40 00 00 00 00 00 00 00 PUSH.F $4000000000000000 ; float = 2.000000 096F04 97 0B WRITE.F $0B 096F06 87 0B READ.F $0B 096F08 C3 28 F5 READ.F $28F5 096F0B 3B 40 00 00 00 00 00 00 00 PUSH.F $4000000000000000 ; float = 2.000000 096F14 22 MUL.F 096F15 03 21 LT.F 096F17 18 12 BRZ $012 ; => $096F2B 096F19 87 0B READ.F $0B 096F1B C3 28 F5 READ.F $28F5 096F1E 3B 40 00 00 00 00 00 00 00 PUSH.F $4000000000000000 ; float = 2.000000 096F27 23 DIV.F 096F28 20 ADD.F 096F29 97 0B WRITE.F $0B 096F2B C0 56 60 READ.B $5660 096F2E 87 0B READ.F $0B 096F30 03 29 FLOAT2LONG 096F32 43 PUSH.6 $03 096F33 27 ADD.L 096F34 03 25 LT.L 096F36 96 03 WRITE.L $03 096F38 32 08 ADDSP.B $08 096F3A 34 RETURN ; ---------------- End Function $096ED0 ---------------- ; ---------------- Begin 2144 Function $096F3C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0970A2:$0970AF ; addr bytes opcode operands comment 096F43 83 37 READ.F $37 096F45 C3 29 3F READ.F $293F 096F48 20 ADD.F 096F49 30 01 5E BSR.68K $015E ; => $096DEE => $097C46 096F4C 83 3F READ.F $3F 096F4E C3 29 47 READ.F $2947 096F51 20 ADD.F 096F52 30 01 61 BSR.68K $0161 ; => $096DF4 => $097C9E 096F55 30 00 88 BSR.68K $0088 ; => $096ED0 096F58 18 03 BRZ $003 ; => $096F5D 096F5A 6A PUSH.6 $2A 096F5B 90 1C WRITE.B $1C 096F5D 34 RETURN ; ---------------- End Function $096F3C ---------------- ; ---------------- Begin 2144 Function $096F5E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0970A2:$0970B7 ; addr bytes opcode operands comment 096F65 31 12 SUBSP.B $12 096F67 83 47 READ.F $47 096F69 C3 29 4F READ.F $294F 096F6C 20 ADD.F 096F6D 30 01 76 BSR.68K $0176 ; => $096DFA => $097CE0 096F70 30 00 A3 BSR.68K $00A3 ; => $096ED0 096F73 18 03 BRZ $003 ; => $096F78 096F75 6A PUSH.6 $2A 096F76 90 1C WRITE.B $1C 096F78 4B PUSH.6 $0B 096F79 3F 05 20 20 20 20 20 DISP " " 096F80 4C PUSH.6 $0C 096F81 44 PUSH.6 $04 096F82 C3 01 17 READ.F $0117 096F85 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 096F8E 20 ADD.F 096F8F 30 01 B0 BSR.68K $01B0 ; => $096DE2 => $097AD2 096F92 50 PUSH.6 $10 096F93 43 PUSH.6 $03 096F94 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 096F9D 83 D7 READ.F $D7 096F9F 22 MUL.F 096FA0 30 01 C1 BSR.68K $01C1 ; => $096DE2 => $097AD2 096FA3 54 PUSH.6 $14 096FA4 43 PUSH.6 $03 096FA5 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 096FAE 83 DF READ.F $DF 096FB0 22 MUL.F 096FB1 30 01 D2 BSR.68K $01D2 ; => $096DE2 => $097AD2 096FB4 58 PUSH.6 $18 096FB5 43 PUSH.6 $03 096FB6 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 096FBF 83 E7 READ.F $E7 096FC1 22 MUL.F 096FC2 30 01 E3 BSR.68K $01E3 ; => $096DE2 => $097AD2 096FC5 51 PUSH.6 $11 096FC6 30 01 C9 BSR.68K $01C9 ; => $096E00 => $097B5C 096FC9 55 PUSH.6 $15 096FCA 30 01 CD BSR.68K $01CD ; => $096E00 => $097B5C 096FCD 59 PUSH.6 $19 096FCE 30 01 D1 BSR.68K $01D1 ; => $096E00 => $097B5C 096FD1 3B 42 02 A0 5F 20 00 00 00 PUSH.F $4202A05F20000000 ; float = 10000000000.000000 096FDA 97 0F WRITE.F $0F 096FDC C0 55 63 READ.B $5563 096FDF 40 PUSH.6 $00 096FE0 03 25 LT.L 096FE2 18 2B BRZ $02B ; => $09700F 096FE4 40 PUSH.6 $00 096FE5 36 10 10 _2362 $0010 ; A0 = $004000; (A0) = A6 + $0 096FE8 C0 55 63 READ.B $5563 096FEB 41 PUSH.6 $01 096FEC 28 SUB.L 096FED 38 00 1D BLS.B $001D ; => $09700D 096FF0 84 10 READ.B $10 096FF2 E0 47 6B READ.B $476B 096FF5 E3 48 B7 READ.F $48B7 096FF8 87 0F READ.F $0F 096FFA 03 21 LT.F 096FFC 18 0A BRZ $00A ; => $097008 096FFE 84 10 READ.B $10 097000 E0 47 6B READ.B $476B 097003 E3 48 B7 READ.F $48B7 097006 97 0F WRITE.F $0F 097008 37 10 10 00 25 _23d2 $0010, $0025 09700D 10 03 BR $003 ; => $097012 09700F 3E PUSH.W $0000 097010 97 0F WRITE.F $0F 097012 5C PUSH.6 $1C 097013 44 PUSH.6 $04 097014 87 0F READ.F $0F 097016 30 02 37 BSR.68K $0237 ; => $096DE2 => $097AD2 097019 32 12 ADDSP.B $12 09701B 34 RETURN ; ---------------- End Function $096F5E ---------------- ; ---------------- Begin 2144 Function $09701C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0970A2:$0970BF ; addr bytes opcode operands comment 097023 40 PUSH.6 $00 097024 3F 20 48 56 45 4C 20 31 32 DISP "HVEL 12399 1239^VVEL 12399 KNOTS" 33 39 39 20 31 32 33 39 5E 56 56 45 4C 20 31 32 33 39 39 20 4B 4E 4F 54 53 097046 30 01 79 BSR.68K $0179 ; => $096ED0 097049 18 03 BRZ $003 ; => $09704E 09704B 6A PUSH.6 $2A 09704C 90 1B WRITE.B $1B 09704E 45 PUSH.6 $05 09704F 45 PUSH.6 $05 097050 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 097059 C3 55 59 READ.F $5559 09705C 22 MUL.F 09705D 30 02 7E BSR.68K $027E ; => $096DE2 => $097AD2 097060 47 PUSH.6 $07 097061 30 02 64 BSR.68K $0264 ; => $096E00 => $097B5C 097064 4B PUSH.6 $0B 097065 44 PUSH.6 $04 097066 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 09706F C3 55 51 READ.F $5551 097072 22 MUL.F 097073 30 02 94 BSR.68K $0294 ; => $096DE2 => $097AD2 097076 4D PUSH.6 $0D 097077 30 02 7A BSR.68K $027A ; => $096E00 => $097B5C 09707A 56 PUSH.6 $16 09707B 44 PUSH.6 $04 09707C 3B 40 68 48 F5 C2 8F 5C 29 PUSH.F $406848F5C28F5C29 ; float = 194.280000 097085 C3 55 31 READ.F $5531 097088 30 02 B5 BSR.68K $02B5 ; => $096DD6 => $002B7E (NATIVE) 09708B 22 MUL.F 09708C 30 02 AD BSR.68K $02AD ; => $096DE2 => $097AD2 09708F 57 PUSH.6 $17 097090 30 02 93 BSR.68K $0293 ; => $096E00 => $097B5C 097093 C3 55 31 READ.F $5531 097096 3E PUSH.W $0000 097097 03 21 LT.F 097099 18 03 BRZ $003 ; => $09709E 09709B 6D PUSH.6 $2D 09709C 10 01 BR $001 ; => $09709F 09709E 6B PUSH.6 $2B 09709F 90 0A WRITE.B $0A 0970A1 34 RETURN ; ---------------- End Function $09701C ---------------- ; ---------------- Begin 2144 Function $0970A2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0975AE:$0975C9 ; called from $0976BA:$0976F6 ; addr bytes opcode operands comment 0970A9 80 22 READ.B $22 0970AB 35 SWITCH 0970AC 10 06 00 CASE $00 ; SWITCH $0970AB 0970AF 30 01 76 BSR.68K $0176 ; => $096F3C 0970B2 10 11 BR $011 ; => $0970C5 0970B4 10 06 01 CASE $01 ; SWITCH $0970AB 0970B7 30 01 5C BSR.68K $015C ; => $096F5E 0970BA 10 09 BR $009 ; => $0970C5 0970BC 10 06 02 CASE $02 ; SWITCH $0970AB 0970BF 30 00 A6 BSR.68K $00A6 ; => $09701C 0970C2 10 01 BR $001 ; => $0970C5 0970C4 00 DEFAULT ; SWITCH $0970AB 0970C5 34 RETURN ; ---------------- End Function $0970A2 ---------------- ; ---------------- Begin 2144 Function $0970C6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB9F ; addr bytes opcode operands comment 0970CD 80 20 READ.B $20 0970CF 35 SWITCH 0970D0 40 0E 10 50 90 D0 CASE $10, $50, $90, $D0 ; SWITCH $0970CF 0970D6 80 22 READ.B $22 0970D8 41 PUSH.6 $01 0970D9 27 ADD.L 0970DA 43 PUSH.6 $03 0970DB 2F MOD.L 0970DC 90 22 WRITE.B $22 0970DE 10 04 BR $004 ; => $0970E4 0970E0 00 DEFAULT ; SWITCH $0970CF 0970E1 30 02 D8 BSR.68K $02D8 ; => $096E0C => $09D9DE 0970E4 34 RETURN ; ---------------- End Function $0970C6 ---------------- ; ---------------- Begin 2144 Function $0970E6 ---------------- ; A0 = $004004; (A0) = SP + $B ; called from $09735C:$097389 ; called from $09735C:$09738F ; called from $09735C:$097395 ; called from $09735C:$09739B ; addr bytes opcode operands comment 0970ED 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0970F6 87 0B READ.F $0B 0970F8 22 MUL.F 0970F9 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 097102 20 ADD.F 097103 97 0B WRITE.F $0B 097105 87 0B READ.F $0B 097107 3B 40 8F 38 00 00 00 00 00 PUSH.F $408F380000000000 ; float = 999.000000 097110 24 GT.F 097111 18 0B BRZ $00B ; => $09711E 097113 3B 40 8F 38 00 00 00 00 00 PUSH.F $408F380000000000 ; float = 999.000000 09711C 97 0B WRITE.F $0B 09711E 86 03 READ.L $03 097120 43 PUSH.6 $03 097121 87 0B READ.F $0B 097123 30 03 44 BSR.68K $0344 ; => $096DE2 => $097AD2 097126 86 03 READ.L $03 097128 41 PUSH.6 $01 097129 27 ADD.L 09712A 30 03 2D BSR.68K $032D ; => $096E00 => $097B5C 09712D 86 03 READ.L $03 09712F A0 1F READ.B $1F 097131 70 PUSH.6 $30 097132 2A EQ.L 097133 18 05 BRZ $005 ; => $09713A 097135 86 03 READ.L $03 097137 60 PUSH.6 $20 097138 B0 1F WRITE.B $1F 09713A 32 0C ADDSP.B $0C 09713C 34 RETURN ; ---------------- End Function $0970E6 ---------------- ; ---------------- Begin 2144 Function $09713E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $097420:$097435 ; called from $0976BA:$097701 ; addr bytes opcode operands comment 097145 31 1A SUBSP.B $1A 097147 30 03 6E BSR.68K $036E ; => $096DDC => $0034AA (CLEARSCREEN) (NATIVE) 09714A 67 PUSH.6 $27 09714B 40 PUSH.6 $00 09714C 40 PUSH.6 $00 09714D 67 PUSH.6 $27 09714E 40 PUSH.6 $00 09714F 40 PUSH.6 $00 097150 40 PUSH.6 $00 097151 40 PUSH.6 $00 097152 30 03 37 BSR.68K $0337 ; => $096E1E => $099614 097155 80 22 READ.B $22 097157 E0 40 09 READ.B $4009 09715A 94 00 WRITE.B $00 09715C 84 00 READ.B $00 09715E 19 C7 BRZ $1C7 ; => $097327 097160 C0 29 9C READ.B $299C 097163 18 13 BRZ $013 ; => $097178 097165 40 PUSH.6 $00 097166 3F 0E 53 56 78 78 20 4C 31 DISP "SVxx L1 xx L2 " 20 78 78 20 4C 32 20 097176 10 13 BR $013 ; => $09718B 097178 40 PUSH.6 $00 097179 3F 10 53 56 78 78 20 20 53 DISP "SVxx SNR " 4E 52 20 20 20 20 20 20 20 09718B 5D PUSH.6 $1D 09718C 3F 02 43 48 DISP "CH" 097190 42 PUSH.6 $02 097191 42 PUSH.6 $02 097192 84 00 READ.B $00 097194 03 2A LONG2FLOAT 097196 30 03 B7 BSR.68K $03B7 ; => $096DE2 => $097AD2 097199 80 22 READ.B $22 09719B E0 44 23 READ.B $4423 09719E 18 D8 BRZ $0D8 ; => $097278 0971A0 C0 29 9C READ.B $299C 0971A3 18 03 BRZ $003 ; => $0971A8 0971A5 48 PUSH.6 $08 0971A6 10 01 BR $001 ; => $0971A9 0971A8 4A PUSH.6 $0A 0971A9 80 22 READ.B $22 0971AB E3 41 49 READ.F $4149 0971AE 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0971B7 20 ADD.F 0971B8 03 29 FLOAT2LONG 0971BA 30 03 D5 BSR.68K $03D5 ; => $096DE8 => $097B0A 0971BD C0 29 9C READ.B $299C 0971C0 18 B4 BRZ $0B4 ; => $097276 0971C2 80 22 READ.B $22 0971C4 C0 29 A0 READ.B $29A0 0971C7 27 ADD.L 0971C8 E0 44 23 READ.B $4423 0971CB 80 22 READ.B $22 0971CD C0 29 A0 READ.B $29A0 0971D0 27 ADD.L 0971D1 E3 41 49 READ.F $4149 0971D4 3E PUSH.W $0000 0971D5 03 23 NEQ.F 0971D7 2C AND.L 0971D8 C0 54 2C READ.B $542C 0971DB 40 PUSH.6 $00 0971DC 2A EQ.L 0971DD 2C AND.L 0971DE 18 91 BRZ $091 ; => $097271 0971E0 80 22 READ.B $22 0971E2 C0 29 A0 READ.B $29A0 0971E5 27 ADD.L 0971E6 E3 41 49 READ.F $4149 0971E9 97 11 WRITE.F $11 0971EB C0 4E 69 READ.B $4E69 0971EE 2E NOT.L 0971EF 18 0E BRZ $00E ; => $0971FF 0971F1 87 11 READ.F $11 0971F3 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0971FC 22 MUL.F 0971FD 97 11 WRITE.F $11 0971FF 87 11 READ.F $11 097201 3E PUSH.W $0000 097202 03 21 LT.F 097204 18 13 BRZ $013 ; => $097219 097206 C0 4E 69 READ.B $4E69 097209 18 0B BRZ $00B ; => $097216 09720B 87 11 READ.F $11 09720D 03 20 NEG.W 09720F 97 11 WRITE.F $11 097211 6D PUSH.6 $2D 097212 90 12 WRITE.B $12 097214 10 03 BR $003 ; => $097219 097216 3E PUSH.W $0000 097217 97 11 WRITE.F $11 097219 87 11 READ.F $11 09721B 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 097224 03 21 LT.F 097226 18 18 BRZ $018 ; => $097240 097228 4E PUSH.6 $0E 097229 87 11 READ.F $11 09722B 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 097234 22 MUL.F 097235 03 29 FLOAT2LONG 097237 30 04 52 BSR.68K $0452 ; => $096DE8 => $097B0A 09723A 4D PUSH.6 $0D 09723B 30 04 3E BSR.68K $043E ; => $096E00 => $097B5C 09723E 10 2F BR $02F ; => $09726F 097240 87 11 READ.F $11 097242 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 09724B 03 21 LT.F 09724D 18 18 BRZ $018 ; => $097267 09724F 4E PUSH.6 $0E 097250 87 11 READ.F $11 097252 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 09725B 22 MUL.F 09725C 03 29 FLOAT2LONG 09725E 30 04 79 BSR.68K $0479 ; => $096DE8 => $097B0A 097261 4E PUSH.6 $0E 097262 30 04 65 BSR.68K $0465 ; => $096E00 => $097B5C 097265 10 08 BR $008 ; => $09726F 097267 4E PUSH.6 $0E 097268 87 11 READ.F $11 09726A 03 29 FLOAT2LONG 09726C 30 04 87 BSR.68K $0487 ; => $096DE8 => $097B0A 09726F 10 05 BR $005 ; => $097276 097271 4E PUSH.6 $0E 097272 3F 02 2A 2A DISP "**" 097276 10 0E BR $00E ; => $097286 097278 45 PUSH.6 $05 097279 3F 0B 20 20 53 45 41 52 43 DISP " SEARCHING" 48 49 4E 47 097286 83 37 READ.F $37 097288 3E PUSH.W $0000 097289 03 23 NEQ.F 09728B 83 3F READ.F $3F 09728D 3E PUSH.W $0000 09728E 03 23 NEQ.F 097290 2D OR.L 097291 18 92 BRZ $092 ; => $097325 097293 C0 4E 69 READ.B $4E69 097296 C0 29 9C READ.B $299C 097299 2C AND.L 09729A 80 22 READ.B $22 09729C E0 44 23 READ.B $4423 09729F 2C AND.L 0972A0 C0 29 61 READ.B $2961 0972A3 4B PUSH.6 $0B 0972A4 2A EQ.L 0972A5 C0 29 61 READ.B $2961 0972A8 4C PUSH.6 $0C 0972A9 2A EQ.L 0972AA 2D OR.L 0972AB 2C AND.L 0972AC 18 49 BRZ $049 ; => $0972F7 0972AE 50 PUSH.6 $10 0972AF 3F 08 45 4C 56 78 78 20 49 DISP "ELVxx IR" 52 0972B9 C0 29 61 READ.B $2961 0972BC 4C PUSH.6 $0C 0972BD 2A EQ.L 0972BE 18 09 BRZ $009 ; => $0972C9 0972C0 80 22 READ.B $22 0972C2 E3 6B C9 READ.F $6BC9 0972C5 97 19 WRITE.F $19 0972C7 10 07 BR $007 ; => $0972D0 0972C9 80 22 READ.B $22 0972CB E3 6B 79 READ.F $6B79 0972CE 97 19 WRITE.F $19 0972D0 87 19 READ.F $19 0972D2 3E PUSH.W $0000 0972D3 03 21 LT.F 0972D5 18 09 BRZ $009 ; => $0972E0 0972D7 87 19 READ.F $19 0972D9 03 20 NEG.W 0972DB 97 19 WRITE.F $19 0972DD 6D PUSH.6 $2D 0972DE 90 07 WRITE.B $07 0972E0 59 PUSH.6 $19 0972E1 43 PUSH.6 $03 0972E2 87 19 READ.F $19 0972E4 3B 40 B7 70 00 00 00 00 00 PUSH.F $40B7700000000000 ; float = 6000.000000 0972ED 22 MUL.F 0972EE 30 05 0F BSR.68K $050F ; => $096DE2 => $097AD2 0972F1 59 PUSH.6 $19 0972F2 30 04 F5 BSR.68K $04F5 ; => $096E00 => $097B5C 0972F5 10 16 BR $016 ; => $09730D 0972F7 50 PUSH.6 $10 0972F8 3F 09 45 4C 56 78 78 20 41 DISP "ELVxx AZM" 5A 4D 097303 59 PUSH.6 $19 097304 43 PUSH.6 $03 097305 84 00 READ.B $00 097307 E3 25 07 READ.F $2507 09730A 30 05 2B BSR.68K $052B ; => $096DE2 => $097AD2 09730D 84 00 READ.B $00 09730F E3 23 FF READ.F $23FF 097312 97 09 WRITE.F $09 097314 53 PUSH.6 $13 097315 42 PUSH.6 $02 097316 87 09 READ.F $09 097318 30 05 39 BSR.68K $0539 ; => $096DE2 => $097AD2 09731B 87 09 READ.F $09 09731D 3E PUSH.W $0000 09731E 03 21 LT.F 097320 18 03 BRZ $003 ; => $097325 097322 6D PUSH.6 $2D 097323 90 0D WRITE.B $0D 097325 10 27 BR $027 ; => $09734E 097327 80 22 READ.B $22 097329 E0 60 29 READ.B $6029 09732C 18 0F BRZ $00F ; => $09733D 09732E 43 PUSH.6 $03 09732F 3F 0A 55 4E 41 53 53 49 47 DISP "UNASSIGNED" 4E 45 44 09733B 10 11 BR $011 ; => $09734E 09733D 41 PUSH.6 $01 09733E 3F 0E 46 41 49 4C 45 44 20 DISP "FAILED CHANNEL" 43 48 41 4E 4E 45 4C 09734E 5D PUSH.6 $1D 09734F 3F 02 43 48 DISP "CH" 097353 80 22 READ.B $22 097355 70 PUSH.6 $30 097356 27 ADD.L 097357 90 00 WRITE.B $00 097359 32 1A ADDSP.B $1A 09735B 34 RETURN ; ---------------- End Function $09713E ---------------- ; ---------------- Begin 2144 Function $09735C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $097420:$097440 ; called from $0976BA:$09770C ; addr bytes opcode operands comment 097363 40 PUSH.6 $00 097364 3F 20 50 44 4F 50 31 32 33 DISP "PDOP123 HDOP123VDOP123 TDOP123" 20 20 48 44 4F 50 31 32 33 56 44 4F 50 31 32 33 20 20 54 44 4F 50 31 32 33 097386 44 PUSH.6 $04 097387 83 67 READ.F $67 097389 30 02 A6 BSR.68K $02A6 ; => $0970E6 09738C 4D PUSH.6 $0D 09738D 83 6F READ.F $6F 09738F 30 02 AC BSR.68K $02AC ; => $0970E6 097392 54 PUSH.6 $14 097393 83 77 READ.F $77 097395 30 02 B2 BSR.68K $02B2 ; => $0970E6 097398 5D PUSH.6 $1D 097399 83 7F READ.F $7F 09739B 30 02 B8 BSR.68K $02B8 ; => $0970E6 09739E 30 04 D1 BSR.68K $04D1 ; => $096ED0 0973A1 18 03 BRZ $003 ; => $0973A6 0973A3 6A PUSH.6 $2A 0973A4 90 18 WRITE.B $18 0973A6 34 RETURN ; ---------------- End Function $09735C ---------------- ; ---------------- Begin 2144 Function $0973A8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $097420:$09744B ; called from $09DA58:$09DBC7 ; addr bytes opcode operands comment 0973AF 31 02 SUBSP.B $02 0973B1 47 PUSH.6 $07 0973B2 90 21 WRITE.B $21 0973B4 80 20 READ.B $20 0973B6 35 SWITCH 0973B7 40 60 10 50 90 D0 CASE $10, $50, $90, $D0 ; SWITCH $0973B6 0973BD 30 05 E4 BSR.68K $05E4 ; => $096DDC => $0034AA (CLEARSCREEN) (NATIVE) 0973C0 40 PUSH.6 $00 0973C1 3F 07 48 45 41 4C 54 48 59 DISP "HEALTHY" 0973CA 48 PUSH.6 $08 0973CB 94 01 WRITE.B $01 0973CD 80 22 READ.B $22 0973CF 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0973D2 60 PUSH.6 $20 0973D3 38 00 3E BLS.B $003E ; => $097414 0973D6 84 00 READ.B $00 0973D8 E0 02 29 READ.B $0229 0973DB 40 PUSH.6 $00 0973DC 2A EQ.L 0973DD 18 30 BRZ $030 ; => $09740F 0973DF 84 01 READ.B $01 0973E1 5F PUSH.6 $1F 0973E2 2A EQ.L 0973E3 18 11 BRZ $011 ; => $0973F6 0973E5 5C PUSH.6 $1C 0973E6 30 05 D1 BSR.68K $05D1 ; => $096E18 => $09E078 0973E9 90 22 WRITE.B $22 0973EB 5C PUSH.6 $1C 0973EC 3F 04 4D 4F 52 45 DISP "MORE" 0973F2 10 23 BR $023 ; => $097417 0973F4 10 19 BR $019 ; => $09740F 0973F6 84 01 READ.B $01 0973F8 42 PUSH.6 $02 0973F9 84 00 READ.B $00 0973FB 03 2A LONG2FLOAT 0973FD 30 06 1E BSR.68K $061E ; => $096DE2 => $097AD2 097400 84 01 READ.B $01 097402 43 PUSH.6 $03 097403 27 ADD.L 097404 94 01 WRITE.B $01 097406 84 01 READ.B $01 097408 51 PUSH.6 $11 097409 2A EQ.L 09740A 18 03 BRZ $003 ; => $09740F 09740C 50 PUSH.6 $10 09740D 94 01 WRITE.B $01 09740F 37 10 00 00 42 _23d2 $0000, $0042 097414 41 PUSH.6 $01 097415 90 22 WRITE.B $22 097417 10 04 BR $004 ; => $09741D 097419 00 DEFAULT ; SWITCH $0973B6 09741A 30 06 11 BSR.68K $0611 ; => $096E0C => $09D9DE 09741D 32 02 ADDSP.B $02 09741F 34 RETURN ; ---------------- End Function $0973A8 ---------------- ; ---------------- Begin 2144 Function $097420 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DBAF ; addr bytes opcode operands comment 097427 31 02 SUBSP.B $02 097429 80 20 READ.B $20 09742B 35 SWITCH 09742C 10 0C 10 CASE $10 ; SWITCH $09742B 09742F 59 PUSH.6 $19 097430 90 21 WRITE.B $21 097432 40 PUSH.6 $00 097433 90 22 WRITE.B $22 097435 30 02 FA BSR.68K $02FA ; => $09713E 097438 10 2E BR $02E ; => $097468 09743A 10 09 50 CASE $50 ; SWITCH $09742B 09743D 5A PUSH.6 $1A 09743E 90 21 WRITE.B $21 097440 30 00 E7 BSR.68K $00E7 ; => $09735C 097443 10 23 BR $023 ; => $097468 097445 10 09 90 CASE $90 ; SWITCH $09742B 097448 41 PUSH.6 $01 097449 90 22 WRITE.B $22 09744B 30 00 A6 BSR.68K $00A6 ; => $0973A8 09744E 10 18 BR $018 ; => $097468 097450 10 12 D0 CASE $D0 ; SWITCH $09742B 097453 C0 29 8D READ.B $298D 097456 2E NOT.L 097457 18 09 BRZ $009 ; => $097462 097459 77 PUSH.6 $37 09745A 90 21 WRITE.B $21 09745C 40 PUSH.6 $00 09745D 90 22 WRITE.B $22 09745F 30 06 3E BSR.68K $063E ; => $096E24 => $0AAA3A 097462 10 04 BR $004 ; => $097468 097464 00 DEFAULT ; SWITCH $09742B 097465 30 06 5C BSR.68K $065C ; => $096E0C => $09D9DE 097468 32 02 ADDSP.B $02 09746A 34 RETURN ; ---------------- End Function $097420 ---------------- ; ---------------- Begin 2144 Function $09746C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DBB7 ; addr bytes opcode operands comment 097473 80 20 READ.B $20 097475 35 SWITCH 097476 20 17 10 50 CASE $10, $50 ; SWITCH $097475 09747A 80 22 READ.B $22 09747C 40 PUSH.6 $00 09747D 2A EQ.L 09747E 18 07 BRZ $007 ; => $097487 097480 C0 29 9B READ.B $299B 097483 90 22 WRITE.B $22 097485 10 06 BR $006 ; => $09748D 097487 80 22 READ.B $22 097489 41 PUSH.6 $01 09748A 28 SUB.L 09748B 90 22 WRITE.B $22 09748D 10 16 BR $016 ; => $0974A5 09748F 20 10 90 D0 CASE $90, $D0 ; SWITCH $097475 097493 80 22 READ.B $22 097495 41 PUSH.6 $01 097496 27 ADD.L 097497 C0 29 9B READ.B $299B 09749A 41 PUSH.6 $01 09749B 27 ADD.L 09749C 2F MOD.L 09749D 90 22 WRITE.B $22 09749F 10 04 BR $004 ; => $0974A5 0974A1 00 DEFAULT ; SWITCH $097475 0974A2 30 06 99 BSR.68K $0699 ; => $096E0C => $09D9DE 0974A5 34 RETURN ; ---------------- End Function $09746C ---------------- ; ---------------- Begin 2144 Function $0974A6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DBBF ; addr bytes opcode operands comment 0974AD 80 20 READ.B $20 0974AF 35 SWITCH 0974B0 40 06 10 50 90 D0 CASE $10, $50, $90, $D0 ; SWITCH $0974AF 0974B6 10 04 BR $004 ; => $0974BC 0974B8 00 DEFAULT ; SWITCH $0974AF 0974B9 30 06 B0 BSR.68K $06B0 ; => $096E0C => $09D9DE 0974BC 34 RETURN ; ---------------- End Function $0974A6 ---------------- ; ---------------- Begin 2144 Function $0974BE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB97 ; addr bytes opcode operands comment 0974C5 80 20 READ.B $20 0974C7 35 SWITCH 0974C8 50 DE 00 10 50 90 D0 CASE $00, $10, $50, $90, $D0; SWITCH $0974C7 0974CF 30 06 F6 BSR.68K $06F6 ; => $096DDC => $0034AA (CLEARSCREEN) (NATIVE) 0974D2 C0 55 A2 READ.B $55A2 0974D5 18 BE BRZ $0BE ; => $097595 0974D7 46 PUSH.6 $06 0974D8 3F 17 2D 20 20 2D 20 20 20 DISP "- - - - WN" 20 20 20 20 20 2D 20 20 20 2D 20 20 20 20 57 4E 0974F1 C0 2A 0A READ.B $2A0A 0974F4 35 SWITCH 0974F5 10 09 00 CASE $00 ; SWITCH $0974F4 0974F8 40 PUSH.6 $00 0974F9 3F 03 53 55 4E DISP "SUN" 0974FE 10 54 BR $054 ; => $097554 097500 10 09 01 CASE $01 ; SWITCH $0974F4 097503 40 PUSH.6 $00 097504 3F 03 4D 4F 4E DISP "MON" 097509 10 49 BR $049 ; => $097554 09750B 10 09 02 CASE $02 ; SWITCH $0974F4 09750E 40 PUSH.6 $00 09750F 3F 03 54 55 45 DISP "TUE" 097514 10 3E BR $03E ; => $097554 097516 10 09 03 CASE $03 ; SWITCH $0974F4 097519 40 PUSH.6 $00 09751A 3F 03 57 45 44 DISP "WED" 09751F 10 33 BR $033 ; => $097554 097521 10 09 04 CASE $04 ; SWITCH $0974F4 097524 40 PUSH.6 $00 097525 3F 03 54 48 55 DISP "THU" 09752A 10 28 BR $028 ; => $097554 09752C 10 09 05 CASE $05 ; SWITCH $0974F4 09752F 40 PUSH.6 $00 097530 3F 03 46 52 49 DISP "FRI" 097535 10 1D BR $01D ; => $097554 097537 10 09 06 CASE $06 ; SWITCH $0974F4 09753A 40 PUSH.6 $00 09753B 3F 03 53 41 54 DISP "SAT" 097540 10 12 BR $012 ; => $097554 097542 10 09 07 CASE $07 ; SWITCH $0974F4 097545 40 PUSH.6 $00 097546 3F 03 53 55 4E DISP "SUN" 09754B 10 07 BR $007 ; => $097554 09754D 00 DEFAULT ; SWITCH $0974F4 09754E 40 PUSH.6 $00 09754F 3F 03 45 52 52 DISP "ERR" 097554 44 PUSH.6 $04 097555 C0 29 FF READ.B $29FF 097558 30 07 73 BSR.68K $0773 ; => $096DE8 => $097B0A 09755B 47 PUSH.6 $07 09755C C0 29 FE READ.B $29FE 09755F 30 07 7A BSR.68K $077A ; => $096DE8 => $097B0A 097562 4A PUSH.6 $0A 097563 C0 2A 09 READ.B $2A09 097566 30 07 81 BSR.68K $0781 ; => $096DE8 => $097B0A 097569 4D PUSH.6 $0D 09756A 43 PUSH.6 $03 09756B C3 2A 07 READ.F $2A07 09756E 30 07 8F BSR.68K $078F ; => $096DE2 => $097AD2 097571 5D PUSH.6 $1D 097572 43 PUSH.6 $03 097573 C1 29 FD READ.W $29FD 097576 07 FF PUSH.10 $3FF 097578 2C AND.L 097579 03 2A LONG2FLOAT 09757B 30 07 9C BSR.68K $079C ; => $096DE2 => $097AD2 09757E 50 PUSH.6 $10 09757F C0 2A 0B READ.B $2A0B 097582 30 07 9D BSR.68K $079D ; => $096DE8 => $097B0A 097585 57 PUSH.6 $17 097586 C0 2A 0D READ.B $2A0D 097589 30 07 A4 BSR.68K $07A4 ; => $096DE8 => $097B0A 09758C 53 PUSH.6 $13 09758D C0 2A 0C READ.B $2A0C 097590 30 07 81 BSR.68K $0781 ; => $096E12 => $097D4A 097593 10 11 BR $011 ; => $0975A6 097595 40 PUSH.6 $00 097596 3F 0E 20 20 54 49 4D 45 20 DISP " TIME NOT SET" 4E 4F 54 20 53 45 54 0975A6 10 04 BR $004 ; => $0975AC 0975A8 00 DEFAULT ; SWITCH $0974C7 0975A9 30 07 A0 BSR.68K $07A0 ; => $096E0C => $09D9DE 0975AC 34 RETURN ; ---------------- End Function $0974BE ---------------- ; ---------------- Begin 2144 Function $0975AE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB8F ; addr bytes opcode operands comment 0975B5 80 20 READ.B $20 0975B7 35 SWITCH 0975B8 10 06 10 CASE $10 ; SWITCH $0975B7 0975BB 58 PUSH.6 $18 0975BC 90 21 WRITE.B $21 0975BE 10 59 BR $059 ; => $097619 0975C0 10 0C 50 CASE $50 ; SWITCH $0975B7 0975C3 56 PUSH.6 $16 0975C4 90 21 WRITE.B $21 0975C6 40 PUSH.6 $00 0975C7 90 22 WRITE.B $22 0975C9 30 05 2A BSR.68K $052A ; => $0970A2 0975CC 10 4B BR $04B ; => $097619 0975CE 10 0F 90 CASE $90 ; SWITCH $0975B7 0975D1 5C PUSH.6 $1C 0975D2 90 21 WRITE.B $21 0975D4 40 PUSH.6 $00 0975D5 90 22 WRITE.B $22 0975D7 30 07 FE BSR.68K $07FE ; => $096DDC => $0034AA (CLEARSCREEN) (NATIVE) 0975DA 30 07 25 BSR.68K $0725 ; => $096EB8 0975DD 10 3A BR $03A ; => $097619 0975DF 10 34 D0 CASE $D0 ; SWITCH $0975B7 0975E2 57 PUSH.6 $17 0975E3 90 21 WRITE.B $21 0975E5 40 PUSH.6 $00 0975E6 3F 1F 20 20 20 20 47 44 4F DISP " GDOP RTCMSVPOS HEALTHY " 50 20 20 20 20 52 54 43 4D 53 56 50 4F 53 20 20 48 45 41 4C 54 48 59 20 097607 C0 29 8D READ.B $298D 09760A 18 07 BRZ $007 ; => $097613 09760C 4C PUSH.6 $0C 09760D 3F 04 20 20 20 20 DISP " " 097613 10 04 BR $004 ; => $097619 097615 00 DEFAULT ; SWITCH $0975B7 097616 30 08 0D BSR.68K $080D ; => $096E0C => $09D9DE 097619 34 RETURN ; ---------------- End Function $0975AE ---------------- ; ---------------- Begin 2144 Function $09761A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D9DE:$09D9FE ; addr bytes opcode operands comment 097621 44 PUSH.6 $04 097622 90 21 WRITE.B $21 097624 40 PUSH.6 $00 097625 3F 20 20 20 20 20 20 50 4F DISP " POS SATSTIME FRQ " 53 20 20 20 20 53 41 54 53 54 49 4D 45 20 20 20 20 20 46 52 51 20 20 20 20 097647 34 RETURN ; ---------------- End Function $09761A ---------------- ; ---------------- Begin 2144 Function $0976BA ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0976C1 80 21 READ.B $21 0976C3 35 SWITCH 0976C4 10 09 0E CASE $0E ; SWITCH $0976C3 0976C7 30 00 34 BSR.68K $0034 ; => $097696 => $0908BE 0976CA 30 00 7F BSR.68K $007F ; => $09764E => $0034C8 (SETSEGMENTS) (NATIVE) 0976CD 10 DA BR $0DA ; => $0977A9 0976CF 10 22 00 CASE $00 ; SWITCH $0976C3 0976D2 C0 4E 65 READ.B $4E65 0976D5 68 PUSH.6 $28 0976D6 2F MOD.L 0976D7 D0 4E 65 WRITE.B $4E65 0976DA 43 PUSH.6 $03 0976DB D0 4E 64 WRITE.B $4E64 0976DE 40 PUSH.6 $00 0976DF 5F PUSH.6 $1F 0976E0 04 FF PUSH.10 $0FF 0976E2 30 00 9D BSR.68K $009D ; => $097648 => $097B2C 0976E5 80 20 READ.B $20 0976E7 40 PUSH.6 $00 0976E8 2A EQ.L 0976E9 18 03 BRZ $003 ; => $0976EE 0976EB 30 00 5E BSR.68K $005E ; => $097690 => $09090E 0976EE 30 00 A3 BSR.68K $00A3 ; => $09764E => $0034C8 (SETSEGMENTS) (NATIVE) 0976F1 10 B6 BR $0B6 ; => $0977A9 0976F3 10 09 16 CASE $16 ; SWITCH $0976C3 0976F6 30 00 87 BSR.68K $0087 ; => $097672 => $0970A2 0976F9 30 00 AE BSR.68K $00AE ; => $09764E => $0034C8 (SETSEGMENTS) (NATIVE) 0976FC 10 AB BR $0AB ; => $0977A9 0976FE 10 09 19 CASE $19 ; SWITCH $0976C3 097701 30 00 98 BSR.68K $0098 ; => $09766C => $09713E 097704 30 00 B3 BSR.68K $00B3 ; => $097654 => $0996BA 097707 10 A0 BR $0A0 ; => $0977A9 097709 10 09 1A CASE $1A ; SWITCH $0976C3 09770C 30 00 A9 BSR.68K $00A9 ; => $097666 => $09735C 09770F 30 00 C4 BSR.68K $00C4 ; => $09764E => $0034C8 (SETSEGMENTS) (NATIVE) 097712 10 95 BR $095 ; => $0977A9 097714 10 09 1C CASE $1C ; SWITCH $0976C3 097717 30 00 BA BSR.68K $00BA ; => $097660 => $096E2A 09771A 30 00 CF BSR.68K $00CF ; => $09764E => $0034C8 (SETSEGMENTS) (NATIVE) 09771D 10 8A BR $08A ; => $0977A9 09771F 10 22 53 CASE $53 ; SWITCH $0976C3 097722 80 23 READ.B $23 097724 35 SWITCH 097725 10 06 25 CASE $25 ; SWITCH $097724 097728 30 00 8F BSR.68K $008F ; => $09769C => $09A9D6 09772B 10 11 BR $011 ; => $09773E 09772D 10 06 26 CASE $26 ; SWITCH $097724 097730 30 00 91 BSR.68K $0091 ; => $0976A2 => $09AA12 097733 10 09 BR $009 ; => $09773E 097735 10 06 29 CASE $29 ; SWITCH $097724 097738 30 00 93 BSR.68K $0093 ; => $0976A8 => $09AACA 09773B 10 01 BR $001 ; => $09773E 09773D 00 DEFAULT ; SWITCH $097724 09773E 30 00 ED BSR.68K $00ED ; => $097654 => $0996BA 097741 10 66 BR $066 ; => $0977A9 097743 10 14 55 CASE $55 ; SWITCH $0976C3 097746 30 00 CB BSR.68K $00CB ; => $09767E => $0ACB00 097749 80 23 READ.B $23 09774B 40 PUSH.6 $00 09774C 2A EQ.L 09774D 18 05 BRZ $005 ; => $097754 09774F 30 00 FE BSR.68K $00FE ; => $097654 => $0996BA 097752 10 03 BR $003 ; => $097757 097754 30 01 09 BSR.68K $0109 ; => $09764E => $0034C8 (SETSEGMENTS) (NATIVE) 097757 10 50 BR $050 ; => $0977A9 097759 10 0F 43 CASE $43 ; SWITCH $0976C3 09775C 80 22 READ.B $22 09775E 40 PUSH.6 $00 09775F 2B NEQ.L 097760 18 06 BRZ $006 ; => $097768 097762 30 00 E1 BSR.68K $00E1 ; => $097684 => $0A4FCC 097765 30 01 14 BSR.68K $0114 ; => $097654 => $0996BA 097768 10 3F BR $03F ; => $0977A9 09776A 10 06 01 CASE $01 ; SWITCH $0976C3 09776D 30 00 E6 BSR.68K $00E6 ; => $09768A => $091A50 097770 10 37 BR $037 ; => $0977A9 097772 10 09 37 CASE $37 ; SWITCH $0976C3 097775 30 00 CA BSR.68K $00CA ; => $0976AE => $0AAA3A 097778 30 01 2D BSR.68K $012D ; => $09764E => $0034C8 (SETSEGMENTS) (NATIVE) 09777B 10 2C BR $02C ; => $0977A9 09777D 10 1F 51 CASE $51 ; SWITCH $0976C3 097780 80 23 READ.B $23 097782 4F PUSH.6 $0F 097783 03 27 LTE.L 097785 80 23 READ.B $23 097787 53 PUSH.6 $13 097788 03 28 GTE.L 09778A 2C AND.L 09778B 18 0C BRZ $00C ; => $097799 09778D 80 23 READ.B $23 09778F 4A PUSH.6 $0A 097790 28 SUB.L 097791 30 00 E0 BSR.68K $00E0 ; => $0976B4 => $092282 097794 30 01 49 BSR.68K $0149 ; => $09764E => $0034C8 (SETSEGMENTS) (NATIVE) 097797 10 03 BR $003 ; => $09779C 097799 30 01 48 BSR.68K $0148 ; => $097654 => $0996BA 09779C 10 0B BR $00B ; => $0977A9 09779E 00 DEFAULT ; SWITCH $0976C3 09779F 80 21 READ.B $21 0977A1 5E PUSH.6 $1E 0977A2 03 25 LT.L 0977A4 18 03 BRZ $003 ; => $0977A9 0977A6 30 01 55 BSR.68K $0155 ; => $097654 => $0996BA 0977A9 34 RETURN ; ---------------- End Function $0976BA ---------------- ; ---------------- Begin 2164 Function $0977AA ---------------- ; P0 = $0020; P1 = $0020; P2 = $01 ; A0 = $004004; (A0) = A6 + $1F; D1 = $000020 ; called from $093B12:$093B98 ; called from $0A2E20:$0A30E5 ; addr bytes opcode operands comment 0977B3 31 08 SUBSP.B $08 0977B5 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0977BE 87 3F READ.F $3F 0977C0 87 27 READ.F $27 0977C2 22 MUL.F 0977C3 87 37 READ.F $37 0977C5 87 2F READ.F $2F 0977C7 22 MUL.F 0977C8 21 SUB.F 0977C9 23 DIV.F 0977CA 97 47 WRITE.F $47 0977CC 87 27 READ.F $27 0977CE 87 47 READ.F $47 0977D0 22 MUL.F 0977D1 97 1F WRITE.F $1F 0977D3 87 3F READ.F $3F 0977D5 87 47 READ.F $47 0977D7 22 MUL.F 0977D8 97 07 WRITE.F $07 0977DA 32 28 ADDSP.B $28 0977DC 34 RETURN ; ---------------- End Function $0977AA ---------------- ; ---------------- Begin 2164 Function $0977DE ---------------- ; P0 = $0048; P1 = $0048; P2 = $01 ; A0 = $004004; (A0) = A6 + $47; D1 = $000048 ; called from $0939F6:$093A82 ; called from $0A34CE:$0A36B2 ; addr bytes opcode operands comment 0977E7 31 3A SUBSP.B $3A 0977E9 87 6F READ.F $6F 0977EB 87 4F READ.F $4F 0977ED 22 MUL.F 0977EE 87 67 READ.F $67 0977F0 87 57 READ.F $57 0977F2 22 MUL.F 0977F3 21 SUB.F 0977F4 97 A7 WRITE.F $A7 0977F6 87 67 READ.F $67 0977F8 87 5F READ.F $5F 0977FA 22 MUL.F 0977FB 87 77 READ.F $77 0977FD 87 4F READ.F $4F 0977FF 22 MUL.F 097800 21 SUB.F 097801 97 AF WRITE.F $AF 097803 87 77 READ.F $77 097805 87 57 READ.F $57 097807 22 MUL.F 097808 87 6F READ.F $6F 09780A 87 5F READ.F $5F 09780C 22 MUL.F 09780D 21 SUB.F 09780E 97 B7 WRITE.F $B7 097810 87 8F READ.F $8F 097812 87 4F READ.F $4F 097814 22 MUL.F 097815 87 7F READ.F $7F 097817 87 5F READ.F $5F 097819 22 MUL.F 09781A 21 SUB.F 09781B 97 BF WRITE.F $BF 09781D 87 8F READ.F $8F 09781F 87 6F READ.F $6F 097821 22 MUL.F 097822 87 87 READ.F $87 097824 87 77 READ.F $77 097826 22 MUL.F 097827 21 SUB.F 097828 97 C7 WRITE.F $C7 09782A 87 8F READ.F $8F 09782C 87 A7 READ.F $A7 09782E 22 MUL.F 09782F 87 87 READ.F $87 097831 87 AF READ.F $AF 097833 22 MUL.F 097834 20 ADD.F 097835 87 7F READ.F $7F 097837 87 B7 READ.F $B7 097839 22 MUL.F 09783A 20 ADD.F 09783B 97 97 WRITE.F $97 09783D 87 97 READ.F $97 09783F 3E PUSH.W $0000 097840 26 EQ.F 097841 18 21 BRZ $021 ; => $097864 097843 40 PUSH.6 $00 097844 36 10 C8 _2362 $00C8 ; A0 = $004000; (A0) = A6 + $0 097847 42 PUSH.6 $02 097848 38 00 17 BLS.B $0017 ; => $097862 09784B 84 C8 READ.B $C8 09784D 43 PUSH.6 $03 09784E 29 MUL.L 09784F 84 C8 READ.B $C8 097851 27 ADD.L 097852 3B 54 B2 49 AD 25 94 C3 7D PUSH.F $54B249AD2594C37D ; float = 10000000000000000159028911097599180468360808563945281389781327557747838772170381060813469985856815104.000000 09785B B7 47 WRITE.F $47 09785D 37 10 C8 00 1B _23d2 $00C8, $001B 097862 10 23 BR $023 ; => $097887 097864 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09786D 87 97 READ.F $97 09786F 23 DIV.F 097870 97 9F WRITE.F $9F 097872 87 A7 READ.F $A7 097874 87 9F READ.F $9F 097876 22 MUL.F 097877 97 47 WRITE.F $47 097879 87 BF READ.F $BF 09787B 87 9F READ.F $9F 09787D 22 MUL.F 09787E 97 27 WRITE.F $27 097880 87 C7 READ.F $C7 097882 87 9F READ.F $9F 097884 22 MUL.F 097885 97 07 WRITE.F $07 097887 32 82 ADDSP.B $82 097889 34 RETURN ; ---------------- End Function $0977DE ---------------- ; ---------------- Begin 2164 Function $09788A ---------------- ; P0 = $0080; P1 = $0080; P2 = $01 ; A0 = $004004; (A0) = A6 + $7F; D1 = $000080 ; called from $093876:$093928 ; called from $0A1128:$0A1296 ; called from $0A1F62:$0A1FBB ; called from $0A3DBE:$0A3FD2 ; called from $0AE262:$0AE31D ; addr bytes opcode operands comment 097893 31 BA SUBSP.B $BA 097895 87 DF READ.F $DF 097897 87 B7 READ.F $B7 097899 22 MUL.F 09789A 87 D7 READ.F $D7 09789C 87 BF READ.F $BF 09789E 22 MUL.F 09789F 21 SUB.F 0978A0 D7 01 17 WRITE.F $0117 0978A3 87 DF READ.F $DF 0978A5 87 AF READ.F $AF 0978A7 22 MUL.F 0978A8 87 CF READ.F $CF 0978AA 87 BF READ.F $BF 0978AC 22 MUL.F 0978AD 21 SUB.F 0978AE D7 01 1F WRITE.F $011F 0978B1 87 DF READ.F $DF 0978B3 87 97 READ.F $97 0978B5 22 MUL.F 0978B6 87 D7 READ.F $D7 0978B8 87 9F READ.F $9F 0978BA 22 MUL.F 0978BB 21 SUB.F 0978BC D7 01 27 WRITE.F $0127 0978BF 87 DF READ.F $DF 0978C1 87 87 READ.F $87 0978C3 22 MUL.F 0978C4 87 C7 READ.F $C7 0978C6 87 9F READ.F $9F 0978C8 22 MUL.F 0978C9 21 SUB.F 0978CA D7 01 2F WRITE.F $012F 0978CD 87 D7 READ.F $D7 0978CF 87 AF READ.F $AF 0978D1 22 MUL.F 0978D2 87 CF READ.F $CF 0978D4 87 B7 READ.F $B7 0978D6 22 MUL.F 0978D7 21 SUB.F 0978D8 D7 01 37 WRITE.F $0137 0978DB 87 D7 READ.F $D7 0978DD 87 87 READ.F $87 0978DF 22 MUL.F 0978E0 87 C7 READ.F $C7 0978E2 87 97 READ.F $97 0978E4 22 MUL.F 0978E5 21 SUB.F 0978E6 D7 01 3F WRITE.F $013F 0978E9 87 BF READ.F $BF 0978EB 87 97 READ.F $97 0978ED 22 MUL.F 0978EE 87 B7 READ.F $B7 0978F0 87 9F READ.F $9F 0978F2 22 MUL.F 0978F3 21 SUB.F 0978F4 D7 01 57 WRITE.F $0157 0978F7 87 BF READ.F $BF 0978F9 87 8F READ.F $8F 0978FB 22 MUL.F 0978FC 87 AF READ.F $AF 0978FE 87 9F READ.F $9F 097900 22 MUL.F 097901 21 SUB.F 097902 D7 01 5F WRITE.F $015F 097905 87 BF READ.F $BF 097907 87 87 READ.F $87 097909 22 MUL.F 09790A 87 A7 READ.F $A7 09790C 87 9F READ.F $9F 09790E 22 MUL.F 09790F 21 SUB.F 097910 D7 01 67 WRITE.F $0167 097913 87 B7 READ.F $B7 097915 87 8F READ.F $8F 097917 22 MUL.F 097918 87 AF READ.F $AF 09791A 87 97 READ.F $97 09791C 22 MUL.F 09791D 21 SUB.F 09791E D7 01 6F WRITE.F $016F 097921 87 B7 READ.F $B7 097923 87 87 READ.F $87 097925 22 MUL.F 097926 87 A7 READ.F $A7 097928 87 97 READ.F $97 09792A 22 MUL.F 09792B 21 SUB.F 09792C D7 01 77 WRITE.F $0177 09792F 87 AF READ.F $AF 097931 87 87 READ.F $87 097933 22 MUL.F 097934 87 A7 READ.F $A7 097936 87 8F READ.F $8F 097938 22 MUL.F 097939 21 SUB.F 09793A D7 01 7F WRITE.F $017F 09793D 87 D7 READ.F $D7 09793F C7 01 7F READ.F $017F 097942 22 MUL.F 097943 87 CF READ.F $CF 097945 C7 01 77 READ.F $0177 097948 22 MUL.F 097949 21 SUB.F 09794A 87 C7 READ.F $C7 09794C C7 01 6F READ.F $016F 09794F 22 MUL.F 097950 20 ADD.F 097951 D7 01 87 WRITE.F $0187 097954 87 DF READ.F $DF 097956 C7 01 7F READ.F $017F 097959 22 MUL.F 09795A 03 20 NEG.W 09795C 87 CF READ.F $CF 09795E C7 01 67 READ.F $0167 097961 22 MUL.F 097962 20 ADD.F 097963 87 C7 READ.F $C7 097965 C7 01 5F READ.F $015F 097968 22 MUL.F 097969 21 SUB.F 09796A D7 01 8F WRITE.F $018F 09796D 87 DF READ.F $DF 09796F C7 01 77 READ.F $0177 097972 22 MUL.F 097973 87 D7 READ.F $D7 097975 C7 01 67 READ.F $0167 097978 22 MUL.F 097979 21 SUB.F 09797A 87 C7 READ.F $C7 09797C C7 01 57 READ.F $0157 09797F 22 MUL.F 097980 20 ADD.F 097981 D7 01 97 WRITE.F $0197 097984 87 DF READ.F $DF 097986 C7 01 6F READ.F $016F 097989 22 MUL.F 09798A 03 20 NEG.W 09798C 87 D7 READ.F $D7 09798E C7 01 5F READ.F $015F 097991 22 MUL.F 097992 20 ADD.F 097993 87 CF READ.F $CF 097995 C7 01 57 READ.F $0157 097998 22 MUL.F 097999 21 SUB.F 09799A D7 01 9F WRITE.F $019F 09799D 87 FF READ.F $FF 09799F C7 01 7F READ.F $017F 0979A2 22 MUL.F 0979A3 87 EF READ.F $EF 0979A5 C7 01 67 READ.F $0167 0979A8 22 MUL.F 0979A9 21 SUB.F 0979AA 87 E7 READ.F $E7 0979AC C7 01 5F READ.F $015F 0979AF 22 MUL.F 0979B0 20 ADD.F 0979B1 D7 01 A7 WRITE.F $01A7 0979B4 87 FF READ.F $FF 0979B6 C7 01 3F READ.F $013F 0979B9 22 MUL.F 0979BA 87 F7 READ.F $F7 0979BC C7 01 2F READ.F $012F 0979BF 22 MUL.F 0979C0 21 SUB.F 0979C1 87 E7 READ.F $E7 0979C3 C7 01 27 READ.F $0127 0979C6 22 MUL.F 0979C7 20 ADD.F 0979C8 D7 01 AF WRITE.F $01AF 0979CB 87 FF READ.F $FF 0979CD C7 01 37 READ.F $0137 0979D0 22 MUL.F 0979D1 87 F7 READ.F $F7 0979D3 C7 01 1F READ.F $011F 0979D6 22 MUL.F 0979D7 21 SUB.F 0979D8 87 EF READ.F $EF 0979DA C7 01 17 READ.F $0117 0979DD 22 MUL.F 0979DE 20 ADD.F 0979DF D7 01 B7 WRITE.F $01B7 0979E2 87 FF READ.F $FF 0979E4 C7 01 87 READ.F $0187 0979E7 22 MUL.F 0979E8 87 F7 READ.F $F7 0979EA C7 01 8F READ.F $018F 0979ED 22 MUL.F 0979EE 20 ADD.F 0979EF 87 EF READ.F $EF 0979F1 C7 01 97 READ.F $0197 0979F4 22 MUL.F 0979F5 20 ADD.F 0979F6 87 E7 READ.F $E7 0979F8 C7 01 9F READ.F $019F 0979FB 22 MUL.F 0979FC 20 ADD.F 0979FD D7 01 07 WRITE.F $0107 097A00 C7 01 07 READ.F $0107 097A03 3E PUSH.W $0000 097A04 26 EQ.F 097A05 18 23 BRZ $023 ; => $097A2A 097A07 40 PUSH.6 $00 097A08 36 11 B8 _2362 $01B8 ; A0 = $004000; (A0) = A6 + $0 097A0B 43 PUSH.6 $03 097A0C 38 00 19 BLS.B $0019 ; => $097A28 097A0F C4 01 B8 READ.B $01B8 097A12 44 PUSH.6 $04 097A13 29 MUL.L 097A14 C4 01 B8 READ.B $01B8 097A17 27 ADD.L 097A18 3B 54 B2 49 AD 25 94 C3 7D PUSH.F $54B249AD2594C37D ; float = 10000000000000000159028911097599180468360808563945281389781327557747838772170381060813469985856815104.000000 097A21 B7 7F WRITE.F $7F 097A23 37 11 B8 00 1D _23d2 $01B8, $001D 097A28 10 34 BR $034 ; => $097A5E 097A2A 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 097A33 C7 01 07 READ.F $0107 097A36 23 DIV.F 097A37 D7 01 0F WRITE.F $010F 097A3A C7 01 87 READ.F $0187 097A3D C7 01 0F READ.F $010F 097A40 22 MUL.F 097A41 97 7F WRITE.F $7F 097A43 C7 01 A7 READ.F $01A7 097A46 C7 01 0F READ.F $010F 097A49 22 MUL.F 097A4A 97 57 WRITE.F $57 097A4C C7 01 AF READ.F $01AF 097A4F C7 01 0F READ.F $010F 097A52 22 MUL.F 097A53 97 2F WRITE.F $2F 097A55 C7 01 B7 READ.F $01B7 097A58 C7 01 0F READ.F $010F 097A5B 22 MUL.F 097A5C 97 07 WRITE.F $07 097A5E 03 2E 01 3A ADDSP.W $013A 097A62 34 RETURN ; ---------------- End Function $09788A ---------------- ; ---------------- Begin 2164 Function $097A88 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0918EE:$091904 ; called from $0A170E:$0A172C ; called from $0A5108:$0A512C ; called from $0ACCF6:$0ACE33 ; called from $0ACE3C:$0ACE47 ; called from $0ACE50:$0ACE75 ; addr bytes opcode operands comment 097A91 41 PUSH.6 $01 097A92 96 03 WRITE.L $03 097A94 86 03 READ.L $03 097A96 E0 02 29 READ.B $0229 097A99 40 PUSH.6 $00 097A9A 2B NEQ.L 097A9B 18 0A BRZ $00A ; => $097AA7 097A9D 86 03 READ.L $03 097A9F 41 PUSH.6 $01 097AA0 27 ADD.L 097AA1 61 PUSH.6 $21 097AA2 2F MOD.L 097AA3 96 03 WRITE.L $03 097AA5 17 ED BR $-13 ; => $097A94 097AA7 34 RETURN ; ---------------- End Function $097A88 ---------------- ; ---------------- Begin 2164 Function $097AA8 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0917DC:$091856 ; called from $0917DC:$09186E ; called from $0A173A:$0A179C ; called from $0A173A:$0A17B4 ; called from $0A1896:$0A197F ; called from $0A1896:$0A19C6 ; called from $0A4170:$0A41A0 ; called from $0A5136:$0A5198 ; called from $0A5136:$0A51B6 ; called from $0ACFC8:$0AD01B ; called from $0ACFC8:$0AD033 ; addr bytes opcode operands comment 097AB1 86 07 READ.L $07 097AB3 41 PUSH.6 $01 097AB4 03 27 LTE.L 097AB6 86 07 READ.L $07 097AB8 60 PUSH.6 $20 097AB9 03 28 GTE.L 097ABB 2C AND.L 097ABC 86 07 READ.L $07 097ABE E0 02 29 READ.B $0229 097AC1 7F PUSH.6 $3F 097AC2 2B NEQ.L 097AC3 86 07 READ.L $07 097AC5 E0 21 A9 READ.B $21A9 097AC8 41 PUSH.6 $01 097AC9 2B NEQ.L 097ACA 2D OR.L 097ACB 2C AND.L 097ACC 96 03 WRITE.L $03 097ACE 32 04 ADDSP.B $04 097AD0 34 RETURN ; ---------------- End Function $097AA8 ---------------- ; ---------------- Begin 2144 Function $097AD2 ---------------- ; A0 = $004004; (A0) = SP + $F ; called from $0901A0:$0901DB ; called from $090492:$090564 ; called from $090E2C:$090E70 ; called from $09154C:$09157D ; called from $0920C0:$092127 ; called from $0920C0:$092191 ; called from $0921BC:$09222E ; called from $0921BC:$09226F ; called from $092282:$0922F9 ; called from $092282:$09232D ; called from $092282:$092341 ; called from $092378:$0923AC ; called from $093246:$093386 ; called from $094C3A:$094C48 ; called from $094C3A:$094C52 ; called from $094C5A:$094C81 ; called from $095376:$0953BC ; called from $09548E:$0954B8 ; called from $095608:$095642 ; called from $095608:$095651 ; called from $09565E:$095782 ; called from $096E2A:$096E52 ; called from $096E2A:$096EA0 ; called from $096E2A:$096EB3 ; called from $096F5E:$096F8F ; called from $096F5E:$096FA0 ; called from $096F5E:$096FB1 ; called from $096F5E:$096FC2 ; called from $096F5E:$097016 ; called from $09701C:$09705D ; called from $09701C:$097073 ; called from $09701C:$09708C ; called from $0970E6:$097123 ; called from $09713E:$097196 ; called from $09713E:$0972EE ; called from $09713E:$09730A ; called from $09713E:$097318 ; called from $0973A8:$0973FD ; called from $0974BE:$09756E ; called from $0974BE:$09757B ; called from $097B8C:$097BBC ; called from $097B8C:$097C14 ; called from $097B8C:$097C31 ; called from $097CE0:$097D33 ; called from $09802A:$09805F ; called from $09802A:$09806B ; called from $0980A4:$098120 ; called from $0980A4:$098138 ; called from $0980A4:$098157 ; called from $098160:$0981AC ; called from $098160:$0981B5 ; called from $099844:$09988A ; called from $09A712:$09A758 ; called from $09A712:$09A7AF ; called from $09A712:$09A7E3 ; called from $09A7F0:$09A820 ; called from $09A828:$09A98C ; called from $09A828:$09A997 ; called from $09A828:$09A9A5 ; called from $09AB22:$09AC3B ; called from $09AB22:$09AC51 ; called from $09AB22:$09ACA8 ; called from $09AB22:$09ACBE ; called from $09B650:$09B688 ; called from $09B944:$09B994 ; called from $09B944:$09B9AF ; called from $09B9B8:$09BA50 ; called from $09B9B8:$09BA80 ; called from $09B9B8:$09BAB2 ; called from $09C4C2:$09C4FE ; called from $09C4C2:$09C510 ; called from $09C4C2:$09C524 ; called from $09C4C2:$09C536 ; called from $09C544:$09C57B ; called from $09C582:$09C5B0 ; called from $09C5FC:$09C630 ; called from $09C638:$09C684 ; called from $09C748:$09C79C ; called from $09C748:$09C7C4 ; called from $09E254:$09E280 ; called from $09E288:$09E2AA ; called from $09E3B8:$09E3E6 ; called from $09EFF0:$09F08A ; called from $09EFF0:$09F09E ; called from $09EFF0:$09F0A8 ; called from $09EFF0:$09F0B2 ; called from $09F0C8:$09F22C ; called from $09F0C8:$09F240 ; called from $0A98AA:$0A98DB ; called from $0A995A:$0A998B ; called from $0A9A06:$0A9A6C ; called from $0AA0B8:$0AA180 ; called from $0AAA3A:$0AAB08 ; called from $0AAA3A:$0AAB48 ; called from $0AAA3A:$0AAB6A ; called from $0AAA3A:$0AABB1 ; called from $0AAA3A:$0AABF0 ; called from $0AAD24:$0AAD43 ; called from $0AAD48:$0AAE12 ; called from $0AAD48:$0AAE1D ; called from $0AAD48:$0AAE27 ; called from $0AAD48:$0AAE37 ; called from $0AAE48:$0AAEB7 ; called from $0AC406:$0AC42F ; called from $0AC406:$0AC452 ; called from $0AC406:$0AC484 ; called from $0AC48A:$0AC4DD ; called from $0AC48A:$0AC4EF ; called from $0AC4FA:$0AC539 ; called from $0AC596:$0AC61D ; called from $0AC596:$0AC62C ; called from $0AC596:$0AC66C ; called from $0AC596:$0AC67A ; called from $0AC684:$0AC798 ; called from $0AC684:$0AC7AE ; called from $0AC684:$0AC805 ; called from $0AC684:$0AC81B ; called from $0AC84C:$0AC886 ; called from $0AC84C:$0AC895 ; called from $0AC84C:$0AC8C7 ; called from $0AC84C:$0AC8D5 ; called from $0AC8E0:$0AC930 ; called from $0AC8E0:$0AC942 ; called from $0AE8F8:$0AE92C ; called from $0AE8F8:$0AE96D ; called from $0AE9AA:$0AE9C9 ; called from $0AE9AA:$0AEA10 ; addr bytes opcode operands comment 097AD9 31 12 SUBSP.B $12 097ADB 87 0F READ.F $0F 097ADD 30 00 76 BSR.68K $0076 ; => $097A6A => $002D80 (NATIVE) 097AE0 0D 00 21 00 10 ?_$0D $0021, $0010 097AE5 86 07 READ.L $07 097AE7 41 PUSH.6 $01 097AE8 28 SUB.L 097AE9 36 10 10 _2362 $0010 ; A0 = $004000; (A0) = A6 + $0 097AEC 40 PUSH.6 $00 097AED 3A 00 17 BGT.B $0017 ; => $097B07 097AF0 86 03 READ.L $03 097AF2 84 10 READ.B $10 097AF4 27 ADD.L 097AF5 70 PUSH.6 $30 097AF6 50 PUSH.6 $10 097AF7 86 07 READ.L $07 097AF9 28 SUB.L 097AFA 84 10 READ.B $10 097AFC 27 ADD.L 097AFD A4 21 READ.B $21 097AFF 27 ADD.L 097B00 B0 1F WRITE.B $1F 097B02 39 10 10 00 1B _23fc $1010, $001B 097B07 32 22 ADDSP.B $22 097B09 34 RETURN ; ---------------- End Function $097AD2 ---------------- ; ---------------- Begin 2144 Function $097B0A ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $090030:$09004E ; called from $090060:$09009D ; called from $0901A0:$09024C ; called from $0901A0:$0902D9 ; called from $0902E0:$09035D ; called from $090492:$090571 ; called from $090492:$09057F ; called from $090492:$090585 ; called from $09060C:$090647 ; called from $09065A:$090684 ; called from $09065A:$090690 ; called from $09065A:$0906E1 ; called from $090734:$090796 ; called from $09166C:$091684 ; called from $09166C:$09168D ; called from $091794:$0917C1 ; called from $091794:$0917C7 ; called from $091794:$0917CD ; called from $0919F4:$091A20 ; called from $0919F4:$091A2E ; called from $091BF2:$091C4D ; called from $091BF2:$091D5D ; called from $0921BC:$0921FA ; called from $0923EA:$09241E ; called from $094CDE:$094D06 ; called from $09713E:$0971BA ; called from $09713E:$097237 ; called from $09713E:$09725E ; called from $09713E:$09726C ; called from $0974BE:$097558 ; called from $0974BE:$09755F ; called from $0974BE:$097566 ; called from $0974BE:$097582 ; called from $0974BE:$097589 ; called from $097B8C:$097BF6 ; called from $0980A4:$0980C8 ; called from $0980A4:$0980DD ; called from $0980A4:$0980FE ; called from $0980A4:$098106 ; called from $098160:$0981E0 ; called from $098160:$0981E7 ; called from $09A9AC:$09A9BC ; called from $09A9AC:$09A9C3 ; called from $09A9AC:$09A9CA ; called from $09E5E8:$09E813 ; called from $09E82C:$09E84D ; called from $0A170E:$0A172F ; called from $0A1C82:$0A1CCC ; called from $0A1C82:$0A1DDD ; called from $0A1C82:$0A1E35 ; called from $0A1C82:$0A1E95 ; called from $0A1F22:$0A1F56 ; called from $0A2468:$0A25A4 ; called from $0A408A:$0A40D1 ; called from $0A4170:$0A41AC ; called from $0A4170:$0A4209 ; called from $0A4170:$0A4231 ; called from $0A5108:$0A512F ; called from $0AAA3A:$0AABC1 ; called from $0AAA3A:$0AABF7 ; called from $0ACC7C:$0ACCB2 ; called from $0ACE50:$0ACE78 ; called from $0ACE80:$0ACEAE ; called from $0ACF08:$0ACFBA ; called from $0AD08A:$0AD144 ; called from $0AE8F8:$0AE93A ; called from $0AE8F8:$0AE956 ; called from $0AE8F8:$0AE978 ; called from $0AE8F8:$0AE988 ; addr bytes opcode operands comment 097B11 86 03 READ.L $03 097B13 70 PUSH.6 $30 097B14 86 07 READ.L $07 097B16 4A PUSH.6 $0A 097B17 03 24 DIV.L 097B19 27 ADD.L 097B1A B0 1F WRITE.B $1F 097B1C 86 03 READ.L $03 097B1E 41 PUSH.6 $01 097B1F 27 ADD.L 097B20 70 PUSH.6 $30 097B21 86 07 READ.L $07 097B23 4A PUSH.6 $0A 097B24 2F MOD.L 097B25 27 ADD.L 097B26 B0 1F WRITE.B $1F 097B28 32 08 ADDSP.B $08 097B2A 34 RETURN ; ---------------- End Function $097B0A ---------------- ; ---------------- Begin 2144 Function $097B2C ---------------- ; A0 = $004004; (A0) = SP + $B ; called from $0976BA:$0976E2 ; called from $097B4E:$097B58 ; addr bytes opcode operands comment 097B33 31 02 SUBSP.B $02 097B35 86 03 READ.L $03 097B37 36 10 0C _2362 $000C ; A0 = $004000; (A0) = A6 + $0 097B3A 86 07 READ.L $07 097B3C 38 00 0B BLS.B $000B ; => $097B4A 097B3F 84 0C READ.B $0C 097B41 86 0B READ.L $0B 097B43 B0 1F WRITE.B $1F 097B45 37 10 0C 00 10 _23d2 $000C, $0010 097B4A 32 0E ADDSP.B $0E 097B4C 34 RETURN ; ---------------- End Function $097B2C ---------------- ; ---------------- Begin 2144 Function $097B4E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $097C9E:$097CA5 ; addr bytes opcode operands comment 097B55 50 PUSH.6 $10 097B56 5F PUSH.6 $1F 097B57 60 PUSH.6 $20 097B58 30 00 2F BSR.68K $002F ; => $097B2C 097B5B 34 RETURN ; ---------------- End Function $097B4E ---------------- ; ---------------- Begin 2144 Function $097B5C ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $090060:$0900C8 ; called from $090060:$0900CF ; called from $0901A0:$0901E2 ; called from $090492:$090503 ; called from $0907BE:$090828 ; called from $0919F4:$091A3C ; called from $092282:$092353 ; called from $092282:$092359 ; called from $092282:$09236B ; called from $092282:$092371 ; called from $095376:$0953C3 ; called from $0953C8:$0953FD ; called from $0953C8:$09541B ; called from $095608:$095655 ; called from $09565E:$0956DA ; called from $09565E:$095786 ; called from $096F5E:$096FC6 ; called from $096F5E:$096FCA ; called from $096F5E:$096FCE ; called from $09701C:$097061 ; called from $09701C:$097077 ; called from $09701C:$097090 ; called from $0970E6:$09712A ; called from $09713E:$09723B ; called from $09713E:$097262 ; called from $09713E:$0972F2 ; called from $097B8C:$097C1B ; called from $097B8C:$097C38 ; called from $097CE0:$097D37 ; called from $099658:$0996A8 ; called from $099AE2:$099BD6 ; called from $099D5C:$099ECD ; called from $099D5C:$099ED1 ; called from $099D5C:$099ED7 ; called from $099D5C:$099EDB ; called from $09A712:$09A7EA ; called from $09A9AC:$09A9CE ; called from $09A9AC:$09A9D2 ; called from $09ADDC:$09AFB6 ; called from $09C4C2:$09C53A ; called from $09C4C2:$09C53E ; called from $09C81E:$09C8B1 ; called from $09C81E:$09C8B5 ; called from $09C81E:$09C8D4 ; called from $09C81E:$09C8E8 ; called from $09E3B8:$09E3ED ; called from $09E3F2:$09E427 ; called from $09EFF0:$09F0B6 ; called from $09F0C8:$09F315 ; called from $0AAA3A:$0AAB0D ; called from $0AAA3A:$0AABB5 ; called from $0AAA3A:$0AAC19 ; called from $0AAA3A:$0AAC1D ; called from $0AAA3A:$0AAC21 ; called from $0AAA3A:$0AAC25 ; called from $0AC48A:$0AC4F3 ; called from $0AC596:$0AC630 ; called from $0AC596:$0AC67E ; called from $0AC84C:$0AC899 ; called from $0AC84C:$0AC8D9 ; called from $0AC8E0:$0AC946 ; called from $0AE8F8:$0AE930 ; called from $0AE8F8:$0AE971 ; called from $0AE9AA:$0AEA14 ; called from $0AED10:$0AED3B ; called from $0AED10:$0AED4C ; addr bytes opcode operands comment 097B63 86 03 READ.L $03 097B65 86 03 READ.L $03 097B67 A0 1F READ.B $1F 097B69 04 80 PUSH.10 $080 097B6B 2D OR.L 097B6C B0 1F WRITE.B $1F 097B6E 32 04 ADDSP.B $04 097B70 34 RETURN ; ---------------- End Function $097B5C ---------------- ; ---------------- Begin 2144 Function $097B72 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $090106:$090149 ; called from $090106:$090157 ; called from $090106:$090197 ; called from $090106:$09019B ; called from $0919F4:$091A35 ; called from $0920C0:$092147 ; called from $0920C0:$092198 ; called from $09259A:$0925DC ; called from $096E2A:$096E66 ; called from $096E2A:$096EAB ; called from $09AA12:$09AA57 ; called from $09AB22:$09AC77 ; called from $09AB22:$09ACE4 ; called from $09EFF0:$09F01D ; called from $09EFF0:$09F021 ; called from $0AC684:$0AC7D4 ; called from $0AC684:$0AC841 ; addr bytes opcode operands comment 097B79 86 03 READ.L $03 097B7B 04 80 PUSH.10 $080 097B7D 86 03 READ.L $03 097B7F A0 1F READ.B $1F 097B81 04 40 PUSH.10 $040 097B83 03 2F XORL.L 097B85 2D OR.L 097B86 B0 1F WRITE.B $1F 097B88 32 04 ADDSP.B $04 097B8A 34 RETURN ; ---------------- End Function $097B72 ---------------- ; ---------------- Begin 2144 Function $097B8C ---------------- ; A0 = $004004; (A0) = SP + $B ; called from $097C46:$097C7E ; called from $097C9E:$097CBF ; addr bytes opcode operands comment 097B93 31 10 SUBSP.B $10 097B95 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 097B9E 87 0B READ.F $0B 097BA0 30 01 3F BSR.68K $013F ; => $097A64 => $002B7E (NATIVE) 097BA3 3B 3E 33 E2 54 E2 43 45 34 PUSH.F $3E33E254E2434534 ; float = 0.000000 097BAC 20 ADD.F 097BAD 22 MUL.F 097BAE 97 0B WRITE.F $0B 097BB0 87 0B READ.F $0B 097BB2 30 01 39 BSR.68K $0139 ; => $097A7C => $002CA6 (NATIVE) 097BB5 97 13 WRITE.F $13 097BB7 86 03 READ.L $03 097BB9 43 PUSH.6 $03 097BBA 87 13 READ.F $13 097BBC 30 00 ED BSR.68K $00ED ; => $097AD2 097BBF 86 03 READ.L $03 097BC1 A0 1F READ.B $1F 097BC3 70 PUSH.6 $30 097BC4 2A EQ.L 097BC5 18 05 BRZ $005 ; => $097BCC 097BC7 86 03 READ.L $03 097BC9 60 PUSH.6 $20 097BCA B0 1F WRITE.B $1F 097BCC 86 03 READ.L $03 097BCE 43 PUSH.6 $03 097BCF 27 ADD.L 097BD0 04 5E PUSH.10 $05E 097BD2 B0 1F WRITE.B $1F 097BD4 87 0B READ.F $0B 097BD6 30 01 57 BSR.68K $0157 ; => $097A82 => $002C08 (NATIVE) 097BD9 97 0B WRITE.F $0B 097BDB C0 35 46 READ.B $3546 097BDE 18 40 BRZ $040 ; => $097C20 097BE0 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 097BE9 87 0B READ.F $0B 097BEB 22 MUL.F 097BEC 97 0B WRITE.F $0B 097BEE 86 03 READ.L $03 097BF0 44 PUSH.6 $04 097BF1 27 ADD.L 097BF2 87 0B READ.F $0B 097BF4 03 29 FLOAT2LONG 097BF6 30 00 EF BSR.68K $00EF ; => $097B0A 097BF9 86 03 READ.L $03 097BFB 46 PUSH.6 $06 097BFC 27 ADD.L 097BFD 67 PUSH.6 $27 097BFE B0 1F WRITE.B $1F 097C00 86 03 READ.L $03 097C02 47 PUSH.6 $07 097C03 27 ADD.L 097C04 44 PUSH.6 $04 097C05 3B 40 B7 70 00 00 00 00 00 PUSH.F $40B7700000000000 ; float = 6000.000000 097C0E 87 0B READ.F $0B 097C10 30 01 91 BSR.68K $0191 ; => $097A82 => $002C08 (NATIVE) 097C13 22 MUL.F 097C14 30 01 45 BSR.68K $0145 ; => $097AD2 097C17 86 03 READ.L $03 097C19 48 PUSH.6 $08 097C1A 27 ADD.L 097C1B 30 00 C2 BSR.68K $00C2 ; => $097B5C 097C1E 10 22 BR $022 ; => $097C42 097C20 86 03 READ.L $03 097C22 44 PUSH.6 $04 097C23 27 ADD.L 097C24 46 PUSH.6 $06 097C25 3B 41 22 4F 80 00 00 00 00 PUSH.F $41224F8000000000 ; float = 600000.000000 097C2E 87 0B READ.F $0B 097C30 22 MUL.F 097C31 30 01 62 BSR.68K $0162 ; => $097AD2 097C34 86 03 READ.L $03 097C36 45 PUSH.6 $05 097C37 27 ADD.L 097C38 30 00 DF BSR.68K $00DF ; => $097B5C 097C3B 86 03 READ.L $03 097C3D 4A PUSH.6 $0A 097C3E 27 ADD.L 097C3F 67 PUSH.6 $27 097C40 B0 1F WRITE.B $1F 097C42 32 1C ADDSP.B $1C 097C44 34 RETURN ; ---------------- End Function $097B8C ---------------- ; ---------------- Begin 2144 Function $097C46 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $096F3C:$096F49 ; called from $0997C4:$0997D4 ; called from $0997C4:$0997E8 ; called from $0997C4:$0997F6 ; addr bytes opcode operands comment 097C4D 80 21 READ.B $21 097C4F 61 PUSH.6 $21 097C50 2A EQ.L 097C51 18 15 BRZ $015 ; => $097C68 097C53 40 PUSH.6 $00 097C54 3F 10 4F 4C 54 20 20 20 20 DISP "OLT " 20 20 20 20 20 20 20 20 20 097C66 10 13 BR $013 ; => $097C7B 097C68 40 PUSH.6 $00 097C69 3F 10 4C 41 54 20 20 20 20 DISP "LAT " 20 20 20 20 20 20 20 20 20 097C7B 44 PUSH.6 $04 097C7C 87 07 READ.F $07 097C7E 30 00 F5 BSR.68K $00F5 ; => $097B8C 097C81 87 07 READ.F $07 097C83 3E PUSH.W $0000 097C84 24 GT.F 097C85 18 04 BRZ $004 ; => $097C8B 097C87 04 4E PUSH.10 $04E 097C89 10 0E BR $00E ; => $097C99 097C8B 87 07 READ.F $07 097C8D 3E PUSH.W $0000 097C8E 03 21 LT.F 097C90 18 04 BRZ $004 ; => $097C96 097C92 04 53 PUSH.10 $053 097C94 10 03 BR $003 ; => $097C99 097C96 C0 35 44 READ.B $3544 097C99 90 10 WRITE.B $10 097C9B 32 08 ADDSP.B $08 097C9D 34 RETURN ; ---------------- End Function $097C46 ---------------- ; ---------------- Begin 2144 Function $097C9E ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $096F3C:$096F52 ; called from $099800:$099810 ; called from $099800:$099824 ; called from $099800:$099832 ; addr bytes opcode operands comment 097CA5 30 01 5A BSR.68K $015A ; => $097B4E 097CA8 80 21 READ.B $21 097CAA 61 PUSH.6 $21 097CAB 2A EQ.L 097CAC 18 08 BRZ $008 ; => $097CB6 097CAE 50 PUSH.6 $10 097CAF 3F 03 4F 4C 4E DISP "OLN" 097CB4 10 06 BR $006 ; => $097CBC 097CB6 50 PUSH.6 $10 097CB7 3F 03 4C 4F 4E DISP "LON" 097CBC 54 PUSH.6 $14 097CBD 87 07 READ.F $07 097CBF 30 01 36 BSR.68K $0136 ; => $097B8C 097CC2 87 07 READ.F $07 097CC4 3E PUSH.W $0000 097CC5 24 GT.F 097CC6 18 04 BRZ $004 ; => $097CCC 097CC8 04 45 PUSH.10 $045 097CCA 10 0E BR $00E ; => $097CDA 097CCC 87 07 READ.F $07 097CCE 3E PUSH.W $0000 097CCF 03 21 LT.F 097CD1 18 04 BRZ $004 ; => $097CD7 097CD3 04 57 PUSH.10 $057 097CD5 10 03 BR $003 ; => $097CDA 097CD7 C0 35 45 READ.B $3545 097CDA 90 00 WRITE.B $00 097CDC 32 08 ADDSP.B $08 097CDE 34 RETURN ; ---------------- End Function $097C9E ---------------- ; ---------------- Begin 2144 Function $097CE0 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $096F5E:$096F6D ; called from $099844:$099854 ; called from $099844:$0998A3 ; called from $099844:$0998C4 ; addr bytes opcode operands comment 097CE7 30 02 74 BSR.68K $0274 ; => $097A76 => $0034AA (CLEARSCREEN) (NATIVE) 097CEA 80 21 READ.B $21 097CEC 61 PUSH.6 $21 097CED 2A EQ.L 097CEE 18 15 BRZ $015 ; => $097D05 097CF0 40 PUSH.6 $00 097CF1 3F 10 4F 48 54 20 20 20 20 DISP "OHT METER" 20 20 20 20 4D 45 54 45 52 097D03 10 13 BR $013 ; => $097D18 097D05 40 PUSH.6 $00 097D06 3F 10 48 47 54 20 20 20 20 DISP "HGT METER" 20 20 20 20 4D 45 54 45 52 097D18 45 PUSH.6 $05 097D19 45 PUSH.6 $05 097D1A 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 097D23 87 07 READ.F $07 097D25 30 02 C4 BSR.68K $02C4 ; => $097A64 => $002B7E (NATIVE) 097D28 22 MUL.F 097D29 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 097D32 20 ADD.F 097D33 30 02 64 BSR.68K $0264 ; => $097AD2 097D36 48 PUSH.6 $08 097D37 30 01 DE BSR.68K $01DE ; => $097B5C 097D3A 87 07 READ.F $07 097D3C 3E PUSH.W $0000 097D3D 03 21 LT.F 097D3F 18 03 BRZ $003 ; => $097D44 097D41 6D PUSH.6 $2D 097D42 10 01 BR $001 ; => $097D45 097D44 6B PUSH.6 $2B 097D45 90 1B WRITE.B $1B 097D47 32 08 ADDSP.B $08 097D49 34 RETURN ; ---------------- End Function $097CE0 ---------------- ; ---------------- Begin 2144 Function $097D4A ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $09166C:$091694 ; called from $091710:$091787 ; called from $091794:$0917D5 ; called from $0974BE:$097590 ; called from $0980A4:$0980D4 ; called from $0AE8F8:$0AE948 ; called from $0AE8F8:$0AE981 ; addr bytes opcode operands comment 097D51 86 07 READ.L $07 097D53 35 SWITCH 097D54 10 0A 00 CASE $00 ; SWITCH $097D53 097D57 86 03 READ.L $03 097D59 3F 03 4A 41 4E DISP "JAN" 097D5E 10 80 BR $080 ; => $097DE0 097D60 10 0A 01 CASE $01 ; SWITCH $097D53 097D63 86 03 READ.L $03 097D65 3F 03 46 45 42 DISP "FEB" 097D6A 10 74 BR $074 ; => $097DE0 097D6C 10 0A 02 CASE $02 ; SWITCH $097D53 097D6F 86 03 READ.L $03 097D71 3F 03 4D 41 52 DISP "MAR" 097D76 10 68 BR $068 ; => $097DE0 097D78 10 0A 03 CASE $03 ; SWITCH $097D53 097D7B 86 03 READ.L $03 097D7D 3F 03 41 50 52 DISP "APR" 097D82 10 5C BR $05C ; => $097DE0 097D84 10 0A 04 CASE $04 ; SWITCH $097D53 097D87 86 03 READ.L $03 097D89 3F 03 4D 41 59 DISP "MAY" 097D8E 10 50 BR $050 ; => $097DE0 097D90 10 0A 05 CASE $05 ; SWITCH $097D53 097D93 86 03 READ.L $03 097D95 3F 03 4A 55 4E DISP "JUN" 097D9A 10 44 BR $044 ; => $097DE0 097D9C 10 0A 06 CASE $06 ; SWITCH $097D53 097D9F 86 03 READ.L $03 097DA1 3F 03 4A 55 4C DISP "JUL" 097DA6 10 38 BR $038 ; => $097DE0 097DA8 10 0A 07 CASE $07 ; SWITCH $097D53 097DAB 86 03 READ.L $03 097DAD 3F 03 41 55 47 DISP "AUG" 097DB2 10 2C BR $02C ; => $097DE0 097DB4 10 0A 08 CASE $08 ; SWITCH $097D53 097DB7 86 03 READ.L $03 097DB9 3F 03 53 45 50 DISP "SEP" 097DBE 10 20 BR $020 ; => $097DE0 097DC0 10 0A 09 CASE $09 ; SWITCH $097D53 097DC3 86 03 READ.L $03 097DC5 3F 03 4F 43 54 DISP "OCT" 097DCA 10 14 BR $014 ; => $097DE0 097DCC 10 0A 0A CASE $0A ; SWITCH $097D53 097DCF 86 03 READ.L $03 097DD1 3F 03 4E 4F 56 DISP "NOV" 097DD6 10 08 BR $008 ; => $097DE0 097DD8 00 DEFAULT ; SWITCH $097D53 097DD9 86 03 READ.L $03 097DDB 3F 03 44 45 43 DISP "DEC" 097DE0 32 08 ADDSP.B $08 097DE2 34 RETURN ; ---------------- End Function $097D4A ---------------- ; ---------------- Begin 2144 Function $097E1A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $097ED0:$097EE0 ; called from $09826C:$0982BC ; addr bytes opcode operands comment 097E21 31 02 SUBSP.B $02 097E23 80 20 READ.B $20 097E25 35 SWITCH 097E26 10 10 D0 CASE $D0 ; SWITCH $097E25 097E29 80 23 READ.B $23 097E2B 6A PUSH.6 $2A 097E2C 2B NEQ.L 097E2D 18 07 BRZ $007 ; => $097E36 097E2F 80 23 READ.B $23 097E31 30 00 3E BSR.68K $003E ; => $097DF6 => $09F986 097E34 10 07 BR $007 ; => $097E3D 097E36 10 95 BR $095 ; => $097ECD 097E38 30 87 10 50 90 CASE $10, $50, $90 ; SWITCH $097E25 097E3D 30 00 5C BSR.68K $005C ; => $097DE4 => $0034AA (CLEARSCREEN) (NATIVE) 097E40 4F PUSH.6 $0F 097E41 90 2B WRITE.B $2B 097E43 80 23 READ.B $23 097E45 41 PUSH.6 $01 097E46 27 ADD.L 097E47 6B PUSH.6 $2B 097E48 2F MOD.L 097E49 90 23 WRITE.B $23 097E4B 80 23 READ.B $23 097E4D 6A PUSH.6 $2A 097E4E 2A EQ.L 097E4F 18 45 BRZ $045 ; => $097E96 097E51 40 PUSH.6 $00 097E52 90 2E WRITE.B $2E 097E54 30 00 4F BSR.68K $004F ; => $097E08 => $09F828 097E57 40 PUSH.6 $00 097E58 2A EQ.L 097E59 18 22 BRZ $022 ; => $097E7D 097E5B 41 PUSH.6 $01 097E5C 3F 1A 4E 4F 20 52 45 43 4F DISP "NO RECOVERABLE FILES" 56 45 52 41 42 4C 45 20 20 20 20 20 20 20 46 49 4C 45 53 097E78 40 PUSH.6 $00 097E79 90 2B WRITE.B $2B 097E7B 10 17 BR $017 ; => $097E94 097E7D 40 PUSH.6 $00 097E7E 3F 14 45 4E 44 20 4F 46 20 DISP "END OF DIRECTORYNEXT" 44 49 52 45 43 54 4F 52 59 4E 45 58 54 097E94 10 23 BR $023 ; => $097EB9 097E96 80 23 READ.B $23 097E98 30 00 AB BSR.68K $00AB ; => $097DF0 => $09F640 (NATIVE) 097E9B 95 01 WRITE.W $01 097E9D 85 01 READ.W $01 097E9F 3C 80 00 PUSH.W $8000 097EA2 03 27 LTE.L 097EA4 18 13 BRZ $013 ; => $097EB9 097EA6 30 00 95 BSR.68K $0095 ; => $097E14 => $09802A 097EA9 58 PUSH.6 $18 097EAA 3F 08 55 4E 44 45 4C 45 54 DISP "UNDELETE" 45 097EB4 4F PUSH.6 $0F 097EB5 90 2E WRITE.B $2E 097EB7 10 06 BR $006 ; => $097EBF 097EB9 80 23 READ.B $23 097EBB 6A PUSH.6 $2A 097EBC 2A EQ.L 097EBD 1F 84 BRZ $-7C ; => $097E43 097EBF 10 0C BR $00C ; => $097ECD 097EC1 10 06 02 CASE $02 ; SWITCH $097E25 097EC4 30 00 B9 BSR.68K $00B9 ; => $097E0E => $09807A 097EC7 10 04 BR $004 ; => $097ECD 097EC9 00 DEFAULT ; SWITCH $097E25 097ECA 30 00 E3 BSR.68K $00E3 ; => $097DEA => $09D9DE 097ECD 32 02 ADDSP.B $02 097ECF 34 RETURN ; ---------------- End Function $097E1A ---------------- ; ---------------- Begin 2144 Function $097ED0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09826C:$0982A6 ; addr bytes opcode operands comment 097ED7 45 PUSH.6 $05 097ED8 90 22 WRITE.B $22 097EDA 6A PUSH.6 $2A 097EDB 90 23 WRITE.B $23 097EDD 50 PUSH.6 $10 097EDE 90 20 WRITE.B $20 097EE0 30 00 C9 BSR.68K $00C9 ; => $097E1A 097EE3 34 RETURN ; ---------------- End Function $097ED0 ---------------- ; ---------------- Begin 2144 Function $097EE4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $097F92:$097FA2 ; called from $09826C:$0982B4 ; addr bytes opcode operands comment 097EEB 31 02 SUBSP.B $02 097EED 80 20 READ.B $20 097EEF 35 SWITCH 097EF0 10 10 D0 CASE $D0 ; SWITCH $097EEF 097EF3 80 23 READ.B $23 097EF5 6A PUSH.6 $2A 097EF6 2B NEQ.L 097EF7 18 07 BRZ $007 ; => $097F00 097EF9 80 23 READ.B $23 097EFB 30 01 02 BSR.68K $0102 ; => $097DFC => $09F93E 097EFE 10 07 BR $007 ; => $097F07 097F00 10 8D BR $08D ; => $097F8F 097F02 30 7F 10 50 90 CASE $10, $50, $90 ; SWITCH $097EEF 097F07 30 01 26 BSR.68K $0126 ; => $097DE4 => $0034AA (CLEARSCREEN) (NATIVE) 097F0A 4F PUSH.6 $0F 097F0B 90 2B WRITE.B $2B 097F0D 80 23 READ.B $23 097F0F 41 PUSH.6 $01 097F10 27 ADD.L 097F11 6B PUSH.6 $2B 097F12 2F MOD.L 097F13 90 23 WRITE.B $23 097F15 80 23 READ.B $23 097F17 6A PUSH.6 $2A 097F18 2A EQ.L 097F19 18 3A BRZ $03A ; => $097F55 097F1B 40 PUSH.6 $00 097F1C 90 2E WRITE.B $2E 097F1E 30 01 1F BSR.68K $011F ; => $097E02 => $09F812 097F21 40 PUSH.6 $00 097F22 2A EQ.L 097F23 18 17 BRZ $017 ; => $097F3C 097F25 41 PUSH.6 $01 097F26 3F 0F 44 49 52 45 43 54 4F DISP "DIRECTORY EMPTY" 52 59 20 45 4D 50 54 59 097F37 40 PUSH.6 $00 097F38 90 2B WRITE.B $2B 097F3A 10 17 BR $017 ; => $097F53 097F3C 40 PUSH.6 $00 097F3D 3F 14 45 4E 44 20 4F 46 20 DISP "END OF DIRECTORYNEXT" 44 49 52 45 43 54 4F 52 59 4E 45 58 54 097F53 10 26 BR $026 ; => $097F7B 097F55 80 23 READ.B $23 097F57 30 01 6A BSR.68K $016A ; => $097DF0 => $09F640 (NATIVE) 097F5A 95 01 WRITE.W $01 097F5C 85 01 READ.W $01 097F5E 40 PUSH.6 $00 097F5F 2B NEQ.L 097F60 85 01 READ.W $01 097F62 3C 80 00 PUSH.W $8000 097F65 03 26 GT.L 097F67 2C AND.L 097F68 18 11 BRZ $011 ; => $097F7B 097F6A 30 01 59 BSR.68K $0159 ; => $097E14 => $09802A 097F6D 5A PUSH.6 $1A 097F6E 3F 06 44 45 4C 45 54 45 DISP "DELETE" 097F76 4F PUSH.6 $0F 097F77 90 2E WRITE.B $2E 097F79 10 06 BR $006 ; => $097F81 097F7B 80 23 READ.B $23 097F7D 6A PUSH.6 $2A 097F7E 2A EQ.L 097F7F 1F 8C BRZ $-74 ; => $097F0D 097F81 10 0C BR $00C ; => $097F8F 097F83 10 06 02 CASE $02 ; SWITCH $097EEF 097F86 30 01 7B BSR.68K $017B ; => $097E0E => $09807A 097F89 10 04 BR $004 ; => $097F8F 097F8B 00 DEFAULT ; SWITCH $097EEF 097F8C 30 01 A5 BSR.68K $01A5 ; => $097DEA => $09D9DE 097F8F 32 02 ADDSP.B $02 097F91 34 RETURN ; ---------------- End Function $097EE4 ---------------- ; ---------------- Begin 2144 Function $097F92 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09826C:$098299 ; addr bytes opcode operands comment 097F99 44 PUSH.6 $04 097F9A 90 22 WRITE.B $22 097F9C 6A PUSH.6 $2A 097F9D 90 23 WRITE.B $23 097F9F 50 PUSH.6 $10 097FA0 90 20 WRITE.B $20 097FA2 30 00 C1 BSR.68K $00C1 ; => $097EE4 097FA5 34 RETURN ; ---------------- End Function $097F92 ---------------- ; ---------------- Begin 2144 Function $09802A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $097E1A:$097EA6 ; called from $097EE4:$097F6A ; called from $0980A4:$0980B0 ; addr bytes opcode operands comment 098031 31 04 SUBSP.B $04 098033 30 00 90 BSR.68K $0090 ; => $097FA6 => $0034AA (CLEARSCREEN) (NATIVE) 098036 80 23 READ.B $23 098038 30 00 53 BSR.68K $0053 ; => $097FE8 => $09F610 (NATIVE) 09803B 96 03 WRITE.L $03 09803D 40 PUSH.6 $00 09803E 3F 14 46 49 4C 45 20 78 78 DISP "FILE xxxx-xxx-x NEXT" 78 78 2D 78 78 78 2D 78 20 4E 45 58 54 098054 45 PUSH.6 $05 098055 44 PUSH.6 $04 098056 86 03 READ.L $03 098058 3C 27 10 PUSH.W $2710 09805B 03 24 DIV.L 09805D 03 2A LONG2FLOAT 09805F 30 00 A4 BSR.68K $00A4 ; => $097FBE => $097AD2 098062 4A PUSH.6 $0A 098063 43 PUSH.6 $03 098064 86 03 READ.L $03 098066 4A PUSH.6 $0A 098067 03 24 DIV.L 098069 03 2A LONG2FLOAT 09806B 30 00 B0 BSR.68K $00B0 ; => $097FBE => $097AD2 09806E 70 PUSH.6 $30 09806F 86 03 READ.L $03 098071 4A PUSH.6 $0A 098072 2F MOD.L 098073 27 ADD.L 098074 90 11 WRITE.B $11 098076 32 04 ADDSP.B $04 098078 34 RETURN ; ---------------- End Function $09802A ---------------- ; ---------------- Begin 2144 Function $09807A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09590A:$0959B1 ; called from $097E1A:$097EC4 ; called from $097EE4:$097F86 ; called from $0981EE:$098258 ; addr bytes opcode operands comment 098081 73 PUSH.6 $33 098082 90 21 WRITE.B $21 098084 40 PUSH.6 $00 098085 90 22 WRITE.B $22 098087 30 00 DE BSR.68K $00DE ; => $097FAC => $099642 09808A 30 00 E7 BSR.68K $00E7 ; => $097FA6 => $0034AA (CLEARSCREEN) (NATIVE) 09808D 40 PUSH.6 $00 09808E 3F 13 20 20 20 20 44 45 4C DISP " DEL UNDELDIR" 20 20 20 20 55 4E 44 45 4C 44 49 52 0980A3 34 RETURN ; ---------------- End Function $09807A ---------------- ; ---------------- Begin 2144 Function $0980A4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0981EE:$098242 ; addr bytes opcode operands comment 0980AB 31 04 SUBSP.B $04 0980AD 30 01 0A BSR.68K $010A ; => $097FA6 => $0034AA (CLEARSCREEN) (NATIVE) 0980B0 30 00 89 BSR.68K $0089 ; => $09802A 0980B3 80 24 READ.B $24 0980B5 35 SWITCH 0980B6 10 2A 01 CASE $01 ; SWITCH $0980B5 0980B9 80 23 READ.B $23 0980BB 30 00 E2 BSR.68K $00E2 ; => $097FDC => $09F682 (NATIVE) 0980BE 95 01 WRITE.W $01 0980C0 57 PUSH.6 $17 0980C1 85 01 READ.W $01 0980C3 3C 04 B0 PUSH.W $04B0 0980C6 03 24 DIV.L 0980C8 30 01 13 BSR.68K $0113 ; => $097FB8 => $097B0A 0980CB 5A PUSH.6 $1A 0980CC 85 01 READ.W $01 0980CE 04 64 PUSH.10 $064 0980D0 03 24 DIV.L 0980D2 4C PUSH.6 $0C 0980D3 2F MOD.L 0980D4 30 01 13 BSR.68K $0113 ; => $097FC4 => $097D4A 0980D7 5E PUSH.6 $1E 0980D8 85 01 READ.W $01 0980DA 04 64 PUSH.10 $064 0980DC 2F MOD.L 0980DD 30 01 28 BSR.68K $0128 ; => $097FB8 => $097B0A 0980E0 10 7B BR $07B ; => $09815D 0980E2 10 27 02 CASE $02 ; SWITCH $0980B5 0980E5 80 23 READ.B $23 0980E7 30 01 08 BSR.68K $0108 ; => $097FE2 => $09F68E (NATIVE) 0980EA 95 03 WRITE.W $03 0980EC 57 PUSH.6 $17 0980ED 3F 09 48 20 78 78 4D 20 47 DISP "H xxM GMT" 4D 54 0980F8 55 PUSH.6 $15 0980F9 85 03 READ.W $03 0980FB 7C PUSH.6 $3C 0980FC 03 24 DIV.L 0980FE 30 01 49 BSR.68K $0149 ; => $097FB8 => $097B0A 098101 59 PUSH.6 $19 098102 85 03 READ.W $03 098104 7C PUSH.6 $3C 098105 2F MOD.L 098106 30 01 51 BSR.68K $0151 ; => $097FB8 => $097B0A 098109 10 52 BR $052 ; => $09815D 09810B 10 18 03 CASE $03 ; SWITCH $0980B5 09810E 5A PUSH.6 $1A 09810F 3F 06 4B 42 59 54 45 53 DISP "KBYTES" 098117 55 PUSH.6 $15 098118 44 PUSH.6 $04 098119 80 23 READ.B $23 09811B 30 01 54 BSR.68K $0154 ; => $097FCA => $09F640 (NATIVE) 09811E 03 2A LONG2FLOAT 098120 30 01 65 BSR.68K $0165 ; => $097FBE => $097AD2 098123 10 38 BR $038 ; => $09815D 098125 10 1F 04 CASE $04 ; SWITCH $0980B5 098128 5C PUSH.6 $1C 098129 3F 04 42 59 54 45 DISP "BYTE" 09812F 54 PUSH.6 $14 098130 47 PUSH.6 $07 098131 80 23 READ.B $23 098133 30 01 66 BSR.68K $0166 ; => $097FD0 => $09F636 (NATIVE) 098136 03 2A LONG2FLOAT 098138 30 01 7D BSR.68K $017D ; => $097FBE => $097AD2 09813B 80 0B READ.B $0B 09813D 70 PUSH.6 $30 09813E 2A EQ.L 09813F 18 03 BRZ $003 ; => $098144 098141 60 PUSH.6 $20 098142 90 0B WRITE.B $0B 098144 10 17 BR $017 ; => $09815D 098146 00 DEFAULT ; SWITCH $0980B5 098147 5C PUSH.6 $1C 098148 3F 04 52 45 43 53 DISP "RECS" 09814E 56 PUSH.6 $16 09814F 45 PUSH.6 $05 098150 80 23 READ.B $23 098152 30 01 7F BSR.68K $017F ; => $097FD6 => $09F676 (NATIVE) 098155 03 2A LONG2FLOAT 098157 30 01 9C BSR.68K $019C ; => $097FBE => $097AD2 09815A 40 PUSH.6 $00 09815B 90 24 WRITE.B $24 09815D 32 04 ADDSP.B $04 09815F 34 RETURN ; ---------------- End Function $0980A4 ---------------- ; ---------------- Begin 2144 Function $098160 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0981EE:$098228 ; addr bytes opcode operands comment 098167 31 04 SUBSP.B $04 098169 30 01 C6 BSR.68K $01C6 ; => $097FA6 => $0034AA (CLEARSCREEN) (NATIVE) 09816C 80 25 READ.B $25 09816E 35 SWITCH 09816F 10 49 01 CASE $01 ; SWITCH $09816E 098172 C0 29 8D READ.B $298D 098175 18 04 BRZ $004 ; => $09817B 098177 06 00 PUSH.10 $200 098179 10 03 BR $003 ; => $09817E 09817B 3C 04 00 PUSH.W $0400 09817E 95 03 WRITE.W $03 098180 45 PUSH.6 $05 098181 3F 1B 4B 42 59 54 45 53 20 DISP "KBYTES USEDxxxx KBYTES LEFT" 55 53 45 44 78 78 78 78 20 4B 42 59 54 45 53 20 4C 45 46 54 09819E 30 01 AD BSR.68K $01AD ; => $097FF4 => $09F7D6 0981A1 95 01 WRITE.W $01 0981A3 40 PUSH.6 $00 0981A4 44 PUSH.6 $04 0981A5 85 03 READ.W $03 0981A7 85 01 READ.W $01 0981A9 28 SUB.L 0981AA 03 2A LONG2FLOAT 0981AC 30 01 F1 BSR.68K $01F1 ; => $097FBE => $097AD2 0981AF 50 PUSH.6 $10 0981B0 44 PUSH.6 $04 0981B1 85 01 READ.W $01 0981B3 03 2A LONG2FLOAT 0981B5 30 01 FA BSR.68K $01FA ; => $097FBE => $097AD2 0981B8 10 30 BR $030 ; => $0981EA 0981BA 00 DEFAULT ; SWITCH $09816E 0981BB 40 PUSH.6 $00 0981BC 90 25 WRITE.B $25 0981BE 43 PUSH.6 $03 0981BF 3F 1B 46 49 4C 45 53 20 49 DISP "FILES IN USE xx RECOVERABLE" 4E 20 55 53 45 20 78 78 20 52 45 43 4F 56 45 52 41 42 4C 45 0981DC 40 PUSH.6 $00 0981DD 30 01 E6 BSR.68K $01E6 ; => $097FFA => $09F812 0981E0 30 02 2B BSR.68K $022B ; => $097FB8 => $097B0A 0981E3 50 PUSH.6 $10 0981E4 30 01 E7 BSR.68K $01E7 ; => $098000 => $09F828 0981E7 30 02 32 BSR.68K $0232 ; => $097FB8 => $097B0A 0981EA 32 04 ADDSP.B $04 0981EC 34 RETURN ; ---------------- End Function $098160 ---------------- ; ---------------- Begin 2144 Function $0981EE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09826C:$098291 ; called from $09826C:$0982C4 ; addr bytes opcode operands comment 0981F5 31 04 SUBSP.B $04 0981F7 80 20 READ.B $20 0981F9 35 SWITCH 0981FA 20 1A 90 D0 CASE $90, $D0 ; SWITCH $0981F9 0981FE 80 23 READ.B $23 098200 6A PUSH.6 $2A 098201 2A EQ.L 098202 18 08 BRZ $008 ; => $09820C 098204 80 25 READ.B $25 098206 41 PUSH.6 $01 098207 27 ADD.L 098208 90 25 WRITE.B $25 09820A 10 06 BR $006 ; => $098212 09820C 80 24 READ.B $24 09820E 41 PUSH.6 $01 09820F 27 ADD.L 098210 90 24 WRITE.B $24 098212 10 0E BR $00E ; => $098222 098214 10 52 BR $052 ; => $098268 098216 20 37 50 10 CASE $50, $10 ; SWITCH $0981F9 09821A 80 23 READ.B $23 09821C 41 PUSH.6 $01 09821D 27 ADD.L 09821E 6B PUSH.6 $2B 09821F 2F MOD.L 098220 90 23 WRITE.B $23 098222 80 23 READ.B $23 098224 6A PUSH.6 $2A 098225 2A EQ.L 098226 18 05 BRZ $005 ; => $09822D 098228 30 00 CB BSR.68K $00CB ; => $098160 09822B 10 1A BR $01A ; => $098247 09822D 80 23 READ.B $23 09822F 30 02 68 BSR.68K $0268 ; => $097FCA => $09F640 (NATIVE) 098232 96 03 WRITE.L $03 098234 86 03 READ.L $03 098236 40 PUSH.6 $00 098237 2B NEQ.L 098238 86 03 READ.L $03 09823A 3C 80 00 PUSH.W $8000 09823D 03 26 GT.L 09823F 2C AND.L 098240 18 05 BRZ $005 ; => $098247 098242 30 01 A1 BSR.68K $01A1 ; => $0980A4 098245 10 06 BR $006 ; => $09824D 098247 80 23 READ.B $23 098249 6A PUSH.6 $2A 09824A 2A EQ.L 09824B 1F CD BRZ $-33 ; => $09821A 09824D 10 19 BR $019 ; => $098268 09824F 10 13 02 CASE $02 ; SWITCH $0981F9 098252 80 23 READ.B $23 098254 6A PUSH.6 $2A 098255 2A EQ.L 098256 18 05 BRZ $005 ; => $09825D 098258 30 01 E1 BSR.68K $01E1 ; => $09807A 09825B 10 05 BR $005 ; => $098262 09825D 6A PUSH.6 $2A 09825E 90 23 WRITE.B $23 098260 17 C0 BR $-40 ; => $098222 098262 10 04 BR $004 ; => $098268 098264 00 DEFAULT ; SWITCH $0981F9 098265 30 02 B6 BSR.68K $02B6 ; => $097FB2 => $09D9DE 098268 32 04 ADDSP.B $04 09826A 34 RETURN ; ---------------- End Function $0981EE ---------------- ; ---------------- Begin 2144 Function $09826C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB1D ; addr bytes opcode operands comment 098273 80 22 READ.B $22 098275 35 SWITCH 098276 10 39 00 CASE $00 ; SWITCH $098275 098279 80 20 READ.B $20 09827B 35 SWITCH 09827C 10 18 10 CASE $10 ; SWITCH $09827B 09827F 41 PUSH.6 $01 098280 90 22 WRITE.B $22 098282 6A PUSH.6 $2A 098283 90 23 WRITE.B $23 098285 40 PUSH.6 $00 098286 90 24 WRITE.B $24 098288 40 PUSH.6 $00 098289 90 25 WRITE.B $25 09828B 4F PUSH.6 $0F 09828C 90 2B WRITE.B $2B 09828E 4F PUSH.6 $0F 09828F 90 2E WRITE.B $2E 098291 30 00 A6 BSR.68K $00A6 ; => $0981EE 098294 10 19 BR $019 ; => $0982AF 098296 10 06 50 CASE $50 ; SWITCH $09827B 098299 30 02 90 BSR.68K $0290 ; => $09800C => $097F92 09829C 10 11 BR $011 ; => $0982AF 09829E 10 03 90 CASE $90 ; SWITCH $09827B 0982A1 10 0C BR $00C ; => $0982AF 0982A3 10 06 D0 CASE $D0 ; SWITCH $09827B 0982A6 30 02 97 BSR.68K $0297 ; => $098012 => $097ED0 0982A9 10 04 BR $004 ; => $0982AF 0982AB 00 DEFAULT ; SWITCH $09827B 0982AC 30 02 FD BSR.68K $02FD ; => $097FB2 => $09D9DE 0982AF 10 19 BR $019 ; => $0982CA 0982B1 10 06 04 CASE $04 ; SWITCH $098275 0982B4 30 02 B1 BSR.68K $02B1 ; => $098006 => $097EE4 0982B7 10 11 BR $011 ; => $0982CA 0982B9 10 06 05 CASE $05 ; SWITCH $098275 0982BC 30 02 A7 BSR.68K $02A7 ; => $098018 => $097E1A 0982BF 10 09 BR $009 ; => $0982CA 0982C1 10 06 01 CASE $01 ; SWITCH $098275 0982C4 30 00 D9 BSR.68K $00D9 ; => $0981EE 0982C7 10 01 BR $001 ; => $0982CA 0982C9 00 DEFAULT ; SWITCH $098275 0982CA 34 RETURN ; ---------------- End Function $09826C ---------------- ; ---------------- Begin 2144 Function $0982F6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0982FD C1 59 6D READ.W $596D 098300 41 PUSH.6 $01 098301 27 ADD.L 098302 D1 59 6D WRITE.W $596D 098305 C1 59 6D READ.W $596D 098308 06 00 PUSH.10 $200 09830A 03 26 GT.L 09830C 18 0D BRZ $00D ; => $09831B 09830E C1 59 6F READ.W $596F 098311 42 PUSH.6 $02 098312 C1 59 6D READ.W $596D 098315 29 MUL.L 098316 30 00 2F BSR.68K $002F ; => $0982EA => $09F43A (NATIVE) 098319 10 0E BR $00E ; => $098329 09831B C1 59 71 READ.W $5971 09831E 42 PUSH.6 $02 09831F C1 59 6D READ.W $596D 098322 05 FF PUSH.10 $1FF 098324 28 SUB.L 098325 29 MUL.L 098326 30 00 3F BSR.68K $003F ; => $0982EA => $09F43A (NATIVE) 098329 05 00 PUSH.10 $100 09832B 30 00 3E BSR.68K $003E ; => $0982F0 => $09F42A (NATIVE) 09832E 29 MUL.L 09832F 30 00 42 BSR.68K $0042 ; => $0982F0 => $09F42A (NATIVE) 098332 27 ADD.L 098333 D1 59 73 WRITE.W $5973 098336 41 PUSH.6 $01 098337 D1 59 75 WRITE.W $5975 09833A C1 59 73 READ.W $5973 09833D 41 PUSH.6 $01 09833E 30 00 57 BSR.68K $0057 ; => $0982EA => $09F43A (NATIVE) 098341 34 RETURN ; ---------------- End Function $0982F6 ---------------- ; ---------------- Begin 2144 Function $09838A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A7E38:$0A7E3F ; addr bytes opcode operands comment 098391 31 02 SUBSP.B $02 098393 C1 59 6B READ.W $596B 098396 04 FF PUSH.10 $0FF 098398 2B NEQ.L 098399 C1 59 77 READ.W $5977 09839C C1 59 79 READ.W $5979 09839F 03 26 GT.L 0983A1 2C AND.L 0983A2 18 05 BRZ $005 ; => $0983A9 0983A4 30 00 51 BSR.68K $0051 ; => $098356 (NATIVE) 0983A7 10 08 BR $008 ; => $0983B1 0983A9 44 PUSH.6 $04 0983AA D0 59 67 WRITE.B $5967 0983AD 40 PUSH.6 $00 0983AE D1 59 69 WRITE.W $5969 0983B1 32 02 ADDSP.B $02 0983B3 34 RETURN ; ---------------- End Function $09838A ---------------- ; ---------------- Begin 2144 Function $0983B4 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A9622:$0A9636 ; addr bytes opcode operands comment 0983BB 31 02 SUBSP.B $02 0983BD 86 03 READ.L $03 0983BF 30 00 F6 BSR.68K $00F6 ; => $0982CC => $09F640 (NATIVE) 0983C2 95 05 WRITE.W $05 0983C4 85 05 READ.W $05 0983C6 40 PUSH.6 $00 0983C7 2B NEQ.L 0983C8 85 05 READ.W $05 0983CA 3C 80 00 PUSH.W $8000 0983CD 03 26 GT.L 0983CF 2C AND.L 0983D0 18 46 BRZ $046 ; => $098418 0983D2 86 03 READ.L $03 0983D4 D1 59 6B WRITE.W $596B 0983D7 86 03 READ.L $03 0983D9 30 01 0A BSR.68K $010A ; => $0982D2 => $09F65E (NATIVE) 0983DC D1 59 6F WRITE.W $596F 0983DF 86 03 READ.L $03 0983E1 30 01 0C BSR.68K $010C ; => $0982D8 => $09F66A (NATIVE) 0983E4 D1 59 71 WRITE.W $5971 0983E7 40 PUSH.6 $00 0983E8 D1 59 77 WRITE.W $5977 0983EB 86 03 READ.L $03 0983ED 30 01 12 BSR.68K $0112 ; => $0982DE => $09F676 (NATIVE) 0983F0 D1 59 79 WRITE.W $5979 0983F3 41 PUSH.6 $01 0983F4 D1 59 6D WRITE.W $596D 0983F7 C1 59 6F READ.W $596F 0983FA 42 PUSH.6 $02 0983FB 30 01 14 BSR.68K $0114 ; => $0982EA => $09F43A (NATIVE) 0983FE 05 00 PUSH.10 $100 098400 30 01 13 BSR.68K $0113 ; => $0982F0 => $09F42A (NATIVE) 098403 29 MUL.L 098404 30 01 17 BSR.68K $0117 ; => $0982F0 => $09F42A (NATIVE) 098407 27 ADD.L 098408 D1 59 73 WRITE.W $5973 09840B 41 PUSH.6 $01 09840C D1 59 75 WRITE.W $5975 09840F C1 59 73 READ.W $5973 098412 41 PUSH.6 $01 098413 30 01 2C BSR.68K $012C ; => $0982EA => $09F43A (NATIVE) 098416 10 05 BR $005 ; => $09841D 098418 04 FF PUSH.10 $0FF 09841A D1 59 6B WRITE.W $596B 09841D 32 06 ADDSP.B $06 09841F 34 RETURN ; ---------------- End Function $0983B4 ---------------- ; ---------------- Begin 2144 Function $098480 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0991F6:$09922A ; addr bytes opcode operands comment 098487 31 02 SUBSP.B $02 098489 40 PUSH.6 $00 09848A 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 09848D 86 03 READ.L $03 09848F 38 00 4C BLS.B $004C ; => $0984DE 098492 84 04 READ.B $04 098494 E0 47 6B READ.B $476B 098497 94 05 WRITE.B $05 098499 84 05 READ.B $05 09849B E0 4B 7D READ.B $4B7D 09849E 48 PUSH.6 $08 09849F 2C AND.L 0984A0 40 PUSH.6 $00 0984A1 2A EQ.L 0984A2 18 35 BRZ $035 ; => $0984D9 0984A4 84 05 READ.B $05 0984A6 D0 51 00 WRITE.B $5100 0984A9 50 PUSH.6 $10 0984AA 45 PUSH.6 $05 0984AB 30 00 34 BSR.68K $0034 ; => $09847A => $094D6E 0984AE C0 51 40 READ.B $5140 0984B1 40 PUSH.6 $00 0984B2 2A EQ.L 0984B3 C0 51 41 READ.B $5141 0984B6 48 PUSH.6 $08 0984B7 2C AND.L 0984B8 2C AND.L 0984B9 18 1E BRZ $01E ; => $0984D9 0984BB 84 05 READ.B $05 0984BD C0 51 41 READ.B $5141 0984C0 60 PUSH.6 $20 0984C1 2D OR.L 0984C2 F0 4B 7D WRITE.B $4B7D 0984C5 84 05 READ.B $05 0984C7 84 05 READ.B $05 0984C9 E0 49 11 READ.B $4911 0984CC 04 FE PUSH.10 $0FE 0984CE 2C AND.L 0984CF C0 51 3F READ.B $513F 0984D2 2E NOT.L 0984D3 41 PUSH.6 $01 0984D4 2C AND.L 0984D5 2D OR.L 0984D6 F0 49 11 WRITE.B $4911 0984D9 37 10 04 00 51 _23d2 $0004, $0051 0984DE 32 06 ADDSP.B $06 0984E0 34 RETURN ; ---------------- End Function $098480 ---------------- ; ---------------- Begin 2144 Function $0984E2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0991F6:$099211 ; called from $0991F6:$0995FD ; addr bytes opcode operands comment 0984E9 31 02 SUBSP.B $02 0984EB 40 PUSH.6 $00 0984EC 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0984EF C0 29 9A READ.B $299A 0984F2 38 00 5F BLS.B $005F ; => $098554 0984F5 84 00 READ.B $00 0984F7 E0 57 4B READ.B $574B 0984FA 41 PUSH.6 $01 0984FB 2A EQ.L 0984FC 18 51 BRZ $051 ; => $09854F 0984FE 84 00 READ.B $00 098500 04 FF PUSH.10 $0FF 098502 F0 57 4B WRITE.B $574B 098505 C0 29 5D READ.B $295D 098508 18 45 BRZ $045 ; => $09854F 09850A 04 FF PUSH.10 $0FF 09850C D0 4E 94 WRITE.B $4E94 09850F 03 30 06 54 49 4D 45 3A 20 TRAP1 "TIME: " 098518 C3 60 3B READ.F $603B 09851B C1 29 FD READ.W $29FD 09851E 3D 00 09 3A 80 PUSH.L $00093A80 098523 29 MUL.L 098524 03 2A LONG2FLOAT 098526 21 SUB.F 098527 30 00 C2 BSR.68K $00C2 ; => $098468 => $0A57D4 09852A 03 30 19 20 20 20 55 4E 46 TRAP1 " UNFIXED SLIP ON CHAN: " 49 58 45 44 20 53 4C 49 50 20 4F 4E 20 43 48 41 4E 3A 20 098546 84 00 READ.B $00 098548 42 PUSH.6 $02 098549 30 00 EA BSR.68K $00EA ; => $098462 => $0A0036 09854C 30 00 E1 BSR.68K $00E1 ; => $09846E => $0A05A4 (NATIVE) 09854F 37 10 00 00 65 _23d2 $0000, $0065 098554 32 02 ADDSP.B $02 098556 34 RETURN ; ---------------- End Function $0984E2 ---------------- ; ---------------- Begin 2144 Function $098558 ---------------- ; A0 = $004004; (A0) = SP + $1FF ; called from $0986B2:$0986E2 ; called from $098B98:$098BED ; addr bytes opcode operands comment 09855F 31 18 SUBSP.B $18 098561 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 09856A 86 07 READ.L $07 09856C E3 46 53 READ.F $4653 09856F 22 MUL.F 098570 D7 02 07 WRITE.F $0207 098573 86 07 READ.L $07 098575 86 07 READ.L $07 098577 A7 57 READ.F $57 098579 86 07 READ.L $07 09857B E3 43 79 READ.F $4379 09857E C7 02 07 READ.F $0207 098581 22 MUL.F 098582 21 SUB.F 098583 B7 57 WRITE.F $57 098585 86 07 READ.L $07 098587 86 07 READ.L $07 098589 A7 AB READ.F $AB 09858B 86 07 READ.L $07 09858D E3 43 C9 READ.F $43C9 098590 C7 02 07 READ.F $0207 098593 22 MUL.F 098594 21 SUB.F 098595 B7 AB WRITE.F $AB 098597 86 07 READ.L $07 098599 86 07 READ.L $07 09859B A7 FF READ.F $FF 09859D 86 07 READ.L $07 09859F E3 44 19 READ.F $4419 0985A2 C7 02 07 READ.F $0207 0985A5 22 MUL.F 0985A6 21 SUB.F 0985A7 B7 FF WRITE.F $FF 0985A9 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 0985B2 86 03 READ.L $03 0985B4 4A PUSH.6 $0A 0985B5 29 MUL.L 0985B6 86 07 READ.L $07 0985B8 27 ADD.L 0985B9 E3 61 FD READ.F $61FD 0985BC 22 MUL.F 0985BD D7 02 07 WRITE.F $0207 0985C0 86 07 READ.L $07 0985C2 86 07 READ.L $07 0985C4 E7 01 53 READ.F $0153 0985C7 86 03 READ.L $03 0985C9 4A PUSH.6 $0A 0985CA 29 MUL.L 0985CB 86 07 READ.L $07 0985CD 27 ADD.L 0985CE E3 69 DF READ.F $69DF 0985D1 C7 02 07 READ.F $0207 0985D4 22 MUL.F 0985D5 21 SUB.F 0985D6 F7 01 53 WRITE.F $0153 0985D9 86 07 READ.L $07 0985DB 86 07 READ.L $07 0985DD E7 01 A7 READ.F $01A7 0985E0 86 03 READ.L $03 0985E2 4A PUSH.6 $0A 0985E3 29 MUL.L 0985E4 86 07 READ.L $07 0985E6 27 ADD.L 0985E7 E3 6A 7F READ.F $6A7F 0985EA C7 02 07 READ.F $0207 0985ED 22 MUL.F 0985EE 21 SUB.F 0985EF F7 01 A7 WRITE.F $01A7 0985F2 86 07 READ.L $07 0985F4 86 07 READ.L $07 0985F6 E7 01 FB READ.F $01FB 0985F9 86 03 READ.L $03 0985FB 4A PUSH.6 $0A 0985FC 29 MUL.L 0985FD 86 07 READ.L $07 0985FF 27 ADD.L 098600 E3 6B 1F READ.F $6B1F 098603 C7 02 07 READ.F $0207 098606 22 MUL.F 098607 21 SUB.F 098608 F7 01 FB WRITE.F $01FB 09860B 86 07 READ.L $07 09860D E3 62 ED READ.F $62ED 098610 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 098619 22 MUL.F 09861A C3 29 DF READ.F $29DF 09861D 22 MUL.F 09861E C7 02 0F 00 READ.F $020F 098622 C7 02 17 00 READ.F $0217 098626 30 01 F7 BSR.68K $01F7 ; => $098432 => $002E62 (NATIVE) 098629 86 07 READ.L $07 09862B 86 07 READ.L $07 09862D A7 57 READ.F $57 09862F C7 02 17 READ.F $0217 098632 22 MUL.F 098633 86 07 READ.L $07 098635 A7 AB READ.F $AB 098637 C7 02 0F READ.F $020F 09863A 22 MUL.F 09863B 20 ADD.F 09863C B7 57 WRITE.F $57 09863E 86 07 READ.L $07 098640 86 07 READ.L $07 098642 A7 AB READ.F $AB 098644 C7 02 17 READ.F $0217 098647 22 MUL.F 098648 86 07 READ.L $07 09864A A7 57 READ.F $57 09864C C7 02 0F READ.F $020F 09864F 22 MUL.F 098650 21 SUB.F 098651 B7 AB WRITE.F $AB 098653 86 03 READ.L $03 098655 4A PUSH.6 $0A 098656 29 MUL.L 098657 86 07 READ.L $07 098659 27 ADD.L 09865A E3 63 8D READ.F $638D 09865D 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 098666 22 MUL.F 098667 C3 29 DF READ.F $29DF 09866A 22 MUL.F 09866B C7 02 0F 00 READ.F $020F 09866F C7 02 17 00 READ.F $0217 098673 30 02 44 BSR.68K $0244 ; => $098432 => $002E62 (NATIVE) 098676 86 07 READ.L $07 098678 86 07 READ.L $07 09867A E7 01 53 READ.F $0153 09867D C7 02 17 READ.F $0217 098680 22 MUL.F 098681 86 07 READ.L $07 098683 E7 01 A7 READ.F $01A7 098686 C7 02 0F READ.F $020F 098689 22 MUL.F 09868A 20 ADD.F 09868B F7 01 53 WRITE.F $0153 09868E 86 07 READ.L $07 098690 86 07 READ.L $07 098692 E7 01 A7 READ.F $01A7 098695 C7 02 17 READ.F $0217 098698 22 MUL.F 098699 86 07 READ.L $07 09869B E7 01 53 READ.F $0153 09869E C7 02 0F READ.F $020F 0986A1 22 MUL.F 0986A2 21 SUB.F 0986A3 F7 01 A7 WRITE.F $01A7 0986A6 32 18 ADDSP.B $18 0986A8 33 _2300 0986A9 33 _2300 0986AA 33 _2300 0986AB 33 _2300 0986AC 33 _2300 0986AD 33 _2300 0986AE 32 08 ADDSP.B $08 0986B0 34 RETURN ; ---------------- End Function $098558 ---------------- ; ---------------- Begin 2144 Function $0986B2 ---------------- ; A0 = $004004; (A0) = SP + $20B ; called from $0991F6:$0994EE ; called from $0991F6:$0995E9 ; addr bytes opcode operands comment 0986B9 31 40 SUBSP.B $40 0986BB 40 PUSH.6 $00 0986BC 86 0B READ.L $0B 0986BE 09 00 5B 00 50 00 ?_$09 $005B, $0050, $0 0986C4 09 00 AB 00 50 00 ?_$09 $00AB, $0050, $0 0986CA 09 00 FB 00 50 00 ?_$09 $00FB, $0050, $0 0986D0 09 01 4B 00 50 00 ?_$09 $014B, $0050, $0 0986D6 09 01 9B 00 50 00 ?_$09 $019B, $0050, $0 0986DC 09 01 EB 00 50 00 ?_$09 $01EB, $0050, $0 0986E2 30 01 8D BSR.68K $018D ; => $098558 0986E5 86 07 READ.L $07 0986E7 18 3B BRZ $03B ; => $098724 0986E9 86 0B READ.L $0B 0986EB A7 5B READ.F $5B 0986ED 86 0B READ.L $0B 0986EF A7 AB READ.F $AB 0986F1 86 0B READ.L $0B 0986F3 A7 FB READ.F $FB 0986F5 C3 55 01 READ.F $5501 0986F8 C3 55 09 READ.F $5509 0986FB C3 55 11 READ.F $5511 0986FE 30 02 C9 BSR.68K $02C9 ; => $098438 => $0AA32C 098701 D7 02 1B WRITE.F $021B 098704 86 0B READ.L $0B 098706 E7 01 4B READ.F $014B 098709 86 0B READ.L $0B 09870B E7 01 9B READ.F $019B 09870E 86 0B READ.L $0B 098710 E7 01 EB READ.F $01EB 098713 C3 55 01 READ.F $5501 098716 C3 55 09 READ.F $5509 098719 C3 55 11 READ.F $5511 09871C 30 02 E7 BSR.68K $02E7 ; => $098438 => $0AA32C 09871F D7 02 23 WRITE.F $0223 098722 10 3F BR $03F ; => $098763 098724 86 0B READ.L $0B 098726 A7 5B READ.F $5B 098728 86 0B READ.L $0B 09872A A7 AB READ.F $AB 09872C 86 0B READ.L $0B 09872E A7 FB READ.F $FB 098730 C7 01 F3 READ.F $01F3 098733 C7 01 FB READ.F $01FB 098736 C7 02 03 READ.F $0203 098739 30 03 04 BSR.68K $0304 ; => $098438 => $0AA32C 09873C D7 02 1B WRITE.F $021B 09873F 86 0B READ.L $0B 098741 E7 01 4B READ.F $014B 098744 86 0B READ.L $0B 098746 E7 01 9B READ.F $019B 098749 86 0B READ.L $0B 09874B E7 01 EB READ.F $01EB 09874E 86 03 READ.L $03 098750 E3 65 91 READ.F $6591 098753 86 03 READ.L $03 098755 E3 65 A1 READ.F $65A1 098758 86 03 READ.L $03 09875A E3 65 B1 READ.F $65B1 09875D 30 03 28 BSR.68K $0328 ; => $098438 => $0AA32C 098760 D7 02 23 WRITE.F $0223 098763 C7 02 23 READ.F $0223 098766 C7 02 1B READ.F $021B 098769 21 SUB.F 09876A C7 02 0B READ.F $020B 09876D 21 SUB.F 09876E D7 02 2B WRITE.F $022B 098771 C7 02 2B READ.F $022B 098774 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 09877D 86 0B READ.L $0B 09877F E3 46 B7 READ.F $46B7 098782 40 PUSH.6 $00 098783 4A PUSH.6 $0A 098784 29 MUL.L 098785 86 0B READ.L $0B 098787 27 ADD.L 098788 E3 67 01 READ.F $6701 09878B 21 SUB.F 09878C 22 MUL.F 09878D 86 0B READ.L $0B 09878F E0 40 09 READ.B $4009 098792 E3 06 2B READ.F $062B 098795 22 MUL.F 098796 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 09879F 22 MUL.F 0987A0 20 ADD.F 0987A1 3B 40 15 05 28 04 93 D4 01 PUSH.F $401505280493D401 ; float = 5.255035 0987AA 22 MUL.F 0987AB D7 02 2B WRITE.F $022B 0987AE C7 02 2B READ.F $022B 0987B1 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 0987BA 86 0B READ.L $0B 0987BC E3 46 B7 READ.F $46B7 0987BF 40 PUSH.6 $00 0987C0 4A PUSH.6 $0A 0987C1 29 MUL.L 0987C2 86 0B READ.L $0B 0987C4 27 ADD.L 0987C5 E3 67 01 READ.F $6701 0987C8 21 SUB.F 0987C9 22 MUL.F 0987CA 86 0B READ.L $0B 0987CC E3 6B C9 READ.F $6BC9 0987CF 22 MUL.F 0987D0 20 ADD.F 0987D1 D7 02 2B WRITE.F $022B 0987D4 40 PUSH.6 $00 0987D5 4A PUSH.6 $0A 0987D6 29 MUL.L 0987D7 86 0B READ.L $0B 0987D9 27 ADD.L 0987DA E0 67 29 READ.B $6729 0987DD 48 PUSH.6 $08 0987DE 2C AND.L 0987DF 48 PUSH.6 $08 0987E0 2A EQ.L 0987E1 86 0B READ.L $0B 0987E3 E0 4B 7D READ.B $4B7D 0987E6 48 PUSH.6 $08 0987E7 2C AND.L 0987E8 48 PUSH.6 $08 0987E9 2A EQ.L 0987EA 2C AND.L 0987EB C0 29 60 READ.B $2960 0987EE 40 PUSH.6 $00 0987EF 2A EQ.L 0987F0 2C AND.L 0987F1 18 FC BRZ $0FC ; => $0988EF 0987F3 86 0B READ.L $0B 0987F5 E3 4B 73 READ.F $4B73 0987F8 3B 40 15 05 28 04 93 D4 01 PUSH.F $401505280493D401 ; float = 5.255035 098801 22 MUL.F 098802 D7 02 43 WRITE.F $0243 098805 40 PUSH.6 $00 098806 4A PUSH.6 $0A 098807 29 MUL.L 098808 86 0B READ.L $0B 09880A 27 ADD.L 09880B E3 66 61 READ.F $6661 09880E 3B 40 15 05 28 04 93 D4 01 PUSH.F $401505280493D401 ; float = 5.255035 098817 22 MUL.F 098818 D7 02 4B WRITE.F $024B 09881B 86 0B READ.L $0B 09881D E0 49 11 READ.B $4911 098820 41 PUSH.6 $01 098821 2C AND.L 098822 40 PUSH.6 $00 098823 4A PUSH.6 $0A 098824 29 MUL.L 098825 86 0B READ.L $0B 098827 27 ADD.L 098828 E0 67 15 READ.B $6715 09882B 41 PUSH.6 $01 09882C 2C AND.L 09882D 03 2F XORL.L 09882F 18 13 BRZ $013 ; => $098844 098831 C7 02 4B READ.F $024B 098834 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09883D 20 ADD.F 09883E 30 04 15 BSR.68K $0415 ; => $09842C => $002C08 (NATIVE) 098841 D7 02 4B WRITE.F $024B 098844 C7 02 2B READ.F $022B 098847 C7 02 4B READ.F $024B 09884A 21 SUB.F 09884B C7 02 43 READ.F $0243 09884E 20 ADD.F 09884F D7 02 33 WRITE.F $0233 098852 C7 02 33 READ.F $0233 098855 30 04 2C BSR.68K $042C ; => $09842C => $002C08 (NATIVE) 098858 D7 02 3B WRITE.F $023B 09885B C7 02 3B READ.F $023B 09885E 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 098867 24 GT.F 098868 18 12 BRZ $012 ; => $09887C 09886A C7 02 3B READ.F $023B 09886D 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 098876 21 SUB.F 098877 D7 02 3B WRITE.F $023B 09887A 10 22 BR $022 ; => $09889E 09887C C7 02 3B READ.F $023B 09887F 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 098888 03 20 NEG.W 09888A 03 21 LT.F 09888C 18 10 BRZ $010 ; => $09889E 09888E C7 02 3B READ.F $023B 098891 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09889A 20 ADD.F 09889B D7 02 3B WRITE.F $023B 09889E C0 29 5D READ.B $295D 0988A1 18 31 BRZ $031 ; => $0988D4 0988A3 03 30 06 43 48 41 4E 3A 20 TRAP1 "CHAN: " 0988AC 86 0B READ.L $0B 0988AE 42 PUSH.6 $02 0988AF 30 04 50 BSR.68K $0450 ; => $098462 => $0A0036 0988B2 03 30 0F 20 20 55 4E 43 45 TRAP1 " UNCERTAINTY: " 52 54 41 49 4E 54 59 3A 20 0988C4 C7 02 3B READ.F $023B 0988C7 30 04 62 BSR.68K $0462 ; => $098468 => $0A57D4 0988CA 03 30 07 20 63 79 63 6C 65 TRAP1 " cycles" 73 0988D4 C7 02 33 READ.F $0233 0988D7 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0988E0 20 ADD.F 0988E1 30 04 9A BSR.68K $049A ; => $09844A => $002CA6 (NATIVE) 0988E4 C7 02 4B READ.F $024B 0988E7 20 ADD.F 0988E8 C7 02 43 READ.F $0243 0988EB 21 SUB.F 0988EC D7 02 2B WRITE.F $022B 0988EF 3B 3E 05 CF 55 03 0F 15 63 PUSH.F $3E05CF55030F1563 ; float = 0.000000 0988F8 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 098901 C7 02 2B READ.F $022B 098904 22 MUL.F 098905 86 0B READ.L $0B 098907 E3 46 53 READ.F $4653 09890A 86 0B READ.L $0B 09890C E3 47 61 READ.F $4761 09890F 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 098918 21 SUB.F 098919 22 MUL.F 09891A 20 ADD.F 09891B 40 PUSH.6 $00 09891C 4A PUSH.6 $0A 09891D 29 MUL.L 09891E 86 0B READ.L $0B 098920 27 ADD.L 098921 E3 61 FD READ.F $61FD 098924 40 PUSH.6 $00 098925 4A PUSH.6 $0A 098926 29 MUL.L 098927 86 0B READ.L $0B 098929 27 ADD.L 09892A E3 62 9D READ.F $629D 09892D 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 098936 21 SUB.F 098937 22 MUL.F 098938 21 SUB.F 098939 22 MUL.F 09893A D7 02 2B WRITE.F $022B 09893D C0 29 5D READ.B $295D 098940 18 A0 BRZ $0A0 ; => $0989E2 098942 03 30 1E 20 20 45 52 52 4F TRAP1 " ERROR IN INTDOP PREDICTION: " 52 20 49 4E 20 49 4E 54 44 4F 50 20 50 52 45 44 49 43 54 49 4F 4E 3A 20 098963 86 0B READ.L $0B 098965 E3 4C 45 READ.F $4C45 098968 40 PUSH.6 $00 098969 4A PUSH.6 $0A 09896A 29 MUL.L 09896B 86 0B READ.L $0B 09896D 27 ADD.L 09896E E3 61 5D READ.F $615D 098971 21 SUB.F 098972 C7 02 2B READ.F $022B 098975 21 SUB.F 098976 3B 40 15 01 6F 00 68 DB 8C PUSH.F $4015016F0068DB8C ; float = 5.251400 09897F 22 MUL.F 098980 D7 02 13 WRITE.F $0213 098983 C7 02 13 READ.F $0213 098986 30 05 21 BSR.68K $0521 ; => $098468 => $0A57D4 098989 03 30 07 20 63 79 63 6C 65 TRAP1 " cycles" 73 098993 C7 02 13 READ.F $0213 098996 30 05 3D BSR.68K $053D ; => $09845C => $002B7E (NATIVE) 098999 3B 3F B9 99 99 99 99 99 9A PUSH.F $3FB999999999999A ; float = 0.100000 0989A2 24 GT.F 0989A3 18 0E BRZ $00E ; => $0989B3 0989A5 03 30 0B 20 2A 2A 2A 2A 2A TRAP1 " **********" 2A 2A 2A 2A 2A 0989B3 C7 02 13 READ.F $0213 0989B6 30 05 5D BSR.68K $055D ; => $09845C => $002B7E (NATIVE) 0989B9 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0989C2 24 GT.F 0989C3 18 1A BRZ $01A ; => $0989DF 0989C5 03 30 17 20 20 20 20 20 20 TRAP1 " !!! ERROR !!!" 20 20 20 20 21 21 21 20 45 52 52 4F 52 20 21 21 21 0989DF 30 05 74 BSR.68K $0574 ; => $09846E => $0A05A4 (NATIVE) 0989E2 C0 29 5F READ.B $295F 0989E5 40 PUSH.6 $00 0989E6 2A EQ.L 0989E7 18 2E BRZ $02E ; => $098A17 0989E9 86 0B READ.L $0B 0989EB 40 PUSH.6 $00 0989EC 4A PUSH.6 $0A 0989ED 29 MUL.L 0989EE 86 0B READ.L $0B 0989F0 27 ADD.L 0989F1 E3 61 5D READ.F $615D 0989F4 C7 02 2B READ.F $022B 0989F7 20 ADD.F 0989F8 F3 4C 45 WRITE.F $4C45 0989FB 86 0B READ.L $0B 0989FD 86 0B READ.L $0B 0989FF E0 49 11 READ.B $4911 098A02 04 FD PUSH.10 $0FD 098A04 2C AND.L 098A05 F0 49 11 WRITE.B $4911 098A08 86 0B READ.L $0B 098A0A E0 57 4B READ.B $574B 098A0D 41 PUSH.6 $01 098A0E 2A EQ.L 098A0F 18 06 BRZ $006 ; => $098A17 098A11 86 0B READ.L $0B 098A13 40 PUSH.6 $00 098A14 F0 57 4B WRITE.B $574B 098A17 40 PUSH.6 $00 098A18 C0 4E 69 READ.B $4E69 098A1B 2C AND.L 098A1C 18 09 BRZ $009 ; => $098A27 098A1E 50 PUSH.6 $10 098A1F D0 4E 51 WRITE.B $4E51 098A22 04 FD PUSH.10 $0FD 098A24 D0 60 AD WRITE.B $60AD 098A27 03 2E 02 4C ADDSP.W $024C 098A2B 34 RETURN ; ---------------- End Function $0986B2 ---------------- ; ---------------- Begin 2144 Function $098A2C ---------------- ; A0 = $004004; (A0) = SP + $249 ; called from $098B98:$098F26 ; addr bytes opcode operands comment 098A33 31 1A SUBSP.B $1A 098A35 3E PUSH.W $0000 098A36 D7 02 63 WRITE.F $0263 098A39 40 PUSH.6 $00 098A3A 36 12 4B _2362 $024B ; A0 = $004000; (A0) = A6 + $0 098A3D 86 03 READ.L $03 098A3F 38 00 89 BLS.B $0089 ; => $098ACB 098A42 C4 02 4B READ.B $024B 098A45 A4 0D READ.B $0D 098A47 D4 02 4A WRITE.B $024A 098A4A C4 02 4A READ.B $024A 098A4D A7 5D READ.F $5D 098A4F C4 02 4A READ.B $024A 098A52 A7 AD READ.F $AD 098A54 C4 02 4A READ.B $024A 098A57 A7 FD READ.F $FD 098A59 C3 55 01 READ.F $5501 098A5C C3 55 09 READ.F $5509 098A5F C3 55 11 READ.F $5511 098A62 30 06 2D BSR.68K $062D ; => $098438 => $0AA32C 098A65 D7 02 53 WRITE.F $0253 098A68 C4 02 4A READ.B $024A 098A6B E7 01 4D READ.F $014D 098A6E C4 02 4A READ.B $024A 098A71 E7 01 9D READ.F $019D 098A74 C4 02 4A READ.B $024A 098A77 E7 01 ED READ.F $01ED 098A7A C3 55 01 READ.F $5501 098A7D C3 55 09 READ.F $5509 098A80 C3 55 11 READ.F $5511 098A83 30 06 4E BSR.68K $064E ; => $098438 => $0AA32C 098A86 D7 02 5B WRITE.F $025B 098A89 C7 02 63 READ.F $0263 098A8C C7 02 5B READ.F $025B 098A8F 20 ADD.F 098A90 C7 02 53 READ.F $0253 098A93 21 SUB.F 098A94 C4 02 4B READ.B $024B 098A97 E7 02 3D READ.F $023D 098A9A 21 SUB.F 098A9B D7 02 63 WRITE.F $0263 098A9E C0 29 5D READ.B $295D 098AA1 18 23 BRZ $023 ; => $098AC6 098AA3 03 30 0C 43 4C 4B 5F 44 45 TRAP1 "CLK_DELTA : " 4C 54 41 20 3A 20 098AB2 C7 02 5B READ.F $025B 098AB5 C7 02 53 READ.F $0253 098AB8 21 SUB.F 098AB9 C4 02 4B READ.B $024B 098ABC E7 02 3D READ.F $023D 098ABF 21 SUB.F 098AC0 30 06 5B BSR.68K $065B ; => $098468 => $0A57D4 098AC3 30 06 58 BSR.68K $0658 ; => $09846E => $0A05A4 (NATIVE) 098AC6 37 12 4B 00 8E _23d2 $024B, $008E 098ACB C7 02 63 READ.F $0263 098ACE 86 03 READ.L $03 098AD0 41 PUSH.6 $01 098AD1 27 ADD.L 098AD2 03 2A LONG2FLOAT 098AD4 23 DIV.F 098AD5 D7 02 45 WRITE.F $0245 098AD8 32 1A ADDSP.B $1A 098ADA 33 _2300 098ADB 03 2E 02 3E ADDSP.W $023E 098ADF 34 RETURN ; ---------------- End Function $098A2C ---------------- ; ---------------- Begin 2144 Function $098AE0 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $098B98:$098F2F ; addr bytes opcode operands comment 098AE7 31 02 SUBSP.B $02 098AE9 40 PUSH.6 $00 098AEA 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 098AED 43 PUSH.6 $03 098AEE 38 00 58 BLS.B $0058 ; => $098B49 098AF1 40 PUSH.6 $00 098AF2 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 098AF5 43 PUSH.6 $03 098AF6 38 00 4B BLS.B $004B ; => $098B44 098AF9 88 00 READ.B $00 098AFB 44 PUSH.6 $04 098AFC 29 MUL.L 098AFD 88 01 READ.B $01 098AFF 27 ADD.L 098B00 3E PUSH.W $0000 098B01 F7 03 F7 WRITE.F $03F7 098B04 40 PUSH.6 $00 098B05 36 12 32 _2362 $0232 ; A0 = $004000; (A0) = A6 + $0 098B08 C4 02 34 READ.B $0234 098B0B 38 00 31 BLS.B $0031 ; => $098B3F 098B0E 88 00 READ.B $00 098B10 44 PUSH.6 $04 098B11 29 MUL.L 098B12 88 01 READ.B $01 098B14 27 ADD.L 098B15 88 00 READ.B $00 098B17 44 PUSH.6 $04 098B18 29 MUL.L 098B19 88 01 READ.B $01 098B1B 27 ADD.L 098B1C E7 03 F7 READ.F $03F7 098B1F C4 02 32 READ.B $0232 098B22 44 PUSH.6 $04 098B23 29 MUL.L 098B24 88 00 READ.B $00 098B26 27 ADD.L 098B27 E7 03 77 READ.F $0377 098B2A C4 02 32 READ.B $0232 098B2D 44 PUSH.6 $04 098B2E 29 MUL.L 098B2F 88 01 READ.B $01 098B31 27 ADD.L 098B32 E7 03 77 READ.F $0377 098B35 22 MUL.F 098B36 20 ADD.F 098B37 F7 03 F7 WRITE.F $03F7 098B3A 37 12 32 00 37 _23d2 $0232, $0037 098B3F 37 20 01 00 4F _23d2 $0001, $004F 098B44 37 20 00 00 5C _23d2 $0000, $005C 098B49 32 02 ADDSP.B $02 098B4B 34 RETURN ; ---------------- End Function $098AE0 ---------------- ; ---------------- Begin 2144 Function $098B4C ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $098B98:$099078 ; addr bytes opcode operands comment 098B53 31 02 SUBSP.B $02 098B55 40 PUSH.6 $00 098B56 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 098B59 43 PUSH.6 $03 098B5A 38 00 37 BLS.B $0037 ; => $098B94 098B5D 88 00 READ.B $00 098B5F 3E PUSH.W $0000 098B60 F7 05 57 WRITE.F $0557 098B63 40 PUSH.6 $00 098B64 36 12 32 _2362 $0232 ; A0 = $004000; (A0) = A6 + $0 098B67 C4 02 34 READ.B $0234 098B6A 38 00 22 BLS.B $0022 ; => $098B8F 098B6D 88 00 READ.B $00 098B6F 88 00 READ.B $00 098B71 E7 05 57 READ.F $0557 098B74 C4 02 32 READ.B $0232 098B77 44 PUSH.6 $04 098B78 29 MUL.L 098B79 88 00 READ.B $00 098B7B 27 ADD.L 098B7C E7 03 77 READ.F $0377 098B7F C4 02 32 READ.B $0232 098B82 E7 04 C7 READ.F $04C7 098B85 22 MUL.F 098B86 20 ADD.F 098B87 F7 05 57 WRITE.F $0557 098B8A 37 12 32 00 28 _23d2 $0232, $0028 098B8F 37 20 00 00 3B _23d2 $0000, $003B 098B94 32 02 ADDSP.B $02 098B96 34 RETURN ; ---------------- End Function $098B4C ---------------- ; ---------------- Begin 2164 Function $098B98 ---------------- ; P0 = $022E; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $22D; D1 = $000004 ; called from $0991F6:$0994A6 ; called from $0991F6:$09958B ; addr bytes opcode operands comment 098BA1 03 2D 03 C6 SUBSP.W $03C6 098BA5 86 0F READ.L $0F 098BA7 2E NOT.L 098BA8 D4 02 36 WRITE.B $0236 098BAB 86 0B READ.L $0B 098BAD 41 PUSH.6 $01 098BAE 28 SUB.L 098BAF D4 02 34 WRITE.B $0234 098BB2 40 PUSH.6 $00 098BB3 36 12 32 _2362 $0232 ; A0 = $004000; (A0) = A6 + $0 098BB6 C4 02 34 READ.B $0234 098BB9 38 02 4D BLS.B $024D ; => $098E09 098BBC C4 02 32 READ.B $0232 098BBF A4 21 READ.B $21 098BC1 D4 02 33 WRITE.B $0233 098BC4 86 07 READ.L $07 098BC6 C4 02 33 READ.B $0233 098BC9 09 00 71 00 50 00 ?_$09 $0071, $0050, $0 098BCF 09 00 C1 00 50 00 ?_$09 $00C1, $0050, $0 098BD5 09 01 11 00 50 00 ?_$09 $0111, $0050, $0 098BDB 09 01 61 00 50 00 ?_$09 $0161, $0050, $0 098BE1 09 01 B1 00 50 00 ?_$09 $01B1, $0050, $0 098BE7 09 02 01 00 50 00 ?_$09 $0201, $0050, $0 098BED 30 06 98 BSR.68K $0698 ; => $098558 098BF0 C4 02 36 READ.B $0236 098BF3 18 B2 BRZ $0B2 ; => $098CA7 098BF5 C4 02 33 READ.B $0233 098BF8 A7 71 READ.F $71 098BFA C4 02 33 READ.B $0233 098BFD A7 C1 READ.F $C1 098BFF C4 02 33 READ.B $0233 098C02 E7 01 11 READ.F $0111 098C05 C3 55 01 READ.F $5501 098C08 C3 55 09 READ.F $5509 098C0B C3 55 11 READ.F $5511 098C0E 30 07 D9 BSR.68K $07D9 ; => $098438 => $0AA32C 098C11 D7 05 AF WRITE.F $05AF 098C14 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 098C1D C7 05 AF READ.F $05AF 098C20 23 DIV.F 098C21 D7 05 B7 WRITE.F $05B7 098C24 C4 02 32 READ.B $0232 098C27 44 PUSH.6 $04 098C28 29 MUL.L 098C29 40 PUSH.6 $00 098C2A 27 ADD.L 098C2B C3 55 01 READ.F $5501 098C2E C4 02 33 READ.B $0233 098C31 A7 71 READ.F $71 098C33 21 SUB.F 098C34 C7 05 B7 READ.F $05B7 098C37 22 MUL.F 098C38 F7 03 77 WRITE.F $0377 098C3B C4 02 32 READ.B $0232 098C3E 44 PUSH.6 $04 098C3F 29 MUL.L 098C40 41 PUSH.6 $01 098C41 27 ADD.L 098C42 C3 55 09 READ.F $5509 098C45 C4 02 33 READ.B $0233 098C48 A7 C1 READ.F $C1 098C4A 21 SUB.F 098C4B C7 05 B7 READ.F $05B7 098C4E 22 MUL.F 098C4F F7 03 77 WRITE.F $0377 098C52 C4 02 32 READ.B $0232 098C55 44 PUSH.6 $04 098C56 29 MUL.L 098C57 42 PUSH.6 $02 098C58 27 ADD.L 098C59 C3 55 11 READ.F $5511 098C5C C4 02 33 READ.B $0233 098C5F E7 01 11 READ.F $0111 098C62 21 SUB.F 098C63 C7 05 B7 READ.F $05B7 098C66 22 MUL.F 098C67 F7 03 77 WRITE.F $0377 098C6A C4 02 32 READ.B $0232 098C6D 44 PUSH.6 $04 098C6E 29 MUL.L 098C6F 43 PUSH.6 $03 098C70 27 ADD.L 098C71 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 098C7A F7 03 77 WRITE.F $0377 098C7D C4 02 32 READ.B $0232 098C80 C4 02 33 READ.B $0233 098C83 E7 01 61 READ.F $0161 098C86 C4 02 33 READ.B $0233 098C89 E7 01 B1 READ.F $01B1 098C8C C4 02 33 READ.B $0233 098C8F E7 02 01 READ.F $0201 098C92 86 07 READ.L $07 098C94 E3 65 91 READ.F $6591 098C97 86 07 READ.L $07 098C99 E3 65 A1 READ.F $65A1 098C9C 86 07 READ.L $07 098C9E E3 65 B1 READ.F $65B1 098CA1 30 08 6C BSR.68K $086C ; => $098438 => $0AA32C 098CA4 F7 05 17 WRITE.F $0517 098CA7 C4 02 32 READ.B $0232 098CAA 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 098CB3 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 098CBC C4 02 33 READ.B $0233 098CBF E3 4C 45 READ.F $4C45 098CC2 86 07 READ.L $07 098CC4 4A PUSH.6 $0A 098CC5 29 MUL.L 098CC6 C4 02 33 READ.B $0233 098CC9 27 ADD.L 098CCA E3 61 5D READ.F $615D 098CCD 21 SUB.F 098CCE 22 MUL.F 098CCF C4 02 33 READ.B $0233 098CD2 E3 46 53 READ.F $4653 098CD5 C4 02 33 READ.B $0233 098CD8 E3 47 61 READ.F $4761 098CDB 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 098CE4 21 SUB.F 098CE5 22 MUL.F 098CE6 21 SUB.F 098CE7 86 07 READ.L $07 098CE9 4A PUSH.6 $0A 098CEA 29 MUL.L 098CEB C4 02 33 READ.B $0233 098CEE 27 ADD.L 098CEF E3 61 FD READ.F $61FD 098CF2 86 07 READ.L $07 098CF4 4A PUSH.6 $0A 098CF5 29 MUL.L 098CF6 C4 02 33 READ.B $0233 098CF9 27 ADD.L 098CFA E3 62 9D READ.F $629D 098CFD 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 098D06 21 SUB.F 098D07 22 MUL.F 098D08 20 ADD.F 098D09 22 MUL.F 098D0A F7 05 A7 WRITE.F $05A7 098D0D C4 02 33 READ.B $0233 098D10 E3 4B 73 READ.F $4B73 098D13 3B 40 15 05 28 04 93 D4 01 PUSH.F $401505280493D401 ; float = 5.255035 098D1C 22 MUL.F 098D1D D7 05 C7 WRITE.F $05C7 098D20 86 07 READ.L $07 098D22 4A PUSH.6 $0A 098D23 29 MUL.L 098D24 C4 02 33 READ.B $0233 098D27 27 ADD.L 098D28 E3 66 61 READ.F $6661 098D2B 3B 40 15 05 28 04 93 D4 01 PUSH.F $401505280493D401 ; float = 5.255035 098D34 22 MUL.F 098D35 D7 05 CF WRITE.F $05CF 098D38 C4 02 33 READ.B $0233 098D3B E0 49 11 READ.B $4911 098D3E 41 PUSH.6 $01 098D3F 2C AND.L 098D40 86 07 READ.L $07 098D42 4A PUSH.6 $0A 098D43 29 MUL.L 098D44 C4 02 33 READ.B $0233 098D47 27 ADD.L 098D48 E0 67 15 READ.B $6715 098D4B 41 PUSH.6 $01 098D4C 2C AND.L 098D4D 03 2F XORL.L 098D4F 18 13 BRZ $013 ; => $098D64 098D51 C7 05 CF READ.F $05CF 098D54 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 098D5D 20 ADD.F 098D5E 30 09 35 BSR.68K $0935 ; => $09842C => $002C08 (NATIVE) 098D61 D7 05 CF WRITE.F $05CF 098D64 C4 02 32 READ.B $0232 098D67 C4 02 32 READ.B $0232 098D6A E7 05 A7 READ.F $05A7 098D6D C7 05 CF READ.F $05CF 098D70 21 SUB.F 098D71 C7 05 C7 READ.F $05C7 098D74 20 ADD.F 098D75 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 098D7E 20 ADD.F 098D7F 30 09 38 BSR.68K $0938 ; => $09844A => $002CA6 (NATIVE) 098D82 C7 05 CF READ.F $05CF 098D85 20 ADD.F 098D86 C7 05 C7 READ.F $05C7 098D89 21 SUB.F 098D8A F7 05 A7 WRITE.F $05A7 098D8D C4 02 32 READ.B $0232 098D90 C4 02 32 READ.B $0232 098D93 E7 05 A7 READ.F $05A7 098D96 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 098D9F C4 02 33 READ.B $0233 098DA2 E3 46 B7 READ.F $46B7 098DA5 86 07 READ.L $07 098DA7 4A PUSH.6 $0A 098DA8 29 MUL.L 098DA9 C4 02 33 READ.B $0233 098DAC 27 ADD.L 098DAD E3 67 01 READ.F $6701 098DB0 21 SUB.F 098DB1 22 MUL.F 098DB2 C4 02 33 READ.B $0233 098DB5 E3 6B C9 READ.F $6BC9 098DB8 22 MUL.F 098DB9 21 SUB.F 098DBA 3B 3F C8 5B 8B 06 A7 E6 99 PUSH.F $3FC85B8B06A7E699 ; float = 0.190294 098DC3 22 MUL.F 098DC4 F7 05 A7 WRITE.F $05A7 098DC7 C4 02 32 READ.B $0232 098DCA C4 02 32 READ.B $0232 098DCD E7 05 A7 READ.F $05A7 098DD0 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 098DD9 C4 02 33 READ.B $0233 098DDC E3 46 B7 READ.F $46B7 098DDF 86 07 READ.L $07 098DE1 4A PUSH.6 $0A 098DE2 29 MUL.L 098DE3 C4 02 33 READ.B $0233 098DE6 27 ADD.L 098DE7 E3 67 01 READ.F $6701 098DEA 21 SUB.F 098DEB 22 MUL.F 098DEC C4 02 33 READ.B $0233 098DEF E0 40 09 READ.B $4009 098DF2 E3 06 2B READ.F $062B 098DF5 22 MUL.F 098DF6 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 098DFF 22 MUL.F 098E00 21 SUB.F 098E01 F7 05 A7 WRITE.F $05A7 098E04 37 12 32 02 53 _23d2 $0232, $0253 098E09 C0 29 5D READ.B $295D 098E0C 18 E5 BRZ $0E5 ; => $098EF3 098E0E 04 FF PUSH.10 $0FF 098E10 D0 4E 94 WRITE.B $4E94 098E13 03 30 06 54 49 4D 45 3A 20 TRAP1 "TIME: " 098E1C C3 60 3B READ.F $603B 098E1F C1 29 FD READ.W $29FD 098E22 3D 00 09 3A 80 PUSH.L $00093A80 098E27 29 MUL.L 098E28 03 2A LONG2FLOAT 098E2A 21 SUB.F 098E2B 30 09 C6 BSR.68K $09C6 ; => $098468 => $0A57D4 098E2E 03 30 1A 20 20 20 46 49 58 TRAP1 " FIX SLIPS USING CHANS: " 20 53 4C 49 50 53 20 55 53 49 4E 47 20 43 48 41 4E 53 3A 20 098E4B 40 PUSH.6 $00 098E4C 36 12 32 _2362 $0232 ; A0 = $004000; (A0) = A6 + $0 098E4F C4 02 34 READ.B $0234 098E52 38 00 13 BLS.B $0013 ; => $098E68 098E55 C4 02 32 READ.B $0232 098E58 A4 21 READ.B $21 098E5A 42 PUSH.6 $02 098E5B 30 09 FC BSR.68K $09FC ; => $098462 => $0A0036 098E5E 03 30 02 20 20 TRAP1 " " 098E63 37 12 32 00 19 _23d2 $0232, $0019 098E68 03 30 08 20 20 20 54 59 50 TRAP1 " TYPE " 45 20 098E73 86 07 READ.L $07 098E75 42 PUSH.6 $02 098E76 30 0A 17 BSR.68K $0A17 ; => $098462 => $0A0036 098E79 30 0A 0E BSR.68K $0A0E ; => $09846E => $0A05A4 (NATIVE) 098E7C C4 02 36 READ.B $0236 098E7F 18 10 BRZ $010 ; => $098E91 098E81 03 30 06 50 44 4F 50 3A 20 TRAP1 "PDOP: " 098E8A 87 17 READ.F $17 098E8C 30 0A 27 BSR.68K $0A27 ; => $098468 => $0A57D4 098E8F 10 12 BR $012 ; => $098EA3 098E91 03 30 0F 53 54 41 54 49 43 TRAP1 "STATIC SOLUTION" 20 53 4F 4C 55 54 49 4F 4E 098EA3 30 0A 38 BSR.68K $0A38 ; => $09846E => $0A05A4 (NATIVE) 098EA6 03 30 1B 49 4E 49 54 49 41 TRAP1 "INITIAL BASELINE ESTIMATE: " 4C 20 42 41 53 45 4C 49 4E 45 20 45 53 54 49 4D 41 54 45 3A 20 098EC4 C3 55 01 READ.F $5501 098EC7 86 07 READ.L $07 098EC9 E3 65 91 READ.F $6591 098ECC 21 SUB.F 098ECD 30 0A AA BSR.68K $0AAA ; => $098426 => $002B72 (NATIVE) 098ED0 C3 55 09 READ.F $5509 098ED3 86 07 READ.L $07 098ED5 E3 65 A1 READ.F $65A1 098ED8 21 SUB.F 098ED9 30 0A B6 BSR.68K $0AB6 ; => $098426 => $002B72 (NATIVE) 098EDC 20 ADD.F 098EDD C3 55 11 READ.F $5511 098EE0 86 07 READ.L $07 098EE2 E3 65 B1 READ.F $65B1 098EE5 21 SUB.F 098EE6 30 0A C3 BSR.68K $0AC3 ; => $098426 => $002B72 (NATIVE) 098EE9 20 ADD.F 098EEA 30 0A CD BSR.68K $0ACD ; => $098420 => $002682 (NATIVE) 098EED 30 0A 88 BSR.68K $0A88 ; => $098468 => $0A57D4 098EF0 30 0A 85 BSR.68K $0A85 ; => $09846E => $0A05A4 (NATIVE) 098EF3 86 0F READ.L $0F 098EF5 18 38 BRZ $038 ; => $098F2F 098EF7 C4 02 34 READ.B $0234 098EFA 09 00 21 00 0A ?_$09 $0021, $000A 098EFF 09 00 71 00 50 ?_$09 $0071, $0050 098F04 09 00 C1 00 50 ?_$09 $00C1, $0050 098F09 09 01 11 00 50 ?_$09 $0111, $0050 098F0E 09 01 61 00 50 ?_$09 $0161, $0050 098F13 09 01 B1 00 50 ?_$09 $01B1, $0050 098F18 09 02 01 00 50 ?_$09 $0201, $0050 098F1D 09 05 A7 00 50 ?_$09 $05A7, $0050 098F22 C7 02 2D 00 READ.F $022D 098F26 30 04 FD BSR.68K $04FD ; => $098A2C 098F29 04 FF PUSH.10 $0FF 098F2B 96 03 WRITE.L $03 098F2D 12 40 BR $240 ; => $09916F 098F2F 30 04 52 BSR.68K $0452 ; => $098AE0 098F32 09 03 F7 00 80 ?_$09 $03F7, $0080 098F37 30 0A FC BSR.68K $0AFC ; => $09843E => $003AA2 098F3A 0D 04 77 00 80 ?_$0D $0477, $0080 098F3F C3 55 01 READ.F $5501 098F42 D7 02 09 WRITE.F $0209 098F45 C3 55 09 READ.F $5509 098F48 D7 02 15 WRITE.F $0215 098F4B C3 55 11 READ.F $5511 098F4E D7 02 21 WRITE.F $0221 098F51 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 098F5A C3 55 19 READ.F $5519 098F5D 3B 3E CB FB 3C 01 A3 07 FA PUSH.F $3ECBFB3C01A307FA ; float = 0.000003 098F66 22 MUL.F 098F67 30 0B 3E BSR.68K $0B3E ; => $09842C => $002C08 (NATIVE) 098F6A 86 07 READ.L $07 098F6C E3 65 C1 READ.F $65C1 098F6F 3B 3E CB FB 3C 01 A3 07 FA PUSH.F $3ECBFB3C01A307FA ; float = 0.000003 098F78 22 MUL.F 098F79 30 0B 50 BSR.68K $0B50 ; => $09842C => $002C08 (NATIVE) 098F7C 21 SUB.F 098F7D 22 MUL.F 098F7E D7 02 2D WRITE.F $022D 098F81 C7 02 2D READ.F $022D 098F84 3B 41 02 4F 80 00 00 00 00 PUSH.F $41024F8000000000 ; float = 150000.000000 098F8D 25 GTE.F 098F8E 18 12 BRZ $012 ; => $098FA2 098F90 C7 02 2D READ.F $022D 098F93 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 098F9C 21 SUB.F 098F9D D7 02 2D WRITE.F $022D 098FA0 10 22 BR $022 ; => $098FC4 098FA2 C7 02 2D READ.F $022D 098FA5 3B 41 02 4F 80 00 00 00 00 PUSH.F $41024F8000000000 ; float = 150000.000000 098FAE 03 20 NEG.W 098FB0 03 22 LTE.F 098FB2 18 10 BRZ $010 ; => $098FC4 098FB4 C7 02 2D READ.F $022D 098FB7 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 098FC0 20 ADD.F 098FC1 D7 02 2D WRITE.F $022D 098FC4 40 PUSH.6 $00 098FC5 D4 02 35 WRITE.B $0235 098FC8 04 FF PUSH.10 $0FF 098FCA 96 03 WRITE.L $03 098FCC C4 02 35 READ.B $0235 098FCF 41 PUSH.6 $01 098FD0 27 ADD.L 098FD1 D4 02 35 WRITE.B $0235 098FD4 C4 02 35 READ.B $0235 098FD7 43 PUSH.6 $03 098FD8 03 25 LT.L 098FDA 18 05 BRZ $005 ; => $098FE1 098FDC 40 PUSH.6 $00 098FDD 96 03 WRITE.L $03 098FDF 11 8E BR $18E ; => $09916F 098FE1 40 PUSH.6 $00 098FE2 36 12 32 _2362 $0232 ; A0 = $004000; (A0) = A6 + $0 098FE5 C4 02 34 READ.B $0234 098FE8 38 00 8D BLS.B $008D ; => $099078 098FEB C4 02 32 READ.B $0232 098FEE A4 21 READ.B $21 098FF0 D4 02 33 WRITE.B $0233 098FF3 C4 02 33 READ.B $0233 098FF6 A7 71 READ.F $71 098FF8 C4 02 33 READ.B $0233 098FFB A7 C1 READ.F $C1 098FFD C4 02 33 READ.B $0233 099000 E7 01 11 READ.F $0111 099003 C7 02 09 READ.F $0209 099006 C7 02 15 READ.F $0215 099009 C7 02 21 READ.F $0221 09900C 30 0B D7 BSR.68K $0BD7 ; => $098438 => $0AA32C 09900F D7 05 AF WRITE.F $05AF 099012 C4 02 32 READ.B $0232 099015 C4 02 32 READ.B $0232 099018 E7 05 17 READ.F $0517 09901B C7 05 AF READ.F $05AF 09901E 21 SUB.F 09901F C7 02 2D READ.F $022D 099022 21 SUB.F 099023 C4 02 32 READ.B $0232 099026 E7 05 A7 READ.F $05A7 099029 21 SUB.F 09902A F7 04 C7 WRITE.F $04C7 09902D C0 29 5D READ.B $295D 099030 18 41 BRZ $041 ; => $099073 099032 03 30 08 44 45 4C 54 41 20 TRAP1 "DELTA : " 3A 20 09903D C4 02 33 READ.B $0233 099040 A7 71 READ.F $71 099042 C4 02 33 READ.B $0233 099045 A7 C1 READ.F $C1 099047 C4 02 33 READ.B $0233 09904A E7 01 11 READ.F $0111 09904D C3 65 91 READ.F $6591 099050 C3 65 A1 READ.F $65A1 099053 C3 65 B1 READ.F $65B1 099056 30 0C 21 BSR.68K $0C21 ; => $098438 => $0AA32C 099059 D7 05 AF WRITE.F $05AF 09905C C4 02 32 READ.B $0232 09905F E7 05 17 READ.F $0517 099062 C7 05 AF READ.F $05AF 099065 21 SUB.F 099066 C4 02 32 READ.B $0232 099069 E7 05 A7 READ.F $05A7 09906C 21 SUB.F 09906D 30 0C 08 BSR.68K $0C08 ; => $098468 => $0A57D4 099070 30 0C 05 BSR.68K $0C05 ; => $09846E => $0A05A4 (NATIVE) 099073 37 12 32 00 93 _23d2 $0232, $0093 099078 30 05 2F BSR.68K $052F ; => $098B4C 09907B 09 04 77 00 80 ?_$09 $0477, $0080 099080 09 05 57 00 20 ?_$09 $0557, $0020 099085 30 0C 44 BSR.68K $0C44 ; => $098444 => $0035FE 099088 0D 05 37 00 20 ?_$0D $0537, $0020 09908D C7 02 09 READ.F $0209 099090 C7 05 37 READ.F $0537 099093 20 ADD.F 099094 D7 02 09 WRITE.F $0209 099097 C7 02 15 READ.F $0215 09909A C7 05 2F READ.F $052F 09909D 20 ADD.F 09909E D7 02 15 WRITE.F $0215 0990A1 C7 02 21 READ.F $0221 0990A4 C7 05 27 READ.F $0527 0990A7 20 ADD.F 0990A8 D7 02 21 WRITE.F $0221 0990AB C7 02 2D READ.F $022D 0990AE C7 05 1F READ.F $051F 0990B1 20 ADD.F 0990B2 D7 02 2D WRITE.F $022D 0990B5 C7 02 09 READ.F $0209 0990B8 86 07 READ.L $07 0990BA E3 65 91 READ.F $6591 0990BD 21 SUB.F 0990BE D7 05 DF WRITE.F $05DF 0990C1 C7 02 15 READ.F $0215 0990C4 86 07 READ.L $07 0990C6 E3 65 A1 READ.F $65A1 0990C9 21 SUB.F 0990CA D7 05 E7 WRITE.F $05E7 0990CD C7 02 21 READ.F $0221 0990D0 86 07 READ.L $07 0990D2 E3 65 B1 READ.F $65B1 0990D5 21 SUB.F 0990D6 D7 05 EF WRITE.F $05EF 0990D9 C7 05 DF READ.F $05DF 0990DC 30 0C B9 BSR.68K $0CB9 ; => $098426 => $002B72 (NATIVE) 0990DF C7 05 E7 READ.F $05E7 0990E2 30 0C BF BSR.68K $0CBF ; => $098426 => $002B72 (NATIVE) 0990E5 20 ADD.F 0990E6 C7 05 EF READ.F $05EF 0990E9 30 0C C6 BSR.68K $0CC6 ; => $098426 => $002B72 (NATIVE) 0990EC 20 ADD.F 0990ED 30 0C D0 BSR.68K $0CD0 ; => $098420 => $002682 (NATIVE) 0990F0 D7 05 F7 WRITE.F $05F7 0990F3 C7 05 37 READ.F $0537 0990F6 30 0C D3 BSR.68K $0CD3 ; => $098426 => $002B72 (NATIVE) 0990F9 C7 05 2F READ.F $052F 0990FC 30 0C D9 BSR.68K $0CD9 ; => $098426 => $002B72 (NATIVE) 0990FF 20 ADD.F 099100 C7 05 27 READ.F $0527 099103 30 0C E0 BSR.68K $0CE0 ; => $098426 => $002B72 (NATIVE) 099106 20 ADD.F 099107 C7 05 1F READ.F $051F 09910A 30 0C E7 BSR.68K $0CE7 ; => $098426 => $002B72 (NATIVE) 09910D 20 ADD.F 09910E D7 05 D7 WRITE.F $05D7 099111 C0 29 5D READ.B $295D 099114 18 49 BRZ $049 ; => $09915F 099116 03 30 0E 4E 45 57 20 42 41 TRAP1 "NEW BASELINE: " 53 45 4C 49 4E 45 3A 20 099127 C7 05 F7 READ.F $05F7 09912A 30 0C C5 BSR.68K $0CC5 ; => $098468 => $0A57D4 09912D 03 30 19 20 20 20 52 4D 53 TRAP1 " RMS OF UPDATE MATRIX: " 20 4F 46 20 55 50 44 41 54 45 20 4D 41 54 52 49 58 3A 20 099149 C7 05 D7 READ.F $05D7 09914C 3B 40 10 00 00 00 00 00 00 PUSH.F $4010000000000000 ; float = 4.000000 099155 23 DIV.F 099156 30 0D 39 BSR.68K $0D39 ; => $098420 => $002682 (NATIVE) 099159 30 0C F4 BSR.68K $0CF4 ; => $098468 => $0A57D4 09915C 30 0C F1 BSR.68K $0CF1 ; => $09846E => $0A05A4 (NATIVE) 09915F C7 05 D7 READ.F $05D7 099162 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09916B 03 21 LT.F 09916D 1E 5D BRZ $-1A3 ; => $098FCC 09916F 03 2E 03 C6 ADDSP.W $03C6 099173 33 _2300 099174 33 _2300 099175 33 _2300 099176 33 _2300 099177 03 2E 01 FE ADDSP.W $01FE 09917B 34 RETURN ; ---------------- End Function $098B98 ---------------- ; ---------------- Begin 2144 Function $09917C ---------------- ; A0 = $004004; (A0) = SP + $FB ; called from $0991F6:$09940E ; addr bytes opcode operands comment 099183 08 41 E9 00 50 ?_$08 $41E9, $0050 099188 0D 00 4F 00 50 ?_$0D $004F, $0050 09918D 08 42 39 00 50 ?_$08 $4239, $0050 099192 0D 00 A3 00 50 ?_$0D $00A3, $0050 099197 08 42 89 00 50 ?_$08 $4289, $0050 09919C 0D 00 F7 00 50 ?_$0D $00F7, $0050 0991A1 33 _2300 0991A2 33 _2300 0991A3 33 _2300 0991A4 34 RETURN ; ---------------- End Function $09917C ---------------- ; ---------------- Begin 2144 Function $0991A6 ---------------- ; A0 = $004004; (A0) = SP + $FF ; called from $0991F6:$099468 ; called from $0991F6:$09954D ; called from $0991F6:$0995A3 ; addr bytes opcode operands comment 0991AD 31 02 SUBSP.B $02 0991AF 40 PUSH.6 $00 0991B0 36 11 00 _2362 $0100 ; A0 = $004000; (A0) = A6 + $0 0991B3 C0 29 9B READ.B $299B 0991B6 38 00 35 BLS.B $0035 ; => $0991EE 0991B9 C4 01 00 READ.B $0100 0991BC 86 03 READ.L $03 0991BE 4A PUSH.6 $0A 0991BF 29 MUL.L 0991C0 C4 01 00 READ.B $0100 0991C3 27 ADD.L 0991C4 E3 64 41 READ.F $6441 0991C7 B7 53 WRITE.F $53 0991C9 C4 01 00 READ.B $0100 0991CC 86 03 READ.L $03 0991CE 4A PUSH.6 $0A 0991CF 29 MUL.L 0991D0 C4 01 00 READ.B $0100 0991D3 27 ADD.L 0991D4 E3 64 E1 READ.F $64E1 0991D7 B7 A7 WRITE.F $A7 0991D9 C4 01 00 READ.B $0100 0991DC 86 03 READ.L $03 0991DE 4A PUSH.6 $0A 0991DF 29 MUL.L 0991E0 C4 01 00 READ.B $0100 0991E3 27 ADD.L 0991E4 E3 65 81 READ.F $6581 0991E7 B7 FB WRITE.F $FB 0991E9 37 11 00 00 3B _23d2 $0100, $003B 0991EE 32 02 ADDSP.B $02 0991F0 33 _2300 0991F1 33 _2300 0991F2 33 _2300 0991F3 32 04 ADDSP.B $04 0991F5 34 RETURN ; ---------------- End Function $0991A6 ---------------- ; ---------------- Begin 2144 Function $0991F6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D81C ; addr bytes opcode operands comment 0991FD 03 2D 02 44 SUBSP.W $0244 099201 C0 29 9D READ.B $299D 099204 C0 56 C4 READ.B $56C4 099207 2C AND.L 099208 2E NOT.L 099209 C0 29 61 READ.B $2961 09920C 40 PUSH.6 $00 09920D 2B NEQ.L 09920E 2D OR.L 09920F 18 08 BRZ $008 ; => $099219 099211 30 0D 32 BSR.68K $0D32 ; => $0984E2 099214 30 0D A3 BSR.68K $0DA3 ; => $098474 => $09CEA8 099217 13 EA BR $3EA ; => $099603 099219 C0 55 63 READ.B $5563 09921C 40 PUSH.6 $00 09921D 03 25 LT.L 09921F 18 0C BRZ $00C ; => $09922D 099221 C0 55 63 READ.B $5563 099224 41 PUSH.6 $01 099225 28 SUB.L 099226 94 36 WRITE.B $36 099228 84 36 READ.B $36 09922A 30 0D AD BSR.68K $0DAD ; => $098480 09922D C0 56 C5 READ.B $56C5 099230 C0 55 63 READ.B $5563 099233 42 PUSH.6 $02 099234 03 27 LTE.L 099236 2C AND.L 099237 C0 29 72 READ.B $2972 09923A 2E NOT.L 09923B C1 60 B1 READ.W $60B1 09923E 43 PUSH.6 $03 09923F 03 27 LTE.L 099241 2D OR.L 099242 2C AND.L 099243 94 39 WRITE.B $39 099245 C0 55 63 READ.B $5563 099248 45 PUSH.6 $05 099249 03 27 LTE.L 09924B C0 55 62 READ.B $5562 09924E 44 PUSH.6 $04 09924F 2A EQ.L 099250 2C AND.L 099251 84 39 READ.B $39 099253 2E NOT.L 099254 2C AND.L 099255 94 3A WRITE.B $3A 099257 84 39 READ.B $39 099259 C0 29 5C READ.B $295C 09925C 40 PUSH.6 $00 09925D 2A EQ.L 09925E 2C AND.L 09925F 18 18 BRZ $018 ; => $099279 099261 C3 5F FB READ.F $5FFB 099264 C3 60 03 READ.F $6003 099267 C3 60 0B READ.F $600B 09926A C3 55 01 00 READ.F $5501 09926E C3 55 09 00 READ.F $5509 099272 C3 55 11 00 READ.F $5511 099276 30 0E 23 BSR.68K $0E23 ; => $098456 => $0A2972 099279 84 39 READ.B $39 09927B 84 3A READ.B $3A 09927D 2D OR.L 09927E 1B 7D BRZ $37D ; => $0995FD 099280 40 PUSH.6 $00 099281 94 00 WRITE.B $00 099283 40 PUSH.6 $00 099284 36 10 38 _2362 $0038 ; A0 = $004000; (A0) = A6 + $0 099287 84 36 READ.B $36 099289 38 00 7F BLS.B $007F ; => $09930B 09928C 84 38 READ.B $38 09928E E0 47 6B READ.B $476B 099291 94 37 WRITE.B $37 099293 84 37 READ.B $37 099295 E0 49 11 READ.B $4911 099298 42 PUSH.6 $02 099299 2C AND.L 09929A 42 PUSH.6 $02 09929B 2A EQ.L 09929C 84 37 READ.B $37 09929E E0 69 3F READ.B $693F 0992A1 2D OR.L 0992A2 18 5D BRZ $05D ; => $099301 0992A4 84 37 READ.B $37 0992A6 E0 40 09 READ.B $4009 0992A9 E0 02 29 READ.B $0229 0992AC 40 PUSH.6 $00 0992AD 2A EQ.L 0992AE 18 4F BRZ $04F ; => $0992FF 0992B0 40 PUSH.6 $00 0992B1 4A PUSH.6 $0A 0992B2 29 MUL.L 0992B3 84 37 READ.B $37 0992B5 27 ADD.L 0992B6 E0 63 A1 READ.B $63A1 0992B9 40 PUSH.6 $00 0992BA 4A PUSH.6 $0A 0992BB 29 MUL.L 0992BC 84 37 READ.B $37 0992BE 27 ADD.L 0992BF E3 64 41 READ.F $6441 0992C2 3E PUSH.W $0000 0992C3 03 23 NEQ.F 0992C5 2C AND.L 0992C6 18 0D BRZ $00D ; => $0992D5 0992C8 84 38 READ.B $38 0992CA 41 PUSH.6 $01 0992CB B4 0B WRITE.B $0B 0992CD 84 00 READ.B $00 0992CF 41 PUSH.6 $01 0992D0 2D OR.L 0992D1 94 00 WRITE.B $00 0992D3 10 2A BR $02A ; => $0992FF 0992D5 41 PUSH.6 $01 0992D6 4A PUSH.6 $0A 0992D7 29 MUL.L 0992D8 84 37 READ.B $37 0992DA 27 ADD.L 0992DB E0 63 A1 READ.B $63A1 0992DE 40 PUSH.6 $00 0992DF 4A PUSH.6 $0A 0992E0 29 MUL.L 0992E1 84 37 READ.B $37 0992E3 27 ADD.L 0992E4 E3 64 41 READ.F $6441 0992E7 3E PUSH.W $0000 0992E8 03 23 NEQ.F 0992EA 2C AND.L 0992EB 18 0D BRZ $00D ; => $0992FA 0992ED 84 38 READ.B $38 0992EF 42 PUSH.6 $02 0992F0 B4 0B WRITE.B $0B 0992F2 84 00 READ.B $00 0992F4 42 PUSH.6 $02 0992F5 2D OR.L 0992F6 94 00 WRITE.B $00 0992F8 10 05 BR $005 ; => $0992FF 0992FA 84 38 READ.B $38 0992FC 40 PUSH.6 $00 0992FD B4 0B WRITE.B $0B 0992FF 10 05 BR $005 ; => $099306 099301 84 38 READ.B $38 099303 40 PUSH.6 $00 099304 B4 0B WRITE.B $0B 099306 37 10 38 00 84 _23d2 $0038, $0084 09930B 84 00 READ.B $00 09930D 1A E2 BRZ $2E2 ; => $0995F1 09930F 40 PUSH.6 $00 099310 36 10 37 _2362 $0037 ; A0 = $004000; (A0) = A6 + $0 099313 C0 29 9B READ.B $299B 099316 38 00 0F BLS.B $000F ; => $099328 099319 84 37 READ.B $37 09931B 40 PUSH.6 $00 09931C B4 15 WRITE.B $15 09931E 84 37 READ.B $37 099320 40 PUSH.6 $00 099321 B4 1F WRITE.B $1F 099323 37 10 37 00 15 _23d2 $0037, $0015 099328 40 PUSH.6 $00 099329 94 34 WRITE.B $34 09932B 40 PUSH.6 $00 09932C 94 35 WRITE.B $35 09932E 40 PUSH.6 $00 09932F 36 10 38 _2362 $0038 ; A0 = $004000; (A0) = A6 + $0 099332 84 36 READ.B $36 099334 38 00 C5 BLS.B $00C5 ; => $0993FC 099337 84 38 READ.B $38 099339 E0 47 6B READ.B $476B 09933C 94 37 WRITE.B $37 09933E 84 37 READ.B $37 099340 E0 49 11 READ.B $4911 099343 42 PUSH.6 $02 099344 2C AND.L 099345 42 PUSH.6 $02 099346 2B NEQ.L 099347 84 37 READ.B $37 099349 E0 40 09 READ.B $4009 09934C E0 02 29 READ.B $0229 09934F 40 PUSH.6 $00 099350 2A EQ.L 099351 2C AND.L 099352 84 37 READ.B $37 099354 E0 4B 7D READ.B $4B7D 099357 48 PUSH.6 $08 099358 2C AND.L 099359 48 PUSH.6 $08 09935A 2A EQ.L 09935B 2C AND.L 09935C 84 37 READ.B $37 09935E E0 69 3F READ.B $693F 099361 2E NOT.L 099362 2C AND.L 099363 18 92 BRZ $092 ; => $0993F7 099365 84 00 READ.B $00 099367 41 PUSH.6 $01 099368 2C AND.L 099369 18 36 BRZ $036 ; => $0993A1 09936B 40 PUSH.6 $00 09936C 4A PUSH.6 $0A 09936D 29 MUL.L 09936E 84 37 READ.B $37 099370 27 ADD.L 099371 E0 63 A1 READ.B $63A1 099374 40 PUSH.6 $00 099375 4A PUSH.6 $0A 099376 29 MUL.L 099377 84 37 READ.B $37 099379 27 ADD.L 09937A E0 67 29 READ.B $6729 09937D 48 PUSH.6 $08 09937E 2C AND.L 09937F 2C AND.L 099380 40 PUSH.6 $00 099381 4A PUSH.6 $0A 099382 29 MUL.L 099383 84 37 READ.B $37 099385 27 ADD.L 099386 E3 64 41 READ.F $6441 099389 3E PUSH.W $0000 09938A 03 23 NEQ.F 09938C 2C AND.L 09938D 18 12 BRZ $012 ; => $0993A1 09938F 84 37 READ.B $37 099391 04 FF PUSH.10 $0FF 099393 B4 15 WRITE.B $15 099395 84 34 READ.B $34 099397 84 37 READ.B $37 099399 B4 29 WRITE.B $29 09939B 84 34 READ.B $34 09939D 41 PUSH.6 $01 09939E 27 ADD.L 09939F 94 34 WRITE.B $34 0993A1 84 00 READ.B $00 0993A3 42 PUSH.6 $02 0993A4 2C AND.L 0993A5 18 50 BRZ $050 ; => $0993F7 0993A7 41 PUSH.6 $01 0993A8 4A PUSH.6 $0A 0993A9 29 MUL.L 0993AA 84 37 READ.B $37 0993AC 27 ADD.L 0993AD E0 63 A1 READ.B $63A1 0993B0 41 PUSH.6 $01 0993B1 4A PUSH.6 $0A 0993B2 29 MUL.L 0993B3 84 37 READ.B $37 0993B5 27 ADD.L 0993B6 E0 67 29 READ.B $6729 0993B9 48 PUSH.6 $08 0993BA 2C AND.L 0993BB 48 PUSH.6 $08 0993BC 2A EQ.L 0993BD 2C AND.L 0993BE 40 PUSH.6 $00 0993BF 4A PUSH.6 $0A 0993C0 29 MUL.L 0993C1 84 37 READ.B $37 0993C3 27 ADD.L 0993C4 E0 67 15 READ.B $6715 0993C7 42 PUSH.6 $02 0993C8 2C AND.L 0993C9 42 PUSH.6 $02 0993CA 2B NEQ.L 0993CB 2C AND.L 0993CC 40 PUSH.6 $00 0993CD 4A PUSH.6 $0A 0993CE 29 MUL.L 0993CF 84 37 READ.B $37 0993D1 27 ADD.L 0993D2 E0 63 A1 READ.B $63A1 0993D5 2C AND.L 0993D6 41 PUSH.6 $01 0993D7 4A PUSH.6 $0A 0993D8 29 MUL.L 0993D9 84 37 READ.B $37 0993DB 27 ADD.L 0993DC E3 64 41 READ.F $6441 0993DF 3E PUSH.W $0000 0993E0 03 23 NEQ.F 0993E2 2C AND.L 0993E3 18 12 BRZ $012 ; => $0993F7 0993E5 84 37 READ.B $37 0993E7 04 FF PUSH.10 $0FF 0993E9 B4 1F WRITE.B $1F 0993EB 84 35 READ.B $35 0993ED 84 37 READ.B $37 0993EF B4 33 WRITE.B $33 0993F1 84 35 READ.B $35 0993F3 41 PUSH.6 $01 0993F4 27 ADD.L 0993F5 94 35 WRITE.B $35 0993F7 37 10 38 00 CA _23d2 $0038, $00CA 0993FC 09 00 8B 00 50 00 ?_$09 $008B, $0050, $0 099402 09 00 DB 00 50 00 ?_$09 $00DB, $0050, $0 099408 09 01 2B 00 50 00 ?_$09 $012B, $0050, $0 09940E 30 02 95 BSR.68K $0295 ; => $09917C 099411 84 00 READ.B $00 099413 41 PUSH.6 $01 099414 2C AND.L 099415 84 34 READ.B $34 099417 44 PUSH.6 $04 099418 03 27 LTE.L 09941A 84 39 READ.B $39 09941C 84 34 READ.B $34 09941E 41 PUSH.6 $01 09941F 03 27 LTE.L 099421 2C AND.L 099422 2D OR.L 099423 2C AND.L 099424 18 D0 BRZ $0D0 ; => $0994F6 099426 84 3A READ.B $3A 099428 18 18 BRZ $018 ; => $099442 09942A 09 00 15 00 0A ?_$09 $0015, $000A 09942F 0C 47 75 00 0A ?_$0C $4775, $000A 099434 44 PUSH.6 $04 099435 C7 02 43 00 READ.F $0243 099439 09 00 29 00 0A 00 ?_$09 $0029, $000A, $0 09943F 30 0F F2 BSR.68K $0FF2 ; => $098450 => $093C22 099442 C7 02 43 READ.F $0243 099445 3B 40 2E 00 00 00 00 00 00 PUSH.F $402E000000000000 ; float = 15.000000 09944E 03 21 LT.F 099450 84 39 READ.B $39 099452 2D OR.L 099453 18 A1 BRZ $0A1 ; => $0994F6 099455 40 PUSH.6 $00 099456 09 01 7B 00 50 00 ?_$09 $017B, $0050, $0 09945C 09 01 CB 00 50 00 ?_$09 $01CB, $0050, $0 099462 09 02 1B 00 50 00 ?_$09 $021B, $0050, $0 099468 30 02 C5 BSR.68K $02C5 ; => $0991A6 09946B 40 PUSH.6 $00 09946C 84 34 READ.B $34 09946E 84 39 READ.B $39 099470 C7 02 43 READ.F $0243 099473 09 00 29 00 0A ?_$09 $0029, $000A 099478 09 00 8B 00 50 ?_$09 $008B, $0050 09947D 09 00 DB 00 50 ?_$09 $00DB, $0050 099482 09 01 2B 00 50 ?_$09 $012B, $0050 099487 09 01 7B 00 50 ?_$09 $017B, $0050 09948C 09 01 CB 00 50 ?_$09 $01CB, $0050 099491 09 02 1B 00 50 ?_$09 $021B, $0050 099496 C7 02 23 00 READ.F $0223 09949A C7 02 2B 00 READ.F $022B 09949E C7 02 33 00 READ.F $0233 0994A2 C7 02 3B 00 READ.F $023B 0994A6 30 09 11 BSR.68K $0911 ; => $098B98 0994A9 18 4B BRZ $04B ; => $0994F6 0994AB 40 PUSH.6 $00 0994AC 36 10 38 _2362 $0038 ; A0 = $004000; (A0) = A6 + $0 0994AF 84 36 READ.B $36 0994B1 38 00 42 BLS.B $0042 ; => $0994F6 0994B4 84 38 READ.B $38 0994B6 A4 0B READ.B $0B 0994B8 41 PUSH.6 $01 0994B9 2A EQ.L 0994BA 18 35 BRZ $035 ; => $0994F1 0994BC 40 PUSH.6 $00 0994BD 84 39 READ.B $39 0994BF 84 38 READ.B $38 0994C1 E0 47 6B READ.B $476B 0994C4 09 00 8B 00 50 ?_$09 $008B, $0050 0994C9 09 00 DB 00 50 ?_$09 $00DB, $0050 0994CE 09 01 2B 00 50 ?_$09 $012B, $0050 0994D3 09 01 7B 00 50 ?_$09 $017B, $0050 0994D8 09 01 CB 00 50 ?_$09 $01CB, $0050 0994DD 09 02 1B 00 50 ?_$09 $021B, $0050 0994E2 C7 02 23 READ.F $0223 0994E5 C7 02 2B READ.F $022B 0994E8 C7 02 33 READ.F $0233 0994EB C7 02 3B READ.F $023B 0994EE 30 0E 3F BSR.68K $0E3F ; => $0986B2 0994F1 37 10 38 00 47 _23d2 $0038, $0047 0994F6 84 00 READ.B $00 0994F8 42 PUSH.6 $02 0994F9 2C AND.L 0994FA 84 35 READ.B $35 0994FC 44 PUSH.6 $04 0994FD 03 27 LTE.L 0994FF 84 39 READ.B $39 099501 84 35 READ.B $35 099503 41 PUSH.6 $01 099504 03 27 LTE.L 099506 2C AND.L 099507 2D OR.L 099508 2C AND.L 099509 18 E6 BRZ $0E6 ; => $0995F1 09950B 84 3A READ.B $3A 09950D 18 18 BRZ $018 ; => $099527 09950F 09 00 1F 00 0A ?_$09 $001F, $000A 099514 0C 47 75 00 0A ?_$0C $4775, $000A 099519 44 PUSH.6 $04 09951A C7 02 43 00 READ.F $0243 09951E 09 00 33 00 0A 00 ?_$09 $0033, $000A, $0 099524 30 10 D7 BSR.68K $10D7 ; => $098450 => $093C22 099527 C7 02 43 READ.F $0243 09952A 3B 40 2E 00 00 00 00 00 00 PUSH.F $402E000000000000 ; float = 15.000000 099533 03 21 LT.F 099535 84 39 READ.B $39 099537 2D OR.L 099538 18 B7 BRZ $0B7 ; => $0995F1 09953A 41 PUSH.6 $01 09953B 09 01 7B 00 50 00 ?_$09 $017B, $0050, $0 099541 09 01 CB 00 50 00 ?_$09 $01CB, $0050, $0 099547 09 02 1B 00 50 00 ?_$09 $021B, $0050, $0 09954D 30 03 AA BSR.68K $03AA ; => $0991A6 099550 41 PUSH.6 $01 099551 84 35 READ.B $35 099553 84 39 READ.B $39 099555 C7 02 43 READ.F $0243 099558 09 00 33 00 0A ?_$09 $0033, $000A 09955D 09 00 8B 00 50 ?_$09 $008B, $0050 099562 09 00 DB 00 50 ?_$09 $00DB, $0050 099567 09 01 2B 00 50 ?_$09 $012B, $0050 09956C 09 01 7B 00 50 ?_$09 $017B, $0050 099571 09 01 CB 00 50 ?_$09 $01CB, $0050 099576 09 02 1B 00 50 ?_$09 $021B, $0050 09957B C7 02 23 00 READ.F $0223 09957F C7 02 2B 00 READ.F $022B 099583 C7 02 33 00 READ.F $0233 099587 C7 02 3B 00 READ.F $023B 09958B 30 09 F6 BSR.68K $09F6 ; => $098B98 09958E 18 61 BRZ $061 ; => $0995F1 099590 40 PUSH.6 $00 099591 09 01 7B 00 50 00 ?_$09 $017B, $0050, $0 099597 09 01 CB 00 50 00 ?_$09 $01CB, $0050, $0 09959D 09 02 1B 00 50 00 ?_$09 $021B, $0050, $0 0995A3 30 04 00 BSR.68K $0400 ; => $0991A6 0995A6 40 PUSH.6 $00 0995A7 36 10 38 _2362 $0038 ; A0 = $004000; (A0) = A6 + $0 0995AA 84 36 READ.B $36 0995AC 38 00 42 BLS.B $0042 ; => $0995F1 0995AF 84 38 READ.B $38 0995B1 A4 0B READ.B $0B 0995B3 42 PUSH.6 $02 0995B4 2A EQ.L 0995B5 18 35 BRZ $035 ; => $0995EC 0995B7 41 PUSH.6 $01 0995B8 84 39 READ.B $39 0995BA 84 38 READ.B $38 0995BC E0 47 6B READ.B $476B 0995BF 09 00 8B 00 50 ?_$09 $008B, $0050 0995C4 09 00 DB 00 50 ?_$09 $00DB, $0050 0995C9 09 01 2B 00 50 ?_$09 $012B, $0050 0995CE 09 01 7B 00 50 ?_$09 $017B, $0050 0995D3 09 01 CB 00 50 ?_$09 $01CB, $0050 0995D8 09 02 1B 00 50 ?_$09 $021B, $0050 0995DD C7 02 23 READ.F $0223 0995E0 C7 02 2B READ.F $022B 0995E3 C7 02 33 READ.F $0233 0995E6 C7 02 3B READ.F $023B 0995E9 30 0F 3A BSR.68K $0F3A ; => $0986B2 0995EC 37 10 38 00 47 _23d2 $0038, $0047 0995F1 C0 29 5D READ.B $295D 0995F4 18 07 BRZ $007 ; => $0995FD 0995F6 84 00 READ.B $00 0995F8 18 03 BRZ $003 ; => $0995FD 0995FA 30 11 8F BSR.68K $118F ; => $09846E => $0A05A4 (NATIVE) 0995FD 30 11 1E BSR.68K $111E ; => $0984E2 099600 30 11 8F BSR.68K $118F ; => $098474 => $09CEA8 099603 03 2E 02 44 ADDSP.W $0244 099607 34 RETURN ; ---------------- End Function $0991F6 ---------------- ; ---------------- Begin 2144 Function $099614 ---------------- ; A0 = $004004; (A0) = SP + $1F ; called from $0923B4:$0923C3 ; called from $09242A:$09245F ; called from $09590A:$09594E ; called from $0960FA:$09612C ; called from $09713E:$097152 ; called from $099642:$099651 ; called from $0998CE:$099913 ; called from $099AE2:$099CBB ; called from $09A1BE:$09A200 ; called from $09A458:$09A4C9 ; called from $09A458:$09A56A ; called from $09A712:$09A763 ; called from $09A712:$09A78A ; called from $09A712:$09A7C8 ; called from $09A9D6:$09AA0E ; called from $09AA12:$09AA8D ; called from $09AA92:$09AAC5 ; called from $09AACA:$09AB1E ; called from $09ACF0:$09AD22 ; called from $09B596:$09B5C8 ; called from $09B5DC:$09B60E ; called from $09B68C:$09B6BE ; called from $09B944:$09B988 ; called from $09B9B8:$09BA62 ; called from $09C47C:$09C4BE ; called from $09C5B8:$09C5F7 ; called from $09C638:$09C647 ; called from $09C68C:$09C6D8 ; called from $09C6DC:$09C70E ; called from $09C712:$09C744 ; called from $09EFF0:$09F0C1 ; called from $0A408A:$0A4108 ; called from $0A45F2:$0A4654 ; called from $0A4FCC:$0A5002 ; called from $0A4FCC:$0A5079 ; called from $0A4FCC:$0A50D4 ; called from $0AAD48:$0AADAF ; called from $0AAD48:$0AADC3 ; called from $0AAE48:$0AAE86 ; called from $0AAE48:$0AAEA4 ; called from $0AAEC4:$0AAF54 ; called from $0AC94C:$0AC973 ; addr bytes opcode operands comment 09961B 60 PUSH.6 $20 09961C 90 26 WRITE.B $26 09961E 86 03 READ.L $03 099620 90 2B WRITE.B $2B 099622 86 07 READ.L $07 099624 90 2C WRITE.B $2C 099626 86 0B READ.L $0B 099628 90 2D WRITE.B $2D 09962A 86 0F READ.L $0F 09962C 90 2E WRITE.B $2E 09962E 86 13 READ.L $13 099630 90 27 WRITE.B $27 099632 86 17 READ.L $17 099634 90 28 WRITE.B $28 099636 86 1B READ.L $1B 099638 90 29 WRITE.B $29 09963A 86 1F READ.L $1F 09963C 90 2A WRITE.B $2A 09963E 32 20 ADDSP.B $20 099640 34 RETURN ; ---------------- End Function $099614 ---------------- ; ---------------- Begin 2144 Function $099642 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0910DA:$0910E7 ; called from $0918EE:$0918FB ; called from $0918EE:$091925 ; called from $0920C0:$0920C9 ; called from $0921BC:$0921C5 ; called from $092282:$09228B ; called from $092378:$09237F ; called from $09530E:$095369 ; called from $095376:$09537D ; called from $09548E:$095498 ; called from $095608:$09560F ; called from $0957BE:$0957C5 ; called from $09587C:$0958C3 ; called from $096194:$0961AC ; called from $09807A:$098087 ; called from $099918:$09991F ; called from $09A094:$09A0E9 ; called from $09A204:$09A212 ; called from $09A274:$09A27B ; called from $09A2B8:$09A2C6 ; called from $09A328:$09A32F ; called from $09A458:$09A471 ; called from $09A458:$09A528 ; called from $09A458:$09A57C ; called from $09A5EA:$09A5F4 ; called from $09A6B6:$09A6BD ; called from $09A6E4:$09A6EB ; called from $09A7F0:$09A7F7 ; called from $09A828:$09A831 ; called from $09AB22:$09AB2B ; called from $09B622:$09B629 ; called from $09B650:$09B657 ; called from $09BE9A:$09C02D ; called from $09C0A2:$09C150 ; called from $09C4C2:$09C4CB ; called from $09C544:$09C54B ; called from $09C5FC:$09C603 ; called from $09C748:$09C751 ; called from $09CA60:$09CAA1 ; called from $09D5C2:$09D5E8 ; called from $09D650:$09D6E3 ; called from $09E486:$09E496 ; called from $09E486:$09E4A4 ; called from $09E486:$09E4B2 ; called from $09EE20:$09EE2D ; called from $0A0AC0:$0A0AC7 ; called from $0A4112:$0A411C ; called from $0A4530:$0A4537 ; called from $0A4780:$0A4794 ; called from $0A4780:$0A47A5 ; called from $0A526C:$0A5298 ; called from $0A538C:$0A539A ; called from $0A9BA6:$0A9BC2 ; called from $0A9BA6:$0A9BF0 ; called from $0A9BA6:$0A9BFF ; called from $0AA0B8:$0AA0C2 ; called from $0AC406:$0AC40F ; called from $0AC94C:$0AC9C1 ; called from $0ACC7C:$0ACC83 ; called from $0ACEB6:$0ACEF5 ; called from $0AEC48:$0AEC5F ; called from $0AED10:$0AED4F ; addr bytes opcode operands comment 099649 40 PUSH.6 $00 09964A 40 PUSH.6 $00 09964B 40 PUSH.6 $00 09964C 40 PUSH.6 $00 09964D 40 PUSH.6 $00 09964E 40 PUSH.6 $00 09964F 40 PUSH.6 $00 099650 40 PUSH.6 $00 099651 30 00 40 BSR.68K $0040 ; => $099614 099654 60 PUSH.6 $20 099655 90 26 WRITE.B $26 099657 34 RETURN ; ---------------- End Function $099642 ---------------- ; ---------------- Begin 2144 Function $099658 ---------------- ; A0 = $004008; (A0) = SP + $7 ; called from $0996BA:$099717 ; called from $0996BA:$09971D ; called from $0996BA:$099723 ; called from $0996BA:$099729 ; called from $0996BA:$09972F ; called from $0996BA:$099735 ; called from $0996BA:$09973B ; called from $0996BA:$099741 ; addr bytes opcode operands comment 09965F 31 02 SUBSP.B $02 099661 8A 03 READ.L $03 099663 18 52 BRZ $052 ; => $0996B7 099665 8A 03 READ.L $03 099667 04 F0 PUSH.10 $0F0 099669 2C AND.L 09966A 35 SWITCH 09966B 10 06 00 CASE $00 ; SWITCH $09966A 09966E 40 PUSH.6 $00 09966F 98 09 WRITE.B $09 099671 10 15 BR $015 ; => $099688 099673 10 07 10 CASE $10 ; SWITCH $09966A 099676 04 5F PUSH.10 $05F 099678 98 09 WRITE.B $09 09967A 10 0C BR $00C ; => $099688 09967C 10 06 20 CASE $20 ; SWITCH $09966A 09967F 40 PUSH.6 $00 099680 98 09 WRITE.B $09 099682 10 04 BR $004 ; => $099688 099684 00 DEFAULT ; SWITCH $09966A 099685 6A PUSH.6 $2A 099686 98 09 WRITE.B $09 099688 8A 07 READ.L $07 09968A 43 PUSH.6 $03 09968B 27 ADD.L 09968C 36 20 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 09968F 8A 07 READ.L $07 099691 3A 00 23 BGT.B $0023 ; => $0996B7 099694 8A 03 READ.L $03 099696 41 PUSH.6 $01 099697 2C AND.L 099698 18 11 BRZ $011 ; => $0996AB 09969A 88 09 READ.B $09 09969C 18 08 BRZ $008 ; => $0996A6 09969E 88 08 READ.B $08 0996A0 88 09 READ.B $09 0996A2 B0 1F WRITE.B $1F 0996A4 10 05 BR $005 ; => $0996AB 0996A6 88 08 READ.B $08 0996A8 30 00 9D BSR.68K $009D ; => $09960E => $097B5C 0996AB 8A 03 READ.L $03 0996AD 42 PUSH.6 $02 0996AE 03 24 DIV.L 0996B0 9A 03 WRITE.L $03 0996B2 39 20 08 00 28 _23fc $2008, $0028 0996B7 32 0A ADDSP.B $0A 0996B9 34 RETURN ; ---------------- End Function $099658 ---------------- ; ---------------- Begin 2144 Function $0996BA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0976BA:$097704 ; called from $0976BA:$09773E ; called from $0976BA:$09774F ; called from $0976BA:$097765 ; called from $0976BA:$097799 ; called from $0976BA:$0977A6 ; addr bytes opcode operands comment 0996C1 31 22 SUBSP.B $22 0996C3 08 00 1F 00 20 ?_$08 $001F, $0020 0996C8 0D 00 1F 00 20 ?_$0D $001F, $0020 0996CD C0 4E 65 READ.B $4E65 0996D0 4A PUSH.6 $0A 0996D1 2F MOD.L 0996D2 45 PUSH.6 $05 0996D3 03 26 GT.L 0996D5 18 3D BRZ $03D ; => $099714 0996D7 80 26 READ.B $26 0996D9 5F PUSH.6 $1F 0996DA 03 28 GTE.L 0996DC 18 34 BRZ $034 ; => $099712 0996DE 80 26 READ.B $26 0996E0 A0 1F READ.B $1F 0996E2 35 SWITCH 0996E3 10 07 4E CASE $4E ; SWITCH $0996E2 0996E6 04 53 PUSH.10 $053 0996E8 94 20 WRITE.B $20 0996EA 10 20 BR $020 ; => $09970C 0996EC 10 07 57 CASE $57 ; SWITCH $0996E2 0996EF 04 45 PUSH.10 $045 0996F1 94 20 WRITE.B $20 0996F3 10 17 BR $017 ; => $09970C 0996F5 10 07 53 CASE $53 ; SWITCH $0996E2 0996F8 04 4E PUSH.10 $04E 0996FA 94 20 WRITE.B $20 0996FC 10 0E BR $00E ; => $09970C 0996FE 10 07 45 CASE $45 ; SWITCH $0996E2 099701 04 57 PUSH.10 $057 099703 94 20 WRITE.B $20 099705 10 05 BR $005 ; => $09970C 099707 00 DEFAULT ; SWITCH $0996E2 099708 04 5F PUSH.10 $05F 09970A 94 20 WRITE.B $20 09970C 80 26 READ.B $26 09970E 84 20 READ.B $20 099710 B0 1F WRITE.B $1F 099712 10 30 BR $030 ; => $099744 099714 80 2B READ.B $2B 099716 50 PUSH.6 $10 099717 30 00 C2 BSR.68K $00C2 ; => $099658 09971A 80 2C READ.B $2C 09971C 54 PUSH.6 $14 09971D 30 00 C8 BSR.68K $00C8 ; => $099658 099720 80 2D READ.B $2D 099722 58 PUSH.6 $18 099723 30 00 CE BSR.68K $00CE ; => $099658 099726 80 2E READ.B $2E 099728 5C PUSH.6 $1C 099729 30 00 D4 BSR.68K $00D4 ; => $099658 09972C 80 27 READ.B $27 09972E 40 PUSH.6 $00 09972F 30 00 DA BSR.68K $00DA ; => $099658 099732 80 28 READ.B $28 099734 44 PUSH.6 $04 099735 30 00 E0 BSR.68K $00E0 ; => $099658 099738 80 29 READ.B $29 09973A 48 PUSH.6 $08 09973B 30 00 E6 BSR.68K $00E6 ; => $099658 09973E 80 2A READ.B $2A 099740 4C PUSH.6 $0C 099741 30 00 EC BSR.68K $00EC ; => $099658 099744 30 01 3F BSR.68K $013F ; => $099608 => $0034C8 (SETSEGMENTS) (NATIVE) 099747 09 00 1F 00 20 ?_$09 $001F, $0020 09974C 0C 00 1F 00 20 ?_$0C $001F, $0020 099751 41 PUSH.6 $01 099752 D0 4E 64 WRITE.B $4E64 099755 32 22 ADDSP.B $22 099757 34 RETURN ; ---------------- End Function $0996BA ---------------- ; ---------------- Begin 2144 Function $0997C4 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $099D5C:$099D9C ; called from $09A458:$09A479 ; called from $09A458:$09A580 ; called from $09BE9A:$09C07E ; called from $09BE9A:$09C08B ; addr bytes opcode operands comment 0997CB 86 03 READ.L $03 0997CD 35 SWITCH 0997CE 10 12 00 CASE $00 ; SWITCH $0997CD 0997D1 C3 29 1B READ.F $291B 0997D4 30 00 73 BSR.68K $0073 ; => $099764 => $097C46 0997D7 C0 35 B8 READ.B $35B8 0997DA 18 04 BRZ $004 ; => $0997E0 0997DC 04 58 PUSH.10 $058 0997DE 90 1C WRITE.B $1C 0997E0 10 1A BR $01A ; => $0997FC 0997E2 10 09 01 CASE $01 ; SWITCH $0997CD 0997E5 C3 29 3F READ.F $293F 0997E8 30 00 87 BSR.68K $0087 ; => $099764 => $097C46 0997EB 10 0F BR $00F ; => $0997FC 0997ED 10 0C 02 CASE $02 ; SWITCH $0997CD 0997F0 C0 32 D4 READ.B $32D4 0997F3 E3 2B 57 READ.F $2B57 0997F6 30 00 95 BSR.68K $0095 ; => $099764 => $097C46 0997F9 10 01 BR $001 ; => $0997FC 0997FB 00 DEFAULT ; SWITCH $0997CD 0997FC 32 04 ADDSP.B $04 0997FE 34 RETURN ; ---------------- End Function $0997C4 ---------------- ; ---------------- Begin 2144 Function $099800 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $099D5C:$099D92 ; called from $099D5C:$099DA1 ; called from $09A458:$09A47D ; called from $09A458:$09A584 ; called from $09BE9A:$09C082 ; called from $09BE9A:$09C08F ; addr bytes opcode operands comment 099807 86 03 READ.L $03 099809 35 SWITCH 09980A 10 12 00 CASE $00 ; SWITCH $099809 09980D C3 29 23 READ.F $2923 099810 30 00 A9 BSR.68K $00A9 ; => $09976A => $097C9E 099813 C0 35 B8 READ.B $35B8 099816 18 04 BRZ $004 ; => $09981C 099818 04 58 PUSH.10 $058 09981A 90 0C WRITE.B $0C 09981C 10 1A BR $01A ; => $099838 09981E 10 09 01 CASE $01 ; SWITCH $099809 099821 C3 29 47 READ.F $2947 099824 30 00 BD BSR.68K $00BD ; => $09976A => $097C9E 099827 10 0F BR $00F ; => $099838 099829 10 0C 02 CASE $02 ; SWITCH $099809 09982C C0 32 D4 READ.B $32D4 09982F E3 2C 47 READ.F $2C47 099832 30 00 CB BSR.68K $00CB ; => $09976A => $097C9E 099835 10 01 BR $001 ; => $099838 099837 00 DEFAULT ; SWITCH $099809 099838 80 0B READ.B $0B 09983A 60 PUSH.6 $20 09983B 2A EQ.L 09983C 18 03 BRZ $003 ; => $099841 09983E 70 PUSH.6 $30 09983F 90 0B WRITE.B $0B 099841 32 04 ADDSP.B $04 099843 34 RETURN ; ---------------- End Function $099800 ---------------- ; ---------------- Begin 2144 Function $099844 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $099AE2:$099B11 ; called from $099D5C:$099FAC ; called from $09AD6C:$09AD8F ; addr bytes opcode operands comment 09984B 86 03 READ.L $03 09984D 35 SWITCH 09984E 10 4D 00 CASE $00 ; SWITCH $09984D 099851 C3 29 2B READ.F $292B 099854 30 00 E7 BSR.68K $00E7 ; => $099770 => $097CE0 099857 C0 33 D6 READ.B $33D6 09985A 2E NOT.L 09985B 18 3E BRZ $03E ; => $09989B 09985D 50 PUSH.6 $10 09985E 3F 0E 46 52 51 20 20 20 20 DISP "FRQ E-13" 20 20 20 45 2D 31 33 09986E 55 PUSH.6 $15 09986F 45 PUSH.6 $05 099870 C3 29 35 READ.F $2935 099873 30 00 E2 BSR.68K $00E2 ; => $099794 => $002B7E (NATIVE) 099876 3B 42 A2 30 9C E5 40 00 00 PUSH.F $42A2309CE5400000 ; float = 10000000000000.000000 09987F 22 MUL.F 099880 3B 3F A9 99 99 99 99 99 9A PUSH.F $3FA999999999999A ; float = 0.050000 099889 20 ADD.F 09988A 30 00 FF BSR.68K $00FF ; => $09978E => $097AD2 09988D C3 29 35 READ.F $2935 099890 3E PUSH.W $0000 099891 03 21 LT.F 099893 18 03 BRZ $003 ; => $099898 099895 6D PUSH.6 $2D 099896 10 01 BR $001 ; => $099899 099898 6B PUSH.6 $2B 099899 90 0B WRITE.B $0B 09989B 10 2D BR $02D ; => $0998CA 09989D 10 1C 01 CASE $01 ; SWITCH $09984D 0998A0 C3 29 4F READ.F $294F 0998A3 30 01 36 BSR.68K $0136 ; => $099770 => $097CE0 0998A6 50 PUSH.6 $10 0998A7 3F 10 57 41 52 4E 49 4E 47 DISP "WARNING---OFFPOS" 2D 2D 2D 4F 46 46 50 4F 53 0998B9 10 0F BR $00F ; => $0998CA 0998BB 10 0C 02 CASE $02 ; SWITCH $09984D 0998BE C0 32 D4 READ.B $32D4 0998C1 E3 2D 37 READ.F $2D37 0998C4 30 01 57 BSR.68K $0157 ; => $099770 => $097CE0 0998C7 10 01 BR $001 ; => $0998CA 0998C9 00 DEFAULT ; SWITCH $09984D 0998CA 32 04 ADDSP.B $04 0998CC 34 RETURN ; ---------------- End Function $099844 ---------------- ; ---------------- Begin 2144 Function $0998CE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $099AE2:$099D50 ; addr bytes opcode operands comment 0998D5 40 PUSH.6 $00 0998D6 3F 10 52 45 46 20 50 4F 53 DISP "REF POS ACCURACY" 20 41 43 43 55 52 41 43 59 0998E8 50 PUSH.6 $10 0998E9 3F 10 20 48 49 47 48 20 20 DISP " HIGH APPROX " 41 50 50 52 4F 58 20 20 20 0998FB C0 32 D4 READ.B $32D4 0998FE E0 2D 55 READ.B $2D55 099901 18 05 BRZ $005 ; => $099908 099903 6A PUSH.6 $2A 099904 90 0F WRITE.B $0F 099906 10 03 BR $003 ; => $09990B 099908 6A PUSH.6 $2A 099909 90 09 WRITE.B $09 09990B 67 PUSH.6 $27 09990C 69 PUSH.6 $29 09990D 6F PUSH.6 $2F 09990E 68 PUSH.6 $28 09990F 40 PUSH.6 $00 099910 40 PUSH.6 $00 099911 40 PUSH.6 $00 099912 40 PUSH.6 $00 099913 30 01 7C BSR.68K $017C ; => $09979A => $099614 099916 34 RETURN ; ---------------- End Function $0998CE ---------------- ; ---------------- Begin 2144 Function $099918 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $099AE2:$099AF9 ; called from $099D5C:$099D73 ; addr bytes opcode operands comment 09991F 30 01 6A BSR.68K $016A ; => $0997B8 => $099642 099922 30 01 67 BSR.68K $0167 ; => $0997BE => $0034AA (CLEARSCREEN) (NATIVE) 099925 86 03 READ.L $03 099927 41 PUSH.6 $01 099928 2A EQ.L 099929 18 21 BRZ $021 ; => $09994C 09992B 40 PUSH.6 $00 09992C 3F 1C 57 41 52 4E 49 4E 47 DISP "WARNING-OFF POS UNCHANGED" 2D 4F 46 46 20 50 4F 53 20 20 20 20 55 4E 43 48 41 4E 47 45 44 09994A 10 1F BR $01F ; => $09996B 09994C 40 PUSH.6 $00 09994D 3F 1C 57 41 52 4E 49 4E 47 DISP "WARNING-REF POS UNCHANGED" 2D 52 45 46 20 50 4F 53 20 20 20 20 55 4E 43 48 41 4E 47 45 44 09996B 32 04 ADDSP.B $04 09996D 34 RETURN ; ---------------- End Function $099918 ---------------- ; ---------------- Begin 2144 Function $09996E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $099FB8:$099FD9 ; addr bytes opcode operands comment 099975 80 20 READ.B $20 099977 35 SWITCH 099978 10 06 02 CASE $02 ; SWITCH $099977 09997B 40 PUSH.6 $00 09997C 90 21 WRITE.B $21 09997E 10 8B BR $08B ; => $099A0B 099980 30 88 10 90 04 CASE $10, $90, $04 ; SWITCH $099977 099985 80 20 READ.B $20 099987 50 PUSH.6 $10 099988 2A EQ.L 099989 18 05 BRZ $005 ; => $099990 09998B 04 FF PUSH.10 $0FF 09998D D0 29 36 WRITE.B $2936 099990 80 20 READ.B $20 099992 04 90 PUSH.10 $090 099994 2A EQ.L 099995 18 04 BRZ $004 ; => $09999B 099997 40 PUSH.6 $00 099998 D0 29 36 WRITE.B $2936 09999B C0 33 D6 READ.B $33D6 09999E 18 35 BRZ $035 ; => $0999D5 0999A0 30 01 E5 BSR.68K $01E5 ; => $0997BE => $0034AA (CLEARSCREEN) (NATIVE) 0999A3 C0 29 36 READ.B $2936 0999A6 18 11 BRZ $011 ; => $0999B9 0999A8 40 PUSH.6 $00 0999A9 3F 0C 48 45 49 47 48 54 20 DISP "HEIGHT FIXED" 46 49 58 45 44 0999B7 10 13 BR $013 ; => $0999CC 0999B9 40 PUSH.6 $00 0999BA 3F 10 48 45 49 47 48 54 20 DISP "HEIGHT NOT FIXED" 4E 4F 54 20 46 49 58 45 44 0999CC 40 PUSH.6 $00 0999CD D0 29 37 WRITE.B $2937 0999D0 4C PUSH.6 $0C 0999D1 90 21 WRITE.B $21 0999D3 10 33 BR $033 ; => $099A08 0999D5 43 PUSH.6 $03 0999D6 90 22 WRITE.B $22 0999D8 40 PUSH.6 $00 0999D9 3F 20 20 46 49 58 45 44 20 DISP " FIXED FREQUENCY YES NO " 46 52 45 51 55 45 4E 43 59 20 59 45 53 20 20 20 20 20 4E 4F 20 20 20 20 20 0999FB C0 29 37 READ.B $2937 0999FE 18 05 BRZ $005 ; => $099A05 099A00 6A PUSH.6 $2A 099A01 90 0B WRITE.B $0B 099A03 10 03 BR $003 ; => $099A08 099A05 6A PUSH.6 $2A 099A06 90 04 WRITE.B $04 099A08 10 01 BR $001 ; => $099A0B 099A0A 00 DEFAULT ; SWITCH $099977 099A0B 34 RETURN ; ---------------- End Function $09996E ---------------- ; ---------------- Begin 2144 Function $099A0C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $099FB8:$099FE1 ; addr bytes opcode operands comment 099A13 80 20 READ.B $20 099A15 35 SWITCH 099A16 10 06 02 CASE $02 ; SWITCH $099A15 099A19 40 PUSH.6 $00 099A1A 90 21 WRITE.B $21 099A1C 10 7B BR $07B ; => $099A99 099A1E 30 78 10 90 04 CASE $10, $90, $04 ; SWITCH $099A15 099A23 80 20 READ.B $20 099A25 50 PUSH.6 $10 099A26 2A EQ.L 099A27 18 05 BRZ $005 ; => $099A2E 099A29 04 FF PUSH.10 $0FF 099A2B D0 29 37 WRITE.B $2937 099A2E 80 20 READ.B $20 099A30 04 90 PUSH.10 $090 099A32 2A EQ.L 099A33 18 04 BRZ $004 ; => $099A39 099A35 40 PUSH.6 $00 099A36 D0 29 37 WRITE.B $2937 099A39 C0 29 36 READ.B $2936 099A3C 18 15 BRZ $015 ; => $099A53 099A3E 40 PUSH.6 $00 099A3F 3F 10 48 45 49 47 48 54 20 DISP "HEIGHT FIXED " 46 49 58 45 44 20 20 20 20 099A51 10 13 BR $013 ; => $099A66 099A53 40 PUSH.6 $00 099A54 3F 10 48 45 49 47 48 54 20 DISP "HEIGHT NOT FIXED" 4E 4F 54 20 46 49 58 45 44 099A66 C0 29 37 READ.B $2937 099A69 18 15 BRZ $015 ; => $099A80 099A6B 50 PUSH.6 $10 099A6C 3F 10 46 52 45 51 20 20 20 DISP "FREQ FIXED " 46 49 58 45 44 20 20 20 20 099A7E 10 13 BR $013 ; => $099A93 099A80 50 PUSH.6 $10 099A81 3F 10 46 52 45 51 20 20 20 DISP "FREQ NOT FIXED" 4E 4F 54 20 46 49 58 45 44 099A93 4C PUSH.6 $0C 099A94 90 21 WRITE.B $21 099A96 10 01 BR $001 ; => $099A99 099A98 00 DEFAULT ; SWITCH $099A15 099A99 34 RETURN ; ---------------- End Function $099A0C ---------------- ; ---------------- Begin 2144 Function $099A9A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $099FB8:$099FE9 ; addr bytes opcode operands comment 099AA1 80 20 READ.B $20 099AA3 35 SWITCH 099AA4 10 09 02 CASE $02 ; SWITCH $099AA3 099AA7 40 PUSH.6 $00 099AA8 90 23 WRITE.B $23 099AAA 30 02 FB BSR.68K $02FB ; => $0997B2 => $09B944 099AAD 10 32 BR $032 ; => $099AE1 099AAF 30 2F 10 90 04 CASE $10, $90, $04 ; SWITCH $099AA3 099AB4 80 20 READ.B $20 099AB6 50 PUSH.6 $10 099AB7 2A EQ.L 099AB8 18 08 BRZ $008 ; => $099AC2 099ABA C0 32 D4 READ.B $32D4 099ABD 04 FF PUSH.10 $0FF 099ABF F0 2D 55 WRITE.B $2D55 099AC2 80 20 READ.B $20 099AC4 04 90 PUSH.10 $090 099AC6 2A EQ.L 099AC7 18 07 BRZ $007 ; => $099AD0 099AC9 C0 32 D4 READ.B $32D4 099ACC 40 PUSH.6 $00 099ACD F0 2D 55 WRITE.B $2D55 099AD0 42 PUSH.6 $02 099AD1 90 23 WRITE.B $23 099AD3 04 FF PUSH.10 $0FF 099AD5 D0 32 D5 WRITE.B $32D5 099AD8 30 03 2F BSR.68K $032F ; => $0997AC => $09BBA2 099ADB 30 03 3E BSR.68K $033E ; => $0997A0 => $09B9B8 099ADE 10 01 BR $001 ; => $099AE1 099AE0 00 DEFAULT ; SWITCH $099AA3 099AE1 34 RETURN ; ---------------- End Function $099A9A ---------------- ; ---------------- Begin 2144 Function $099AE2 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $099FB8:$099FD1 ; addr bytes opcode operands comment 099AE9 31 02 SUBSP.B $02 099AEB 80 20 READ.B $20 099AED 35 SWITCH 099AEE 10 26 02 CASE $02 ; SWITCH $099AED 099AF1 80 26 READ.B $26 099AF3 44 PUSH.6 $04 099AF4 2A EQ.L 099AF5 18 15 BRZ $015 ; => $099B0C 099AF7 86 03 READ.L $03 099AF9 30 01 E4 BSR.68K $01E4 ; => $099918 099AFC 86 03 READ.L $03 099AFE 42 PUSH.6 $02 099AFF 2A EQ.L 099B00 18 05 BRZ $005 ; => $099B07 099B02 54 PUSH.6 $14 099B03 90 23 WRITE.B $23 099B05 10 03 BR $003 ; => $099B0A 099B07 4C PUSH.6 $0C 099B08 90 21 WRITE.B $21 099B0A 10 08 BR $008 ; => $099B14 099B0C 44 PUSH.6 $04 099B0D 90 26 WRITE.B $26 099B0F 86 03 READ.L $03 099B11 30 02 D0 BSR.68K $02D0 ; => $099844 099B14 10 B9 BR $0B9 ; => $099BCF 099B16 10 06 04 CASE $04 ; SWITCH $099AED 099B19 61 PUSH.6 $21 099B1A 90 26 WRITE.B $26 099B1C 10 B1 BR $0B1 ; => $099BCF 099B1E 10 03 90 CASE $90 ; SWITCH $099AED 099B21 10 AC BR $0AC ; => $099BCF 099B23 10 30 10 CASE $10 ; SWITCH $099AED 099B26 80 26 READ.B $26 099B28 35 SWITCH 099B29 10 03 04 CASE $04 ; SWITCH $099B28 099B2C 10 25 BR $025 ; => $099B53 099B2E 10 06 14 CASE $14 ; SWITCH $099B28 099B31 49 PUSH.6 $09 099B32 90 26 WRITE.B $26 099B34 10 1D BR $01D ; => $099B53 099B36 10 14 20 CASE $20 ; SWITCH $099B28 099B39 86 03 READ.L $03 099B3B 40 PUSH.6 $00 099B3C 03 25 LT.L 099B3E C0 33 D6 READ.B $33D6 099B41 2D OR.L 099B42 18 03 BRZ $003 ; => $099B47 099B44 49 PUSH.6 $09 099B45 10 01 BR $001 ; => $099B48 099B47 59 PUSH.6 $19 099B48 90 26 WRITE.B $26 099B4A 10 07 BR $007 ; => $099B53 099B4C 00 DEFAULT ; SWITCH $099B28 099B4D 80 26 READ.B $26 099B4F 41 PUSH.6 $01 099B50 28 SUB.L 099B51 90 26 WRITE.B $26 099B53 10 7A BR $07A ; => $099BCF 099B55 20 2B 50 D0 CASE $50, $D0 ; SWITCH $099AED 099B59 86 03 READ.L $03 099B5B 40 PUSH.6 $00 099B5C 03 25 LT.L 099B5E C0 33 D6 READ.B $33D6 099B61 2D OR.L 099B62 18 0F BRZ $00F ; => $099B73 099B64 80 26 READ.B $26 099B66 49 PUSH.6 $09 099B67 03 26 GT.L 099B69 18 06 BRZ $006 ; => $099B71 099B6B 80 26 READ.B $26 099B6D 41 PUSH.6 $01 099B6E 27 ADD.L 099B6F 90 26 WRITE.B $26 099B71 10 0D BR $00D ; => $099B80 099B73 80 26 READ.B $26 099B75 59 PUSH.6 $19 099B76 03 26 GT.L 099B78 18 06 BRZ $006 ; => $099B80 099B7A 80 26 READ.B $26 099B7C 41 PUSH.6 $01 099B7D 27 ADD.L 099B7E 90 26 WRITE.B $26 099B80 10 4D BR $04D ; => $099BCF 099B82 00 DEFAULT ; SWITCH $099AED 099B83 80 26 READ.B $26 099B85 44 PUSH.6 $04 099B86 2A EQ.L 099B87 80 26 READ.B $26 099B89 54 PUSH.6 $14 099B8A 2A EQ.L 099B8B 2D OR.L 099B8C 18 35 BRZ $035 ; => $099BC3 099B8E 80 20 READ.B $20 099B90 04 42 PUSH.10 $042 099B92 2A EQ.L 099B93 18 0D BRZ $00D ; => $099BA2 099B95 80 26 READ.B $26 099B97 6B PUSH.6 $2B 099B98 B0 1F WRITE.B $1F 099B9A 80 26 READ.B $26 099B9C 41 PUSH.6 $01 099B9D 27 ADD.L 099B9E 90 26 WRITE.B $26 099BA0 10 1F BR $01F ; => $099BC1 099BA2 80 20 READ.B $20 099BA4 04 82 PUSH.10 $082 099BA6 2A EQ.L 099BA7 18 0D BRZ $00D ; => $099BB6 099BA9 80 26 READ.B $26 099BAB 6D PUSH.6 $2D 099BAC B0 1F WRITE.B $1F 099BAE 80 26 READ.B $26 099BB0 41 PUSH.6 $01 099BB1 27 ADD.L 099BB2 90 26 WRITE.B $26 099BB4 10 0B BR $00B ; => $099BC1 099BB6 80 26 READ.B $26 099BB8 41 PUSH.6 $01 099BB9 27 ADD.L 099BBA 90 26 WRITE.B $26 099BBC 30 04 67 BSR.68K $0467 ; => $099758 => $09DFB4 099BBF 94 04 WRITE.B $04 099BC1 10 0C BR $00C ; => $099BCF 099BC3 80 26 READ.B $26 099BC5 5A PUSH.6 $1A 099BC6 03 26 GT.L 099BC8 18 05 BRZ $005 ; => $099BCF 099BCA 30 04 75 BSR.68K $0475 ; => $099758 => $09DFB4 099BCD 94 04 WRITE.B $04 099BCF 80 26 READ.B $26 099BD1 35 SWITCH 099BD2 10 07 09 CASE $09 ; SWITCH $099BD1 099BD5 48 PUSH.6 $08 099BD6 30 04 57 BSR.68K $0457 ; => $099782 => $097B5C 099BD9 11 7E BR $17E ; => $099D59 099BDB 10 14 0A CASE $0A ; SWITCH $099BD1 099BDE 86 03 READ.L $03 099BE0 40 PUSH.6 $00 099BE1 03 25 LT.L 099BE3 C0 33 D6 READ.B $33D6 099BE6 2D OR.L 099BE7 18 03 BRZ $003 ; => $099BEC 099BE9 60 PUSH.6 $20 099BEA 10 01 BR $001 ; => $099BED 099BEC 54 PUSH.6 $14 099BED 90 26 WRITE.B $26 099BEF 11 68 BR $168 ; => $099D59 099BF1 10 06 1A CASE $1A ; SWITCH $099BD1 099BF4 60 PUSH.6 $20 099BF5 90 26 WRITE.B $26 099BF7 11 60 BR $160 ; => $099D59 099BF9 11 5D 21 CASE $21 ; SWITCH $099BD1 099BFC 45 PUSH.6 $05 099BFD 49 PUSH.6 $09 099BFE 30 04 A3 BSR.68K $04A3 ; => $09975E => $09E02C 099C01 3B 3F B9 99 99 99 99 99 9A PUSH.F $3FB999999999999A ; float = 0.100000 099C0A 22 MUL.F 099C0B D3 4E 8B WRITE.F $4E8B 099C0E 80 1B READ.B $1B 099C10 6D PUSH.6 $2D 099C11 2A EQ.L 099C12 18 08 BRZ $008 ; => $099C1C 099C14 C3 4E 8B READ.F $4E8B 099C17 03 20 NEG.W 099C19 D3 4E 8B WRITE.F $4E8B 099C1C 86 03 READ.L $03 099C1E 35 SWITCH 099C1F 10 AF 00 CASE $00 ; SWITCH $099C1E 099C22 C3 4E 7B READ.F $4E7B 099C25 D3 29 1B WRITE.F $291B 099C28 C3 4E 83 READ.F $4E83 099C2B D3 29 23 WRITE.F $2923 099C2E C3 4E 8B READ.F $4E8B 099C31 D3 29 2B WRITE.F $292B 099C34 C3 29 1B READ.F $291B 099C37 3E PUSH.W $0000 099C38 26 EQ.F 099C39 C3 29 23 READ.F $2923 099C3C 3E PUSH.W $0000 099C3D 26 EQ.F 099C3E 2C AND.L 099C3F 18 08 BRZ $008 ; => $099C49 099C41 3E PUSH.W $0000 099C42 D3 29 2B WRITE.F $292B 099C45 40 PUSH.6 $00 099C46 D0 29 2C WRITE.B $292C 099C49 C0 33 D6 READ.B $33D6 099C4C 18 06 BRZ $006 ; => $099C54 099C4E 3E PUSH.W $0000 099C4F D3 4E 93 WRITE.F $4E93 099C52 10 38 BR $038 ; => $099C8C 099C54 55 PUSH.6 $15 099C55 59 PUSH.6 $19 099C56 30 04 FB BSR.68K $04FB ; => $09975E => $09E02C 099C59 3B 40 F8 69 F0 00 00 00 00 PUSH.F $40F869F000000000 ; float = 99999.000000 099C62 26 EQ.F 099C63 18 07 BRZ $007 ; => $099C6C 099C65 04 FF PUSH.10 $0FF 099C67 D0 33 D6 WRITE.B $33D6 099C6A 10 20 BR $020 ; => $099C8C 099C6C 55 PUSH.6 $15 099C6D 59 PUSH.6 $19 099C6E 30 05 13 BSR.68K $0513 ; => $09975E => $09E02C 099C71 3B 3D 3C 25 C2 68 49 76 82 PUSH.F $3D3C25C268497682 ; float = 0.000000 099C7A 22 MUL.F 099C7B D3 4E 93 WRITE.F $4E93 099C7E 80 0B READ.B $0B 099C80 6D PUSH.6 $2D 099C81 2A EQ.L 099C82 18 08 BRZ $008 ; => $099C8C 099C84 C3 4E 93 READ.F $4E93 099C87 03 20 NEG.W 099C89 D3 4E 93 WRITE.F $4E93 099C8C 44 PUSH.6 $04 099C8D D0 55 70 WRITE.B $5570 099C90 40 PUSH.6 $00 099C91 3F 20 20 46 49 58 45 44 20 DISP " FIXED HEIGHT YES NO " 48 45 49 47 48 54 20 20 20 20 59 45 53 20 20 20 20 20 4E 4F 20 20 20 20 20 099CB3 67 PUSH.6 $27 099CB4 40 PUSH.6 $00 099CB5 66 PUSH.6 $26 099CB6 40 PUSH.6 $00 099CB7 40 PUSH.6 $00 099CB8 40 PUSH.6 $00 099CB9 40 PUSH.6 $00 099CBA 40 PUSH.6 $00 099CBB 30 05 24 BSR.68K $0524 ; => $09979A => $099614 099CBE C0 29 36 READ.B $2936 099CC1 18 05 BRZ $005 ; => $099CC8 099CC3 6A PUSH.6 $2A 099CC4 90 0B WRITE.B $0B 099CC6 10 03 BR $003 ; => $099CCB 099CC8 6A PUSH.6 $2A 099CC9 90 04 WRITE.B $04 099CCB 42 PUSH.6 $02 099CCC 90 22 WRITE.B $22 099CCE 10 86 BR $086 ; => $099D56 099CD0 10 3B 01 CASE $01 ; SWITCH $099C1E 099CD3 C3 4E 7B READ.F $4E7B 099CD6 D3 29 3F WRITE.F $293F 099CD9 C3 4E 83 READ.F $4E83 099CDC D3 29 47 WRITE.F $2947 099CDF C3 4E 8B READ.F $4E8B 099CE2 D3 29 4F WRITE.F $294F 099CE5 40 PUSH.6 $00 099CE6 3F 20 20 20 20 50 4F 53 20 DISP " POS OFFSET ENTERED, BEWARE." 4F 46 46 53 45 54 20 20 20 45 4E 54 45 52 45 44 2C 20 42 45 57 41 52 45 2E 099D08 4C PUSH.6 $0C 099D09 90 21 WRITE.B $21 099D0B 10 49 BR $049 ; => $099D56 099D0D 10 46 02 CASE $02 ; SWITCH $099C1E 099D10 C0 32 D4 READ.B $32D4 099D13 C3 4E 7B READ.F $4E7B 099D16 F3 2B 57 WRITE.F $2B57 099D19 C0 32 D4 READ.B $32D4 099D1C C3 4E 83 READ.F $4E83 099D1F F3 2C 47 WRITE.F $2C47 099D22 C0 32 D4 READ.B $32D4 099D25 C3 4E 8B READ.F $4E8B 099D28 F3 2D 37 WRITE.F $2D37 099D2B C0 56 6C READ.B $566C 099D2E 2E NOT.L 099D2F 18 1C BRZ $01C ; => $099D4D 099D31 C3 4E 7B READ.F $4E7B 099D34 3E PUSH.W $0000 099D35 26 EQ.F 099D36 C3 4E 83 READ.F $4E83 099D39 3E PUSH.W $0000 099D3A 26 EQ.F 099D3B 2C AND.L 099D3C 18 0B BRZ $00B ; => $099D49 099D3E C0 32 D4 READ.B $32D4 099D41 3E PUSH.W $0000 099D42 F3 2D 37 WRITE.F $2D37 099D45 40 PUSH.6 $00 099D46 D0 29 2C WRITE.B $292C 099D49 4A PUSH.6 $0A 099D4A D0 55 70 WRITE.B $5570 099D4D 44 PUSH.6 $04 099D4E 90 22 WRITE.B $22 099D50 30 04 85 BSR.68K $0485 ; => $0998CE 099D53 10 01 BR $001 ; => $099D56 099D55 00 DEFAULT ; SWITCH $099C1E 099D56 10 01 BR $001 ; => $099D59 099D58 00 DEFAULT ; SWITCH $099BD1 099D59 32 06 ADDSP.B $06 099D5B 34 RETURN ; ---------------- End Function $099AE2 ---------------- ; ---------------- Begin 2144 Function $099D5C ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $099FB8:$099FC7 ; addr bytes opcode operands comment 099D63 31 02 SUBSP.B $02 099D65 80 20 READ.B $20 099D67 35 SWITCH 099D68 10 3C 02 CASE $02 ; SWITCH $099D67 099D6B 80 26 READ.B $26 099D6D 45 PUSH.6 $05 099D6E 2A EQ.L 099D6F 18 15 BRZ $015 ; => $099D86 099D71 86 03 READ.L $03 099D73 30 04 5E BSR.68K $045E ; => $099918 099D76 86 03 READ.L $03 099D78 42 PUSH.6 $02 099D79 2A EQ.L 099D7A 18 05 BRZ $005 ; => $099D81 099D7C 54 PUSH.6 $14 099D7D 90 23 WRITE.B $23 099D7F 10 03 BR $003 ; => $099D84 099D81 4C PUSH.6 $0C 099D82 90 21 WRITE.B $21 099D84 10 1E BR $01E ; => $099DA4 099D86 80 26 READ.B $26 099D88 54 PUSH.6 $14 099D89 03 25 LT.L 099D8B 18 0A BRZ $00A ; => $099D97 099D8D 54 PUSH.6 $14 099D8E 90 26 WRITE.B $26 099D90 86 03 READ.L $03 099D92 30 05 95 BSR.68K $0595 ; => $099800 099D95 10 0D BR $00D ; => $099DA4 099D97 45 PUSH.6 $05 099D98 90 26 WRITE.B $26 099D9A 86 03 READ.L $03 099D9C 30 05 DB BSR.68K $05DB ; => $0997C4 099D9F 86 03 READ.L $03 099DA1 30 05 A4 BSR.68K $05A4 ; => $099800 099DA4 10 E4 BR $0E4 ; => $099E8A 099DA6 10 10 04 CASE $04 ; SWITCH $099D67 099DA9 80 26 READ.B $26 099DAB 50 PUSH.6 $10 099DAC 03 26 GT.L 099DAE 18 03 BRZ $003 ; => $099DB3 099DB0 54 PUSH.6 $14 099DB1 10 01 BR $001 ; => $099DB4 099DB3 61 PUSH.6 $21 099DB4 90 26 WRITE.B $26 099DB6 10 D2 BR $0D2 ; => $099E8A 099DB8 10 2D 84 CASE $84 ; SWITCH $099D67 099DBB 80 26 READ.B $26 099DBD 4F PUSH.6 $0F 099DBE 2A EQ.L 099DBF 18 09 BRZ $009 ; => $099DCA 099DC1 04 4E PUSH.10 $04E 099DC3 90 10 WRITE.B $10 099DC5 54 PUSH.6 $14 099DC6 90 26 WRITE.B $26 099DC8 10 1B BR $01B ; => $099DE5 099DCA 80 26 READ.B $26 099DCC 5F PUSH.6 $1F 099DCD 2A EQ.L 099DCE 18 09 BRZ $009 ; => $099DD9 099DD0 04 57 PUSH.10 $057 099DD2 90 00 WRITE.B $00 099DD4 60 PUSH.6 $20 099DD5 90 26 WRITE.B $26 099DD7 10 0C BR $00C ; => $099DE5 099DD9 80 26 READ.B $26 099DDB 5F PUSH.6 $1F 099DDC 03 26 GT.L 099DDE 18 05 BRZ $005 ; => $099DE5 099DE0 30 06 8B BSR.68K $068B ; => $099758 => $09DFB4 099DE3 94 04 WRITE.B $04 099DE5 10 A3 BR $0A3 ; => $099E8A 099DE7 10 2D C4 CASE $C4 ; SWITCH $099D67 099DEA 80 26 READ.B $26 099DEC 4F PUSH.6 $0F 099DED 2A EQ.L 099DEE 18 09 BRZ $009 ; => $099DF9 099DF0 04 53 PUSH.10 $053 099DF2 90 10 WRITE.B $10 099DF4 54 PUSH.6 $14 099DF5 90 26 WRITE.B $26 099DF7 10 1B BR $01B ; => $099E14 099DF9 80 26 READ.B $26 099DFB 5F PUSH.6 $1F 099DFC 2A EQ.L 099DFD 18 09 BRZ $009 ; => $099E08 099DFF 04 45 PUSH.10 $045 099E01 90 00 WRITE.B $00 099E03 60 PUSH.6 $20 099E04 90 26 WRITE.B $26 099E06 10 0C BR $00C ; => $099E14 099E08 80 26 READ.B $26 099E0A 5F PUSH.6 $1F 099E0B 03 26 GT.L 099E0D 18 05 BRZ $005 ; => $099E14 099E0F 30 06 BA BSR.68K $06BA ; => $099758 => $09DFB4 099E12 94 04 WRITE.B $04 099E14 10 74 BR $074 ; => $099E8A 099E16 10 2E 10 CASE $10 ; SWITCH $099D67 099E19 80 26 READ.B $26 099E1B 45 PUSH.6 $05 099E1C 2B NEQ.L 099E1D 18 25 BRZ $025 ; => $099E44 099E1F 80 26 READ.B $26 099E21 41 PUSH.6 $01 099E22 28 SUB.L 099E23 90 26 WRITE.B $26 099E25 80 26 READ.B $26 099E27 A0 1F READ.B $1F 099E29 7F PUSH.6 $3F 099E2A 2C AND.L 099E2B 94 04 WRITE.B $04 099E2D 84 04 READ.B $04 099E2F 70 PUSH.6 $30 099E30 03 27 LTE.L 099E32 84 04 READ.B $04 099E34 79 PUSH.6 $39 099E35 03 28 GTE.L 099E37 2C AND.L 099E38 80 26 READ.B $26 099E3A 5F PUSH.6 $1F 099E3B 2A EQ.L 099E3C 2D OR.L 099E3D 80 26 READ.B $26 099E3F 4F PUSH.6 $0F 099E40 2A EQ.L 099E41 2D OR.L 099E42 1F DB BRZ $-25 ; => $099E1F 099E44 10 44 BR $044 ; => $099E8A 099E46 20 30 50 D0 CASE $50, $D0 ; SWITCH $099D67 099E4A 80 26 READ.B $26 099E4C 5F PUSH.6 $1F 099E4D 03 26 GT.L 099E4F 18 25 BRZ $025 ; => $099E76 099E51 80 26 READ.B $26 099E53 41 PUSH.6 $01 099E54 27 ADD.L 099E55 90 26 WRITE.B $26 099E57 80 26 READ.B $26 099E59 A0 1F READ.B $1F 099E5B 7F PUSH.6 $3F 099E5C 2C AND.L 099E5D 94 04 WRITE.B $04 099E5F 84 04 READ.B $04 099E61 70 PUSH.6 $30 099E62 03 27 LTE.L 099E64 84 04 READ.B $04 099E66 79 PUSH.6 $39 099E67 03 28 GTE.L 099E69 2C AND.L 099E6A 80 26 READ.B $26 099E6C 5F PUSH.6 $1F 099E6D 2A EQ.L 099E6E 2D OR.L 099E6F 80 26 READ.B $26 099E71 4F PUSH.6 $0F 099E72 2A EQ.L 099E73 2D OR.L 099E74 1F DB BRZ $-25 ; => $099E51 099E76 10 12 BR $012 ; => $099E8A 099E78 00 DEFAULT ; SWITCH $099D67 099E79 80 26 READ.B $26 099E7B 4F PUSH.6 $0F 099E7C 2B NEQ.L 099E7D 80 26 READ.B $26 099E7F 5F PUSH.6 $1F 099E80 03 26 GT.L 099E82 2C AND.L 099E83 18 05 BRZ $005 ; => $099E8A 099E85 30 07 30 BSR.68K $0730 ; => $099758 => $09DFB4 099E88 94 04 WRITE.B $04 099E8A 80 26 READ.B $26 099E8C 60 PUSH.6 $20 099E8D 03 26 GT.L 099E8F 18 30 BRZ $030 ; => $099EC1 099E91 80 26 READ.B $26 099E93 A0 1F READ.B $1F 099E95 7F PUSH.6 $3F 099E96 2C AND.L 099E97 94 04 WRITE.B $04 099E99 80 26 READ.B $26 099E9B 4F PUSH.6 $0F 099E9C 2B NEQ.L 099E9D 80 26 READ.B $26 099E9F 5F PUSH.6 $1F 099EA0 03 26 GT.L 099EA2 2C AND.L 099EA3 84 04 READ.B $04 099EA5 70 PUSH.6 $30 099EA6 03 26 GT.L 099EA8 84 04 READ.B $04 099EAA 79 PUSH.6 $39 099EAB 03 25 LT.L 099EAD 2D OR.L 099EAE 2C AND.L 099EAF 18 10 BRZ $010 ; => $099EC1 099EB1 80 26 READ.B $26 099EB3 41 PUSH.6 $01 099EB4 27 ADD.L 099EB5 90 26 WRITE.B $26 099EB7 80 26 READ.B $26 099EB9 A0 1F READ.B $1F 099EBB 7F PUSH.6 $3F 099EBC 2C AND.L 099EBD 94 04 WRITE.B $04 099EBF 17 D8 BR $-28 ; => $099E99 099EC1 80 20 READ.B $20 099EC3 42 PUSH.6 $02 099EC4 2B NEQ.L 099EC5 18 17 BRZ $017 ; => $099EDE 099EC7 C0 35 46 READ.B $3546 099ECA 18 0A BRZ $00A ; => $099ED6 099ECC 4C PUSH.6 $0C 099ECD 30 07 4E BSR.68K $074E ; => $099782 => $097B5C 099ED0 5C PUSH.6 $1C 099ED1 30 07 52 BSR.68K $0752 ; => $099782 => $097B5C 099ED4 10 08 BR $008 ; => $099EDE 099ED6 49 PUSH.6 $09 099ED7 30 07 58 BSR.68K $0758 ; => $099782 => $097B5C 099EDA 59 PUSH.6 $19 099EDB 30 07 5C BSR.68K $075C ; => $099782 => $097B5C 099EDE 80 26 READ.B $26 099EE0 35 SWITCH 099EE1 10 07 06 CASE $06 ; SWITCH $099EE0 099EE4 78 PUSH.6 $38 099EE5 30 07 60 BSR.68K $0760 ; => $099788 => $09E0F6 099EE8 10 CB BR $0CB ; => $099FB5 099EEA 10 14 15 CASE $15 ; SWITCH $099EE0 099EED 80 0B READ.B $0B 099EEF 71 PUSH.6 $31 099EF0 03 25 LT.L 099EF2 18 0A BRZ $00A ; => $099EFE 099EF4 80 0B READ.B $0B 099EF6 90 0A WRITE.B $0A 099EF8 70 PUSH.6 $30 099EF9 90 0B WRITE.B $0B 099EFB 56 PUSH.6 $16 099EFC 90 26 WRITE.B $26 099EFE 10 B5 BR $0B5 ; => $099FB5 099F00 10 0D 16 CASE $16 ; SWITCH $099EE0 099F03 80 0A READ.B $0A 099F05 78 PUSH.6 $38 099F06 03 27 LTE.L 099F08 18 03 BRZ $003 ; => $099F0D 099F0A 70 PUSH.6 $30 099F0B 90 0B WRITE.B $0B 099F0D 10 A6 BR $0A6 ; => $099FB5 099F0F 20 08 09 19 CASE $09, $19 ; SWITCH $099EE0 099F13 75 PUSH.6 $35 099F14 30 07 8F BSR.68K $078F ; => $099788 => $09E0F6 099F17 10 9C BR $09C ; => $099FB5 099F19 20 0D 0C 1C CASE $0C, $1C ; SWITCH $099EE0 099F1D C0 35 46 READ.B $3546 099F20 18 04 BRZ $004 ; => $099F26 099F22 75 PUSH.6 $35 099F23 30 07 9E BSR.68K $079E ; => $099788 => $09E0F6 099F26 10 8D BR $08D ; => $099FB5 099F28 10 8A 21 CASE $21 ; SWITCH $099EE0 099F2B 30 07 B8 BSR.68K $07B8 ; => $099776 => $09E118 099F2E D3 4E 7B WRITE.F $4E7B 099F31 30 07 B8 BSR.68K $07B8 ; => $09977C => $09E19A 099F34 D3 4E 83 WRITE.F $4E83 099F37 C3 4E 7B READ.F $4E7B 099F3A 3E PUSH.W $0000 099F3B 24 GT.F 099F3C 18 05 BRZ $005 ; => $099F43 099F3E 04 4E PUSH.10 $04E 099F40 D0 35 44 WRITE.B $3544 099F43 C3 4E 7B READ.F $4E7B 099F46 3E PUSH.W $0000 099F47 03 21 LT.F 099F49 18 05 BRZ $005 ; => $099F50 099F4B 04 53 PUSH.10 $053 099F4D D0 35 44 WRITE.B $3544 099F50 C3 4E 83 READ.F $4E83 099F53 3E PUSH.W $0000 099F54 24 GT.F 099F55 18 05 BRZ $005 ; => $099F5C 099F57 04 45 PUSH.10 $045 099F59 D0 35 45 WRITE.B $3545 099F5C C3 4E 83 READ.F $4E83 099F5F 3E PUSH.W $0000 099F60 03 21 LT.F 099F62 18 05 BRZ $005 ; => $099F69 099F64 04 57 PUSH.10 $057 099F66 D0 35 45 WRITE.B $3545 099F69 86 03 READ.L $03 099F6B 42 PUSH.6 $02 099F6C 2A EQ.L 099F6D C3 4E 7B READ.F $4E7B 099F70 3E PUSH.W $0000 099F71 26 EQ.F 099F72 2C AND.L 099F73 C3 4E 83 READ.F $4E83 099F76 3E PUSH.W $0000 099F77 26 EQ.F 099F78 2C AND.L 099F79 18 2C BRZ $02C ; => $099FA7 099F7B C0 32 D4 READ.B $32D4 099F7E 3E PUSH.W $0000 099F7F F3 2B 57 WRITE.F $2B57 099F82 C0 32 D4 READ.B $32D4 099F85 3E PUSH.W $0000 099F86 F3 2C 47 WRITE.F $2C47 099F89 C0 32 D4 READ.B $32D4 099F8C 3E PUSH.W $0000 099F8D F3 2D 37 WRITE.F $2D37 099F90 C0 32 D4 READ.B $32D4 099F93 40 PUSH.6 $00 099F94 F0 2D 55 WRITE.B $2D55 099F97 42 PUSH.6 $02 099F98 90 23 WRITE.B $23 099F9A 04 FF PUSH.10 $0FF 099F9C D0 32 D5 WRITE.B $32D5 099F9F 30 07 F6 BSR.68K $07F6 ; => $0997AC => $09BBA2 099FA2 30 08 05 BSR.68K $0805 ; => $0997A0 => $09B9B8 099FA5 10 0B BR $00B ; => $099FB2 099FA7 41 PUSH.6 $01 099FA8 90 22 WRITE.B $22 099FAA 86 03 READ.L $03 099FAC 30 07 6B BSR.68K $076B ; => $099844 099FAF 44 PUSH.6 $04 099FB0 90 26 WRITE.B $26 099FB2 10 01 BR $001 ; => $099FB5 099FB4 00 DEFAULT ; SWITCH $099EE0 099FB5 32 06 ADDSP.B $06 099FB7 34 RETURN ; ---------------- End Function $099D5C ---------------- ; ---------------- Begin 2144 Function $099FB8 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09C2AA:$09C2C0 ; called from $09DA58:$09DB2E ; called from $09DA58:$09DB57 ; addr bytes opcode operands comment 099FBF 80 22 READ.B $22 099FC1 35 SWITCH 099FC2 10 08 00 CASE $00 ; SWITCH $099FC1 099FC5 86 03 READ.L $03 099FC7 30 02 6E BSR.68K $026E ; => $099D5C 099FCA 10 23 BR $023 ; => $099FEF 099FCC 10 08 01 CASE $01 ; SWITCH $099FC1 099FCF 86 03 READ.L $03 099FD1 30 04 F2 BSR.68K $04F2 ; => $099AE2 099FD4 10 19 BR $019 ; => $099FEF 099FD6 10 06 02 CASE $02 ; SWITCH $099FC1 099FD9 30 06 6E BSR.68K $066E ; => $09996E 099FDC 10 11 BR $011 ; => $099FEF 099FDE 10 06 03 CASE $03 ; SWITCH $099FC1 099FE1 30 05 D8 BSR.68K $05D8 ; => $099A0C 099FE4 10 09 BR $009 ; => $099FEF 099FE6 10 06 04 CASE $04 ; SWITCH $099FC1 099FE9 30 05 52 BSR.68K $0552 ; => $099A9A 099FEC 10 01 BR $001 ; => $099FEF 099FEE 00 DEFAULT ; SWITCH $099FC1 099FEF 32 04 ADDSP.B $04 099FF1 34 RETURN ; ---------------- End Function $099FB8 ---------------- ; ---------------- Begin 2144 Function $099FFE ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09A094:$09A123 ; called from $09A142:$09A159 ; addr bytes opcode operands comment 09A005 72 PUSH.6 $32 09A006 D0 4E 51 WRITE.B $4E51 09A009 04 FF PUSH.10 $0FF 09A00B D0 4E 66 WRITE.B $4E66 09A00E 4C PUSH.6 $0C 09A00F 90 21 WRITE.B $21 09A011 40 PUSH.6 $00 09A012 3F 20 50 4F 52 54 20 31 20 DISP "PORT 1 HANGUP OUTPUTS CANCELED" 48 41 4E 47 55 50 20 20 20 4F 55 54 50 55 54 53 20 43 41 4E 43 45 4C 45 44 09A034 86 03 READ.L $03 09A036 41 PUSH.6 $01 09A037 2A EQ.L 09A038 18 0A BRZ $00A ; => $09A044 09A03A 40 PUSH.6 $00 09A03B D0 4E 94 WRITE.B $4E94 09A03E 40 PUSH.6 $00 09A03F D0 29 5B WRITE.B $295B 09A042 10 0B BR $00B ; => $09A04F 09A044 40 PUSH.6 $00 09A045 D0 4F 98 WRITE.B $4F98 09A048 40 PUSH.6 $00 09A049 D0 29 64 WRITE.B $2964 09A04C 72 PUSH.6 $32 09A04D 90 1A WRITE.B $1A 09A04F 30 00 60 BSR.68K $0060 ; => $099FF2 => $0034C8 (SETSEGMENTS) (NATIVE) 09A052 40 PUSH.6 $00 09A053 D0 4E 66 WRITE.B $4E66 09A056 32 04 ADDSP.B $04 09A058 34 RETURN ; ---------------- End Function $099FFE ---------------- ; ---------------- Begin 2164 Function $09A05A ---------------- ; P0 = $0000; P1 = $0004; P2 = $02 ; A0 = $004008; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $09A094:$09A0A4 ; called from $09A094:$09A101 ; addr bytes opcode operands comment 09A063 86 03 READ.L $03 09A065 41 PUSH.6 $01 09A066 2A EQ.L 09A067 18 16 BRZ $016 ; => $09A07F 09A069 C0 4E 95 READ.B $4E95 09A06C 41 PUSH.6 $01 09A06D 27 ADD.L 09A06E 04 FF PUSH.10 $0FF 09A070 2C AND.L 09A071 C0 4E 96 READ.B $4E96 09A074 2B NEQ.L 09A075 C0 4E 94 READ.B $4E94 09A078 40 PUSH.6 $00 09A079 2A EQ.L 09A07A 2D OR.L 09A07B 9A 03 WRITE.L $03 09A07D 10 14 BR $014 ; => $09A093 09A07F C0 4F 99 READ.B $4F99 09A082 41 PUSH.6 $01 09A083 27 ADD.L 09A084 04 FF PUSH.10 $0FF 09A086 2C AND.L 09A087 C0 4F 9A READ.B $4F9A 09A08A 2B NEQ.L 09A08B C0 4F 98 READ.B $4F98 09A08E 40 PUSH.6 $00 09A08F 2A EQ.L 09A090 2D OR.L 09A091 9A 03 WRITE.L $03 09A093 34 RETURN ; ---------------- End Function $09A05A ---------------- ; ---------------- Begin 2144 Function $09A094 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09A12A:$09A132 ; called from $09A136:$09A13E ; addr bytes opcode operands comment 09A09B 45 PUSH.6 $05 09A09C D0 50 9C WRITE.B $509C 09A09F C0 50 9C READ.B $509C 09A0A2 18 09 BRZ $009 ; => $09A0AD 09A0A4 30 00 4D BSR.68K $004D ; => $09A05A 09A0A7 18 02 BRZ $002 ; => $09A0AB 09A0A9 10 7B BR $07B ; => $09A126 09A0AB 17 F2 BR $-0E ; => $09A09F 09A0AD 04 FF PUSH.10 $0FF 09A0AF D0 4E 66 WRITE.B $4E66 09A0B2 6E PUSH.6 $2E 09A0B3 90 21 WRITE.B $21 09A0B5 86 03 READ.L $03 09A0B7 90 22 WRITE.B $22 09A0B9 54 PUSH.6 $14 09A0BA D0 4E 51 WRITE.B $4E51 09A0BD 40 PUSH.6 $00 09A0BE 3F 20 50 4F 52 54 20 31 20 DISP "PORT 1 HANGUP CANCEL PRINTOUTS" 48 41 4E 47 55 50 20 20 20 43 41 4E 43 45 4C 20 50 52 49 4E 54 4F 55 54 53 09A0E0 86 03 READ.L $03 09A0E2 42 PUSH.6 $02 09A0E3 2A EQ.L 09A0E4 18 03 BRZ $003 ; => $09A0E9 09A0E6 72 PUSH.6 $32 09A0E7 90 1A WRITE.B $1A 09A0E9 30 00 F4 BSR.68K $00F4 ; => $099FF8 => $099642 09A0EC 4F PUSH.6 $0F 09A0ED 90 2B WRITE.B $2B 09A0EF 04 FF PUSH.10 $0FF 09A0F1 D0 4E 63 WRITE.B $4E63 09A0F4 40 PUSH.6 $00 09A0F5 D0 4E 66 WRITE.B $4E66 09A0F8 59 PUSH.6 $19 09A0F9 D0 50 9C WRITE.B $509C 09A0FC C0 50 9C READ.B $509C 09A0FF 18 20 BRZ $020 ; => $09A121 09A101 30 00 AA BSR.68K $00AA ; => $09A05A 09A104 18 19 BRZ $019 ; => $09A11F 09A106 04 FF PUSH.10 $0FF 09A108 D0 4E 66 WRITE.B $4E66 09A10B 80 21 READ.B $21 09A10D 6E PUSH.6 $2E 09A10E 2A EQ.L 09A10F 18 08 BRZ $008 ; => $09A119 09A111 40 PUSH.6 $00 09A112 90 21 WRITE.B $21 09A114 04 FF PUSH.10 $0FF 09A116 D0 4E 63 WRITE.B $4E63 09A119 40 PUSH.6 $00 09A11A D0 4E 66 WRITE.B $4E66 09A11D 10 07 BR $007 ; => $09A126 09A11F 17 DB BR $-25 ; => $09A0FC 09A121 86 03 READ.L $03 09A123 30 01 28 BSR.68K $0128 ; => $099FFE 09A126 32 04 ADDSP.B $04 09A128 34 RETURN ; ---------------- End Function $09A094 ---------------- ; ---------------- Begin 2144 Function $09A12A ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 09A131 41 PUSH.6 $01 09A132 30 00 A1 BSR.68K $00A1 ; => $09A094 09A135 34 RETURN ; ---------------- End Function $09A12A ---------------- ; ---------------- Begin 2144 Function $09A136 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 09A13D 42 PUSH.6 $02 09A13E 30 00 AD BSR.68K $00AD ; => $09A094 09A141 34 RETURN ; ---------------- End Function $09A136 ---------------- ; ---------------- Begin 2144 Function $09A142 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC77 ; addr bytes opcode operands comment 09A149 80 20 READ.B $20 09A14B 35 SWITCH 09A14C 10 06 02 CASE $02 ; SWITCH $09A14B 09A14F 40 PUSH.6 $00 09A150 90 21 WRITE.B $21 09A152 10 0F BR $00F ; => $09A163 09A154 10 0C 10 CASE $10 ; SWITCH $09A14B 09A157 80 22 READ.B $22 09A159 30 01 5E BSR.68K $015E ; => $099FFE 09A15C 40 PUSH.6 $00 09A15D D0 4E 51 WRITE.B $4E51 09A160 10 01 BR $001 ; => $09A163 09A162 00 DEFAULT ; SWITCH $09A14B 09A163 34 RETURN ; ---------------- End Function $09A142 ---------------- ; ---------------- Begin 2144 Function $09A1BE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09A204:$09A258 ; called from $09A204:$09A264 ; called from $09A458:$09A4D5 ; addr bytes opcode operands comment 09A1C5 30 00 64 BSR.68K $0064 ; => $09A164 => $0034AA (CLEARSCREEN) (NATIVE) 09A1C8 40 PUSH.6 $00 09A1C9 3F 20 20 43 4F 4E 46 49 47 DISP " CONFIGURATION L1 ONLY L1/L2" 55 52 41 54 49 4F 4E 20 20 20 4C 31 20 4F 4E 4C 59 20 20 20 4C 31 2F 4C 32 09A1EB C0 29 90 READ.B $2990 09A1EE 18 05 BRZ $005 ; => $09A1F5 09A1F0 6A PUSH.6 $2A 09A1F1 90 0F WRITE.B $0F 09A1F3 10 03 BR $003 ; => $09A1F8 09A1F5 6A PUSH.6 $2A 09A1F6 90 05 WRITE.B $05 09A1F8 67 PUSH.6 $27 09A1F9 6F PUSH.6 $2F 09A1FA 61 PUSH.6 $21 09A1FB 6F PUSH.6 $2F 09A1FC 40 PUSH.6 $00 09A1FD 40 PUSH.6 $00 09A1FE 40 PUSH.6 $00 09A1FF 40 PUSH.6 $00 09A200 30 00 93 BSR.68K $0093 ; => $09A170 => $099614 09A203 34 RETURN ; ---------------- End Function $09A1BE ---------------- ; ---------------- Begin 2144 Function $09A204 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB7F ; addr bytes opcode operands comment 09A20B 80 20 READ.B $20 09A20D 35 SWITCH 09A20E 20 40 02 04 CASE $02, $04 ; SWITCH $09A20D 09A212 30 00 AB BSR.68K $00AB ; => $09A16A => $099642 09A215 30 00 B4 BSR.68K $00B4 ; => $09A164 => $0034AA (CLEARSCREEN) (NATIVE) 09A218 C0 29 90 READ.B $2990 09A21B 18 1E BRZ $01E ; => $09A23B 09A21D 44 PUSH.6 $04 09A21E 3F 19 57 41 52 4E 49 4E 47 DISP "WARNING- L2 DISABLED" 2D 20 20 20 20 20 20 4C 32 20 44 49 53 41 42 4C 45 44 09A239 10 10 BR $010 ; => $09A24B 09A23B 53 PUSH.6 $13 09A23C 3F 0D 4C 32 20 45 4E 41 42 DISP "L2 ENABLED " 4C 45 44 20 20 20 09A24B 4C PUSH.6 $0C 09A24C 90 21 WRITE.B $21 09A24E 10 23 BR $023 ; => $09A273 09A250 10 0B 10 CASE $10 ; SWITCH $09A20D 09A253 04 FF PUSH.10 $0FF 09A255 D0 29 90 WRITE.B $2990 09A258 30 00 9D BSR.68K $009D ; => $09A1BE 09A25B 10 16 BR $016 ; => $09A273 09A25D 10 0A D0 CASE $D0 ; SWITCH $09A20D 09A260 40 PUSH.6 $00 09A261 D0 29 90 WRITE.B $2990 09A264 30 00 A9 BSR.68K $00A9 ; => $09A1BE 09A267 10 0A BR $00A ; => $09A273 09A269 20 04 50 90 CASE $50, $90 ; SWITCH $09A20D 09A26D 10 04 BR $004 ; => $09A273 09A26F 00 DEFAULT ; SWITCH $09A20D 09A270 30 00 D9 BSR.68K $00D9 ; => $09A19A => $09D9DE 09A273 34 RETURN ; ---------------- End Function $09A204 ---------------- ; ---------------- Begin 2144 Function $09A274 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09A2B8:$09A308 ; called from $09A2B8:$09A31E ; called from $09A458:$09A4E1 ; addr bytes opcode operands comment 09A27B 30 01 14 BSR.68K $0114 ; => $09A16A => $099642 09A27E 30 01 1D BSR.68K $011D ; => $09A164 => $0034AA (CLEARSCREEN) (NATIVE) 09A281 40 PUSH.6 $00 09A282 3F 20 4B 49 4E 45 4D 41 54 DISP "KINEMATIC SURVEY ON OFF " 49 43 20 53 55 52 56 45 59 20 20 4F 4E 20 20 20 20 20 20 20 20 4F 46 46 20 09A2A4 C0 29 72 READ.B $2972 09A2A7 18 05 BRZ $005 ; => $09A2AE 09A2A9 6A PUSH.6 $2A 09A2AA 90 0E WRITE.B $0E 09A2AC 10 03 BR $003 ; => $09A2B1 09A2AE 6A PUSH.6 $2A 09A2AF 90 04 WRITE.B $04 09A2B1 43 PUSH.6 $03 09A2B2 90 2B WRITE.B $2B 09A2B4 4E PUSH.6 $0E 09A2B5 90 2E WRITE.B $2E 09A2B7 34 RETURN ; ---------------- End Function $09A274 ---------------- ; ---------------- Begin 2144 Function $09A2B8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB87 ; addr bytes opcode operands comment 09A2BF 80 20 READ.B $20 09A2C1 35 SWITCH 09A2C2 20 3C 02 04 CASE $02, $04 ; SWITCH $09A2C1 09A2C6 30 01 5F BSR.68K $015F ; => $09A16A => $099642 09A2C9 30 01 68 BSR.68K $0168 ; => $09A164 => $0034AA (CLEARSCREEN) (NATIVE) 09A2CC 40 PUSH.6 $00 09A2CD 3F 10 4B 49 4E 45 4D 41 54 DISP "KINEMATIC SURVEY" 49 43 20 53 55 52 56 45 59 09A2DF C0 29 72 READ.B $2972 09A2E2 18 0C BRZ $00C ; => $09A2F0 09A2E4 55 PUSH.6 $15 09A2E5 3F 07 45 4E 41 42 4C 45 44 DISP "ENABLED" 09A2EE 10 0B BR $00B ; => $09A2FB 09A2F0 54 PUSH.6 $14 09A2F1 3F 08 44 49 53 41 42 4C 45 DISP "DISABLED" 44 09A2FB 4C PUSH.6 $0C 09A2FC 90 21 WRITE.B $21 09A2FE 10 27 BR $027 ; => $09A327 09A300 10 0B 10 CASE $10 ; SWITCH $09A2C1 09A303 04 FF PUSH.10 $0FF 09A305 D0 29 72 WRITE.B $2972 09A308 30 00 97 BSR.68K $0097 ; => $09A274 09A30B 10 1A BR $01A ; => $09A327 09A30D 10 03 50 CASE $50 ; SWITCH $09A2C1 09A310 10 15 BR $015 ; => $09A327 09A312 10 03 90 CASE $90 ; SWITCH $09A2C1 09A315 10 10 BR $010 ; => $09A327 09A317 10 0A D0 CASE $D0 ; SWITCH $09A2C1 09A31A 40 PUSH.6 $00 09A31B D0 29 72 WRITE.B $2972 09A31E 30 00 AD BSR.68K $00AD ; => $09A274 09A321 10 04 BR $004 ; => $09A327 09A323 00 DEFAULT ; SWITCH $09A2C1 09A324 30 01 8D BSR.68K $018D ; => $09A19A => $09D9DE 09A327 34 RETURN ; ---------------- End Function $09A2B8 ---------------- ; ---------------- Begin 2144 Function $09A328 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09A36C:$09A37E ; called from $09A36C:$09A38A ; called from $09A458:$09A48B ; addr bytes opcode operands comment 09A32F 30 01 C8 BSR.68K $01C8 ; => $09A16A => $099642 09A332 30 01 D1 BSR.68K $01D1 ; => $09A164 => $0034AA (CLEARSCREEN) (NATIVE) 09A335 40 PUSH.6 $00 09A336 3F 20 20 4F 53 43 49 4C 4C DISP " OSCILLATOR DAC ON OFF " 41 54 4F 52 20 44 41 43 20 20 20 4F 4E 20 20 20 20 20 20 20 20 4F 46 46 20 09A358 C0 29 75 READ.B $2975 09A35B 18 05 BRZ $005 ; => $09A362 09A35D 6A PUSH.6 $2A 09A35E 90 0E WRITE.B $0E 09A360 10 03 BR $003 ; => $09A365 09A362 6A PUSH.6 $2A 09A363 90 04 WRITE.B $04 09A365 43 PUSH.6 $03 09A366 90 2B WRITE.B $2B 09A368 4E PUSH.6 $0E 09A369 90 2E WRITE.B $2E 09A36B 34 RETURN ; ---------------- End Function $09A328 ---------------- ; ---------------- Begin 2144 Function $09A36C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB5F ; addr bytes opcode operands comment 09A373 80 20 READ.B $20 09A375 35 SWITCH 09A376 10 0B 10 CASE $10 ; SWITCH $09A375 09A379 04 FF PUSH.10 $0FF 09A37B D0 29 75 WRITE.B $2975 09A37E 30 00 59 BSR.68K $0059 ; => $09A328 09A381 10 16 BR $016 ; => $09A399 09A383 10 0A D0 CASE $D0 ; SWITCH $09A375 09A386 40 PUSH.6 $00 09A387 D0 29 75 WRITE.B $2975 09A38A 30 00 65 BSR.68K $0065 ; => $09A328 09A38D 10 0A BR $00A ; => $09A399 09A38F 20 04 50 90 CASE $50, $90 ; SWITCH $09A375 09A393 10 04 BR $004 ; => $09A399 09A395 00 DEFAULT ; SWITCH $09A375 09A396 30 01 FF BSR.68K $01FF ; => $09A19A => $09D9DE 09A399 34 RETURN ; ---------------- End Function $09A36C ---------------- ; ---------------- Begin 2144 Function $09A39A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09A458:$09A5E0 ; called from $09A5EA:$09A631 ; addr bytes opcode operands comment 09A3A1 30 02 40 BSR.68K $0240 ; => $09A164 => $0034AA (CLEARSCREEN) (NATIVE) 09A3A4 4C PUSH.6 $0C 09A3A5 3F 04 4D 4F 52 45 DISP "MORE" 09A3AB 80 22 READ.B $22 09A3AD 35 SWITCH 09A3AE 10 21 00 CASE $00 ; SWITCH $09A3AD 09A3B1 50 PUSH.6 $10 09A3B2 3F 0C 52 45 46 50 4F 53 20 DISP "REFPOS RESET" 52 45 53 45 54 09A3C0 C0 29 93 READ.B $2993 09A3C3 18 0A BRZ $00A ; => $09A3CF 09A3C5 43 PUSH.6 $03 09A3C6 3F 07 53 54 41 54 49 4F 4E DISP "STATION" 09A3CF 10 85 BR $085 ; => $09A456 09A3D1 10 1F 01 CASE $01 ; SWITCH $09A3AD 09A3D4 51 PUSH.6 $11 09A3D5 3F 0C 44 41 43 20 20 20 4F DISP "DAC OFFPOS" 46 46 50 4F 53 09A3E3 C0 29 8E READ.B $298E 09A3E6 18 08 BRZ $008 ; => $09A3F0 09A3E8 44 PUSH.6 $04 09A3E9 3F 05 43 41 42 4C 45 DISP "CABLE" 09A3F0 10 64 BR $064 ; => $09A456 09A3F2 10 13 02 CASE $02 ; SWITCH $09A3AD 09A3F5 50 PUSH.6 $10 09A3F6 3F 0D 43 41 4C 49 42 20 20 DISP "CALIB UNITS" 20 55 4E 49 54 53 09A405 10 4F BR $04F ; => $09A456 09A407 10 1E 03 CASE $03 ; SWITCH $09A3AD 09A40A 40 PUSH.6 $00 09A40B 3F 18 50 55 52 47 45 20 20 DISP "PURGE MORESTATIONS" 20 20 20 20 20 4D 4F 52 45 53 54 41 54 49 4F 4E 53 09A425 10 2F BR $02F ; => $09A456 09A427 10 0B 04 CASE $04 ; SWITCH $09A3AD 09A42A 50 PUSH.6 $10 09A42B 3F 05 4C 31 2F 4C 32 DISP "L1/L2" 09A432 10 22 BR $022 ; => $09A456 09A434 10 0F 05 CASE $05 ; SWITCH $09A3AD 09A437 50 PUSH.6 $10 09A438 3F 09 4B 49 4E 45 4D 41 54 DISP "KINEMATIC" 49 43 09A443 10 11 BR $011 ; => $09A456 09A445 10 0E 06 CASE $06 ; SWITCH $09A3AD 09A448 50 PUSH.6 $10 09A449 3F 08 52 54 43 4D 2D 31 30 DISP "RTCM-104" 34 09A453 10 01 BR $001 ; => $09A456 09A455 00 DEFAULT ; SWITCH $09A3AD 09A456 34 RETURN ; ---------------- End Function $09A39A ---------------- ; ---------------- Begin 2144 Function $09A458 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB25 ; addr bytes opcode operands comment 09A45F 80 20 READ.B $20 09A461 35 SWITCH 09A462 10 97 10 CASE $10 ; SWITCH $09A461 09A465 80 22 READ.B $22 09A467 35 SWITCH 09A468 10 1B 00 CASE $00 ; SWITCH $09A467 09A46B 60 PUSH.6 $20 09A46C 90 21 WRITE.B $21 09A46E 40 PUSH.6 $00 09A46F 90 22 WRITE.B $22 09A471 30 03 0A BSR.68K $030A ; => $09A16A => $099642 09A474 40 PUSH.6 $00 09A475 D0 32 D4 WRITE.B $32D4 09A478 40 PUSH.6 $00 09A479 30 03 00 BSR.68K $0300 ; => $09A17C => $0997C4 09A47C 40 PUSH.6 $00 09A47D 30 02 FE BSR.68K $02FE ; => $09A182 => $099800 09A480 45 PUSH.6 $05 09A481 90 26 WRITE.B $26 09A483 10 74 BR $074 ; => $09A4F9 09A485 10 09 01 CASE $01 ; SWITCH $09A467 09A488 6B PUSH.6 $2B 09A489 90 21 WRITE.B $21 09A48B 30 01 66 BSR.68K $0166 ; => $09A328 09A48E 10 69 BR $069 ; => $09A4F9 09A490 10 06 02 CASE $02 ; SWITCH $09A467 09A493 30 02 F6 BSR.68K $02F6 ; => $09A1A0 => $0925F6 09A496 10 61 BR $061 ; => $09A4F9 09A498 10 38 03 CASE $03 ; SWITCH $09A467 09A49B 40 PUSH.6 $00 09A49C 90 23 WRITE.B $23 09A49E 40 PUSH.6 $00 09A49F 3F 20 20 50 55 52 47 45 20 DISP " PURGE STATIONS YES NO " 53 54 41 54 49 4F 4E 53 20 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 09A4C1 67 PUSH.6 $27 09A4C2 40 PUSH.6 $00 09A4C3 40 PUSH.6 $00 09A4C4 6C PUSH.6 $2C 09A4C5 40 PUSH.6 $00 09A4C6 40 PUSH.6 $00 09A4C7 40 PUSH.6 $00 09A4C8 40 PUSH.6 $00 09A4C9 30 03 5C BSR.68K $035C ; => $09A170 => $099614 09A4CC 04 56 PUSH.10 $056 09A4CE 90 21 WRITE.B $21 09A4D0 10 27 BR $027 ; => $09A4F9 09A4D2 10 0A 04 CASE $04 ; SWITCH $09A467 09A4D5 30 03 1A BSR.68K $031A ; => $09A1BE 09A4D8 04 58 PUSH.10 $058 09A4DA 90 21 WRITE.B $21 09A4DC 10 1B BR $01B ; => $09A4F9 09A4DE 10 0A 05 CASE $05 ; SWITCH $09A467 09A4E1 30 02 70 BSR.68K $0270 ; => $09A274 09A4E4 04 59 PUSH.10 $059 09A4E6 90 21 WRITE.B $21 09A4E8 10 0F BR $00F ; => $09A4F9 09A4EA 10 0C 06 CASE $06 ; SWITCH $09A467 09A4ED 40 PUSH.6 $00 09A4EE 90 22 WRITE.B $22 09A4F0 76 PUSH.6 $36 09A4F1 90 21 WRITE.B $21 09A4F3 30 03 4A BSR.68K $034A ; => $09A1AC => $0AA0B8 09A4F6 10 01 BR $001 ; => $09A4F9 09A4F8 00 DEFAULT ; SWITCH $09A467 09A4F9 10 EE BR $0EE ; => $09A5E9 09A4FB 10 36 50 CASE $50 ; SWITCH $09A461 09A4FE 80 22 READ.B $22 09A500 35 SWITCH 09A501 10 1A 00 CASE $00 ; SWITCH $09A500 09A504 C0 29 93 READ.B $2993 09A507 18 12 BRZ $012 ; => $09A51B 09A509 40 PUSH.6 $00 09A50A D0 32 D7 WRITE.B $32D7 09A50D 40 PUSH.6 $00 09A50E D0 32 D4 WRITE.B $32D4 09A511 30 03 86 BSR.68K $0386 ; => $09A18E => $09B944 09A514 04 53 PUSH.10 $053 09A516 90 21 WRITE.B $21 09A518 40 PUSH.6 $00 09A519 90 23 WRITE.B $23 09A51B 10 14 BR $014 ; => $09A531 09A51D 10 11 01 CASE $01 ; SWITCH $09A500 09A520 C0 29 8E READ.B $298E 09A523 18 09 BRZ $009 ; => $09A52E 09A525 79 PUSH.6 $39 09A526 90 21 WRITE.B $21 09A528 30 03 C1 BSR.68K $03C1 ; => $09A16A => $099642 09A52B 30 03 A6 BSR.68K $03A6 ; => $09A188 => $09154C 09A52E 10 01 BR $001 ; => $09A531 09A530 00 DEFAULT ; SWITCH $09A500 09A531 10 B6 BR $0B6 ; => $09A5E9 09A533 10 62 90 CASE $90 ; SWITCH $09A461 09A536 80 22 READ.B $22 09A538 35 SWITCH 09A539 10 38 00 CASE $00 ; SWITCH $09A538 09A53C 40 PUSH.6 $00 09A53D 90 23 WRITE.B $23 09A53F 40 PUSH.6 $00 09A540 3F 20 20 52 45 53 45 54 20 DISP " RESET RECEIVER YES NO " 52 45 43 45 49 56 45 52 20 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 09A562 67 PUSH.6 $27 09A563 40 PUSH.6 $00 09A564 40 PUSH.6 $00 09A565 6C PUSH.6 $2C 09A566 40 PUSH.6 $00 09A567 40 PUSH.6 $00 09A568 40 PUSH.6 $00 09A569 40 PUSH.6 $00 09A56A 30 03 FD BSR.68K $03FD ; => $09A170 => $099614 09A56D 04 54 PUSH.10 $054 09A56F 90 21 WRITE.B $21 09A571 10 22 BR $022 ; => $09A595 09A573 10 17 01 CASE $01 ; SWITCH $09A538 09A576 61 PUSH.6 $21 09A577 90 21 WRITE.B $21 09A579 40 PUSH.6 $00 09A57A 90 22 WRITE.B $22 09A57C 30 04 15 BSR.68K $0415 ; => $09A16A => $099642 09A57F 41 PUSH.6 $01 09A580 30 04 07 BSR.68K $0407 ; => $09A17C => $0997C4 09A583 41 PUSH.6 $01 09A584 30 04 05 BSR.68K $0405 ; => $09A182 => $099800 09A587 45 PUSH.6 $05 09A588 90 26 WRITE.B $26 09A58A 10 09 BR $009 ; => $09A595 09A58C 10 06 02 CASE $02 ; SWITCH $09A538 09A58F 30 03 EC BSR.68K $03EC ; => $09A1A6 => $0AED56 09A592 10 01 BR $001 ; => $09A595 09A594 00 DEFAULT ; SWITCH $09A538 09A595 10 52 BR $052 ; => $09A5E9 09A597 10 4C D0 CASE $D0 ; SWITCH $09A461 09A59A 80 22 READ.B $22 09A59C 41 PUSH.6 $01 09A59D 27 ADD.L 09A59E 47 PUSH.6 $07 09A59F 2F MOD.L 09A5A0 90 22 WRITE.B $22 09A5A2 80 22 READ.B $22 09A5A4 43 PUSH.6 $03 09A5A5 2A EQ.L 09A5A6 C0 29 93 READ.B $2993 09A5A9 2E NOT.L 09A5AA 2C AND.L 09A5AB 18 03 BRZ $003 ; => $09A5B0 09A5AD 44 PUSH.6 $04 09A5AE 90 22 WRITE.B $22 09A5B0 80 22 READ.B $22 09A5B2 44 PUSH.6 $04 09A5B3 2A EQ.L 09A5B4 C0 29 8F READ.B $298F 09A5B7 2E NOT.L 09A5B8 2C AND.L 09A5B9 18 03 BRZ $003 ; => $09A5BE 09A5BB 45 PUSH.6 $05 09A5BC 90 22 WRITE.B $22 09A5BE 80 22 READ.B $22 09A5C0 45 PUSH.6 $05 09A5C1 2A EQ.L 09A5C2 C0 29 93 READ.B $2993 09A5C5 C0 29 9A READ.B $299A 09A5C8 44 PUSH.6 $04 09A5C9 03 25 LT.L 09A5CB 2C AND.L 09A5CC 2E NOT.L 09A5CD 2C AND.L 09A5CE 18 03 BRZ $003 ; => $09A5D3 09A5D0 46 PUSH.6 $06 09A5D1 90 22 WRITE.B $22 09A5D3 80 22 READ.B $22 09A5D5 46 PUSH.6 $06 09A5D6 2A EQ.L 09A5D7 C0 29 8D READ.B $298D 09A5DA 2C AND.L 09A5DB 18 03 BRZ $003 ; => $09A5E0 09A5DD 40 PUSH.6 $00 09A5DE 90 22 WRITE.B $22 09A5E0 30 02 49 BSR.68K $0249 ; => $09A39A 09A5E3 10 04 BR $004 ; => $09A5E9 09A5E5 00 DEFAULT ; SWITCH $09A461 09A5E6 30 04 4F BSR.68K $044F ; => $09A19A => $09D9DE 09A5E9 34 RETURN ; ---------------- End Function $09A458 ---------------- ; ---------------- Begin 2144 Function $09A5EA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D9DE:$09DA06 ; called from $0A0AE4:$0A0B3E ; addr bytes opcode operands comment 09A5F1 30 04 90 BSR.68K $0490 ; => $09A164 => $0034AA (CLEARSCREEN) (NATIVE) 09A5F4 30 04 8D BSR.68K $048D ; => $09A16A => $099642 09A5F7 C0 56 6D READ.B $566D 09A5FA 18 0C BRZ $00C ; => $09A608 09A5FC 04 53 PUSH.10 $053 09A5FE 90 21 WRITE.B $21 09A600 68 PUSH.6 $28 09A601 90 23 WRITE.B $23 09A603 30 04 72 BSR.68K $0472 ; => $09A194 => $09AA92 09A606 10 35 BR $035 ; => $09A63D 09A608 C0 56 6C READ.B $566C 09A60B 2E NOT.L 09A60C C0 29 93 READ.B $2993 09A60F 2C AND.L 09A610 18 14 BRZ $014 ; => $09A626 09A612 04 53 PUSH.10 $053 09A614 90 21 WRITE.B $21 09A616 40 PUSH.6 $00 09A617 90 23 WRITE.B $23 09A619 40 PUSH.6 $00 09A61A D0 32 D7 WRITE.B $32D7 09A61D 40 PUSH.6 $00 09A61E D0 32 D4 WRITE.B $32D4 09A621 30 04 96 BSR.68K $0496 ; => $09A18E => $09B944 09A624 10 17 BR $017 ; => $09A63D 09A626 C0 29 58 READ.B $2958 09A629 18 0B BRZ $00B ; => $09A636 09A62B 7F PUSH.6 $3F 09A62C 90 21 WRITE.B $21 09A62E 40 PUSH.6 $00 09A62F 90 22 WRITE.B $22 09A631 30 02 9A BSR.68K $029A ; => $09A39A 09A634 10 07 BR $007 ; => $09A63D 09A636 30 04 C3 BSR.68K $04C3 ; => $09A176 => $0A0AC0 09A639 04 42 PUSH.10 $042 09A63B 90 21 WRITE.B $21 09A63D 34 RETURN ; ---------------- End Function $09A5EA ---------------- ; ---------------- Begin 2144 Function $09A6B6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09BE9A:$09BFF2 ; addr bytes opcode operands comment 09A6BD 30 00 82 BSR.68K $0082 ; => $09A63E => $099642 09A6C0 40 PUSH.6 $00 09A6C1 3F 20 50 52 4F 54 45 43 54 DISP "PROTECTED-CANNOT DELETE STATION " 45 44 2D 43 41 4E 4E 4F 54 20 44 45 4C 45 54 45 20 53 54 41 54 49 4F 4E 20 09A6E3 34 RETURN ; ---------------- End Function $09A6B6 ---------------- ; ---------------- Begin 2144 Function $09A6E4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C0A2:$09C10C ; addr bytes opcode operands comment 09A6EB 30 00 B0 BSR.68K $00B0 ; => $09A63E => $099642 09A6EE 40 PUSH.6 $00 09A6EF 3F 20 50 52 4F 54 45 43 54 DISP "PROTECTED-CANNOT DELETE SESSION " 45 44 2D 43 41 4E 4E 4F 54 20 44 45 4C 45 54 45 20 53 45 53 53 49 4F 4E 20 09A711 34 RETURN ; ---------------- End Function $09A6E4 ---------------- ; ---------------- Begin 2144 Function $09A712 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $09AD6C:$09ADAA ; called from $09ADB6:$09ADD6 ; called from $09ADDC:$09AE7E ; called from $09ADDC:$09AF8E ; called from $09ADDC:$09AF95 ; called from $09B096:$09B0B1 ; called from $09B6D2:$09B6F1 ; called from $09C0A2:$09C1F9 ; called from $09CABA:$09CB01 ; addr bytes opcode operands comment 09A719 30 00 A2 BSR.68K $00A2 ; => $09A67A => $0034AA (CLEARSCREEN) (NATIVE) 09A71C 40 PUSH.6 $00 09A71D 3F 10 20 41 4E 54 45 4E 4E DISP " ANTENNA HEIGHT" 41 20 20 48 45 49 47 48 54 09A72F C0 32 D3 READ.B $32D3 09A732 40 PUSH.6 $00 09A733 2A EQ.L 09A734 18 3E BRZ $03E ; => $09A774 09A736 50 PUSH.6 $10 09A737 48 PUSH.6 $08 09A738 87 07 READ.F $07 09A73A 3B 40 C3 88 00 00 00 00 00 PUSH.F $40C3880000000000 ; float = 10000.000000 09A743 22 MUL.F 09A744 3B 3F 9A 02 75 25 46 0A A6 PUSH.F $3F9A027525460AA6 ; float = 0.025400 09A74D 23 DIV.F 09A74E 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09A757 20 ADD.F 09A758 30 00 FF BSR.68K $00FF ; => $09A65C => $097AD2 09A75B 40 PUSH.6 $00 09A75C 40 PUSH.6 $00 09A75D 63 PUSH.6 $23 09A75E 6F PUSH.6 $2F 09A75F 40 PUSH.6 $00 09A760 40 PUSH.6 $00 09A761 40 PUSH.6 $00 09A762 40 PUSH.6 $00 09A763 30 01 22 BSR.68K $0122 ; => $09A644 => $099614 09A766 5A PUSH.6 $1A 09A767 3F 06 49 4E 43 48 45 53 DISP "INCHES" 09A76F 50 PUSH.6 $10 09A770 90 26 WRITE.B $26 09A772 10 75 BR $075 ; => $09A7E9 09A774 C0 32 D3 READ.B $32D3 09A777 41 PUSH.6 $01 09A778 2A EQ.L 09A779 18 3C BRZ $03C ; => $09A7B7 09A77B 5B PUSH.6 $1B 09A77C 3F 04 46 45 45 54 DISP "FEET" 09A782 40 PUSH.6 $00 09A783 40 PUSH.6 $00 09A784 61 PUSH.6 $21 09A785 6E PUSH.6 $2E 09A786 40 PUSH.6 $00 09A787 40 PUSH.6 $00 09A788 40 PUSH.6 $00 09A789 40 PUSH.6 $00 09A78A 30 01 49 BSR.68K $0149 ; => $09A644 => $099614 09A78D 51 PUSH.6 $11 09A78E 47 PUSH.6 $07 09A78F 87 07 READ.F $07 09A791 3B 40 C3 88 00 00 00 00 00 PUSH.F $40C3880000000000 ; float = 10000.000000 09A79A 22 MUL.F 09A79B 3B 3F D3 81 D7 DB F4 87 FD PUSH.F $3FD381D7DBF487FD ; float = 0.304800 09A7A4 23 DIV.F 09A7A5 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09A7AE 20 ADD.F 09A7AF 30 01 56 BSR.68K $0156 ; => $09A65C => $097AD2 09A7B2 51 PUSH.6 $11 09A7B3 90 26 WRITE.B $26 09A7B5 10 32 BR $032 ; => $09A7E9 09A7B7 5A PUSH.6 $1A 09A7B8 3F 06 4D 45 54 45 52 53 DISP "METERS" 09A7C0 40 PUSH.6 $00 09A7C1 40 PUSH.6 $00 09A7C2 63 PUSH.6 $23 09A7C3 6F PUSH.6 $2F 09A7C4 40 PUSH.6 $00 09A7C5 40 PUSH.6 $00 09A7C6 40 PUSH.6 $00 09A7C7 40 PUSH.6 $00 09A7C8 30 01 87 BSR.68K $0187 ; => $09A644 => $099614 09A7CB 52 PUSH.6 $12 09A7CC 46 PUSH.6 $06 09A7CD 87 07 READ.F $07 09A7CF 3B 40 C3 88 00 00 00 00 00 PUSH.F $40C3880000000000 ; float = 10000.000000 09A7D8 22 MUL.F 09A7D9 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09A7E2 20 ADD.F 09A7E3 30 01 8A BSR.68K $018A ; => $09A65C => $097AD2 09A7E6 52 PUSH.6 $12 09A7E7 90 26 WRITE.B $26 09A7E9 53 PUSH.6 $13 09A7EA 30 01 79 BSR.68K $0179 ; => $09A674 => $097B5C 09A7ED 32 08 ADDSP.B $08 09A7EF 34 RETURN ; ---------------- End Function $09A712 ---------------- ; ---------------- Begin 2144 Function $09A7F0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09ADDC:$09AEAE ; called from $09AFC0:$09AFDD ; addr bytes opcode operands comment 09A7F7 30 01 BC BSR.68K $01BC ; => $09A63E => $099642 09A7FA 30 01 83 BSR.68K $0183 ; => $09A67A => $0034AA (CLEARSCREEN) (NATIVE) 09A7FD 40 PUSH.6 $00 09A7FE 3F 16 41 4E 54 45 4E 4E 41 DISP "ANTENNA SERIAL NUMBER" 20 20 53 45 52 49 41 4C 20 4E 55 4D 42 45 52 09A816 59 PUSH.6 $19 09A817 46 PUSH.6 $06 09A818 C0 32 D5 READ.B $32D5 09A81B E2 32 9B READ.L $329B 09A81E 03 2A LONG2FLOAT 09A820 30 01 C7 BSR.68K $01C7 ; => $09A65C => $097AD2 09A823 59 PUSH.6 $19 09A824 90 26 WRITE.B $26 09A826 34 RETURN ; ---------------- End Function $09A7F0 ---------------- ; ---------------- Begin 2144 Function $09A828 ---------------- ; A0 = $004004; (A0) = SP + $B ; called from $09B102:$09B146 ; called from $0AC94C:$0AC9C8 ; called from $0ACB00:$0ACBFE ; called from $0ACB00:$0ACC15 ; called from $0ACB00:$0ACC28 ; called from $0ACB00:$0ACC3F ; addr bytes opcode operands comment 09A82F 31 14 SUBSP.B $14 09A831 30 01 F6 BSR.68K $01F6 ; => $09A63E => $099642 09A834 30 01 BD BSR.68K $01BD ; => $09A67A => $0034AA (CLEARSCREEN) (NATIVE) 09A837 30 01 A2 BSR.68K $01A2 ; => $09A698 => $09F7D6 09A83A 42 PUSH.6 $02 09A83B 03 26 GT.L 09A83D 18 12 BRZ $012 ; => $09A851 09A83F 40 PUSH.6 $00 09A840 3F 0D 20 20 4D 45 4D 4F 52 DISP " MEMORY FULL" 59 20 46 55 4C 4C 09A84F 11 57 BR $157 ; => $09A9A8 09A851 40 PUSH.6 $00 09A852 3F 20 20 45 4E 4F 55 47 48 DISP " ENOUGH MEMORY FOR HR MIN" 20 4D 45 4D 4F 52 59 20 20 46 4F 52 20 20 20 20 48 52 20 20 20 20 4D 49 4E 09A874 86 0B READ.L $0B 09A876 40 PUSH.6 $00 09A877 2A EQ.L 09A878 18 39 BRZ $039 ; => $09A8B3 09A87A 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 09A883 C0 29 10 READ.B $2910 09A886 05 00 PUSH.10 $100 09A888 29 MUL.L 09A889 03 2A LONG2FLOAT 09A88B 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 09A894 22 MUL.F 09A895 23 DIV.F 09A896 97 1F WRITE.F $1F 09A898 87 1F READ.F $1F 09A89A 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 09A8A3 24 GT.F 09A8A4 18 0B BRZ $00B ; => $09A8B1 09A8A6 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 09A8AF 97 1F WRITE.F $1F 09A8B1 10 1A BR $01A ; => $09A8CD 09A8B3 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 09A8BC 86 0B READ.L $0B 09A8BE 03 2A LONG2FLOAT 09A8C0 3B 3F B9 99 99 99 99 99 9A PUSH.F $3FB999999999999A ; float = 0.100000 09A8C9 22 MUL.F 09A8CA 23 DIV.F 09A8CB 97 1F WRITE.F $1F 09A8CD 86 03 READ.L $03 09A8CF 18 05 BRZ $005 ; => $09A8D6 09A8D1 3E PUSH.W $0000 09A8D2 97 17 WRITE.F $17 09A8D4 10 32 BR $032 ; => $09A908 09A8D6 C0 29 8F READ.B $298F 09A8D9 C0 29 90 READ.B $2990 09A8DC 2E NOT.L 09A8DD 2C AND.L 09A8DE 18 0B BRZ $00B ; => $09A8EB 09A8E0 3B 40 52 40 00 00 00 00 00 PUSH.F $4052400000000000 ; float = 73.000000 09A8E9 10 09 BR $009 ; => $09A8F4 09A8EB 3B 40 49 80 00 00 00 00 00 PUSH.F $4049800000000000 ; float = 51.000000 09A8F4 87 1F READ.F $1F 09A8F6 22 MUL.F 09A8F7 C0 29 9A READ.B $299A 09A8FA 43 PUSH.6 $03 09A8FB 03 25 LT.L 09A8FD 18 03 BRZ $003 ; => $09A902 09A8FF 45 PUSH.6 $05 09A900 10 01 BR $001 ; => $09A903 09A902 44 PUSH.6 $04 09A903 03 2A LONG2FLOAT 09A905 22 MUL.F 09A906 97 17 WRITE.F $17 09A908 86 07 READ.L $07 09A90A 86 03 READ.L $03 09A90C 2D OR.L 09A90D 18 13 BRZ $013 ; => $09A922 09A90F 87 17 READ.F $17 09A911 3B 40 4C 00 00 00 00 00 00 PUSH.F $404C000000000000 ; float = 56.000000 09A91A 87 1F READ.F $1F 09A91C 22 MUL.F 09A91D 20 ADD.F 09A91E 97 17 WRITE.F $17 09A920 10 22 BR $022 ; => $09A944 09A922 87 17 READ.F $17 09A924 3B 40 4C 00 00 00 00 00 00 PUSH.F $404C000000000000 ; float = 56.000000 09A92D 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 09A936 22 MUL.F 09A937 3B 40 72 C0 00 00 00 00 00 PUSH.F $4072C00000000000 ; float = 300.000000 09A940 23 DIV.F 09A941 20 ADD.F 09A942 97 17 WRITE.F $17 09A944 87 17 READ.F $17 09A946 3B 40 58 80 00 00 00 00 00 PUSH.F $4058800000000000 ; float = 98.000000 09A94F 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 09A958 22 MUL.F 09A959 3B 54 7D 42 AE A2 87 9F 2E PUSH.F $547D42AEA2879F2E ; float = 999999999999999967336168804116691273849533185806555472917961779471295845921727862608739868455469056.000000 09A962 23 DIV.F 09A963 20 ADD.F 09A964 97 17 WRITE.F $17 09A966 30 02 D1 BSR.68K $02D1 ; => $09A698 => $09F7D6 09A969 42 PUSH.6 $02 09A96A 28 SUB.L 09A96B 07 FF PUSH.10 $3FF 09A96D 29 MUL.L 09A96E 03 2A LONG2FLOAT 09A970 87 17 READ.F $17 09A972 23 DIV.F 09A973 03 29 FLOAT2LONG 09A975 95 0D WRITE.W $0D 09A977 85 0D READ.W $0D 09A979 7C PUSH.6 $3C 09A97A 03 24 DIV.L 09A97C 95 0F WRITE.W $0F 09A97E 85 0F READ.W $0F 09A980 04 63 PUSH.10 $063 09A982 03 25 LT.L 09A984 18 0B BRZ $00B ; => $09A991 09A986 53 PUSH.6 $13 09A987 43 PUSH.6 $03 09A988 85 0F READ.W $0F 09A98A 03 2A LONG2FLOAT 09A98C 30 03 33 BSR.68K $0333 ; => $09A65C => $097AD2 09A98F 10 09 BR $009 ; => $09A99A 09A991 54 PUSH.6 $14 09A992 42 PUSH.6 $02 09A993 85 0F READ.W $0F 09A995 03 2A LONG2FLOAT 09A997 30 03 3E BSR.68K $033E ; => $09A65C => $097AD2 09A99A 5A PUSH.6 $1A 09A99B 42 PUSH.6 $02 09A99C 85 0D READ.W $0D 09A99E 85 0F READ.W $0F 09A9A0 7C PUSH.6 $3C 09A9A1 29 MUL.L 09A9A2 28 SUB.L 09A9A3 03 2A LONG2FLOAT 09A9A5 30 03 4C BSR.68K $034C ; => $09A65C => $097AD2 09A9A8 32 20 ADDSP.B $20 09A9AA 34 RETURN ; ---------------- End Function $09A828 ---------------- ; ---------------- Begin 2144 Function $09A9AC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09A9D6:$09AA03 ; called from $09AA12:$09AA82 ; called from $09AACA:$09AB13 ; addr bytes opcode operands comment 09A9B3 C0 55 A2 READ.B $55A2 09A9B6 18 1D BRZ $01D ; => $09A9D5 09A9B8 55 PUSH.6 $15 09A9B9 C0 29 FF READ.B $29FF 09A9BC 30 03 6F BSR.68K $036F ; => $09A650 => $097B0A 09A9BF 57 PUSH.6 $17 09A9C0 C0 29 FE READ.B $29FE 09A9C3 30 03 76 BSR.68K $0376 ; => $09A650 => $097B0A 09A9C6 59 PUSH.6 $19 09A9C7 C0 2A 09 READ.B $2A09 09A9CA 30 03 7D BSR.68K $037D ; => $09A650 => $097B0A 09A9CD 56 PUSH.6 $16 09A9CE 30 03 5D BSR.68K $035D ; => $09A674 => $097B5C 09A9D1 58 PUSH.6 $18 09A9D2 30 03 61 BSR.68K $0361 ; => $09A674 => $097B5C 09A9D5 34 RETURN ; ---------------- End Function $09A9AC ---------------- ; ---------------- Begin 2144 Function $09A9D6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0976BA:$097728 ; addr bytes opcode operands comment 09A9DD 30 03 66 BSR.68K $0366 ; => $09A67A => $0034AA (CLEARSCREEN) (NATIVE) 09A9E0 40 PUSH.6 $00 09A9E1 3F 20 20 52 45 41 44 59 20 DISP " READY TO START YES NO " 54 4F 20 53 54 41 52 54 20 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 09AA03 30 00 5A BSR.68K $005A ; => $09A9AC 09AA06 67 PUSH.6 $27 09AA07 40 PUSH.6 $00 09AA08 40 PUSH.6 $00 09AA09 6C PUSH.6 $2C 09AA0A 40 PUSH.6 $00 09AA0B 40 PUSH.6 $00 09AA0C 40 PUSH.6 $00 09AA0D 40 PUSH.6 $00 09AA0E 30 03 CD BSR.68K $03CD ; => $09A644 => $099614 09AA11 34 RETURN ; ---------------- End Function $09A9D6 ---------------- ; ---------------- Begin 2144 Function $09AA12 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0976BA:$097730 ; addr bytes opcode operands comment 09AA19 C0 33 70 READ.B $3370 09AA1C 41 PUSH.6 $01 09AA1D 2A EQ.L 09AA1E 18 15 BRZ $015 ; => $09AA35 09AA20 40 PUSH.6 $00 09AA21 3F 10 20 53 54 41 52 54 20 DISP " START LOGGING " 4C 4F 47 47 49 4E 47 20 20 09AA33 10 3A BR $03A ; => $09AA6F 09AA35 C0 29 8F READ.B $298F 09AA38 18 22 BRZ $022 ; => $09AA5C 09AA3A 40 PUSH.6 $00 09AA3B 3F 10 53 54 41 52 54 20 4C DISP "START L1 SURVEY" 31 20 20 53 55 52 56 45 59 09AA4D C0 29 90 READ.B $2990 09AA50 2E NOT.L 09AA51 18 07 BRZ $007 ; => $09AA5A 09AA53 72 PUSH.6 $32 09AA54 90 17 WRITE.B $17 09AA56 47 PUSH.6 $07 09AA57 30 03 B0 BSR.68K $03B0 ; => $09A6AA => $097B72 09AA5A 10 13 BR $013 ; => $09AA6F 09AA5C 40 PUSH.6 $00 09AA5D 3F 10 20 20 53 54 41 52 54 DISP " START SURVEY " 20 53 55 52 56 45 59 20 20 09AA6F 50 PUSH.6 $10 09AA70 3F 10 20 59 45 53 20 20 20 DISP " YES NO " 20 20 20 20 20 4E 4F 20 20 09AA82 30 00 D9 BSR.68K $00D9 ; => $09A9AC 09AA85 67 PUSH.6 $27 09AA86 40 PUSH.6 $00 09AA87 40 PUSH.6 $00 09AA88 6C PUSH.6 $2C 09AA89 40 PUSH.6 $00 09AA8A 40 PUSH.6 $00 09AA8B 40 PUSH.6 $00 09AA8C 40 PUSH.6 $00 09AA8D 30 04 4C BSR.68K $044C ; => $09A644 => $099614 09AA90 34 RETURN ; ---------------- End Function $09AA12 ---------------- ; ---------------- Begin 2144 Function $09AA92 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09A5EA:$09A603 ; addr bytes opcode operands comment 09AA99 30 04 22 BSR.68K $0422 ; => $09A67A => $0034AA (CLEARSCREEN) (NATIVE) 09AA9C C0 29 9A READ.B $299A 09AA9F 44 PUSH.6 $04 09AAA0 03 25 LT.L 09AAA2 18 06 BRZ $006 ; => $09AAAA 09AAA4 45 PUSH.6 $05 09AAA5 3F 03 4D 45 54 DISP "MET" 09AAAA 50 PUSH.6 $10 09AAAB 3F 10 48 45 49 47 48 54 20 DISP "HEIGHT STOP " 20 20 20 20 53 54 4F 50 20 09AABD 40 PUSH.6 $00 09AABE 40 PUSH.6 $00 09AABF 61 PUSH.6 $21 09AAC0 6E PUSH.6 $2E 09AAC1 40 PUSH.6 $00 09AAC2 40 PUSH.6 $00 09AAC3 40 PUSH.6 $00 09AAC4 40 PUSH.6 $00 09AAC5 30 04 84 BSR.68K $0484 ; => $09A644 => $099614 09AAC8 34 RETURN ; ---------------- End Function $09AA92 ---------------- ; ---------------- Begin 2144 Function $09AACA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0976BA:$097738 ; called from $09B096:$09B0D2 ; addr bytes opcode operands comment 09AAD1 C0 33 70 READ.B $3370 09AAD4 41 PUSH.6 $01 09AAD5 2A EQ.L 09AAD6 18 15 BRZ $015 ; => $09AAED 09AAD8 40 PUSH.6 $00 09AAD9 3F 10 20 53 54 4F 50 20 20 DISP " STOP LOGGING " 4C 4F 47 47 49 4E 47 20 20 09AAEB 10 13 BR $013 ; => $09AB00 09AAED 40 PUSH.6 $00 09AAEE 3F 10 20 20 53 54 4F 50 20 DISP " STOP SURVEY " 53 55 52 56 45 59 20 20 20 09AB00 50 PUSH.6 $10 09AB01 3F 10 20 59 45 53 20 20 20 DISP " YES NO " 20 20 20 20 20 4E 4F 20 20 09AB13 30 01 6A BSR.68K $016A ; => $09A9AC 09AB16 67 PUSH.6 $27 09AB17 40 PUSH.6 $00 09AB18 40 PUSH.6 $00 09AB19 6C PUSH.6 $2C 09AB1A 40 PUSH.6 $00 09AB1B 40 PUSH.6 $00 09AB1C 40 PUSH.6 $00 09AB1D 40 PUSH.6 $00 09AB1E 30 04 DD BSR.68K $04DD ; => $09A644 => $099614 09AB21 34 RETURN ; ---------------- End Function $09AACA ---------------- ; ---------------- Begin 2144 Function $09AB22 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $09B0DA:$09B0F7 ; called from $0ACB00:$0ACB82 ; called from $0ACB00:$0ACB8C ; called from $0ACB00:$0ACB96 ; called from $0ACB00:$0ACBA1 ; called from $0ACB00:$0ACBAC ; addr bytes opcode operands comment 09AB29 31 02 SUBSP.B $02 09AB2B 30 04 F0 BSR.68K $04F0 ; => $09A63E => $099642 09AB2E 30 04 B7 BSR.68K $04B7 ; => $09A67A => $0034AA (CLEARSCREEN) (NATIVE) 09AB31 C0 29 9C READ.B $299C 09AB34 18 77 BRZ $077 ; => $09ABAD 09AB36 C0 57 40 READ.B $5740 09AB39 18 4E BRZ $04E ; => $09AB89 09AB3B 86 03 READ.L $03 09AB3D 40 PUSH.6 $00 09AB3E 2A EQ.L 09AB3F 18 24 BRZ $024 ; => $09AB65 09AB41 86 07 READ.L $07 09AB43 18 10 BRZ $010 ; => $09AB55 09AB45 40 PUSH.6 $00 09AB46 3F 0B 20 4D 53 20 4C 31 20 DISP " MS L1 SET2" 53 45 54 32 09AB53 10 0E BR $00E ; => $09AB63 09AB55 40 PUSH.6 $00 09AB56 3F 0B 20 4D 53 20 4C 31 20 DISP " MS L1 SET1" 53 45 54 31 09AB63 10 22 BR $022 ; => $09AB87 09AB65 86 07 READ.L $07 09AB67 18 10 BRZ $010 ; => $09AB79 09AB69 40 PUSH.6 $00 09AB6A 3F 0B 20 4D 53 20 4C 32 20 DISP " MS L2 SET2" 53 45 54 32 09AB77 10 0E BR $00E ; => $09AB87 09AB79 40 PUSH.6 $00 09AB7A 3F 0B 20 4D 53 20 4C 32 20 DISP " MS L2 SET1" 53 45 54 31 09AB87 10 22 BR $022 ; => $09ABAB 09AB89 86 03 READ.L $03 09AB8B 40 PUSH.6 $00 09AB8C 2A EQ.L 09AB8D 18 0F BRZ $00F ; => $09AB9E 09AB8F 40 PUSH.6 $00 09AB90 3F 0A 20 4D 45 41 53 4E 54 DISP " MEASNT L1" 20 4C 31 09AB9C 10 0D BR $00D ; => $09ABAB 09AB9E 40 PUSH.6 $00 09AB9F 3F 0A 20 4D 45 41 53 4E 54 DISP " MEASNT L2" 20 4C 32 09ABAB 10 63 BR $063 ; => $09AC10 09ABAD C0 29 9F READ.B $299F 09ABB0 18 26 BRZ $026 ; => $09ABD8 09ABB2 86 03 READ.L $03 09ABB4 40 PUSH.6 $00 09ABB5 2A EQ.L 09ABB6 18 10 BRZ $010 ; => $09ABC8 09ABB8 40 PUSH.6 $00 09ABB9 3F 0B 20 4D 45 41 53 4E 54 DISP " MEASNT 0-4" 20 30 2D 34 09ABC6 10 0E BR $00E ; => $09ABD6 09ABC8 40 PUSH.6 $00 09ABC9 3F 0B 20 4D 45 41 53 4E 54 DISP " MEASNT 5-9" 20 35 2D 39 09ABD6 10 38 BR $038 ; => $09AC10 09ABD8 C0 57 40 READ.B $5740 09ABDB 18 24 BRZ $024 ; => $09AC01 09ABDD 86 07 READ.L $07 09ABDF 18 10 BRZ $010 ; => $09ABF1 09ABE1 40 PUSH.6 $00 09ABE2 3F 0B 20 4D 45 41 53 20 53 DISP " MEAS SET 2" 45 54 20 32 09ABEF 10 0E BR $00E ; => $09ABFF 09ABF1 40 PUSH.6 $00 09ABF2 3F 0B 20 4D 45 41 53 20 53 DISP " MEAS SET 1" 45 54 20 31 09ABFF 10 0F BR $00F ; => $09AC10 09AC01 40 PUSH.6 $00 09AC02 3F 0C 4D 45 41 53 55 52 45 DISP "MEASUREMENTS" 4D 45 4E 54 53 09AC10 86 07 READ.L $07 09AC12 18 6D BRZ $06D ; => $09AC81 09AC14 40 PUSH.6 $00 09AC15 36 10 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 09AC18 44 PUSH.6 $04 09AC19 38 00 63 BLS.B $0063 ; => $09AC7F 09AC1C 84 08 READ.B $08 09AC1E 86 03 READ.L $03 09AC20 27 ADD.L 09AC21 E1 56 EF READ.W $56EF 09AC24 07 E7 PUSH.10 $3E7 09AC26 03 25 LT.L 09AC28 18 16 BRZ $016 ; => $09AC40 09AC2A 4C PUSH.6 $0C 09AC2B 84 08 READ.B $08 09AC2D 44 PUSH.6 $04 09AC2E 29 MUL.L 09AC2F 27 ADD.L 09AC30 44 PUSH.6 $04 09AC31 84 08 READ.B $08 09AC33 86 03 READ.L $03 09AC35 27 ADD.L 09AC36 E1 56 EF READ.W $56EF 09AC39 03 2A LONG2FLOAT 09AC3B 30 05 E2 BSR.68K $05E2 ; => $09A65C => $097AD2 09AC3E 10 14 BR $014 ; => $09AC54 09AC40 4D PUSH.6 $0D 09AC41 84 08 READ.B $08 09AC43 44 PUSH.6 $04 09AC44 29 MUL.L 09AC45 27 ADD.L 09AC46 43 PUSH.6 $03 09AC47 84 08 READ.B $08 09AC49 86 03 READ.L $03 09AC4B 27 ADD.L 09AC4C E1 56 EF READ.W $56EF 09AC4F 03 2A LONG2FLOAT 09AC51 30 05 F8 BSR.68K $05F8 ; => $09A65C => $097AD2 09AC54 84 08 READ.B $08 09AC56 40 PUSH.6 $00 09AC57 03 25 LT.L 09AC59 84 08 READ.B $08 09AC5B 44 PUSH.6 $04 09AC5C 03 26 GT.L 09AC5E 2C AND.L 09AC5F 18 19 BRZ $019 ; => $09AC7A 09AC61 84 08 READ.B $08 09AC63 86 03 READ.L $03 09AC65 27 ADD.L 09AC66 41 PUSH.6 $01 09AC67 27 ADD.L 09AC68 E1 56 EF READ.W $56EF 09AC6B 07 E7 PUSH.10 $3E7 09AC6D 03 25 LT.L 09AC6F 18 09 BRZ $009 ; => $09AC7A 09AC71 4F PUSH.6 $0F 09AC72 84 08 READ.B $08 09AC74 44 PUSH.6 $04 09AC75 29 MUL.L 09AC76 27 ADD.L 09AC77 30 05 D0 BSR.68K $05D0 ; => $09A6AA => $097B72 09AC7A 37 10 08 00 67 _23d2 $0008, $0067 09AC7F 10 6B BR $06B ; => $09ACEC 09AC81 40 PUSH.6 $00 09AC82 36 10 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 09AC85 44 PUSH.6 $04 09AC86 38 00 63 BLS.B $0063 ; => $09ACEC 09AC89 84 08 READ.B $08 09AC8B 86 03 READ.L $03 09AC8D 27 ADD.L 09AC8E E1 56 DB READ.W $56DB 09AC91 07 E7 PUSH.10 $3E7 09AC93 03 25 LT.L 09AC95 18 16 BRZ $016 ; => $09ACAD 09AC97 4C PUSH.6 $0C 09AC98 84 08 READ.B $08 09AC9A 44 PUSH.6 $04 09AC9B 29 MUL.L 09AC9C 27 ADD.L 09AC9D 44 PUSH.6 $04 09AC9E 84 08 READ.B $08 09ACA0 86 03 READ.L $03 09ACA2 27 ADD.L 09ACA3 E1 56 DB READ.W $56DB 09ACA6 03 2A LONG2FLOAT 09ACA8 30 06 4F BSR.68K $064F ; => $09A65C => $097AD2 09ACAB 10 14 BR $014 ; => $09ACC1 09ACAD 4D PUSH.6 $0D 09ACAE 84 08 READ.B $08 09ACB0 44 PUSH.6 $04 09ACB1 29 MUL.L 09ACB2 27 ADD.L 09ACB3 43 PUSH.6 $03 09ACB4 84 08 READ.B $08 09ACB6 86 03 READ.L $03 09ACB8 27 ADD.L 09ACB9 E1 56 DB READ.W $56DB 09ACBC 03 2A LONG2FLOAT 09ACBE 30 06 65 BSR.68K $0665 ; => $09A65C => $097AD2 09ACC1 84 08 READ.B $08 09ACC3 40 PUSH.6 $00 09ACC4 03 25 LT.L 09ACC6 84 08 READ.B $08 09ACC8 44 PUSH.6 $04 09ACC9 03 26 GT.L 09ACCB 2C AND.L 09ACCC 18 19 BRZ $019 ; => $09ACE7 09ACCE 84 08 READ.B $08 09ACD0 86 03 READ.L $03 09ACD2 27 ADD.L 09ACD3 41 PUSH.6 $01 09ACD4 27 ADD.L 09ACD5 E1 56 DB READ.W $56DB 09ACD8 07 E7 PUSH.10 $3E7 09ACDA 03 25 LT.L 09ACDC 18 09 BRZ $009 ; => $09ACE7 09ACDE 4F PUSH.6 $0F 09ACDF 84 08 READ.B $08 09ACE1 44 PUSH.6 $04 09ACE2 29 MUL.L 09ACE3 27 ADD.L 09ACE4 30 06 3D BSR.68K $063D ; => $09A6AA => $097B72 09ACE7 37 10 08 00 67 _23d2 $0008, $0067 09ACEC 32 0A ADDSP.B $0A 09ACEE 34 RETURN ; ---------------- End Function $09AB22 ---------------- ; ---------------- Begin 2144 Function $09ACF0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09ADDC:$09AEB6 ; called from $09AFC0:$09AFF5 ; addr bytes opcode operands comment 09ACF7 40 PUSH.6 $00 09ACF8 3F 20 42 45 45 50 20 45 41 DISP "BEEP EACH CYCLE YES NO " 43 48 20 43 59 43 4C 45 20 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 09AD1A 67 PUSH.6 $27 09AD1B 40 PUSH.6 $00 09AD1C 40 PUSH.6 $00 09AD1D 6C PUSH.6 $2C 09AD1E 40 PUSH.6 $00 09AD1F 40 PUSH.6 $00 09AD20 40 PUSH.6 $00 09AD21 40 PUSH.6 $00 09AD22 30 06 E1 BSR.68K $06E1 ; => $09A644 => $099614 09AD25 C0 35 90 READ.B $3590 09AD28 18 05 BRZ $005 ; => $09AD2F 09AD2A 6A PUSH.6 $2A 09AD2B 90 0F WRITE.B $0F 09AD2D 10 03 BR $003 ; => $09AD32 09AD2F 6A PUSH.6 $2A 09AD30 90 04 WRITE.B $04 09AD32 34 RETURN ; ---------------- End Function $09ACF0 ---------------- ; ---------------- Begin 2144 Function $09AD34 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09C2AA:$09C31C ; called from $09C2AA:$09C32D ; called from $09C2AA:$09C35E ; called from $09C2AA:$09C367 ; called from $09C2AA:$09C3A3 ; addr bytes opcode operands comment 09AD3B 80 20 READ.B $20 09AD3D 35 SWITCH 09AD3E 20 28 02 04 CASE $02, $04 ; SWITCH $09AD3D 09AD42 86 03 READ.L $03 09AD44 35 SWITCH 09AD45 10 06 00 CASE $00 ; SWITCH $09AD44 09AD48 30 06 E9 BSR.68K $06E9 ; => $09A662 => $09B944 09AD4B 10 15 BR $015 ; => $09AD62 09AD4D 10 06 02 CASE $02 ; SWITCH $09AD44 09AD50 30 06 EB BSR.68K $06EB ; => $09A668 => $09B9B8 09AD53 10 0D BR $00D ; => $09AD62 09AD55 10 0A 0F CASE $0F ; SWITCH $09AD44 09AD58 30 06 B7 BSR.68K $06B7 ; => $09A6A4 => $09B6D2 09AD5B 80 23 READ.B $23 09AD5D 96 03 WRITE.L $03 09AD5F 10 01 BR $001 ; => $09AD62 09AD61 00 DEFAULT ; SWITCH $09AD44 09AD62 86 03 READ.L $03 09AD64 90 23 WRITE.B $23 09AD66 10 01 BR $001 ; => $09AD69 09AD68 00 DEFAULT ; SWITCH $09AD3D 09AD69 32 04 ADDSP.B $04 09AD6B 34 RETURN ; ---------------- End Function $09AD34 ---------------- ; ---------------- Begin 2144 Function $09AD6C ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09C2AA:$09C370 ; called from $09C2AA:$09C379 ; called from $09C2AA:$09C382 ; addr bytes opcode operands comment 09AD73 80 20 READ.B $20 09AD75 35 SWITCH 09AD76 10 09 02 CASE $02 ; SWITCH $09AD75 09AD79 40 PUSH.6 $00 09AD7A 90 23 WRITE.B $23 09AD7C 30 07 1D BSR.68K $071D ; => $09A662 => $09B944 09AD7F 10 32 BR $032 ; => $09ADB3 09AD81 10 2F 04 CASE $04 ; SWITCH $09AD75 09AD84 86 03 READ.L $03 09AD86 90 23 WRITE.B $23 09AD88 86 03 READ.L $03 09AD8A 35 SWITCH 09AD8B 10 07 1F CASE $1F ; SWITCH $09AD8A 09AD8E 42 PUSH.6 $02 09AD8F 30 07 24 BSR.68K $0724 ; => $09A66E => $099844 09AD92 10 1C BR $01C ; => $09ADB0 09AD94 10 0E 02 CASE $02 ; SWITCH $09AD8A 09AD97 04 FF PUSH.10 $0FF 09AD99 D0 32 D5 WRITE.B $32D5 09AD9C 30 07 1F BSR.68K $071F ; => $09A680 => $09BBA2 09AD9F 30 07 3A BSR.68K $073A ; => $09A668 => $09B9B8 09ADA2 10 0C BR $00C ; => $09ADB0 09ADA4 10 09 21 CASE $21 ; SWITCH $09AD8A 09ADA7 C3 35 55 READ.F $3555 09ADAA 30 06 9B BSR.68K $069B ; => $09A712 09ADAD 10 01 BR $001 ; => $09ADB0 09ADAF 00 DEFAULT ; SWITCH $09AD8A 09ADB0 10 01 BR $001 ; => $09ADB3 09ADB2 00 DEFAULT ; SWITCH $09AD75 09ADB3 32 04 ADDSP.B $04 09ADB5 34 RETURN ; ---------------- End Function $09AD6C ---------------- ; ---------------- Begin 2144 Function $09ADB6 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09ADDC:$09ADF6 ; called from $09ADDC:$09AE02 ; called from $09ADDC:$09AE0C ; addr bytes opcode operands comment 09ADBD 86 03 READ.L $03 09ADBF 18 12 BRZ $012 ; => $09ADD3 09ADC1 C0 56 6D READ.B $566D 09ADC4 18 05 BRZ $005 ; => $09ADCB 09ADC6 40 PUSH.6 $00 09ADC7 90 21 WRITE.B $21 09ADC9 10 06 BR $006 ; => $09ADD1 09ADCB 40 PUSH.6 $00 09ADCC 90 23 WRITE.B $23 09ADCE 30 07 6F BSR.68K $076F ; => $09A662 => $09B944 09ADD1 10 06 BR $006 ; => $09ADD9 09ADD3 C3 35 55 READ.F $3555 09ADD6 30 06 C7 BSR.68K $06C7 ; => $09A712 09ADD9 32 04 ADDSP.B $04 09ADDB 34 RETURN ; ---------------- End Function $09ADB6 ---------------- ; ---------------- Begin 2144 Function $09ADDC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C38A ; addr bytes opcode operands comment 09ADE3 31 0A SUBSP.B $0A 09ADE5 80 20 READ.B $20 09ADE7 35 SWITCH 09ADE8 10 27 02 CASE $02 ; SWITCH $09ADE7 09ADEB C0 32 D3 READ.B $32D3 09ADEE 35 SWITCH 09ADEF 10 0A 00 CASE $00 ; SWITCH $09ADEE 09ADF2 80 26 READ.B $26 09ADF4 50 PUSH.6 $10 09ADF5 2A EQ.L 09ADF6 30 00 43 BSR.68K $0043 ; => $09ADB6 09ADF9 10 14 BR $014 ; => $09AE0F 09ADFB 10 0A 01 CASE $01 ; SWITCH $09ADEE 09ADFE 80 26 READ.B $26 09AE00 51 PUSH.6 $11 09AE01 2A EQ.L 09AE02 30 00 4F BSR.68K $004F ; => $09ADB6 09AE05 10 08 BR $008 ; => $09AE0F 09AE07 00 DEFAULT ; SWITCH $09ADEE 09AE08 80 26 READ.B $26 09AE0A 52 PUSH.6 $12 09AE0B 2A EQ.L 09AE0C 30 00 59 BSR.68K $0059 ; => $09ADB6 09AE0F 11 8A BR $18A ; => $09AF9B 09AE11 10 AB 04 CASE $04 ; SWITCH $09ADE7 09AE14 C0 32 D3 READ.B $32D3 09AE17 40 PUSH.6 $00 09AE18 2A EQ.L 09AE19 18 1D BRZ $01D ; => $09AE38 09AE1B 50 PUSH.6 $10 09AE1C 57 PUSH.6 $17 09AE1D 30 07 CA BSR.68K $07CA ; => $09A656 => $09E02C 09AE20 3B 40 C3 88 00 00 00 00 00 PUSH.F $40C3880000000000 ; float = 10000.000000 09AE29 23 DIV.F 09AE2A 3B 3F 9A 02 75 25 46 0A A6 PUSH.F $3F9A027525460AA6 ; float = 0.025400 09AE33 22 MUL.F 09AE34 97 09 WRITE.F $09 09AE36 10 35 BR $035 ; => $09AE6D 09AE38 C0 32 D3 READ.B $32D3 09AE3B 41 PUSH.6 $01 09AE3C 2A EQ.L 09AE3D 18 1D BRZ $01D ; => $09AE5C 09AE3F 51 PUSH.6 $11 09AE40 57 PUSH.6 $17 09AE41 30 07 EE BSR.68K $07EE ; => $09A656 => $09E02C 09AE44 3B 40 C3 88 00 00 00 00 00 PUSH.F $40C3880000000000 ; float = 10000.000000 09AE4D 23 DIV.F 09AE4E 3B 3F D3 81 D7 DB F4 87 FD PUSH.F $3FD381D7DBF487FD ; float = 0.304800 09AE57 22 MUL.F 09AE58 97 09 WRITE.F $09 09AE5A 10 11 BR $011 ; => $09AE6D 09AE5C 52 PUSH.6 $12 09AE5D 57 PUSH.6 $17 09AE5E 30 08 0B BSR.68K $080B ; => $09A656 => $09E02C 09AE61 3B 40 C3 88 00 00 00 00 00 PUSH.F $40C3880000000000 ; float = 10000.000000 09AE6A 23 DIV.F 09AE6B 97 09 WRITE.F $09 09AE6D 87 09 READ.F $09 09AE6F 3B 40 58 FF FE 5C 91 D1 4E PUSH.F $4058FFFE5C91D14E ; float = 99.999900 09AE78 24 GT.F 09AE79 18 08 BRZ $008 ; => $09AE83 09AE7B C3 35 55 READ.F $3555 09AE7E 30 07 6F BSR.68K $076F ; => $09A712 09AE81 10 39 BR $039 ; => $09AEBC 09AE83 87 09 READ.F $09 09AE85 D3 35 55 WRITE.F $3555 09AE88 C0 56 6D READ.B $566D 09AE8B 18 19 BRZ $019 ; => $09AEA6 09AE8D 40 PUSH.6 $00 09AE8E 90 21 WRITE.B $21 09AE90 C0 29 72 READ.B $2972 09AE93 18 06 BRZ $006 ; => $09AE9B 09AE95 40 PUSH.6 $00 09AE96 D1 60 A7 WRITE.W $60A7 09AE99 10 09 BR $009 ; => $09AEA4 09AE9B 3E PUSH.W $0000 09AE9C D3 56 BF WRITE.F $56BF 09AE9F 04 FF PUSH.10 $0FF 09AEA1 D0 60 BD WRITE.B $60BD 09AEA4 10 16 BR $016 ; => $09AEBC 09AEA6 C0 32 D5 READ.B $32D5 09AEA9 E0 31 D3 READ.B $31D3 09AEAC 18 08 BRZ $008 ; => $09AEB6 09AEAE 30 06 C1 BSR.68K $06C1 ; => $09A7F0 09AEB1 62 PUSH.6 $22 09AEB2 90 23 WRITE.B $23 09AEB4 10 06 BR $006 ; => $09AEBC 09AEB6 30 01 C9 BSR.68K $01C9 ; => $09ACF0 09AEB9 63 PUSH.6 $23 09AEBA 90 23 WRITE.B $23 09AEBC 10 DD BR $0DD ; => $09AF9B 09AEBE 10 3F 10 CASE $10 ; SWITCH $09ADE7 09AEC1 80 26 READ.B $26 09AEC3 35 SWITCH 09AEC4 10 03 10 CASE $10 ; SWITCH $09AEC3 09AEC7 10 34 BR $034 ; => $09AEFD 09AEC9 10 10 11 CASE $11 ; SWITCH $09AEC3 09AECC C0 32 D3 READ.B $32D3 09AECF 40 PUSH.6 $00 09AED0 2A EQ.L 09AED1 18 06 BRZ $006 ; => $09AED9 09AED3 80 26 READ.B $26 09AED5 41 PUSH.6 $01 09AED6 28 SUB.L 09AED7 90 26 WRITE.B $26 09AED9 10 22 BR $022 ; => $09AEFD 09AEDB 10 11 12 CASE $12 ; SWITCH $09AEC3 09AEDE C0 32 D3 READ.B $32D3 09AEE1 42 PUSH.6 $02 09AEE2 03 26 GT.L 09AEE4 18 06 BRZ $006 ; => $09AEEC 09AEE6 80 26 READ.B $26 09AEE8 41 PUSH.6 $01 09AEE9 28 SUB.L 09AEEA 90 26 WRITE.B $26 09AEEC 10 0F BR $00F ; => $09AEFD 09AEEE 10 06 20 CASE $20 ; SWITCH $09AEC3 09AEF1 57 PUSH.6 $17 09AEF2 90 26 WRITE.B $26 09AEF4 10 07 BR $007 ; => $09AEFD 09AEF6 00 DEFAULT ; SWITCH $09AEC3 09AEF7 80 26 READ.B $26 09AEF9 41 PUSH.6 $01 09AEFA 28 SUB.L 09AEFB 90 26 WRITE.B $26 09AEFD 10 9C BR $09C ; => $09AF9B 09AEFF 10 12 50 CASE $50 ; SWITCH $09ADE7 09AF02 80 26 READ.B $26 09AF04 35 SWITCH 09AF05 10 03 17 CASE $17 ; SWITCH $09AF04 09AF08 10 07 BR $007 ; => $09AF11 09AF0A 00 DEFAULT ; SWITCH $09AF04 09AF0B 80 26 READ.B $26 09AF0D 41 PUSH.6 $01 09AF0E 27 ADD.L 09AF0F 90 26 WRITE.B $26 09AF11 10 88 BR $088 ; => $09AF9B 09AF13 10 85 D0 CASE $D0 ; SWITCH $09ADE7 09AF16 45 PUSH.6 $05 09AF17 D0 4E 65 WRITE.B $4E65 09AF1A C0 32 D3 READ.B $32D3 09AF1D 40 PUSH.6 $00 09AF1E 2A EQ.L 09AF1F 18 1D BRZ $01D ; => $09AF3E 09AF21 50 PUSH.6 $10 09AF22 57 PUSH.6 $17 09AF23 30 08 D0 BSR.68K $08D0 ; => $09A656 => $09E02C 09AF26 3B 40 C3 88 00 00 00 00 00 PUSH.F $40C3880000000000 ; float = 10000.000000 09AF2F 23 DIV.F 09AF30 3B 3F 9A 02 75 25 46 0A A6 PUSH.F $3F9A027525460AA6 ; float = 0.025400 09AF39 22 MUL.F 09AF3A 97 09 WRITE.F $09 09AF3C 10 35 BR $035 ; => $09AF73 09AF3E C0 32 D3 READ.B $32D3 09AF41 41 PUSH.6 $01 09AF42 2A EQ.L 09AF43 18 1D BRZ $01D ; => $09AF62 09AF45 51 PUSH.6 $11 09AF46 57 PUSH.6 $17 09AF47 30 08 F4 BSR.68K $08F4 ; => $09A656 => $09E02C 09AF4A 3B 40 C3 88 00 00 00 00 00 PUSH.F $40C3880000000000 ; float = 10000.000000 09AF53 23 DIV.F 09AF54 3B 3F D3 81 D7 DB F4 87 FD PUSH.F $3FD381D7DBF487FD ; float = 0.304800 09AF5D 22 MUL.F 09AF5E 97 09 WRITE.F $09 09AF60 10 11 BR $011 ; => $09AF73 09AF62 52 PUSH.6 $12 09AF63 57 PUSH.6 $17 09AF64 30 09 11 BSR.68K $0911 ; => $09A656 => $09E02C 09AF67 3B 40 C3 88 00 00 00 00 00 PUSH.F $40C3880000000000 ; float = 10000.000000 09AF70 23 DIV.F 09AF71 97 09 WRITE.F $09 09AF73 C0 32 D3 READ.B $32D3 09AF76 41 PUSH.6 $01 09AF77 27 ADD.L 09AF78 43 PUSH.6 $03 09AF79 2F MOD.L 09AF7A D0 32 D3 WRITE.B $32D3 09AF7D 87 09 READ.F $09 09AF7F 3B 40 58 FF FE 5C 91 D1 4E PUSH.F $4058FFFE5C91D14E ; float = 99.999900 09AF88 24 GT.F 09AF89 18 08 BRZ $008 ; => $09AF93 09AF8B C3 35 55 READ.F $3555 09AF8E 30 08 7F BSR.68K $087F ; => $09A712 09AF91 10 05 BR $005 ; => $09AF98 09AF93 87 09 READ.F $09 09AF95 30 08 86 BSR.68K $0886 ; => $09A712 09AF98 10 01 BR $001 ; => $09AF9B 09AF9A 00 DEFAULT ; SWITCH $09ADE7 09AF9B 80 26 READ.B $26 09AF9D 58 PUSH.6 $18 09AF9E 03 26 GT.L 09AFA0 18 05 BRZ $005 ; => $09AFA7 09AFA2 30 09 5B BSR.68K $095B ; => $09A64A => $09DFB4 09AFA5 94 00 WRITE.B $00 09AFA7 80 26 READ.B $26 09AFA9 35 SWITCH 09AFAA 10 06 18 CASE $18 ; SWITCH $09AFA9 09AFAD 60 PUSH.6 $20 09AFAE 90 26 WRITE.B $26 09AFB0 10 0A BR $00A ; => $09AFBC 09AFB2 10 07 14 CASE $14 ; SWITCH $09AFA9 09AFB5 53 PUSH.6 $13 09AFB6 30 09 45 BSR.68K $0945 ; => $09A674 => $097B5C 09AFB9 10 01 BR $001 ; => $09AFBC 09AFBB 00 DEFAULT ; SWITCH $09AFA9 09AFBC 32 0A ADDSP.B $0A 09AFBE 34 RETURN ; ---------------- End Function $09ADDC ---------------- ; ---------------- Begin 2144 Function $09AFC0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C392 ; addr bytes opcode operands comment 09AFC7 31 02 SUBSP.B $02 09AFC9 80 20 READ.B $20 09AFCB 35 SWITCH 09AFCC 10 14 02 CASE $02 ; SWITCH $09AFCB 09AFCF 80 26 READ.B $26 09AFD1 59 PUSH.6 $19 09AFD2 2A EQ.L 09AFD3 18 08 BRZ $008 ; => $09AFDD 09AFD5 40 PUSH.6 $00 09AFD6 90 23 WRITE.B $23 09AFD8 30 09 79 BSR.68K $0979 ; => $09A662 => $09B944 09AFDB 10 03 BR $003 ; => $09AFE0 09AFDD 30 07 F0 BSR.68K $07F0 ; => $09A7F0 09AFE0 10 49 BR $049 ; => $09B02B 09AFE2 10 16 04 CASE $04 ; SWITCH $09AFCB 09AFE5 C0 32 D5 READ.B $32D5 09AFE8 59 PUSH.6 $19 09AFE9 5E PUSH.6 $1E 09AFEA 30 09 97 BSR.68K $0997 ; => $09A656 => $09E02C 09AFED 03 29 FLOAT2LONG 09AFEF F2 32 9B WRITE.L $329B 09AFF2 63 PUSH.6 $23 09AFF3 90 23 WRITE.B $23 09AFF5 30 03 08 BSR.68K $0308 ; => $09ACF0 09AFF8 10 31 BR $031 ; => $09B02B 09AFFA 10 1A 10 CASE $10 ; SWITCH $09AFCB 09AFFD 80 26 READ.B $26 09AFFF 35 SWITCH 09B000 10 03 19 CASE $19 ; SWITCH $09AFFF 09B003 10 0F BR $00F ; => $09B014 09B005 10 06 20 CASE $20 ; SWITCH $09AFFF 09B008 5E PUSH.6 $1E 09B009 90 26 WRITE.B $26 09B00B 10 07 BR $007 ; => $09B014 09B00D 00 DEFAULT ; SWITCH $09AFFF 09B00E 80 26 READ.B $26 09B010 41 PUSH.6 $01 09B011 28 SUB.L 09B012 90 26 WRITE.B $26 09B014 10 15 BR $015 ; => $09B02B 09B016 10 12 50 CASE $50 ; SWITCH $09AFCB 09B019 80 26 READ.B $26 09B01B 35 SWITCH 09B01C 10 03 1E CASE $1E ; SWITCH $09B01B 09B01F 10 07 BR $007 ; => $09B028 09B021 00 DEFAULT ; SWITCH $09B01B 09B022 80 26 READ.B $26 09B024 41 PUSH.6 $01 09B025 27 ADD.L 09B026 90 26 WRITE.B $26 09B028 10 01 BR $001 ; => $09B02B 09B02A 00 DEFAULT ; SWITCH $09AFCB 09B02B 80 26 READ.B $26 09B02D 5F PUSH.6 $1F 09B02E 03 26 GT.L 09B030 18 05 BRZ $005 ; => $09B037 09B032 30 09 EB BSR.68K $09EB ; => $09A64A => $09DFB4 09B035 94 00 WRITE.B $00 09B037 80 26 READ.B $26 09B039 35 SWITCH 09B03A 10 06 1F CASE $1F ; SWITCH $09B039 09B03D 60 PUSH.6 $20 09B03E 90 26 WRITE.B $26 09B040 10 01 BR $001 ; => $09B043 09B042 00 DEFAULT ; SWITCH $09B039 09B043 32 02 ADDSP.B $02 09B045 34 RETURN ; ---------------- End Function $09AFC0 ---------------- ; ---------------- Begin 2144 Function $09B046 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09C2AA:$09C3AC ; called from $09C2AA:$09C3B5 ; addr bytes opcode operands comment 09B04D 80 20 READ.B $20 09B04F 35 SWITCH 09B050 10 34 10 CASE $10 ; SWITCH $09B04F 09B053 86 03 READ.L $03 09B055 66 PUSH.6 $26 09B056 2A EQ.L 09B057 18 06 BRZ $006 ; => $09B05F 09B059 86 03 READ.L $03 09B05B 90 23 WRITE.B $23 09B05D 10 21 BR $021 ; => $09B080 09B05F 04 FF PUSH.10 $0FF 09B061 D0 56 6D WRITE.B $566D 09B064 30 09 DB BSR.68K $09DB ; => $09A68C => $09B16A 09B067 C0 54 2C READ.B $542C 09B06A 40 PUSH.6 $00 09B06B 2A EQ.L 09B06C 18 03 BRZ $003 ; => $09B071 09B06E 30 09 EB BSR.68K $09EB ; => $09A686 => $09B386 09B071 40 PUSH.6 $00 09B072 D0 29 00 WRITE.B $2900 09B075 40 PUSH.6 $00 09B076 D0 28 A8 WRITE.B $28A8 09B079 40 PUSH.6 $00 09B07A D0 28 AA WRITE.B $28AA 09B07D 40 PUSH.6 $00 09B07E 90 21 WRITE.B $21 09B080 86 03 READ.L $03 09B082 90 23 WRITE.B $23 09B084 10 0D BR $00D ; => $09B093 09B086 20 0A D0 02 CASE $D0, $02 ; SWITCH $09B04F 09B08A 40 PUSH.6 $00 09B08B 90 23 WRITE.B $23 09B08D 30 0A 2E BSR.68K $0A2E ; => $09A662 => $09B944 09B090 10 01 BR $001 ; => $09B093 09B092 00 DEFAULT ; SWITCH $09B04F 09B093 32 04 ADDSP.B $04 09B095 34 RETURN ; ---------------- End Function $09B046 ---------------- ; ---------------- Begin 2144 Function $09B096 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C3BD ; addr bytes opcode operands comment 09B09D 80 20 READ.B $20 09B09F 35 SWITCH 09B0A0 10 06 02 CASE $02 ; SWITCH $09B09F 09B0A3 40 PUSH.6 $00 09B0A4 90 21 WRITE.B $21 09B0A6 10 30 BR $030 ; => $09B0D8 09B0A8 10 0C 10 CASE $10 ; SWITCH $09B09F 09B0AB 61 PUSH.6 $21 09B0AC 90 23 WRITE.B $23 09B0AE C3 35 55 READ.F $3555 09B0B1 30 09 A2 BSR.68K $09A2 ; => $09A712 09B0B4 10 22 BR $022 ; => $09B0D8 09B0B6 10 14 50 CASE $50 ; SWITCH $09B09F 09B0B9 C0 29 9A READ.B $299A 09B0BC 44 PUSH.6 $04 09B0BD 03 25 LT.L 09B0BF 18 09 BRZ $009 ; => $09B0CA 09B0C1 7C PUSH.6 $3C 09B0C2 90 23 WRITE.B $23 09B0C4 30 0A 17 BSR.68K $0A17 ; => $09A6B0 => $09EFF0 09B0C7 43 PUSH.6 $03 09B0C8 90 26 WRITE.B $26 09B0CA 10 0C BR $00C ; => $09B0D8 09B0CC 10 09 D0 CASE $D0 ; SWITCH $09B09F 09B0CF 69 PUSH.6 $29 09B0D0 90 23 WRITE.B $23 09B0D2 30 06 0B BSR.68K $060B ; => $09AACA 09B0D5 10 01 BR $001 ; => $09B0D8 09B0D7 00 DEFAULT ; SWITCH $09B09F 09B0D8 34 RETURN ; ---------------- End Function $09B096 ---------------- ; ---------------- Begin 2144 Function $09B0DA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C3C5 ; addr bytes opcode operands comment 09B0E1 80 20 READ.B $20 09B0E3 35 SWITCH 09B0E4 20 07 02 D0 CASE $02, $D0 ; SWITCH $09B0E3 09B0E8 40 PUSH.6 $00 09B0E9 90 21 WRITE.B $21 09B0EB 10 13 BR $013 ; => $09B100 09B0ED 10 10 10 CASE $10 ; SWITCH $09B0E3 09B0F0 04 FF PUSH.10 $0FF 09B0F2 30 0A 63 BSR.68K $0A63 ; => $09A692 => $0ABCF4 09B0F5 40 PUSH.6 $00 09B0F6 40 PUSH.6 $00 09B0F7 30 05 D8 BSR.68K $05D8 ; => $09AB22 09B0FA 4C PUSH.6 $0C 09B0FB 90 21 WRITE.B $21 09B0FD 10 01 BR $001 ; => $09B100 09B0FF 00 DEFAULT ; SWITCH $09B0E3 09B100 34 RETURN ; ---------------- End Function $09B0DA ---------------- ; ---------------- Begin 2144 Function $09B102 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C39A ; addr bytes opcode operands comment 09B109 80 20 READ.B $20 09B10B 35 SWITCH 09B10C 10 09 02 CASE $02 ; SWITCH $09B10B 09B10F 40 PUSH.6 $00 09B110 90 23 WRITE.B $23 09B112 30 0A B3 BSR.68K $0AB3 ; => $09A662 => $09B944 09B115 10 45 BR $045 ; => $09B15C 09B117 30 42 10 D0 04 CASE $10, $D0, $04 ; SWITCH $09B10B 09B11C 80 20 READ.B $20 09B11E 50 PUSH.6 $10 09B11F 2A EQ.L 09B120 18 07 BRZ $007 ; => $09B129 09B122 04 FF PUSH.10 $0FF 09B124 D0 35 90 WRITE.B $3590 09B127 10 0B BR $00B ; => $09B134 09B129 80 20 READ.B $20 09B12B 04 D0 PUSH.10 $0D0 09B12D 2A EQ.L 09B12E 18 04 BRZ $004 ; => $09B134 09B130 40 PUSH.6 $00 09B131 D0 35 90 WRITE.B $3590 09B134 C0 32 D5 READ.B $32D5 09B137 E0 33 0B READ.B $330B 09B13A C0 32 D5 READ.B $32D5 09B13D E0 33 3D READ.B $333D 09B140 C0 32 D5 READ.B $32D5 09B143 E1 33 D5 READ.W $33D5 09B146 30 09 21 BSR.68K $0921 ; => $09A828 09B149 30 0A B4 BSR.68K $0AB4 ; => $09A698 => $09F7D6 09B14C 42 PUSH.6 $02 09B14D 03 26 GT.L 09B14F 18 05 BRZ $005 ; => $09B156 09B151 4C PUSH.6 $0C 09B152 90 21 WRITE.B $21 09B154 10 03 BR $003 ; => $09B159 09B156 64 PUSH.6 $24 09B157 90 23 WRITE.B $23 09B159 10 01 BR $001 ; => $09B15C 09B15B 00 DEFAULT ; SWITCH $09B10B 09B15C 34 RETURN ; ---------------- End Function $09B102 ---------------- ; ---------------- Begin 2144 Function $09B16A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09B046:$09B064 ; called from $09B35C:$09B37C ; called from $0A7770:$0A77BD ; called from $0ABCF4:$0ABD87 ; addr bytes opcode operands comment 09B171 31 02 SUBSP.B $02 09B173 41 PUSH.6 $01 09B174 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09B177 60 PUSH.6 $20 09B178 38 00 0B BLS.B $000B ; => $09B186 09B17B 84 00 READ.B $00 09B17D 40 PUSH.6 $00 09B17E F0 56 93 WRITE.B $5693 09B181 37 10 00 00 0F _23d2 $0000, $000F 09B186 40 PUSH.6 $00 09B187 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09B18A 49 PUSH.6 $09 09B18B 38 00 2F BLS.B $002F ; => $09B1BD 09B18E 84 00 READ.B $00 09B190 40 PUSH.6 $00 09B191 F0 56 9D WRITE.B $569D 09B194 84 00 READ.B $00 09B196 40 PUSH.6 $00 09B197 F1 57 03 WRITE.W $5703 09B19A 84 00 READ.B $00 09B19C 40 PUSH.6 $00 09B19D F1 57 17 WRITE.W $5717 09B1A0 84 00 READ.B $00 09B1A2 40 PUSH.6 $00 09B1A3 F1 57 2B WRITE.W $572B 09B1A6 84 00 READ.B $00 09B1A8 40 PUSH.6 $00 09B1A9 F1 57 3F WRITE.W $573F 09B1AC 84 00 READ.B $00 09B1AE 40 PUSH.6 $00 09B1AF F1 56 DB WRITE.W $56DB 09B1B2 84 00 READ.B $00 09B1B4 40 PUSH.6 $00 09B1B5 F1 56 EF WRITE.W $56EF 09B1B8 37 10 00 00 33 _23d2 $0000, $0033 09B1BD 40 PUSH.6 $00 09B1BE D0 56 9E WRITE.B $569E 09B1C1 40 PUSH.6 $00 09B1C2 D0 57 40 WRITE.B $5740 09B1C5 C0 35 4D READ.B $354D 09B1C8 40 PUSH.6 $00 09B1C9 2A EQ.L 09B1CA C0 35 4D READ.B $354D 09B1CD 46 PUSH.6 $06 09B1CE 2A EQ.L 09B1CF 2D OR.L 09B1D0 18 15 BRZ $015 ; => $09B1E7 09B1D2 40 PUSH.6 $00 09B1D3 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09B1D6 C0 29 9B READ.B $299B 09B1D9 38 00 0B BLS.B $000B ; => $09B1E7 09B1DC 84 00 READ.B $00 09B1DE 40 PUSH.6 $00 09B1DF F0 35 C3 WRITE.B $35C3 09B1E2 37 10 00 00 11 _23d2 $0000, $0011 09B1E7 C0 32 D5 READ.B $32D5 09B1EA E0 2E 1D READ.B $2E1D 09B1ED 18 06 BRZ $006 ; => $09B1F5 09B1EF 41 PUSH.6 $01 09B1F0 D0 35 4D WRITE.B $354D 09B1F3 10 04 BR $004 ; => $09B1F9 09B1F5 42 PUSH.6 $02 09B1F6 D0 35 4D WRITE.B $354D 09B1F9 3E PUSH.W $0000 09B1FA D3 56 A7 WRITE.F $56A7 09B1FD 3C 27 0F PUSH.W $270F 09B200 D1 56 AB WRITE.W $56AB 09B203 3C 27 0F PUSH.W $270F 09B206 D1 56 AD WRITE.W $56AD 09B209 3E PUSH.W $0000 09B20A D3 56 B7 WRITE.F $56B7 09B20D 3E PUSH.W $0000 09B20E D3 56 BF WRITE.F $56BF 09B211 40 PUSH.6 $00 09B212 D0 58 66 WRITE.B $5866 09B215 C0 32 D4 READ.B $32D4 09B218 D0 32 D8 WRITE.B $32D8 09B21B C0 32 D5 READ.B $32D5 09B21E D0 32 D9 WRITE.B $32D9 09B221 C0 32 D5 READ.B $32D5 09B224 E0 33 0B READ.B $330B 09B227 C0 32 D5 READ.B $32D5 09B22A E1 33 D5 READ.W $33D5 09B22D 40 PUSH.6 $00 09B22E 2A EQ.L 09B22F 2D OR.L 09B230 18 06 BRZ $006 ; => $09B238 09B232 41 PUSH.6 $01 09B233 D0 33 70 WRITE.B $3370 09B236 10 04 BR $004 ; => $09B23C 09B238 40 PUSH.6 $00 09B239 D0 33 70 WRITE.B $3370 09B23C 40 PUSH.6 $00 09B23D D1 29 0F WRITE.W $290F 09B240 40 PUSH.6 $00 09B241 D0 4E 71 WRITE.B $4E71 09B244 3E PUSH.W $0000 09B245 D3 5F C3 WRITE.F $5FC3 09B248 3E PUSH.W $0000 09B249 D3 5F CB WRITE.F $5FCB 09B24C 3E PUSH.W $0000 09B24D D3 5F D3 WRITE.F $5FD3 09B250 3B 40 C3 87 80 00 00 00 00 PUSH.F $40C3878000000000 ; float = 9999.000000 09B259 D3 5F DB WRITE.F $5FDB 09B25C 3E PUSH.W $0000 09B25D D3 5F E3 WRITE.F $5FE3 09B260 3E PUSH.W $0000 09B261 D3 5F EB WRITE.F $5FEB 09B264 3B 40 C3 87 80 00 00 00 00 PUSH.F $40C3878000000000 ; float = 9999.000000 09B26D D3 5F F3 WRITE.F $5FF3 09B270 3E PUSH.W $0000 09B271 D3 5F FB WRITE.F $5FFB 09B274 3E PUSH.W $0000 09B275 D3 60 03 WRITE.F $6003 09B278 3E PUSH.W $0000 09B279 D3 60 0B WRITE.F $600B 09B27C 40 PUSH.6 $00 09B27D D1 60 0D WRITE.W $600D 09B280 3E PUSH.W $0000 09B281 D3 60 15 WRITE.F $6015 09B284 3E PUSH.W $0000 09B285 D3 60 1D WRITE.F $601D 09B288 40 PUSH.6 $00 09B289 D1 60 1F WRITE.W $601F 09B28C C0 32 D4 READ.B $32D4 09B28F E3 2B 57 READ.F $2B57 09B292 3E PUSH.W $0000 09B293 03 23 NEQ.F 09B295 C0 32 D4 READ.B $32D4 09B298 E3 2C 47 READ.F $2C47 09B29B 3E PUSH.W $0000 09B29C 03 23 NEQ.F 09B29E 2D OR.L 09B29F D0 56 C6 WRITE.B $56C6 09B2A2 40 PUSH.6 $00 09B2A3 D0 56 C5 WRITE.B $56C5 09B2A6 40 PUSH.6 $00 09B2A7 D0 60 AC WRITE.B $60AC 09B2AA 40 PUSH.6 $00 09B2AB D1 60 AB WRITE.W $60AB 09B2AE 40 PUSH.6 $00 09B2AF D1 60 B1 WRITE.W $60B1 09B2B2 41 PUSH.6 $01 09B2B3 D1 60 A5 WRITE.W $60A5 09B2B6 40 PUSH.6 $00 09B2B7 D1 60 A9 WRITE.W $60A9 09B2BA 40 PUSH.6 $00 09B2BB D1 60 A7 WRITE.W $60A7 09B2BE 40 PUSH.6 $00 09B2BF D0 60 AE WRITE.B $60AE 09B2C2 40 PUSH.6 $00 09B2C3 D0 60 B2 WRITE.B $60B2 09B2C6 40 PUSH.6 $00 09B2C7 D0 60 B3 WRITE.B $60B3 09B2CA 04 FF PUSH.10 $0FF 09B2CC D0 60 B4 WRITE.B $60B4 09B2CF 04 FF PUSH.10 $0FF 09B2D1 D0 60 B5 WRITE.B $60B5 09B2D4 C0 29 72 READ.B $2972 09B2D7 18 41 BRZ $041 ; => $09B31A 09B2D9 C0 29 64 READ.B $2964 09B2DC D0 35 56 WRITE.B $3556 09B2DF C0 29 6D READ.B $296D 09B2E2 D0 35 57 WRITE.B $3557 09B2E5 C0 29 6C READ.B $296C 09B2E8 D0 35 58 WRITE.B $3558 09B2EB 40 PUSH.6 $00 09B2EC D0 29 64 WRITE.B $2964 09B2EF 60 PUSH.6 $20 09B2F0 D0 29 6D WRITE.B $296D 09B2F3 04 88 PUSH.10 $088 09B2F5 D0 29 6C WRITE.B $296C 09B2F8 02 FF INLINE PAD 09B2FA 11 F9 00 01 56 92 move.b $1.w, $5692.w 09B300 C0 1B and.b (A3)+, D0 09B302 11 F9 00 01 56 93 move.b $1.w, $5693.w 09B308 C0 17 and.b (A7), D0 09B30A 4B FA 00 04 lea ($0004,PC), A5 09B30E 4E 75 rts 09B310 04 55 PUSH.10 $055 09B312 30 01 B1 BSR.68K $01B1 ; => $09B164 => $0A050E (NATIVE) 09B315 04 4A PUSH.10 $04A 09B317 30 01 B6 BSR.68K $01B6 ; => $09B164 => $0A050E (NATIVE) 09B31A 3C 27 92 PUSH.W $2792 09B31D D1 60 B9 WRITE.W $60B9 09B320 32 02 ADDSP.B $02 09B322 34 RETURN ; ---------------- End Function $09B16A ---------------- ; ---------------- Begin 2144 Function $09B324 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09B35C:$09B379 ; called from $09B500:$09B549 ; addr bytes opcode operands comment 09B32B C0 29 72 READ.B $2972 09B32E 18 2A BRZ $02A ; => $09B35A 09B330 C0 35 56 READ.B $3556 09B333 D0 29 64 WRITE.B $2964 09B336 C0 35 57 READ.B $3557 09B339 D0 29 6D WRITE.B $296D 09B33C C0 35 58 READ.B $3558 09B33F D0 29 6C WRITE.B $296C 09B342 02 FF INLINE PAD 09B344 11 F9 00 01 56 92 move.b $1.w, $5692.w 09B34A C0 1B and.b (A3)+, D0 09B34C 11 F9 00 01 56 93 move.b $1.w, $5693.w 09B352 C0 17 and.b (A7), D0 09B354 4B FA 00 04 lea ($0004,PC), A5 09B358 4E 75 rts 09B35A 34 RETURN ; ---------------- End Function $09B324 ---------------- ; ---------------- Begin 2144 Function $09B35C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000E66:$000F69 ; addr bytes opcode operands comment 09B363 C0 35 4D READ.B $354D 09B366 40 PUSH.6 $00 09B367 2B NEQ.L 09B368 C0 35 4D READ.B $354D 09B36B 46 PUSH.6 $06 09B36C 2B NEQ.L 09B36D 2C AND.L 09B36E 18 11 BRZ $011 ; => $09B381 09B370 04 FF PUSH.10 $0FF 09B372 D0 56 6D WRITE.B $566D 09B375 4A PUSH.6 $0A 09B376 D0 55 70 WRITE.B $5570 09B379 30 00 58 BSR.68K $0058 ; => $09B324 09B37C 30 02 15 BSR.68K $0215 ; => $09B16A 09B37F 10 04 BR $004 ; => $09B385 09B381 40 PUSH.6 $00 09B382 D0 35 4D WRITE.B $354D 09B385 34 RETURN ; ---------------- End Function $09B35C ---------------- ; ---------------- Begin 2144 Function $09B386 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $092E8E:$092FB3 ; called from $09B046:$09B06E ; called from $0A7770:$0A77C7 ; called from $0ABCF4:$0ABD97 ; called from $0ABFB6:$0AC061 ; addr bytes opcode operands comment 09B38D 31 02 SUBSP.B $02 09B38F C0 32 D5 READ.B $32D5 09B392 E0 2F 7B READ.B $2F7B 09B395 18 90 BRZ $090 ; => $09B427 09B397 40 PUSH.6 $00 09B398 D0 28 FF WRITE.B $28FF 09B39B 40 PUSH.6 $00 09B39C 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09B39F C0 29 9B READ.B $299B 09B3A2 38 00 80 BLS.B $0080 ; => $09B425 09B3A5 84 00 READ.B $00 09B3A7 C0 32 D5 READ.B $32D5 09B3AA 4A PUSH.6 $0A 09B3AB 29 MUL.L 09B3AC 84 00 READ.B $00 09B3AE 27 ADD.L 09B3AF E0 31 6F READ.B $316F 09B3B2 F0 29 0B WRITE.B $290B 09B3B5 C0 29 9F READ.B $299F 09B3B8 2E NOT.L 09B3B9 C0 29 8F READ.B $298F 09B3BC C0 29 90 READ.B $2990 09B3BF 2E NOT.L 09B3C0 2C AND.L 09B3C1 2D OR.L 09B3C2 18 5C BRZ $05C ; => $09B420 09B3C4 84 00 READ.B $00 09B3C6 E0 29 0B READ.B $290B 09B3C9 40 PUSH.6 $00 09B3CA 2A EQ.L 09B3CB 84 00 READ.B $00 09B3CD E0 35 C3 READ.B $35C3 09B3D0 2D OR.L 09B3D1 18 1B BRZ $01B ; => $09B3EE 09B3D3 84 00 READ.B $00 09B3D5 C0 32 D5 READ.B $32D5 09B3D8 4A PUSH.6 $0A 09B3D9 29 MUL.L 09B3DA 84 00 READ.B $00 09B3DC C0 29 A0 READ.B $29A0 09B3DF 27 ADD.L 09B3E0 27 ADD.L 09B3E1 E0 31 6F READ.B $316F 09B3E4 F0 29 0B WRITE.B $290B 09B3E7 84 00 READ.B $00 09B3E9 04 FF PUSH.10 $0FF 09B3EB F0 35 C3 WRITE.B $35C3 09B3EE C0 32 D5 READ.B $32D5 09B3F1 4A PUSH.6 $0A 09B3F2 29 MUL.L 09B3F3 84 00 READ.B $00 09B3F5 C0 29 A0 READ.B $29A0 09B3F8 27 ADD.L 09B3F9 27 ADD.L 09B3FA E0 31 6F READ.B $316F 09B3FD C0 32 D5 READ.B $32D5 09B400 4A PUSH.6 $0A 09B401 29 MUL.L 09B402 84 00 READ.B $00 09B404 27 ADD.L 09B405 E0 31 6F READ.B $316F 09B408 C0 32 D5 READ.B $32D5 09B40B 4A PUSH.6 $0A 09B40C 29 MUL.L 09B40D 84 00 READ.B $00 09B40F C0 29 A0 READ.B $29A0 09B412 27 ADD.L 09B413 27 ADD.L 09B414 E0 31 6F READ.B $316F 09B417 2B NEQ.L 09B418 2C AND.L 09B419 18 05 BRZ $005 ; => $09B420 09B41B 04 FF PUSH.10 $0FF 09B41D D0 57 40 WRITE.B $5740 09B420 37 10 00 00 86 _23d2 $0000, $0086 09B425 10 05 BR $005 ; => $09B42C 09B427 04 FF PUSH.10 $0FF 09B429 D0 28 FF WRITE.B $28FF 09B42C 3E PUSH.W $0000 09B42D D3 56 55 WRITE.F $5655 09B430 40 PUSH.6 $00 09B431 D0 28 A8 WRITE.B $28A8 09B434 40 PUSH.6 $00 09B435 D0 28 AA WRITE.B $28AA 09B438 40 PUSH.6 $00 09B439 D0 29 00 WRITE.B $2900 09B43C 40 PUSH.6 $00 09B43D D0 28 B0 WRITE.B $28B0 09B440 40 PUSH.6 $00 09B441 D0 28 AF WRITE.B $28AF 09B444 04 FF PUSH.10 $0FF 09B446 D0 28 A9 WRITE.B $28A9 09B449 C3 28 ED READ.F $28ED 09B44C 3B 40 1C 00 00 00 00 00 00 PUSH.F $401C000000000000 ; float = 7.000000 09B455 26 EQ.F 09B456 18 0C BRZ $00C ; => $09B464 09B458 3B 40 2E 00 00 00 00 00 00 PUSH.F $402E000000000000 ; float = 15.000000 09B461 D3 28 ED WRITE.F $28ED 09B464 C0 32 D5 READ.B $32D5 09B467 E0 2F 17 READ.B $2F17 09B46A 03 2A LONG2FLOAT 09B46C D3 28 DB WRITE.F $28DB 09B46F 40 PUSH.6 $00 09B470 D0 29 11 WRITE.B $2911 09B473 32 02 ADDSP.B $02 09B475 34 RETURN ; ---------------- End Function $09B386 ---------------- ; ---------------- Begin 2144 Function $09B476 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ABFB6:$0AC064 ; addr bytes opcode operands comment 09B47D C0 32 D5 READ.B $32D5 09B480 E1 33 D5 READ.W $33D5 09B483 D1 67 F1 WRITE.W $67F1 09B486 C1 67 F1 READ.W $67F1 09B489 72 PUSH.6 $32 09B48A 2F MOD.L 09B48B C1 67 F1 READ.W $67F1 09B48E 40 PUSH.6 $00 09B48F 2A EQ.L 09B490 2D OR.L 09B491 18 05 BRZ $005 ; => $09B498 09B493 C1 67 F1 READ.W $67F1 09B496 10 01 BR $001 ; => $09B499 09B498 72 PUSH.6 $32 09B499 D1 29 0F WRITE.W $290F 09B49C C1 29 0F READ.W $290F 09B49F 72 PUSH.6 $32 09B4A0 03 27 LTE.L 09B4A2 C3 28 F5 READ.F $28F5 09B4A5 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09B4AE 26 EQ.F 09B4AF 2C AND.L 09B4B0 C0 29 72 READ.B $2972 09B4B3 2E NOT.L 09B4B4 2C AND.L 09B4B5 C0 29 8F READ.B $298F 09B4B8 C0 29 90 READ.B $2990 09B4BB 2E NOT.L 09B4BC 2C AND.L 09B4BD C0 35 92 READ.B $3592 09B4C0 40 PUSH.6 $00 09B4C1 2A EQ.L 09B4C2 2C AND.L 09B4C3 2D OR.L 09B4C4 18 0C BRZ $00C ; => $09B4D2 09B4C6 3B 40 0B 33 33 33 33 33 33 PUSH.F $400B333333333333 ; float = 3.400000 09B4CF D3 28 F5 WRITE.F $28F5 09B4D2 C0 33 70 READ.B $3370 09B4D5 40 PUSH.6 $00 09B4D6 2A EQ.L 09B4D7 18 04 BRZ $004 ; => $09B4DD 09B4D9 40 PUSH.6 $00 09B4DA D0 29 75 WRITE.B $2975 09B4DD 44 PUSH.6 $04 09B4DE D0 28 E4 WRITE.B $28E4 09B4E1 34 RETURN ; ---------------- End Function $09B476 ---------------- ; ---------------- Begin 2144 Function $09B4E2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09B500:$09B50D ; called from $0ABFB6:$0AC011 ; addr bytes opcode operands comment 09B4E9 04 FF PUSH.10 $0FF 09B4EB D0 28 FF WRITE.B $28FF 09B4EE 3E PUSH.W $0000 09B4EF D3 56 55 WRITE.F $5655 09B4F2 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 09B4FB D3 28 DB WRITE.F $28DB 09B4FE 34 RETURN ; ---------------- End Function $09B4E2 ---------------- ; ---------------- Begin 2144 Function $09B500 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ABCF4:$0ABD94 ; called from $0ABCF4:$0ABDA8 ; addr bytes opcode operands comment 09B507 C0 4E 70 READ.B $4E70 09B50A 2E NOT.L 09B50B 18 17 BRZ $017 ; => $09B524 09B50D 30 00 2E BSR.68K $002E ; => $09B4E2 09B510 04 FF PUSH.10 $0FF 09B512 D0 28 A8 WRITE.B $28A8 09B515 04 FF PUSH.10 $0FF 09B517 D0 28 AA WRITE.B $28AA 09B51A 04 FF PUSH.10 $0FF 09B51C D0 29 00 WRITE.B $2900 09B51F 04 FF PUSH.10 $0FF 09B521 D0 28 A9 WRITE.B $28A9 09B524 40 PUSH.6 $00 09B525 D1 29 0F WRITE.W $290F 09B528 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09B531 D3 28 F5 WRITE.F $28F5 09B534 04 FF PUSH.10 $0FF 09B536 D0 29 75 WRITE.B $2975 09B539 43 PUSH.6 $03 09B53A D0 28 E4 WRITE.B $28E4 09B53D 3B 40 1C 00 00 00 00 00 00 PUSH.F $401C000000000000 ; float = 7.000000 09B546 D3 28 ED WRITE.F $28ED 09B549 30 02 28 BSR.68K $0228 ; => $09B324 09B54C 34 RETURN ; ---------------- End Function $09B500 ---------------- ; ---------------- Begin 2144 Function $09B596 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09CA60:$09CAB3 ; called from $0A426C:$0A44F6 ; addr bytes opcode operands comment 09B59D 40 PUSH.6 $00 09B59E 3F 20 53 50 45 43 49 41 4C DISP "SPECIAL CONTROLS YES NO " 20 43 4F 4E 54 52 4F 4C 53 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 09B5C0 67 PUSH.6 $27 09B5C1 40 PUSH.6 $00 09B5C2 40 PUSH.6 $00 09B5C3 6C PUSH.6 $2C 09B5C4 40 PUSH.6 $00 09B5C5 40 PUSH.6 $00 09B5C6 40 PUSH.6 $00 09B5C7 40 PUSH.6 $00 09B5C8 30 00 77 BSR.68K $0077 ; => $09B554 => $099614 09B5CB C0 32 D5 READ.B $32D5 09B5CE E0 33 6F READ.B $336F 09B5D1 18 05 BRZ $005 ; => $09B5D8 09B5D3 6A PUSH.6 $2A 09B5D4 90 0F WRITE.B $0F 09B5D6 10 03 BR $003 ; => $09B5DB 09B5D8 6A PUSH.6 $2A 09B5D9 90 04 WRITE.B $04 09B5DB 34 RETURN ; ---------------- End Function $09B596 ---------------- ; ---------------- Begin 2144 Function $09B5DC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09565E:$0957B4 ; addr bytes opcode operands comment 09B5E3 40 PUSH.6 $00 09B5E4 3F 20 20 50 4F 53 20 44 41 DISP " POS DATA ONLY YES NO " 54 41 20 4F 4E 4C 59 20 20 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 09B606 67 PUSH.6 $27 09B607 40 PUSH.6 $00 09B608 40 PUSH.6 $00 09B609 6C PUSH.6 $2C 09B60A 40 PUSH.6 $00 09B60B 40 PUSH.6 $00 09B60C 40 PUSH.6 $00 09B60D 40 PUSH.6 $00 09B60E 30 00 BD BSR.68K $00BD ; => $09B554 => $099614 09B611 C0 32 D5 READ.B $32D5 09B614 E0 33 0B READ.B $330B 09B617 18 05 BRZ $005 ; => $09B61E 09B619 6A PUSH.6 $2A 09B61A 90 0F WRITE.B $0F 09B61C 10 03 BR $003 ; => $09B621 09B61E 6A PUSH.6 $2A 09B61F 90 04 WRITE.B $04 09B621 34 RETURN ; ---------------- End Function $09B5DC ---------------- ; ---------------- Begin 2144 Function $09B622 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09B792:$09B7DC ; addr bytes opcode operands comment 09B629 30 00 DE BSR.68K $00DE ; => $09B54E => $099642 09B62C 40 PUSH.6 $00 09B62D 3F 20 57 41 52 4E 49 4E 47 DISP "WARNING-WILL NOTLOG SURVEY DATA " 2D 57 49 4C 4C 20 4E 4F 54 4C 4F 47 20 53 55 52 56 45 59 20 44 41 54 41 20 09B64F 34 RETURN ; ---------------- End Function $09B622 ---------------- ; ---------------- Begin 2144 Function $09B650 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09B7EC:$09B835 ; addr bytes opcode operands comment 09B657 30 01 0C BSR.68K $010C ; => $09B54E => $099642 09B65A 40 PUSH.6 $00 09B65B 3F 20 20 20 4C 4F 47 20 50 DISP " LOG POSITION EVERY SECS" 4F 53 49 54 49 4F 4E 20 20 20 20 45 56 45 52 59 20 20 20 20 20 53 45 43 53 09B67D 58 PUSH.6 $18 09B67E 43 PUSH.6 $03 09B67F 3B 40 72 C0 00 00 00 00 00 PUSH.F $4072C00000000000 ; float = 300.000000 09B688 30 01 25 BSR.68K $0125 ; => $09B566 => $097AD2 09B68B 34 RETURN ; ---------------- End Function $09B650 ---------------- ; ---------------- Begin 2144 Function $09B68C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09B792:$09B7E4 ; addr bytes opcode operands comment 09B693 40 PUSH.6 $00 09B694 3F 20 20 50 4F 53 20 44 41 DISP " POS DATA EVERY CYCLE YES NO " 54 41 20 45 56 45 52 59 20 20 43 59 43 4C 45 20 20 59 45 53 20 20 4E 4F 20 09B6B6 40 PUSH.6 $00 09B6B7 40 PUSH.6 $00 09B6B8 6E PUSH.6 $2E 09B6B9 66 PUSH.6 $26 09B6BA 40 PUSH.6 $00 09B6BB 40 PUSH.6 $00 09B6BC 40 PUSH.6 $00 09B6BD 40 PUSH.6 $00 09B6BE 30 01 6D BSR.68K $016D ; => $09B554 => $099614 09B6C1 C0 32 D5 READ.B $32D5 09B6C4 E0 33 3D READ.B $333D 09B6C7 18 05 BRZ $005 ; => $09B6CE 09B6C9 6A PUSH.6 $2A 09B6CA 90 08 WRITE.B $08 09B6CC 10 03 BR $003 ; => $09B6D1 09B6CE 6A PUSH.6 $2A 09B6CF 90 03 WRITE.B $03 09B6D1 34 RETURN ; ---------------- End Function $09B68C ---------------- ; ---------------- Begin 2144 Function $09B6D2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09AD34:$09AD58 ; called from $09B6FE:$09B78B ; called from $09B7EC:$09B82D ; addr bytes opcode operands comment 09B6D9 C0 32 D2 READ.B $32D2 09B6DC 18 18 BRZ $018 ; => $09B6F6 09B6DE C0 56 6C READ.B $566C 09B6E1 18 08 BRZ $008 ; => $09B6EB 09B6E3 50 PUSH.6 $10 09B6E4 90 23 WRITE.B $23 09B6E6 30 01 6B BSR.68K $016B ; => $09B57E => $09C638 09B6E9 10 09 BR $009 ; => $09B6F4 09B6EB 61 PUSH.6 $21 09B6EC 90 23 WRITE.B $23 09B6EE C3 35 55 READ.F $3555 09B6F1 30 01 70 BSR.68K $0170 ; => $09B584 => $09A712 09B6F4 10 06 BR $006 ; => $09B6FC 09B6F6 4F PUSH.6 $0F 09B6F7 90 23 WRITE.B $23 09B6F9 30 01 72 BSR.68K $0172 ; => $09B58A => $09C5FC 09B6FC 34 RETURN ; ---------------- End Function $09B6D2 ---------------- ; ---------------- Begin 2144 Function $09B6FE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C302 ; addr bytes opcode operands comment 09B705 80 20 READ.B $20 09B707 35 SWITCH 09B708 10 09 02 CASE $02 ; SWITCH $09B707 09B70B 42 PUSH.6 $02 09B70C 90 23 WRITE.B $23 09B70E 30 01 A5 BSR.68K $01A5 ; => $09B56C => $09B9B8 09B711 10 7E BR $07E ; => $09B791 09B713 30 7B 10 D0 04 CASE $10, $D0, $04 ; SWITCH $09B707 09B718 80 20 READ.B $20 09B71A 50 PUSH.6 $10 09B71B 2A EQ.L 09B71C 18 2C BRZ $02C ; => $09B74A 09B71E 80 22 READ.B $22 09B720 40 PUSH.6 $00 09B721 2A EQ.L 09B722 18 1B BRZ $01B ; => $09B73F 09B724 40 PUSH.6 $00 09B725 3F 10 20 20 41 52 45 20 59 DISP " ARE YOU SURE " 4F 55 20 53 55 52 45 20 20 09B737 60 PUSH.6 $20 09B738 90 04 WRITE.B $04 09B73A 41 PUSH.6 $01 09B73B 90 22 WRITE.B $22 09B73D 10 0B BR $00B ; => $09B74A 09B73F C0 32 D5 READ.B $32D5 09B742 04 FF PUSH.10 $0FF 09B744 F0 33 6F WRITE.B $336F 09B747 40 PUSH.6 $00 09B748 90 22 WRITE.B $22 09B74A 80 20 READ.B $20 09B74C 04 D0 PUSH.10 $0D0 09B74E 2A EQ.L 09B74F 18 1D BRZ $01D ; => $09B76E 09B751 C0 32 D5 READ.B $32D5 09B754 40 PUSH.6 $00 09B755 F0 33 6F WRITE.B $336F 09B758 C0 32 D5 READ.B $32D5 09B75B 04 96 PUSH.10 $096 09B75D F1 33 D5 WRITE.W $33D5 09B760 C0 32 D5 READ.B $32D5 09B763 40 PUSH.6 $00 09B764 F0 33 0B WRITE.B $330B 09B767 C0 32 D5 READ.B $32D5 09B76A 40 PUSH.6 $00 09B76B F0 33 3D WRITE.B $333D 09B76E 80 22 READ.B $22 09B770 40 PUSH.6 $00 09B771 2A EQ.L 09B772 80 20 READ.B $20 09B774 04 D0 PUSH.10 $0D0 09B776 2A EQ.L 09B777 2D OR.L 09B778 18 14 BRZ $014 ; => $09B78E 09B77A C0 32 D5 READ.B $32D5 09B77D E0 33 6F READ.B $336F 09B780 18 09 BRZ $009 ; => $09B78B 09B782 41 PUSH.6 $01 09B783 30 01 F6 BSR.68K $01F6 ; => $09B590 => $095608 09B786 4A PUSH.6 $0A 09B787 90 23 WRITE.B $23 09B789 10 03 BR $003 ; => $09B78E 09B78B 30 00 BC BSR.68K $00BC ; => $09B6D2 09B78E 10 01 BR $001 ; => $09B791 09B790 00 DEFAULT ; SWITCH $09B707 09B791 34 RETURN ; ---------------- End Function $09B6FE ---------------- ; ---------------- Begin 2144 Function $09B792 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C313 ; addr bytes opcode operands comment 09B799 80 20 READ.B $20 09B79B 35 SWITCH 09B79C 10 09 02 CASE $02 ; SWITCH $09B79B 09B79F 42 PUSH.6 $02 09B7A0 90 23 WRITE.B $23 09B7A2 30 02 39 BSR.68K $0239 ; => $09B56C => $09B9B8 09B7A5 10 43 BR $043 ; => $09B7EA 09B7A7 30 40 10 D0 04 CASE $10, $D0, $04 ; SWITCH $09B79B 09B7AC 80 20 READ.B $20 09B7AE 50 PUSH.6 $10 09B7AF 2A EQ.L 09B7B0 18 11 BRZ $011 ; => $09B7C3 09B7B2 C0 32 D5 READ.B $32D5 09B7B5 04 FF PUSH.10 $0FF 09B7B7 F0 33 0B WRITE.B $330B 09B7BA C0 32 D5 READ.B $32D5 09B7BD 40 PUSH.6 $00 09B7BE F0 33 3D WRITE.B $333D 09B7C1 10 0E BR $00E ; => $09B7D1 09B7C3 80 20 READ.B $20 09B7C5 04 D0 PUSH.10 $0D0 09B7C7 2A EQ.L 09B7C8 18 07 BRZ $007 ; => $09B7D1 09B7CA C0 32 D5 READ.B $32D5 09B7CD 40 PUSH.6 $00 09B7CE F0 33 0B WRITE.B $330B 09B7D1 C0 32 D5 READ.B $32D5 09B7D4 E0 33 0B READ.B $330B 09B7D7 18 08 BRZ $008 ; => $09B7E1 09B7D9 4C PUSH.6 $0C 09B7DA 90 23 WRITE.B $23 09B7DC 30 01 BD BSR.68K $01BD ; => $09B622 09B7DF 10 06 BR $006 ; => $09B7E7 09B7E1 4D PUSH.6 $0D 09B7E2 90 23 WRITE.B $23 09B7E4 30 01 5B BSR.68K $015B ; => $09B68C 09B7E7 10 01 BR $001 ; => $09B7EA 09B7E9 00 DEFAULT ; SWITCH $09B79B 09B7EA 34 RETURN ; ---------------- End Function $09B792 ---------------- ; ---------------- Begin 2144 Function $09B7EC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C324 ; addr bytes opcode operands comment 09B7F3 80 20 READ.B $20 09B7F5 35 SWITCH 09B7F6 10 09 02 CASE $02 ; SWITCH $09B7F5 09B7F9 42 PUSH.6 $02 09B7FA 90 23 WRITE.B $23 09B7FC 30 02 93 BSR.68K $0293 ; => $09B56C => $09B9B8 09B7FF 10 3A BR $03A ; => $09B83B 09B801 30 37 90 D0 04 CASE $90, $D0, $04 ; SWITCH $09B7F5 09B806 80 20 READ.B $20 09B808 04 90 PUSH.10 $090 09B80A 2A EQ.L 09B80B 18 0A BRZ $00A ; => $09B817 09B80D C0 32 D5 READ.B $32D5 09B810 04 FF PUSH.10 $0FF 09B812 F0 33 3D WRITE.B $333D 09B815 10 0E BR $00E ; => $09B825 09B817 80 20 READ.B $20 09B819 04 D0 PUSH.10 $0D0 09B81B 2A EQ.L 09B81C 18 07 BRZ $007 ; => $09B825 09B81E C0 32 D5 READ.B $32D5 09B821 40 PUSH.6 $00 09B822 F0 33 3D WRITE.B $333D 09B825 C0 32 D5 READ.B $32D5 09B828 E0 33 3D READ.B $333D 09B82B 18 05 BRZ $005 ; => $09B832 09B82D 30 01 5E BSR.68K $015E ; => $09B6D2 09B830 10 06 BR $006 ; => $09B838 09B832 4E PUSH.6 $0E 09B833 90 23 WRITE.B $23 09B835 30 01 E8 BSR.68K $01E8 ; => $09B650 09B838 10 01 BR $001 ; => $09B83B 09B83A 00 DEFAULT ; SWITCH $09B7F5 09B83B 34 RETURN ; ---------------- End Function $09B7EC ---------------- ; ---------------- Begin 2144 Function $09B944 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000E66:$000FAE ; called from $099A9A:$099AAA ; called from $09A458:$09A511 ; called from $09A5EA:$09A621 ; called from $09AD34:$09AD48 ; called from $09AD6C:$09AD7C ; called from $09ADB6:$09ADCE ; called from $09AFC0:$09AFD8 ; called from $09B046:$09B08D ; called from $09B102:$09B112 ; called from $09BE9A:$09BEB8 ; called from $09BE9A:$09BF1D ; called from $09BE9A:$09BF41 ; called from $09BE9A:$09C014 ; called from $09BE9A:$09C028 ; called from $09C0A2:$09C0BE ; called from $09CC94:$09CCAC ; addr bytes opcode operands comment 09B94B 31 08 SUBSP.B $08 09B94D 40 PUSH.6 $00 09B94E 3F 10 53 54 41 54 49 4F 4E DISP "STATION ID " 20 20 20 20 20 20 49 44 20 09B960 50 PUSH.6 $10 09B961 3F 10 20 20 20 20 2D 58 58 DISP " -XXX-X NEXT " 58 2D 58 20 4E 45 58 54 20 09B973 C0 32 D4 READ.B $32D4 09B976 E0 2A 67 READ.B $2A67 09B979 18 05 BRZ $005 ; => $09B980 09B97B 4A PUSH.6 $0A 09B97C 3F 02 2D 50 DISP "-P" 09B980 40 PUSH.6 $00 09B981 40 PUSH.6 $00 09B982 61 PUSH.6 $21 09B983 6E PUSH.6 $2E 09B984 40 PUSH.6 $00 09B985 40 PUSH.6 $00 09B986 40 PUSH.6 $00 09B987 40 PUSH.6 $00 09B988 30 01 49 BSR.68K $0149 ; => $09B842 => $099614 09B98B 48 PUSH.6 $08 09B98C 42 PUSH.6 $02 09B98D C0 32 D4 READ.B $32D4 09B990 41 PUSH.6 $01 09B991 27 ADD.L 09B992 03 2A LONG2FLOAT 09B994 30 01 37 BSR.68K $0137 ; => $09B860 => $097AD2 09B997 C0 32 D7 READ.B $32D7 09B99A 18 09 BRZ $009 ; => $09B9A5 09B99C 50 PUSH.6 $10 09B99D 3F 04 46 55 4C 4C DISP "FULL" 09B9A3 10 10 BR $010 ; => $09B9B5 09B9A5 50 PUSH.6 $10 09B9A6 44 PUSH.6 $04 09B9A7 C0 32 D4 READ.B $32D4 09B9AA E1 2A 49 READ.W $2A49 09B9AD 03 2A LONG2FLOAT 09B9AF 30 01 52 BSR.68K $0152 ; => $09B860 => $097AD2 09B9B2 50 PUSH.6 $10 09B9B3 90 26 WRITE.B $26 09B9B5 32 08 ADDSP.B $08 09B9B7 34 RETURN ; ---------------- End Function $09B944 ---------------- ; ---------------- Begin 2144 Function $09B9B8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0908BE:$0908EB ; called from $09565E:$095681 ; called from $099A9A:$099ADB ; called from $099D5C:$099FA2 ; called from $09AD34:$09AD50 ; called from $09AD6C:$09AD9F ; called from $09B6FE:$09B70E ; called from $09B792:$09B7A2 ; called from $09B7EC:$09B7FC ; called from $09BE9A:$09C074 ; called from $09C0A2:$09C0D2 ; called from $09C0A2:$09C11D ; called from $09C0A2:$09C17D ; called from $09C0A2:$09C269 ; called from $09C0A2:$09C278 ; called from $09C7CA:$09C7DA ; called from $09C81E:$09C852 ; called from $09C95E:$09C976 ; called from $09C9EA:$09CA02 ; called from $09CA60:$09CA70 ; called from $09CABA:$09CAD2 ; called from $09CB52:$09CB77 ; called from $09CC06:$09CC1B ; called from $09CC06:$09CC46 ; called from $09CC6A:$09CC82 ; called from $0A426C:$0A42F9 ; addr bytes opcode operands comment 09B9BF 31 0A SUBSP.B $0A 09B9C1 C0 32 D5 READ.B $32D5 09B9C4 94 08 WRITE.B $08 09B9C6 C0 56 6F READ.B $566F 09B9C9 18 1E BRZ $01E ; => $09B9E9 09B9CB 40 PUSH.6 $00 09B9CC 3F 19 53 54 41 52 54 45 44 DISP "STARTED SESSION XXXX-XXX-" 20 53 45 53 53 49 4F 4E 20 58 58 58 58 2D 58 58 58 2D 09B9E7 10 42 BR $042 ; => $09BA2B 09B9E9 80 23 READ.B $23 09B9EB 04 46 PUSH.10 $046 09B9ED 2A EQ.L 09B9EE 18 15 BRZ $015 ; => $09BA05 09B9F0 40 PUSH.6 $00 09B9F1 3F 10 4C 49 4E 4B 20 54 4F DISP "LINK TO SESSION " 20 53 45 53 53 49 4F 4E 20 09BA03 10 13 BR $013 ; => $09BA18 09BA05 40 PUSH.6 $00 09BA06 3F 10 53 45 53 53 49 4F 4E DISP "SESSION NUMBER " 20 20 4E 55 4D 42 45 52 20 09BA18 50 PUSH.6 $10 09BA19 3F 10 20 20 20 20 2D 20 20 DISP " - - NEXT " 20 2D 20 20 4E 45 58 54 20 09BA2B C0 32 D5 READ.B $32D5 09BA2E E0 32 CD READ.B $32CD 09BA31 18 03 BRZ $003 ; => $09BA36 09BA33 7E PUSH.6 $3E 09BA34 90 07 WRITE.B $07 09BA36 C0 32 D5 READ.B $32D5 09BA39 30 01 10 BSR.68K $0110 ; => $09B92C => $09C440 09BA3C 18 03 BRZ $003 ; => $09BA41 09BA3E 7E PUSH.6 $3E 09BA3F 90 0B WRITE.B $0B 09BA41 84 08 READ.B $08 09BA43 D0 32 D5 WRITE.B $32D5 09BA46 50 PUSH.6 $10 09BA47 44 PUSH.6 $04 09BA48 C0 32 D4 READ.B $32D4 09BA4B E1 2A 49 READ.W $2A49 09BA4E 03 2A LONG2FLOAT 09BA50 30 01 F3 BSR.68K $01F3 ; => $09B860 => $097AD2 09BA53 C0 56 6F READ.B $566F 09BA56 40 PUSH.6 $00 09BA57 2A EQ.L 09BA58 18 0B BRZ $00B ; => $09BA65 09BA5A 40 PUSH.6 $00 09BA5B 40 PUSH.6 $00 09BA5C 61 PUSH.6 $21 09BA5D 6E PUSH.6 $2E 09BA5E 40 PUSH.6 $00 09BA5F 40 PUSH.6 $00 09BA60 40 PUSH.6 $00 09BA61 40 PUSH.6 $00 09BA62 30 02 23 BSR.68K $0223 ; => $09B842 => $099614 09BA65 C0 32 D6 READ.B $32D6 09BA68 18 09 BRZ $009 ; => $09BA73 09BA6A 56 PUSH.6 $16 09BA6B 3F 04 46 55 4C 4C DISP "FULL" 09BA71 10 59 BR $059 ; => $09BACC 09BA73 55 PUSH.6 $15 09BA74 43 PUSH.6 $03 09BA75 C0 32 D5 READ.B $32D5 09BA78 E1 2D B9 READ.W $2DB9 09BA7B 4A PUSH.6 $0A 09BA7C 03 24 DIV.L 09BA7E 03 2A LONG2FLOAT 09BA80 30 02 23 BSR.68K $0223 ; => $09B860 => $097AD2 09BA83 C0 32 D5 READ.B $32D5 09BA86 E1 2D B9 READ.W $2DB9 09BA89 03 2A LONG2FLOAT 09BA8B 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 09BA94 23 DIV.F 09BA95 30 02 32 BSR.68K $0232 ; => $09B866 => $002C08 (NATIVE) 09BA98 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 09BAA1 22 MUL.F 09BAA2 97 07 WRITE.F $07 09BAA4 59 PUSH.6 $19 09BAA5 41 PUSH.6 $01 09BAA6 87 07 READ.F $07 09BAA8 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09BAB1 20 ADD.F 09BAB2 30 02 55 BSR.68K $0255 ; => $09B860 => $097AD2 09BAB5 C0 56 6F READ.B $566F 09BAB8 18 09 BRZ $009 ; => $09BAC3 09BABA 40 PUSH.6 $00 09BABB D0 56 6F WRITE.B $566F 09BABE 4C PUSH.6 $0C 09BABF 90 21 WRITE.B $21 09BAC1 10 09 BR $009 ; => $09BACC 09BAC3 80 23 READ.B $23 09BAC5 42 PUSH.6 $02 09BAC6 2A EQ.L 09BAC7 18 03 BRZ $003 ; => $09BACC 09BAC9 55 PUSH.6 $15 09BACA 90 26 WRITE.B $26 09BACC 32 0A ADDSP.B $0A 09BACE 34 RETURN ; ---------------- End Function $09B9B8 ---------------- ; ---------------- Begin 2164 Function $09BAD0 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $09BE9A:$09C01B ; addr bytes opcode operands comment 09BAD9 31 02 SUBSP.B $02 09BADB 04 FF PUSH.10 $0FF 09BADD 96 03 WRITE.L $03 09BADF 40 PUSH.6 $00 09BAE0 36 10 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 09BAE3 5D PUSH.6 $1D 09BAE4 38 00 19 BLS.B $0019 ; => $09BB00 09BAE7 84 08 READ.B $08 09BAE9 E1 2A 49 READ.W $2A49 09BAEC 86 07 READ.L $07 09BAEE 2A EQ.L 09BAEF 18 0A BRZ $00A ; => $09BAFB 09BAF1 84 08 READ.B $08 09BAF3 D0 32 D4 WRITE.B $32D4 09BAF6 40 PUSH.6 $00 09BAF7 96 03 WRITE.L $03 09BAF9 10 05 BR $005 ; => $09BB00 09BAFB 37 10 08 00 1D _23d2 $0008, $001D 09BB00 32 06 ADDSP.B $06 09BB02 34 RETURN ; ---------------- End Function $09BAD0 ---------------- ; ---------------- Begin 2164 Function $09BB04 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $09C0A2:$09C124 ; addr bytes opcode operands comment 09BB0D 31 02 SUBSP.B $02 09BB0F 04 FF PUSH.10 $0FF 09BB11 96 03 WRITE.L $03 09BB13 40 PUSH.6 $00 09BB14 36 10 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 09BB17 71 PUSH.6 $31 09BB18 38 00 23 BLS.B $0023 ; => $09BB3E 09BB1B 84 08 READ.B $08 09BB1D E0 2D EB READ.B $2DEB 09BB20 C0 32 D4 READ.B $32D4 09BB23 2A EQ.L 09BB24 84 08 READ.B $08 09BB26 E1 2D B9 READ.W $2DB9 09BB29 86 07 READ.L $07 09BB2B 2A EQ.L 09BB2C 2C AND.L 09BB2D 18 0A BRZ $00A ; => $09BB39 09BB2F 84 08 READ.B $08 09BB31 D0 32 D5 WRITE.B $32D5 09BB34 40 PUSH.6 $00 09BB35 96 03 WRITE.L $03 09BB37 10 05 BR $005 ; => $09BB3E 09BB39 37 10 08 00 27 _23d2 $0008, $0027 09BB3E 32 06 ADDSP.B $06 09BB40 34 RETURN ; ---------------- End Function $09BB04 ---------------- ; ---------------- Begin 2144 Function $09BB42 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09BBA2:$09BC36 ; called from $09BC44:$09BCD2 ; called from $09C0A2:$09C13B ; addr bytes opcode operands comment 09BB49 31 02 SUBSP.B $02 09BB4B 40 PUSH.6 $00 09BB4C 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09BB4F 71 PUSH.6 $31 09BB50 38 00 15 BLS.B $0015 ; => $09BB68 09BB53 84 00 READ.B $00 09BB55 E1 2D B9 READ.W $2DB9 09BB58 40 PUSH.6 $00 09BB59 2A EQ.L 09BB5A 18 07 BRZ $007 ; => $09BB63 09BB5C 84 00 READ.B $00 09BB5E D0 32 D5 WRITE.B $32D5 09BB61 10 0A BR $00A ; => $09BB6D 09BB63 37 10 00 00 19 _23d2 $0000, $0019 09BB68 04 FF PUSH.10 $0FF 09BB6A D0 32 D6 WRITE.B $32D6 09BB6D 32 02 ADDSP.B $02 09BB6F 34 RETURN ; ---------------- End Function $09BB42 ---------------- ; ---------------- Begin 2144 Function $09BB70 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09BE9A:$09C020 ; addr bytes opcode operands comment 09BB77 31 02 SUBSP.B $02 09BB79 40 PUSH.6 $00 09BB7A D0 32 D7 WRITE.B $32D7 09BB7D 40 PUSH.6 $00 09BB7E 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09BB81 5D PUSH.6 $1D 09BB82 38 00 15 BLS.B $0015 ; => $09BB9A 09BB85 84 00 READ.B $00 09BB87 E1 2A 49 READ.W $2A49 09BB8A 40 PUSH.6 $00 09BB8B 2A EQ.L 09BB8C 18 07 BRZ $007 ; => $09BB95 09BB8E 84 00 READ.B $00 09BB90 D0 32 D4 WRITE.B $32D4 09BB93 10 0A BR $00A ; => $09BB9F 09BB95 37 10 00 00 19 _23d2 $0000, $0019 09BB9A 04 FF PUSH.10 $0FF 09BB9C D0 32 D7 WRITE.B $32D7 09BB9F 32 02 ADDSP.B $02 09BBA1 34 RETURN ; ---------------- End Function $09BB70 ---------------- ; ---------------- Begin 2144 Function $09BBA2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $099A9A:$099AD8 ; called from $099D5C:$099F9F ; called from $09AD6C:$09AD9C ; called from $09BE9A:$09C06E ; called from $09C0A2:$09C11A ; called from $09C0A2:$09C275 ; called from $09CC06:$09CC43 ; addr bytes opcode operands comment 09BBA9 31 08 SUBSP.B $08 09BBAB C0 32 D5 READ.B $32D5 09BBAE 04 FF PUSH.10 $0FF 09BBB0 2A EQ.L 09BBB1 18 05 BRZ $005 ; => $09BBB8 09BBB3 40 PUSH.6 $00 09BBB4 95 01 WRITE.W $01 09BBB6 10 08 BR $008 ; => $09BBC0 09BBB8 C0 32 D5 READ.B $32D5 09BBBB E1 2D B9 READ.W $2DB9 09BBBE 95 01 WRITE.W $01 09BBC0 3C 4E 1F PUSH.W $4E1F 09BBC3 95 03 WRITE.W $03 09BBC5 3C 4E 1F PUSH.W $4E1F 09BBC8 95 05 WRITE.W $05 09BBCA 40 PUSH.6 $00 09BBCB D0 32 D6 WRITE.B $32D6 09BBCE 40 PUSH.6 $00 09BBCF 36 10 06 _2362 $0006 ; A0 = $004000; (A0) = A6 + $0 09BBD2 71 PUSH.6 $31 09BBD3 38 00 50 BLS.B $0050 ; => $09BC26 09BBD6 84 06 READ.B $06 09BBD8 E0 2D EB READ.B $2DEB 09BBDB C0 32 D4 READ.B $32D4 09BBDE 2A EQ.L 09BBDF 84 06 READ.B $06 09BBE1 E1 2D B9 READ.W $2DB9 09BBE4 40 PUSH.6 $00 09BBE5 03 25 LT.L 09BBE7 2C AND.L 09BBE8 18 37 BRZ $037 ; => $09BC21 09BBEA 84 06 READ.B $06 09BBEC E1 2D B9 READ.W $2DB9 09BBEF 85 01 READ.W $01 09BBF1 03 25 LT.L 09BBF3 84 06 READ.B $06 09BBF5 E1 2D B9 READ.W $2DB9 09BBF8 85 03 READ.W $03 09BBFA 03 26 GT.L 09BBFC 2C AND.L 09BBFD 18 0C BRZ $00C ; => $09BC0B 09BBFF 84 06 READ.B $06 09BC01 D0 32 D5 WRITE.B $32D5 09BC04 84 06 READ.B $06 09BC06 E1 2D B9 READ.W $2DB9 09BC09 95 03 WRITE.W $03 09BC0B 84 06 READ.B $06 09BC0D E1 2D B9 READ.W $2DB9 09BC10 85 05 READ.W $05 09BC12 03 26 GT.L 09BC14 18 0B BRZ $00B ; => $09BC21 09BC16 84 06 READ.B $06 09BC18 E1 2D B9 READ.W $2DB9 09BC1B 95 05 WRITE.W $05 09BC1D 84 06 READ.B $06 09BC1F 94 07 WRITE.B $07 09BC21 37 10 06 00 54 _23d2 $0006, $0054 09BC26 85 03 READ.W $03 09BC28 3C 4E 1F PUSH.W $4E1F 09BC2B 2A EQ.L 09BC2C 18 12 BRZ $012 ; => $09BC40 09BC2E 85 05 READ.W $05 09BC30 3C 4E 1F PUSH.W $4E1F 09BC33 2A EQ.L 09BC34 18 05 BRZ $005 ; => $09BC3B 09BC36 30 00 F7 BSR.68K $00F7 ; => $09BB42 09BC39 10 05 BR $005 ; => $09BC40 09BC3B 84 07 READ.B $07 09BC3D D0 32 D5 WRITE.B $32D5 09BC40 32 08 ADDSP.B $08 09BC42 34 RETURN ; ---------------- End Function $09BBA2 ---------------- ; ---------------- Begin 2144 Function $09BC44 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C0A2:$09C266 ; addr bytes opcode operands comment 09BC4B 31 08 SUBSP.B $08 09BC4D C0 32 D5 READ.B $32D5 09BC50 04 FF PUSH.10 $0FF 09BC52 2A EQ.L 09BC53 18 07 BRZ $007 ; => $09BC5C 09BC55 3C 4E 1F PUSH.W $4E1F 09BC58 95 01 WRITE.W $01 09BC5A 10 08 BR $008 ; => $09BC64 09BC5C C0 32 D5 READ.B $32D5 09BC5F E1 2D B9 READ.W $2DB9 09BC62 95 01 WRITE.W $01 09BC64 40 PUSH.6 $00 09BC65 95 03 WRITE.W $03 09BC67 40 PUSH.6 $00 09BC68 95 05 WRITE.W $05 09BC6A 40 PUSH.6 $00 09BC6B D0 32 D6 WRITE.B $32D6 09BC6E 40 PUSH.6 $00 09BC6F 36 10 06 _2362 $0006 ; A0 = $004000; (A0) = A6 + $0 09BC72 71 PUSH.6 $31 09BC73 38 00 50 BLS.B $0050 ; => $09BCC6 09BC76 84 06 READ.B $06 09BC78 E0 2D EB READ.B $2DEB 09BC7B C0 32 D4 READ.B $32D4 09BC7E 2A EQ.L 09BC7F 84 06 READ.B $06 09BC81 E1 2D B9 READ.W $2DB9 09BC84 40 PUSH.6 $00 09BC85 03 25 LT.L 09BC87 2C AND.L 09BC88 18 37 BRZ $037 ; => $09BCC1 09BC8A 84 06 READ.B $06 09BC8C E1 2D B9 READ.W $2DB9 09BC8F 85 01 READ.W $01 09BC91 03 26 GT.L 09BC93 84 06 READ.B $06 09BC95 E1 2D B9 READ.W $2DB9 09BC98 85 03 READ.W $03 09BC9A 03 25 LT.L 09BC9C 2C AND.L 09BC9D 18 0C BRZ $00C ; => $09BCAB 09BC9F 84 06 READ.B $06 09BCA1 D0 32 D5 WRITE.B $32D5 09BCA4 84 06 READ.B $06 09BCA6 E1 2D B9 READ.W $2DB9 09BCA9 95 03 WRITE.W $03 09BCAB 84 06 READ.B $06 09BCAD E1 2D B9 READ.W $2DB9 09BCB0 85 05 READ.W $05 09BCB2 03 25 LT.L 09BCB4 18 0B BRZ $00B ; => $09BCC1 09BCB6 84 06 READ.B $06 09BCB8 E1 2D B9 READ.W $2DB9 09BCBB 95 05 WRITE.W $05 09BCBD 84 06 READ.B $06 09BCBF 94 07 WRITE.B $07 09BCC1 37 10 06 00 54 _23d2 $0006, $0054 09BCC6 85 03 READ.W $03 09BCC8 40 PUSH.6 $00 09BCC9 2A EQ.L 09BCCA 18 10 BRZ $010 ; => $09BCDC 09BCCC 85 05 READ.W $05 09BCCE 40 PUSH.6 $00 09BCCF 2A EQ.L 09BCD0 18 05 BRZ $005 ; => $09BCD7 09BCD2 30 01 93 BSR.68K $0193 ; => $09BB42 09BCD5 10 05 BR $005 ; => $09BCDC 09BCD7 84 07 READ.B $07 09BCD9 D0 32 D5 WRITE.B $32D5 09BCDC 32 08 ADDSP.B $08 09BCDE 34 RETURN ; ---------------- End Function $09BC44 ---------------- ; ---------------- Begin 2144 Function $09BCE0 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09BD72:$09BDB9 ; called from $09C0A2:$09C117 ; called from $09C0A2:$09C147 ; addr bytes opcode operands comment 09BCE7 31 02 SUBSP.B $02 09BCE9 86 03 READ.L $03 09BCEB 40 PUSH.6 $00 09BCEC F1 2D B9 WRITE.W $2DB9 09BCEF 86 03 READ.L $03 09BCF1 40 PUSH.6 $00 09BCF2 F0 2E 1D WRITE.B $2E1D 09BCF5 86 03 READ.L $03 09BCF7 40 PUSH.6 $00 09BCF8 F1 2E 81 WRITE.W $2E81 09BCFB 86 03 READ.L $03 09BCFD 40 PUSH.6 $00 09BCFE F1 2E E5 WRITE.W $2EE5 09BD01 86 03 READ.L $03 09BD03 4F PUSH.6 $0F 09BD04 F0 2F 17 WRITE.B $2F17 09BD07 86 03 READ.L $03 09BD09 43 PUSH.6 $03 09BD0A F0 2F 49 WRITE.B $2F49 09BD0D 86 03 READ.L $03 09BD0F 40 PUSH.6 $00 09BD10 F0 2F 7B WRITE.B $2F7B 09BD13 40 PUSH.6 $00 09BD14 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 09BD17 49 PUSH.6 $09 09BD18 38 00 10 BLS.B $0010 ; => $09BD2B 09BD1B 86 03 READ.L $03 09BD1D 4A PUSH.6 $0A 09BD1E 29 MUL.L 09BD1F 84 04 READ.B $04 09BD21 27 ADD.L 09BD22 40 PUSH.6 $00 09BD23 F0 31 6F WRITE.B $316F 09BD26 37 10 04 00 14 _23d2 $0004, $0014 09BD2B 86 03 READ.L $03 09BD2D 40 PUSH.6 $00 09BD2E F0 31 D3 WRITE.B $31D3 09BD31 86 03 READ.L $03 09BD33 40 PUSH.6 $00 09BD34 F2 32 9B WRITE.L $329B 09BD37 86 03 READ.L $03 09BD39 40 PUSH.6 $00 09BD3A F0 33 6F WRITE.B $336F 09BD3D 86 03 READ.L $03 09BD3F 04 96 PUSH.10 $096 09BD41 F1 33 D5 WRITE.W $33D5 09BD44 86 03 READ.L $03 09BD46 40 PUSH.6 $00 09BD47 F0 33 0B WRITE.B $330B 09BD4A 86 03 READ.L $03 09BD4C 40 PUSH.6 $00 09BD4D F0 33 3D WRITE.B $333D 09BD50 86 03 READ.L $03 09BD52 40 PUSH.6 $00 09BD53 F0 32 CD WRITE.B $32CD 09BD56 C0 32 D5 READ.B $32D5 09BD59 94 05 WRITE.B $05 09BD5B 86 03 READ.L $03 09BD5D 30 04 34 BSR.68K $0434 ; => $09B92C => $09C440 09BD60 18 0C BRZ $00C ; => $09BD6E 09BD62 C0 32 D5 READ.B $32D5 09BD65 40 PUSH.6 $00 09BD66 F0 32 CD WRITE.B $32CD 09BD69 84 05 READ.B $05 09BD6B D0 32 D5 WRITE.B $32D5 09BD6E 32 06 ADDSP.B $06 09BD70 34 RETURN ; ---------------- End Function $09BCE0 ---------------- ; ---------------- Begin 2144 Function $09BD72 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09BDC4:$09BDD7 ; called from $09BE9A:$09BFFD ; addr bytes opcode operands comment 09BD79 31 02 SUBSP.B $02 09BD7B 86 03 READ.L $03 09BD7D 40 PUSH.6 $00 09BD7E F1 2A 49 WRITE.W $2A49 09BD81 86 03 READ.L $03 09BD83 40 PUSH.6 $00 09BD84 F0 2A 67 WRITE.B $2A67 09BD87 86 03 READ.L $03 09BD89 3E PUSH.W $0000 09BD8A F3 2B 57 WRITE.F $2B57 09BD8D 86 03 READ.L $03 09BD8F 3E PUSH.W $0000 09BD90 F3 2C 47 WRITE.F $2C47 09BD93 86 03 READ.L $03 09BD95 3E PUSH.W $0000 09BD96 F3 2D 37 WRITE.F $2D37 09BD99 86 03 READ.L $03 09BD9B 40 PUSH.6 $00 09BD9C F0 2D 55 WRITE.B $2D55 09BD9F 40 PUSH.6 $00 09BDA0 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 09BDA3 71 PUSH.6 $31 09BDA4 38 00 1A BLS.B $001A ; => $09BDC1 09BDA7 84 04 READ.B $04 09BDA9 E0 2D EB READ.B $2DEB 09BDAC 86 03 READ.L $03 09BDAE 2A EQ.L 09BDAF 84 04 READ.B $04 09BDB1 E1 2D B9 READ.W $2DB9 09BDB4 2C AND.L 09BDB5 18 05 BRZ $005 ; => $09BDBC 09BDB7 84 04 READ.B $04 09BDB9 30 00 DC BSR.68K $00DC ; => $09BCE0 09BDBC 37 10 04 00 1E _23d2 $0004, $001E 09BDC1 32 06 ADDSP.B $06 09BDC3 34 RETURN ; ---------------- End Function $09BD72 ---------------- ; ---------------- Begin 2144 Function $09BDC4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09BE50:$09BE7B ; addr bytes opcode operands comment 09BDCB 31 02 SUBSP.B $02 09BDCD 40 PUSH.6 $00 09BDCE 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09BDD1 5D PUSH.6 $1D 09BDD2 38 00 0A BLS.B $000A ; => $09BDDF 09BDD5 84 00 READ.B $00 09BDD7 30 00 68 BSR.68K $0068 ; => $09BD72 09BDDA 37 10 00 00 0E _23d2 $0000, $000E 09BDDF 40 PUSH.6 $00 09BDE0 D0 32 D2 WRITE.B $32D2 09BDE3 32 02 ADDSP.B $02 09BDE5 34 RETURN ; ---------------- End Function $09BDC4 ---------------- ; ---------------- Begin 2144 Function $09BDE6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB46 ; addr bytes opcode operands comment 09BDED 80 20 READ.B $20 09BDEF 35 SWITCH 09BDF0 10 06 02 CASE $02 ; SWITCH $09BDEF 09BDF3 40 PUSH.6 $00 09BDF4 90 21 WRITE.B $21 09BDF6 10 56 BR $056 ; => $09BE4E 09BDF8 10 4B 10 CASE $10 ; SWITCH $09BDEF 09BDFB 80 23 READ.B $23 09BDFD 40 PUSH.6 $00 09BDFE 2A EQ.L 09BDFF 18 18 BRZ $018 ; => $09BE19 09BE01 41 PUSH.6 $01 09BE02 90 23 WRITE.B $23 09BE04 40 PUSH.6 $00 09BE05 3F 10 20 20 41 52 45 20 59 DISP " ARE YOU SURE " 4F 55 20 53 55 52 45 20 20 09BE17 10 2A BR $02A ; => $09BE43 09BE19 40 PUSH.6 $00 09BE1A 3F 20 57 41 49 54 20 46 4F DISP "WAIT FOR PARAMS TO RESET ON BEEP" 52 20 50 41 52 41 4D 53 20 54 4F 20 52 45 53 45 54 20 4F 4E 20 42 45 45 50 09BE3C 42 PUSH.6 $02 09BE3D D0 55 70 WRITE.B $5570 09BE40 4C PUSH.6 $0C 09BE41 90 21 WRITE.B $21 09BE43 10 09 BR $009 ; => $09BE4E 09BE45 10 06 D0 CASE $D0 ; SWITCH $09BDEF 09BE48 40 PUSH.6 $00 09BE49 90 21 WRITE.B $21 09BE4B 10 01 BR $001 ; => $09BE4E 09BE4D 00 DEFAULT ; SWITCH $09BDEF 09BE4E 34 RETURN ; ---------------- End Function $09BDE6 ---------------- ; ---------------- Begin 2144 Function $09BE50 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB4E ; addr bytes opcode operands comment 09BE57 80 20 READ.B $20 09BE59 35 SWITCH 09BE5A 10 27 10 CASE $10 ; SWITCH $09BE59 09BE5D 80 23 READ.B $23 09BE5F 40 PUSH.6 $00 09BE60 2A EQ.L 09BE61 18 18 BRZ $018 ; => $09BE7B 09BE63 41 PUSH.6 $01 09BE64 90 23 WRITE.B $23 09BE66 40 PUSH.6 $00 09BE67 3F 10 20 20 41 52 45 20 59 DISP " ARE YOU SURE " 4F 55 20 53 55 52 45 20 20 09BE79 10 06 BR $006 ; => $09BE81 09BE7B 30 00 BA BSR.68K $00BA ; => $09BDC4 09BE7E 40 PUSH.6 $00 09BE7F 90 21 WRITE.B $21 09BE81 10 15 BR $015 ; => $09BE98 09BE83 10 09 D0 CASE $D0 ; SWITCH $09BE59 09BE86 30 05 93 BSR.68K $0593 ; => $09B8F6 => $09C748 09BE89 4C PUSH.6 $0C 09BE8A 90 21 WRITE.B $21 09BE8C 10 0A BR $00A ; => $09BE98 09BE8E 20 04 50 90 CASE $50, $90 ; SWITCH $09BE59 09BE92 10 04 BR $004 ; => $09BE98 09BE94 00 DEFAULT ; SWITCH $09BE59 09BE95 30 05 5A BSR.68K $055A ; => $09B93E => $09D9DE 09BE98 34 RETURN ; ---------------- End Function $09BE50 ---------------- ; ---------------- Begin 2144 Function $09BE9A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C2B7 ; addr bytes opcode operands comment 09BEA1 31 04 SUBSP.B $04 09BEA3 80 20 READ.B $20 09BEA5 35 SWITCH 09BEA6 10 15 02 CASE $02 ; SWITCH $09BEA5 09BEA9 80 26 READ.B $26 09BEAB 50 PUSH.6 $10 09BEAC 2A EQ.L 09BEAD C0 32 D7 READ.B $32D7 09BEB0 2D OR.L 09BEB1 18 05 BRZ $005 ; => $09BEB8 09BEB3 40 PUSH.6 $00 09BEB4 90 21 WRITE.B $21 09BEB6 10 03 BR $003 ; => $09BEBB 09BEB8 30 05 77 BSR.68K $0577 ; => $09B944 09BEBB 10 8A BR $08A ; => $09BF47 09BEBD 10 06 04 CASE $04 ; SWITCH $09BEA5 09BEC0 61 PUSH.6 $21 09BEC1 90 26 WRITE.B $26 09BEC3 10 82 BR $082 ; => $09BF47 09BEC5 10 20 10 CASE $10 ; SWITCH $09BEA5 09BEC8 C0 32 D7 READ.B $32D7 09BECB 2E NOT.L 09BECC 18 17 BRZ $017 ; => $09BEE5 09BECE 80 26 READ.B $26 09BED0 35 SWITCH 09BED1 10 03 10 CASE $10 ; SWITCH $09BED0 09BED4 10 0F BR $00F ; => $09BEE5 09BED6 10 06 20 CASE $20 ; SWITCH $09BED0 09BED9 53 PUSH.6 $13 09BEDA 90 26 WRITE.B $26 09BEDC 10 07 BR $007 ; => $09BEE5 09BEDE 00 DEFAULT ; SWITCH $09BED0 09BEDF 80 26 READ.B $26 09BEE1 41 PUSH.6 $01 09BEE2 28 SUB.L 09BEE3 90 26 WRITE.B $26 09BEE5 10 60 BR $060 ; => $09BF47 09BEE7 10 15 50 CASE $50 ; SWITCH $09BEA5 09BEEA 80 26 READ.B $26 09BEEC 53 PUSH.6 $13 09BEED 03 26 GT.L 09BEEF C0 32 D7 READ.B $32D7 09BEF2 2E NOT.L 09BEF3 2C AND.L 09BEF4 18 06 BRZ $006 ; => $09BEFC 09BEF6 80 26 READ.B $26 09BEF8 41 PUSH.6 $01 09BEF9 27 ADD.L 09BEFA 90 26 WRITE.B $26 09BEFC 10 49 BR $049 ; => $09BF47 09BEFE 10 22 90 CASE $90 ; SWITCH $09BEA5 09BF01 45 PUSH.6 $05 09BF02 D0 4E 65 WRITE.B $4E65 09BF05 C0 32 D4 READ.B $32D4 09BF08 41 PUSH.6 $01 09BF09 28 SUB.L 09BF0A D0 32 D4 WRITE.B $32D4 09BF0D C0 32 D4 READ.B $32D4 09BF10 5D PUSH.6 $1D 09BF11 03 25 LT.L 09BF13 18 04 BRZ $004 ; => $09BF19 09BF15 5D PUSH.6 $1D 09BF16 D0 32 D4 WRITE.B $32D4 09BF19 40 PUSH.6 $00 09BF1A D0 32 D7 WRITE.B $32D7 09BF1D 30 05 DC BSR.68K $05DC ; => $09B944 09BF20 10 25 BR $025 ; => $09BF47 09BF22 10 22 D0 CASE $D0 ; SWITCH $09BEA5 09BF25 45 PUSH.6 $05 09BF26 D0 4E 65 WRITE.B $4E65 09BF29 C0 32 D4 READ.B $32D4 09BF2C 41 PUSH.6 $01 09BF2D 27 ADD.L 09BF2E D0 32 D4 WRITE.B $32D4 09BF31 C0 32 D4 READ.B $32D4 09BF34 5D PUSH.6 $1D 09BF35 03 25 LT.L 09BF37 18 04 BRZ $004 ; => $09BF3D 09BF39 40 PUSH.6 $00 09BF3A D0 32 D4 WRITE.B $32D4 09BF3D 40 PUSH.6 $00 09BF3E D0 32 D7 WRITE.B $32D7 09BF41 30 06 00 BSR.68K $0600 ; => $09B944 09BF44 10 01 BR $001 ; => $09BF47 09BF46 00 DEFAULT ; SWITCH $09BEA5 09BF47 C0 32 D7 READ.B $32D7 09BF4A 2E NOT.L 09BF4B 80 26 READ.B $26 09BF4D 54 PUSH.6 $14 09BF4E 03 26 GT.L 09BF50 2C AND.L 09BF51 18 05 BRZ $005 ; => $09BF58 09BF53 30 07 02 BSR.68K $0702 ; => $09B854 => $09DFB4 09BF56 94 00 WRITE.B $00 09BF58 C0 32 D7 READ.B $32D7 09BF5B 2E NOT.L 09BF5C 18 64 BRZ $064 ; => $09BFC2 09BF5E 50 PUSH.6 $10 09BF5F 53 PUSH.6 $13 09BF60 30 07 09 BSR.68K $0709 ; => $09B85A => $09E02C 09BF63 03 29 FLOAT2LONG 09BF65 3C 27 0F PUSH.W $270F 09BF68 2A EQ.L 09BF69 18 57 BRZ $057 ; => $09BFC2 09BF6B 30 06 96 BSR.68K $0696 ; => $09B8D8 => $0034AA (CLEARSCREEN) (NATIVE) 09BF6E C0 56 6C READ.B $566C 09BF71 18 26 BRZ $026 ; => $09BF99 09BF73 40 PUSH.6 $00 09BF74 D0 56 6C WRITE.B $566C 09BF77 40 PUSH.6 $00 09BF78 3F 1D 20 20 20 20 53 45 4C DISP " SELECTED FIELD MODE" 45 43 54 45 44 20 20 20 20 20 20 20 46 49 45 4C 44 20 4D 4F 44 45 09BF97 10 26 BR $026 ; => $09BFBF 09BF99 04 FF PUSH.10 $0FF 09BF9B D0 56 6C WRITE.B $566C 09BF9E 40 PUSH.6 $00 09BF9F 3F 1E 20 20 20 20 53 45 4C DISP " SELECTED OFFICE MODE" 45 43 54 45 44 20 20 20 20 20 20 20 4F 46 46 49 43 45 20 4D 4F 44 45 09BFBF 4C PUSH.6 $0C 09BFC0 90 21 WRITE.B $21 09BFC2 80 26 READ.B $26 09BFC4 35 SWITCH 09BFC5 10 06 14 CASE $14 ; SWITCH $09BFC4 09BFC8 60 PUSH.6 $20 09BFC9 90 26 WRITE.B $26 09BFCB 10 D1 BR $0D1 ; => $09C09E 09BFCD 10 CE 21 CASE $21 ; SWITCH $09BFC4 09BFD0 C0 32 D7 READ.B $32D7 09BFD3 2E NOT.L 09BFD4 18 C5 BRZ $0C5 ; => $09C09B 09BFD6 50 PUSH.6 $10 09BFD7 53 PUSH.6 $13 09BFD8 30 07 81 BSR.68K $0781 ; => $09B85A => $09E02C 09BFDB 03 29 FLOAT2LONG 09BFDD 95 03 WRITE.W $03 09BFDF 85 03 READ.W $03 09BFE1 40 PUSH.6 $00 09BFE2 2A EQ.L 09BFE3 18 34 BRZ $034 ; => $09C019 09BFE5 C0 56 6C READ.B $566C 09BFE8 2E NOT.L 09BFE9 C0 32 D4 READ.B $32D4 09BFEC E0 2A 67 READ.B $2A67 09BFEF 2C AND.L 09BFF0 18 08 BRZ $008 ; => $09BFFA 09BFF2 30 07 3B BSR.68K $073B ; => $09B8BA => $09A6B6 09BFF5 54 PUSH.6 $14 09BFF6 90 23 WRITE.B $23 09BFF8 10 1D BR $01D ; => $09C017 09BFFA C0 32 D4 READ.B $32D4 09BFFD 30 02 8E BSR.68K $028E ; => $09BD72 09C000 C0 32 D4 READ.B $32D4 09C003 41 PUSH.6 $01 09C004 27 ADD.L 09C005 D0 32 D4 WRITE.B $32D4 09C008 C0 32 D4 READ.B $32D4 09C00B 5D PUSH.6 $1D 09C00C 03 25 LT.L 09C00E 18 04 BRZ $004 ; => $09C014 09C010 40 PUSH.6 $00 09C011 D0 32 D4 WRITE.B $32D4 09C014 30 06 D3 BSR.68K $06D3 ; => $09B944 09C017 10 82 BR $082 ; => $09C09B 09C019 85 03 READ.W $03 09C01B 30 05 4E BSR.68K $054E ; => $09BAD0 09C01E 18 03 BRZ $003 ; => $09C023 09C020 30 04 B3 BSR.68K $04B3 ; => $09BB70 09C023 C0 32 D7 READ.B $32D7 09C026 18 05 BRZ $005 ; => $09C02D 09C028 30 06 E7 BSR.68K $06E7 ; => $09B944 09C02B 10 6E BR $06E ; => $09C09B 09C02D 30 07 F4 BSR.68K $07F4 ; => $09B83C => $099642 09C030 C0 32 D4 READ.B $32D4 09C033 85 03 READ.W $03 09C035 F1 2A 49 WRITE.W $2A49 09C038 C0 56 6C READ.B $566C 09C03B 18 08 BRZ $008 ; => $09C045 09C03D C0 32 D4 READ.B $32D4 09C040 04 FF PUSH.10 $0FF 09C042 F0 2A 67 WRITE.B $2A67 09C045 C0 56 6C READ.B $566C 09C048 2E NOT.L 09C049 C0 32 D4 READ.B $32D4 09C04C E0 2A 67 READ.B $2A67 09C04F 2C AND.L 09C050 18 38 BRZ $038 ; => $09C08A 09C052 4A PUSH.6 $0A 09C053 D0 55 70 WRITE.B $5570 09C056 C0 32 D4 READ.B $32D4 09C059 E3 2B 57 READ.F $2B57 09C05C 3E PUSH.W $0000 09C05D 26 EQ.F 09C05E C0 32 D4 READ.B $32D4 09C061 E3 2C 47 READ.F $2C47 09C064 3E PUSH.W $0000 09C065 26 EQ.F 09C066 2C AND.L 09C067 18 14 BRZ $014 ; => $09C07D 09C069 04 FF PUSH.10 $0FF 09C06B D0 32 D5 WRITE.B $32D5 09C06E 30 04 CF BSR.68K $04CF ; => $09BBA2 09C071 42 PUSH.6 $02 09C072 90 23 WRITE.B $23 09C074 30 06 BF BSR.68K $06BF ; => $09B9B8 09C077 40 PUSH.6 $00 09C078 D0 29 2C WRITE.B $292C 09C07B 10 0B BR $00B ; => $09C088 09C07D 42 PUSH.6 $02 09C07E 30 08 39 BSR.68K $0839 ; => $09B848 => $0997C4 09C081 42 PUSH.6 $02 09C082 30 08 37 BSR.68K $0837 ; => $09B84E => $099800 09C085 5E PUSH.6 $1E 09C086 90 23 WRITE.B $23 09C088 10 11 BR $011 ; => $09C09B 09C08A 42 PUSH.6 $02 09C08B 30 08 46 BSR.68K $0846 ; => $09B848 => $0997C4 09C08E 42 PUSH.6 $02 09C08F 30 08 44 BSR.68K $0844 ; => $09B84E => $099800 09C092 45 PUSH.6 $05 09C093 90 26 WRITE.B $26 09C095 41 PUSH.6 $01 09C096 90 23 WRITE.B $23 09C098 40 PUSH.6 $00 09C099 90 22 WRITE.B $22 09C09B 10 01 BR $001 ; => $09C09E 09C09D 00 DEFAULT ; SWITCH $09BFC4 09C09E 32 04 ADDSP.B $04 09C0A0 34 RETURN ; ---------------- End Function $09BE9A ---------------- ; ---------------- Begin 2144 Function $09C0A2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C2C9 ; addr bytes opcode operands comment 09C0A9 31 06 SUBSP.B $06 09C0AB 80 20 READ.B $20 09C0AD 35 SWITCH 09C0AE 10 27 02 CASE $02 ; SWITCH $09C0AD 09C0B1 80 26 READ.B $26 09C0B3 55 PUSH.6 $15 09C0B4 2A EQ.L 09C0B5 C0 32 D6 READ.B $32D6 09C0B8 2D OR.L 09C0B9 18 08 BRZ $008 ; => $09C0C3 09C0BB 40 PUSH.6 $00 09C0BC 90 23 WRITE.B $23 09C0BE 30 07 7D BSR.68K $077D ; => $09B944 09C0C1 10 12 BR $012 ; => $09C0D5 09C0C3 80 23 READ.B $23 09C0C5 04 46 PUSH.10 $046 09C0C7 2A EQ.L 09C0C8 18 08 BRZ $008 ; => $09C0D2 09C0CA 80 24 READ.B $24 09C0CC D0 32 D5 WRITE.B $32D5 09C0CF 42 PUSH.6 $02 09C0D0 90 23 WRITE.B $23 09C0D2 30 07 1D BSR.68K $071D ; => $09B9B8 09C0D5 11 A7 BR $1A7 ; => $09C27E 09C0D7 11 38 04 CASE $04 ; SWITCH $09C0AD 09C0DA C0 32 D6 READ.B $32D6 09C0DD 2E NOT.L 09C0DE 19 2F BRZ $12F ; => $09C20F 09C0E0 55 PUSH.6 $15 09C0E1 57 PUSH.6 $17 09C0E2 30 08 8B BSR.68K $088B ; => $09B85A => $09E02C 09C0E5 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 09C0EE 22 MUL.F 09C0EF 59 PUSH.6 $19 09C0F0 59 PUSH.6 $19 09C0F1 30 08 9A BSR.68K $089A ; => $09B85A => $09E02C 09C0F4 20 ADD.F 09C0F5 03 29 FLOAT2LONG 09C0F7 95 03 WRITE.W $03 09C0F9 85 03 READ.W $03 09C0FB 40 PUSH.6 $00 09C0FC 2A EQ.L 09C0FD 18 23 BRZ $023 ; => $09C122 09C0FF C0 56 6C READ.B $566C 09C102 2E NOT.L 09C103 C0 32 D4 READ.B $32D4 09C106 E0 2A 67 READ.B $2A67 09C109 2C AND.L 09C10A 18 08 BRZ $008 ; => $09C114 09C10C 30 08 4F BSR.68K $084F ; => $09B8C0 => $09A6E4 09C10F 56 PUSH.6 $16 09C110 90 23 WRITE.B $23 09C112 10 0C BR $00C ; => $09C120 09C114 C0 32 D5 READ.B $32D5 09C117 30 04 3A BSR.68K $043A ; => $09BCE0 09C11A 30 05 7B BSR.68K $057B ; => $09BBA2 09C11D 30 07 68 BSR.68K $0768 ; => $09B9B8 09C120 10 ED BR $0ED ; => $09C20F 09C122 85 03 READ.W $03 09C124 30 06 23 BSR.68K $0623 ; => $09BB04 09C127 18 21 BRZ $021 ; => $09C14A 09C129 C0 56 6C READ.B $566C 09C12C 2E NOT.L 09C12D C0 32 D4 READ.B $32D4 09C130 E0 2A 67 READ.B $2A67 09C133 2C AND.L 09C134 18 05 BRZ $005 ; => $09C13B 09C136 56 PUSH.6 $16 09C137 90 23 WRITE.B $23 09C139 10 0F BR $00F ; => $09C14A 09C13B 30 05 FC BSR.68K $05FC ; => $09BB42 09C13E C0 32 D6 READ.B $32D6 09C141 2E NOT.L 09C142 18 06 BRZ $006 ; => $09C14A 09C144 C0 32 D5 READ.B $32D5 09C147 30 04 6A BSR.68K $046A ; => $09BCE0 09C14A 80 23 READ.B $23 09C14C 56 PUSH.6 $16 09C14D 2A EQ.L 09C14E 18 28 BRZ $028 ; => $09C178 09C150 30 09 17 BSR.68K $0917 ; => $09B83C => $099642 09C153 40 PUSH.6 $00 09C154 3F 20 20 20 20 49 4E 43 4F DISP " INCORRECT SESSION NUMBER " 52 52 45 43 54 20 20 20 20 20 53 45 53 53 49 4F 4E 20 4E 55 4D 42 45 52 20 09C176 10 97 BR $097 ; => $09C20F 09C178 C0 32 D6 READ.B $32D6 09C17B 18 05 BRZ $005 ; => $09C182 09C17D 30 07 C8 BSR.68K $07C8 ; => $09B9B8 09C180 10 8D BR $08D ; => $09C20F 09C182 80 23 READ.B $23 09C184 42 PUSH.6 $02 09C185 2A EQ.L 09C186 18 13 BRZ $013 ; => $09C19B 09C188 C0 32 D5 READ.B $32D5 09C18B 85 03 READ.W $03 09C18D F1 2D B9 WRITE.W $2DB9 09C190 C0 32 D5 READ.B $32D5 09C193 C0 32 D4 READ.B $32D4 09C196 F0 2D EB WRITE.B $2DEB 09C199 10 23 BR $023 ; => $09C1BE 09C19B C0 32 D5 READ.B $32D5 09C19E 94 04 WRITE.B $04 09C1A0 80 24 READ.B $24 09C1A2 30 08 79 BSR.68K $0879 ; => $09B92C => $09C440 09C1A5 18 07 BRZ $007 ; => $09C1AE 09C1A7 C0 32 D5 READ.B $32D5 09C1AA 40 PUSH.6 $00 09C1AB F0 32 CD WRITE.B $32CD 09C1AE 84 04 READ.B $04 09C1B0 D0 32 D5 WRITE.B $32D5 09C1B3 C0 32 D5 READ.B $32D5 09C1B6 80 24 READ.B $24 09C1B8 04 80 PUSH.10 $080 09C1BA 2D OR.L 09C1BB F0 32 CD WRITE.B $32CD 09C1BE C0 56 6C READ.B $566C 09C1C1 18 1B BRZ $01B ; => $09C1DE 09C1C3 80 23 READ.B $23 09C1C5 42 PUSH.6 $02 09C1C6 2A EQ.L 09C1C7 18 08 BRZ $008 ; => $09C1D1 09C1C9 43 PUSH.6 $03 09C1CA 90 23 WRITE.B $23 09C1CC 30 09 5D BSR.68K $095D ; => $09B872 => $09C47C 09C1CF 10 0B BR $00B ; => $09C1DC 09C1D1 80 24 READ.B $24 09C1D3 D0 32 D5 WRITE.B $32D5 09C1D6 52 PUSH.6 $12 09C1D7 90 23 WRITE.B $23 09C1D9 30 08 AA BSR.68K $08AA ; => $09B932 => $09C6DC 09C1DC 10 31 BR $031 ; => $09C20F 09C1DE C0 32 D4 READ.B $32D4 09C1E1 E0 2A 67 READ.B $2A67 09C1E4 18 1B BRZ $01B ; => $09C201 09C1E6 C0 32 D5 READ.B $32D5 09C1E9 E0 2E 1D READ.B $2E1D 09C1EC 18 08 BRZ $008 ; => $09C1F6 09C1EE 30 09 2B BSR.68K $092B ; => $09B8C6 => $09C4C2 09C1F1 60 PUSH.6 $20 09C1F2 90 23 WRITE.B $23 09C1F4 10 09 BR $009 ; => $09C1FF 09C1F6 C3 35 55 READ.F $3555 09C1F9 30 09 00 BSR.68K $0900 ; => $09B8FC => $09A712 09C1FC 61 PUSH.6 $21 09C1FD 90 23 WRITE.B $23 09C1FF 10 0E BR $00E ; => $09C20F 09C201 43 PUSH.6 $03 09C202 90 23 WRITE.B $23 09C204 30 09 95 BSR.68K $0995 ; => $09B872 => $09C47C 09C207 C0 32 D5 READ.B $32D5 09C20A 04 FF PUSH.10 $0FF 09C20C F0 31 D3 WRITE.B $31D3 09C20F 10 6D BR $06D ; => $09C27E 09C211 10 30 10 CASE $10 ; SWITCH $09C0AD 09C214 C0 32 D6 READ.B $32D6 09C217 2E NOT.L 09C218 80 23 READ.B $23 09C21A 42 PUSH.6 $02 09C21B 2A EQ.L 09C21C 2C AND.L 09C21D 18 22 BRZ $022 ; => $09C241 09C21F 80 26 READ.B $26 09C221 35 SWITCH 09C222 10 03 15 CASE $15 ; SWITCH $09C221 09C225 10 1A BR $01A ; => $09C241 09C227 10 06 20 CASE $20 ; SWITCH $09C221 09C22A 59 PUSH.6 $19 09C22B 90 26 WRITE.B $26 09C22D 10 12 BR $012 ; => $09C241 09C22F 10 09 19 CASE $19 ; SWITCH $09C221 09C232 80 26 READ.B $26 09C234 42 PUSH.6 $02 09C235 28 SUB.L 09C236 90 26 WRITE.B $26 09C238 10 07 BR $007 ; => $09C241 09C23A 00 DEFAULT ; SWITCH $09C221 09C23B 80 26 READ.B $26 09C23D 41 PUSH.6 $01 09C23E 28 SUB.L 09C23F 90 26 WRITE.B $26 09C241 10 3B BR $03B ; => $09C27E 09C243 10 1A 50 CASE $50 ; SWITCH $09C0AD 09C246 80 26 READ.B $26 09C248 59 PUSH.6 $19 09C249 03 26 GT.L 09C24B C0 32 D6 READ.B $32D6 09C24E 2E NOT.L 09C24F 2C AND.L 09C250 80 23 READ.B $23 09C252 42 PUSH.6 $02 09C253 2A EQ.L 09C254 2C AND.L 09C255 18 06 BRZ $006 ; => $09C25D 09C257 80 26 READ.B $26 09C259 41 PUSH.6 $01 09C25A 27 ADD.L 09C25B 90 26 WRITE.B $26 09C25D 10 1F BR $01F ; => $09C27E 09C25F 10 0D 90 CASE $90 ; SWITCH $09C0AD 09C262 45 PUSH.6 $05 09C263 D0 4E 65 WRITE.B $4E65 09C266 30 06 25 BSR.68K $0625 ; => $09BC44 09C269 30 08 B4 BSR.68K $08B4 ; => $09B9B8 09C26C 10 10 BR $010 ; => $09C27E 09C26E 10 0D D0 CASE $D0 ; SWITCH $09C0AD 09C271 45 PUSH.6 $05 09C272 D0 4E 65 WRITE.B $4E65 09C275 30 06 D6 BSR.68K $06D6 ; => $09BBA2 09C278 30 08 C3 BSR.68K $08C3 ; => $09B9B8 09C27B 10 01 BR $001 ; => $09C27E 09C27D 00 DEFAULT ; SWITCH $09C0AD 09C27E C0 32 D6 READ.B $32D6 09C281 2E NOT.L 09C282 80 26 READ.B $26 09C284 60 PUSH.6 $20 09C285 03 26 GT.L 09C287 2C AND.L 09C288 18 05 BRZ $005 ; => $09C28F 09C28A 30 0A 39 BSR.68K $0A39 ; => $09B854 => $09DFB4 09C28D 94 00 WRITE.B $00 09C28F 80 26 READ.B $26 09C291 35 SWITCH 09C292 10 09 18 CASE $18 ; SWITCH $09C291 09C295 80 26 READ.B $26 09C297 41 PUSH.6 $01 09C298 27 ADD.L 09C299 90 26 WRITE.B $26 09C29B 10 09 BR $009 ; => $09C2A6 09C29D 10 06 1A CASE $1A ; SWITCH $09C291 09C2A0 60 PUSH.6 $20 09C2A1 90 26 WRITE.B $26 09C2A3 10 01 BR $001 ; => $09C2A6 09C2A5 00 DEFAULT ; SWITCH $09C291 09C2A6 32 06 ADDSP.B $06 09C2A8 34 RETURN ; ---------------- End Function $09C0A2 ---------------- ; ---------------- Begin 2144 Function $09C2AA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB36 ; addr bytes opcode operands comment 09C2B1 80 23 READ.B $23 09C2B3 35 SWITCH 09C2B4 10 06 00 CASE $00 ; SWITCH $09C2B3 09C2B7 30 04 20 BSR.68K $0420 ; => $09BE9A 09C2BA 11 17 BR $117 ; => $09C3D3 09C2BC 10 07 01 CASE $01 ; SWITCH $09C2B3 09C2BF 42 PUSH.6 $02 09C2C0 30 0A 57 BSR.68K $0A57 ; => $09B86C => $099FB8 09C2C3 11 0E BR $10E ; => $09C3D3 09C2C5 20 07 02 46 CASE $02, $46 ; SWITCH $09C2B3 09C2C9 30 02 2A BSR.68K $022A ; => $09C0A2 09C2CC 11 05 BR $105 ; => $09C3D3 09C2CE 10 06 03 CASE $03 ; SWITCH $09C2B3 09C2D1 30 0A 5C BSR.68K $0A5C ; => $09B878 => $09C7CA 09C2D4 10 FD BR $0FD ; => $09C3D3 09C2D6 10 06 04 CASE $04 ; SWITCH $09C2B3 09C2D9 30 0A 5E BSR.68K $0A5E ; => $09B87E => $09C81E 09C2DC 10 F5 BR $0F5 ; => $09C3D3 09C2DE 10 06 05 CASE $05 ; SWITCH $09C2B3 09C2E1 30 0A 60 BSR.68K $0A60 ; => $09B884 => $09C95E 09C2E4 10 ED BR $0ED ; => $09C3D3 09C2E6 10 06 06 CASE $06 ; SWITCH $09C2B3 09C2E9 30 0A 62 BSR.68K $0A62 ; => $09B88A => $09C9EA 09C2EC 10 E5 BR $0E5 ; => $09C3D3 09C2EE 10 06 07 CASE $07 ; SWITCH $09C2B3 09C2F1 30 0A 64 BSR.68K $0A64 ; => $09B890 => $09CA60 09C2F4 10 DD BR $0DD ; => $09C3D3 09C2F6 10 07 08 CASE $08 ; SWITCH $09C2B3 09C2F9 41 PUSH.6 $01 09C2FA 30 0A 67 BSR.68K $0A67 ; => $09B896 => $0A426C 09C2FD 10 D4 BR $0D4 ; => $09C3D3 09C2FF 10 06 09 CASE $09 ; SWITCH $09C2B3 09C302 30 09 F7 BSR.68K $09F7 ; => $09B90E => $09B6FE 09C305 10 CC BR $0CC ; => $09C3D3 09C307 10 07 0A CASE $0A ; SWITCH $09C2B3 09C30A 41 PUSH.6 $01 09C30B 30 09 FA BSR.68K $09FA ; => $09B914 => $09565E 09C30E 10 C3 BR $0C3 ; => $09C3D3 09C310 10 06 0B CASE $0B ; SWITCH $09C2B3 09C313 30 09 FC BSR.68K $09FC ; => $09B91A => $09B792 09C316 10 BB BR $0BB ; => $09C3D3 09C318 10 07 0C CASE $0C ; SWITCH $09C2B3 09C31B 4F PUSH.6 $0F 09C31C 30 0A 6B BSR.68K $0A6B ; => $09B8B4 => $09AD34 09C31F 10 B2 BR $0B2 ; => $09C3D3 09C321 10 06 0D CASE $0D ; SWITCH $09C2B3 09C324 30 0A 07 BSR.68K $0A07 ; => $09B920 => $09B7EC 09C327 10 AA BR $0AA ; => $09C3D3 09C329 10 07 0E CASE $0E ; SWITCH $09C2B3 09C32C 4F PUSH.6 $0F 09C32D 30 0A 7C BSR.68K $0A7C ; => $09B8B4 => $09AD34 09C330 10 A1 BR $0A1 ; => $09C3D3 09C332 10 06 0F CASE $0F ; SWITCH $09C2B3 09C335 30 0A 9C BSR.68K $0A9C ; => $09B89C => $09CABA 09C338 10 99 BR $099 ; => $09C3D3 09C33A 10 06 10 CASE $10 ; SWITCH $09C2B3 09C33D 30 0A 9E BSR.68K $0A9E ; => $09B8A2 => $09CB52 09C340 10 91 BR $091 ; => $09C3D3 09C342 10 06 11 CASE $11 ; SWITCH $09C2B3 09C345 30 0A 22 BSR.68K $0A22 ; => $09B926 => $09CC06 09C348 10 89 BR $089 ; => $09C3D3 09C34A 10 06 12 CASE $12 ; SWITCH $09C2B3 09C34D 30 0A A2 BSR.68K $0AA2 ; => $09B8AE => $09CC6A 09C350 10 81 BR $081 ; => $09C3D3 09C352 10 06 13 CASE $13 ; SWITCH $09C2B3 09C355 30 0A B0 BSR.68K $0AB0 ; => $09B8A8 => $09CC94 09C358 10 79 BR $079 ; => $09C3D3 09C35A 10 07 14 CASE $14 ; SWITCH $09C2B3 09C35D 40 PUSH.6 $00 09C35E 30 0A AD BSR.68K $0AAD ; => $09B8B4 => $09AD34 09C361 10 70 BR $070 ; => $09C3D3 09C363 10 07 16 CASE $16 ; SWITCH $09C2B3 09C366 42 PUSH.6 $02 09C367 30 0A B6 BSR.68K $0AB6 ; => $09B8B4 => $09AD34 09C36A 10 67 BR $067 ; => $09C3D3 09C36C 10 07 1E CASE $1E ; SWITCH $09C2B3 09C36F 5F PUSH.6 $1F 09C370 30 0A A7 BSR.68K $0AA7 ; => $09B8CC => $09AD6C 09C373 10 5E BR $05E ; => $09C3D3 09C375 10 07 1F CASE $1F ; SWITCH $09C2B3 09C378 42 PUSH.6 $02 09C379 30 0A B0 BSR.68K $0AB0 ; => $09B8CC => $09AD6C 09C37C 10 55 BR $055 ; => $09C3D3 09C37E 10 07 20 CASE $20 ; SWITCH $09C2B3 09C381 61 PUSH.6 $21 09C382 30 0A B9 BSR.68K $0AB9 ; => $09B8CC => $09AD6C 09C385 10 4C BR $04C ; => $09C3D3 09C387 10 06 21 CASE $21 ; SWITCH $09C2B3 09C38A 30 0A BB BSR.68K $0ABB ; => $09B8D2 => $09ADDC 09C38D 10 44 BR $044 ; => $09C3D3 09C38F 10 06 22 CASE $22 ; SWITCH $09C2B3 09C392 30 0A A5 BSR.68K $0AA5 ; => $09B8F0 => $09AFC0 09C395 10 3C BR $03C ; => $09C3D3 09C397 10 06 23 CASE $23 ; SWITCH $09C2B3 09C39A 30 0A 95 BSR.68K $0A95 ; => $09B908 => $09B102 09C39D 10 34 BR $034 ; => $09C3D3 09C39F 10 07 24 CASE $24 ; SWITCH $09C2B3 09C3A2 65 PUSH.6 $25 09C3A3 30 0A F2 BSR.68K $0AF2 ; => $09B8B4 => $09AD34 09C3A6 10 2B BR $02B ; => $09C3D3 09C3A8 10 07 25 CASE $25 ; SWITCH $09C2B3 09C3AB 66 PUSH.6 $26 09C3AC 30 0A D1 BSR.68K $0AD1 ; => $09B8DE => $09B046 09C3AF 10 22 BR $022 ; => $09C3D3 09C3B1 10 07 26 CASE $26 ; SWITCH $09C2B3 09C3B4 40 PUSH.6 $00 09C3B5 30 0A DA BSR.68K $0ADA ; => $09B8DE => $09B046 09C3B8 10 19 BR $019 ; => $09C3D3 09C3BA 10 06 28 CASE $28 ; SWITCH $09C2B3 09C3BD 30 0A DC BSR.68K $0ADC ; => $09B8E4 => $09B096 09C3C0 10 11 BR $011 ; => $09C3D3 09C3C2 10 06 29 CASE $29 ; SWITCH $09C2B3 09C3C5 30 0A DE BSR.68K $0ADE ; => $09B8EA => $09B0DA 09C3C8 10 09 BR $009 ; => $09C3D3 09C3CA 10 06 3C CASE $3C ; SWITCH $09C2B3 09C3CD 30 0A 98 BSR.68K $0A98 ; => $09B938 => $09F0C8 09C3D0 10 01 BR $001 ; => $09C3D3 09C3D2 00 DEFAULT ; SWITCH $09C2B3 09C3D3 34 RETURN ; ---------------- End Function $09C2AA ---------------- ; ---------------- Begin 2164 Function $09C440 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $09B9B8:$09BA39 ; called from $09BCE0:$09BD5D ; called from $09C0A2:$09C1A2 ; called from $09C68C:$09C6BE ; addr bytes opcode operands comment 09C449 31 02 SUBSP.B $02 09C44B 40 PUSH.6 $00 09C44C 96 03 WRITE.L $03 09C44E 40 PUSH.6 $00 09C44F 36 10 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 09C452 71 PUSH.6 $31 09C453 38 00 23 BLS.B $0023 ; => $09C479 09C456 84 08 READ.B $08 09C458 E0 32 CD READ.B $32CD 09C45B 84 08 READ.B $08 09C45D E0 32 CD READ.B $32CD 09C460 04 7F PUSH.10 $07F 09C462 2C AND.L 09C463 86 07 READ.L $07 09C465 2A EQ.L 09C466 2C AND.L 09C467 18 0B BRZ $00B ; => $09C474 09C469 84 08 READ.B $08 09C46B D0 32 D5 WRITE.B $32D5 09C46E 04 FF PUSH.10 $0FF 09C470 96 03 WRITE.L $03 09C472 10 05 BR $005 ; => $09C479 09C474 37 10 08 00 27 _23d2 $0008, $0027 09C479 32 06 ADDSP.B $06 09C47B 34 RETURN ; ---------------- End Function $09C440 ---------------- ; ---------------- Begin 2144 Function $09C47C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C0A2:$09C1CC ; called from $09C0A2:$09C204 ; addr bytes opcode operands comment 09C483 40 PUSH.6 $00 09C484 3F 20 53 50 45 43 49 46 59 DISP "SPECIFY SCHEDULE YES NO " 20 53 43 48 45 44 55 4C 45 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 09C4A6 C0 32 D5 READ.B $32D5 09C4A9 E0 2E 1D READ.B $2E1D 09C4AC 18 05 BRZ $005 ; => $09C4B3 09C4AE 6A PUSH.6 $2A 09C4AF 90 0F WRITE.B $0F 09C4B1 10 03 BR $003 ; => $09C4B6 09C4B3 6A PUSH.6 $2A 09C4B4 90 04 WRITE.B $04 09C4B6 67 PUSH.6 $27 09C4B7 40 PUSH.6 $00 09C4B8 40 PUSH.6 $00 09C4B9 6C PUSH.6 $2C 09C4BA 40 PUSH.6 $00 09C4BB 40 PUSH.6 $00 09C4BC 40 PUSH.6 $00 09C4BD 40 PUSH.6 $00 09C4BE 30 00 E1 BSR.68K $00E1 ; => $09C3E0 => $099614 09C4C1 34 RETURN ; ---------------- End Function $09C47C ---------------- ; ---------------- Begin 2144 Function $09C4C2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C0A2:$09C1EE ; called from $09C7CA:$09C80B ; called from $09C81E:$09C859 ; addr bytes opcode operands comment 09C4C9 31 02 SUBSP.B $02 09C4CB 30 00 F4 BSR.68K $00F4 ; => $09C3DA => $099642 09C4CE 40 PUSH.6 $00 09C4CF 3F 1C 53 54 41 52 54 20 54 DISP "START TIME STOP TIME " 49 4D 45 20 20 20 20 20 20 53 54 4F 50 20 20 54 49 4D 45 20 20 09C4ED C0 32 D5 READ.B $32D5 09C4F0 E1 2E 81 READ.W $2E81 09C4F3 7C PUSH.6 $3C 09C4F4 03 24 DIV.L 09C4F6 94 00 WRITE.B $00 09C4F8 4C PUSH.6 $0C 09C4F9 42 PUSH.6 $02 09C4FA 84 00 READ.B $00 09C4FC 03 2A LONG2FLOAT 09C4FE 30 01 09 BSR.68K $0109 ; => $09C3F8 => $097AD2 09C501 4E PUSH.6 $0E 09C502 42 PUSH.6 $02 09C503 C0 32 D5 READ.B $32D5 09C506 E1 2E 81 READ.W $2E81 09C509 84 00 READ.B $00 09C50B 7C PUSH.6 $3C 09C50C 29 MUL.L 09C50D 28 SUB.L 09C50E 03 2A LONG2FLOAT 09C510 30 01 1B BSR.68K $011B ; => $09C3F8 => $097AD2 09C513 C0 32 D5 READ.B $32D5 09C516 E1 2E E5 READ.W $2EE5 09C519 7C PUSH.6 $3C 09C51A 03 24 DIV.L 09C51C 94 00 WRITE.B $00 09C51E 5C PUSH.6 $1C 09C51F 42 PUSH.6 $02 09C520 84 00 READ.B $00 09C522 03 2A LONG2FLOAT 09C524 30 01 2F BSR.68K $012F ; => $09C3F8 => $097AD2 09C527 5E PUSH.6 $1E 09C528 42 PUSH.6 $02 09C529 C0 32 D5 READ.B $32D5 09C52C E1 2E E5 READ.W $2EE5 09C52F 84 00 READ.B $00 09C531 7C PUSH.6 $3C 09C532 29 MUL.L 09C533 28 SUB.L 09C534 03 2A LONG2FLOAT 09C536 30 01 41 BSR.68K $0141 ; => $09C3F8 => $097AD2 09C539 4D PUSH.6 $0D 09C53A 30 01 4B BSR.68K $014B ; => $09C3F2 => $097B5C 09C53D 5D PUSH.6 $1D 09C53E 30 01 4F BSR.68K $014F ; => $09C3F2 => $097B5C 09C541 32 02 ADDSP.B $02 09C543 34 RETURN ; ---------------- End Function $09C4C2 ---------------- ; ---------------- Begin 2144 Function $09C544 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C7CA:$09C816 ; called from $09C81E:$09C955 ; called from $09C95E:$09C97B ; addr bytes opcode operands comment 09C54B 30 01 74 BSR.68K $0174 ; => $09C3DA => $099642 09C54E 40 PUSH.6 $00 09C54F 3F 20 45 4C 45 56 41 54 49 DISP "ELEVATION MASK DEGREES " 4F 4E 20 4D 41 53 4B 20 20 20 20 20 44 45 47 52 45 45 53 20 20 20 20 20 20 09C571 50 PUSH.6 $10 09C572 42 PUSH.6 $02 09C573 C0 32 D5 READ.B $32D5 09C576 E0 2F 17 READ.B $2F17 09C579 03 2A LONG2FLOAT 09C57B 30 01 86 BSR.68K $0186 ; => $09C3F8 => $097AD2 09C57E 50 PUSH.6 $10 09C57F 90 26 WRITE.B $26 09C581 34 RETURN ; ---------------- End Function $09C544 ---------------- ; ---------------- Begin 2144 Function $09C582 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C95E:$09C990 ; called from $09C9EA:$09CA07 ; called from $09C9EA:$09CA26 ; addr bytes opcode operands comment 09C589 40 PUSH.6 $00 09C58A 3F 1A 4D 49 4E 49 4D 55 4D DISP "MINIMUM NUMBER OF SVS " 20 4E 55 4D 42 45 52 20 20 4F 46 20 53 56 53 20 20 20 20 09C5A6 57 PUSH.6 $17 09C5A7 41 PUSH.6 $01 09C5A8 C0 32 D5 READ.B $32D5 09C5AB E0 2F 49 READ.B $2F49 09C5AE 03 2A LONG2FLOAT 09C5B0 30 01 BB BSR.68K $01BB ; => $09C3F8 => $097AD2 09C5B3 57 PUSH.6 $17 09C5B4 90 26 WRITE.B $26 09C5B6 34 RETURN ; ---------------- End Function $09C582 ---------------- ; ---------------- Begin 2144 Function $09C5B8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C9EA:$09CA36 ; addr bytes opcode operands comment 09C5BF 40 PUSH.6 $00 09C5C0 3F 1D 20 53 56 20 53 45 4C DISP " SV SELECTION AUTO MANUAL" 45 43 54 49 4F 4E 20 20 20 20 41 55 54 4F 20 20 4D 41 4E 55 41 4C 09C5DF C0 32 D5 READ.B $32D5 09C5E2 E0 2F 7B READ.B $2F7B 09C5E5 18 05 BRZ $005 ; => $09C5EC 09C5E7 6A PUSH.6 $2A 09C5E8 90 09 WRITE.B $09 09C5EA 10 03 BR $003 ; => $09C5EF 09C5EC 6A PUSH.6 $2A 09C5ED 90 0F WRITE.B $0F 09C5EF 67 PUSH.6 $27 09C5F0 69 PUSH.6 $29 09C5F1 6F PUSH.6 $2F 09C5F2 68 PUSH.6 $28 09C5F3 40 PUSH.6 $00 09C5F4 40 PUSH.6 $00 09C5F5 40 PUSH.6 $00 09C5F6 40 PUSH.6 $00 09C5F7 30 02 1A BSR.68K $021A ; => $09C3E0 => $099614 09C5FA 34 RETURN ; ---------------- End Function $09C5B8 ---------------- ; ---------------- Begin 2144 Function $09C5FC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09B6D2:$09B6F9 ; called from $09CABA:$09CAD7 ; addr bytes opcode operands comment 09C603 30 02 2C BSR.68K $022C ; => $09C3DA => $099642 09C606 40 PUSH.6 $00 09C607 3F 20 52 45 43 45 49 56 45 DISP "RECEIVER SERIAL NUMBER " 52 20 53 45 52 49 41 4C 20 4E 55 4D 42 45 52 20 20 20 20 20 20 20 20 20 20 09C629 57 PUSH.6 $17 09C62A 48 PUSH.6 $08 09C62B C2 32 D1 READ.L $32D1 09C62E 03 2A LONG2FLOAT 09C630 30 02 3B BSR.68K $023B ; => $09C3F8 => $097AD2 09C633 57 PUSH.6 $17 09C634 90 26 WRITE.B $26 09C636 34 RETURN ; ---------------- End Function $09C5FC ---------------- ; ---------------- Begin 2144 Function $09C638 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09B6D2:$09B6E6 ; called from $09CABA:$09CAF6 ; called from $09CB52:$09CB7C ; called from $09CB52:$09CBE5 ; addr bytes opcode operands comment 09C63F 40 PUSH.6 $00 09C640 40 PUSH.6 $00 09C641 63 PUSH.6 $23 09C642 6E PUSH.6 $2E 09C643 40 PUSH.6 $00 09C644 40 PUSH.6 $00 09C645 40 PUSH.6 $00 09C646 40 PUSH.6 $00 09C647 30 02 6A BSR.68K $026A ; => $09C3E0 => $099614 09C64A 40 PUSH.6 $00 09C64B 3F 20 41 4E 54 45 4E 4E 41 DISP "ANTENNA NUMBER FIELD " 20 20 4E 55 4D 42 45 52 20 20 20 20 20 20 20 20 20 20 20 46 49 45 4C 44 20 09C66D C0 32 D5 READ.B $32D5 09C670 E0 31 D3 READ.B $31D3 09C673 18 05 BRZ $005 ; => $09C67A 09C675 6A PUSH.6 $2A 09C676 90 00 WRITE.B $00 09C678 10 10 BR $010 ; => $09C68A 09C67A 51 PUSH.6 $11 09C67B 46 PUSH.6 $06 09C67C C0 32 D5 READ.B $32D5 09C67F E2 32 9B READ.L $329B 09C682 03 2A LONG2FLOAT 09C684 30 02 8F BSR.68K $028F ; => $09C3F8 => $097AD2 09C687 51 PUSH.6 $11 09C688 90 26 WRITE.B $26 09C68A 34 RETURN ; ---------------- End Function $09C638 ---------------- ; ---------------- Begin 2144 Function $09C68C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09CB52:$09CB98 ; addr bytes opcode operands comment 09C693 C0 32 D5 READ.B $32D5 09C696 90 24 WRITE.B $24 09C698 40 PUSH.6 $00 09C699 3F 20 20 4C 49 4E 4B 20 42 DISP " LINK BACKWARDS YES NO " 41 43 4B 57 41 52 44 53 20 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 09C6BB C0 32 D5 READ.B $32D5 09C6BE 30 02 81 BSR.68K $0281 ; => $09C440 09C6C1 18 05 BRZ $005 ; => $09C6C8 09C6C3 6A PUSH.6 $2A 09C6C4 90 0F WRITE.B $0F 09C6C6 10 08 BR $008 ; => $09C6D0 09C6C8 6A PUSH.6 $2A 09C6C9 90 04 WRITE.B $04 09C6CB 04 FF PUSH.10 $0FF 09C6CD D0 32 D5 WRITE.B $32D5 09C6D0 67 PUSH.6 $27 09C6D1 40 PUSH.6 $00 09C6D2 40 PUSH.6 $00 09C6D3 6C PUSH.6 $2C 09C6D4 40 PUSH.6 $00 09C6D5 40 PUSH.6 $00 09C6D6 40 PUSH.6 $00 09C6D7 40 PUSH.6 $00 09C6D8 30 02 FB BSR.68K $02FB ; => $09C3E0 => $099614 09C6DB 34 RETURN ; ---------------- End Function $09C68C ---------------- ; ---------------- Begin 2144 Function $09C6DC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C0A2:$09C1D9 ; called from $09CC06:$09CC62 ; addr bytes opcode operands comment 09C6E3 40 PUSH.6 $00 09C6E4 3F 20 41 4E 4F 54 48 45 52 DISP "ANOTHER SESSION YES NO " 20 53 45 53 53 49 4F 4E 20 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 09C706 67 PUSH.6 $27 09C707 40 PUSH.6 $00 09C708 40 PUSH.6 $00 09C709 6C PUSH.6 $2C 09C70A 40 PUSH.6 $00 09C70B 40 PUSH.6 $00 09C70C 40 PUSH.6 $00 09C70D 40 PUSH.6 $00 09C70E 30 03 31 BSR.68K $0331 ; => $09C3E0 => $099614 09C711 34 RETURN ; ---------------- End Function $09C6DC ---------------- ; ---------------- Begin 2144 Function $09C712 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09CC6A:$09CC8D ; addr bytes opcode operands comment 09C719 40 PUSH.6 $00 09C71A 3F 20 41 4E 4F 54 48 45 52 DISP "ANOTHER STATION YES NO " 20 53 54 41 54 49 4F 4E 20 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 09C73C 67 PUSH.6 $27 09C73D 40 PUSH.6 $00 09C73E 40 PUSH.6 $00 09C73F 6C PUSH.6 $2C 09C740 40 PUSH.6 $00 09C741 40 PUSH.6 $00 09C742 40 PUSH.6 $00 09C743 40 PUSH.6 $00 09C744 30 03 67 BSR.68K $0367 ; => $09C3E0 => $099614 09C747 34 RETURN ; ---------------- End Function $09C712 ---------------- ; ---------------- Begin 2144 Function $09C748 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09BE50:$09BE86 ; called from $09CC94:$09CCB4 ; addr bytes opcode operands comment 09C74F 31 02 SUBSP.B $02 09C751 30 03 7A BSR.68K $037A ; => $09C3DA => $099642 09C754 40 PUSH.6 $00 09C755 3F 20 20 20 20 53 54 41 54 DISP " STATIONS FREE SESSIONS FREE" 49 4F 4E 53 20 46 52 45 45 20 20 20 53 45 53 53 49 4F 4E 53 20 46 52 45 45 09C777 40 PUSH.6 $00 09C778 94 01 WRITE.B $01 09C77A 40 PUSH.6 $00 09C77B 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09C77E 5D PUSH.6 $1D 09C77F 38 00 14 BLS.B $0014 ; => $09C796 09C782 84 00 READ.B $00 09C784 E1 2A 49 READ.W $2A49 09C787 40 PUSH.6 $00 09C788 2A EQ.L 09C789 18 06 BRZ $006 ; => $09C791 09C78B 84 01 READ.B $01 09C78D 41 PUSH.6 $01 09C78E 27 ADD.L 09C78F 94 01 WRITE.B $01 09C791 37 10 00 00 18 _23d2 $0000, $0018 09C796 40 PUSH.6 $00 09C797 42 PUSH.6 $02 09C798 84 01 READ.B $01 09C79A 03 2A LONG2FLOAT 09C79C 30 03 A7 BSR.68K $03A7 ; => $09C3F8 => $097AD2 09C79F 40 PUSH.6 $00 09C7A0 94 01 WRITE.B $01 09C7A2 40 PUSH.6 $00 09C7A3 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09C7A6 71 PUSH.6 $31 09C7A7 38 00 14 BLS.B $0014 ; => $09C7BE 09C7AA 84 00 READ.B $00 09C7AC E1 2D B9 READ.W $2DB9 09C7AF 40 PUSH.6 $00 09C7B0 2A EQ.L 09C7B1 18 06 BRZ $006 ; => $09C7B9 09C7B3 84 01 READ.B $01 09C7B5 41 PUSH.6 $01 09C7B6 27 ADD.L 09C7B7 94 01 WRITE.B $01 09C7B9 37 10 00 00 18 _23d2 $0000, $0018 09C7BE 50 PUSH.6 $10 09C7BF 42 PUSH.6 $02 09C7C0 84 01 READ.B $01 09C7C2 03 2A LONG2FLOAT 09C7C4 30 03 CF BSR.68K $03CF ; => $09C3F8 => $097AD2 09C7C7 32 02 ADDSP.B $02 09C7C9 34 RETURN ; ---------------- End Function $09C748 ---------------- ; ---------------- Begin 2144 Function $09C7CA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C2D1 ; addr bytes opcode operands comment 09C7D1 80 20 READ.B $20 09C7D3 35 SWITCH 09C7D4 10 09 02 CASE $02 ; SWITCH $09C7D3 09C7D7 42 PUSH.6 $02 09C7D8 90 23 WRITE.B $23 09C7DA 30 03 C1 BSR.68K $03C1 ; => $09C41C => $09B9B8 09C7DD 10 3D BR $03D ; => $09C81C 09C7DF 30 3A 10 D0 04 CASE $10, $D0, $04 ; SWITCH $09C7D3 09C7E4 80 20 READ.B $20 09C7E6 50 PUSH.6 $10 09C7E7 2A EQ.L 09C7E8 18 08 BRZ $008 ; => $09C7F2 09C7EA C0 32 D5 READ.B $32D5 09C7ED 04 FF PUSH.10 $0FF 09C7EF F0 2E 1D WRITE.B $2E1D 09C7F2 80 20 READ.B $20 09C7F4 04 D0 PUSH.10 $0D0 09C7F6 2A EQ.L 09C7F7 18 07 BRZ $007 ; => $09C800 09C7F9 C0 32 D5 READ.B $32D5 09C7FC 40 PUSH.6 $00 09C7FD F0 2E 1D WRITE.B $2E1D 09C800 C0 32 D5 READ.B $32D5 09C803 E0 2E 1D READ.B $2E1D 09C806 18 0B BRZ $00B ; => $09C813 09C808 44 PUSH.6 $04 09C809 90 23 WRITE.B $23 09C80B 30 03 4C BSR.68K $034C ; => $09C4C2 09C80E 4C PUSH.6 $0C 09C80F 90 26 WRITE.B $26 09C811 10 06 BR $006 ; => $09C819 09C813 45 PUSH.6 $05 09C814 90 23 WRITE.B $23 09C816 30 02 D5 BSR.68K $02D5 ; => $09C544 09C819 10 01 BR $001 ; => $09C81C 09C81B 00 DEFAULT ; SWITCH $09C7D3 09C81C 34 RETURN ; ---------------- End Function $09C7CA ---------------- ; ---------------- Begin 2144 Function $09C81E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C2D9 ; addr bytes opcode operands comment 09C825 31 02 SUBSP.B $02 09C827 80 20 READ.B $20 09C829 35 SWITCH 09C82A 10 35 02 CASE $02 ; SWITCH $09C829 09C82D 80 26 READ.B $26 09C82F 4C PUSH.6 $0C 09C830 2A EQ.L 09C831 18 26 BRZ $026 ; => $09C859 09C833 4C PUSH.6 $0C 09C834 4F PUSH.6 $0F 09C835 30 04 4C BSR.68K $044C ; => $09C3EC => $09E02C 09C838 03 29 FLOAT2LONG 09C83A 40 PUSH.6 $00 09C83B 2A EQ.L 09C83C 5C PUSH.6 $1C 09C83D 5F PUSH.6 $1F 09C83E 30 04 55 BSR.68K $0455 ; => $09C3EC => $09E02C 09C841 03 29 FLOAT2LONG 09C843 40 PUSH.6 $00 09C844 2A EQ.L 09C845 2C AND.L 09C846 18 07 BRZ $007 ; => $09C84F 09C848 C0 32 D5 READ.B $32D5 09C84B 40 PUSH.6 $00 09C84C F0 2E 1D WRITE.B $2E1D 09C84F 42 PUSH.6 $02 09C850 90 23 WRITE.B $23 09C852 30 04 39 BSR.68K $0439 ; => $09C41C => $09B9B8 09C855 11 04 BR $104 ; => $09C95B 09C857 10 06 BR $006 ; => $09C85F 09C859 30 03 9A BSR.68K $039A ; => $09C4C2 09C85C 4C PUSH.6 $0C 09C85D 90 26 WRITE.B $26 09C85F 10 43 BR $043 ; => $09C8A4 09C861 10 06 04 CASE $04 ; SWITCH $09C829 09C864 61 PUSH.6 $21 09C865 90 26 WRITE.B $26 09C867 10 3B BR $03B ; => $09C8A4 09C869 10 1A 10 CASE $10 ; SWITCH $09C829 09C86C 80 26 READ.B $26 09C86E 35 SWITCH 09C86F 10 03 0C CASE $0C ; SWITCH $09C86E 09C872 10 0F BR $00F ; => $09C883 09C874 10 06 1C CASE $1C ; SWITCH $09C86E 09C877 4F PUSH.6 $0F 09C878 90 26 WRITE.B $26 09C87A 10 07 BR $007 ; => $09C883 09C87C 00 DEFAULT ; SWITCH $09C86E 09C87D 80 26 READ.B $26 09C87F 41 PUSH.6 $01 09C880 28 SUB.L 09C881 90 26 WRITE.B $26 09C883 10 1F BR $01F ; => $09C8A4 09C885 20 1C 50 D0 CASE $50, $D0 ; SWITCH $09C829 09C889 80 26 READ.B $26 09C88B 4F PUSH.6 $0F 09C88C 2A EQ.L 09C88D 18 05 BRZ $005 ; => $09C894 09C88F 5C PUSH.6 $1C 09C890 90 26 WRITE.B $26 09C892 10 0D BR $00D ; => $09C8A1 09C894 80 26 READ.B $26 09C896 5F PUSH.6 $1F 09C897 03 26 GT.L 09C899 18 06 BRZ $006 ; => $09C8A1 09C89B 80 26 READ.B $26 09C89D 41 PUSH.6 $01 09C89E 27 ADD.L 09C89F 90 26 WRITE.B $26 09C8A1 10 01 BR $001 ; => $09C8A4 09C8A3 00 DEFAULT ; SWITCH $09C829 09C8A4 80 26 READ.B $26 09C8A6 60 PUSH.6 $20 09C8A7 03 26 GT.L 09C8A9 18 05 BRZ $005 ; => $09C8B0 09C8AB 30 04 C8 BSR.68K $04C8 ; => $09C3E6 => $09DFB4 09C8AE 94 00 WRITE.B $00 09C8B0 4D PUSH.6 $0D 09C8B1 30 04 C2 BSR.68K $04C2 ; => $09C3F2 => $097B5C 09C8B4 5D PUSH.6 $1D 09C8B5 30 04 C6 BSR.68K $04C6 ; => $09C3F2 => $097B5C 09C8B8 80 26 READ.B $26 09C8BA 35 SWITCH 09C8BB 20 08 0D 1D CASE $0D, $1D ; SWITCH $09C8BA 09C8BF 72 PUSH.6 $32 09C8C0 30 04 C5 BSR.68K $04C5 ; => $09C3FE => $09E0F6 09C8C3 10 96 BR $096 ; => $09C95B 09C8C5 10 12 0E CASE $0E ; SWITCH $09C8BA 09C8C8 80 13 READ.B $13 09C8CA 72 PUSH.6 $32 09C8CB 2A EQ.L 09C8CC 18 05 BRZ $005 ; => $09C8D3 09C8CE 04 B3 PUSH.10 $0B3 09C8D0 30 04 D5 BSR.68K $04D5 ; => $09C3FE => $09E0F6 09C8D3 4D PUSH.6 $0D 09C8D4 30 04 E5 BSR.68K $04E5 ; => $09C3F2 => $097B5C 09C8D7 10 82 BR $082 ; => $09C95B 09C8D9 10 12 1E CASE $1E ; SWITCH $09C8BA 09C8DC 80 03 READ.B $03 09C8DE 72 PUSH.6 $32 09C8DF 2A EQ.L 09C8E0 18 05 BRZ $005 ; => $09C8E7 09C8E2 04 B3 PUSH.10 $0B3 09C8E4 30 04 E9 BSR.68K $04E9 ; => $09C3FE => $09E0F6 09C8E7 5D PUSH.6 $1D 09C8E8 30 04 F9 BSR.68K $04F9 ; => $09C3F2 => $097B5C 09C8EB 10 6E BR $06E ; => $09C95B 09C8ED 20 08 0F 1F CASE $0F, $1F ; SWITCH $09C8BA 09C8F1 75 PUSH.6 $35 09C8F2 30 04 F7 BSR.68K $04F7 ; => $09C3FE => $09E0F6 09C8F5 10 64 BR $064 ; => $09C95B 09C8F7 10 06 10 CASE $10 ; SWITCH $09C8BA 09C8FA 5C PUSH.6 $1C 09C8FB 90 26 WRITE.B $26 09C8FD 10 5C BR $05C ; => $09C95B 09C8FF 10 59 21 CASE $21 ; SWITCH $09C8BA 09C902 4C PUSH.6 $0C 09C903 4D PUSH.6 $0D 09C904 30 05 1B BSR.68K $051B ; => $09C3EC => $09E02C 09C907 03 29 FLOAT2LONG 09C909 94 01 WRITE.B $01 09C90B C0 32 D5 READ.B $32D5 09C90E 84 01 READ.B $01 09C910 7C PUSH.6 $3C 09C911 29 MUL.L 09C912 4E PUSH.6 $0E 09C913 4F PUSH.6 $0F 09C914 30 05 2B BSR.68K $052B ; => $09C3EC => $09E02C 09C917 03 29 FLOAT2LONG 09C919 27 ADD.L 09C91A F1 2E 81 WRITE.W $2E81 09C91D 5C PUSH.6 $1C 09C91E 5D PUSH.6 $1D 09C91F 30 05 36 BSR.68K $0536 ; => $09C3EC => $09E02C 09C922 03 29 FLOAT2LONG 09C924 94 01 WRITE.B $01 09C926 C0 32 D5 READ.B $32D5 09C929 84 01 READ.B $01 09C92B 7C PUSH.6 $3C 09C92C 29 MUL.L 09C92D 5E PUSH.6 $1E 09C92E 5F PUSH.6 $1F 09C92F 30 05 46 BSR.68K $0546 ; => $09C3EC => $09E02C 09C932 03 29 FLOAT2LONG 09C934 27 ADD.L 09C935 F1 2E E5 WRITE.W $2EE5 09C938 C0 32 D5 READ.B $32D5 09C93B E1 2E 81 READ.W $2E81 09C93E 40 PUSH.6 $00 09C93F 2A EQ.L 09C940 C0 32 D5 READ.B $32D5 09C943 E1 2E E5 READ.W $2EE5 09C946 40 PUSH.6 $00 09C947 2A EQ.L 09C948 2C AND.L 09C949 18 07 BRZ $007 ; => $09C952 09C94B C0 32 D5 READ.B $32D5 09C94E 40 PUSH.6 $00 09C94F F0 2E 1D WRITE.B $2E1D 09C952 45 PUSH.6 $05 09C953 90 23 WRITE.B $23 09C955 30 04 14 BSR.68K $0414 ; => $09C544 09C958 10 01 BR $001 ; => $09C95B 09C95A 00 DEFAULT ; SWITCH $09C8BA 09C95B 32 02 ADDSP.B $02 09C95D 34 RETURN ; ---------------- End Function $09C81E ---------------- ; ---------------- Begin 2144 Function $09C95E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C2E1 ; addr bytes opcode operands comment 09C965 31 02 SUBSP.B $02 09C967 80 20 READ.B $20 09C969 35 SWITCH 09C96A 10 14 02 CASE $02 ; SWITCH $09C969 09C96D 80 26 READ.B $26 09C96F 50 PUSH.6 $10 09C970 2A EQ.L 09C971 18 08 BRZ $008 ; => $09C97B 09C973 42 PUSH.6 $02 09C974 90 23 WRITE.B $23 09C976 30 05 5D BSR.68K $055D ; => $09C41C => $09B9B8 09C979 10 03 BR $003 ; => $09C97E 09C97B 30 04 3A BSR.68K $043A ; => $09C544 09C97E 10 46 BR $046 ; => $09C9C6 09C980 10 13 04 CASE $04 ; SWITCH $09C969 09C983 C0 32 D5 READ.B $32D5 09C986 50 PUSH.6 $10 09C987 30 05 7A BSR.68K $057A ; => $09C410 => $09E078 09C98A F0 2F 17 WRITE.B $2F17 09C98D 46 PUSH.6 $06 09C98E 90 23 WRITE.B $23 09C990 30 04 11 BSR.68K $0411 ; => $09C582 09C993 10 31 BR $031 ; => $09C9C6 09C995 10 1A 10 CASE $10 ; SWITCH $09C969 09C998 80 26 READ.B $26 09C99A 35 SWITCH 09C99B 10 03 10 CASE $10 ; SWITCH $09C99A 09C99E 10 0F BR $00F ; => $09C9AF 09C9A0 10 06 20 CASE $20 ; SWITCH $09C99A 09C9A3 51 PUSH.6 $11 09C9A4 90 26 WRITE.B $26 09C9A6 10 07 BR $007 ; => $09C9AF 09C9A8 00 DEFAULT ; SWITCH $09C99A 09C9A9 80 26 READ.B $26 09C9AB 41 PUSH.6 $01 09C9AC 28 SUB.L 09C9AD 90 26 WRITE.B $26 09C9AF 10 15 BR $015 ; => $09C9C6 09C9B1 10 12 50 CASE $50 ; SWITCH $09C969 09C9B4 80 26 READ.B $26 09C9B6 35 SWITCH 09C9B7 10 03 11 CASE $11 ; SWITCH $09C9B6 09C9BA 10 07 BR $007 ; => $09C9C3 09C9BC 00 DEFAULT ; SWITCH $09C9B6 09C9BD 80 26 READ.B $26 09C9BF 41 PUSH.6 $01 09C9C0 27 ADD.L 09C9C1 90 26 WRITE.B $26 09C9C3 10 01 BR $001 ; => $09C9C6 09C9C5 00 DEFAULT ; SWITCH $09C969 09C9C6 80 26 READ.B $26 09C9C8 52 PUSH.6 $12 09C9C9 03 26 GT.L 09C9CB 18 05 BRZ $005 ; => $09C9D2 09C9CD 30 05 EA BSR.68K $05EA ; => $09C3E6 => $09DFB4 09C9D0 94 00 WRITE.B $00 09C9D2 80 26 READ.B $26 09C9D4 35 SWITCH 09C9D5 10 07 11 CASE $11 ; SWITCH $09C9D4 09C9D8 78 PUSH.6 $38 09C9D9 30 05 DE BSR.68K $05DE ; => $09C3FE => $09E0F6 09C9DC 10 09 BR $009 ; => $09C9E7 09C9DE 10 06 12 CASE $12 ; SWITCH $09C9D4 09C9E1 60 PUSH.6 $20 09C9E2 90 26 WRITE.B $26 09C9E4 10 01 BR $001 ; => $09C9E7 09C9E6 00 DEFAULT ; SWITCH $09C9D4 09C9E7 32 02 ADDSP.B $02 09C9E9 34 RETURN ; ---------------- End Function $09C95E ---------------- ; ---------------- Begin 2144 Function $09C9EA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C2E9 ; addr bytes opcode operands comment 09C9F1 31 02 SUBSP.B $02 09C9F3 80 20 READ.B $20 09C9F5 35 SWITCH 09C9F6 10 14 02 CASE $02 ; SWITCH $09C9F5 09C9F9 80 26 READ.B $26 09C9FB 57 PUSH.6 $17 09C9FC 2A EQ.L 09C9FD 18 08 BRZ $008 ; => $09CA07 09C9FF 42 PUSH.6 $02 09CA00 90 23 WRITE.B $23 09CA02 30 05 E9 BSR.68K $05E9 ; => $09C41C => $09B9B8 09CA05 10 03 BR $003 ; => $09CA0A 09CA07 30 04 88 BSR.68K $0488 ; => $09C582 09CA0A 10 30 BR $030 ; => $09CA3C 09CA0C 10 2D 04 CASE $04 ; SWITCH $09C9F5 09CA0F 57 PUSH.6 $17 09CA10 57 PUSH.6 $17 09CA11 30 06 28 BSR.68K $0628 ; => $09C3EC => $09E02C 09CA14 03 29 FLOAT2LONG 09CA16 94 01 WRITE.B $01 09CA18 84 01 READ.B $01 09CA1A 40 PUSH.6 $00 09CA1B 2A EQ.L 09CA1C 84 01 READ.B $01 09CA1E C0 29 A0 READ.B $29A0 09CA21 03 25 LT.L 09CA23 2D OR.L 09CA24 18 05 BRZ $005 ; => $09CA2B 09CA26 30 04 A7 BSR.68K $04A7 ; => $09C582 09CA29 10 0E BR $00E ; => $09CA39 09CA2B C0 32 D5 READ.B $32D5 09CA2E 84 01 READ.B $01 09CA30 F0 2F 49 WRITE.B $2F49 09CA33 47 PUSH.6 $07 09CA34 90 23 WRITE.B $23 09CA36 30 04 81 BSR.68K $0481 ; => $09C5B8 09CA39 10 01 BR $001 ; => $09CA3C 09CA3B 00 DEFAULT ; SWITCH $09C9F5 09CA3C 80 26 READ.B $26 09CA3E 58 PUSH.6 $18 09CA3F 03 26 GT.L 09CA41 18 05 BRZ $005 ; => $09CA48 09CA43 30 06 60 BSR.68K $0660 ; => $09C3E6 => $09DFB4 09CA46 94 00 WRITE.B $00 09CA48 80 26 READ.B $26 09CA4A 35 SWITCH 09CA4B 10 0E 18 CASE $18 ; SWITCH $09CA4A 09CA4E C0 29 9A READ.B $299A 09CA51 71 PUSH.6 $31 09CA52 27 ADD.L 09CA53 30 06 58 BSR.68K $0658 ; => $09C3FE => $09E0F6 09CA56 60 PUSH.6 $20 09CA57 90 26 WRITE.B $26 09CA59 10 01 BR $001 ; => $09CA5C 09CA5B 00 DEFAULT ; SWITCH $09CA4A 09CA5C 32 02 ADDSP.B $02 09CA5E 34 RETURN ; ---------------- End Function $09C9EA ---------------- ; ---------------- Begin 2144 Function $09CA60 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C2F1 ; addr bytes opcode operands comment 09CA67 80 20 READ.B $20 09CA69 35 SWITCH 09CA6A 10 09 02 CASE $02 ; SWITCH $09CA69 09CA6D 42 PUSH.6 $02 09CA6E 90 23 WRITE.B $23 09CA70 30 06 57 BSR.68K $0657 ; => $09C41C => $09B9B8 09CA73 10 44 BR $044 ; => $09CAB9 09CA75 30 41 10 90 04 CASE $10, $90, $04 ; SWITCH $09CA69 09CA7A 80 20 READ.B $20 09CA7C 50 PUSH.6 $10 09CA7D 2A EQ.L 09CA7E 18 07 BRZ $007 ; => $09CA87 09CA80 C0 32 D5 READ.B $32D5 09CA83 40 PUSH.6 $00 09CA84 F0 2F 7B WRITE.B $2F7B 09CA87 80 20 READ.B $20 09CA89 04 90 PUSH.10 $090 09CA8B 2A EQ.L 09CA8C 18 08 BRZ $008 ; => $09CA96 09CA8E C0 32 D5 READ.B $32D5 09CA91 04 FF PUSH.10 $0FF 09CA93 F0 2F 7B WRITE.B $2F7B 09CA96 C0 32 D5 READ.B $32D5 09CA99 E0 2F 7B READ.B $2F7B 09CA9C 18 0F BRZ $00F ; => $09CAAD 09CA9E 48 PUSH.6 $08 09CA9F 90 23 WRITE.B $23 09CAA1 30 06 CA BSR.68K $06CA ; => $09C3DA => $099642 09CAA4 41 PUSH.6 $01 09CAA5 30 06 92 BSR.68K $0692 ; => $09C416 => $0A408A 09CAA8 41 PUSH.6 $01 09CAA9 90 26 WRITE.B $26 09CAAB 10 09 BR $009 ; => $09CAB6 09CAAD 49 PUSH.6 $09 09CAAE 90 23 WRITE.B $23 09CAB0 40 PUSH.6 $00 09CAB1 90 22 WRITE.B $22 09CAB3 30 06 82 BSR.68K $0682 ; => $09C434 => $09B596 09CAB6 10 01 BR $001 ; => $09CAB9 09CAB8 00 DEFAULT ; SWITCH $09CA69 09CAB9 34 RETURN ; ---------------- End Function $09CA60 ---------------- ; ---------------- Begin 2144 Function $09CABA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C335 ; addr bytes opcode operands comment 09CAC1 31 02 SUBSP.B $02 09CAC3 80 20 READ.B $20 09CAC5 35 SWITCH 09CAC6 10 14 02 CASE $02 ; SWITCH $09CAC5 09CAC9 80 26 READ.B $26 09CACB 57 PUSH.6 $17 09CACC 2A EQ.L 09CACD 18 08 BRZ $008 ; => $09CAD7 09CACF 42 PUSH.6 $02 09CAD0 90 23 WRITE.B $23 09CAD2 30 06 B9 BSR.68K $06B9 ; => $09C41C => $09B9B8 09CAD5 10 03 BR $003 ; => $09CADA 09CAD7 30 04 DE BSR.68K $04DE ; => $09C5FC 09CADA 10 5B BR $05B ; => $09CB37 09CADC 10 28 04 CASE $04 ; SWITCH $09CAC5 09CADF 57 PUSH.6 $17 09CAE0 5E PUSH.6 $1E 09CAE1 30 06 F8 BSR.68K $06F8 ; => $09C3EC => $09E02C 09CAE4 03 29 FLOAT2LONG 09CAE6 D2 32 D1 WRITE.L $32D1 09CAE9 04 FF PUSH.10 $0FF 09CAEB D0 32 D2 WRITE.B $32D2 09CAEE C0 56 6C READ.B $566C 09CAF1 18 08 BRZ $008 ; => $09CAFB 09CAF3 50 PUSH.6 $10 09CAF4 90 23 WRITE.B $23 09CAF6 30 04 C1 BSR.68K $04C1 ; => $09C638 09CAF9 10 09 BR $009 ; => $09CB04 09CAFB 61 PUSH.6 $21 09CAFC 90 23 WRITE.B $23 09CAFE C3 35 55 READ.F $3555 09CB01 30 06 D6 BSR.68K $06D6 ; => $09C42E => $09A712 09CB04 10 31 BR $031 ; => $09CB37 09CB06 10 1A 10 CASE $10 ; SWITCH $09CAC5 09CB09 80 26 READ.B $26 09CB0B 35 SWITCH 09CB0C 10 03 17 CASE $17 ; SWITCH $09CB0B 09CB0F 10 0F BR $00F ; => $09CB20 09CB11 10 06 20 CASE $20 ; SWITCH $09CB0B 09CB14 5E PUSH.6 $1E 09CB15 90 26 WRITE.B $26 09CB17 10 07 BR $007 ; => $09CB20 09CB19 00 DEFAULT ; SWITCH $09CB0B 09CB1A 80 26 READ.B $26 09CB1C 41 PUSH.6 $01 09CB1D 28 SUB.L 09CB1E 90 26 WRITE.B $26 09CB20 10 15 BR $015 ; => $09CB37 09CB22 10 12 50 CASE $50 ; SWITCH $09CAC5 09CB25 80 26 READ.B $26 09CB27 35 SWITCH 09CB28 10 03 1E CASE $1E ; SWITCH $09CB27 09CB2B 10 07 BR $007 ; => $09CB34 09CB2D 00 DEFAULT ; SWITCH $09CB27 09CB2E 80 26 READ.B $26 09CB30 41 PUSH.6 $01 09CB31 27 ADD.L 09CB32 90 26 WRITE.B $26 09CB34 10 01 BR $001 ; => $09CB37 09CB36 00 DEFAULT ; SWITCH $09CAC5 09CB37 80 26 READ.B $26 09CB39 5F PUSH.6 $1F 09CB3A 03 26 GT.L 09CB3C 18 05 BRZ $005 ; => $09CB43 09CB3E 30 07 5B BSR.68K $075B ; => $09C3E6 => $09DFB4 09CB41 94 00 WRITE.B $00 09CB43 80 26 READ.B $26 09CB45 35 SWITCH 09CB46 10 06 1F CASE $1F ; SWITCH $09CB45 09CB49 60 PUSH.6 $20 09CB4A 90 26 WRITE.B $26 09CB4C 10 01 BR $001 ; => $09CB4F 09CB4E 00 DEFAULT ; SWITCH $09CB45 09CB4F 32 02 ADDSP.B $02 09CB51 34 RETURN ; ---------------- End Function $09CABA ---------------- ; ---------------- Begin 2144 Function $09CB52 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C33D ; addr bytes opcode operands comment 09CB59 31 02 SUBSP.B $02 09CB5B C0 32 D5 READ.B $32D5 09CB5E E0 31 D3 READ.B $31D3 09CB61 2E NOT.L 09CB62 94 01 WRITE.B $01 09CB64 80 20 READ.B $20 09CB66 35 SWITCH 09CB67 10 18 02 CASE $02 ; SWITCH $09CB66 09CB6A 80 26 READ.B $26 09CB6C 51 PUSH.6 $11 09CB6D 2A EQ.L 09CB6E 84 01 READ.B $01 09CB70 2E NOT.L 09CB71 2D OR.L 09CB72 18 08 BRZ $008 ; => $09CB7C 09CB74 42 PUSH.6 $02 09CB75 90 23 WRITE.B $23 09CB77 30 07 5E BSR.68K $075E ; => $09C41C => $09B9B8 09CB7A 10 03 BR $003 ; => $09CB7F 09CB7C 30 05 47 BSR.68K $0547 ; => $09C638 09CB7F 10 6A BR $06A ; => $09CBEB 09CB81 10 1A 04 CASE $04 ; SWITCH $09CB66 09CB84 84 01 READ.B $01 09CB86 18 0D BRZ $00D ; => $09CB95 09CB88 C0 32 D5 READ.B $32D5 09CB8B 51 PUSH.6 $11 09CB8C 56 PUSH.6 $16 09CB8D 30 07 A4 BSR.68K $07A4 ; => $09C3EC => $09E02C 09CB90 03 29 FLOAT2LONG 09CB92 F2 32 9B WRITE.L $329B 09CB95 51 PUSH.6 $11 09CB96 90 23 WRITE.B $23 09CB98 30 05 0F BSR.68K $050F ; => $09C68C 09CB9B 10 4E BR $04E ; => $09CBEB 09CB9D 10 1E 10 CASE $10 ; SWITCH $09CB66 09CBA0 84 01 READ.B $01 09CBA2 18 17 BRZ $017 ; => $09CBBB 09CBA4 80 26 READ.B $26 09CBA6 35 SWITCH 09CBA7 10 03 11 CASE $11 ; SWITCH $09CBA6 09CBAA 10 0F BR $00F ; => $09CBBB 09CBAC 10 06 20 CASE $20 ; SWITCH $09CBA6 09CBAF 56 PUSH.6 $16 09CBB0 90 26 WRITE.B $26 09CBB2 10 07 BR $007 ; => $09CBBB 09CBB4 00 DEFAULT ; SWITCH $09CBA6 09CBB5 80 26 READ.B $26 09CBB7 41 PUSH.6 $01 09CBB8 28 SUB.L 09CBB9 90 26 WRITE.B $26 09CBBB 10 2E BR $02E ; => $09CBEB 09CBBD 10 16 50 CASE $50 ; SWITCH $09CB66 09CBC0 84 01 READ.B $01 09CBC2 18 0F BRZ $00F ; => $09CBD3 09CBC4 80 26 READ.B $26 09CBC6 35 SWITCH 09CBC7 10 03 16 CASE $16 ; SWITCH $09CBC6 09CBCA 10 07 BR $007 ; => $09CBD3 09CBCC 00 DEFAULT ; SWITCH $09CBC6 09CBCD 80 26 READ.B $26 09CBCF 41 PUSH.6 $01 09CBD0 27 ADD.L 09CBD1 90 26 WRITE.B $26 09CBD3 10 16 BR $016 ; => $09CBEB 09CBD5 10 13 D0 CASE $D0 ; SWITCH $09CB66 09CBD8 C0 32 D5 READ.B $32D5 09CBDB C0 32 D5 READ.B $32D5 09CBDE E0 31 D3 READ.B $31D3 09CBE1 2E NOT.L 09CBE2 F0 31 D3 WRITE.B $31D3 09CBE5 30 05 B0 BSR.68K $05B0 ; => $09C638 09CBE8 10 01 BR $001 ; => $09CBEB 09CBEA 00 DEFAULT ; SWITCH $09CB66 09CBEB 80 26 READ.B $26 09CBED 57 PUSH.6 $17 09CBEE 03 26 GT.L 09CBF0 18 05 BRZ $005 ; => $09CBF7 09CBF2 30 08 0F BSR.68K $080F ; => $09C3E6 => $09DFB4 09CBF5 94 00 WRITE.B $00 09CBF7 80 26 READ.B $26 09CBF9 35 SWITCH 09CBFA 10 06 17 CASE $17 ; SWITCH $09CBF9 09CBFD 60 PUSH.6 $20 09CBFE 90 26 WRITE.B $26 09CC00 10 01 BR $001 ; => $09CC03 09CC02 00 DEFAULT ; SWITCH $09CBF9 09CC03 32 02 ADDSP.B $02 09CC05 34 RETURN ; ---------------- End Function $09CB52 ---------------- ; ---------------- Begin 2144 Function $09CC06 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C345 ; addr bytes opcode operands comment 09CC0D 80 20 READ.B $20 09CC0F 35 SWITCH 09CC10 10 0E 02 CASE $02 ; SWITCH $09CC0F 09CC13 80 24 READ.B $24 09CC15 D0 32 D5 WRITE.B $32D5 09CC18 42 PUSH.6 $02 09CC19 90 23 WRITE.B $23 09CC1B 30 08 02 BSR.68K $0802 ; => $09C41C => $09B9B8 09CC1E 10 48 BR $048 ; => $09CC68 09CC20 30 45 10 D0 04 CASE $10, $D0, $04 ; SWITCH $09CC0F 09CC25 80 20 READ.B $20 09CC27 50 PUSH.6 $10 09CC28 2A EQ.L 09CC29 80 20 READ.B $20 09CC2B 44 PUSH.6 $04 09CC2C 2A EQ.L 09CC2D C0 32 D5 READ.B $32D5 09CC30 04 FF PUSH.10 $0FF 09CC32 2B NEQ.L 09CC33 2C AND.L 09CC34 2D OR.L 09CC35 18 14 BRZ $014 ; => $09CC4B 09CC37 04 46 PUSH.10 $046 09CC39 90 23 WRITE.B $23 09CC3B C0 32 D5 READ.B $32D5 09CC3E 04 FF PUSH.10 $0FF 09CC40 2A EQ.L 09CC41 18 03 BRZ $003 ; => $09CC46 09CC43 30 08 0C BSR.68K $080C ; => $09C43A => $09BBA2 09CC46 30 08 2D BSR.68K $082D ; => $09C41C => $09B9B8 09CC49 10 1A BR $01A ; => $09CC65 09CC4B C0 32 D5 READ.B $32D5 09CC4E 04 FF PUSH.10 $0FF 09CC50 2B NEQ.L 09CC51 18 07 BRZ $007 ; => $09CC5A 09CC53 C0 32 D5 READ.B $32D5 09CC56 40 PUSH.6 $00 09CC57 F0 32 CD WRITE.B $32CD 09CC5A 80 24 READ.B $24 09CC5C D0 32 D5 WRITE.B $32D5 09CC5F 52 PUSH.6 $12 09CC60 90 23 WRITE.B $23 09CC62 30 05 89 BSR.68K $0589 ; => $09C6DC 09CC65 10 01 BR $001 ; => $09CC68 09CC67 00 DEFAULT ; SWITCH $09CC0F 09CC68 34 RETURN ; ---------------- End Function $09CC06 ---------------- ; ---------------- Begin 2144 Function $09CC6A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C34D ; addr bytes opcode operands comment 09CC71 80 20 READ.B $20 09CC73 35 SWITCH 09CC74 10 06 02 CASE $02 ; SWITCH $09CC73 09CC77 40 PUSH.6 $00 09CC78 90 21 WRITE.B $21 09CC7A 10 17 BR $017 ; => $09CC93 09CC7C 10 09 10 CASE $10 ; SWITCH $09CC73 09CC7F 42 PUSH.6 $02 09CC80 90 23 WRITE.B $23 09CC82 30 08 69 BSR.68K $0869 ; => $09C41C => $09B9B8 09CC85 10 0C BR $00C ; => $09CC93 09CC87 10 09 D0 CASE $D0 ; SWITCH $09CC73 09CC8A 53 PUSH.6 $13 09CC8B 90 23 WRITE.B $23 09CC8D 30 05 7E BSR.68K $057E ; => $09C712 09CC90 10 01 BR $001 ; => $09CC93 09CC92 00 DEFAULT ; SWITCH $09CC73 09CC93 34 RETURN ; ---------------- End Function $09CC6A ---------------- ; ---------------- Begin 2144 Function $09CC94 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C355 ; addr bytes opcode operands comment 09CC9B 80 20 READ.B $20 09CC9D 35 SWITCH 09CC9E 10 06 02 CASE $02 ; SWITCH $09CC9D 09CCA1 40 PUSH.6 $00 09CCA2 90 21 WRITE.B $21 09CCA4 10 17 BR $017 ; => $09CCBD 09CCA6 10 09 10 CASE $10 ; SWITCH $09CC9D 09CCA9 40 PUSH.6 $00 09CCAA 90 23 WRITE.B $23 09CCAC 30 08 8D BSR.68K $088D ; => $09C422 => $09B944 09CCAF 10 0C BR $00C ; => $09CCBD 09CCB1 10 09 D0 CASE $D0 ; SWITCH $09CC9D 09CCB4 30 05 6F BSR.68K $056F ; => $09C748 09CCB7 4C PUSH.6 $0C 09CCB8 90 21 WRITE.B $21 09CCBA 10 01 BR $001 ; => $09CCBD 09CCBC 00 DEFAULT ; SWITCH $09CC9D 09CCBD 34 RETURN ; ---------------- End Function $09CC94 ---------------- ; ---------------- Begin 2164 Function $09CCFA ---------------- ; P0 = $0008; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $7; D1 = $000008 ; called from $095D08:$095E67 ; called from $09D2BC:$09D38B ; called from $09D2BC:$09D43A ; addr bytes opcode operands comment 09CD03 86 0B READ.L $0B 09CD05 04 80 PUSH.10 $080 09CD07 03 26 GT.L 09CD09 18 0B BRZ $00B ; => $09CD16 09CD0B 86 0B READ.L $0B 09CD0D 86 0F READ.L $0F 09CD0F 30 00 30 BSR.68K $0030 ; => $09CCE2 => $095C10 (NATIVE) 09CD12 03 2A LONG2FLOAT 09CD14 10 11 BR $011 ; => $09CD27 09CD16 3D 00 01 00 00 PUSH.L $00010000 09CD1B 86 0B READ.L $0B 09CD1D 86 0F READ.L $0F 09CD1F 30 00 40 BSR.68K $0040 ; => $09CCE2 => $095C10 (NATIVE) 09CD22 28 SUB.L 09CD23 03 2A LONG2FLOAT 09CD25 03 20 NEG.W 09CD27 97 07 WRITE.F $07 09CD29 32 08 ADDSP.B $08 09CD2B 34 RETURN ; ---------------- End Function $09CCFA ---------------- ; ---------------- Begin 2144 Function $09CD2C ---------------- ; A0 = $004008; (A0) = SP + $B ; called from $09CD50:$09CD66 ; called from $09CD50:$09CE06 ; addr bytes opcode operands comment 09CD33 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 09CD3C 8B 07 READ.F $07 09CD3E 3B 3E CB FB 3C 01 A3 07 FA PUSH.F $3ECBFB3C01A307FA ; float = 0.000003 09CD47 22 MUL.F 09CD48 30 00 7B BSR.68K $007B ; => $09CCD0 => $002C08 (NATIVE) 09CD4B 22 MUL.F 09CD4C 9B 07 WRITE.F $07 09CD4E 33 _2300 09CD4F 34 RETURN ; ---------------- End Function $09CD2C ---------------- ; ---------------- Begin 2144 Function $09CD50 ---------------- ; A0 = $004004; (A0) = SP + $F ; called from $0A6E44:$0A720A ; addr bytes opcode operands comment 09CD57 31 20 SUBSP.B $20 09CD59 87 0B READ.F $0B 09CD5B 86 03 READ.L $03 09CD5D E3 4B F5 READ.F $4BF5 09CD60 20 ADD.F 09CD61 97 17 WRITE.F $17 09CD63 87 17 00 READ.F $17 09CD66 30 00 3D BSR.68K $003D ; => $09CD2C 09CD69 86 03 READ.L $03 09CD6B E3 48 67 READ.F $4867 09CD6E 97 27 WRITE.F $27 09CD70 87 27 READ.F $27 09CD72 87 17 READ.F $17 09CD74 3B 41 02 4F 80 00 00 00 00 PUSH.F $41024F8000000000 ; float = 150000.000000 09CD7D 21 SUB.F 09CD7E 03 21 LT.F 09CD80 18 10 BRZ $010 ; => $09CD92 09CD82 87 27 READ.F $27 09CD84 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 09CD8D 20 ADD.F 09CD8E 97 27 WRITE.F $27 09CD90 10 1F BR $01F ; => $09CDB1 09CD92 87 27 READ.F $27 09CD94 87 17 READ.F $17 09CD96 3B 41 02 4F 80 00 00 00 00 PUSH.F $41024F8000000000 ; float = 150000.000000 09CD9F 20 ADD.F 09CDA0 24 GT.F 09CDA1 18 0E BRZ $00E ; => $09CDB1 09CDA3 87 27 READ.F $27 09CDA5 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 09CDAE 21 SUB.F 09CDAF 97 27 WRITE.F $27 09CDB1 86 03 READ.L $03 09CDB3 E3 48 B7 READ.F $48B7 09CDB6 97 2F WRITE.F $2F 09CDB8 86 03 READ.L $03 09CDBA 87 2F READ.F $2F 09CDBC 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09CDC5 20 ADD.F 09CDC6 F3 48 B7 WRITE.F $48B7 09CDC9 87 2F READ.F $2F 09CDCB 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 09CDD4 24 GT.F 09CDD5 18 0B BRZ $00B ; => $09CDE2 09CDD7 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 09CDE0 97 2F WRITE.F $2F 09CDE2 87 27 READ.F $27 09CDE4 87 2F READ.F $2F 09CDE6 22 MUL.F 09CDE7 87 17 READ.F $17 09CDE9 20 ADD.F 09CDEA 87 2F READ.F $2F 09CDEC 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09CDF5 20 ADD.F 09CDF6 23 DIV.F 09CDF7 97 27 WRITE.F $27 09CDF9 87 27 READ.F $27 09CDFB 86 03 READ.L $03 09CDFD E3 4B F5 READ.F $4BF5 09CE00 21 SUB.F 09CE01 97 1F WRITE.F $1F 09CE03 87 1F 00 READ.F $1F 09CE06 30 00 DD BSR.68K $00DD ; => $09CD2C 09CE09 C0 28 FE READ.B $28FE 09CE0C C3 28 FD READ.F $28FD 09CE0F 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09CE18 26 EQ.F 09CE19 2C AND.L 09CE1A 18 77 BRZ $077 ; => $09CE93 09CE1C C0 67 EC READ.B $67EC 09CE1F 18 2D BRZ $02D ; => $09CE4E 09CE21 87 1F READ.F $1F 09CE23 87 0B READ.F $0B 09CE25 87 1F READ.F $1F 09CE27 21 SUB.F 09CE28 3B 3E CB FB 3C 01 A3 07 FA PUSH.F $3ECBFB3C01A307FA ; float = 0.000003 09CE31 22 MUL.F 09CE32 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09CE3B 20 ADD.F 09CE3C 30 01 4B BSR.68K $014B ; => $09CCF4 => $002CA6 (NATIVE) 09CE3F 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 09CE48 22 MUL.F 09CE49 20 ADD.F 09CE4A 97 0B WRITE.F $0B 09CE4C 10 45 BR $045 ; => $09CE93 09CE4E 87 1F READ.F $1F 09CE50 87 0B READ.F $0B 09CE52 3B 41 02 4F 80 00 00 00 00 PUSH.F $41024F8000000000 ; float = 150000.000000 09CE5B 21 SUB.F 09CE5C 03 21 LT.F 09CE5E 18 10 BRZ $010 ; => $09CE70 09CE60 87 1F READ.F $1F 09CE62 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 09CE6B 20 ADD.F 09CE6C 97 1F WRITE.F $1F 09CE6E 10 1F BR $01F ; => $09CE8F 09CE70 87 1F READ.F $1F 09CE72 87 0B READ.F $0B 09CE74 3B 41 02 4F 80 00 00 00 00 PUSH.F $41024F8000000000 ; float = 150000.000000 09CE7D 20 ADD.F 09CE7E 24 GT.F 09CE7F 18 0E BRZ $00E ; => $09CE8F 09CE81 87 1F READ.F $1F 09CE83 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 09CE8C 21 SUB.F 09CE8D 97 1F WRITE.F $1F 09CE8F 87 1F READ.F $1F 09CE91 97 0B WRITE.F $0B 09CE93 86 03 READ.L $03 09CE95 87 1F READ.F $1F 09CE97 F3 49 07 WRITE.F $4907 09CE9A 86 03 READ.L $03 09CE9C 87 27 READ.F $27 09CE9E F3 48 67 WRITE.F $4867 09CEA1 32 20 ADDSP.B $20 09CEA3 33 _2300 09CEA4 32 04 ADDSP.B $04 09CEA6 34 RETURN ; ---------------- End Function $09CD50 ---------------- ; ---------------- Begin 2144 Function $09CEA8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0991F6:$099214 ; called from $0991F6:$099600 ; addr bytes opcode operands comment 09CEAF 31 02 SUBSP.B $02 09CEB1 40 PUSH.6 $00 09CEB2 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09CEB5 C0 29 9A READ.B $299A 09CEB8 38 00 75 BLS.B $0075 ; => $09CF30 09CEBB 84 00 READ.B $00 09CEBD E0 40 09 READ.B $4009 09CEC0 18 69 BRZ $069 ; => $09CF2B 09CEC2 84 00 READ.B $00 09CEC4 E0 57 4B READ.B $574B 09CEC7 84 00 READ.B $00 09CEC9 E0 44 23 READ.B $4423 09CECC 40 PUSH.6 $00 09CECD 4A PUSH.6 $0A 09CECE 29 MUL.L 09CECF 84 00 READ.B $00 09CED1 27 ADD.L 09CED2 E0 63 A1 READ.B $63A1 09CED5 2D OR.L 09CED6 2E NOT.L 09CED7 84 00 READ.B $00 09CED9 C0 29 9B READ.B $299B 09CEDC 03 28 GTE.L 09CEDE 2C AND.L 09CEDF 2D OR.L 09CEE0 18 49 BRZ $049 ; => $09CF2B 09CEE2 84 00 READ.B $00 09CEE4 C0 29 A0 READ.B $29A0 09CEE7 2F MOD.L 09CEE8 E0 35 C3 READ.B $35C3 09CEEB 18 20 BRZ $020 ; => $09CF0D 09CEED 84 00 READ.B $00 09CEEF E1 57 17 READ.W $5717 09CEF2 84 00 READ.B $00 09CEF4 E1 57 3F READ.W $573F 09CEF7 03 25 LT.L 09CEF9 18 0A BRZ $00A ; => $09CF05 09CEFB 84 00 READ.B $00 09CEFD 84 00 READ.B $00 09CEFF E1 57 17 READ.W $5717 09CF02 F1 57 3F WRITE.W $573F 09CF05 84 00 READ.B $00 09CF07 40 PUSH.6 $00 09CF08 F1 57 17 WRITE.W $5717 09CF0B 10 1E BR $01E ; => $09CF2B 09CF0D 84 00 READ.B $00 09CF0F E1 57 03 READ.W $5703 09CF12 84 00 READ.B $00 09CF14 E1 57 2B READ.W $572B 09CF17 03 25 LT.L 09CF19 18 0A BRZ $00A ; => $09CF25 09CF1B 84 00 READ.B $00 09CF1D 84 00 READ.B $00 09CF1F E1 57 03 READ.W $5703 09CF22 F1 57 2B WRITE.W $572B 09CF25 84 00 READ.B $00 09CF27 40 PUSH.6 $00 09CF28 F1 57 03 WRITE.W $5703 09CF2B 37 10 00 00 7B _23d2 $0000, $007B 09CF30 32 02 ADDSP.B $02 09CF32 34 RETURN ; ---------------- End Function $09CEA8 ---------------- ; ---------------- Begin 2144 Function $09CF34 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $092E8E:$092F52 ; called from $093CC0:$093E58 ; called from $09CF68:$09CFAC ; called from $0AF9E2:$0AFA0A ; addr bytes opcode operands comment 09CF3B 86 03 READ.L $03 09CF3D 3E PUSH.W $0000 09CF3E F3 48 B7 WRITE.F $48B7 09CF41 86 03 READ.L $03 09CF43 3E PUSH.W $0000 09CF44 F3 4A 5B WRITE.F $4A5B 09CF47 86 03 READ.L $03 09CF49 3E PUSH.W $0000 09CF4A F3 4A 0B WRITE.F $4A0B 09CF4D 86 03 READ.L $03 09CF4F 3E PUSH.W $0000 09CF50 F3 49 BB WRITE.F $49BB 09CF53 86 03 READ.L $03 09CF55 3E PUSH.W $0000 09CF56 F3 4B F5 WRITE.F $4BF5 09CF59 C0 29 9D READ.B $299D 09CF5C 2E NOT.L 09CF5D 18 06 BRZ $006 ; => $09CF65 09CF5F 86 03 READ.L $03 09CF61 3E PUSH.W $0000 09CF62 F3 4C 45 WRITE.F $4C45 09CF65 32 04 ADDSP.B $04 09CF67 34 RETURN ; ---------------- End Function $09CF34 ---------------- ; ---------------- Begin 2144 Function $09CF68 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7F7 ; addr bytes opcode operands comment 09CF6F 31 02 SUBSP.B $02 09CF71 40 PUSH.6 $00 09CF72 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 09CF75 C0 29 9A READ.B $299A 09CF78 38 00 39 BLS.B $0039 ; => $09CFB4 09CF7B 84 00 READ.B $00 09CF7D E0 60 29 READ.B $6029 09CF80 18 2D BRZ $02D ; => $09CFAF 09CF82 84 00 READ.B $00 09CF84 5F PUSH.6 $1F 09CF85 30 02 AC BSR.68K $02AC ; => $09CCDC => $0AFA16 09CF88 42 PUSH.6 $02 09CF89 2C AND.L 09CF8A 84 00 READ.B $00 09CF8C E0 44 23 READ.B $4423 09CF8F 2C AND.L 09CF90 18 1D BRZ $01D ; => $09CFAF 09CF92 C0 29 9D READ.B $299D 09CF95 2E NOT.L 09CF96 18 12 BRZ $012 ; => $09CFAA 09CF98 84 00 READ.B $00 09CF9A D0 51 00 WRITE.B $5100 09CF9D 04 FF PUSH.10 $0FF 09CF9F D0 4E 73 WRITE.B $4E73 09CFA2 57 PUSH.6 $17 09CFA3 30 02 D0 BSR.68K $02D0 ; => $09CCD6 => $094D12 09CFA6 40 PUSH.6 $00 09CFA7 D0 4E 73 WRITE.B $4E73 09CFAA 84 00 READ.B $00 09CFAC 30 00 7B BSR.68K $007B ; => $09CF34 09CFAF 37 10 00 00 3F _23d2 $0000, $003F 09CFB4 32 02 ADDSP.B $02 09CFB6 34 RETURN ; ---------------- End Function $09CF68 ---------------- ; ---------------- Begin 2144 Function $09CFB8 ---------------- ; A0 = $004004; (A0) = SP + $B ; called from $0966FA:$096A8A ; called from $096A90:$096BBB ; called from $0A6E44:$0A7202 ; addr bytes opcode operands comment 09CFBF 31 72 SUBSP.B $72 09CFC1 86 03 READ.L $03 09CFC3 C0 29 9B READ.B $299B 09CFC6 03 25 LT.L 09CFC8 94 5C WRITE.B $5C 09CFCA C3 28 FD READ.F $28FD 09CFCD 3E PUSH.W $0000 09CFCE 26 EQ.F 09CFCF C3 29 35 READ.F $2935 09CFD2 3E PUSH.W $0000 09CFD3 03 23 NEQ.F 09CFD5 2C AND.L 09CFD6 18 17 BRZ $017 ; => $09CFEF 09CFD8 C3 29 35 READ.F $2935 09CFDB 97 75 WRITE.F $75 09CFDD 87 75 READ.F $75 09CFDF 3B 41 D7 6A 24 00 00 00 00 PUSH.F $41D76A2400000000 ; float = 1571328000.000000 09CFE8 22 MUL.F 09CFE9 03 20 NEG.W 09CFEB 97 7D WRITE.F $7D 09CFED 10 0A BR $00A ; => $09CFF9 09CFEF C3 56 25 READ.F $5625 09CFF2 97 75 WRITE.F $75 09CFF4 C3 56 1D READ.F $561D 09CFF7 97 7D WRITE.F $7D 09CFF9 87 75 READ.F $75 09CFFB 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09D004 20 ADD.F 09D005 97 53 WRITE.F $53 09D007 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09D010 84 5C READ.B $5C 09D012 18 0B BRZ $00B ; => $09D01F 09D014 86 03 READ.L $03 09D016 C0 29 A0 READ.B $29A0 09D019 28 SUB.L 09D01A E3 47 61 READ.F $4761 09D01D 10 05 BR $005 ; => $09D024 09D01F 86 03 READ.L $03 09D021 E3 47 61 READ.F $4761 09D024 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 09D02D 20 ADD.F 09D02E 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 09D037 21 SUB.F 09D038 87 7D READ.F $7D 09D03A 21 SUB.F 09D03B 23 DIV.F 09D03C 97 1B WRITE.F $1B 09D03E 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 09D047 87 1B READ.F $1B 09D049 22 MUL.F 09D04A 97 23 WRITE.F $23 09D04C C0 52 1E READ.B $521E 09D04F C0 52 1D READ.B $521D 09D052 C0 52 20 READ.B $5220 09D055 C0 52 1F READ.B $521F 09D058 30 03 6D BSR.68K $036D ; => $09CCEE => $095BF8 (NATIVE) 09D05B 03 2A LONG2FLOAT 09D05D 97 13 WRITE.F $13 09D05F 87 13 READ.F $13 09D061 86 03 READ.L $03 09D063 E3 4A 0B READ.F $4A0B 09D066 21 SUB.F 09D067 97 4B WRITE.F $4B 09D069 C0 52 26 READ.B $5226 09D06C C0 52 25 READ.B $5225 09D06F C0 52 24 READ.B $5224 09D072 30 03 8D BSR.68K $038D ; => $09CCE8 => $095BE4 (NATIVE) 09D075 03 2A LONG2FLOAT 09D077 58 PUSH.6 $18 09D078 30 03 B7 BSR.68K $03B7 ; => $09CCC4 => $002BAE (NATIVE) 09D07B C0 52 23 READ.B $5223 09D07E C0 52 22 READ.B $5222 09D081 C0 52 21 READ.B $5221 09D084 30 03 9F BSR.68K $039F ; => $09CCE8 => $095BE4 (NATIVE) 09D087 03 2A LONG2FLOAT 09D089 20 ADD.F 09D08A 97 2B WRITE.F $2B 09D08C 86 03 READ.L $03 09D08E E3 48 B7 READ.F $48B7 09D091 3E PUSH.W $0000 09D092 26 EQ.F 09D093 18 03 BRZ $003 ; => $09D098 09D095 3E PUSH.W $0000 09D096 10 0C BR $00C ; => $09D0A4 09D098 87 0B READ.F $0B 09D09A 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 09D0A3 22 MUL.F 09D0A4 97 0B WRITE.F $0B 09D0A6 C1 29 95 READ.W $2995 09D0A9 3C 80 00 PUSH.W $8000 09D0AC 2C AND.L 09D0AD 3C 80 00 PUSH.W $8000 09D0B0 2A EQ.L 09D0B1 18 0B BRZ $00B ; => $09D0BE 09D0B3 3B 40 48 00 00 00 00 00 00 PUSH.F $4048000000000000 ; float = 48.000000 09D0BC 10 09 BR $009 ; => $09D0C7 09D0BE 3B 40 58 00 00 00 00 00 00 PUSH.F $4058000000000000 ; float = 96.000000 09D0C7 97 43 WRITE.F $43 09D0C9 87 2B READ.F $2B 09D0CB 86 03 READ.L $03 09D0CD E3 4A 5B READ.F $4A5B 09D0D0 21 SUB.F 09D0D1 58 PUSH.6 $18 09D0D2 30 04 0B BSR.68K $040B ; => $09CCCA => $002BEA (NATIVE) 09D0D5 87 43 READ.F $43 09D0D7 22 MUL.F 09D0D8 3B 40 30 00 00 00 00 00 00 PUSH.F $4030000000000000 ; float = 16.000000 09D0E1 87 4B READ.F $4B 09D0E3 22 MUL.F 09D0E4 21 SUB.F 09D0E5 84 5C READ.B $5C 09D0E7 C0 35 C4 READ.B $35C4 09D0EA 2C AND.L 09D0EB 18 06 BRZ $006 ; => $09D0F3 09D0ED 87 53 READ.F $53 09D0EF 03 20 NEG.W 09D0F1 10 02 BR $002 ; => $09D0F5 09D0F3 87 53 READ.F $53 09D0F5 22 MUL.F 09D0F6 87 75 READ.F $75 09D0F8 87 4B READ.F $4B 09D0FA 22 MUL.F 09D0FB 84 5C READ.B $5C 09D0FD 18 0B BRZ $00B ; => $09D10A 09D0FF 3B 41 0D 4C 00 00 00 00 00 PUSH.F $410D4C0000000000 ; float = 240000.000000 09D108 10 09 BR $009 ; => $09D113 09D10A 3B 41 02 CC 80 00 00 00 00 PUSH.F $4102CC8000000000 ; float = 154000.000000 09D113 22 MUL.F 09D114 20 ADD.F 09D115 97 3B WRITE.F $3B 09D117 84 5C READ.B $5C 09D119 18 6D BRZ $06D ; => $09D188 09D11B C0 35 92 READ.B $3592 09D11E 18 3D BRZ $03D ; => $09D15D 09D120 87 3B READ.F $3B 09D122 3B 40 24 75 C2 8F 5C 28 F6 PUSH.F $402475C28F5C28F6 ; float = 10.230000 09D12B 22 MUL.F 09D12C 87 1B READ.F $1B 09D12E 22 MUL.F 09D12F 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 09D138 22 MUL.F 09D139 C0 35 C4 READ.B $35C4 09D13C 18 08 BRZ $008 ; => $09D146 09D13E 87 4B READ.F $4B 09D140 4A PUSH.6 $0A 09D141 30 04 7A BSR.68K $047A ; => $09CCCA => $002BEA (NATIVE) 09D144 10 08 BR $008 ; => $09D14E 09D146 87 4B READ.F $4B 09D148 4A PUSH.6 $0A 09D149 30 04 82 BSR.68K $0482 ; => $09CCCA => $002BEA (NATIVE) 09D14C 03 20 NEG.W 09D14E 21 SUB.F 09D14F 3B 3F BF 42 47 BC F1 D2 2F PUSH.F $3FBF4247BCF1D22F ; float = 0.122105 09D158 22 MUL.F 09D159 97 3B WRITE.F $3B 09D15B 10 29 BR $029 ; => $09D186 09D15D 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09D166 87 53 READ.F $53 09D168 23 DIV.F 09D169 97 5B WRITE.F $5B 09D16B 87 3B READ.F $3B 09D16D 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 09D176 22 MUL.F 09D177 3B 3E 31 E5 4C 67 28 75 03 PUSH.F $3E31E54C67287503 ; float = 0.000000 09D180 22 MUL.F 09D181 87 5B READ.F $5B 09D183 22 MUL.F 09D184 97 3B WRITE.F $3B 09D186 10 11 BR $011 ; => $09D199 09D188 87 3B READ.F $3B 09D18A 87 23 READ.F $23 09D18C 22 MUL.F 09D18D 3B 40 24 75 C2 8F 5C 28 F6 PUSH.F $402475C28F5C28F6 ; float = 10.230000 09D196 22 MUL.F 09D197 97 3B WRITE.F $3B 09D199 86 03 READ.L $03 09D19B 86 03 READ.L $03 09D19D E3 49 BB READ.F $49BB 09D1A0 87 3B READ.F $3B 09D1A2 20 ADD.F 09D1A3 87 0B READ.F $0B 09D1A5 20 ADD.F 09D1A6 F3 49 BB WRITE.F $49BB 09D1A9 87 75 READ.F $75 09D1AB 87 4B READ.F $4B 09D1AD 22 MUL.F 09D1AE 97 33 WRITE.F $33 09D1B0 84 5C READ.B $5C 09D1B2 C0 35 92 READ.B $3592 09D1B5 40 PUSH.6 $00 09D1B6 2A EQ.L 09D1B7 2C AND.L 09D1B8 18 13 BRZ $013 ; => $09D1CD 09D1BA 87 33 READ.F $33 09D1BC 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 09D1C5 22 MUL.F 09D1C6 87 5B READ.F $5B 09D1C8 22 MUL.F 09D1C9 97 33 WRITE.F $33 09D1CB 10 11 BR $011 ; => $09D1DE 09D1CD 87 33 READ.F $33 09D1CF 87 23 READ.F $23 09D1D1 22 MUL.F 09D1D2 3B 41 38 09 FC 00 00 00 00 PUSH.F $413809FC00000000 ; float = 1575420.000000 09D1DB 22 MUL.F 09D1DC 97 33 WRITE.F $33 09D1DE 87 3B READ.F $3B 09D1E0 87 33 READ.F $33 09D1E2 21 SUB.F 09D1E3 97 3B WRITE.F $3B 09D1E5 41 PUSH.6 $01 09D1E6 4A PUSH.6 $0A 09D1E7 29 MUL.L 09D1E8 86 03 READ.L $03 09D1EA 27 ADD.L 09D1EB 40 PUSH.6 $00 09D1EC 4A PUSH.6 $0A 09D1ED 29 MUL.L 09D1EE 86 03 READ.L $03 09D1F0 27 ADD.L 09D1F1 E3 61 5D READ.F $615D 09D1F4 F3 61 5D WRITE.F $615D 09D1F7 40 PUSH.6 $00 09D1F8 4A PUSH.6 $0A 09D1F9 29 MUL.L 09D1FA 86 03 READ.L $03 09D1FC 27 ADD.L 09D1FD 86 03 READ.L $03 09D1FF E3 4C 45 READ.F $4C45 09D202 F3 61 5D WRITE.F $615D 09D205 86 03 READ.L $03 09D207 86 03 READ.L $03 09D209 E0 49 11 READ.B $4911 09D20C 42 PUSH.6 $02 09D20D 2C AND.L 09D20E 18 04 BRZ $004 ; => $09D214 09D210 87 3B READ.F $3B 09D212 10 08 BR $008 ; => $09D21C 09D214 86 03 READ.L $03 09D216 E3 4C 45 READ.F $4C45 09D219 87 3B READ.F $3B 09D21B 20 ADD.F 09D21C F3 4C 45 WRITE.F $4C45 09D21F 86 03 READ.L $03 09D221 86 03 READ.L $03 09D223 E3 4B F5 READ.F $4BF5 09D226 87 3B READ.F $3B 09D228 20 ADD.F 09D229 87 0B READ.F $0B 09D22B 21 SUB.F 09D22C F3 4B F5 WRITE.F $4BF5 09D22F 86 03 READ.L $03 09D231 87 2B READ.F $2B 09D233 F3 4A 5B WRITE.F $4A5B 09D236 86 03 READ.L $03 09D238 87 13 READ.F $13 09D23A F3 4A 0B WRITE.F $4A0B 09D23D 32 7E ADDSP.B $7E 09D23F 34 RETURN ; ---------------- End Function $09CFB8 ---------------- ; ---------------- Begin 2144 Function $09D240 ---------------- ; A0 = $004004; (A0) = SP + $F ; called from $095D08:$095FDC ; called from $09D2BC:$09D4C0 ; addr bytes opcode operands comment 09D247 86 0F READ.L $0F 09D249 C0 29 9B READ.B $299B 09D24C 03 25 LT.L 09D24E 18 43 BRZ $043 ; => $09D293 09D250 87 07 READ.F $07 09D252 86 0F READ.L $0F 09D254 E3 34 7B READ.F $347B 09D257 C0 35 C4 READ.B $35C4 09D25A 18 0D BRZ $00D ; => $09D269 09D25C 3B 3F E4 88 88 88 88 71 14 PUSH.F $3FE4888888887114 ; float = 0.641667 09D265 03 20 NEG.W 09D267 10 09 BR $009 ; => $09D272 09D269 3B 3F E4 88 88 88 88 71 14 PUSH.F $3FE4888888887114 ; float = 0.641667 09D272 22 MUL.F 09D273 21 SUB.F 09D274 97 07 WRITE.F $07 09D276 3B 3F BF 42 47 BC F1 D2 2F PUSH.F $3FBF4247BCF1D22F ; float = 0.122105 09D27F 87 07 READ.F $07 09D281 3B 40 20 61 1B DB A8 B2 BC PUSH.F $4020611BDBA8B2BC ; float = 8.189666 09D28A 22 MUL.F 09D28B 30 05 BE BSR.68K $05BE ; => $09CCD0 => $002C08 (NATIVE) 09D28E 22 MUL.F 09D28F 97 07 WRITE.F $07 09D291 10 25 BR $025 ; => $09D2B8 09D293 87 07 READ.F $07 09D295 86 0F READ.L $0F 09D297 E3 34 7B READ.F $347B 09D29A 21 SUB.F 09D29B 97 07 WRITE.F $07 09D29D 3B 3F C8 5B 8B 06 A7 E6 99 PUSH.F $3FC85B8B06A7E699 ; float = 0.190294 09D2A6 87 07 READ.F $07 09D2A8 3B 40 15 05 28 04 93 D4 01 PUSH.F $401505280493D401 ; float = 5.255035 09D2B1 22 MUL.F 09D2B2 30 05 E5 BSR.68K $05E5 ; => $09CCD0 => $002C08 (NATIVE) 09D2B5 22 MUL.F 09D2B6 97 07 WRITE.F $07 09D2B8 32 04 ADDSP.B $04 09D2BA 33 _2300 09D2BB 34 RETURN ; ---------------- End Function $09D240 ---------------- ; ---------------- Begin 2144 Function $09D2BC ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $096A90:$096BB5 ; called from $0A6E44:$0A7223 ; addr bytes opcode operands comment 09D2C3 31 40 SUBSP.B $40 09D2C5 41 PUSH.6 $01 09D2C6 4A PUSH.6 $0A 09D2C7 29 MUL.L 09D2C8 86 03 READ.L $03 09D2CA 27 ADD.L 09D2CB 40 PUSH.6 $00 09D2CC 4A PUSH.6 $0A 09D2CD 29 MUL.L 09D2CE 86 03 READ.L $03 09D2D0 27 ADD.L 09D2D1 E3 66 61 READ.F $6661 09D2D4 F3 66 61 WRITE.F $6661 09D2D7 40 PUSH.6 $00 09D2D8 4A PUSH.6 $0A 09D2D9 29 MUL.L 09D2DA 86 03 READ.L $03 09D2DC 27 ADD.L 09D2DD 86 03 READ.L $03 09D2DF E3 4B 73 READ.F $4B73 09D2E2 F3 66 61 WRITE.F $6661 09D2E5 86 03 READ.L $03 09D2E7 C0 52 10 READ.B $5210 09D2EA F0 49 6B WRITE.B $496B 09D2ED 86 03 READ.L $03 09D2EF E3 47 61 READ.F $4761 09D2F2 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 09D2FB 21 SUB.F 09D2FC 97 1B WRITE.F $1B 09D2FE C0 35 92 READ.B $3592 09D301 86 03 READ.L $03 09D303 C0 29 9B READ.B $299B 09D306 03 25 LT.L 09D308 2C AND.L 09D309 18 23 BRZ $023 ; => $09D32E 09D30B C0 35 C4 READ.B $35C4 09D30E 18 10 BRZ $010 ; => $09D320 09D310 87 1B READ.F $1B 09D312 03 20 NEG.W 09D314 3B 3F EF 40 00 00 00 00 00 PUSH.F $3FEF400000000000 ; float = 0.976562 09D31D 21 SUB.F 09D31E 10 0C BR $00C ; => $09D32C 09D320 87 1B READ.F $1B 09D322 3B 3F EF 40 00 00 00 00 00 PUSH.F $3FEF400000000000 ; float = 0.976562 09D32B 21 SUB.F 09D32C 10 02 BR $002 ; => $09D330 09D32E 87 1B READ.F $1B 09D330 97 13 WRITE.F $13 09D332 86 03 READ.L $03 09D334 C0 29 9B READ.B $299B 09D337 03 25 LT.L 09D339 18 1A BRZ $01A ; => $09D355 09D33B 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 09D344 3B 41 E2 4A EC 20 00 00 00 PUSH.F $41E24AEC20000000 ; float = 2455200000.000000 09D34D 87 1B READ.F $1B 09D34F 20 ADD.F 09D350 23 DIV.F 09D351 97 0B WRITE.F $0B 09D353 10 18 BR $018 ; => $09D36D 09D355 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 09D35E 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 09D367 87 1B READ.F $1B 09D369 20 ADD.F 09D36A 23 DIV.F 09D36B 97 0B WRITE.F $0B 09D36D 3B 3F BA AA AA AA AA AB 9B PUSH.F $3FBAAAAAAAAAAB9B ; float = 0.104167 09D376 87 13 READ.F $13 09D378 3B 3E 5B 55 57 0A AA AA CE PUSH.F $3E5B55570AAAAACE ; float = 0.000000 09D381 22 MUL.F 09D382 20 ADD.F 09D383 97 2B WRITE.F $2B 09D385 C0 52 0F READ.B $520F 09D388 C0 52 0E READ.B $520E 09D38B 30 06 94 BSR.68K $0694 ; => $09CCFA 09D38E 97 33 WRITE.F $33 09D390 C0 35 92 READ.B $3592 09D393 40 PUSH.6 $00 09D394 2A EQ.L 09D395 18 9B BRZ $09B ; => $09D432 09D397 86 03 READ.L $03 09D399 E0 4B 91 READ.B $4B91 09D39C 2E NOT.L 09D39D 18 06 BRZ $006 ; => $09D3A5 09D39F 87 33 READ.F $33 09D3A1 03 20 NEG.W 09D3A3 97 33 WRITE.F $33 09D3A5 86 03 READ.L $03 09D3A7 C0 29 9B READ.B $299B 09D3AA 03 25 LT.L 09D3AC 18 32 BRZ $032 ; => $09D3E0 09D3AE 87 13 READ.F $13 09D3B0 86 03 READ.L $03 09D3B2 C0 29 A0 READ.B $29A0 09D3B5 28 SUB.L 09D3B6 E3 59 E7 READ.F $59E7 09D3B9 C1 29 0F READ.W $290F 09D3BC 03 2A LONG2FLOAT 09D3BE 22 MUL.F 09D3BF C0 35 C4 READ.B $35C4 09D3C2 18 0D BRZ $00D ; => $09D3D1 09D3C4 3B 3F D3 F2 B3 87 92 97 2D PUSH.F $3FD3F2B38792972D ; float = 0.311688 09D3CD 03 20 NEG.W 09D3CF 10 09 BR $009 ; => $09D3DA 09D3D1 3B 3F D3 F2 B3 87 92 97 2D PUSH.F $3FD3F2B38792972D ; float = 0.311688 09D3DA 22 MUL.F 09D3DB 20 ADD.F 09D3DC 97 23 WRITE.F $23 09D3DE 10 18 BR $018 ; => $09D3F8 09D3E0 87 13 READ.F $13 09D3E2 C3 56 69 READ.F $5669 09D3E5 C1 29 0F READ.W $290F 09D3E8 03 2A LONG2FLOAT 09D3EA 22 MUL.F 09D3EB 3B 3F C9 99 99 99 99 99 9A PUSH.F $3FC999999999999A ; float = 0.200000 09D3F4 22 MUL.F 09D3F5 20 ADD.F 09D3F6 97 23 WRITE.F $23 09D3F8 86 03 READ.L $03 09D3FA 86 03 READ.L $03 09D3FC E0 4B 87 READ.B $4B87 09D3FF F0 4B 91 WRITE.B $4B91 09D402 86 03 READ.L $03 09D404 87 23 READ.F $23 09D406 3E PUSH.W $0000 09D407 03 22 LTE.F 09D409 F0 4B 87 WRITE.B $4B87 09D40C 86 03 READ.L $03 09D40E 87 23 READ.F $23 09D410 30 07 55 BSR.68K $0755 ; => $09CCBE => $002B7E (NATIVE) 09D413 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 09D41C 22 MUL.F 09D41D 30 07 50 BSR.68K $0750 ; => $09CCD0 => $002C08 (NATIVE) 09D420 87 2B READ.F $2B 09D422 23 DIV.F 09D423 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09D42C 20 ADD.F 09D42D 03 29 FLOAT2LONG 09D42F F0 4B 9B WRITE.B $4B9B 09D432 87 2B READ.F $2B 09D434 C0 52 0D READ.B $520D 09D437 C0 52 0C READ.B $520C 09D43A 30 07 43 BSR.68K $0743 ; => $09CCFA 09D43D 22 MUL.F 09D43E 97 3B WRITE.F $3B 09D440 87 3B READ.F $3B 09D442 87 33 READ.F $33 09D444 20 ADD.F 09D445 3B 3F 74 60 CB C7 F5 D2 11 PUSH.F $3F7460CBC7F5D211 ; float = 0.004975 09D44E 22 MUL.F 09D44F 97 43 WRITE.F $43 09D451 C0 35 92 READ.B $3592 09D454 86 03 READ.L $03 09D456 C0 29 9B READ.B $299B 09D459 03 25 LT.L 09D45B 2C AND.L 09D45C 18 37 BRZ $037 ; => $09D495 09D45E 87 43 READ.F $43 09D460 C0 52 27 READ.B $5227 09D463 C0 52 33 READ.B $5233 09D466 30 07 87 BSR.68K $0787 ; => $09CCE2 => $095C10 (NATIVE) 09D469 03 2A LONG2FLOAT 09D46B 3B 3F 20 00 00 00 00 00 00 PUSH.F $3F20000000000000 ; float = 0.000122 09D474 22 MUL.F 09D475 21 SUB.F 09D476 3B 3F B9 00 00 00 00 00 00 PUSH.F $3FB9000000000000 ; float = 0.097656 09D47F 21 SUB.F 09D480 97 43 WRITE.F $43 09D482 C0 35 C4 READ.B $35C4 09D485 18 0E BRZ $00E ; => $09D495 09D487 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 09D490 87 43 READ.F $43 09D492 21 SUB.F 09D493 97 43 WRITE.F $43 09D495 C0 29 9D READ.B $299D 09D498 18 0B BRZ $00B ; => $09D4A5 09D49A 87 43 READ.F $43 09D49C 87 1B READ.F $1B 09D49E C3 59 81 READ.F $5981 09D4A1 22 MUL.F 09D4A2 20 ADD.F 09D4A3 97 43 WRITE.F $43 09D4A5 87 43 READ.F $43 09D4A7 30 07 DA BSR.68K $07DA ; => $09CCD0 => $002C08 (NATIVE) 09D4AA 87 0B READ.F $0B 09D4AC 22 MUL.F 09D4AD 97 43 WRITE.F $43 09D4AF C0 54 2C READ.B $542C 09D4B2 40 PUSH.6 $00 09D4B3 2A EQ.L 09D4B4 C0 4E 71 READ.B $4E71 09D4B7 2E NOT.L 09D4B8 2C AND.L 09D4B9 18 08 BRZ $008 ; => $09D4C3 09D4BB 87 43 00 READ.F $43 09D4BE 86 03 READ.L $03 09D4C0 30 02 83 BSR.68K $0283 ; => $09D240 09D4C3 C0 29 92 READ.B $2992 09D4C6 18 13 BRZ $013 ; => $09D4DB 09D4C8 C0 29 9D READ.B $299D 09D4CB C0 54 2C READ.B $542C 09D4CE 40 PUSH.6 $00 09D4CF 2B NEQ.L 09D4D0 C0 4E 71 READ.B $4E71 09D4D3 2D OR.L 09D4D4 2C AND.L 09D4D5 2E NOT.L 09D4D6 18 03 BRZ $003 ; => $09D4DB 09D4D8 3E PUSH.W $0000 09D4D9 97 43 WRITE.F $43 09D4DB 86 03 READ.L $03 09D4DD 87 43 READ.F $43 09D4DF F3 4B 73 WRITE.F $4B73 09D4E2 32 44 ADDSP.B $44 09D4E4 34 RETURN ; ---------------- End Function $09D2BC ---------------- ; ---------------- Begin 2144 Function $09D534 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DBF7 ; addr bytes opcode operands comment 09D53B 80 20 READ.B $20 09D53D 35 SWITCH 09D53E 10 16 90 CASE $90 ; SWITCH $09D53D 09D541 C0 29 5A READ.B $295A 09D544 18 0E BRZ $00E ; => $09D554 09D546 C0 29 5A READ.B $295A 09D549 D0 4E 51 WRITE.B $4E51 09D54C C0 29 5A READ.B $295A 09D54F 41 PUSH.6 $01 09D550 28 SUB.L 09D551 D0 29 5A WRITE.B $295A 09D554 10 56 BR $056 ; => $09D5AC 09D556 10 1B D0 CASE $D0 ; SWITCH $09D53D 09D559 C0 29 5A READ.B $295A 09D55C 49 PUSH.6 $09 09D55D 03 26 GT.L 09D55F 18 10 BRZ $010 ; => $09D571 09D561 C0 29 5A READ.B $295A 09D564 41 PUSH.6 $01 09D565 27 ADD.L 09D566 D0 29 5A WRITE.B $295A 09D569 C0 29 5A READ.B $295A 09D56C 41 PUSH.6 $01 09D56D 27 ADD.L 09D56E D0 4E 51 WRITE.B $4E51 09D571 10 39 BR $039 ; => $09D5AC 09D573 10 16 10 CASE $10 ; SWITCH $09D53D 09D576 C0 29 59 READ.B $2959 09D579 18 0E BRZ $00E ; => $09D589 09D57B C0 29 59 READ.B $2959 09D57E D0 4E 51 WRITE.B $4E51 09D581 C0 29 59 READ.B $2959 09D584 41 PUSH.6 $01 09D585 28 SUB.L 09D586 D0 29 59 WRITE.B $2959 09D589 10 21 BR $021 ; => $09D5AC 09D58B 10 1B 50 CASE $50 ; SWITCH $09D53D 09D58E C0 29 59 READ.B $2959 09D591 45 PUSH.6 $05 09D592 03 26 GT.L 09D594 18 10 BRZ $010 ; => $09D5A6 09D596 C0 29 59 READ.B $2959 09D599 41 PUSH.6 $01 09D59A 27 ADD.L 09D59B D0 29 59 WRITE.B $2959 09D59E C0 29 59 READ.B $2959 09D5A1 41 PUSH.6 $01 09D5A2 27 ADD.L 09D5A3 D0 4E 51 WRITE.B $4E51 09D5A6 10 04 BR $004 ; => $09D5AC 09D5A8 00 DEFAULT ; SWITCH $09D53D 09D5A9 30 00 7E BSR.68K $007E ; => $09D52E => $09D9DE 09D5AC 80 21 READ.B $21 09D5AE 04 44 PUSH.10 $044 09D5B0 2A EQ.L 09D5B1 18 0E BRZ $00E ; => $09D5C1 09D5B3 70 PUSH.6 $30 09D5B4 C0 29 59 READ.B $2959 09D5B7 27 ADD.L 09D5B8 90 09 WRITE.B $09 09D5BA 70 PUSH.6 $30 09D5BB C0 29 5A READ.B $295A 09D5BE 27 ADD.L 09D5BF 90 01 WRITE.B $01 09D5C1 34 RETURN ; ---------------- End Function $09D534 ---------------- ; ---------------- Begin 2144 Function $09D5C2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DBEF ; addr bytes opcode operands comment 09D5C9 31 02 SUBSP.B $02 09D5CB 80 20 READ.B $20 09D5CD 35 SWITCH 09D5CE 10 09 10 CASE $10 ; SWITCH $09D5CD 09D5D1 30 00 B8 BSR.68K $00B8 ; => $09D51C => $0A0AC0 09D5D4 62 PUSH.6 $22 09D5D5 90 21 WRITE.B $21 09D5D7 10 74 BR $074 ; => $09D64D 09D5D9 10 06 90 CASE $90 ; SWITCH $09D5CD 09D5DC 30 00 B7 BSR.68K $00B7 ; => $09D528 => $0A538C 09D5DF 10 6C BR $06C ; => $09D64D 09D5E1 10 3B 50 CASE $50 ; SWITCH $09D5CD 09D5E4 04 44 PUSH.10 $044 09D5E6 90 21 WRITE.B $21 09D5E8 30 00 C9 BSR.68K $00C9 ; => $09D522 => $099642 09D5EB 40 PUSH.6 $00 09D5EC 3F 20 20 20 20 20 4B 45 59 DISP " KEYHI CYCHIKEYLO CYCLO " 48 49 20 20 43 59 43 48 49 4B 45 59 4C 4F 20 20 20 43 59 43 4C 4F 20 20 20 09D60E 70 PUSH.6 $30 09D60F C0 29 59 READ.B $2959 09D612 27 ADD.L 09D613 90 09 WRITE.B $09 09D615 70 PUSH.6 $30 09D616 C0 29 5A READ.B $295A 09D619 27 ADD.L 09D61A 90 01 WRITE.B $01 09D61C 10 2F BR $02F ; => $09D64D 09D61E 10 29 D0 CASE $D0 ; SWITCH $09D5CD 09D621 4A PUSH.6 $0A 09D622 90 21 WRITE.B $21 09D624 40 PUSH.6 $00 09D625 3F 20 20 20 20 20 20 43 43 DISP " CC ID BAUD TIMER " 20 20 20 20 20 20 49 44 20 42 41 55 44 20 20 20 20 54 49 4D 45 52 20 20 20 09D647 10 04 BR $004 ; => $09D64D 09D649 00 DEFAULT ; SWITCH $09D5CD 09D64A 30 01 1F BSR.68K $011F ; => $09D52E => $09D9DE 09D64D 32 02 ADDSP.B $02 09D64F 34 RETURN ; ---------------- End Function $09D5C2 ---------------- ; ---------------- Begin 2144 Function $09D650 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D9DE:$09DA0E ; called from $0A0AE4:$0A0B2E ; addr bytes opcode operands comment 09D657 30 01 50 BSR.68K $0150 ; => $09D50A => $0034AA (CLEARSCREEN) (NATIVE) 09D65A C0 56 6D READ.B $566D 09D65D C0 4E 69 READ.B $4E69 09D660 2E NOT.L 09D661 2C AND.L 09D662 18 45 BRZ $045 ; => $09D6A9 09D664 4C PUSH.6 $0C 09D665 90 21 WRITE.B $21 09D667 C0 33 70 READ.B $3370 09D66A 41 PUSH.6 $01 09D66B 2A EQ.L 09D66C 18 15 BRZ $015 ; => $09D683 09D66E 40 PUSH.6 $00 09D66F 3F 10 4C 4F 47 47 49 4E 47 DISP "LOGGING STARTED-" 20 53 54 41 52 54 45 44 2D 09D681 10 13 BR $013 ; => $09D696 09D683 40 PUSH.6 $00 09D684 3F 10 53 55 52 56 45 59 20 DISP "SURVEY STARTED -" 53 54 41 52 54 45 44 20 2D 09D696 50 PUSH.6 $10 09D697 3F 0E 49 2F 4F 20 4B 45 59 DISP "I/O KEY LOCKED" 20 4C 4F 43 4B 45 44 09D6A7 10 6C BR $06C ; => $09D715 09D6A9 C0 56 6C READ.B $566C 09D6AC 2E NOT.L 09D6AD C0 29 93 READ.B $2993 09D6B0 2C AND.L 09D6B1 C0 4E 69 READ.B $4E69 09D6B4 2E NOT.L 09D6B5 2C AND.L 09D6B6 18 26 BRZ $026 ; => $09D6DE 09D6B8 4C PUSH.6 $0C 09D6B9 90 21 WRITE.B $21 09D6BB 40 PUSH.6 $00 09D6BC 3F 1E 49 4E 20 46 49 45 4C DISP "IN FIELD MODE - I/0 KEY LOCKED" 44 20 4D 4F 44 45 20 2D 20 49 2F 30 20 4B 45 59 20 4C 4F 43 4B 45 44 09D6DC 10 37 BR $037 ; => $09D715 09D6DE C0 29 58 READ.B $2958 09D6E1 18 2C BRZ $02C ; => $09D70F 09D6E3 30 01 C4 BSR.68K $01C4 ; => $09D522 => $099642 09D6E6 40 PUSH.6 $00 09D6E7 3F 20 20 20 20 42 45 45 50 DISP " BEEPER SETUPKEYLK PRINT " 45 52 20 20 53 45 54 55 50 4B 45 59 4C 4B 20 20 50 52 49 4E 54 20 20 20 20 09D709 04 47 PUSH.10 $047 09D70B 90 21 WRITE.B $21 09D70D 10 06 BR $006 ; => $09D715 09D70F 30 01 F6 BSR.68K $01F6 ; => $09D51C => $0A0AC0 09D712 7A PUSH.6 $3A 09D713 90 21 WRITE.B $21 09D715 34 RETURN ; ---------------- End Function $09D650 ---------------- ; ---------------- Begin 2144 Function $09D7A0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000FF4:$001028 ; addr bytes opcode operands comment 09D7A7 30 00 10 BSR.68K $0010 ; => $09D79A => $0909AE 09D7AA 30 00 31 BSR.68K $0031 ; => $09D77C => $093118 09D7AD C0 56 6D READ.B $566D 09D7B0 18 05 BRZ $005 ; => $09D7B7 09D7B2 04 FF PUSH.10 $0FF 09D7B4 D0 56 6E WRITE.B $566E 09D7B7 30 00 9E BSR.68K $009E ; => $09D71C => $0AF50C 09D7BA 30 00 47 BSR.68K $0047 ; => $09D776 => $0AA682 09D7BD C0 54 2C READ.B $542C 09D7C0 18 03 BRZ $003 ; => $09D7C5 09D7C2 30 00 97 BSR.68K $0097 ; => $09D72E => $0928C4 09D7C5 C0 54 2C READ.B $542C 09D7C8 40 PUSH.6 $00 09D7C9 2A EQ.L 09D7CA C0 54 2C READ.B $542C 09D7CD 42 PUSH.6 $02 09D7CE 03 25 LT.L 09D7D0 2D OR.L 09D7D1 18 03 BRZ $003 ; => $09D7D6 09D7D3 30 00 AE BSR.68K $00AE ; => $09D728 => $0AE864 09D7D6 30 00 B7 BSR.68K $00B7 ; => $09D722 => $0AF634 09D7D9 30 00 C6 BSR.68K $00C6 ; => $09D716 => $0A081C 09D7DC 30 00 7B BSR.68K $007B ; => $09D764 => $0ADF66 09D7DF 30 00 72 BSR.68K $0072 ; => $09D770 => $0AF9E2 09D7E2 30 00 AB BSR.68K $00AB ; => $09D73A => $0936B6 09D7E5 30 00 A8 BSR.68K $00A8 ; => $09D740 => $0AF6A0 09D7E8 30 00 A5 BSR.68K $00A5 ; => $09D746 => $0AF722 09D7EB 30 00 5A BSR.68K $005A ; => $09D794 => $0941F4 09D7EE 30 00 A5 BSR.68K $00A5 ; => $09D74C => $0AF7EC 09D7F1 30 00 A2 BSR.68K $00A2 ; => $09D752 => $0A0854 09D7F4 30 00 9F BSR.68K $009F ; => $09D758 => $0AF84E 09D7F7 30 00 78 BSR.68K $0078 ; => $09D782 => $09CF68 09D7FA 30 00 9F BSR.68K $009F ; => $09D75E => $0A6B6C 09D7FD C0 54 2C READ.B $542C 09D800 18 17 BRZ $017 ; => $09D819 09D802 40 PUSH.6 $00 09D803 D0 54 2D WRITE.B $542D 09D806 40 PUSH.6 $00 09D807 D0 55 62 WRITE.B $5562 09D80A 30 00 D9 BSR.68K $00D9 ; => $09D734 => $092E8E 09D80D C0 35 4D READ.B $354D 09D810 43 PUSH.6 $03 09D811 2A EQ.L 09D812 18 03 BRZ $003 ; => $09D817 09D814 30 00 AD BSR.68K $00AD ; => $09D76A => $0ABFB6 09D817 10 0E BR $00E ; => $09D827 09D819 30 00 8E BSR.68K $008E ; => $09D78E => $0A0EB6 09D81C 30 00 97 BSR.68K $0097 ; => $09D788 => $0991F6 09D81F C0 56 6E READ.B $566E 09D822 18 03 BRZ $003 ; => $09D827 09D824 30 00 BD BSR.68K $00BD ; => $09D76A => $0ABFB6 09D827 04 FF PUSH.10 $0FF 09D829 D0 4E 63 WRITE.B $4E63 09D82C 34 RETURN ; ---------------- End Function $09D7A0 ---------------- ; ---------------- Begin 2144 Function $09D9DE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $090920:$090944 ; called from $091090:$0910B6 ; called from $091898:$0918E5 ; called from $0918EE:$091954 ; called from $092464:$09248C ; called from $092626:$0926DF ; called from $09530E:$095372 ; called from $0955C0:$0955EF ; called from $095802:$095878 ; called from $09587C:$095903 ; called from $09590A:$0959B7 ; called from $096168:$096190 ; called from $096194:$096210 ; called from $096214:$096265 ; called from $096EB8:$096ECB ; called from $0970C6:$0970E1 ; called from $0973A8:$09741A ; called from $097420:$097465 ; called from $09746C:$0974A2 ; called from $0974A6:$0974B9 ; called from $0974BE:$0975A9 ; called from $0975AE:$097616 ; called from $097E1A:$097ECA ; called from $097EE4:$097F8C ; called from $0981EE:$098265 ; called from $09826C:$0982AC ; called from $09A204:$09A270 ; called from $09A2B8:$09A324 ; called from $09A36C:$09A396 ; called from $09A458:$09A5E6 ; called from $09BE50:$09BE95 ; called from $09D534:$09D5A9 ; called from $09D5C2:$09D64A ; called from $09DA58:$09DC82 ; called from $09E486:$09E4BB ; called from $09EE54:$09EECB ; called from $09EE54:$09EEF5 ; called from $09EE54:$09EF13 ; called from $0A16DC:$0A1709 ; called from $0A17F2:$0A1807 ; called from $0A1850:$0A1865 ; called from $0A1A30:$0A1A8F ; called from $0A4780:$0A47B5 ; called from $0A526C:$0A5347 ; called from $0A534C:$0A5373 ; called from $0A9B66:$0A9B8D ; called from $0A9BA6:$0A9C0C ; called from $0AA1C6:$0AA1F2 ; called from $0AA1C6:$0AA226 ; called from $0AA1C6:$0AA2D8 ; called from $0AAA16:$0AAA35 ; called from $0AC9D0:$0ACAF2 ; called from $0ACEB6:$0ACF04 ; called from $0AEAA0:$0AEAC1 ; called from $0AEAC6:$0AEB88 ; called from $0AEB8C:$0AEC18 ; called from $0AEC74:$0AECF4 ; called from $0AEC74:$0AECF9 ; called from $0AED64:$0AED86 ; addr bytes opcode operands comment 09D9E5 80 20 READ.B $20 09D9E7 35 SWITCH 09D9E8 40 09 42 82 C2 02 CASE $42, $82, $C2, $02 ; SWITCH $09D9E7 09D9EE 40 PUSH.6 $00 09D9EF 90 21 WRITE.B $21 09D9F1 10 41 BR $041 ; => $09DA34 09D9F3 10 06 48 CASE $48 ; SWITCH $09D9E7 09D9F6 30 01 B3 BSR.68K $01B3 ; => $09D846 => $0959BE 09D9F9 10 39 BR $039 ; => $09DA34 09D9FB 10 06 C8 CASE $C8 ; SWITCH $09D9E7 09D9FE 30 00 F5 BSR.68K $00F5 ; => $09D90C => $09761A 09DA01 10 31 BR $031 ; => $09DA34 09DA03 10 06 08 CASE $08 ; SWITCH $09D9E7 09DA06 30 01 45 BSR.68K $0145 ; => $09D8C4 => $09A5EA 09DA09 10 29 BR $029 ; => $09DA34 09DA0B 10 06 88 CASE $88 ; SWITCH $09D9E7 09DA0E 30 00 B1 BSR.68K $00B1 ; => $09D960 => $09D650 09DA11 10 21 BR $021 ; => $09DA34 09DA13 10 06 44 CASE $44 ; SWITCH $09D9E7 09DA16 30 00 7D BSR.68K $007D ; => $09D99C => $0AEC48 09DA19 10 19 BR $019 ; => $09DA34 09DA1B 10 06 04 CASE $04 ; SWITCH $09D9E7 09DA1E 30 00 D9 BSR.68K $00D9 ; => $09D948 => $091958 09DA21 10 11 BR $011 ; => $09DA34 09DA23 40 0E 10 50 90 D0 CASE $10, $50, $90, $D0 ; SWITCH $09D9E7 09DA29 C0 29 93 READ.B $2993 09DA2C 18 03 BRZ $003 ; => $09DA31 09DA2E 30 00 6B BSR.68K $006B ; => $09D9C6 => $0AC94C 09DA31 10 01 BR $001 ; => $09DA34 09DA33 00 DEFAULT ; SWITCH $09D9E7 09DA34 34 RETURN ; ---------------- End Function $09D9DE ---------------- ; ---------------- Begin 2144 Function $09DA36 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC8C ; addr bytes opcode operands comment 09DA3D C0 29 93 READ.B $2993 09DA40 18 14 BRZ $014 ; => $09DA56 09DA42 80 20 READ.B $20 09DA44 35 SWITCH 09DA45 10 06 F2 CASE $F2 ; SWITCH $09DA44 09DA48 30 00 85 BSR.68K $0085 ; => $09D9C6 => $0AC94C 09DA4B 10 09 BR $009 ; => $09DA56 09DA4D 10 06 F4 CASE $F4 ; SWITCH $09DA44 09DA50 30 00 87 BSR.68K $0087 ; => $09D9CC => $0AACE2 09DA53 10 01 BR $001 ; => $09DA56 09DA55 00 DEFAULT ; SWITCH $09DA44 09DA56 34 RETURN ; ---------------- End Function $09DA36 ---------------- ; ---------------- Begin 2144 Function $09DA58 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 09DA5F 40 PUSH.6 $00 09DA60 D0 4E 65 WRITE.B $4E65 09DA63 80 21 READ.B $21 09DA65 35 SWITCH 09DA66 40 09 1F 3A 42 22 CASE $1F, $3A, $42, $22 ; SWITCH $09DA65 09DA6C 30 02 3B BSR.68K $023B ; => $09D834 => $0A0AE4 09DA6F 12 14 BR $214 ; => $09DC85 09DA71 10 06 0E CASE $0E ; SWITCH $09DA65 09DA74 30 02 37 BSR.68K $0237 ; => $09D840 => $090920 09DA77 12 0C BR $20C ; => $09DC85 09DA79 10 06 03 CASE $03 ; SWITCH $09DA65 09DA7C 30 02 33 BSR.68K $0233 ; => $09D84C => $09590A 09DA7F 12 04 BR $204 ; => $09DC85 09DA81 10 06 08 CASE $08 ; SWITCH $09DA65 09DA84 30 02 35 BSR.68K $0235 ; => $09D852 => $09530E 09DA87 11 FC BR $1FC ; => $09DC85 09DA89 10 06 0D CASE $0D ; SWITCH $09DA65 09DA8C 30 02 37 BSR.68K $0237 ; => $09D858 => $09E486 09DA8F 11 F4 BR $1F4 ; => $09DC85 09DA91 10 06 2C CASE $2C ; SWITCH $09DA65 09DA94 30 02 39 BSR.68K $0239 ; => $09D85E => $09E2B2 09DA97 11 EC BR $1EC ; => $09DC85 09DA99 10 06 2D CASE $2D ; SWITCH $09DA65 09DA9C 30 02 3B BSR.68K $023B ; => $09D864 => $09E33E 09DA9F 11 E4 BR $1E4 ; => $09DC85 09DAA1 10 06 31 CASE $31 ; SWITCH $09DA65 09DAA4 30 02 3D BSR.68K $023D ; => $09D86A => $09E3F2 09DAA7 11 DC BR $1DC ; => $09DC85 09DAA9 10 06 52 CASE $52 ; SWITCH $09DA65 09DAAC 30 02 3F BSR.68K $023F ; => $09D870 => $0ACCF6 09DAAF 11 D4 BR $1D4 ; => $09DC85 09DAB1 10 06 0F CASE $0F ; SWITCH $09DA65 09DAB4 30 02 41 BSR.68K $0241 ; => $09D876 => $096168 09DAB7 11 CC BR $1CC ; => $09DC85 09DAB9 10 06 25 CASE $25 ; SWITCH $09DA65 09DABC 30 02 43 BSR.68K $0243 ; => $09D87C => $096194 09DABF 11 C4 BR $1C4 ; => $09DC85 09DAC1 10 06 40 CASE $40 ; SWITCH $09DA65 09DAC4 30 02 45 BSR.68K $0245 ; => $09D882 => $096214 09DAC7 11 BC BR $1BC ; => $09DC85 09DAC9 10 06 41 CASE $41 ; SWITCH $09DA65 09DACC 30 02 47 BSR.68K $0247 ; => $09D888 => $0ACFC8 09DACF 11 B4 BR $1B4 ; => $09DC85 09DAD1 10 06 12 CASE $12 ; SWITCH $09DA65 09DAD4 30 02 49 BSR.68K $0249 ; => $09D88E => $09587C 09DAD7 11 AC BR $1AC ; => $09DC85 09DAD9 10 06 14 CASE $14 ; SWITCH $09DA65 09DADC 30 02 4B BSR.68K $024B ; => $09D894 => $0A4780 09DADF 11 A4 BR $1A4 ; => $09DC85 09DAE1 10 06 48 CASE $48 ; SWITCH $09DA65 09DAE4 30 02 4D BSR.68K $024D ; => $09D89A => $0A475A 09DAE7 11 9C BR $19C ; => $09DC85 09DAE9 10 06 30 CASE $30 ; SWITCH $09DA65 09DAEC 30 02 55 BSR.68K $0255 ; => $09D89A => $0A475A 09DAEF 11 94 BR $194 ; => $09DC85 09DAF1 10 06 2F CASE $2F ; SWITCH $09DA65 09DAF4 30 02 57 BSR.68K $0257 ; => $09D8A0 => $0955C0 09DAF7 11 8C BR $18C ; => $09DC85 09DAF9 10 06 29 CASE $29 ; SWITCH $09DA65 09DAFC 30 02 53 BSR.68K $0253 ; => $09D8AC => $095802 09DAFF 11 84 BR $184 ; => $09DC85 09DB01 10 07 2A CASE $2A ; SWITCH $09DA65 09DB04 40 PUSH.6 $00 09DB05 30 02 62 BSR.68K $0262 ; => $09D8A6 => $09565E 09DB08 11 7B BR $17B ; => $09DC85 09DB0A 10 06 26 CASE $26 ; SWITCH $09DA65 09DB0D 30 02 5E BSR.68K $025E ; => $09D8B2 => $0ACEB6 09DB10 11 73 BR $173 ; => $09DC85 09DB12 10 06 27 CASE $27 ; SWITCH $09DA65 09DB15 30 02 60 BSR.68K $0260 ; => $09D8B8 => $0ACF08 09DB18 11 6B BR $16B ; => $09DC85 09DB1A 10 06 33 CASE $33 ; SWITCH $09DA65 09DB1D 30 02 62 BSR.68K $0262 ; => $09D8BE => $09826C 09DB20 11 63 BR $163 ; => $09DC85 09DB22 10 06 3F CASE $3F ; SWITCH $09DA65 09DB25 30 02 5E BSR.68K $025E ; => $09D8CA => $09A458 09DB28 11 5B BR $15B ; => $09DC85 09DB2A 10 07 20 CASE $20 ; SWITCH $09DA65 09DB2D 40 PUSH.6 $00 09DB2E 30 02 61 BSR.68K $0261 ; => $09D8D0 => $099FB8 09DB31 11 52 BR $152 ; => $09DC85 09DB33 10 06 53 CASE $53 ; SWITCH $09DA65 09DB36 30 02 63 BSR.68K $0263 ; => $09D8D6 => $09C2AA 09DB39 11 4A BR $14A ; => $09DC85 09DB3B 10 06 39 CASE $39 ; SWITCH $09DA65 09DB3E 30 02 65 BSR.68K $0265 ; => $09D8DC => $091584 09DB41 11 42 BR $142 ; => $09DC85 09DB43 10 06 54 CASE $54 ; SWITCH $09DA65 09DB46 30 02 67 BSR.68K $0267 ; => $09D8E2 => $09BDE6 09DB49 11 3A BR $13A ; => $09DC85 09DB4B 10 06 56 CASE $56 ; SWITCH $09DA65 09DB4E 30 02 69 BSR.68K $0269 ; => $09D8E8 => $09BE50 09DB51 11 32 BR $132 ; => $09DC85 09DB53 10 07 21 CASE $21 ; SWITCH $09DA65 09DB56 41 PUSH.6 $01 09DB57 30 02 8A BSR.68K $028A ; => $09D8D0 => $099FB8 09DB5A 11 29 BR $129 ; => $09DC85 09DB5C 10 06 2B CASE $2B ; SWITCH $09DA65 09DB5F 30 02 74 BSR.68K $0274 ; => $09D8EE => $09A36C 09DB62 11 21 BR $121 ; => $09DC85 09DB64 10 06 57 CASE $57 ; SWITCH $09DA65 09DB67 30 01 C2 BSR.68K $01C2 ; => $09D9A8 => $092626 09DB6A 11 19 BR $119 ; => $09DC85 09DB6C 10 06 28 CASE $28 ; SWITCH $09DA65 09DB6F 30 02 7E BSR.68K $027E ; => $09D8F4 => $0AED64 09DB72 11 11 BR $111 ; => $09DC85 09DB74 10 06 36 CASE $36 ; SWITCH $09DA65 09DB77 30 02 80 BSR.68K $0280 ; => $09D8FA => $0AA1C6 09DB7A 11 09 BR $109 ; => $09DC85 09DB7C 10 06 58 CASE $58 ; SWITCH $09DA65 09DB7F 30 02 82 BSR.68K $0282 ; => $09D900 => $09A204 09DB82 11 01 BR $101 ; => $09DC85 09DB84 10 06 59 CASE $59 ; SWITCH $09DA65 09DB87 30 02 84 BSR.68K $0284 ; => $09D906 => $09A2B8 09DB8A 10 F9 BR $0F9 ; => $09DC85 09DB8C 10 06 04 CASE $04 ; SWITCH $09DA65 09DB8F 30 02 80 BSR.68K $0280 ; => $09D912 => $0975AE 09DB92 10 F1 BR $0F1 ; => $09DC85 09DB94 10 06 18 CASE $18 ; SWITCH $09DA65 09DB97 30 02 82 BSR.68K $0282 ; => $09D918 => $0974BE 09DB9A 10 E9 BR $0E9 ; => $09DC85 09DB9C 10 06 16 CASE $16 ; SWITCH $09DA65 09DB9F 30 02 84 BSR.68K $0284 ; => $09D91E => $0970C6 09DBA2 10 E1 BR $0E1 ; => $09DC85 09DBA4 10 06 1C CASE $1C ; SWITCH $09DA65 09DBA7 30 02 86 BSR.68K $0286 ; => $09D924 => $096EB8 09DBAA 10 D9 BR $0D9 ; => $09DC85 09DBAC 10 06 17 CASE $17 ; SWITCH $09DA65 09DBAF 30 02 88 BSR.68K $0288 ; => $09D92A => $097420 09DBB2 10 D1 BR $0D1 ; => $09DC85 09DBB4 10 06 19 CASE $19 ; SWITCH $09DA65 09DBB7 30 02 8A BSR.68K $028A ; => $09D930 => $09746C 09DBBA 10 C9 BR $0C9 ; => $09DC85 09DBBC 10 06 1A CASE $1A ; SWITCH $09DA65 09DBBF 30 02 8C BSR.68K $028C ; => $09D936 => $0974A6 09DBC2 10 C1 BR $0C1 ; => $09DC85 09DBC4 10 06 07 CASE $07 ; SWITCH $09DA65 09DBC7 30 02 8E BSR.68K $028E ; => $09D93C => $0973A8 09DBCA 10 B9 BR $0B9 ; => $09DC85 09DBCC 10 06 37 CASE $37 ; SWITCH $09DA65 09DBCF 30 02 90 BSR.68K $0290 ; => $09D942 => $0AAA16 09DBD2 10 B1 BR $0B1 ; => $09DC85 09DBD4 10 06 05 CASE $05 ; SWITCH $09DA65 09DBD7 30 02 8C BSR.68K $028C ; => $09D94E => $0918EE 09DBDA 10 A9 BR $0A9 ; => $09DC85 09DBDC 10 06 3E CASE $3E ; SWITCH $09DA65 09DBDF 30 02 8E BSR.68K $028E ; => $09D954 => $091898 09DBE2 10 A1 BR $0A1 ; => $09DC85 09DBE4 10 06 35 CASE $35 ; SWITCH $09DA65 09DBE7 30 02 90 BSR.68K $0290 ; => $09D95A => $0A1A30 09DBEA 10 99 BR $099 ; => $09DC85 09DBEC 10 06 47 CASE $47 ; SWITCH $09DA65 09DBEF 30 02 8C BSR.68K $028C ; => $09D966 => $09D5C2 09DBF2 10 91 BR $091 ; => $09DC85 09DBF4 10 06 44 CASE $44 ; SWITCH $09DA65 09DBF7 30 02 8E BSR.68K $028E ; => $09D96C => $09D534 09DBFA 10 89 BR $089 ; => $09DC85 09DBFC 10 06 43 CASE $43 ; SWITCH $09DA65 09DBFF 30 02 90 BSR.68K $0290 ; => $09D972 => $0A5378 09DC02 10 81 BR $081 ; => $09DC85 09DC04 10 06 45 CASE $45 ; SWITCH $09DA65 09DC07 30 02 92 BSR.68K $0292 ; => $09D978 => $0A5136 09DC0A 10 79 BR $079 ; => $09DC85 09DC0C 10 06 0A CASE $0A ; SWITCH $09DA65 09DC0F 30 02 94 BSR.68K $0294 ; => $09D97E => $0A9BA6 09DC12 10 71 BR $071 ; => $09DC85 09DC14 10 06 23 CASE $23 ; SWITCH $09DA65 09DC17 30 02 96 BSR.68K $0296 ; => $09D984 => $0910BA 09DC1A 10 69 BR $069 ; => $09DC85 09DC1C 10 06 49 CASE $49 ; SWITCH $09DA65 09DC1F 30 02 98 BSR.68K $0298 ; => $09D98A => $0A98E2 09DC22 10 61 BR $061 ; => $09DC85 09DC24 10 06 4A CASE $4A ; SWITCH $09DA65 09DC27 30 02 9A BSR.68K $029A ; => $09D990 => $0A9992 09DC2A 10 59 BR $059 ; => $09DC85 09DC2C 10 06 4B CASE $4B ; SWITCH $09DA65 09DC2F 30 02 9C BSR.68K $029C ; => $09D996 => $0A9B92 09DC32 10 51 BR $051 ; => $09DC85 09DC34 10 06 4D CASE $4D ; SWITCH $09DA65 09DC37 30 02 98 BSR.68K $0298 ; => $09D9A2 => $0AEC74 09DC3A 10 49 BR $049 ; => $09DC85 09DC3C 10 06 51 CASE $51 ; SWITCH $09DA65 09DC3F 30 02 9A BSR.68K $029A ; => $09D9A8 => $092626 09DC42 10 41 BR $041 ; => $09DC85 09DC44 10 06 4E CASE $4E ; SWITCH $09DA65 09DC47 30 02 9C BSR.68K $029C ; => $09D9AE => $0AEAA0 09DC4A 10 39 BR $039 ; => $09DC85 09DC4C 10 06 4F CASE $4F ; SWITCH $09DA65 09DC4F 30 02 9E BSR.68K $029E ; => $09D9B4 => $0AEAC6 09DC52 10 31 BR $031 ; => $09DC85 09DC54 10 06 50 CASE $50 ; SWITCH $09DA65 09DC57 30 02 A0 BSR.68K $02A0 ; => $09D9BA => $0AEB8C 09DC5A 10 29 BR $029 ; => $09DC85 09DC5C 10 06 32 CASE $32 ; SWITCH $09DA65 09DC5F 30 02 A2 BSR.68K $02A2 ; => $09D9C0 => $09EE54 09DC62 10 21 BR $021 ; => $09DC85 09DC64 10 06 34 CASE $34 ; SWITCH $09DA65 09DC67 30 02 92 BSR.68K $0292 ; => $09D9D8 => $09E552 09DC6A 10 19 BR $019 ; => $09DC85 09DC6C 10 06 55 CASE $55 ; SWITCH $09DA65 09DC6F 30 02 A0 BSR.68K $02A0 ; => $09D9D2 => $0AC9D0 09DC72 10 11 BR $011 ; => $09DC85 09DC74 10 06 2E CASE $2E ; SWITCH $09DA65 09DC77 30 04 40 BSR.68K $0440 ; => $09D83A => $09A142 09DC7A 10 09 BR $009 ; => $09DC85 09DC7C 10 03 02 CASE $02 ; SWITCH $09DA65 09DC7F 10 04 BR $004 ; => $09DC85 09DC81 00 DEFAULT ; SWITCH $09DA65 09DC82 30 02 A7 BSR.68K $02A7 ; => $09D9DE 09DC85 80 21 READ.B $21 09DC87 04 55 PUSH.10 $055 09DC89 2B NEQ.L 09DC8A 18 03 BRZ $003 ; => $09DC8F 09DC8C 30 02 59 BSR.68K $0259 ; => $09DA36 09DC8F 30 04 64 BSR.68K $0464 ; => $09D82E => $0034C8 (SETSEGMENTS) (NATIVE) 09DC92 34 RETURN ; ---------------- End Function $09DA58 ---------------- ; ---------------- Begin 2144 Function $09DCCA ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $09DD4E:$09DE6D ; addr bytes opcode operands comment 09DCD1 C0 29 11 READ.B $2911 09DCD4 18 07 BRZ $007 ; => $09DCDD 09DCD6 C0 29 12 READ.B $2912 09DCD9 94 11 WRITE.B $11 09DCDB 10 2D BR $02D ; => $09DD0A 09DCDD 41 PUSH.6 $01 09DCDE 36 10 B2 _2362 $00B2 ; A0 = $004000; (A0) = A6 + $0 09DCE1 60 PUSH.6 $20 09DCE2 38 00 25 BLS.B $0025 ; => $09DD0A 09DCE5 84 11 READ.B $11 09DCE7 E0 22 D3 READ.B $22D3 09DCEA 2E NOT.L 09DCEB 84 11 READ.B $11 09DCED E0 02 29 READ.B $0229 09DCF0 40 PUSH.6 $00 09DCF1 2A EQ.L 09DCF2 84 11 READ.B $11 09DCF4 E0 22 F5 READ.B $22F5 09DCF7 2D OR.L 09DCF8 2C AND.L 09DCF9 18 02 BRZ $002 ; => $09DCFD 09DCFB 10 0D BR $00D ; => $09DD0A 09DCFD 84 11 READ.B $11 09DCFF 60 PUSH.6 $20 09DD00 2F MOD.L 09DD01 41 PUSH.6 $01 09DD02 27 ADD.L 09DD03 94 11 WRITE.B $11 09DD05 37 10 B2 00 29 _23d2 $00B2, $0029 09DD0A 84 B3 READ.B $B3 09DD0C 84 11 READ.B $11 09DD0E F0 40 09 WRITE.B $4009 09DD11 84 11 READ.B $11 09DD13 94 B8 WRITE.B $B8 09DD15 84 B3 READ.B $B3 09DD17 C3 28 E3 READ.F $28E3 09DD1A 3E PUSH.W $0000 09DD1B 26 EQ.F 09DD1C 18 0D BRZ $00D ; => $09DD2B 09DD1E 3B 40 CD 4C 00 00 00 00 00 PUSH.F $40CD4C0000000000 ; float = 15000.000000 09DD27 03 20 NEG.W 09DD29 10 0B BR $00B ; => $09DD36 09DD2B 3B 40 B3 88 00 00 00 00 00 PUSH.F $40B3880000000000 ; float = 5000.000000 09DD34 03 20 NEG.W 09DD36 B7 61 WRITE.F $61 09DD38 84 B3 READ.B $B3 09DD3A 3B 40 7F 40 00 00 00 00 00 PUSH.F $407F400000000000 ; float = 500.000000 09DD43 B7 B1 WRITE.F $B1 09DD45 84 11 READ.B $11 09DD47 60 PUSH.6 $20 09DD48 2F MOD.L 09DD49 41 PUSH.6 $01 09DD4A 27 ADD.L 09DD4B 94 11 WRITE.B $11 09DD4D 34 RETURN ; ---------------- End Function $09DCCA ---------------- ; ---------------- Begin 2144 Function $09DD4E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000FF4:$001014 ; addr bytes opcode operands comment 09DD55 31 BA SUBSP.B $BA 09DD57 41 PUSH.6 $01 09DD58 D0 29 E0 WRITE.B $29E0 09DD5B C0 29 11 READ.B $2911 09DD5E 94 B4 WRITE.B $B4 09DD60 C0 29 12 READ.B $2912 09DD63 94 B5 WRITE.B $B5 09DD65 41 PUSH.6 $01 09DD66 94 11 WRITE.B $11 09DD68 3E PUSH.W $0000 09DD69 97 07 WRITE.F $07 09DD6B 40 PUSH.6 $00 09DD6C 36 10 B3 _2362 $00B3 ; A0 = $004000; (A0) = A6 + $0 09DD6F C0 29 9B READ.B $299B 09DD72 38 00 24 BLS.B $0024 ; => $09DD99 09DD75 84 B3 READ.B $B3 09DD77 C3 28 E3 READ.F $28E3 09DD7A 3E PUSH.W $0000 09DD7B 26 EQ.F 09DD7C 18 0B BRZ $00B ; => $09DD89 09DD7E 3B 40 CD 4C 00 00 00 00 00 PUSH.F $40CD4C0000000000 ; float = 15000.000000 09DD87 10 09 BR $009 ; => $09DD92 09DD89 3B 40 B3 88 00 00 00 00 00 PUSH.F $40B3880000000000 ; float = 5000.000000 09DD92 B7 61 WRITE.F $61 09DD94 37 10 B3 00 2A _23d2 $00B3, $002A 09DD99 40 PUSH.6 $00 09DD9A D0 29 E1 WRITE.B $29E1 09DD9D 40 PUSH.6 $00 09DD9E D0 29 E2 WRITE.B $29E2 09DDA1 40 PUSH.6 $00 09DDA2 D0 29 E3 WRITE.B $29E3 09DDA5 84 B4 READ.B $B4 09DDA7 C0 29 11 READ.B $2911 09DDAA 2B NEQ.L 09DDAB 84 B5 READ.B $B5 09DDAD C0 29 12 READ.B $2912 09DDB0 2B NEQ.L 09DDB1 2D OR.L 09DDB2 18 02 BRZ $002 ; => $09DDB6 09DDB4 17 A1 BR $-5F ; => $09DD57 09DDB6 C0 35 4C READ.B $354C 09DDB9 D0 51 00 WRITE.B $5100 09DDBC 30 01 19 BSR.68K $0119 ; => $09DCA6 => $094E22 09DDBF 97 0F WRITE.F $0F 09DDC1 87 0F READ.F $0F 09DDC3 87 07 READ.F $07 09DDC5 25 GTE.F 09DDC6 94 10 WRITE.B $10 09DDC8 84 10 READ.B $10 09DDCA 18 11 BRZ $011 ; => $09DDDD 09DDCC 30 01 11 BSR.68K $0111 ; => $09DCBE => $0AA682 09DDCF 87 0F READ.F $0F 09DDD1 3B 3F F1 99 99 99 99 99 9A PUSH.F $3FF199999999999A ; float = 1.100000 09DDDA 20 ADD.F 09DDDB 97 07 WRITE.F $07 09DDDD 40 PUSH.6 $00 09DDDE 36 10 B3 _2362 $00B3 ; A0 = $004000; (A0) = A6 + $0 09DDE1 C0 29 9B READ.B $299B 09DDE4 38 01 77 BLS.B $0177 ; => $09DF5E 09DDE7 84 B3 READ.B $B3 09DDE9 E0 60 29 READ.B $6029 09DDEC 19 6B BRZ $16B ; => $09DF59 09DDEE 84 B3 READ.B $B3 09DDF0 D0 51 00 WRITE.B $5100 09DDF3 84 B3 READ.B $B3 09DDF5 E0 40 09 READ.B $4009 09DDF8 94 B8 WRITE.B $B8 09DDFA 30 01 5D BSR.68K $015D ; => $09DCA0 => $094F08 09DDFD 2E NOT.L 09DDFE C0 29 11 READ.B $2911 09DE01 2E NOT.L 09DE02 84 B8 READ.B $B8 09DE04 E0 22 D3 READ.B $22D3 09DE07 2C AND.L 09DE08 2D OR.L 09DE09 C0 29 11 READ.B $2911 09DE0C 2E NOT.L 09DE0D 84 B8 READ.B $B8 09DE0F E0 02 29 READ.B $0229 09DE12 40 PUSH.6 $00 09DE13 2B NEQ.L 09DE14 2C AND.L 09DE15 84 B8 READ.B $B8 09DE17 E0 22 F5 READ.B $22F5 09DE1A 2E NOT.L 09DE1B 2C AND.L 09DE1C 2D OR.L 09DE1D C0 29 11 READ.B $2911 09DE20 84 B8 READ.B $B8 09DE22 C0 29 12 READ.B $2912 09DE25 2B NEQ.L 09DE26 2C AND.L 09DE27 2D OR.L 09DE28 84 B8 READ.B $B8 09DE2A 40 PUSH.6 $00 09DE2B 2A EQ.L 09DE2C 2D OR.L 09DE2D 18 C6 BRZ $0C6 ; => $09DEF5 09DE2F 84 B3 READ.B $B3 09DE31 40 PUSH.6 $00 09DE32 F0 44 23 WRITE.B $4423 09DE35 84 B8 READ.B $B8 09DE37 C0 29 E1 READ.B $29E1 09DE3A 2A EQ.L 09DE3B 84 B7 READ.B $B7 09DE3D 84 B3 READ.B $B3 09DE3F 2A EQ.L 09DE40 2C AND.L 09DE41 18 04 BRZ $004 ; => $09DE47 09DE43 40 PUSH.6 $00 09DE44 D0 29 E1 WRITE.B $29E1 09DE47 84 10 READ.B $10 09DE49 18 A8 BRZ $0A8 ; => $09DEF3 09DE4B 84 B3 READ.B $B3 09DE4D A7 61 READ.F $61 09DE4F C3 28 E3 READ.F $28E3 09DE52 3E PUSH.W $0000 09DE53 26 EQ.F 09DE54 18 0B BRZ $00B ; => $09DE61 09DE56 3B 40 CD 4C 00 00 00 00 00 PUSH.F $40CD4C0000000000 ; float = 15000.000000 09DE5F 10 09 BR $009 ; => $09DE6A 09DE61 3B 40 B3 88 00 00 00 00 00 PUSH.F $40B3880000000000 ; float = 5000.000000 09DE6A 25 GTE.F 09DE6B 18 05 BRZ $005 ; => $09DE72 09DE6D 30 01 A6 BSR.68K $01A6 ; => $09DCCA 09DE70 10 6C BR $06C ; => $09DEDE 09DE72 84 B3 READ.B $B3 09DE74 E0 4C B3 READ.B $4CB3 09DE77 5E PUSH.6 $1E 09DE78 2A EQ.L 09DE79 84 B3 READ.B $B3 09DE7B E0 4C BD READ.B $4CBD 09DE7E 5E PUSH.6 $1E 09DE7F 2A EQ.L 09DE80 2D OR.L 09DE81 84 B3 READ.B $B3 09DE83 E0 4C B3 READ.B $4CB3 09DE86 64 PUSH.6 $24 09DE87 2A EQ.L 09DE88 2D OR.L 09DE89 84 B3 READ.B $B3 09DE8B E0 4C BD READ.B $4CBD 09DE8E 64 PUSH.6 $24 09DE8F 2A EQ.L 09DE90 2D OR.L 09DE91 18 31 BRZ $031 ; => $09DEC4 09DE93 84 B3 READ.B $B3 09DE95 A7 B1 READ.F $B1 09DE97 3B 40 7F 40 00 00 00 00 00 PUSH.F $407F400000000000 ; float = 500.000000 09DEA0 26 EQ.F 09DEA1 18 12 BRZ $012 ; => $09DEB5 09DEA3 84 B3 READ.B $B3 09DEA5 84 B3 READ.B $B3 09DEA7 A7 61 READ.F $61 09DEA9 3B 40 6F 40 00 00 00 00 00 PUSH.F $406F400000000000 ; float = 250.000000 09DEB2 21 SUB.F 09DEB3 B7 61 WRITE.F $61 09DEB5 84 B3 READ.B $B3 09DEB7 3B 40 49 00 00 00 00 00 00 PUSH.F $4049000000000000 ; float = 50.000000 09DEC0 B7 B1 WRITE.F $B1 09DEC2 10 0D BR $00D ; => $09DED1 09DEC4 84 B3 READ.B $B3 09DEC6 3B 40 7F 40 00 00 00 00 00 PUSH.F $407F400000000000 ; float = 500.000000 09DECF B7 B1 WRITE.F $B1 09DED1 84 B3 READ.B $B3 09DED3 84 B3 READ.B $B3 09DED5 A7 61 READ.F $61 09DED7 84 B3 READ.B $B3 09DED9 A7 B1 READ.F $B1 09DEDB 20 ADD.F 09DEDC B7 61 WRITE.F $61 09DEDE 84 B8 READ.B $B8 09DEE0 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 09DEE9 84 B3 READ.B $B3 09DEEB A7 61 READ.F $61 09DEED 20 ADD.F 09DEEE 3E PUSH.W $0000 09DEEF 40 PUSH.6 $00 09DEF0 30 02 47 BSR.68K $0247 ; => $09DCAC => $093CC0 09DEF3 10 64 BR $064 ; => $09DF59 09DEF5 84 B3 READ.B $B3 09DEF7 04 FF PUSH.10 $0FF 09DEF9 F0 44 23 WRITE.B $4423 09DEFC C0 4E 70 READ.B $4E70 09DEFF 18 05 BRZ $005 ; => $09DF06 09DF01 04 FF PUSH.10 $0FF 09DF03 D0 55 A2 WRITE.B $55A2 09DF06 C0 29 E1 READ.B $29E1 09DF09 40 PUSH.6 $00 09DF0A 2A EQ.L 09DF0B 18 09 BRZ $009 ; => $09DF16 09DF0D 84 B8 READ.B $B8 09DF0F D0 29 E1 WRITE.B $29E1 09DF12 84 B3 READ.B $B3 09DF14 94 B7 WRITE.B $B7 09DF16 30 02 67 BSR.68K $0267 ; => $09DCB2 => $094ED4 09DF19 18 19 BRZ $019 ; => $09DF34 09DF1B 30 02 66 BSR.68K $0266 ; => $09DCB8 => $0018F8 09DF1E C0 55 A2 READ.B $55A2 09DF21 18 0F BRZ $00F ; => $09DF32 09DF23 84 B8 READ.B $B8 09DF25 30 02 82 BSR.68K $0282 ; => $09DCA6 => $094E22 09DF28 F3 22 B1 WRITE.F $22B1 09DF2B C0 29 11 READ.B $2911 09DF2E 18 02 BRZ $002 ; => $09DF32 09DF30 10 2C BR $02C ; => $09DF5E 09DF32 10 25 BR $025 ; => $09DF59 09DF34 84 B8 READ.B $B8 09DF36 C0 29 E1 READ.B $29E1 09DF39 2A EQ.L 09DF3A 84 B3 READ.B $B3 09DF3C 84 B7 READ.B $B7 09DF3E 2A EQ.L 09DF3F 2C AND.L 09DF40 18 17 BRZ $017 ; => $09DF59 09DF42 C0 29 E2 READ.B $29E2 09DF45 94 B6 WRITE.B $B6 09DF47 C0 55 A4 READ.B $55A4 09DF4A D0 29 E2 WRITE.B $29E2 09DF4D 84 B6 READ.B $B6 09DF4F C0 29 E2 READ.B $29E2 09DF52 2B NEQ.L 09DF53 18 04 BRZ $004 ; => $09DF59 09DF55 40 PUSH.6 $00 09DF56 D1 29 E7 WRITE.W $29E7 09DF59 37 10 B3 01 7D _23d2 $00B3, $017D 09DF5E C0 50 BA READ.B $50BA 09DF61 18 03 BRZ $003 ; => $09DF66 09DF63 30 02 D2 BSR.68K $02D2 ; => $09DC94 => $0A7E94 09DF66 C0 55 70 READ.B $5570 09DF69 C1 56 27 READ.W $5627 09DF6C 40 PUSH.6 $00 09DF6D 2B NEQ.L 09DF6E 2D OR.L 09DF6F 18 03 BRZ $003 ; => $09DF74 09DF71 30 02 DA BSR.68K $02DA ; => $09DC9A => $0A96E2 09DF74 C0 29 5B READ.B $295B 09DF77 C0 29 64 READ.B $2964 09DF7A 2D OR.L 09DF7B 04 80 PUSH.10 $080 09DF7D 48 PUSH.6 $08 09DF7E 27 ADD.L 09DF7F 44 PUSH.6 $04 09DF80 27 ADD.L 09DF81 2C AND.L 09DF82 18 03 BRZ $003 ; => $09DF87 09DF84 30 02 C3 BSR.68K $02C3 ; => $09DCC4 => $0A4E0C 09DF87 C0 55 A2 READ.B $55A2 09DF8A 1E 19 BRZ $-1E7 ; => $09DDA5 09DF8C 04 FF PUSH.10 $0FF 09DF8E D0 22 F6 WRITE.B $22F6 09DF91 30 02 D6 BSR.68K $02D6 ; => $09DCBE => $0AA682 09DF94 40 PUSH.6 $00 09DF95 36 10 B3 _2362 $00B3 ; A0 = $004000; (A0) = A6 + $0 09DF98 49 PUSH.6 $09 09DF99 38 00 15 BLS.B $0015 ; => $09DFB1 09DF9C 84 B3 READ.B $B3 09DF9E 3B 54 B2 49 AD 25 94 C3 7D PUSH.F $54B249AD2594C37D ; float = 10000000000000000159028911097599180468360808563945281389781327557747838772170381060813469985856815104.000000 09DFA7 03 20 NEG.W 09DFA9 F3 44 73 WRITE.F $4473 09DFAC 37 10 B3 00 19 _23d2 $00B3, $0019 09DFB1 32 BA ADDSP.B $BA 09DFB3 34 RETURN ; ---------------- End Function $09DD4E ---------------- ; ---------------- Begin 2164 Function $09DFB4 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $091584:$0915B3 ; called from $091710:$091719 ; called from $0917DC:$091823 ; called from $092490:$0924FD ; called from $0953C8:$0953F7 ; called from $0954C0:$0954EF ; called from $09565E:$0956CE ; called from $099AE2:$099BBC ; called from $099AE2:$099BCA ; called from $099D5C:$099DE0 ; called from $099D5C:$099E0F ; called from $099D5C:$099E85 ; called from $09ADDC:$09AFA2 ; called from $09AFC0:$09B032 ; called from $09BE9A:$09BF53 ; called from $09C0A2:$09C28A ; called from $09C81E:$09C8AB ; called from $09C95E:$09C9CD ; called from $09C9EA:$09CA43 ; called from $09CABA:$09CB3E ; called from $09CB52:$09CBF2 ; called from $09E2B2:$09E2E1 ; called from $09E33E:$09E36D ; called from $09E3F2:$09E421 ; called from $09F0C8:$09F2A1 ; called from $09F0C8:$09F2AF ; called from $0A0AE4:$0A0AF8 ; called from $0A173A:$0A1769 ; called from $0A1896:$0A18FC ; called from $0A426C:$0A439E ; called from $0A469E:$0A46CD ; called from $0A5136:$0A5165 ; called from $0A98E2:$0A9911 ; called from $0A9992:$0A99C1 ; called from $0A9A80:$0A9AC1 ; called from $0AA1C6:$0AA268 ; called from $0AAEC4:$0AAF3A ; called from $0ACCF6:$0ACDE5 ; called from $0ACF08:$0ACF37 ; called from $0ACFC8:$0ACFF7 ; addr bytes opcode operands comment 09DFBD 31 02 SUBSP.B $02 09DFBF 80 20 READ.B $20 09DFC1 35 SWITCH 09DFC2 10 06 C2 CASE $C2 ; SWITCH $09DFC1 09DFC5 79 PUSH.6 $39 09DFC6 94 04 WRITE.B $04 09DFC8 10 4E BR $04E ; => $09E018 09DFCA 10 06 82 CASE $82 ; SWITCH $09DFC1 09DFCD 78 PUSH.6 $38 09DFCE 94 04 WRITE.B $04 09DFD0 10 46 BR $046 ; => $09E018 09DFD2 10 06 42 CASE $42 ; SWITCH $09DFC1 09DFD5 77 PUSH.6 $37 09DFD6 94 04 WRITE.B $04 09DFD8 10 3E BR $03E ; => $09E018 09DFDA 10 06 C4 CASE $C4 ; SWITCH $09DFC1 09DFDD 76 PUSH.6 $36 09DFDE 94 04 WRITE.B $04 09DFE0 10 36 BR $036 ; => $09E018 09DFE2 10 06 84 CASE $84 ; SWITCH $09DFC1 09DFE5 75 PUSH.6 $35 09DFE6 94 04 WRITE.B $04 09DFE8 10 2E BR $02E ; => $09E018 09DFEA 10 06 44 CASE $44 ; SWITCH $09DFC1 09DFED 74 PUSH.6 $34 09DFEE 94 04 WRITE.B $04 09DFF0 10 26 BR $026 ; => $09E018 09DFF2 10 06 C8 CASE $C8 ; SWITCH $09DFC1 09DFF5 73 PUSH.6 $33 09DFF6 94 04 WRITE.B $04 09DFF8 10 1E BR $01E ; => $09E018 09DFFA 10 06 88 CASE $88 ; SWITCH $09DFC1 09DFFD 72 PUSH.6 $32 09DFFE 94 04 WRITE.B $04 09E000 10 16 BR $016 ; => $09E018 09E002 10 06 48 CASE $48 ; SWITCH $09DFC1 09E005 71 PUSH.6 $31 09E006 94 04 WRITE.B $04 09E008 10 0E BR $00E ; => $09E018 09E00A 10 06 08 CASE $08 ; SWITCH $09DFC1 09E00D 70 PUSH.6 $30 09E00E 94 04 WRITE.B $04 09E010 10 06 BR $006 ; => $09E018 09E012 00 DEFAULT ; SWITCH $09DFC1 09E013 40 PUSH.6 $00 09E014 96 03 WRITE.L $03 09E016 10 10 BR $010 ; => $09E028 09E018 80 26 READ.B $26 09E01A 84 04 READ.B $04 09E01C B0 1F WRITE.B $1F 09E01E 80 26 READ.B $26 09E020 41 PUSH.6 $01 09E021 27 ADD.L 09E022 90 26 WRITE.B $26 09E024 04 FF PUSH.10 $0FF 09E026 96 03 WRITE.L $03 09E028 32 02 ADDSP.B $02 09E02A 34 RETURN ; ---------------- End Function $09DFB4 ---------------- ; ---------------- Begin 2164 Function $09E02C ---------------- ; P0 = $0008; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $7; D1 = $000008 ; called from $091584:$0915CC ; called from $092490:$092512 ; called from $0953C8:$095436 ; called from $0954C0:$095508 ; called from $09565E:$0956EC ; called from $099AE2:$099BFE ; called from $099AE2:$099C56 ; called from $099AE2:$099C6E ; called from $09ADDC:$09AE1D ; called from $09ADDC:$09AE41 ; called from $09ADDC:$09AE5E ; called from $09ADDC:$09AF23 ; called from $09ADDC:$09AF47 ; called from $09ADDC:$09AF64 ; called from $09AFC0:$09AFEA ; called from $09BE9A:$09BF60 ; called from $09BE9A:$09BFD8 ; called from $09C0A2:$09C0E2 ; called from $09C0A2:$09C0F1 ; called from $09C81E:$09C835 ; called from $09C81E:$09C83E ; called from $09C81E:$09C904 ; called from $09C81E:$09C914 ; called from $09C81E:$09C91F ; called from $09C81E:$09C92F ; called from $09C9EA:$09CA11 ; called from $09CABA:$09CAE1 ; called from $09CB52:$09CB8D ; called from $09E3F2:$09E447 ; called from $09F0C8:$09F12C ; called from $09F0C8:$09F133 ; called from $09F0C8:$09F322 ; called from $09F0C8:$09F347 ; called from $09F0C8:$09F36C ; called from $09F0C8:$09F373 ; called from $0A0AE4:$0A0B05 ; called from $0A0AE4:$0A0B69 ; called from $0A9A80:$0A9B05 ; called from $0AAEC4:$0AAF70 ; addr bytes opcode operands comment 09E035 31 0A SUBSP.B $0A 09E037 3E PUSH.W $0000 09E038 97 19 WRITE.F $19 09E03A 86 0B READ.L $0B 09E03C 36 10 10 _2362 $0010 ; A0 = $004000; (A0) = A6 + $0 09E03F 86 0F READ.L $0F 09E041 38 00 2C BLS.B $002C ; => $09E070 09E044 87 19 READ.F $19 09E046 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 09E04F 22 MUL.F 09E050 84 10 READ.B $10 09E052 A0 1F READ.B $1F 09E054 4F PUSH.6 $0F 09E055 2C AND.L 09E056 03 2A LONG2FLOAT 09E058 20 ADD.F 09E059 97 19 WRITE.F $19 09E05B 84 10 READ.B $10 09E05D A0 1F READ.B $1F 09E05F 4F PUSH.6 $0F 09E060 2C AND.L 09E061 49 PUSH.6 $09 09E062 03 25 LT.L 09E064 18 05 BRZ $005 ; => $09E06B 09E066 04 FF PUSH.10 $0FF 09E068 D0 4E 51 WRITE.B $4E51 09E06B 37 10 10 00 31 _23d2 $0010, $0031 09E070 87 19 READ.F $19 09E072 97 07 WRITE.F $07 09E074 32 12 ADDSP.B $12 09E076 34 RETURN ; ---------------- End Function $09E02C ---------------- ; ---------------- Begin 2164 Function $09E078 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $091698:$0916B2 ; called from $091698:$0916B8 ; called from $091710:$091737 ; called from $091710:$09176B ; called from $0917DC:$0917FF ; called from $0917DC:$09180B ; called from $0917DC:$091853 ; called from $0917DC:$091865 ; called from $0973A8:$0973E6 ; called from $09C95E:$09C987 ; called from $09E118:$09E125 ; called from $09E118:$09E12A ; called from $09E118:$09E13A ; called from $09E118:$09E146 ; called from $09E118:$09E164 ; called from $09E118:$09E170 ; called from $09E19A:$09E1A8 ; called from $09E19A:$09E1B3 ; called from $09E19A:$09E1C3 ; called from $09E19A:$09E1CF ; called from $09E19A:$09E1ED ; called from $09E19A:$09E1F9 ; called from $09E2B2:$09E2F5 ; called from $09E33E:$09E384 ; called from $0A173A:$0A1799 ; called from $0A173A:$0A17AB ; called from $0A1896:$0A197C ; called from $0A1896:$0A19BD ; called from $0A4170:$0A4191 ; called from $0A4170:$0A41DE ; called from $0A426C:$0A443E ; called from $0A5136:$0A518C ; called from $0A5136:$0A51AA ; called from $0A98E2:$0A9929 ; called from $0A9992:$0A99D9 ; called from $0ACCF6:$0ACE22 ; called from $0ACF08:$0ACF59 ; called from $0ACF08:$0ACF76 ; called from $0ACFC8:$0AD018 ; called from $0ACFC8:$0AD02C ; addr bytes opcode operands comment 09E081 4A PUSH.6 $0A 09E082 86 07 READ.L $07 09E084 A0 1F READ.B $1F 09E086 4F PUSH.6 $0F 09E087 2C AND.L 09E088 29 MUL.L 09E089 86 07 READ.L $07 09E08B 41 PUSH.6 $01 09E08C 27 ADD.L 09E08D A0 1F READ.B $1F 09E08F 4F PUSH.6 $0F 09E090 2C AND.L 09E091 27 ADD.L 09E092 96 03 WRITE.L $03 09E094 32 04 ADDSP.B $04 09E096 34 RETURN ; ---------------- End Function $09E078 ---------------- ; ---------------- Begin 2164 Function $09E098 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; addr bytes opcode operands comment 09E0A1 86 07 READ.L $07 09E0A3 42 PUSH.6 $02 09E0A4 27 ADD.L 09E0A5 A0 1F READ.B $1F 09E0A7 4F PUSH.6 $0F 09E0A8 2C AND.L 09E0A9 4A PUSH.6 $0A 09E0AA 86 07 READ.L $07 09E0AC 41 PUSH.6 $01 09E0AD 27 ADD.L 09E0AE A0 1F READ.B $1F 09E0B0 4F PUSH.6 $0F 09E0B1 2C AND.L 09E0B2 29 MUL.L 09E0B3 27 ADD.L 09E0B4 04 64 PUSH.10 $064 09E0B6 86 07 READ.L $07 09E0B8 A0 1F READ.B $1F 09E0BA 4F PUSH.6 $0F 09E0BB 2C AND.L 09E0BC 29 MUL.L 09E0BD 27 ADD.L 09E0BE 96 03 WRITE.L $03 09E0C0 32 04 ADDSP.B $04 09E0C2 34 RETURN ; ---------------- End Function $09E098 ---------------- ; ---------------- Begin 2164 Function $09E0C4 ---------------- ; P0 = $0008; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $7; D1 = $000004 ; called from $0AA1C6:$0AA27B ; addr bytes opcode operands comment 09E0CD 31 06 SUBSP.B $06 09E0CF 40 PUSH.6 $00 09E0D0 96 11 WRITE.L $11 09E0D2 86 07 READ.L $07 09E0D4 36 10 0C _2362 $000C ; A0 = $004000; (A0) = A6 + $0 09E0D7 86 0B READ.L $0B 09E0D9 38 00 12 BLS.B $0012 ; => $09E0EE 09E0DC 4A PUSH.6 $0A 09E0DD 86 11 READ.L $11 09E0DF 29 MUL.L 09E0E0 84 0C READ.B $0C 09E0E2 A0 1F READ.B $1F 09E0E4 4F PUSH.6 $0F 09E0E5 2C AND.L 09E0E6 27 ADD.L 09E0E7 96 11 WRITE.L $11 09E0E9 37 10 0C 00 17 _23d2 $000C, $0017 09E0EE 86 11 READ.L $11 09E0F0 96 03 WRITE.L $03 09E0F2 32 0E ADDSP.B $0E 09E0F4 34 RETURN ; ---------------- End Function $09E0C4 ---------------- ; ---------------- Begin 2144 Function $09E0F6 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $091710:$091725 ; called from $091710:$091759 ; called from $0953C8:$095407 ; called from $0953C8:$095417 ; called from $099D5C:$099EE5 ; called from $099D5C:$099F14 ; called from $099D5C:$099F23 ; called from $09C81E:$09C8C0 ; called from $09C81E:$09C8D0 ; called from $09C81E:$09C8E4 ; called from $09C81E:$09C8F2 ; called from $09C95E:$09C9D9 ; called from $09C9EA:$09CA53 ; addr bytes opcode operands comment 09E0FD 80 26 READ.B $26 09E0FF 41 PUSH.6 $01 09E100 28 SUB.L 09E101 A0 1F READ.B $1F 09E103 86 03 READ.L $03 09E105 03 25 LT.L 09E107 18 0C BRZ $00C ; => $09E115 09E109 80 26 READ.B $26 09E10B 41 PUSH.6 $01 09E10C 28 SUB.L 09E10D 90 26 WRITE.B $26 09E10F 80 26 READ.B $26 09E111 86 03 READ.L $03 09E113 B0 1F WRITE.B $1F 09E115 32 04 ADDSP.B $04 09E117 34 RETURN ; ---------------- End Function $09E0F6 ---------------- ; ---------------- Begin 2164 Function $09E118 ---------------- ; P0 = $0000; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $099D5C:$099F2B ; addr bytes opcode operands comment 09E121 31 0C SUBSP.B $0C 09E123 7C PUSH.6 $3C 09E124 45 PUSH.6 $05 09E125 30 00 B0 BSR.68K $00B0 ; => $09E078 09E128 29 MUL.L 09E129 48 PUSH.6 $08 09E12A 30 00 B5 BSR.68K $00B5 ; => $09E078 09E12D 27 ADD.L 09E12E 96 0B WRITE.L $0B 09E130 C0 35 46 READ.B $3546 09E133 18 29 BRZ $029 ; => $09E15E 09E135 7C PUSH.6 $3C 09E136 86 0B READ.L $0B 09E138 29 MUL.L 09E139 4B PUSH.6 $0B 09E13A 30 00 C5 BSR.68K $00C5 ; => $09E078 09E13D 27 ADD.L 09E13E 96 0B WRITE.L $0B 09E140 04 64 PUSH.10 $064 09E142 86 0B READ.L $0B 09E144 29 MUL.L 09E145 4D PUSH.6 $0D 09E146 30 00 D1 BSR.68K $00D1 ; => $09E078 09E149 27 ADD.L 09E14A 96 0B WRITE.L $0B 09E14C 86 0B READ.L $0B 09E14E 03 2A LONG2FLOAT 09E150 3B 41 8E E6 28 00 00 00 00 PUSH.F $418EE62800000000 ; float = 64800000.000000 09E159 23 DIV.F 09E15A 97 13 WRITE.F $13 09E15C 10 28 BR $028 ; => $09E186 09E15E 04 64 PUSH.10 $064 09E160 86 0B READ.L $0B 09E162 29 MUL.L 09E163 4A PUSH.6 $0A 09E164 30 00 EF BSR.68K $00EF ; => $09E078 09E167 27 ADD.L 09E168 96 0B WRITE.L $0B 09E16A 04 64 PUSH.10 $064 09E16C 86 0B READ.L $0B 09E16E 29 MUL.L 09E16F 4C PUSH.6 $0C 09E170 30 00 FB BSR.68K $00FB ; => $09E078 09E173 27 ADD.L 09E174 96 0B WRITE.L $0B 09E176 86 0B READ.L $0B 09E178 03 2A LONG2FLOAT 09E17A 3B 41 99 BF CC 00 00 00 00 PUSH.F $4199BFCC00000000 ; float = 108000000.000000 09E183 23 DIV.F 09E184 97 13 WRITE.F $13 09E186 80 10 READ.B $10 09E188 04 53 PUSH.10 $053 09E18A 2A EQ.L 09E18B 18 06 BRZ $006 ; => $09E193 09E18D 87 13 READ.F $13 09E18F 03 20 NEG.W 09E191 97 13 WRITE.F $13 09E193 87 13 READ.F $13 09E195 97 07 WRITE.F $07 09E197 32 0C ADDSP.B $0C 09E199 34 RETURN ; ---------------- End Function $09E118 ---------------- ; ---------------- Begin 2164 Function $09E19A ---------------- ; P0 = $0000; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $099D5C:$099F31 ; addr bytes opcode operands comment 09E1A3 31 0C SUBSP.B $0C 09E1A5 7C PUSH.6 $3C 09E1A6 4A PUSH.6 $0A 09E1A7 54 PUSH.6 $14 09E1A8 30 01 33 BSR.68K $0133 ; => $09E078 09E1AB 29 MUL.L 09E1AC 80 09 READ.B $09 09E1AE 4F PUSH.6 $0F 09E1AF 2C AND.L 09E1B0 27 ADD.L 09E1B1 29 MUL.L 09E1B2 58 PUSH.6 $18 09E1B3 30 01 3E BSR.68K $013E ; => $09E078 09E1B6 27 ADD.L 09E1B7 96 0B WRITE.L $0B 09E1B9 C0 35 46 READ.B $3546 09E1BC 18 29 BRZ $029 ; => $09E1E7 09E1BE 7C PUSH.6 $3C 09E1BF 86 0B READ.L $0B 09E1C1 29 MUL.L 09E1C2 5B PUSH.6 $1B 09E1C3 30 01 4E BSR.68K $014E ; => $09E078 09E1C6 27 ADD.L 09E1C7 96 0B WRITE.L $0B 09E1C9 04 64 PUSH.10 $064 09E1CB 86 0B READ.L $0B 09E1CD 29 MUL.L 09E1CE 5D PUSH.6 $1D 09E1CF 30 01 5A BSR.68K $015A ; => $09E078 09E1D2 27 ADD.L 09E1D3 96 0B WRITE.L $0B 09E1D5 86 0B READ.L $0B 09E1D7 03 2A LONG2FLOAT 09E1D9 3B 41 8E E6 28 00 00 00 00 PUSH.F $418EE62800000000 ; float = 64800000.000000 09E1E2 23 DIV.F 09E1E3 97 13 WRITE.F $13 09E1E5 10 28 BR $028 ; => $09E20F 09E1E7 04 64 PUSH.10 $064 09E1E9 86 0B READ.L $0B 09E1EB 29 MUL.L 09E1EC 5A PUSH.6 $1A 09E1ED 30 01 78 BSR.68K $0178 ; => $09E078 09E1F0 27 ADD.L 09E1F1 96 0B WRITE.L $0B 09E1F3 04 64 PUSH.10 $064 09E1F5 86 0B READ.L $0B 09E1F7 29 MUL.L 09E1F8 5C PUSH.6 $1C 09E1F9 30 01 84 BSR.68K $0184 ; => $09E078 09E1FC 27 ADD.L 09E1FD 96 0B WRITE.L $0B 09E1FF 86 0B READ.L $0B 09E201 03 2A LONG2FLOAT 09E203 3B 41 99 BF CC 00 00 00 00 PUSH.F $4199BFCC00000000 ; float = 108000000.000000 09E20C 23 DIV.F 09E20D 97 13 WRITE.F $13 09E20F 80 00 READ.B $00 09E211 04 57 PUSH.10 $057 09E213 2A EQ.L 09E214 18 06 BRZ $006 ; => $09E21C 09E216 87 13 READ.F $13 09E218 03 20 NEG.W 09E21A 97 13 WRITE.F $13 09E21C 87 13 READ.F $13 09E21E 97 07 WRITE.F $07 09E220 32 0C ADDSP.B $0C 09E222 34 RETURN ; ---------------- End Function $09E19A ---------------- ; ---------------- Begin 2144 Function $09E254 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09E2B2:$09E2CC ; called from $09E2B2:$09E335 ; called from $09E486:$09E499 ; addr bytes opcode operands comment 09E25B 30 00 16 BSR.68K $0016 ; => $09E248 => $0034AA (CLEARSCREEN) (NATIVE) 09E25E 40 PUSH.6 $00 09E25F 3F 1A 45 4C 45 56 41 54 49 DISP "ELEVATION MASK DEGREES" 4F 4E 20 4D 41 53 4B 20 20 20 20 20 44 45 47 52 45 45 53 09E27B 50 PUSH.6 $10 09E27C 42 PUSH.6 $02 09E27D C3 28 DB READ.F $28DB 09E280 30 00 41 BSR.68K $0041 ; => $09E242 => $097AD2 09E283 50 PUSH.6 $10 09E284 90 26 WRITE.B $26 09E286 34 RETURN ; ---------------- End Function $09E254 ---------------- ; ---------------- Begin 2144 Function $09E288 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09E33E:$09E358 ; called from $09E486:$09E4B5 ; addr bytes opcode operands comment 09E28F 30 00 4A BSR.68K $004A ; => $09E248 => $0034AA (CLEARSCREEN) (NATIVE) 09E292 52 PUSH.6 $12 09E293 3F 0E 44 41 54 41 20 41 47 DISP "DATA AGE 03 HR" 45 20 30 33 20 48 52 09E2A3 5B PUSH.6 $1B 09E2A4 42 PUSH.6 $02 09E2A5 C0 28 E4 READ.B $28E4 09E2A8 03 2A LONG2FLOAT 09E2AA 30 00 6B BSR.68K $006B ; => $09E242 => $097AD2 09E2AD 5B PUSH.6 $1B 09E2AE 90 26 WRITE.B $26 09E2B0 34 RETURN ; ---------------- End Function $09E288 ---------------- ; ---------------- Begin 2144 Function $09E2B2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DA94 ; addr bytes opcode operands comment 09E2B9 31 02 SUBSP.B $02 09E2BB 80 20 READ.B $20 09E2BD 35 SWITCH 09E2BE 10 11 02 CASE $02 ; SWITCH $09E2BD 09E2C1 80 26 READ.B $26 09E2C3 50 PUSH.6 $10 09E2C4 2A EQ.L 09E2C5 18 05 BRZ $005 ; => $09E2CC 09E2C7 40 PUSH.6 $00 09E2C8 90 21 WRITE.B $21 09E2CA 10 03 BR $003 ; => $09E2CF 09E2CC 30 00 7B BSR.68K $007B ; => $09E254 09E2CF 10 15 BR $015 ; => $09E2E6 09E2D1 10 06 04 CASE $04 ; SWITCH $09E2BD 09E2D4 61 PUSH.6 $21 09E2D5 90 26 WRITE.B $26 09E2D7 10 0D BR $00D ; => $09E2E6 09E2D9 00 DEFAULT ; SWITCH $09E2BD 09E2DA 80 26 READ.B $26 09E2DC 52 PUSH.6 $12 09E2DD 03 26 GT.L 09E2DF 18 05 BRZ $005 ; => $09E2E6 09E2E1 30 00 BA BSR.68K $00BA ; => $09E22A => $09DFB4 09E2E4 94 00 WRITE.B $00 09E2E6 80 26 READ.B $26 09E2E8 35 SWITCH 09E2E9 10 06 12 CASE $12 ; SWITCH $09E2E8 09E2EC 60 PUSH.6 $20 09E2ED 90 26 WRITE.B $26 09E2EF 10 4A BR $04A ; => $09E33B 09E2F1 10 47 21 CASE $21 ; SWITCH $09E2E8 09E2F4 50 PUSH.6 $10 09E2F5 30 00 C2 BSR.68K $00C2 ; => $09E236 => $09E078 09E2F8 94 01 WRITE.B $01 09E2FA 84 01 READ.B $01 09E2FC 04 5A PUSH.10 $05A 09E2FE 03 28 GTE.L 09E300 18 33 BRZ $033 ; => $09E335 09E302 4C PUSH.6 $0C 09E303 90 21 WRITE.B $21 09E305 84 01 READ.B $01 09E307 03 2A LONG2FLOAT 09E309 D3 28 DB WRITE.F $28DB 09E30C 40 PUSH.6 $00 09E30D 3F 20 20 20 4D 49 4E 49 4D DISP " MINIMUM ELEV ANGLE ENTERED " 55 4D 20 45 4C 45 56 20 20 20 20 41 4E 47 4C 45 20 45 4E 54 45 52 45 44 20 09E32F 4C PUSH.6 $0C 09E330 D0 55 70 WRITE.B $5570 09E333 10 03 BR $003 ; => $09E338 09E335 30 00 E4 BSR.68K $00E4 ; => $09E254 09E338 10 01 BR $001 ; => $09E33B 09E33A 00 DEFAULT ; SWITCH $09E2E8 09E33B 32 02 ADDSP.B $02 09E33D 34 RETURN ; ---------------- End Function $09E2B2 ---------------- ; ---------------- Begin 2144 Function $09E33E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DA9C ; addr bytes opcode operands comment 09E345 31 02 SUBSP.B $02 09E347 80 20 READ.B $20 09E349 35 SWITCH 09E34A 10 11 02 CASE $02 ; SWITCH $09E349 09E34D 80 26 READ.B $26 09E34F 5B PUSH.6 $1B 09E350 2A EQ.L 09E351 18 05 BRZ $005 ; => $09E358 09E353 40 PUSH.6 $00 09E354 90 21 WRITE.B $21 09E356 10 03 BR $003 ; => $09E35B 09E358 30 00 D3 BSR.68K $00D3 ; => $09E288 09E35B 10 15 BR $015 ; => $09E372 09E35D 10 06 04 CASE $04 ; SWITCH $09E349 09E360 61 PUSH.6 $21 09E361 90 26 WRITE.B $26 09E363 10 0D BR $00D ; => $09E372 09E365 00 DEFAULT ; SWITCH $09E349 09E366 80 26 READ.B $26 09E368 5D PUSH.6 $1D 09E369 03 26 GT.L 09E36B 18 05 BRZ $005 ; => $09E372 09E36D 30 01 46 BSR.68K $0146 ; => $09E22A => $09DFB4 09E370 94 00 WRITE.B $00 09E372 80 26 READ.B $26 09E374 35 SWITCH 09E375 10 06 1D CASE $1D ; SWITCH $09E374 09E378 60 PUSH.6 $20 09E379 90 26 WRITE.B $26 09E37B 10 37 BR $037 ; => $09E3B4 09E37D 10 34 21 CASE $21 ; SWITCH $09E374 09E380 4C PUSH.6 $0C 09E381 90 21 WRITE.B $21 09E383 5B PUSH.6 $1B 09E384 30 01 51 BSR.68K $0151 ; => $09E236 => $09E078 09E387 D0 28 E4 WRITE.B $28E4 09E38A 40 PUSH.6 $00 09E38B 3F 20 4D 41 58 49 4D 55 4D DISP "MAXIMUM DATA AGE ENTERED " 20 44 41 54 41 20 41 47 45 20 20 20 20 45 4E 54 45 52 45 44 20 20 20 20 20 09E3AD 4C PUSH.6 $0C 09E3AE D0 55 70 WRITE.B $5570 09E3B1 10 01 BR $001 ; => $09E3B4 09E3B3 00 DEFAULT ; SWITCH $09E374 09E3B4 32 02 ADDSP.B $02 09E3B6 34 RETURN ; ---------------- End Function $09E33E ---------------- ; ---------------- Begin 2144 Function $09E3B8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09E3F2:$09E40C ; called from $09E486:$09E4A7 ; addr bytes opcode operands comment 09E3BF 30 01 7A BSR.68K $017A ; => $09E248 => $0034AA (CLEARSCREEN) (NATIVE) 09E3C2 40 PUSH.6 $00 09E3C3 3F 08 4D 41 58 20 50 44 4F DISP "MAX PDOP" 50 09E3CD 49 PUSH.6 $09 09E3CE 43 PUSH.6 $03 09E3CF 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 09E3D8 C3 28 ED READ.F $28ED 09E3DB 22 MUL.F 09E3DC 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09E3E5 20 ADD.F 09E3E6 30 01 A7 BSR.68K $01A7 ; => $09E242 => $097AD2 09E3E9 49 PUSH.6 $09 09E3EA 90 26 WRITE.B $26 09E3EC 4A PUSH.6 $0A 09E3ED 30 01 C0 BSR.68K $01C0 ; => $09E230 => $097B5C 09E3F0 34 RETURN ; ---------------- End Function $09E3B8 ---------------- ; ---------------- Begin 2144 Function $09E3F2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DAA4 ; addr bytes opcode operands comment 09E3F9 31 02 SUBSP.B $02 09E3FB 80 20 READ.B $20 09E3FD 35 SWITCH 09E3FE 10 11 02 CASE $02 ; SWITCH $09E3FD 09E401 80 26 READ.B $26 09E403 49 PUSH.6 $09 09E404 2A EQ.L 09E405 18 05 BRZ $005 ; => $09E40C 09E407 40 PUSH.6 $00 09E408 90 21 WRITE.B $21 09E40A 10 03 BR $003 ; => $09E40F 09E40C 30 00 57 BSR.68K $0057 ; => $09E3B8 09E40F 10 15 BR $015 ; => $09E426 09E411 10 06 04 CASE $04 ; SWITCH $09E3FD 09E414 61 PUSH.6 $21 09E415 90 26 WRITE.B $26 09E417 10 0D BR $00D ; => $09E426 09E419 00 DEFAULT ; SWITCH $09E3FD 09E41A 80 26 READ.B $26 09E41C 4C PUSH.6 $0C 09E41D 03 26 GT.L 09E41F 18 05 BRZ $005 ; => $09E426 09E421 30 01 FA BSR.68K $01FA ; => $09E22A => $09DFB4 09E424 94 00 WRITE.B $00 09E426 4A PUSH.6 $0A 09E427 30 01 FA BSR.68K $01FA ; => $09E230 => $097B5C 09E42A 80 26 READ.B $26 09E42C 4C PUSH.6 $0C 09E42D 2A EQ.L 09E42E 18 03 BRZ $003 ; => $09E433 09E430 60 PUSH.6 $20 09E431 90 26 WRITE.B $26 09E433 80 26 READ.B $26 09E435 61 PUSH.6 $21 09E436 2A EQ.L 09E437 18 4A BRZ $04A ; => $09E483 09E439 4C PUSH.6 $0C 09E43A 90 21 WRITE.B $21 09E43C 3B 3F B9 99 99 99 99 99 9A PUSH.F $3FB999999999999A ; float = 0.100000 09E445 49 PUSH.6 $09 09E446 4B PUSH.6 $0B 09E447 30 02 0E BSR.68K $020E ; => $09E23C => $09E02C 09E44A 22 MUL.F 09E44B D3 28 ED WRITE.F $28ED 09E44E C3 28 ED READ.F $28ED 09E451 3B 40 58 F3 33 33 33 33 33 PUSH.F $4058F33333333333 ; float = 99.800000 09E45A 24 GT.F 09E45B 18 0C BRZ $00C ; => $09E469 09E45D 3B 54 7D 42 AE A2 87 9F 2E PUSH.F $547D42AEA2879F2E ; float = 999999999999999967336168804116691273849533185806555472917961779471295845921727862608739868455469056.000000 09E466 D3 28 ED WRITE.F $28ED 09E469 30 02 24 BSR.68K $0224 ; => $09E248 => $0034AA (CLEARSCREEN) (NATIVE) 09E46C 40 PUSH.6 $00 09E46D 3F 10 4D 41 58 20 50 44 4F DISP "MAX PDOP ENTERED" 50 20 45 4E 54 45 52 45 44 09E47F 4C PUSH.6 $0C 09E480 D0 55 70 WRITE.B $5570 09E483 32 02 ADDSP.B $02 09E485 34 RETURN ; ---------------- End Function $09E3F2 ---------------- ; ---------------- Begin 2144 Function $09E486 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DA8C ; addr bytes opcode operands comment 09E48D 80 20 READ.B $20 09E48F 35 SWITCH 09E490 10 0C 10 CASE $10 ; SWITCH $09E48F 09E493 6C PUSH.6 $2C 09E494 90 21 WRITE.B $21 09E496 30 02 75 BSR.68K $0275 ; => $09E224 => $099642 09E499 30 02 48 BSR.68K $0248 ; => $09E254 09E49C 10 20 BR $020 ; => $09E4BE 09E49E 10 0C 90 CASE $90 ; SWITCH $09E48F 09E4A1 71 PUSH.6 $31 09E4A2 90 21 WRITE.B $21 09E4A4 30 02 83 BSR.68K $0283 ; => $09E224 => $099642 09E4A7 30 00 F2 BSR.68K $00F2 ; => $09E3B8 09E4AA 10 12 BR $012 ; => $09E4BE 09E4AC 10 0C 50 CASE $50 ; SWITCH $09E48F 09E4AF 6D PUSH.6 $2D 09E4B0 90 21 WRITE.B $21 09E4B2 30 02 91 BSR.68K $0291 ; => $09E224 => $099642 09E4B5 30 02 30 BSR.68K $0230 ; => $09E288 09E4B8 10 04 BR $004 ; => $09E4BE 09E4BA 00 DEFAULT ; SWITCH $09E48F 09E4BB 30 02 70 BSR.68K $0270 ; => $09E24E => $09D9DE 09E4BE 34 RETURN ; ---------------- End Function $09E486 ---------------- ; ---------------- Begin 2144 Function $09E53E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09EC8E:$09ED48 ; called from $09ED52:$09ED8E ; called from $09ED92:$09EDBC ; called from $09EDC0:$09EDEC ; called from $09EDF0:$09EE1B ; addr bytes opcode operands comment 09E545 30 00 22 BSR.68K $0022 ; => $09E526 => $09FB6A 09E548 40 PUSH.6 $00 09E549 90 21 WRITE.B $21 09E54B 04 64 PUSH.10 $064 09E54D D1 51 43 WRITE.W $5143 09E550 34 RETURN ; ---------------- End Function $09E53E ---------------- ; ---------------- Begin 2144 Function $09E552 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC67 ; addr bytes opcode operands comment 09E559 80 23 READ.B $23 09E55B 35 SWITCH 09E55C 10 49 00 CASE $00 ; SWITCH $09E55B 09E55F 80 20 READ.B $20 09E561 42 PUSH.6 $02 09E562 2A EQ.L 09E563 18 3C BRZ $03C ; => $09E5A1 09E565 80 22 READ.B $22 09E567 4C PUSH.6 $0C 09E568 2C AND.L 09E569 18 31 BRZ $031 ; => $09E59C 09E56B 30 00 AE BSR.68K $00AE ; => $09E4C0 => $0034AA (CLEARSCREEN) (NATIVE) 09E56E 60 PUSH.6 $20 09E56F 90 26 WRITE.B $26 09E571 41 PUSH.6 $01 09E572 90 23 WRITE.B $23 09E574 42 PUSH.6 $02 09E575 3F 1D 49 4E 49 54 20 4D 45 DISP "INIT MEMORY YES NO" 4D 4F 52 59 20 20 20 59 45 53 20 20 20 20 20 20 20 20 20 20 4E 4F 09E594 4E PUSH.6 $0E 09E595 90 2B WRITE.B $2B 09E597 46 PUSH.6 $06 09E598 90 2E WRITE.B $2E 09E59A 10 03 BR $003 ; => $09E59F 09E59C 40 PUSH.6 $00 09E59D 90 21 WRITE.B $21 09E59F 10 04 BR $004 ; => $09E5A5 09E5A1 4A PUSH.6 $0A 09E5A2 D0 4E 51 WRITE.B $4E51 09E5A5 10 3F BR $03F ; => $09E5E6 09E5A7 10 3C 01 CASE $01 ; SWITCH $09E55B 09E5AA 80 20 READ.B $20 09E5AC 35 SWITCH 09E5AD 10 27 10 CASE $10 ; SWITCH $09E5AC 09E5B0 30 00 8D BSR.68K $008D ; => $09E526 => $09FB6A 09E5B3 30 00 F6 BSR.68K $00F6 ; => $09E4C0 => $0034AA (CLEARSCREEN) (NATIVE) 09E5B6 45 PUSH.6 $05 09E5B7 3F 18 4D 45 4D 4F 52 59 20 DISP "MEMORY INITIALIZED" 20 20 20 20 20 20 49 4E 49 54 49 41 4C 49 5A 45 44 09E5D1 4C PUSH.6 $0C 09E5D2 90 21 WRITE.B $21 09E5D4 10 0D BR $00D ; => $09E5E3 09E5D6 10 06 D0 CASE $D0 ; SWITCH $09E5AC 09E5D9 40 PUSH.6 $00 09E5DA 90 21 WRITE.B $21 09E5DC 10 05 BR $005 ; => $09E5E3 09E5DE 00 DEFAULT ; SWITCH $09E5AC 09E5DF 4A PUSH.6 $0A 09E5E0 D0 4E 51 WRITE.B $4E51 09E5E3 10 01 BR $001 ; => $09E5E6 09E5E5 00 DEFAULT ; SWITCH $09E55B 09E5E6 34 RETURN ; ---------------- End Function $09E552 ---------------- ; ---------------- Begin 2144 Function $09E5E8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000E66:$000E8B ; addr bytes opcode operands comment 09E5EF 31 0E SUBSP.B $0E 09E5F1 40 PUSH.6 $00 09E5F2 07 FF PUSH.10 $3FF 09E5F4 30 01 19 BSR.68K $0119 ; => $09E4DE => $09F43A (NATIVE) 09E5F7 30 01 10 BSR.68K $0110 ; => $09E4EA => $09F42A (NATIVE) 09E5FA 94 00 WRITE.B $00 09E5FC 30 00 D3 BSR.68K $00D3 ; => $09E52C => $09F434 (NATIVE) 09E5FF 84 00 READ.B $00 09E601 2E NOT.L 09E602 30 01 21 BSR.68K $0121 ; => $09E4E4 => $09F422 (NATIVE) 09E605 30 00 DC BSR.68K $00DC ; => $09E52C => $09F434 (NATIVE) 09E608 30 01 21 BSR.68K $0121 ; => $09E4EA => $09F42A (NATIVE) 09E60B 2E NOT.L 09E60C 94 01 WRITE.B $01 09E60E 30 00 E5 BSR.68K $00E5 ; => $09E52C => $09F434 (NATIVE) 09E611 84 00 READ.B $00 09E613 30 01 32 BSR.68K $0132 ; => $09E4E4 => $09F422 (NATIVE) 09E616 84 00 READ.B $00 09E618 84 01 READ.B $01 09E61A 2B NEQ.L 09E61B 94 04 WRITE.B $04 09E61D 04 FF PUSH.10 $0FF 09E61F 40 PUSH.6 $00 09E620 30 01 45 BSR.68K $0145 ; => $09E4DE => $09F43A (NATIVE) 09E623 30 01 3C BSR.68K $013C ; => $09E4EA => $09F42A (NATIVE) 09E626 94 02 WRITE.B $02 09E628 30 00 FF BSR.68K $00FF ; => $09E52C => $09F434 (NATIVE) 09E62B 84 02 READ.B $02 09E62D 2E NOT.L 09E62E 30 01 4D BSR.68K $014D ; => $09E4E4 => $09F422 (NATIVE) 09E631 30 01 08 BSR.68K $0108 ; => $09E52C => $09F434 (NATIVE) 09E634 30 01 4D BSR.68K $014D ; => $09E4EA => $09F42A (NATIVE) 09E637 2E NOT.L 09E638 94 03 WRITE.B $03 09E63A 30 01 11 BSR.68K $0111 ; => $09E52C => $09F434 (NATIVE) 09E63D 84 02 READ.B $02 09E63F 30 01 5E BSR.68K $015E ; => $09E4E4 => $09F422 (NATIVE) 09E642 84 02 READ.B $02 09E644 84 03 READ.B $03 09E646 2B NEQ.L 09E647 94 05 WRITE.B $05 09E649 C0 29 8C READ.B $298C 09E64C 2E NOT.L 09E64D 84 04 READ.B $04 09E64F 2C AND.L 09E650 84 05 READ.B $05 09E652 2C AND.L 09E653 18 02 BRZ $002 ; => $09E657 09E655 11 D2 BR $1D2 ; => $09E829 09E657 C0 29 8C READ.B $298C 09E65A 2E NOT.L 09E65B C0 29 8D READ.B $298D 09E65E 2D OR.L 09E65F 18 33 BRZ $033 ; => $09E694 09E661 07 FF PUSH.10 $3FF 09E663 40 PUSH.6 $00 09E664 30 01 89 BSR.68K $0189 ; => $09E4DE => $09F43A (NATIVE) 09E667 30 01 80 BSR.68K $0180 ; => $09E4EA => $09F42A (NATIVE) 09E66A 94 01 WRITE.B $01 09E66C 30 01 43 BSR.68K $0143 ; => $09E52C => $09F434 (NATIVE) 09E66F 84 01 READ.B $01 09E671 2E NOT.L 09E672 30 01 91 BSR.68K $0191 ; => $09E4E4 => $09F422 (NATIVE) 09E675 30 01 4C BSR.68K $014C ; => $09E52C => $09F434 (NATIVE) 09E678 30 01 91 BSR.68K $0191 ; => $09E4EA => $09F42A (NATIVE) 09E67B 2E NOT.L 09E67C 94 03 WRITE.B $03 09E67E 30 01 55 BSR.68K $0155 ; => $09E52C => $09F434 (NATIVE) 09E681 84 01 READ.B $01 09E683 30 01 A2 BSR.68K $01A2 ; => $09E4E4 => $09F422 (NATIVE) 09E686 84 03 READ.B $03 09E688 84 01 READ.B $01 09E68A 2B NEQ.L 09E68B 84 01 READ.B $01 09E68D 04 FF PUSH.10 $0FF 09E68F 2A EQ.L 09E690 2C AND.L 09E691 D0 29 8D WRITE.B $298D 09E694 04 FF PUSH.10 $0FF 09E696 D0 29 8C WRITE.B $298C 09E699 30 01 DC BSR.68K $01DC ; => $09E4C0 => $0034AA (CLEARSCREEN) (NATIVE) 09E69C C0 29 8D READ.B $298D 09E69F 18 38 BRZ $038 ; => $09E6D9 09E6A1 44 PUSH.6 $04 09E6A2 3F 1A 54 45 53 54 49 4E 47 DISP "TESTING HALF MEGABYTE" 20 20 20 20 20 20 48 41 4C 46 20 4D 45 47 41 42 59 54 45 09E6BE 41 PUSH.6 $01 09E6BF 06 00 PUSH.10 $200 09E6C1 30 01 E6 BSR.68K $01E6 ; => $09E4DE => $09F43A (NATIVE) 09E6C4 06 00 PUSH.10 $200 09E6C6 36 50 0B _2362 $000B ; A0 = $004000; (A0) = A6 + $0 09E6C9 07 FF PUSH.10 $3FF 09E6CB 38 40 09 BLS.W $0009 ; => $09E6D7 09E6CE 40 PUSH.6 $00 09E6CF 30 01 EE BSR.68K $01EE ; => $09E4E4 => $09F422 (NATIVE) 09E6D2 37 50 0B 00 0E _23d2 $000B, $000E 09E6D7 10 1D BR $01D ; => $09E6F6 09E6D9 44 PUSH.6 $04 09E6DA 3F 1A 54 45 53 54 49 4E 47 DISP "TESTING FULL MEGABYTE" 20 20 20 20 20 20 46 55 4C 4C 20 4D 45 47 41 42 59 54 45 09E6F6 30 02 27 BSR.68K $0227 ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09E6F9 40 PUSH.6 $00 09E6FA 07 F8 PUSH.10 $3F8 09E6FC 30 02 21 BSR.68K $0221 ; => $09E4DE => $09F43A (NATIVE) 09E6FF 30 02 18 BSR.68K $0218 ; => $09E4EA => $09F42A (NATIVE) 09E702 04 AA PUSH.10 $0AA 09E704 2B NEQ.L 09E705 30 02 1E BSR.68K $021E ; => $09E4EA => $09F42A (NATIVE) 09E708 04 55 PUSH.10 $055 09E70A 2B NEQ.L 09E70B 2D OR.L 09E70C 30 02 25 BSR.68K $0225 ; => $09E4EA => $09F42A (NATIVE) 09E70F 04 F0 PUSH.10 $0F0 09E711 2B NEQ.L 09E712 2D OR.L 09E713 30 02 2C BSR.68K $022C ; => $09E4EA => $09F42A (NATIVE) 09E716 4F PUSH.6 $0F 09E717 2B NEQ.L 09E718 2D OR.L 09E719 30 02 32 BSR.68K $0232 ; => $09E4EA => $09F42A (NATIVE) 09E71C 04 CC PUSH.10 $0CC 09E71E 2B NEQ.L 09E71F 2D OR.L 09E720 30 02 39 BSR.68K $0239 ; => $09E4EA => $09F42A (NATIVE) 09E723 73 PUSH.6 $33 09E724 2B NEQ.L 09E725 2D OR.L 09E726 30 02 3F BSR.68K $023F ; => $09E4EA => $09F42A (NATIVE) 09E729 40 PUSH.6 $00 09E72A 2B NEQ.L 09E72B 2D OR.L 09E72C 84 00 READ.B $00 09E72E 04 FF PUSH.10 $0FF 09E730 2B NEQ.L 09E731 2D OR.L 09E732 84 02 READ.B $02 09E734 5F PUSH.6 $1F 09E735 2B NEQ.L 09E736 2D OR.L 09E737 94 06 WRITE.B $06 09E739 40 PUSH.6 $00 09E73A 94 07 WRITE.B $07 09E73C C0 29 8D READ.B $298D 09E73F 18 04 BRZ $004 ; => $09E745 09E741 05 FF PUSH.10 $1FF 09E743 10 02 BR $002 ; => $09E747 09E745 07 FF PUSH.10 $3FF 09E747 95 0D WRITE.W $0D 09E749 41 PUSH.6 $01 09E74A 36 50 0B _2362 $000B ; A0 = $004000; (A0) = A6 + $0 09E74D 85 0D READ.W $0D 09E74F 38 40 33 BLS.W $0033 ; => $09E785 09E752 85 0B READ.W $0B 09E754 40 PUSH.6 $00 09E755 30 02 7A BSR.68K $027A ; => $09E4DE => $09F43A (NATIVE) 09E758 85 0B READ.W $0B 09E75A 60 PUSH.6 $20 09E75B 2F MOD.L 09E75C 60 PUSH.6 $20 09E75D 85 0B READ.W $0B 09E75F 60 PUSH.6 $20 09E760 2F MOD.L 09E761 2E NOT.L 09E762 29 MUL.L 09E763 27 ADD.L 09E764 94 00 WRITE.B $00 09E766 84 00 READ.B $00 09E768 30 02 81 BSR.68K $0281 ; => $09E4EA => $09F42A (NATIVE) 09E76B 2B NEQ.L 09E76C 18 12 BRZ $012 ; => $09E780 09E76E 85 0B READ.W $0B 09E770 05 FF PUSH.10 $1FF 09E772 03 28 GTE.L 09E774 18 06 BRZ $006 ; => $09E77C 09E776 04 FF PUSH.10 $0FF 09E778 94 06 WRITE.B $06 09E77A 10 04 BR $004 ; => $09E780 09E77C 04 FF PUSH.10 $0FF 09E77E 94 07 WRITE.B $07 09E780 37 50 0B 00 38 _23d2 $000B, $0038 09E785 84 04 READ.B $04 09E787 41 PUSH.6 $01 09E788 2C AND.L 09E789 84 05 READ.B $05 09E78B 42 PUSH.6 $02 09E78C 2C AND.L 09E78D 2D OR.L 09E78E 84 06 READ.B $06 09E790 44 PUSH.6 $04 09E791 2C AND.L 09E792 2D OR.L 09E793 84 07 READ.B $07 09E795 48 PUSH.6 $08 09E796 2C AND.L 09E797 2D OR.L 09E798 94 08 WRITE.B $08 09E79A 84 08 READ.B $08 09E79C 18 8B BRZ $08B ; => $09E829 09E79E 04 FF PUSH.10 $0FF 09E7A0 D0 4E 66 WRITE.B $4E66 09E7A3 30 02 E6 BSR.68K $02E6 ; => $09E4C0 => $0034AA (CLEARSCREEN) (NATIVE) 09E7A6 74 PUSH.6 $34 09E7A7 90 21 WRITE.B $21 09E7A9 84 08 READ.B $08 09E7AB 90 22 WRITE.B $22 09E7AD 40 PUSH.6 $00 09E7AE 90 23 WRITE.B $23 09E7B0 84 04 READ.B $04 09E7B2 84 05 READ.B $05 09E7B4 2D OR.L 09E7B5 18 3D BRZ $03D ; => $09E7F4 09E7B7 40 PUSH.6 $00 09E7B8 3F 0C 42 41 54 54 45 52 59 DISP "BATTERY FAIL" 20 46 41 49 4C 09E7C6 84 06 READ.B $06 09E7C8 84 07 READ.B $07 09E7CA 2D OR.L 09E7CB 18 13 BRZ $013 ; => $09E7E0 09E7CD 51 PUSH.6 $11 09E7CE 3F 0E 44 41 54 41 20 43 4F DISP "DATA CORRUPTED" 52 52 55 50 54 45 44 09E7DE 10 12 BR $012 ; => $09E7F2 09E7E0 51 PUSH.6 $11 09E7E1 3F 0F 44 41 54 41 20 53 45 DISP "DATA SEEMS OKAY" 45 4D 53 20 4F 4B 41 59 09E7F2 10 1C BR $01C ; => $09E810 09E7F4 40 PUSH.6 $00 09E7F5 3F 19 4D 45 4D 4F 52 59 20 DISP "MEMORY DATA CORRUPTED" 44 41 54 41 20 20 20 20 20 43 4F 52 52 55 50 54 45 44 09E810 4E PUSH.6 $0E 09E811 80 22 READ.B $22 09E813 30 03 3E BSR.68K $033E ; => $09E4D8 => $097B0A 09E816 30 03 47 BSR.68K $0347 ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09E819 40 PUSH.6 $00 09E81A D0 4E 66 WRITE.B $4E66 09E81D 68 PUSH.6 $28 09E81E D0 4E 51 WRITE.B $4E51 09E821 80 21 READ.B $21 09E823 74 PUSH.6 $34 09E824 2A EQ.L 09E825 18 02 BRZ $002 ; => $09E829 09E827 17 F8 BR $-08 ; => $09E821 09E829 32 0E ADDSP.B $0E 09E82B 34 RETURN ; ---------------- End Function $09E5E8 ---------------- ; ---------------- Begin 2144 Function $09E82C ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $09E8B8:$09E8F2 ; called from $09E8B8:$09E921 ; called from $09E9DA:$09EA4D ; called from $09E9DA:$09EA88 ; called from $09EBDC:$09EC25 ; called from $09EBDC:$09EC58 ; addr bytes opcode operands comment 09E833 70 PUSH.6 $30 09E834 86 03 READ.L $03 09E836 05 00 PUSH.10 $100 09E838 03 24 DIV.L 09E83A 27 ADD.L 09E83B 90 11 WRITE.B $11 09E83D 70 PUSH.6 $30 09E83E 86 03 READ.L $03 09E840 60 PUSH.6 $20 09E841 03 24 DIV.L 09E843 47 PUSH.6 $07 09E844 2C AND.L 09E845 27 ADD.L 09E846 90 10 WRITE.B $10 09E848 5E PUSH.6 $1E 09E849 86 03 READ.L $03 09E84B 5F PUSH.6 $1F 09E84C 2C AND.L 09E84D 30 03 78 BSR.68K $0378 ; => $09E4D8 => $097B0A 09E850 30 03 81 BSR.68K $0381 ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09E853 34 RETURN ; ---------------- End Function $09E82C ---------------- ; ---------------- Begin 2144 Function $09E854 ---------------- ; A0 = $00400C; (A0) = SP - $1 ; called from $09E8B8:$09E8F5 ; called from $09E8B8:$09E9B3 ; addr bytes opcode operands comment 09E85B 86 03 READ.L $03 09E85D 40 PUSH.6 $00 09E85E 30 03 83 BSR.68K $0383 ; => $09E4DE => $09F43A (NATIVE) 09E861 86 03 READ.L $03 09E863 05 00 PUSH.10 $100 09E865 03 24 DIV.L 09E867 94 04 WRITE.B $04 09E869 86 03 READ.L $03 09E86B 94 05 WRITE.B $05 09E86D 84 04 READ.B $04 09E86F 30 03 8E BSR.68K $038E ; => $09E4E4 => $09F422 (NATIVE) 09E872 84 05 READ.B $05 09E874 30 03 93 BSR.68K $0393 ; => $09E4E4 => $09F422 (NATIVE) 09E877 84 04 READ.B $04 09E879 04 FF PUSH.10 $0FF 09E87B 03 2F XORL.L 09E87D 30 03 9C BSR.68K $039C ; => $09E4E4 => $09F422 (NATIVE) 09E880 84 05 READ.B $05 09E882 04 FF PUSH.10 $0FF 09E884 03 2F XORL.L 09E886 30 03 A5 BSR.68K $03A5 ; => $09E4E4 => $09F422 (NATIVE) 09E889 84 04 READ.B $04 09E88B 04 AA PUSH.10 $0AA 09E88D 03 2F XORL.L 09E88F 30 03 AE BSR.68K $03AE ; => $09E4E4 => $09F422 (NATIVE) 09E892 84 05 READ.B $05 09E894 04 AA PUSH.10 $0AA 09E896 03 2F XORL.L 09E898 30 03 B7 BSR.68K $03B7 ; => $09E4E4 => $09F422 (NATIVE) 09E89B 84 04 READ.B $04 09E89D 04 55 PUSH.10 $055 09E89F 03 2F XORL.L 09E8A1 30 03 C0 BSR.68K $03C0 ; => $09E4E4 => $09F422 (NATIVE) 09E8A4 84 05 READ.B $05 09E8A6 04 55 PUSH.10 $055 09E8A8 03 2F XORL.L 09E8AA 30 03 C9 BSR.68K $03C9 ; => $09E4E4 => $09F422 (NATIVE) 09E8AD 04 FF PUSH.10 $0FF 09E8AF 30 03 CE BSR.68K $03CE ; => $09E4E4 => $09F422 (NATIVE) 09E8B2 40 PUSH.6 $00 09E8B3 30 03 D2 BSR.68K $03D2 ; => $09E4E4 => $09F422 (NATIVE) 09E8B6 34 RETURN ; ---------------- End Function $09E854 ---------------- ; ---------------- Begin 2144 Function $09E8B8 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $09EC8E:$09ECB1 ; addr bytes opcode operands comment 09E8BF 40 PUSH.6 $00 09E8C0 3F 20 42 4C 4F 43 4B 20 54 DISP "BLOCK TEST UxxWRITING BLOCK xx" 45 53 54 20 20 20 55 78 78 57 52 49 54 49 4E 47 20 42 4C 4F 43 4B 20 78 78 09E8E2 40 PUSH.6 $00 09E8E3 36 90 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 09E8E6 85 0D READ.W $0D 09E8E8 38 80 12 BLS.L $0012 ; => $09E8FD 09E8EB 30 03 EC BSR.68K $03EC ; => $09E502 => $09F54E (NATIVE) 09E8EE 18 02 BRZ $002 ; => $09E8F2 09E8F0 10 E6 BR $0E6 ; => $09E9D8 09E8F2 30 00 C9 BSR.68K $00C9 ; => $09E82C 09E8F5 30 00 A4 BSR.68K $00A4 ; => $09E854 09E8F8 37 90 03 00 17 _23d2 $0003, $0017 09E8FD 50 PUSH.6 $10 09E8FE 3F 0D 56 45 52 49 46 59 49 DISP "VERIFYING BLK" 4E 47 20 42 4C 4B 09E90D 40 PUSH.6 $00 09E90E 36 90 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 09E911 85 0D READ.W $0D 09E913 38 80 C2 BLS.L $00C2 ; => $09E9D8 09E916 30 04 17 BSR.68K $0417 ; => $09E502 => $09F54E (NATIVE) 09E919 84 06 READ.B $06 09E91B 2E NOT.L 09E91C 2C AND.L 09E91D 18 02 BRZ $002 ; => $09E921 09E91F 10 B7 BR $0B7 ; => $09E9D8 09E921 30 00 F8 BSR.68K $00F8 ; => $09E82C 09E924 86 03 READ.L $03 09E926 40 PUSH.6 $00 09E927 30 04 4C BSR.68K $044C ; => $09E4DE => $09F43A (NATIVE) 09E92A 86 03 READ.L $03 09E92C 05 00 PUSH.10 $100 09E92E 03 24 DIV.L 09E930 94 04 WRITE.B $04 09E932 86 03 READ.L $03 09E934 94 05 WRITE.B $05 09E936 30 04 4F BSR.68K $044F ; => $09E4EA => $09F42A (NATIVE) 09E939 84 04 READ.B $04 09E93B 2B NEQ.L 09E93C 30 04 55 BSR.68K $0455 ; => $09E4EA => $09F42A (NATIVE) 09E93F 84 05 READ.B $05 09E941 2B NEQ.L 09E942 2D OR.L 09E943 30 04 5C BSR.68K $045C ; => $09E4EA => $09F42A (NATIVE) 09E946 84 04 READ.B $04 09E948 04 FF PUSH.10 $0FF 09E94A 03 2F XORL.L 09E94C 2B NEQ.L 09E94D 2D OR.L 09E94E 30 04 67 BSR.68K $0467 ; => $09E4EA => $09F42A (NATIVE) 09E951 84 05 READ.B $05 09E953 04 FF PUSH.10 $0FF 09E955 03 2F XORL.L 09E957 2B NEQ.L 09E958 2D OR.L 09E959 30 04 72 BSR.68K $0472 ; => $09E4EA => $09F42A (NATIVE) 09E95C 84 04 READ.B $04 09E95E 04 AA PUSH.10 $0AA 09E960 03 2F XORL.L 09E962 2B NEQ.L 09E963 2D OR.L 09E964 30 04 7D BSR.68K $047D ; => $09E4EA => $09F42A (NATIVE) 09E967 84 05 READ.B $05 09E969 04 AA PUSH.10 $0AA 09E96B 03 2F XORL.L 09E96D 2B NEQ.L 09E96E 2D OR.L 09E96F 30 04 88 BSR.68K $0488 ; => $09E4EA => $09F42A (NATIVE) 09E972 84 04 READ.B $04 09E974 04 55 PUSH.10 $055 09E976 03 2F XORL.L 09E978 2B NEQ.L 09E979 2D OR.L 09E97A 30 04 93 BSR.68K $0493 ; => $09E4EA => $09F42A (NATIVE) 09E97D 84 05 READ.B $05 09E97F 04 55 PUSH.10 $055 09E981 03 2F XORL.L 09E983 2B NEQ.L 09E984 2D OR.L 09E985 30 04 9E BSR.68K $049E ; => $09E4EA => $09F42A (NATIVE) 09E988 04 FF PUSH.10 $0FF 09E98A 2B NEQ.L 09E98B 2D OR.L 09E98C 30 04 A5 BSR.68K $04A5 ; => $09E4EA => $09F42A (NATIVE) 09E98F 40 PUSH.6 $00 09E990 2B NEQ.L 09E991 2D OR.L 09E992 18 3F BRZ $03F ; => $09E9D3 09E994 84 06 READ.B $06 09E996 2E NOT.L 09E997 18 17 BRZ $017 ; => $09E9B0 09E999 5E PUSH.6 $1E 09E99A D0 4E 51 WRITE.B $4E51 09E99D 04 FF PUSH.10 $0FF 09E99F 94 06 WRITE.B $06 09E9A1 50 PUSH.6 $10 09E9A2 3F 09 46 41 49 4C 55 52 45 DISP "FAILURE " 20 20 09E9AD 30 04 DE BSR.68K $04DE ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09E9B0 30 04 81 BSR.68K $0481 ; => $09E532 => $09F456 (NATIVE) 09E9B3 30 01 62 BSR.68K $0162 ; => $09E854 09E9B6 86 03 READ.L $03 09E9B8 40 PUSH.6 $00 09E9B9 30 04 DE BSR.68K $04DE ; => $09E4DE => $09F43A (NATIVE) 09E9BC 41 PUSH.6 $01 09E9BD 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 09E9C0 4A PUSH.6 $0A 09E9C1 38 00 0A BLS.B $000A ; => $09E9CE 09E9C4 30 04 DD BSR.68K $04DD ; => $09E4EA => $09F42A (NATIVE) 09E9C7 94 05 WRITE.B $05 09E9C9 37 10 04 00 0E _23d2 $0004, $000E 09E9CE 30 04 CF BSR.68K $04CF ; => $09E502 => $09F54E (NATIVE) 09E9D1 1F DD BRZ $-23 ; => $09E9B0 09E9D3 37 90 03 00 C7 _23d2 $0003, $00C7 09E9D8 34 RETURN ; ---------------- End Function $09E8B8 ---------------- ; ---------------- Begin 2144 Function $09E9DA ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $09EC8E:$09ECB7 ; called from $09EC8E:$09ECC1 ; addr bytes opcode operands comment 09E9E1 86 11 READ.L $11 09E9E3 18 25 BRZ $025 ; => $09EA0A 09E9E5 40 PUSH.6 $00 09E9E6 3F 20 49 4E 56 2D 50 41 54 DISP "INV-PAT TEST UxxWRITING BLOCK xx" 20 54 45 53 54 20 55 78 78 57 52 49 54 49 4E 47 20 42 4C 4F 43 4B 20 78 78 09EA08 10 23 BR $023 ; => $09EA2D 09EA0A 40 PUSH.6 $00 09EA0B 3F 20 50 41 54 54 45 52 4E DISP "PATTERN TEST UxxWRITING BLOCK xx" 20 54 45 53 54 20 55 78 78 57 52 49 54 49 4E 47 20 42 4C 4F 43 4B 20 78 78 09EA2D 3D 12 34 56 78 PUSH.L $12345678 09EA32 96 15 WRITE.L $15 09EA34 40 PUSH.6 $00 09EA35 40 PUSH.6 $00 09EA36 30 05 5B BSR.68K $055B ; => $09E4DE => $09F43A (NATIVE) 09EA39 40 PUSH.6 $00 09EA3A 36 90 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 09EA3D 85 0D READ.W $0D 09EA3F 38 80 16 BLS.L $0016 ; => $09EA58 09EA42 30 05 43 BSR.68K $0543 ; => $09E502 => $09F54E (NATIVE) 09EA45 84 06 READ.B $06 09EA47 2E NOT.L 09EA48 2C AND.L 09EA49 18 02 BRZ $002 ; => $09EA4D 09EA4B 10 7F BR $07F ; => $09EACC 09EA4D 30 02 24 BSR.68K $0224 ; => $09E82C 09EA50 30 05 4B BSR.68K $054B ; => $09E508 => $09F562 (NATIVE) 09EA53 37 90 03 00 1B _23d2 $0003, $001B 09EA58 50 PUSH.6 $10 09EA59 3F 0D 56 45 52 49 46 59 49 DISP "VERIFYING BLK" 4E 47 20 42 4C 4B 09EA68 3D 12 34 56 78 PUSH.L $12345678 09EA6D 96 15 WRITE.L $15 09EA6F 40 PUSH.6 $00 09EA70 40 PUSH.6 $00 09EA71 30 05 96 BSR.68K $0596 ; => $09E4DE => $09F43A (NATIVE) 09EA74 40 PUSH.6 $00 09EA75 36 90 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 09EA78 85 0D READ.W $0D 09EA7A 38 80 4F BLS.L $004F ; => $09EACC 09EA7D 30 05 7E BSR.68K $057E ; => $09E502 => $09F54E (NATIVE) 09EA80 84 06 READ.B $06 09EA82 2E NOT.L 09EA83 2C AND.L 09EA84 18 02 BRZ $002 ; => $09EA88 09EA86 10 44 BR $044 ; => $09EACC 09EA88 30 02 5F BSR.68K $025F ; => $09E82C 09EA8B 86 15 READ.L $15 09EA8D 96 0B WRITE.L $0B 09EA8F 30 05 84 BSR.68K $0584 ; => $09E50E => $09F59A (NATIVE) 09EA92 18 33 BRZ $033 ; => $09EAC7 09EA94 50 PUSH.6 $10 09EA95 3F 09 46 41 49 4C 55 52 45 DISP "FAILURE " 20 20 09EAA0 30 05 D1 BSR.68K $05D1 ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09EAA3 84 06 READ.B $06 09EAA5 2E NOT.L 09EAA6 18 08 BRZ $008 ; => $09EAB0 09EAA8 5E PUSH.6 $1E 09EAA9 D0 4E 51 WRITE.B $4E51 09EAAC 04 FF PUSH.10 $0FF 09EAAE 94 06 WRITE.B $06 09EAB0 30 05 81 BSR.68K $0581 ; => $09E532 => $09F456 (NATIVE) 09EAB3 86 03 READ.L $03 09EAB5 40 PUSH.6 $00 09EAB6 30 05 DB BSR.68K $05DB ; => $09E4DE => $09F43A (NATIVE) 09EAB9 86 0B READ.L $0B 09EABB 96 15 WRITE.L $15 09EABD 30 05 B2 BSR.68K $05B2 ; => $09E50E => $09F59A (NATIVE) 09EAC0 94 04 WRITE.B $04 09EAC2 30 05 C3 BSR.68K $05C3 ; => $09E502 => $09F54E (NATIVE) 09EAC5 1F E9 BRZ $-17 ; => $09EAB0 09EAC7 37 90 03 00 54 _23d2 $0003, $0054 09EACC 34 RETURN ; ---------------- End Function $09E9DA ---------------- ; ---------------- Begin 2144 Function $09EACE ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $09EC8E:$09ECC4 ; addr bytes opcode operands comment 09EAD5 3D 12 34 56 78 PUSH.L $12345678 09EADA 96 15 WRITE.L $15 09EADC C0 29 8D READ.B $298D 09EADF 18 08 BRZ $008 ; => $09EAE9 09EAE1 04 FF PUSH.10 $0FF 09EAE3 40 PUSH.6 $00 09EAE4 30 06 09 BSR.68K $0609 ; => $09E4DE => $09F43A (NATIVE) 09EAE7 10 06 BR $006 ; => $09EAEF 09EAE9 07 FF PUSH.10 $3FF 09EAEB 40 PUSH.6 $00 09EAEC 30 06 11 BSR.68K $0611 ; => $09E4DE => $09F43A (NATIVE) 09EAEF 30 05 EA BSR.68K $05EA ; => $09E508 => $09F562 (NATIVE) 09EAF2 30 05 ED BSR.68K $05ED ; => $09E508 => $09F562 (NATIVE) 09EAF5 30 06 08 BSR.68K $0608 ; => $09E4F0 => $09F480 (NATIVE) 09EAF8 30 06 0B BSR.68K $060B ; => $09E4F0 => $09F480 (NATIVE) 09EAFB 3D 12 34 56 78 PUSH.L $12345678 09EB00 96 15 WRITE.L $15 09EB02 41 PUSH.6 $01 09EB03 36 90 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 09EB06 42 PUSH.6 $02 09EB07 38 80 46 BLS.L $0046 ; => $09EB50 09EB0A 30 05 FF BSR.68K $05FF ; => $09E50E => $09F59A (NATIVE) 09EB0D 18 3C BRZ $03C ; => $09EB4B 09EB0F 5E PUSH.6 $1E 09EB10 D0 4E 51 WRITE.B $4E51 09EB13 04 FF PUSH.10 $0FF 09EB15 94 06 WRITE.B $06 09EB17 30 06 5A BSR.68K $065A ; => $09E4C0 => $0034AA (CLEARSCREEN) (NATIVE) 09EB1A 41 PUSH.6 $01 09EB1B 3F 1A 44 4F 57 4E 20 43 4F DISP "DOWN COUNTING FAILURE" 55 4E 54 49 4E 47 20 20 20 20 20 20 46 41 49 4C 55 52 45 09EB37 30 06 68 BSR.68K $0668 ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09EB3A C0 4E 51 READ.B $4E51 09EB3D 18 02 BRZ $002 ; => $09EB41 09EB3F 17 F9 BR $-07 ; => $09EB3A 09EB41 30 06 54 BSR.68K $0654 ; => $09E4F0 => $09F480 (NATIVE) 09EB44 30 06 45 BSR.68K $0645 ; => $09E502 => $09F54E (NATIVE) 09EB47 1F F8 BRZ $-08 ; => $09EB41 09EB49 10 05 BR $005 ; => $09EB50 09EB4B 37 90 03 00 4A _23d2 $0003, $004A 09EB50 34 RETURN ; ---------------- End Function $09EACE ---------------- ; ---------------- Begin 2144 Function $09EB52 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $09EC8E:$09ECC7 ; addr bytes opcode operands comment 09EB59 07 FF PUSH.10 $3FF 09EB5B 36 90 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 09EB5E 40 PUSH.6 $00 09EB5F 3A 80 17 BGT.L $0017 ; => $09EB79 09EB62 40 PUSH.6 $00 09EB63 86 03 READ.L $03 09EB65 30 06 8A BSR.68K $068A ; => $09E4DE => $09F43A (NATIVE) 09EB68 86 03 READ.L $03 09EB6A 86 03 READ.L $03 09EB6C 05 00 PUSH.10 $100 09EB6E 03 24 DIV.L 09EB70 27 ADD.L 09EB71 30 06 90 BSR.68K $0690 ; => $09E4E4 => $09F422 (NATIVE) 09EB74 39 90 03 00 1B _23fc $9003, $001B 09EB79 40 PUSH.6 $00 09EB7A 36 90 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 09EB7D 07 FF PUSH.10 $3FF 09EB7F 38 80 59 BLS.L $0059 ; => $09EBDB 09EB82 40 PUSH.6 $00 09EB83 86 03 READ.L $03 09EB85 30 06 AA BSR.68K $06AA ; => $09E4DE => $09F43A (NATIVE) 09EB88 86 03 READ.L $03 09EB8A 86 03 READ.L $03 09EB8C 05 00 PUSH.10 $100 09EB8E 03 24 DIV.L 09EB90 27 ADD.L 09EB91 04 FF PUSH.10 $0FF 09EB93 2C AND.L 09EB94 30 06 AD BSR.68K $06AD ; => $09E4EA => $09F42A (NATIVE) 09EB97 2B NEQ.L 09EB98 18 3C BRZ $03C ; => $09EBD6 09EB9A 5E PUSH.6 $1E 09EB9B D0 4E 51 WRITE.B $4E51 09EB9E 04 FF PUSH.10 $0FF 09EBA0 94 06 WRITE.B $06 09EBA2 30 06 E5 BSR.68K $06E5 ; => $09E4C0 => $0034AA (CLEARSCREEN) (NATIVE) 09EBA5 41 PUSH.6 $01 09EBA6 3F 1A 20 53 45 54 20 41 44 DISP " SET ADDRESS FAILURE" 44 52 45 53 53 20 20 20 20 20 20 20 46 41 49 4C 55 52 45 09EBC2 30 06 F3 BSR.68K $06F3 ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09EBC5 C0 4E 51 READ.B $4E51 09EBC8 18 02 BRZ $002 ; => $09EBCC 09EBCA 17 F9 BR $-07 ; => $09EBC5 09EBCC 30 06 AF BSR.68K $06AF ; => $09E520 => $09F45C (NATIVE) 09EBCF 30 06 D0 BSR.68K $06D0 ; => $09E502 => $09F54E (NATIVE) 09EBD2 1F F8 BRZ $-08 ; => $09EBCC 09EBD4 10 05 BR $005 ; => $09EBDB 09EBD6 37 90 03 00 5E _23d2 $0003, $005E 09EBDB 34 RETURN ; ---------------- End Function $09EB52 ---------------- ; ---------------- Begin 2144 Function $09EBDC ---------------- ; A0 = $004008; (A0) = SP + $3 ; called from $09EC8E:$09ECCC ; called from $09EC8E:$09ECD0 ; addr bytes opcode operands comment 09EBE3 40 PUSH.6 $00 09EBE4 3F 20 41 4C 4C 20 4F 4E 45 DISP "ALL ONES UxxWRITING BLOCK xx" 53 20 20 20 20 20 55 78 78 57 52 49 54 49 4E 47 20 42 4C 4F 43 4B 20 78 78 09EC06 8A 03 READ.L $03 09EC08 40 PUSH.6 $00 09EC09 2A EQ.L 09EC0A 18 09 BRZ $009 ; => $09EC15 09EC0C 44 PUSH.6 $04 09EC0D 3F 06 5A 45 52 4F 45 53 DISP "ZEROES" 09EC15 40 PUSH.6 $00 09EC16 36 90 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 09EC19 85 0D READ.W $0D 09EC1B 38 80 16 BLS.L $0016 ; => $09EC34 09EC1E 30 07 1F BSR.68K $071F ; => $09E502 => $09F54E (NATIVE) 09EC21 18 02 BRZ $002 ; => $09EC25 09EC23 10 65 BR $065 ; => $09EC8A 09EC25 30 03 FC BSR.68K $03FC ; => $09E82C 09EC28 86 03 READ.L $03 09EC2A 8A 03 READ.L $03 09EC2C 30 07 1B BSR.68K $071B ; => $09E514 => $09F5DA (NATIVE) 09EC2F 37 90 03 00 1B _23d2 $0003, $001B 09EC34 50 PUSH.6 $10 09EC35 3F 0D 56 45 52 49 46 59 49 DISP "VERIFYING BLK" 4E 47 20 42 4C 4B 09EC44 40 PUSH.6 $00 09EC45 36 90 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 09EC48 85 0D READ.W $0D 09EC4A 38 80 3D BLS.L $003D ; => $09EC8A 09EC4D 30 07 4E BSR.68K $074E ; => $09E502 => $09F54E (NATIVE) 09EC50 84 06 READ.B $06 09EC52 2E NOT.L 09EC53 2C AND.L 09EC54 18 02 BRZ $002 ; => $09EC58 09EC56 10 32 BR $032 ; => $09EC8A 09EC58 30 04 2F BSR.68K $042F ; => $09E82C 09EC5B 86 03 READ.L $03 09EC5D 8A 03 READ.L $03 09EC5F 30 07 48 BSR.68K $0748 ; => $09E51A => $09F5F2 (NATIVE) 09EC62 18 21 BRZ $021 ; => $09EC85 09EC64 84 06 READ.B $06 09EC66 2E NOT.L 09EC67 18 17 BRZ $017 ; => $09EC80 09EC69 5E PUSH.6 $1E 09EC6A D0 4E 51 WRITE.B $4E51 09EC6D 04 FF PUSH.10 $0FF 09EC6F 94 06 WRITE.B $06 09EC71 50 PUSH.6 $10 09EC72 3F 09 46 41 49 4C 55 52 45 DISP "FAILURE " 20 20 09EC7D 30 07 AE BSR.68K $07AE ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09EC80 30 07 81 BSR.68K $0781 ; => $09E502 => $09F54E (NATIVE) 09EC83 1F FB BRZ $-05 ; => $09EC80 09EC85 37 90 03 00 42 _23d2 $0003, $0042 09EC8A 32 04 ADDSP.B $04 09EC8C 34 RETURN ; ---------------- End Function $09EBDC ---------------- ; ---------------- Begin 2144 Function $09EC8E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09EE54:$09EED9 ; called from $09EE54:$09EEE1 ; addr bytes opcode operands comment 09EC95 31 16 SUBSP.B $16 09EC97 40 PUSH.6 $00 09EC98 94 06 WRITE.B $06 09EC9A C0 29 8D READ.B $298D 09EC9D 18 04 BRZ $004 ; => $09ECA3 09EC9F 05 FF PUSH.10 $1FF 09ECA1 10 02 BR $002 ; => $09ECA5 09ECA3 07 FF PUSH.10 $3FF 09ECA5 95 0D WRITE.W $0D 09ECA7 30 07 A8 BSR.68K $07A8 ; => $09E502 => $09F54E (NATIVE) 09ECAA 18 05 BRZ $005 ; => $09ECB1 09ECAC 30 07 77 BSR.68K $0777 ; => $09E538 => $095BD8 (SLEEP1SECOND) (NATIVE) 09ECAF 17 F6 BR $-0A ; => $09ECA7 09ECB1 30 03 FC BSR.68K $03FC ; => $09E8B8 09ECB4 40 PUSH.6 $00 09ECB5 96 11 WRITE.L $11 09ECB7 30 02 E0 BSR.68K $02E0 ; => $09E9DA 09ECBA 3D FF FF FF FF PUSH.L $FFFFFFFF 09ECBF 96 11 WRITE.L $11 09ECC1 30 02 EA BSR.68K $02EA ; => $09E9DA 09ECC4 30 01 F9 BSR.68K $01F9 ; => $09EACE 09ECC7 30 01 78 BSR.68K $0178 ; => $09EB52 09ECCA 04 FF PUSH.10 $0FF 09ECCC 30 00 F3 BSR.68K $00F3 ; => $09EBDC 09ECCF 40 PUSH.6 $00 09ECD0 30 00 F7 BSR.68K $00F7 ; => $09EBDC 09ECD3 30 08 16 BSR.68K $0816 ; => $09E4C0 => $0034AA (CLEARSCREEN) (NATIVE) 09ECD6 84 06 READ.B $06 09ECD8 18 4A BRZ $04A ; => $09ED24 09ECDA 30 07 DB BSR.68K $07DB ; => $09E502 => $09F54E (NATIVE) 09ECDD 18 02 BRZ $002 ; => $09ECE1 09ECDF 17 F9 BR $-07 ; => $09ECDA 09ECE1 72 PUSH.6 $32 09ECE2 D0 4E 51 WRITE.B $4E51 09ECE5 42 PUSH.6 $02 09ECE6 3F 19 4D 45 4D 4F 52 59 20 DISP "MEMORY BOARD FAILED" 42 4F 41 52 44 20 20 20 20 20 20 20 46 41 49 4C 45 44 09ED01 30 08 32 BSR.68K $0832 ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09ED04 40 PUSH.6 $00 09ED05 36 90 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 09ED08 49 PUSH.6 $09 09ED09 38 80 0B BLS.L $000B ; => $09ED17 09ED0C 86 03 READ.L $03 09ED0E 40 PUSH.6 $00 09ED0F F0 4E 61 WRITE.B $4E61 09ED12 37 90 03 00 0F _23d2 $0003, $000F 09ED17 40 PUSH.6 $00 09ED18 D0 4E 62 WRITE.B $4E62 09ED1B C0 4E 51 READ.B $4E51 09ED1E 18 02 BRZ $002 ; => $09ED22 09ED20 17 F9 BR $-07 ; => $09ED1B 09ED22 10 24 BR $024 ; => $09ED48 09ED24 42 PUSH.6 $02 09ED25 D0 4E 51 WRITE.B $4E51 09ED28 42 PUSH.6 $02 09ED29 3F 1A 4D 45 4D 4F 52 59 20 DISP "MEMORY BOARD VERIFIED" 42 4F 41 52 44 20 20 20 20 20 20 56 45 52 49 46 49 45 44 09ED45 30 08 76 BSR.68K $0876 ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09ED48 30 08 0D BSR.68K $080D ; => $09E53E 09ED4B 4C PUSH.6 $0C 09ED4C 90 21 WRITE.B $21 09ED4E 32 16 ADDSP.B $16 09ED50 34 RETURN ; ---------------- End Function $09EC8E ---------------- ; ---------------- Begin 2144 Function $09ED52 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09EE54:$09EE9A ; addr bytes opcode operands comment 09ED59 40 PUSH.6 $00 09ED5A 3F 20 57 52 41 44 2D 57 52 DISP "WRAD-WRITE ADDR. REGISTERS " 49 54 45 20 41 44 44 52 2E 20 20 20 20 20 52 45 47 49 53 54 45 52 53 20 20 09ED7C 30 08 AD BSR.68K $08AD ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09ED7F 30 08 80 BSR.68K $0880 ; => $09E502 => $09F54E (NATIVE) 09ED82 18 02 BRZ $002 ; => $09ED86 09ED84 17 F9 BR $-07 ; => $09ED7F 09ED86 30 08 69 BSR.68K $0869 ; => $09E520 => $09F45C (NATIVE) 09ED89 30 08 8A BSR.68K $088A ; => $09E502 => $09F54E (NATIVE) 09ED8C 1F F8 BRZ $-08 ; => $09ED86 09ED8E 30 08 53 BSR.68K $0853 ; => $09E53E 09ED91 34 RETURN ; ---------------- End Function $09ED52 ---------------- ; ---------------- Begin 2144 Function $09ED92 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09EE54:$09EF04 ; addr bytes opcode operands comment 09ED99 30 08 DC BSR.68K $08DC ; => $09E4C0 => $0034AA (CLEARSCREEN) (NATIVE) 09ED9C 42 PUSH.6 $02 09ED9D 3F 0B 43 4F 55 4E 54 49 4E DISP "COUNTING UP" 47 20 55 50 09EDAA 30 08 DB BSR.68K $08DB ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09EDAD 30 08 AE BSR.68K $08AE ; => $09E502 => $09F54E (NATIVE) 09EDB0 18 02 BRZ $002 ; => $09EDB4 09EDB2 17 F9 BR $-07 ; => $09EDAD 09EDB4 30 08 C1 BSR.68K $08C1 ; => $09E4F6 => $09F49C (NATIVE) 09EDB7 30 08 B8 BSR.68K $08B8 ; => $09E502 => $09F54E (NATIVE) 09EDBA 1F F8 BRZ $-08 ; => $09EDB4 09EDBC 30 08 81 BSR.68K $0881 ; => $09E53E 09EDBF 34 RETURN ; ---------------- End Function $09ED92 ---------------- ; ---------------- Begin 2144 Function $09EDC0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09EE54:$09EF0D ; addr bytes opcode operands comment 09EDC7 30 09 0A BSR.68K $090A ; => $09E4C0 => $0034AA (CLEARSCREEN) (NATIVE) 09EDCA 41 PUSH.6 $01 09EDCB 3F 0D 43 4F 55 4E 54 49 4E DISP "COUNTING DOWN" 47 20 44 4F 57 4E 09EDDA 30 09 0B BSR.68K $090B ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09EDDD 30 08 DE BSR.68K $08DE ; => $09E502 => $09F54E (NATIVE) 09EDE0 18 02 BRZ $002 ; => $09EDE4 09EDE2 17 F9 BR $-07 ; => $09EDDD 09EDE4 30 08 F7 BSR.68K $08F7 ; => $09E4F0 => $09F480 (NATIVE) 09EDE7 30 08 E8 BSR.68K $08E8 ; => $09E502 => $09F54E (NATIVE) 09EDEA 1F F8 BRZ $-08 ; => $09EDE4 09EDEC 30 08 B1 BSR.68K $08B1 ; => $09E53E 09EDEF 34 RETURN ; ---------------- End Function $09EDC0 ---------------- ; ---------------- Begin 2144 Function $09EDF0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09EE54:$09EE92 ; addr bytes opcode operands comment 09EDF7 30 09 3A BSR.68K $093A ; => $09E4C0 => $0034AA (CLEARSCREEN) (NATIVE) 09EDFA 41 PUSH.6 $01 09EDFB 3F 0C 44 45 43 4F 44 45 52 DISP "DECODER TEST" 20 54 45 53 54 09EE09 30 09 3A BSR.68K $093A ; => $09E4D2 => $0034C8 (SETSEGMENTS) (NATIVE) 09EE0C 30 09 0D BSR.68K $090D ; => $09E502 => $09F54E (NATIVE) 09EE0F 18 02 BRZ $002 ; => $09EE13 09EE11 17 F9 BR $-07 ; => $09EE0C 09EE13 30 09 1A BSR.68K $091A ; => $09E4FC => $09F4B8 (NATIVE) 09EE16 30 09 17 BSR.68K $0917 ; => $09E502 => $09F54E (NATIVE) 09EE19 1F F8 BRZ $-08 ; => $09EE13 09EE1B 30 08 E0 BSR.68K $08E0 ; => $09E53E 09EE1E 34 RETURN ; ---------------- End Function $09EDF0 ---------------- ; ---------------- Begin 2144 Function $09EE20 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AEC74:$0AECEE ; addr bytes opcode operands comment 09EE27 72 PUSH.6 $32 09EE28 90 21 WRITE.B $21 09EE2A 40 PUSH.6 $00 09EE2B 90 22 WRITE.B $22 09EE2D 30 09 6A BSR.68K $096A ; => $09E4C6 => $099642 09EE30 40 PUSH.6 $00 09EE31 3F 20 20 20 20 44 45 43 4F DISP " DECODE COUNTFULL WRAD " 44 45 20 20 43 4F 55 4E 54 46 55 4C 4C 20 20 20 20 57 52 41 44 20 20 20 20 09EE53 34 RETURN ; ---------------- End Function $09EE20 ---------------- ; ---------------- Begin 2144 Function $09EE54 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC5F ; addr bytes opcode operands comment 09EE5B 80 22 READ.B $22 09EE5D 35 SWITCH 09EE5E 10 70 00 CASE $00 ; SWITCH $09EE5D 09EE61 80 20 READ.B $20 09EE63 35 SWITCH 09EE64 10 29 10 CASE $10 ; SWITCH $09EE63 09EE67 40 PUSH.6 $00 09EE68 3F 20 2A 46 55 4C 4C 20 4D DISP "*FULL MEM TEST* ABORT LOOP ONCE" 45 4D 20 54 45 53 54 2A 20 41 42 4F 52 54 20 20 4C 4F 4F 50 20 4F 4E 43 45 09EE8A 41 PUSH.6 $01 09EE8B 90 22 WRITE.B $22 09EE8D 10 3F BR $03F ; => $09EECE 09EE8F 10 06 50 CASE $50 ; SWITCH $09EE63 09EE92 30 00 A5 BSR.68K $00A5 ; => $09EDF0 09EE95 10 37 BR $037 ; => $09EECE 09EE97 10 06 90 CASE $90 ; SWITCH $09EE63 09EE9A 30 01 4B BSR.68K $014B ; => $09ED52 09EE9D 10 2F BR $02F ; => $09EECE 09EE9F 10 29 D0 CASE $D0 ; SWITCH $09EE63 09EEA2 40 PUSH.6 $00 09EEA3 3F 20 20 43 4F 55 4E 54 49 DISP " COUNTING TEST UP DOWN" 4E 47 20 54 45 53 54 20 20 20 55 50 20 20 20 20 20 20 20 20 20 44 4F 57 4E 09EEC5 42 PUSH.6 $02 09EEC6 90 22 WRITE.B $22 09EEC8 10 04 BR $004 ; => $09EECE 09EECA 00 DEFAULT ; SWITCH $09EE63 09EECB 30 0A 02 BSR.68K $0A02 ; => $09E4CC => $09D9DE 09EECE 10 49 BR $049 ; => $09EF19 09EED0 10 28 01 CASE $01 ; SWITCH $09EE5D 09EED3 80 20 READ.B $20 09EED5 35 SWITCH 09EED6 10 06 D0 CASE $D0 ; SWITCH $09EED5 09EED9 30 02 4E BSR.68K $024E ; => $09EC8E 09EEDC 10 1A BR $01A ; => $09EEF8 09EEDE 10 0B 90 CASE $90 ; SWITCH $09EED5 09EEE1 30 02 56 BSR.68K $0256 ; => $09EC8E 09EEE4 30 09 E5 BSR.68K $09E5 ; => $09E502 => $09F54E (NATIVE) 09EEE7 1F F8 BRZ $-08 ; => $09EEE1 09EEE9 10 0D BR $00D ; => $09EEF8 09EEEB 20 07 10 50 CASE $10, $50 ; SWITCH $09EED5 09EEEF 40 PUSH.6 $00 09EEF0 90 21 WRITE.B $21 09EEF2 10 04 BR $004 ; => $09EEF8 09EEF4 00 DEFAULT ; SWITCH $09EED5 09EEF5 30 0A 2C BSR.68K $0A2C ; => $09E4CC => $09D9DE 09EEF8 10 1F BR $01F ; => $09EF19 09EEFA 10 1C 02 CASE $02 ; SWITCH $09EE5D 09EEFD 80 20 READ.B $20 09EEFF 35 SWITCH 09EF00 20 07 10 50 CASE $10, $50 ; SWITCH $09EEFF 09EF04 30 01 75 BSR.68K $0175 ; => $09ED92 09EF07 10 0D BR $00D ; => $09EF16 09EF09 20 07 90 D0 CASE $90, $D0 ; SWITCH $09EEFF 09EF0D 30 01 50 BSR.68K $0150 ; => $09EDC0 09EF10 10 04 BR $004 ; => $09EF16 09EF12 00 DEFAULT ; SWITCH $09EEFF 09EF13 30 0A 4A BSR.68K $0A4A ; => $09E4CC => $09D9DE 09EF16 10 01 BR $001 ; => $09EF19 09EF18 00 DEFAULT ; SWITCH $09EE5D 09EF19 34 RETURN ; ---------------- End Function $09EE54 ---------------- ; ---------------- Begin 2164 Function $09EF4A ---------------- ; P0 = $0004; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000008 ; called from $09EFF0:$09F027 ; called from $09EFF0:$09F02F ; addr bytes opcode operands comment 09EF53 86 0B READ.L $0B 09EF55 04 80 PUSH.10 $080 09EF57 2C AND.L 09EF58 18 0D BRZ $00D ; => $09EF67 09EF5A 05 00 PUSH.10 $100 09EF5C 86 0B READ.L $0B 09EF5E 28 SUB.L 09EF5F 03 2A LONG2FLOAT 09EF61 03 20 NEG.W 09EF63 97 07 WRITE.F $07 09EF65 10 06 BR $006 ; => $09EF6D 09EF67 86 0B READ.L $0B 09EF69 03 2A LONG2FLOAT 09EF6B 97 07 WRITE.F $07 09EF6D 32 04 ADDSP.B $04 09EF6F 34 RETURN ; ---------------- End Function $09EF4A ---------------- ; ---------------- Begin 2164 Function $09EF70 ---------------- ; P0 = $0008; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $7; D1 = $000004 ; called from $09F0C8:$09F3CE ; called from $09F0C8:$09F3FD ; addr bytes opcode operands comment 09EF79 87 0B READ.F $0B 09EF7B 3E PUSH.W $0000 09EF7C 03 21 LT.F 09EF7E 18 14 BRZ $014 ; => $09EF94 09EF80 40 PUSH.6 $00 09EF81 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09EF8A 87 0B READ.F $0B 09EF8C 21 SUB.F 09EF8D 03 29 FLOAT2LONG 09EF8F 28 SUB.L 09EF90 96 03 WRITE.L $03 09EF92 10 10 BR $010 ; => $09EFA4 09EF94 87 0B READ.F $0B 09EF96 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09EF9F 20 ADD.F 09EFA0 03 29 FLOAT2LONG 09EFA2 96 03 WRITE.L $03 09EFA4 32 08 ADDSP.B $08 09EFA6 34 RETURN ; ---------------- End Function $09EF70 ---------------- ; ---------------- Begin 2164 Function $09EFA8 ---------------- ; P0 = $0008; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $7; D1 = $000008 ; called from $09F0C8:$09F1BB ; called from $09F0C8:$09F1DD ; called from $09F0C8:$09F399 ; called from $09F0C8:$09F3A0 ; addr bytes opcode operands comment 09EFB1 87 0F READ.F $0F 09EFB3 3B 40 40 00 00 00 00 00 00 PUSH.F $4040000000000000 ; float = 32.000000 09EFBC 21 SUB.F 09EFBD 3B 3F E1 C7 1C 71 C7 08 E6 PUSH.F $3FE1C71C71C708E6 ; float = 0.555556 09EFC6 22 MUL.F 09EFC7 97 07 WRITE.F $07 09EFC9 32 08 ADDSP.B $08 09EFCB 34 RETURN ; ---------------- End Function $09EFA8 ---------------- ; ---------------- Begin 2164 Function $09EFCC ---------------- ; P0 = $0008; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $7; D1 = $000008 ; called from $09EFF0:$09F04F ; called from $09EFF0:$09F056 ; called from $09F0C8:$09F182 ; called from $09F0C8:$09F1A6 ; addr bytes opcode operands comment 09EFD5 87 0F READ.F $0F 09EFD7 3B 3F FC CC CC CC CC CC CD PUSH.F $3FFCCCCCCCCCCCCD ; float = 1.800000 09EFE0 22 MUL.F 09EFE1 3B 40 40 00 00 00 00 00 00 PUSH.F $4040000000000000 ; float = 32.000000 09EFEA 20 ADD.F 09EFEB 97 07 WRITE.F $07 09EFED 32 08 ADDSP.B $08 09EFEF 34 RETURN ; ---------------- End Function $09EFCC ---------------- ; ---------------- Begin 2144 Function $09EFF0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09B096:$09B0C4 ; called from $09F0C8:$09F0E2 ; called from $09F0C8:$09F407 ; addr bytes opcode operands comment 09EFF7 31 10 SUBSP.B $10 09EFF9 40 PUSH.6 $00 09EFFA 3F 20 44 52 59 2B 58 58 58 DISP "DRY+XXXC HUM XXXWET+XXXC P XXXXX" 43 20 48 55 4D 20 58 58 58 57 45 54 2B 58 58 58 43 20 50 20 58 58 58 58 58 09F01C 42 PUSH.6 $02 09F01D 30 00 E8 BSR.68K $00E8 ; => $09EF38 => $097B72 09F020 52 PUSH.6 $12 09F021 30 00 EC BSR.68K $00EC ; => $09EF38 => $097B72 09F024 C0 60 B6 READ.B $60B6 09F027 30 00 E0 BSR.68K $00E0 ; => $09EF4A 09F02A 97 07 WRITE.F $07 09F02C C0 60 B7 READ.B $60B7 09F02F 30 00 E8 BSR.68K $00E8 ; => $09EF4A 09F032 97 0F WRITE.F $0F 09F034 C0 60 BC READ.B $60BC 09F037 40 PUSH.6 $00 09F038 2A EQ.L 09F039 18 0A BRZ $00A ; => $09F045 09F03B 04 43 PUSH.10 $043 09F03D 90 18 WRITE.B $18 09F03F 04 43 PUSH.10 $043 09F041 90 08 WRITE.B $08 09F043 10 16 BR $016 ; => $09F05B 09F045 04 46 PUSH.10 $046 09F047 90 18 WRITE.B $18 09F049 04 46 PUSH.10 $046 09F04B 90 08 WRITE.B $08 09F04D 87 07 READ.F $07 09F04F 30 00 86 BSR.68K $0086 ; => $09EFCC 09F052 97 07 WRITE.F $07 09F054 87 0F READ.F $0F 09F056 30 00 8D BSR.68K $008D ; => $09EFCC 09F059 97 0F WRITE.F $0F 09F05B 87 07 READ.F $07 09F05D 3E PUSH.W $0000 09F05E 03 21 LT.F 09F060 18 05 BRZ $005 ; => $09F067 09F062 6D PUSH.6 $2D 09F063 90 1C WRITE.B $1C 09F065 10 03 BR $003 ; => $09F06A 09F067 6B PUSH.6 $2B 09F068 90 1C WRITE.B $1C 09F06A 87 0F READ.F $0F 09F06C 3E PUSH.W $0000 09F06D 03 21 LT.F 09F06F 18 05 BRZ $005 ; => $09F076 09F071 6D PUSH.6 $2D 09F072 90 0C WRITE.B $0C 09F074 10 03 BR $003 ; => $09F079 09F076 6B PUSH.6 $2B 09F077 90 0C WRITE.B $0C 09F079 44 PUSH.6 $04 09F07A 43 PUSH.6 $03 09F07B 87 07 READ.F $07 09F07D 30 01 3C BSR.68K $013C ; => $09EF44 => $002B7E (NATIVE) 09F080 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09F089 20 ADD.F 09F08A 30 01 61 BSR.68K $0161 ; => $09EF2C => $097AD2 09F08D 54 PUSH.6 $14 09F08E 43 PUSH.6 $03 09F08F 87 0F READ.F $0F 09F091 30 01 50 BSR.68K $0150 ; => $09EF44 => $002B7E (NATIVE) 09F094 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09F09D 20 ADD.F 09F09E 30 01 75 BSR.68K $0175 ; => $09EF2C => $097AD2 09F0A1 4D PUSH.6 $0D 09F0A2 43 PUSH.6 $03 09F0A3 C0 60 BA READ.B $60BA 09F0A6 03 2A LONG2FLOAT 09F0A8 30 01 7F BSR.68K $017F ; => $09EF2C => $097AD2 09F0AB 5B PUSH.6 $1B 09F0AC 45 PUSH.6 $05 09F0AD C1 60 B9 READ.W $60B9 09F0B0 03 2A LONG2FLOAT 09F0B2 30 01 89 BSR.68K $0189 ; => $09EF2C => $097AD2 09F0B5 5E PUSH.6 $1E 09F0B6 30 01 7B BSR.68K $017B ; => $09EF3E => $097B5C 09F0B9 40 PUSH.6 $00 09F0BA 63 PUSH.6 $23 09F0BB 40 PUSH.6 $00 09F0BC 40 PUSH.6 $00 09F0BD 40 PUSH.6 $00 09F0BE 40 PUSH.6 $00 09F0BF 40 PUSH.6 $00 09F0C0 40 PUSH.6 $00 09F0C1 30 01 AA BSR.68K $01AA ; => $09EF1A => $099614 09F0C4 32 10 ADDSP.B $10 09F0C6 34 RETURN ; ---------------- End Function $09EFF0 ---------------- ; ---------------- Begin 2144 Function $09F0C8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09C2AA:$09C3CD ; addr bytes opcode operands comment 09F0CF 31 1C SUBSP.B $1C 09F0D1 80 20 READ.B $20 09F0D3 35 SWITCH 09F0D4 10 16 02 CASE $02 ; SWITCH $09F0D3 09F0D7 80 26 READ.B $26 09F0D9 43 PUSH.6 $03 09F0DA 2A EQ.L 09F0DB 18 05 BRZ $005 ; => $09F0E2 09F0DD 40 PUSH.6 $00 09F0DE 90 21 WRITE.B $21 09F0E0 10 08 BR $008 ; => $09F0EA 09F0E2 30 00 F5 BSR.68K $00F5 ; => $09EFF0 09F0E5 43 PUSH.6 $03 09F0E6 90 26 WRITE.B $26 09F0E8 13 35 BR $335 ; => $09F41F 09F0EA 11 C8 BR $1C8 ; => $09F2B4 09F0EC 10 06 04 CASE $04 ; SWITCH $09F0D3 09F0EF 61 PUSH.6 $21 09F0F0 90 26 WRITE.B $26 09F0F2 11 C0 BR $1C0 ; => $09F2B4 09F0F4 10 2D 10 CASE $10 ; SWITCH $09F0D3 09F0F7 80 26 READ.B $26 09F0F9 35 SWITCH 09F0FA 10 06 03 CASE $03 ; SWITCH $09F0F9 09F0FD 5F PUSH.6 $1F 09F0FE 90 26 WRITE.B $26 09F100 10 1F BR $01F ; => $09F121 09F102 10 06 0D CASE $0D ; SWITCH $09F0F9 09F105 46 PUSH.6 $06 09F106 90 26 WRITE.B $26 09F108 10 17 BR $017 ; => $09F121 09F10A 10 06 13 CASE $13 ; SWITCH $09F0F9 09F10D 4F PUSH.6 $0F 09F10E 90 26 WRITE.B $26 09F110 10 0F BR $00F ; => $09F121 09F112 10 06 1B CASE $1B ; SWITCH $09F0F9 09F115 56 PUSH.6 $16 09F116 90 26 WRITE.B $26 09F118 10 07 BR $007 ; => $09F121 09F11A 00 DEFAULT ; SWITCH $09F0F9 09F11B 80 26 READ.B $26 09F11D 41 PUSH.6 $01 09F11E 28 SUB.L 09F11F 90 26 WRITE.B $26 09F121 11 91 BR $191 ; => $09F2B4 09F123 11 32 50 CASE $50 ; SWITCH $09F0D3 09F126 45 PUSH.6 $05 09F127 D0 4E 65 WRITE.B $4E65 09F12A 44 PUSH.6 $04 09F12B 46 PUSH.6 $06 09F12C 30 02 09 BSR.68K $0209 ; => $09EF26 => $09E02C 09F12F 97 09 WRITE.F $09 09F131 54 PUSH.6 $14 09F132 56 PUSH.6 $16 09F133 30 02 10 BSR.68K $0210 ; => $09EF26 => $09E02C 09F136 97 11 WRITE.F $11 09F138 80 1C READ.B $1C 09F13A 6D PUSH.6 $2D 09F13B 2A EQ.L 09F13C 18 06 BRZ $006 ; => $09F144 09F13E 87 09 READ.F $09 09F140 03 20 NEG.W 09F142 97 09 WRITE.F $09 09F144 80 0C READ.B $0C 09F146 6D PUSH.6 $2D 09F147 2A EQ.L 09F148 18 06 BRZ $006 ; => $09F150 09F14A 87 11 READ.F $11 09F14C 03 20 NEG.W 09F14E 97 11 WRITE.F $11 09F150 C0 60 BC READ.B $60BC 09F153 40 PUSH.6 $00 09F154 2A EQ.L 09F155 18 56 BRZ $056 ; => $09F1AD 09F157 41 PUSH.6 $01 09F158 D0 60 BC WRITE.B $60BC 09F15B 04 46 PUSH.10 $046 09F15D 90 18 WRITE.B $18 09F15F 04 46 PUSH.10 $046 09F161 90 08 WRITE.B $08 09F163 87 09 READ.F $09 09F165 30 02 24 BSR.68K $0224 ; => $09EF44 => $002B7E (NATIVE) 09F168 3B 40 60 10 00 00 00 00 00 PUSH.F $4060100000000000 ; float = 128.500000 09F171 25 GTE.F 09F172 18 0C BRZ $00C ; => $09F180 09F174 3E PUSH.W $0000 09F175 97 09 WRITE.F $09 09F177 4A PUSH.6 $0A 09F178 D0 4E 51 WRITE.B $4E51 09F17B 43 PUSH.6 $03 09F17C 90 26 WRITE.B $26 09F17E 10 07 BR $007 ; => $09F187 09F180 87 09 READ.F $09 09F182 30 01 B9 BSR.68K $01B9 ; => $09EFCC 09F185 97 09 WRITE.F $09 09F187 87 11 READ.F $11 09F189 30 02 48 BSR.68K $0248 ; => $09EF44 => $002B7E (NATIVE) 09F18C 3B 40 60 10 00 00 00 00 00 PUSH.F $4060100000000000 ; float = 128.500000 09F195 25 GTE.F 09F196 18 0C BRZ $00C ; => $09F1A4 09F198 3E PUSH.W $0000 09F199 97 11 WRITE.F $11 09F19B 4A PUSH.6 $0A 09F19C D0 4E 51 WRITE.B $4E51 09F19F 53 PUSH.6 $13 09F1A0 90 26 WRITE.B $26 09F1A2 10 07 BR $007 ; => $09F1AB 09F1A4 87 11 READ.F $11 09F1A6 30 01 DD BSR.68K $01DD ; => $09EFCC 09F1A9 97 11 WRITE.F $11 09F1AB 10 50 BR $050 ; => $09F1FD 09F1AD 40 PUSH.6 $00 09F1AE D0 60 BC WRITE.B $60BC 09F1B1 04 43 PUSH.10 $043 09F1B3 90 18 WRITE.B $18 09F1B5 04 43 PUSH.10 $043 09F1B7 90 08 WRITE.B $08 09F1B9 87 09 READ.F $09 09F1BB 30 02 16 BSR.68K $0216 ; => $09EFA8 09F1BE 97 09 WRITE.F $09 09F1C0 87 09 READ.F $09 09F1C2 30 02 81 BSR.68K $0281 ; => $09EF44 => $002B7E (NATIVE) 09F1C5 3B 40 60 10 00 00 00 00 00 PUSH.F $4060100000000000 ; float = 128.500000 09F1CE 25 GTE.F 09F1CF 18 0A BRZ $00A ; => $09F1DB 09F1D1 3E PUSH.W $0000 09F1D2 97 09 WRITE.F $09 09F1D4 4A PUSH.6 $0A 09F1D5 D0 4E 51 WRITE.B $4E51 09F1D8 43 PUSH.6 $03 09F1D9 90 26 WRITE.B $26 09F1DB 87 11 READ.F $11 09F1DD 30 02 38 BSR.68K $0238 ; => $09EFA8 09F1E0 97 11 WRITE.F $11 09F1E2 87 11 READ.F $11 09F1E4 30 02 A3 BSR.68K $02A3 ; => $09EF44 => $002B7E (NATIVE) 09F1E7 3B 40 60 10 00 00 00 00 00 PUSH.F $4060100000000000 ; float = 128.500000 09F1F0 25 GTE.F 09F1F1 18 0A BRZ $00A ; => $09F1FD 09F1F3 3E PUSH.W $0000 09F1F4 97 11 WRITE.F $11 09F1F6 4A PUSH.6 $0A 09F1F7 D0 4E 51 WRITE.B $4E51 09F1FA 53 PUSH.6 $13 09F1FB 90 26 WRITE.B $26 09F1FD 87 09 READ.F $09 09F1FF 3E PUSH.W $0000 09F200 03 21 LT.F 09F202 18 05 BRZ $005 ; => $09F209 09F204 6D PUSH.6 $2D 09F205 90 1C WRITE.B $1C 09F207 10 03 BR $003 ; => $09F20C 09F209 6B PUSH.6 $2B 09F20A 90 1C WRITE.B $1C 09F20C 87 11 READ.F $11 09F20E 3E PUSH.W $0000 09F20F 03 21 LT.F 09F211 18 05 BRZ $005 ; => $09F218 09F213 6D PUSH.6 $2D 09F214 90 0C WRITE.B $0C 09F216 10 03 BR $003 ; => $09F21B 09F218 6B PUSH.6 $2B 09F219 90 0C WRITE.B $0C 09F21B 44 PUSH.6 $04 09F21C 43 PUSH.6 $03 09F21D 87 09 READ.F $09 09F21F 30 02 DE BSR.68K $02DE ; => $09EF44 => $002B7E (NATIVE) 09F222 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09F22B 20 ADD.F 09F22C 30 03 03 BSR.68K $0303 ; => $09EF2C => $097AD2 09F22F 54 PUSH.6 $14 09F230 43 PUSH.6 $03 09F231 87 11 READ.F $11 09F233 30 02 F2 BSR.68K $02F2 ; => $09EF44 => $002B7E (NATIVE) 09F236 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 09F23F 20 ADD.F 09F240 30 03 17 BSR.68K $0317 ; => $09EF2C => $097AD2 09F243 80 1B READ.B $1B 09F245 70 PUSH.6 $30 09F246 2A EQ.L 09F247 18 03 BRZ $003 ; => $09F24C 09F249 60 PUSH.6 $20 09F24A 90 1B WRITE.B $1B 09F24C 80 0B READ.B $0B 09F24E 70 PUSH.6 $30 09F24F 2A EQ.L 09F250 18 03 BRZ $003 ; => $09F255 09F252 60 PUSH.6 $20 09F253 90 0B WRITE.B $0B 09F255 10 5D BR $05D ; => $09F2B4 09F257 10 03 90 CASE $90 ; SWITCH $09F0D3 09F25A 10 58 BR $058 ; => $09F2B4 09F25C 10 15 D0 CASE $D0 ; SWITCH $09F0D3 09F25F 80 26 READ.B $26 09F261 5F PUSH.6 $1F 09F262 03 27 LTE.L 09F264 18 05 BRZ $005 ; => $09F26B 09F266 43 PUSH.6 $03 09F267 90 26 WRITE.B $26 09F269 10 06 BR $006 ; => $09F271 09F26B 80 26 READ.B $26 09F26D 41 PUSH.6 $01 09F26E 27 ADD.L 09F26F 90 26 WRITE.B $26 09F271 10 41 BR $041 ; => $09F2B4 09F273 00 DEFAULT ; SWITCH $09F0D3 09F274 80 26 READ.B $26 09F276 43 PUSH.6 $03 09F277 2A EQ.L 09F278 80 26 READ.B $26 09F27A 53 PUSH.6 $13 09F27B 2A EQ.L 09F27C 2D OR.L 09F27D 18 29 BRZ $029 ; => $09F2A8 09F27F 80 26 READ.B $26 09F281 80 20 READ.B $20 09F283 04 82 PUSH.10 $082 09F285 2A EQ.L 09F286 18 03 BRZ $003 ; => $09F28B 09F288 6D PUSH.6 $2D 09F289 10 01 BR $001 ; => $09F28C 09F28B 6B PUSH.6 $2B 09F28C B0 1F WRITE.B $1F 09F28E 80 26 READ.B $26 09F290 41 PUSH.6 $01 09F291 27 ADD.L 09F292 90 26 WRITE.B $26 09F294 80 20 READ.B $20 09F296 04 82 PUSH.10 $082 09F298 2B NEQ.L 09F299 80 20 READ.B $20 09F29B 04 42 PUSH.10 $042 09F29D 2B NEQ.L 09F29E 2C AND.L 09F29F 18 05 BRZ $005 ; => $09F2A6 09F2A1 30 03 84 BSR.68K $0384 ; => $09EF20 => $09DFB4 09F2A4 94 00 WRITE.B $00 09F2A6 10 0C BR $00C ; => $09F2B4 09F2A8 80 26 READ.B $26 09F2AA 60 PUSH.6 $20 09F2AB 03 26 GT.L 09F2AD 18 05 BRZ $005 ; => $09F2B4 09F2AF 30 03 92 BSR.68K $0392 ; => $09EF20 => $09DFB4 09F2B2 94 00 WRITE.B $00 09F2B4 80 26 READ.B $26 09F2B6 35 SWITCH 09F2B7 20 0D 05 03 CASE $05, $03 ; SWITCH $09F2B6 09F2BB 80 1B READ.B $1B 09F2BD 70 PUSH.6 $30 09F2BE 2A EQ.L 09F2BF 18 03 BRZ $003 ; => $09F2C4 09F2C1 60 PUSH.6 $20 09F2C2 90 1B WRITE.B $1B 09F2C4 11 59 BR $159 ; => $09F41F 09F2C6 20 0D 13 15 CASE $13, $15 ; SWITCH $09F2B6 09F2CA 80 0B READ.B $0B 09F2CC 70 PUSH.6 $30 09F2CD 2A EQ.L 09F2CE 18 03 BRZ $003 ; => $09F2D3 09F2D0 60 PUSH.6 $20 09F2D1 90 0B WRITE.B $0B 09F2D3 11 4A BR $14A ; => $09F41F 09F2D5 10 10 04 CASE $04 ; SWITCH $09F2B6 09F2D8 80 1B READ.B $1B 09F2DA 60 PUSH.6 $20 09F2DB 2A EQ.L 09F2DC 18 03 BRZ $003 ; => $09F2E1 09F2DE 70 PUSH.6 $30 09F2DF 90 1B WRITE.B $1B 09F2E1 45 PUSH.6 $05 09F2E2 D0 4E 65 WRITE.B $4E65 09F2E5 11 38 BR $138 ; => $09F41F 09F2E7 10 10 14 CASE $14 ; SWITCH $09F2B6 09F2EA 80 0B READ.B $0B 09F2EC 60 PUSH.6 $20 09F2ED 2A EQ.L 09F2EE 18 03 BRZ $003 ; => $09F2F3 09F2F0 70 PUSH.6 $30 09F2F1 90 0B WRITE.B $0B 09F2F3 45 PUSH.6 $05 09F2F4 D0 4E 65 WRITE.B $4E65 09F2F7 11 26 BR $126 ; => $09F41F 09F2F9 10 06 07 CASE $07 ; SWITCH $09F2B6 09F2FC 4D PUSH.6 $0D 09F2FD 90 26 WRITE.B $26 09F2FF 11 1E BR $11E ; => $09F41F 09F301 10 06 10 CASE $10 ; SWITCH $09F2B6 09F304 53 PUSH.6 $13 09F305 90 26 WRITE.B $26 09F307 11 16 BR $116 ; => $09F41F 09F309 10 06 17 CASE $17 ; SWITCH $09F2B6 09F30C 5B PUSH.6 $1B 09F30D 90 26 WRITE.B $26 09F30F 11 0E BR $10E ; => $09F41F 09F311 10 07 1F CASE $1F ; SWITCH $09F2B6 09F314 5E PUSH.6 $1E 09F315 30 03 DA BSR.68K $03DA ; => $09EF3E => $097B5C 09F318 11 05 BR $105 ; => $09F41F 09F31A 11 02 21 CASE $21 ; SWITCH $09F2B6 09F31D 40 PUSH.6 $00 09F31E 94 1A WRITE.B $1A 09F320 4D PUSH.6 $0D 09F321 4F PUSH.6 $0F 09F322 30 03 FF BSR.68K $03FF ; => $09EF26 => $09E02C 09F325 97 19 WRITE.F $19 09F327 87 19 READ.F $19 09F329 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 09F332 24 GT.F 09F333 18 09 BRZ $009 ; => $09F33E 09F335 04 FF PUSH.10 $0FF 09F337 94 1A WRITE.B $1A 09F339 4D PUSH.6 $0D 09F33A 94 1B WRITE.B $1B 09F33C 10 07 BR $007 ; => $09F345 09F33E 87 19 READ.F $19 09F340 03 29 FLOAT2LONG 09F342 D0 60 BA WRITE.B $60BA 09F345 5B PUSH.6 $1B 09F346 5F PUSH.6 $1F 09F347 30 04 24 BSR.68K $0424 ; => $09EF26 => $09E02C 09F34A 97 19 WRITE.F $19 09F34C 87 19 READ.F $19 09F34E 3B 40 C5 7C 00 00 00 00 00 PUSH.F $40C57C0000000000 ; float = 11000.000000 09F357 24 GT.F 09F358 18 09 BRZ $009 ; => $09F363 09F35A 04 FF PUSH.10 $0FF 09F35C 94 1A WRITE.B $1A 09F35E 5B PUSH.6 $1B 09F35F 94 1B WRITE.B $1B 09F361 10 07 BR $007 ; => $09F36A 09F363 87 19 READ.F $19 09F365 03 29 FLOAT2LONG 09F367 D1 60 B9 WRITE.W $60B9 09F36A 44 PUSH.6 $04 09F36B 46 PUSH.6 $06 09F36C 30 04 49 BSR.68K $0449 ; => $09EF26 => $09E02C 09F36F 97 09 WRITE.F $09 09F371 54 PUSH.6 $14 09F372 56 PUSH.6 $16 09F373 30 04 50 BSR.68K $0450 ; => $09EF26 => $09E02C 09F376 97 11 WRITE.F $11 09F378 80 1C READ.B $1C 09F37A 6D PUSH.6 $2D 09F37B 2A EQ.L 09F37C 18 06 BRZ $006 ; => $09F384 09F37E 87 09 READ.F $09 09F380 03 20 NEG.W 09F382 97 09 WRITE.F $09 09F384 80 0C READ.B $0C 09F386 6D PUSH.6 $2D 09F387 2A EQ.L 09F388 18 06 BRZ $006 ; => $09F390 09F38A 87 11 READ.F $11 09F38C 03 20 NEG.W 09F38E 97 11 WRITE.F $11 09F390 C0 60 BC READ.B $60BC 09F393 41 PUSH.6 $01 09F394 2A EQ.L 09F395 18 0E BRZ $00E ; => $09F3A5 09F397 87 09 READ.F $09 09F399 30 03 F4 BSR.68K $03F4 ; => $09EFA8 09F39C 97 09 WRITE.F $09 09F39E 87 11 READ.F $11 09F3A0 30 03 FB BSR.68K $03FB ; => $09EFA8 09F3A3 97 11 WRITE.F $11 09F3A5 87 09 READ.F $09 09F3A7 3B 40 5F E0 00 00 00 00 00 PUSH.F $405FE00000000000 ; float = 127.500000 09F3B0 25 GTE.F 09F3B1 87 09 READ.F $09 09F3B3 3B 40 60 10 00 00 00 00 00 PUSH.F $4060100000000000 ; float = 128.500000 09F3BC 03 20 NEG.W 09F3BE 03 22 LTE.F 09F3C0 2D OR.L 09F3C1 18 09 BRZ $009 ; => $09F3CC 09F3C3 04 FF PUSH.10 $0FF 09F3C5 94 1A WRITE.B $1A 09F3C7 43 PUSH.6 $03 09F3C8 94 1B WRITE.B $1B 09F3CA 10 08 BR $008 ; => $09F3D4 09F3CC 87 09 READ.F $09 09F3CE 30 04 61 BSR.68K $0461 ; => $09EF70 09F3D1 D0 60 B6 WRITE.B $60B6 09F3D4 87 11 READ.F $11 09F3D6 3B 40 5F E0 00 00 00 00 00 PUSH.F $405FE00000000000 ; float = 127.500000 09F3DF 25 GTE.F 09F3E0 87 11 READ.F $11 09F3E2 3B 40 60 10 00 00 00 00 00 PUSH.F $4060100000000000 ; float = 128.500000 09F3EB 03 20 NEG.W 09F3ED 03 22 LTE.F 09F3EF 2D OR.L 09F3F0 18 09 BRZ $009 ; => $09F3FB 09F3F2 04 FF PUSH.10 $0FF 09F3F4 94 1A WRITE.B $1A 09F3F6 53 PUSH.6 $13 09F3F7 94 1B WRITE.B $1B 09F3F9 10 08 BR $008 ; => $09F403 09F3FB 87 11 READ.F $11 09F3FD 30 04 90 BSR.68K $0490 ; => $09EF70 09F400 D0 60 B7 WRITE.B $60B7 09F403 84 1A READ.B $1A 09F405 18 0D BRZ $00D ; => $09F414 09F407 30 04 1A BSR.68K $041A ; => $09EFF0 09F40A 84 1B READ.B $1B 09F40C 90 26 WRITE.B $26 09F40E 4A PUSH.6 $0A 09F40F D0 4E 51 WRITE.B $4E51 09F412 10 08 BR $008 ; => $09F41C 09F414 40 PUSH.6 $00 09F415 90 21 WRITE.B $21 09F417 04 FF PUSH.10 $0FF 09F419 D0 60 BB WRITE.B $60BB 09F41C 10 01 BR $001 ; => $09F41F 09F41E 00 DEFAULT ; SWITCH $09F2B6 09F41F 32 1C ADDSP.B $1C 09F421 34 RETURN ; ---------------- End Function $09F0C8 ---------------- ; ---------------- Begin 2164 Function $09F7D6 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $098160:$09819E ; called from $09A828:$09A837 ; called from $09A828:$09A966 ; called from $09B102:$09B149 ; called from $09FC48:$09FCA8 ; called from $0A7640:$0A76E5 ; called from $0A7770:$0A778B ; called from $0AB998:$0AB9EB ; called from $0ABCF4:$0ABD68 ; called from $0ABFB6:$0AC13C ; called from $0ABFB6:$0AC145 ; addr bytes opcode operands comment 09F7DF 31 04 SUBSP.B $04 09F7E1 30 00 20 BSR.68K $0020 ; => $09F7C4 => $09F69A (NATIVE) 09F7E4 96 03 WRITE.L $03 09F7E6 40 PUSH.6 $00 09F7E7 36 50 05 _2362 $0005 ; A0 = $004000; (A0) = A6 + $0 09F7EA 69 PUSH.6 $29 09F7EB 38 40 21 BLS.W $0021 ; => $09F80F 09F7EE 85 05 READ.W $05 09F7F0 30 00 41 BSR.68K $0041 ; => $09F7B2 => $09F640 (NATIVE) 09F7F3 95 07 WRITE.W $07 09F7F5 85 07 READ.W $07 09F7F7 3C 80 00 PUSH.W $8000 09F7FA 03 27 LTE.L 09F7FC 18 0C BRZ $00C ; => $09F80A 09F7FE 86 03 READ.L $03 09F800 85 07 READ.W $07 09F802 07 FF PUSH.10 $3FF 09F804 2C AND.L 09F805 27 ADD.L 09F806 41 PUSH.6 $01 09F807 27 ADD.L 09F808 96 03 WRITE.L $03 09F80A 37 50 05 00 25 _23d2 $0005, $0025 09F80F 32 04 ADDSP.B $04 09F811 34 RETURN ; ---------------- End Function $09F7D6 ---------------- ; ---------------- Begin 2164 Function $09F812 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $097EE4:$097F1E ; called from $098160:$0981DD ; called from $09F93E:$09F964 ; called from $09F986:$09F9AC ; called from $09FA9E:$09FB0A ; called from $0A7D82:$0A7D8B ; addr bytes opcode operands comment 09F81B 40 PUSH.6 $00 09F81C 07 F0 PUSH.10 $3F0 09F81E 30 00 7B BSR.68K $007B ; => $09F7A6 => $09F43A (NATIVE) 09F821 30 00 84 BSR.68K $0084 ; => $09F7A0 => $09F42A (NATIVE) 09F824 96 03 WRITE.L $03 09F826 34 RETURN ; ---------------- End Function $09F812 ---------------- ; ---------------- Begin 2164 Function $09F828 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $097E1A:$097E54 ; called from $098160:$0981E4 ; called from $09F93E:$09F96B ; called from $09F986:$09F9B3 ; called from $09F9E4:$09FA88 ; addr bytes opcode operands comment 09F831 40 PUSH.6 $00 09F832 07 F1 PUSH.10 $3F1 09F834 30 00 91 BSR.68K $0091 ; => $09F7A6 => $09F43A (NATIVE) 09F837 30 00 9A BSR.68K $009A ; => $09F7A0 => $09F42A (NATIVE) 09F83A 96 03 WRITE.L $03 09F83C 34 RETURN ; ---------------- End Function $09F828 ---------------- ; ---------------- Begin 2144 Function $09F83E ---------------- ; A0 = $004004; (A0) = SP + $17 ; called from $09FA9E:$09FB07 ; called from $09FC48:$09FD2D ; addr bytes opcode operands comment 09F845 40 PUSH.6 $00 09F846 58 PUSH.6 $18 09F847 86 03 READ.L $03 09F849 29 MUL.L 09F84A 30 00 A7 BSR.68K $00A7 ; => $09F7A6 => $09F43A (NATIVE) 09F84D 86 07 READ.L $07 09F84F 3D 01 00 00 00 PUSH.L $01000000 09F854 03 24 DIV.L 09F856 30 00 BF BSR.68K $00BF ; => $09F79A => $09F422 (NATIVE) 09F859 86 07 READ.L $07 09F85B 3D 00 01 00 00 PUSH.L $00010000 09F860 03 24 DIV.L 09F862 30 00 CB BSR.68K $00CB ; => $09F79A => $09F422 (NATIVE) 09F865 86 07 READ.L $07 09F867 05 00 PUSH.10 $100 09F869 03 24 DIV.L 09F86B 30 00 D4 BSR.68K $00D4 ; => $09F79A => $09F422 (NATIVE) 09F86E 86 07 READ.L $07 09F870 30 00 D9 BSR.68K $00D9 ; => $09F79A => $09F422 (NATIVE) 09F873 86 0B READ.L $0B 09F875 3D 01 00 00 00 PUSH.L $01000000 09F87A 03 24 DIV.L 09F87C 30 00 E5 BSR.68K $00E5 ; => $09F79A => $09F422 (NATIVE) 09F87F 86 0B READ.L $0B 09F881 3D 00 01 00 00 PUSH.L $00010000 09F886 03 24 DIV.L 09F888 30 00 F1 BSR.68K $00F1 ; => $09F79A => $09F422 (NATIVE) 09F88B 86 0B READ.L $0B 09F88D 05 00 PUSH.10 $100 09F88F 03 24 DIV.L 09F891 30 00 FA BSR.68K $00FA ; => $09F79A => $09F422 (NATIVE) 09F894 86 0B READ.L $0B 09F896 30 00 FF BSR.68K $00FF ; => $09F79A => $09F422 (NATIVE) 09F899 86 0F READ.L $0F 09F89B 05 00 PUSH.10 $100 09F89D 03 24 DIV.L 09F89F 30 01 08 BSR.68K $0108 ; => $09F79A => $09F422 (NATIVE) 09F8A2 86 0F READ.L $0F 09F8A4 30 01 0D BSR.68K $010D ; => $09F79A => $09F422 (NATIVE) 09F8A7 86 13 READ.L $13 09F8A9 05 00 PUSH.10 $100 09F8AB 03 24 DIV.L 09F8AD 30 01 16 BSR.68K $0116 ; => $09F79A => $09F422 (NATIVE) 09F8B0 86 13 READ.L $13 09F8B2 30 01 1B BSR.68K $011B ; => $09F79A => $09F422 (NATIVE) 09F8B5 86 17 READ.L $17 09F8B7 05 00 PUSH.10 $100 09F8B9 03 24 DIV.L 09F8BB 30 01 24 BSR.68K $0124 ; => $09F79A => $09F422 (NATIVE) 09F8BE 86 17 READ.L $17 09F8C0 30 01 29 BSR.68K $0129 ; => $09F79A => $09F422 (NATIVE) 09F8C3 32 18 ADDSP.B $18 09F8C5 34 RETURN ; ---------------- End Function $09F83E ---------------- ; ---------------- Begin 2144 Function $09F8C6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09FA9E:$09FAF2 ; called from $09FC48:$09FCD9 ; addr bytes opcode operands comment 09F8CD C1 58 59 READ.W $5859 09F8D0 05 FF PUSH.10 $1FF 09F8D2 2A EQ.L 09F8D3 18 21 BRZ $021 ; => $09F8F6 09F8D5 30 01 2C BSR.68K $012C ; => $09F7AC => $09F6BA (NATIVE) 09F8D8 D1 58 5D WRITE.W $585D 09F8DB 40 PUSH.6 $00 09F8DC 58 PUSH.6 $18 09F8DD C1 58 4F READ.W $584F 09F8E0 29 MUL.L 09F8E1 52 PUSH.6 $12 09F8E2 27 ADD.L 09F8E3 30 01 40 BSR.68K $0140 ; => $09F7A6 => $09F43A (NATIVE) 09F8E6 C1 58 5D READ.W $585D 09F8E9 05 00 PUSH.10 $100 09F8EB 03 24 DIV.L 09F8ED 30 01 56 BSR.68K $0156 ; => $09F79A => $09F422 (NATIVE) 09F8F0 C1 58 5D READ.W $585D 09F8F3 30 01 5C BSR.68K $015C ; => $09F79A => $09F422 (NATIVE) 09F8F6 C1 58 59 READ.W $5859 09F8F9 41 PUSH.6 $01 09F8FA 27 ADD.L 09F8FB D1 58 59 WRITE.W $5859 09F8FE 30 01 55 BSR.68K $0155 ; => $09F7AC => $09F6BA (NATIVE) 09F901 D1 58 5F WRITE.W $585F 09F904 C1 58 59 READ.W $5859 09F907 06 00 PUSH.10 $200 09F909 03 26 GT.L 09F90B 18 0D BRZ $00D ; => $09F91A 09F90D C1 58 5B READ.W $585B 09F910 C1 58 59 READ.W $5859 09F913 42 PUSH.6 $02 09F914 29 MUL.L 09F915 30 01 72 BSR.68K $0172 ; => $09F7A6 => $09F43A (NATIVE) 09F918 10 0E BR $00E ; => $09F928 09F91A C1 58 5D READ.W $585D 09F91D C1 58 59 READ.W $5859 09F920 05 FF PUSH.10 $1FF 09F922 28 SUB.L 09F923 42 PUSH.6 $02 09F924 29 MUL.L 09F925 30 01 82 BSR.68K $0182 ; => $09F7A6 => $09F43A (NATIVE) 09F928 C1 58 5F READ.W $585F 09F92B 05 00 PUSH.10 $100 09F92D 03 24 DIV.L 09F92F 30 01 98 BSR.68K $0198 ; => $09F79A => $09F422 (NATIVE) 09F932 C1 58 5F READ.W $585F 09F935 30 01 9E BSR.68K $019E ; => $09F79A => $09F422 (NATIVE) 09F938 41 PUSH.6 $01 09F939 D1 58 61 WRITE.W $5861 09F93C 34 RETURN ; ---------------- End Function $09F8C6 ---------------- ; ---------------- Begin 2144 Function $09F93E ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $097EE4:$097EFB ; called from $0A7CF2:$0A7D45 ; addr bytes opcode operands comment 09F945 31 06 SUBSP.B $06 09F947 86 03 READ.L $03 09F949 30 01 9A BSR.68K $019A ; => $09F7B2 => $09F640 (NATIVE) 09F94C 96 07 WRITE.L $07 09F94E 40 PUSH.6 $00 09F94F 58 PUSH.6 $18 09F950 86 03 READ.L $03 09F952 29 MUL.L 09F953 48 PUSH.6 $08 09F954 27 ADD.L 09F955 30 01 B2 BSR.68K $01B2 ; => $09F7A6 => $09F43A (NATIVE) 09F958 86 07 READ.L $07 09F95A 05 00 PUSH.10 $100 09F95C 03 24 DIV.L 09F95E 04 80 PUSH.10 $080 09F960 2D OR.L 09F961 30 01 CA BSR.68K $01CA ; => $09F79A => $09F422 (NATIVE) 09F964 30 01 55 BSR.68K $0155 ; => $09F812 09F967 41 PUSH.6 $01 09F968 28 SUB.L 09F969 94 08 WRITE.B $08 09F96B 30 01 46 BSR.68K $0146 ; => $09F828 09F96E 41 PUSH.6 $01 09F96F 27 ADD.L 09F970 94 09 WRITE.B $09 09F972 40 PUSH.6 $00 09F973 07 F0 PUSH.10 $3F0 09F975 30 01 D2 BSR.68K $01D2 ; => $09F7A6 => $09F43A (NATIVE) 09F978 84 08 READ.B $08 09F97A 30 01 E3 BSR.68K $01E3 ; => $09F79A => $09F422 (NATIVE) 09F97D 84 09 READ.B $09 09F97F 30 01 E8 BSR.68K $01E8 ; => $09F79A => $09F422 (NATIVE) 09F982 32 0A ADDSP.B $0A 09F984 34 RETURN ; ---------------- End Function $09F93E ---------------- ; ---------------- Begin 2144 Function $09F986 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $097E1A:$097E31 ; addr bytes opcode operands comment 09F98D 31 06 SUBSP.B $06 09F98F 86 03 READ.L $03 09F991 30 01 E2 BSR.68K $01E2 ; => $09F7B2 => $09F640 (NATIVE) 09F994 96 07 WRITE.L $07 09F996 40 PUSH.6 $00 09F997 58 PUSH.6 $18 09F998 86 03 READ.L $03 09F99A 29 MUL.L 09F99B 48 PUSH.6 $08 09F99C 27 ADD.L 09F99D 30 01 FA BSR.68K $01FA ; => $09F7A6 => $09F43A (NATIVE) 09F9A0 86 07 READ.L $07 09F9A2 05 00 PUSH.10 $100 09F9A4 03 24 DIV.L 09F9A6 04 7F PUSH.10 $07F 09F9A8 2C AND.L 09F9A9 30 02 12 BSR.68K $0212 ; => $09F79A => $09F422 (NATIVE) 09F9AC 30 01 9D BSR.68K $019D ; => $09F812 09F9AF 41 PUSH.6 $01 09F9B0 27 ADD.L 09F9B1 94 08 WRITE.B $08 09F9B3 30 01 8E BSR.68K $018E ; => $09F828 09F9B6 41 PUSH.6 $01 09F9B7 28 SUB.L 09F9B8 94 09 WRITE.B $09 09F9BA 40 PUSH.6 $00 09F9BB 07 F0 PUSH.10 $3F0 09F9BD 30 02 1A BSR.68K $021A ; => $09F7A6 => $09F43A (NATIVE) 09F9C0 84 08 READ.B $08 09F9C2 30 02 2B BSR.68K $022B ; => $09F79A => $09F422 (NATIVE) 09F9C5 84 09 READ.B $09 09F9C7 30 02 30 BSR.68K $0230 ; => $09F79A => $09F422 (NATIVE) 09F9CA 32 0A ADDSP.B $0A 09F9CC 34 RETURN ; ---------------- End Function $09F986 ---------------- ; ---------------- Begin 2144 Function $09F9CE ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09F9E4:$09FA6E ; called from $09F9E4:$09FA78 ; called from $09F9E4:$09FA85 ; addr bytes opcode operands comment 09F9D5 41 PUSH.6 $01 09F9D6 86 03 READ.L $03 09F9D8 30 02 35 BSR.68K $0235 ; => $09F7A6 => $09F43A (NATIVE) 09F9DB 04 FF PUSH.10 $0FF 09F9DD 30 02 46 BSR.68K $0246 ; => $09F79A => $09F422 (NATIVE) 09F9E0 32 04 ADDSP.B $04 09F9E2 34 RETURN ; ---------------- End Function $09F9CE ---------------- ; ---------------- Begin 2144 Function $09F9E4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09FA9E:$09FACE ; addr bytes opcode operands comment 09F9EB 31 0C SUBSP.B $0C 09F9ED 40 PUSH.6 $00 09F9EE 36 50 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 09F9F1 69 PUSH.6 $29 09F9F2 38 40 17 BLS.W $0017 ; => $09FA0C 09F9F5 85 01 READ.W $01 09F9F7 30 02 48 BSR.68K $0248 ; => $09F7B2 => $09F640 (NATIVE) 09F9FA 95 03 WRITE.W $03 09F9FC 85 03 READ.W $03 09F9FE 3C 80 00 PUSH.W $8000 09FA01 03 27 LTE.L 09FA03 18 02 BRZ $002 ; => $09FA07 09FA05 10 07 BR $007 ; => $09FA0E 09FA07 37 50 01 00 1B _23d2 $0001, $001B 09FA0C 10 8C BR $08C ; => $09FA9A 09FA0E 85 01 READ.W $01 09FA10 30 02 5B BSR.68K $025B ; => $09F7B8 => $09F65E (NATIVE) 09FA13 95 07 WRITE.W $07 09FA15 85 01 READ.W $01 09FA17 30 02 5C BSR.68K $025C ; => $09F7BE => $09F66A (NATIVE) 09FA1A 95 09 WRITE.W $09 09FA1C 40 PUSH.6 $00 09FA1D 85 01 READ.W $01 09FA1F 58 PUSH.6 $18 09FA20 29 MUL.L 09FA21 30 02 7E BSR.68K $027E ; => $09F7A6 => $09F43A (NATIVE) 09FA24 40 PUSH.6 $00 09FA25 36 50 05 _2362 $0005 ; A0 = $004000; (A0) = A6 + $0 09FA28 57 PUSH.6 $17 09FA29 38 40 09 BLS.W $0009 ; => $09FA35 09FA2C 40 PUSH.6 $00 09FA2D 30 02 96 BSR.68K $0296 ; => $09F79A => $09F422 (NATIVE) 09FA30 37 50 05 00 0D _23d2 $0005, $000D 09FA35 85 03 READ.W $03 09FA37 07 FF PUSH.10 $3FF 09FA39 2C AND.L 09FA3A 95 03 WRITE.W $03 09FA3C 41 PUSH.6 $01 09FA3D 36 50 05 _2362 $0005 ; A0 = $004000; (A0) = A6 + $0 09FA40 85 03 READ.W $03 09FA42 38 40 31 BLS.W $0031 ; => $09FA76 09FA45 85 05 READ.W $05 09FA47 06 00 PUSH.10 $200 09FA49 03 26 GT.L 09FA4B 18 0B BRZ $00B ; => $09FA58 09FA4D 85 07 READ.W $07 09FA4F 85 05 READ.W $05 09FA51 42 PUSH.6 $02 09FA52 29 MUL.L 09FA53 30 02 B0 BSR.68K $02B0 ; => $09F7A6 => $09F43A (NATIVE) 09FA56 10 0C BR $00C ; => $09FA64 09FA58 85 09 READ.W $09 09FA5A 85 05 READ.W $05 09FA5C 05 FF PUSH.10 $1FF 09FA5E 28 SUB.L 09FA5F 42 PUSH.6 $02 09FA60 29 MUL.L 09FA61 30 02 BE BSR.68K $02BE ; => $09F7A6 => $09F43A (NATIVE) 09FA64 05 00 PUSH.10 $100 09FA66 30 02 C9 BSR.68K $02C9 ; => $09F7A0 => $09F42A (NATIVE) 09FA69 29 MUL.L 09FA6A 30 02 CD BSR.68K $02CD ; => $09F7A0 => $09F42A (NATIVE) 09FA6D 27 ADD.L 09FA6E 30 00 A3 BSR.68K $00A3 ; => $09F9CE 09FA71 37 50 05 00 36 _23d2 $0005, $0036 09FA76 85 07 READ.W $07 09FA78 30 00 AD BSR.68K $00AD ; => $09F9CE 09FA7B 85 03 READ.W $03 09FA7D 05 FF PUSH.10 $1FF 09FA7F 03 25 LT.L 09FA81 18 05 BRZ $005 ; => $09FA88 09FA83 85 09 READ.W $09 09FA85 30 00 BA BSR.68K $00BA ; => $09F9CE 09FA88 30 02 63 BSR.68K $0263 ; => $09F828 09FA8B 41 PUSH.6 $01 09FA8C 28 SUB.L 09FA8D 94 0A WRITE.B $0A 09FA8F 40 PUSH.6 $00 09FA90 07 F1 PUSH.10 $3F1 09FA92 30 02 EF BSR.68K $02EF ; => $09F7A6 => $09F43A (NATIVE) 09FA95 84 0A READ.B $0A 09FA97 30 03 00 BSR.68K $0300 ; => $09F79A => $09F422 (NATIVE) 09FA9A 32 0C ADDSP.B $0C 09FA9C 34 RETURN ; ---------------- End Function $09F9E4 ---------------- ; ---------------- Begin 2144 Function $09FA9E ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A7BF8:$0A7C27 ; called from $0AB998:$0AB9E8 ; called from $0ABFB6:$0AC0A5 ; addr bytes opcode operands comment 09FAA5 31 08 SUBSP.B $08 09FAA7 C0 4E 66 READ.B $4E66 09FAAA 94 0B WRITE.B $0B 09FAAC 04 FF PUSH.10 $0FF 09FAAE D0 4E 66 WRITE.B $4E66 09FAB1 40 PUSH.6 $00 09FAB2 D1 58 4F WRITE.W $584F 09FAB5 C1 58 4F READ.W $584F 09FAB8 30 03 09 BSR.68K $0309 ; => $09F7B2 => $09F640 (NATIVE) 09FABB 40 PUSH.6 $00 09FABC 2B NEQ.L 09FABD 18 18 BRZ $018 ; => $09FAD7 09FABF C1 58 4F READ.W $584F 09FAC2 41 PUSH.6 $01 09FAC3 27 ADD.L 09FAC4 D1 58 4F WRITE.W $584F 09FAC7 C1 58 4F READ.W $584F 09FACA 6A PUSH.6 $2A 09FACB 2A EQ.L 09FACC 18 07 BRZ $007 ; => $09FAD5 09FACE 30 00 ED BSR.68K $00ED ; => $09F9E4 09FAD1 40 PUSH.6 $00 09FAD2 D1 58 4F WRITE.W $584F 09FAD5 17 DE BR $-22 ; => $09FAB5 09FAD7 86 03 READ.L $03 09FAD9 D2 58 53 WRITE.L $5853 09FADC 30 03 33 BSR.68K $0333 ; => $09F7AC => $09F6BA (NATIVE) 09FADF D1 58 5B WRITE.W $585B 09FAE2 40 PUSH.6 $00 09FAE3 D1 58 5D WRITE.W $585D 09FAE6 40 PUSH.6 $00 09FAE7 D1 58 59 WRITE.W $5859 09FAEA 40 PUSH.6 $00 09FAEB D2 58 57 WRITE.L $5857 09FAEE 40 PUSH.6 $00 09FAEF D1 58 63 WRITE.W $5863 09FAF2 30 02 2F BSR.68K $022F ; => $09F8C6 09FAF5 C1 58 4F READ.W $584F 09FAF8 C2 58 53 READ.L $5853 09FAFB C2 58 57 READ.L $5857 09FAFE C1 58 59 READ.W $5859 09FB01 C1 58 5B READ.W $585B 09FB04 C1 58 63 READ.W $5863 09FB07 30 02 CC BSR.68K $02CC ; => $09F83E 09FB0A 30 02 FB BSR.68K $02FB ; => $09F812 09FB0D 41 PUSH.6 $01 09FB0E 27 ADD.L 09FB0F 94 04 WRITE.B $04 09FB11 40 PUSH.6 $00 09FB12 07 F0 PUSH.10 $3F0 09FB14 30 03 71 BSR.68K $0371 ; => $09F7A6 => $09F43A (NATIVE) 09FB17 84 04 READ.B $04 09FB19 30 03 82 BSR.68K $0382 ; => $09F79A => $09F422 (NATIVE) 09FB1C C0 2A 0D READ.B $2A0D 09FB1F 04 64 PUSH.10 $064 09FB21 C0 2A 0C READ.B $2A0C 09FB24 29 MUL.L 09FB25 27 ADD.L 09FB26 3C 04 B0 PUSH.W $04B0 09FB29 C0 2A 0B READ.B $2A0B 09FB2C 29 MUL.L 09FB2D 27 ADD.L 09FB2E 95 07 WRITE.W $07 09FB30 C0 29 FF READ.B $29FF 09FB33 7C PUSH.6 $3C 09FB34 29 MUL.L 09FB35 C0 29 FE READ.B $29FE 09FB38 27 ADD.L 09FB39 95 09 WRITE.W $09 09FB3B 40 PUSH.6 $00 09FB3C C1 58 4F READ.W $584F 09FB3F 58 PUSH.6 $18 09FB40 29 MUL.L 09FB41 4E PUSH.6 $0E 09FB42 27 ADD.L 09FB43 30 03 A0 BSR.68K $03A0 ; => $09F7A6 => $09F43A (NATIVE) 09FB46 85 07 READ.W $07 09FB48 05 00 PUSH.10 $100 09FB4A 03 24 DIV.L 09FB4C 30 03 B5 BSR.68K $03B5 ; => $09F79A => $09F422 (NATIVE) 09FB4F 85 07 READ.W $07 09FB51 30 03 BA BSR.68K $03BA ; => $09F79A => $09F422 (NATIVE) 09FB54 85 09 READ.W $09 09FB56 05 00 PUSH.10 $100 09FB58 03 24 DIV.L 09FB5A 30 03 C3 BSR.68K $03C3 ; => $09F79A => $09F422 (NATIVE) 09FB5D 85 09 READ.W $09 09FB5F 30 03 C8 BSR.68K $03C8 ; => $09F79A => $09F422 (NATIVE) 09FB62 84 0B READ.B $0B 09FB64 D0 4E 66 WRITE.B $4E66 09FB67 32 0C ADDSP.B $0C 09FB69 34 RETURN ; ---------------- End Function $09FA9E ---------------- ; ---------------- Begin 2144 Function $09FB6A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09E53E:$09E545 ; called from $09E552:$09E5B0 ; called from $0A7CF2:$0A7D12 ; addr bytes opcode operands comment 09FB71 31 02 SUBSP.B $02 09FB73 40 PUSH.6 $00 09FB74 40 PUSH.6 $00 09FB75 30 03 D2 BSR.68K $03D2 ; => $09F7A6 => $09F43A (NATIVE) 09FB78 40 PUSH.6 $00 09FB79 36 50 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 09FB7C 07 F7 PUSH.10 $3F7 09FB7E 38 40 09 BLS.W $0009 ; => $09FB8A 09FB81 40 PUSH.6 $00 09FB82 30 03 EB BSR.68K $03EB ; => $09F79A => $09F422 (NATIVE) 09FB85 37 50 01 00 0E _23d2 $0001, $000E 09FB8A 04 AA PUSH.10 $0AA 09FB8C 30 03 F5 BSR.68K $03F5 ; => $09F79A => $09F422 (NATIVE) 09FB8F 04 55 PUSH.10 $055 09FB91 30 03 FA BSR.68K $03FA ; => $09F79A => $09F422 (NATIVE) 09FB94 04 F0 PUSH.10 $0F0 09FB96 30 03 FF BSR.68K $03FF ; => $09F79A => $09F422 (NATIVE) 09FB99 4F PUSH.6 $0F 09FB9A 30 04 03 BSR.68K $0403 ; => $09F79A => $09F422 (NATIVE) 09FB9D 04 CC PUSH.10 $0CC 09FB9F 30 04 08 BSR.68K $0408 ; => $09F79A => $09F422 (NATIVE) 09FBA2 73 PUSH.6 $33 09FBA3 30 04 0C BSR.68K $040C ; => $09F79A => $09F422 (NATIVE) 09FBA6 40 PUSH.6 $00 09FBA7 30 04 10 BSR.68K $0410 ; => $09F79A => $09F422 (NATIVE) 09FBAA 04 FF PUSH.10 $0FF 09FBAC 30 04 15 BSR.68K $0415 ; => $09F79A => $09F422 (NATIVE) 09FBAF 40 PUSH.6 $00 09FBB0 30 04 19 BSR.68K $0419 ; => $09F79A => $09F422 (NATIVE) 09FBB3 40 PUSH.6 $00 09FBB4 30 04 1D BSR.68K $041D ; => $09F79A => $09F422 (NATIVE) 09FBB7 C0 29 8D READ.B $298D 09FBBA 18 28 BRZ $028 ; => $09FBE4 09FBBC 42 PUSH.6 $02 09FBBD 36 50 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 09FBC0 05 FF PUSH.10 $1FF 09FBC2 38 40 0A BLS.W $000A ; => $09FBCF 09FBC5 04 FF PUSH.10 $0FF 09FBC7 30 04 30 BSR.68K $0430 ; => $09F79A => $09F422 (NATIVE) 09FBCA 37 50 01 00 0F _23d2 $0001, $000F 09FBCF 06 00 PUSH.10 $200 09FBD1 36 50 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 09FBD4 07 FF PUSH.10 $3FF 09FBD6 38 40 09 BLS.W $0009 ; => $09FBE2 09FBD9 40 PUSH.6 $00 09FBDA 30 04 43 BSR.68K $0443 ; => $09F79A => $09F422 (NATIVE) 09FBDD 37 50 01 00 0E _23d2 $0001, $000E 09FBE2 10 13 BR $013 ; => $09FBF7 09FBE4 42 PUSH.6 $02 09FBE5 36 50 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 09FBE8 07 FF PUSH.10 $3FF 09FBEA 38 40 0A BLS.W $000A ; => $09FBF7 09FBED 04 FF PUSH.10 $0FF 09FBEF 30 04 58 BSR.68K $0458 ; => $09F79A => $09F422 (NATIVE) 09FBF2 37 50 01 00 0F _23d2 $0001, $000F 09FBF7 41 PUSH.6 $01 09FBF8 36 50 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 09FBFB 07 FF PUSH.10 $3FF 09FBFD 38 40 1A BLS.W $001A ; => $09FC1A 09FC00 85 01 READ.W $01 09FC02 40 PUSH.6 $00 09FC03 30 04 60 BSR.68K $0460 ; => $09F7A6 => $09F43A (NATIVE) 09FC06 85 01 READ.W $01 09FC08 60 PUSH.6 $20 09FC09 2F MOD.L 09FC0A 60 PUSH.6 $20 09FC0B 85 01 READ.W $01 09FC0D 60 PUSH.6 $20 09FC0E 2F MOD.L 09FC0F 2E NOT.L 09FC10 29 MUL.L 09FC11 27 ADD.L 09FC12 30 04 7B BSR.68K $047B ; => $09F79A => $09F422 (NATIVE) 09FC15 37 50 01 00 1F _23d2 $0001, $001F 09FC1A 32 02 ADDSP.B $02 09FC1C 34 RETURN ; ---------------- End Function $09FB6A ---------------- ; ---------------- Begin 2144 Function $09FC1E ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09FC48:$09FC87 ; called from $09FC48:$09FC8C ; called from $09FC48:$09FC90 ; called from $0A7C2E:$0A7C76 ; called from $0AB1DA:$0AB20F ; called from $0AB1DA:$0AB214 ; called from $0AB1DA:$0AB2F5 ; called from $0AB1DA:$0AB30E ; called from $0AB1DA:$0AB349 ; called from $0AB1DA:$0AB34F ; called from $0AB1DA:$0AB384 ; called from $0AB1DA:$0AB38C ; called from $0AB1DA:$0AB394 ; called from $0AB468:$0AB47A ; called from $0AB468:$0AB4BE ; called from $0AB468:$0AB4C3 ; called from $0AB468:$0AB4CD ; called from $0AB468:$0AB4D3 ; called from $0AB4E0:$0AB4F0 ; called from $0AB4E0:$0AB4FC ; called from $0AB4E0:$0AB502 ; called from $0AB4E0:$0AB508 ; called from $0AB514:$0AB526 ; called from $0AB514:$0AB586 ; called from $0AB514:$0AB58C ; called from $0AB514:$0AB5A5 ; called from $0AB514:$0AB5C1 ; called from $0AB5D4:$0AB5E1 ; called from $0AB5D4:$0AB5E9 ; called from $0AB5D4:$0AB5EF ; called from $0AB5D4:$0AB60B ; called from $0AB5D4:$0AB617 ; called from $0AB5D4:$0AB64B ; called from $0AB6B2:$0AB6C2 ; called from $0AB6B2:$0AB6C7 ; called from $0AB7A8:$0AB7BA ; called from $0AB7A8:$0AB7BE ; called from $0AB7A8:$0AB7E5 ; called from $0AB7A8:$0AB7EB ; called from $0AB7A8:$0AB7F1 ; called from $0AB7A8:$0AB7FA ; called from $0AB7A8:$0AB803 ; called from $0AB7A8:$0AB80C ; called from $0AB7A8:$0AB815 ; called from $0AB7A8:$0AB81E ; called from $0AB7A8:$0AB834 ; called from $0AB7A8:$0AB83D ; called from $0AB7A8:$0AB846 ; called from $0AB7A8:$0AB84C ; called from $0AB7A8:$0AB855 ; called from $0AB7A8:$0AB85E ; called from $0AB7A8:$0AB867 ; called from $0AB7A8:$0AB877 ; called from $0AB924:$0AB936 ; addr bytes opcode operands comment 09FC25 C1 58 4D READ.W $584D 09FC28 86 03 READ.L $03 09FC2A F0 58 4B WRITE.B $584B 09FC2D C1 58 4D READ.W $584D 09FC30 41 PUSH.6 $01 09FC31 27 ADD.L 09FC32 D1 58 4D WRITE.W $584D 09FC35 32 04 ADDSP.B $04 09FC37 34 RETURN ; ---------------- End Function $09FC1E ---------------- ; ---------------- Begin 2144 Function $09FC38 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A7C2E:$0A7C48 ; called from $0AB1DA:$0AB20B ; called from $0AB468:$0AB476 ; called from $0AB4E0:$0AB4EC ; called from $0AB514:$0AB522 ; called from $0AB5D4:$0AB5DD ; called from $0AB6B2:$0AB6BE ; called from $0AB7A8:$0AB7B6 ; called from $0AB924:$0AB932 ; addr bytes opcode operands comment 09FC3F 42 PUSH.6 $02 09FC40 D0 58 4B WRITE.B $584B 09FC43 42 PUSH.6 $02 09FC44 D1 58 4D WRITE.W $584D 09FC47 34 RETURN ; ---------------- End Function $09FC38 ---------------- ; ---------------- Begin 2144 Function $09FC48 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A7C2E:$0A7C50 ; called from $0AB1DA:$0AB45E ; called from $0AB468:$0AB4D6 ; called from $0AB4E0:$0AB50B ; called from $0AB514:$0AB5C9 ; called from $0AB5D4:$0AB67B ; called from $0AB6B2:$0AB79E ; called from $0AB7A8:$0AB919 ; called from $0AB924:$0AB98D ; addr bytes opcode operands comment 09FC4F 31 06 SUBSP.B $06 09FC51 C0 4E 66 READ.B $4E66 09FC54 94 02 WRITE.B $02 09FC56 04 FF PUSH.10 $0FF 09FC58 D0 4E 66 WRITE.B $4E66 09FC5B C1 58 4D READ.W $584D 09FC5E 43 PUSH.6 $03 09FC5F 27 ADD.L 09FC60 D0 58 4A WRITE.B $584A 09FC63 40 PUSH.6 $00 09FC64 95 05 WRITE.W $05 09FC66 40 PUSH.6 $00 09FC67 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 09FC6A C1 58 4D READ.W $584D 09FC6D 41 PUSH.6 $01 09FC6E 28 SUB.L 09FC6F 38 00 0F BLS.B $000F ; => $09FC81 09FC72 85 05 READ.W $05 09FC74 84 01 READ.B $01 09FC76 E0 58 4B READ.B $584B 09FC79 27 ADD.L 09FC7A 95 05 WRITE.W $05 09FC7C 37 10 01 00 17 _23d2 $0001, $0017 09FC81 85 05 READ.W $05 09FC83 05 00 PUSH.10 $100 09FC85 03 24 DIV.L 09FC87 30 00 6C BSR.68K $006C ; => $09FC1E 09FC8A 85 05 READ.W $05 09FC8C 30 00 71 BSR.68K $0071 ; => $09FC1E 09FC8F 43 PUSH.6 $03 09FC90 30 00 75 BSR.68K $0075 ; => $09FC1E 09FC93 40 PUSH.6 $00 09FC94 94 01 WRITE.B $01 09FC96 C1 58 61 READ.W $5861 09FC99 C1 58 4D READ.W $584D 09FC9C 27 ADD.L 09FC9D 3C 04 00 PUSH.W $0400 09FCA0 03 27 LTE.L 09FCA2 94 00 WRITE.B $00 09FCA4 84 00 READ.B $00 09FCA6 18 34 BRZ $034 ; => $09FCDC 09FCA8 30 04 D5 BSR.68K $04D5 ; => $09F7D6 09FCAB 40 PUSH.6 $00 09FCAC 2A EQ.L 09FCAD 18 02 BRZ $002 ; => $09FCB1 09FCAF 10 82 BR $082 ; => $09FD33 09FCB1 C1 58 5F READ.W $585F 09FCB4 C1 58 61 READ.W $5861 09FCB7 30 05 14 BSR.68K $0514 ; => $09F7A6 => $09F43A (NATIVE) 09FCBA 84 01 READ.B $01 09FCBC E0 58 4B READ.B $584B 09FCBF 30 05 28 BSR.68K $0528 ; => $09F79A => $09F422 (NATIVE) 09FCC2 84 01 READ.B $01 09FCC4 41 PUSH.6 $01 09FCC5 27 ADD.L 09FCC6 94 01 WRITE.B $01 09FCC8 C1 58 61 READ.W $5861 09FCCB 41 PUSH.6 $01 09FCCC 27 ADD.L 09FCCD D1 58 61 WRITE.W $5861 09FCD0 C1 58 61 READ.W $5861 09FCD3 3C 04 00 PUSH.W $0400 09FCD6 2A EQ.L 09FCD7 1F E1 BRZ $-1F ; => $09FCBA 09FCD9 30 04 16 BSR.68K $0416 ; => $09F8C6 09FCDC C1 58 5F READ.W $585F 09FCDF C1 58 61 READ.W $5861 09FCE2 30 05 3F BSR.68K $053F ; => $09F7A6 => $09F43A (NATIVE) 09FCE5 84 01 READ.B $01 09FCE7 C1 58 4D READ.W $584D 09FCEA 03 26 GT.L 09FCEC 18 18 BRZ $018 ; => $09FD06 09FCEE 84 01 READ.B $01 09FCF0 E0 58 4B READ.B $584B 09FCF3 30 05 5C BSR.68K $055C ; => $09F79A => $09F422 (NATIVE) 09FCF6 84 01 READ.B $01 09FCF8 41 PUSH.6 $01 09FCF9 27 ADD.L 09FCFA 94 01 WRITE.B $01 09FCFC C1 58 61 READ.W $5861 09FCFF 41 PUSH.6 $01 09FD00 27 ADD.L 09FD01 D1 58 61 WRITE.W $5861 09FD04 17 DF BR $-21 ; => $09FCE5 09FD06 C2 58 57 READ.L $5857 09FD09 C1 58 4D READ.W $584D 09FD0C 27 ADD.L 09FD0D D2 58 57 WRITE.L $5857 09FD10 C1 58 63 READ.W $5863 09FD13 41 PUSH.6 $01 09FD14 27 ADD.L 09FD15 D1 58 63 WRITE.W $5863 09FD18 30 05 4B BSR.68K $054B ; => $09F7D0 => $09F792 (NATIVE) 09FD1B C1 58 4F READ.W $584F 09FD1E C2 58 53 READ.L $5853 09FD21 C2 58 57 READ.L $5857 09FD24 C1 58 59 READ.W $5859 09FD27 C1 58 5B READ.W $585B 09FD2A C1 58 63 READ.W $5863 09FD2D 30 04 F2 BSR.68K $04F2 ; => $09F83E 09FD30 30 05 69 BSR.68K $0569 ; => $09F7CA => $09F78A (NATIVE) 09FD33 84 02 READ.B $02 09FD35 D0 4E 66 WRITE.B $4E66 09FD38 32 06 ADDSP.B $06 09FD3A 34 RETURN ; ---------------- End Function $09FC48 ---------------- ; ---------------- Begin 2164 Function $09FDFE ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0011E6:$0012D9 ; called from $091178:$0911ED ; called from $0A5418:$0A5495 ; called from $0A5804:$0A59A3 ; called from $0A7FB0:$0A800A ; called from $0AEDF0:$0AEDF9 ; addr bytes opcode operands comment 09FE07 31 02 SUBSP.B $02 09FE09 40 PUSH.6 $00 09FE0A 95 05 WRITE.W $05 09FE0C C3 28 27 READ.F $2827 09FE0F 30 00 3A BSR.68K $003A ; => $09FDD8 (NATIVE) 09FE12 C3 28 2F READ.F $282F 09FE15 30 00 40 BSR.68K $0040 ; => $09FDD8 (NATIVE) 09FE18 C3 28 37 READ.F $2837 09FE1B 30 00 46 BSR.68K $0046 ; => $09FDD8 (NATIVE) 09FE1E C3 28 3F READ.F $283F 09FE21 30 00 4C BSR.68K $004C ; => $09FDD8 (NATIVE) 09FE24 C3 28 47 READ.F $2847 09FE27 30 00 52 BSR.68K $0052 ; => $09FDD8 (NATIVE) 09FE2A C3 28 4F READ.F $284F 09FE2D 30 00 58 BSR.68K $0058 ; => $09FDD8 (NATIVE) 09FE30 C3 28 57 READ.F $2857 09FE33 30 00 5E BSR.68K $005E ; => $09FDD8 (NATIVE) 09FE36 C3 28 5F READ.F $285F 09FE39 30 00 64 BSR.68K $0064 ; => $09FDD8 (NATIVE) 09FE3C C3 28 6F READ.F $286F 09FE3F 30 00 6A BSR.68K $006A ; => $09FDD8 (NATIVE) 09FE42 C3 28 67 READ.F $2867 09FE45 30 00 70 BSR.68K $0070 ; => $09FDD8 (NATIVE) 09FE48 C3 28 87 READ.F $2887 09FE4B 30 00 76 BSR.68K $0076 ; => $09FDD8 (NATIVE) 09FE4E C3 28 77 READ.F $2877 09FE51 30 00 7C BSR.68K $007C ; => $09FDD8 (NATIVE) 09FE54 C3 28 7F READ.F $287F 09FE57 30 00 82 BSR.68K $0082 ; => $09FDD8 (NATIVE) 09FE5A 85 05 READ.W $05 09FE5C C0 28 88 READ.B $2888 09FE5F 27 ADD.L 09FE60 C0 28 89 READ.B $2889 09FE63 27 ADD.L 09FE64 C0 28 8A READ.B $288A 09FE67 27 ADD.L 09FE68 04 FF PUSH.10 $0FF 09FE6A 2C AND.L 09FE6B 96 03 WRITE.L $03 09FE6D 32 02 ADDSP.B $02 09FE6F 34 RETURN ; ---------------- End Function $09FDFE ---------------- ; ---------------- Begin 2164 Function $09FE70 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0010A2:$0011DC ; called from $09519A:$0951B1 ; called from $0A59F6:$0A5E4D ; called from $0A8012:$0A818B ; called from $0AEDF0:$0AEE4B ; addr bytes opcode operands comment 09FE79 31 02 SUBSP.B $02 09FE7B 40 PUSH.6 $00 09FE7C 95 09 WRITE.W $09 09FE7E 86 07 READ.L $07 09FE80 E1 18 9B READ.W $189B 09FE83 03 2A LONG2FLOAT 09FE85 30 00 B0 BSR.68K $00B0 ; => $09FDD8 (NATIVE) 09FE88 86 07 READ.L $07 09FE8A E2 19 1F READ.L $191F 09FE8D 03 2A LONG2FLOAT 09FE8F 30 00 BA BSR.68K $00BA ; => $09FDD8 (NATIVE) 09FE92 86 07 READ.L $07 09FE94 E3 1A 27 READ.F $1A27 09FE97 30 00 C2 BSR.68K $00C2 ; => $09FDD8 (NATIVE) 09FE9A 86 07 READ.L $07 09FE9C E2 1A AB READ.L $1AAB 09FE9F 03 2A LONG2FLOAT 09FEA1 30 00 CC BSR.68K $00CC ; => $09FDD8 (NATIVE) 09FEA4 86 07 READ.L $07 09FEA6 E3 1B B3 READ.F $1BB3 09FEA9 30 00 D4 BSR.68K $00D4 ; => $09FDD8 (NATIVE) 09FEAC 86 07 READ.L $07 09FEAE E3 1C BB READ.F $1CBB 09FEB1 30 00 DC BSR.68K $00DC ; => $09FDD8 (NATIVE) 09FEB4 86 07 READ.L $07 09FEB6 E3 1D C3 READ.F $1DC3 09FEB9 30 00 E4 BSR.68K $00E4 ; => $09FDD8 (NATIVE) 09FEBC 86 07 READ.L $07 09FEBE E3 1E CB READ.F $1ECB 09FEC1 30 00 EC BSR.68K $00EC ; => $09FDD8 (NATIVE) 09FEC4 86 07 READ.L $07 09FEC6 E3 1F D3 READ.F $1FD3 09FEC9 30 00 F4 BSR.68K $00F4 ; => $09FDD8 (NATIVE) 09FECC 86 07 READ.L $07 09FECE E3 20 DB READ.F $20DB 09FED1 30 00 FC BSR.68K $00FC ; => $09FDD8 (NATIVE) 09FED4 85 09 READ.W $09 09FED6 96 03 WRITE.L $03 09FED8 32 06 ADDSP.B $06 09FEDA 34 RETURN ; ---------------- End Function $09FE70 ---------------- ; ---------------- Begin 2164 Function $09FEDC ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $00162A:$0018A0 ; called from $0911F4:$091306 ; called from $0A549E:$0A55C2 ; called from $0A59F6:$0A5D1C ; called from $0A8012:$0A817B ; called from $0AEDF0:$0AEE22 ; addr bytes opcode operands comment 09FEE5 31 02 SUBSP.B $02 09FEE7 40 PUSH.6 $00 09FEE8 95 09 WRITE.W $09 09FEEA 86 07 READ.L $07 09FEEC E1 01 61 READ.W $0161 09FEEF 03 2A LONG2FLOAT 09FEF1 30 01 1C BSR.68K $011C ; => $09FDD8 (NATIVE) 09FEF4 86 07 READ.L $07 09FEF6 E2 01 E5 READ.L $01E5 09FEF9 03 2A LONG2FLOAT 09FEFB 30 01 26 BSR.68K $0126 ; => $09FDD8 (NATIVE) 09FEFE 86 07 READ.L $07 09FF00 E3 03 97 READ.F $0397 09FF03 30 01 2E BSR.68K $012E ; => $09FDD8 (NATIVE) 09FF06 86 07 READ.L $07 09FF08 E2 04 1B READ.L $041B 09FF0B 03 2A LONG2FLOAT 09FF0D 30 01 38 BSR.68K $0138 ; => $09FDD8 (NATIVE) 09FF10 86 07 READ.L $07 09FF12 E2 07 B7 READ.L $07B7 09FF15 03 2A LONG2FLOAT 09FF17 30 01 42 BSR.68K $0142 ; => $09FDD8 (NATIVE) 09FF1A 86 07 READ.L $07 09FF1C E3 05 23 READ.F $0523 09FF1F 30 01 4A BSR.68K $014A ; => $09FDD8 (NATIVE) 09FF22 86 07 READ.L $07 09FF24 E3 06 2B READ.F $062B 09FF27 30 01 52 BSR.68K $0152 ; => $09FDD8 (NATIVE) 09FF2A 86 07 READ.L $07 09FF2C E3 07 33 READ.F $0733 09FF2F 30 01 5A BSR.68K $015A ; => $09FDD8 (NATIVE) 09FF32 86 07 READ.L $07 09FF34 E2 08 3B READ.L $083B 09FF37 03 2A LONG2FLOAT 09FF39 30 01 64 BSR.68K $0164 ; => $09FDD8 (NATIVE) 09FF3C 86 07 READ.L $07 09FF3E E3 15 A3 READ.F $15A3 09FF41 30 01 6C BSR.68K $016C ; => $09FDD8 (NATIVE) 09FF44 86 07 READ.L $07 09FF46 E3 0A 4B READ.F $0A4B 09FF49 30 01 74 BSR.68K $0174 ; => $09FDD8 (NATIVE) 09FF4C 86 07 READ.L $07 09FF4E E3 09 43 READ.F $0943 09FF51 30 01 7C BSR.68K $017C ; => $09FDD8 (NATIVE) 09FF54 86 07 READ.L $07 09FF56 E3 12 8B READ.F $128B 09FF59 30 01 84 BSR.68K $0184 ; => $09FDD8 (NATIVE) 09FF5C 86 07 READ.L $07 09FF5E E3 0B 53 READ.F $0B53 09FF61 30 01 8C BSR.68K $018C ; => $09FDD8 (NATIVE) 09FF64 86 07 READ.L $07 09FF66 E3 13 93 READ.F $1393 09FF69 30 01 94 BSR.68K $0194 ; => $09FDD8 (NATIVE) 09FF6C 86 07 READ.L $07 09FF6E E3 0C 5B READ.F $0C5B 09FF71 30 01 9C BSR.68K $019C ; => $09FDD8 (NATIVE) 09FF74 86 07 READ.L $07 09FF76 E2 18 37 READ.L $1837 09FF79 03 2A LONG2FLOAT 09FF7B 30 01 A6 BSR.68K $01A6 ; => $09FDD8 (NATIVE) 09FF7E 86 07 READ.L $07 09FF80 E3 16 AB READ.F $16AB 09FF83 30 01 AE BSR.68K $01AE ; => $09FDD8 (NATIVE) 09FF86 86 07 READ.L $07 09FF88 E3 0D 63 READ.F $0D63 09FF8B 30 01 B6 BSR.68K $01B6 ; => $09FDD8 (NATIVE) 09FF8E 86 07 READ.L $07 09FF90 E3 17 B3 READ.F $17B3 09FF93 30 01 BE BSR.68K $01BE ; => $09FDD8 (NATIVE) 09FF96 86 07 READ.L $07 09FF98 E3 10 7B READ.F $107B 09FF9B 30 01 C6 BSR.68K $01C6 ; => $09FDD8 (NATIVE) 09FF9E 86 07 READ.L $07 09FFA0 E3 14 9B READ.F $149B 09FFA3 30 01 CE BSR.68K $01CE ; => $09FDD8 (NATIVE) 09FFA6 86 07 READ.L $07 09FFA8 E3 0E 6B READ.F $0E6B 09FFAB 30 01 D6 BSR.68K $01D6 ; => $09FDD8 (NATIVE) 09FFAE 86 07 READ.L $07 09FFB0 E3 0F 73 READ.F $0F73 09FFB3 30 01 DE BSR.68K $01DE ; => $09FDD8 (NATIVE) 09FFB6 86 07 READ.L $07 09FFB8 E3 11 83 READ.F $1183 09FFBB 30 01 E6 BSR.68K $01E6 ; => $09FDD8 (NATIVE) 09FFBE 85 09 READ.W $09 09FFC0 96 03 WRITE.L $03 09FFC2 32 06 ADDSP.B $06 09FFC4 34 RETURN ; ---------------- End Function $09FEDC ---------------- ; ---------------- Begin 2144 Function $0A0036 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $095216:$095294 ; called from $0984E2:$098549 ; called from $0986B2:$0988AF ; called from $098B98:$098E5B ; called from $098B98:$098E76 ; called from $0A0118:$0A01ED ; called from $0A0118:$0A01F9 ; called from $0A03BC:$0A03F0 ; called from $0A03BC:$0A03F9 ; called from $0A03BC:$0A040D ; called from $0A03BC:$0A0416 ; called from $0A03BC:$0A041F ; called from $0A03BC:$0A0428 ; called from $0A042E:$0A0474 ; called from $0A042E:$0A0489 ; called from $0A042E:$0A049F ; called from $0A042E:$0A04B7 ; called from $0A1B88:$0A1BB3 ; called from $0A21CE:$0A2204 ; called from $0A21CE:$0A2244 ; called from $0A227C:$0A230E ; called from $0A262E:$0A2685 ; called from $0A4862:$0A490C ; called from $0A4862:$0A499B ; called from $0A4862:$0A49A8 ; called from $0A4A04:$0A4A4D ; called from $0A4A6C:$0A4B25 ; called from $0A4A6C:$0A4BD8 ; called from $0A4A6C:$0A4CBD ; called from $0A4A6C:$0A4CFD ; called from $0A4A6C:$0A4D0C ; called from $0A5418:$0A547D ; called from $0A5418:$0A5484 ; called from $0A5418:$0A548B ; called from $0A5418:$0A5492 ; called from $0A5418:$0A5499 ; called from $0A549E:$0A54AF ; called from $0A549E:$0A5590 ; called from $0A549E:$0A5599 ; called from $0A549E:$0A55A2 ; called from $0A549E:$0A55AB ; called from $0A549E:$0A55B4 ; called from $0A549E:$0A55BD ; called from $0A549E:$0A55C6 ; called from $0A5644:$0A5702 ; called from $0A5644:$0A570B ; called from $0A5644:$0A5743 ; called from $0A5644:$0A574C ; called from $0A5804:$0A5836 ; called from $0A5804:$0A595E ; called from $0A5804:$0A5973 ; called from $0A5804:$0A5988 ; called from $0A5804:$0A599D ; called from $0A5804:$0A59A7 ; called from $0A59F6:$0A5A2A ; called from $0A59F6:$0A5A41 ; called from $0A59F6:$0A5A71 ; called from $0A59F6:$0A5C73 ; called from $0A59F6:$0A5C8A ; called from $0A59F6:$0A5CA1 ; called from $0A59F6:$0A5CB8 ; called from $0A59F6:$0A5CCF ; called from $0A59F6:$0A5D14 ; called from $0A59F6:$0A5D20 ; called from $0A59F6:$0A5D35 ; called from $0A59F6:$0A5D6D ; called from $0A59F6:$0A5E45 ; called from $0A59F6:$0A5E51 ; called from $0A5F6E:$0A5FD4 ; called from $0A5F6E:$0A60A5 ; called from $0A61AA:$0A61DA ; called from $0A61EA:$0A6298 ; called from $0A61EA:$0A64BD ; called from $0A61EA:$0A65AA ; called from $0A61EA:$0A66E8 ; called from $0A61EA:$0A66FD ; called from $0A61EA:$0A6726 ; called from $0A61EA:$0A673B ; called from $0A61EA:$0A6757 ; called from $0A61EA:$0A678C ; called from $0A61EA:$0A6817 ; called from $0A61EA:$0A6836 ; called from $0A61EA:$0A69F5 ; called from $0A61EA:$0A6A12 ; called from $0A61EA:$0A6A59 ; called from $0A61EA:$0A6A6E ; called from $0AA80A:$0AA857 ; called from $0AF50C:$0AF5D7 ; addr bytes opcode operands comment 0A003D 31 0E SUBSP.B $0E 0A003F 41 PUSH.6 $01 0A0040 36 10 14 _2362 $0014 ; A0 = $004000; (A0) = A6 + $0 0A0043 86 07 READ.L $07 0A0045 38 00 14 BLS.B $0014 ; => $0A005C 0A0048 84 14 READ.B $14 0A004A 86 03 READ.L $03 0A004C 4A PUSH.6 $0A 0A004D 2F MOD.L 0A004E B4 13 WRITE.B $13 0A0050 86 03 READ.L $03 0A0052 4A PUSH.6 $0A 0A0053 03 24 DIV.L 0A0055 96 03 WRITE.L $03 0A0057 37 10 14 00 19 _23d2 $0014, $0019 0A005C 86 07 READ.L $07 0A005E 36 10 14 _2362 $0014 ; A0 = $004000; (A0) = A6 + $0 0A0061 41 PUSH.6 $01 0A0062 3A 00 0E BGT.B $000E ; => $0A0073 0A0065 84 14 READ.B $14 0A0067 A4 13 READ.B $13 0A0069 70 PUSH.6 $30 0A006A 27 ADD.L 0A006B 30 00 50 BSR.68K $0050 ; => $0A001E => $0A056A (NATIVE) 0A006E 39 10 14 00 12 _23fc $1014, $0012 0A0073 32 16 ADDSP.B $16 0A0075 34 RETURN ; ---------------- End Function $0A0036 ---------------- ; ---------------- Begin 2144 Function $0A0076 ---------------- ; A0 = $004004; (A0) = SP + $F ; called from $0A0118:$0A01D4 ; called from $0A4862:$0A492D ; called from $0A4862:$0A494E ; called from $0A49BE:$0A49D4 ; called from $0A4A6C:$0A4B5B ; called from $0A4A6C:$0A4D20 ; called from $0A4A6C:$0A4D56 ; called from $0A5418:$0A546E ; called from $0A5418:$0A5476 ; called from $0A5804:$0A5934 ; called from $0A5804:$0A5949 ; called from $0A61EA:$0A6308 ; called from $0A61EA:$0A63F3 ; called from $0A61EA:$0A652B ; called from $0A61EA:$0A657F ; addr bytes opcode operands comment 0A007D 31 02 SUBSP.B $02 0A007F 30 00 5E BSR.68K $005E ; => $0A0024 => $0A0584 (NATIVE) 0A0082 86 0F READ.L $0F 0A0084 54 PUSH.6 $14 0A0085 03 26 GT.L 0A0087 18 0E BRZ $00E ; => $0A0097 0A0089 87 07 READ.F $07 0A008B 3E PUSH.W $0000 0A008C 03 21 LT.F 0A008E 18 03 BRZ $003 ; => $0A0093 0A0090 6D PUSH.6 $2D 0A0091 10 01 BR $001 ; => $0A0094 0A0093 6B PUSH.6 $2B 0A0094 30 00 79 BSR.68K $0079 ; => $0A001E => $0A056A (NATIVE) 0A0097 87 07 READ.F $07 0A0099 30 00 9C BSR.68K $009C ; => $0A0000 => $002B7E (NATIVE) 0A009C 30 00 8D BSR.68K $008D ; => $0A0012 => $002D80 (NATIVE) 0A009F 0C 50 B9 00 10 ?_$0C $50B9, $0010 0A00A4 50 PUSH.6 $10 0A00A5 86 0B READ.L $0B 0A00A7 28 SUB.L 0A00A8 36 10 10 _2362 $0010 ; A0 = $004000; (A0) = A6 + $0 0A00AB 4F PUSH.6 $0F 0A00AC 38 00 1F BLS.B $001F ; => $0A00CE 0A00AF 84 10 READ.B $10 0A00B1 50 PUSH.6 $10 0A00B2 86 0B READ.L $0B 0A00B4 28 SUB.L 0A00B5 86 0F READ.L $0F 0A00B7 27 ADD.L 0A00B8 2A EQ.L 0A00B9 18 04 BRZ $004 ; => $0A00BF 0A00BB 6E PUSH.6 $2E 0A00BC 30 00 A1 BSR.68K $00A1 ; => $0A001E => $0A056A (NATIVE) 0A00BF 84 10 READ.B $10 0A00C1 E0 50 B9 READ.B $50B9 0A00C4 70 PUSH.6 $30 0A00C5 2D OR.L 0A00C6 30 00 AB BSR.68K $00AB ; => $0A001E => $0A056A (NATIVE) 0A00C9 37 10 10 00 23 _23d2 $0010, $0023 0A00CE 32 12 ADDSP.B $12 0A00D0 34 RETURN ; ---------------- End Function $0A0076 ---------------- ; ---------------- Begin 2144 Function $0A00D2 ---------------- ; A0 = $004004; (A0) = SP + $F ; called from $0A4862:$0A495B ; called from $0A4862:$0A496D ; called from $0A4862:$0A4975 ; called from $0A4862:$0A4987 ; called from $0A4862:$0A498F ; called from $0A49BE:$0A49E6 ; called from $0A49BE:$0A49F8 ; called from $0A4A6C:$0A4B6C ; called from $0A4A6C:$0A4B88 ; called from $0A4A6C:$0A4BCE ; called from $0A4A6C:$0A4CD1 ; called from $0A4A6C:$0A4CE5 ; called from $0A4A6C:$0A4D16 ; called from $0A4A6C:$0A4D5E ; called from $0A4A6C:$0A4D6F ; called from $0A4A6C:$0A4D80 ; called from $0A4A6C:$0A4D91 ; called from $0A4A6C:$0A4DAD ; called from $0A549E:$0A54BB ; called from $0A549E:$0A54C7 ; called from $0A61EA:$0A6425 ; called from $0A61EA:$0A646A ; called from $0A61EA:$0A6488 ; called from $0A61EA:$0A6919 ; called from $0A61EA:$0A6962 ; called from $0A61EA:$0A698C ; called from $0A61EA:$0A69E2 ; called from $0A61EA:$0A6A4D ; addr bytes opcode operands comment 0A00D9 31 02 SUBSP.B $02 0A00DB 30 00 BA BSR.68K $00BA ; => $0A0024 => $0A0584 (NATIVE) 0A00DE 87 07 READ.F $07 0A00E0 30 00 E3 BSR.68K $00E3 ; => $0A0000 => $002B7E (NATIVE) 0A00E3 30 00 D4 BSR.68K $00D4 ; => $0A0012 => $002D80 (NATIVE) 0A00E6 0C 50 B9 00 10 ?_$0C $50B9, $0010 0A00EB 50 PUSH.6 $10 0A00EC 86 0B READ.L $0B 0A00EE 28 SUB.L 0A00EF 36 10 10 _2362 $0010 ; A0 = $004000; (A0) = A6 + $0 0A00F2 4F PUSH.6 $0F 0A00F3 38 00 1F BLS.B $001F ; => $0A0115 0A00F6 84 10 READ.B $10 0A00F8 50 PUSH.6 $10 0A00F9 86 0B READ.L $0B 0A00FB 28 SUB.L 0A00FC 86 0F READ.L $0F 0A00FE 27 ADD.L 0A00FF 2A EQ.L 0A0100 18 04 BRZ $004 ; => $0A0106 0A0102 6E PUSH.6 $2E 0A0103 30 00 E8 BSR.68K $00E8 ; => $0A001E => $0A056A (NATIVE) 0A0106 84 10 READ.B $10 0A0108 E0 50 B9 READ.B $50B9 0A010B 70 PUSH.6 $30 0A010C 2D OR.L 0A010D 30 00 F2 BSR.68K $00F2 ; => $0A001E => $0A056A (NATIVE) 0A0110 37 10 10 00 23 _23d2 $0010, $0023 0A0115 32 12 ADDSP.B $12 0A0117 34 RETURN ; ---------------- End Function $0A00D2 ---------------- ; ---------------- Begin 2144 Function $0A0118 ---------------- ; A0 = $004004; (A0) = SP + $B ; called from $0A4862:$0A49B5 ; called from $0A49BE:$0A49FF ; called from $0A4A6C:$0A4DBE ; called from $0A4A6C:$0A4DED ; called from $0A57D4:$0A57DE ; called from $0A61EA:$0A6358 ; addr bytes opcode operands comment 0A011F 31 1E SUBSP.B $1E 0A0121 40 PUSH.6 $00 0A0122 96 29 WRITE.L $29 0A0124 87 07 READ.F $07 0A0126 30 01 29 BSR.68K $0129 ; => $0A0000 => $002B7E (NATIVE) 0A0129 97 13 WRITE.F $13 0A012B 87 13 READ.F $13 0A012D 3E PUSH.W $0000 0A012E 24 GT.F 0A012F 87 13 READ.F $13 0A0131 3B 47 33 42 61 72 C7 4D 82 PUSH.F $4733426172C74D82 ; float = 99999999999999996863366107917975552.000000 0A013A 03 21 LT.F 0A013C 2C AND.L 0A013D 87 13 READ.F $13 0A013F 3B 38 AA 95 A5 B7 F8 7A 0F PUSH.F $38AA95A5B7F87A0F ; float = 0.000000 0A0148 24 GT.F 0A0149 2C AND.L 0A014A 18 81 BRZ $081 ; => $0A01CD 0A014C 86 0B READ.L $0B 0A014E 96 29 WRITE.L $29 0A0150 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A0159 97 1D WRITE.F $1D 0A015B 41 PUSH.6 $01 0A015C 36 10 14 _2362 $0014 ; A0 = $004000; (A0) = A6 + $0 0A015F 86 0B READ.L $0B 0A0161 38 00 13 BLS.B $0013 ; => $0A0177 0A0164 87 1D READ.F $1D 0A0166 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A016F 22 MUL.F 0A0170 97 1D WRITE.F $1D 0A0172 37 10 14 00 18 _23d2 $0014, $0018 0A0177 87 1D READ.F $1D 0A0179 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A0182 22 MUL.F 0A0183 97 25 WRITE.F $25 0A0185 87 13 READ.F $13 0A0187 87 25 READ.F $25 0A0189 25 GTE.F 0A018A 18 16 BRZ $016 ; => $0A01A2 0A018C 87 13 READ.F $13 0A018E 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A0197 23 DIV.F 0A0198 97 13 WRITE.F $13 0A019A 86 29 READ.L $29 0A019C 41 PUSH.6 $01 0A019D 27 ADD.L 0A019E 96 29 WRITE.L $29 0A01A0 17 E3 BR $-1D ; => $0A0185 0A01A2 87 13 READ.F $13 0A01A4 87 1D READ.F $1D 0A01A6 03 21 LT.F 0A01A8 18 16 BRZ $016 ; => $0A01C0 0A01AA 87 13 READ.F $13 0A01AC 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A01B5 22 MUL.F 0A01B6 97 13 WRITE.F $13 0A01B8 86 29 READ.L $29 0A01BA 41 PUSH.6 $01 0A01BB 28 SUB.L 0A01BC 96 29 WRITE.L $29 0A01BE 17 E2 BR $-1E ; => $0A01A2 0A01C0 87 07 READ.F $07 0A01C2 3E PUSH.W $0000 0A01C3 03 21 LT.F 0A01C5 18 06 BRZ $006 ; => $0A01CD 0A01C7 87 13 READ.F $13 0A01C9 03 20 NEG.W 0A01CB 97 13 WRITE.F $13 0A01CD 87 13 READ.F $13 0A01CF 86 0B READ.L $0B 0A01D1 41 PUSH.6 $01 0A01D2 27 ADD.L 0A01D3 41 PUSH.6 $01 0A01D4 30 01 61 BSR.68K $0161 ; => $0A0076 0A01D7 04 45 PUSH.10 $045 0A01D9 30 01 BE BSR.68K $01BE ; => $0A001E => $0A056A (NATIVE) 0A01DC 86 29 READ.L $29 0A01DE 04 63 PUSH.10 $063 0A01E0 03 25 LT.L 0A01E2 18 0E BRZ $00E ; => $0A01F2 0A01E4 6D PUSH.6 $2D 0A01E5 30 01 CA BSR.68K $01CA ; => $0A001E => $0A056A (NATIVE) 0A01E8 40 PUSH.6 $00 0A01E9 86 29 READ.L $29 0A01EB 28 SUB.L 0A01EC 42 PUSH.6 $02 0A01ED 30 01 BA BSR.68K $01BA ; => $0A0036 0A01F0 10 0A BR $00A ; => $0A01FC 0A01F2 6B PUSH.6 $2B 0A01F3 30 01 D8 BSR.68K $01D8 ; => $0A001E => $0A056A (NATIVE) 0A01F6 86 29 READ.L $29 0A01F8 42 PUSH.6 $02 0A01F9 30 01 C6 BSR.68K $01C6 ; => $0A0036 0A01FC 32 2A ADDSP.B $2A 0A01FE 34 RETURN ; ---------------- End Function $0A0118 ---------------- ; ---------------- Begin 2144 Function $0A0200 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $0A0284:$0A028F ; called from $0A02A8:$0A02B6 ; addr bytes opcode operands comment 0A0207 31 10 SUBSP.B $10 0A0209 87 07 READ.F $07 0A020B 30 02 0E BSR.68K $020E ; => $0A0000 => $002B7E (NATIVE) 0A020E 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A0217 22 MUL.F 0A0218 3B 3D DB 7C DF D9 D7 BD BB PUSH.F $3DDB7CDFD9D7BDBB ; float = 0.000000 0A0221 20 ADD.F 0A0222 97 17 WRITE.F $17 0A0224 87 17 READ.F $17 0A0226 30 02 23 BSR.68K $0223 ; => $0A0006 => $002CA6 (NATIVE) 0A0229 3B 41 2E 84 80 00 00 00 00 PUSH.F $412E848000000000 ; float = 1000000.000000 0A0232 22 MUL.F 0A0233 3B 41 22 4F 80 00 00 00 00 PUSH.F $41224F8000000000 ; float = 600000.000000 0A023C 87 17 READ.F $17 0A023E 30 02 35 BSR.68K $0235 ; => $0A000C => $002C08 (NATIVE) 0A0241 22 MUL.F 0A0242 20 ADD.F 0A0243 30 02 34 BSR.68K $0234 ; => $0A0012 => $002D80 (NATIVE) 0A0246 0C 50 B9 00 10 ?_$0C $50B9, $0010 0A024B 32 18 ADDSP.B $18 0A024D 34 RETURN ; ---------------- End Function $0A0200 ---------------- ; ---------------- Begin 2144 Function $0A024E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A0284:$0A0292 ; called from $0A02A8:$0A02C2 ; addr bytes opcode operands comment 0A0255 31 02 SUBSP.B $02 0A0257 48 PUSH.6 $08 0A0258 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A025B 4F PUSH.6 $0F 0A025C 38 00 22 BLS.B $0022 ; => $0A0281 0A025F 84 00 READ.B $00 0A0261 E0 50 B9 READ.B $50B9 0A0264 70 PUSH.6 $30 0A0265 2D OR.L 0A0266 30 02 4B BSR.68K $024B ; => $0A001E => $0A056A (NATIVE) 0A0269 84 00 READ.B $00 0A026B 49 PUSH.6 $09 0A026C 2A EQ.L 0A026D 18 03 BRZ $003 ; => $0A0272 0A026F 30 02 42 BSR.68K $0242 ; => $0A0030 => $0A0594 (NATIVE) 0A0272 84 00 READ.B $00 0A0274 4B PUSH.6 $0B 0A0275 2A EQ.L 0A0276 18 04 BRZ $004 ; => $0A027C 0A0278 6E PUSH.6 $2E 0A0279 30 02 5E BSR.68K $025E ; => $0A001E => $0A056A (NATIVE) 0A027C 37 10 00 00 26 _23d2 $0000, $0026 0A0281 32 02 ADDSP.B $02 0A0283 34 RETURN ; ---------------- End Function $0A024E ---------------- ; ---------------- Begin 2144 Function $0A0284 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $0A1B88:$0A1BC4 ; called from $0A21CE:$0A221A ; called from $0A262E:$0A265B ; called from $0A4862:$0A4915 ; called from $0A4862:$0A4936 ; called from $0A4A6C:$0A4B45 ; called from $0A4A6C:$0A4D38 ; called from $0A61EA:$0A62BA ; called from $0A61EA:$0A63A5 ; addr bytes opcode operands comment 0A028B 31 12 SUBSP.B $12 0A028D 87 07 READ.F $07 0A028F 30 00 92 BSR.68K $0092 ; => $0A0200 0A0292 30 00 47 BSR.68K $0047 ; => $0A024E 0A0295 87 07 READ.F $07 0A0297 3E PUSH.W $0000 0A0298 03 21 LT.F 0A029A 18 04 BRZ $004 ; => $0A02A0 0A029C 04 53 PUSH.10 $053 0A029E 10 02 BR $002 ; => $0A02A2 0A02A0 04 4E PUSH.10 $04E 0A02A2 30 02 87 BSR.68K $0287 ; => $0A001E => $0A056A (NATIVE) 0A02A5 32 1A ADDSP.B $1A 0A02A7 34 RETURN ; ---------------- End Function $0A0284 ---------------- ; ---------------- Begin 2144 Function $0A02A8 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $0A1B88:$0A1BD1 ; called from $0A21CE:$0A2227 ; called from $0A262E:$0A2668 ; called from $0A4862:$0A491B ; called from $0A4862:$0A493C ; called from $0A4A6C:$0A4B4F ; called from $0A4A6C:$0A4D41 ; called from $0A61EA:$0A62DB ; called from $0A61EA:$0A63C6 ; addr bytes opcode operands comment 0A02AF 31 10 SUBSP.B $10 0A02B1 30 02 90 BSR.68K $0290 ; => $0A0024 => $0A0584 (NATIVE) 0A02B4 87 07 READ.F $07 0A02B6 30 00 B9 BSR.68K $00B9 ; => $0A0200 0A02B9 47 PUSH.6 $07 0A02BA E0 50 B9 READ.B $50B9 0A02BD 70 PUSH.6 $30 0A02BE 2D OR.L 0A02BF 30 02 A4 BSR.68K $02A4 ; => $0A001E => $0A056A (NATIVE) 0A02C2 30 00 77 BSR.68K $0077 ; => $0A024E 0A02C5 87 07 READ.F $07 0A02C7 3E PUSH.W $0000 0A02C8 03 21 LT.F 0A02CA 18 04 BRZ $004 ; => $0A02D0 0A02CC 04 57 PUSH.10 $057 0A02CE 10 02 BR $002 ; => $0A02D2 0A02D0 04 45 PUSH.10 $045 0A02D2 30 02 B7 BSR.68K $02B7 ; => $0A001E => $0A056A (NATIVE) 0A02D5 32 18 ADDSP.B $18 0A02D7 34 RETURN ; ---------------- End Function $0A02A8 ---------------- ; ---------------- Begin 2144 Function $0A02D8 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A03BC:$0A03E7 ; called from $0A042E:$0A047F ; addr bytes opcode operands comment 0A02DF 86 03 READ.L $03 0A02E1 35 SWITCH 0A02E2 10 09 00 CASE $00 ; SWITCH $0A02E1 0A02E5 03 30 03 53 55 4E TRAP1 "SUN" 0A02EB 10 3E BR $03E ; => $0A032B 0A02ED 10 09 01 CASE $01 ; SWITCH $0A02E1 0A02F0 03 30 03 4D 4F 4E TRAP1 "MON" 0A02F6 10 33 BR $033 ; => $0A032B 0A02F8 10 09 02 CASE $02 ; SWITCH $0A02E1 0A02FB 03 30 03 54 55 45 TRAP1 "TUE" 0A0301 10 28 BR $028 ; => $0A032B 0A0303 10 09 03 CASE $03 ; SWITCH $0A02E1 0A0306 03 30 03 57 45 44 TRAP1 "WED" 0A030C 10 1D BR $01D ; => $0A032B 0A030E 10 09 04 CASE $04 ; SWITCH $0A02E1 0A0311 03 30 03 54 48 55 TRAP1 "THU" 0A0317 10 12 BR $012 ; => $0A032B 0A0319 10 09 05 CASE $05 ; SWITCH $0A02E1 0A031C 03 30 03 46 52 49 TRAP1 "FRI" 0A0322 10 07 BR $007 ; => $0A032B 0A0324 00 DEFAULT ; SWITCH $0A02E1 0A0325 03 30 03 53 41 54 TRAP1 "SAT" 0A032B 32 04 ADDSP.B $04 0A032D 34 RETURN ; ---------------- End Function $0A02D8 ---------------- ; ---------------- Begin 2144 Function $0A032E ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A03BC:$0A0401 ; called from $0A042E:$0A0492 ; called from $0A61EA:$0A6A05 ; called from $0A61EA:$0A6A64 ; addr bytes opcode operands comment 0A0335 86 03 READ.L $03 0A0337 35 SWITCH 0A0338 10 09 00 CASE $00 ; SWITCH $0A0337 0A033B 03 30 03 4A 41 4E TRAP1 "JAN" 0A0341 10 75 BR $075 ; => $0A03B8 0A0343 10 09 01 CASE $01 ; SWITCH $0A0337 0A0346 03 30 03 46 45 42 TRAP1 "FEB" 0A034C 10 6A BR $06A ; => $0A03B8 0A034E 10 09 02 CASE $02 ; SWITCH $0A0337 0A0351 03 30 03 4D 41 52 TRAP1 "MAR" 0A0357 10 5F BR $05F ; => $0A03B8 0A0359 10 09 03 CASE $03 ; SWITCH $0A0337 0A035C 03 30 03 41 50 52 TRAP1 "APR" 0A0362 10 54 BR $054 ; => $0A03B8 0A0364 10 09 04 CASE $04 ; SWITCH $0A0337 0A0367 03 30 03 4D 41 59 TRAP1 "MAY" 0A036D 10 49 BR $049 ; => $0A03B8 0A036F 10 09 05 CASE $05 ; SWITCH $0A0337 0A0372 03 30 03 4A 55 4E TRAP1 "JUN" 0A0378 10 3E BR $03E ; => $0A03B8 0A037A 10 09 06 CASE $06 ; SWITCH $0A0337 0A037D 03 30 03 4A 55 4C TRAP1 "JUL" 0A0383 10 33 BR $033 ; => $0A03B8 0A0385 10 09 07 CASE $07 ; SWITCH $0A0337 0A0388 03 30 03 41 55 47 TRAP1 "AUG" 0A038E 10 28 BR $028 ; => $0A03B8 0A0390 10 09 08 CASE $08 ; SWITCH $0A0337 0A0393 03 30 03 53 45 50 TRAP1 "SEP" 0A0399 10 1D BR $01D ; => $0A03B8 0A039B 10 09 09 CASE $09 ; SWITCH $0A0337 0A039E 03 30 03 4F 43 54 TRAP1 "OCT" 0A03A4 10 12 BR $012 ; => $0A03B8 0A03A6 10 09 0A CASE $0A ; SWITCH $0A0337 0A03A9 03 30 03 4E 4F 56 TRAP1 "NOV" 0A03AF 10 07 BR $007 ; => $0A03B8 0A03B1 00 DEFAULT ; SWITCH $0A0337 0A03B2 03 30 03 44 45 43 TRAP1 "DEC" 0A03B8 32 04 ADDSP.B $04 0A03BA 34 RETURN ; ---------------- End Function $0A032E ---------------- ; ---------------- Begin 2144 Function $0A03BC ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $095216:$095281 ; called from $0A4A6C:$0A4B2E ; called from $0A5804:$0A584B ; called from $0A59F6:$0A5A5A ; called from $0A59F6:$0A5CE7 ; called from $0A59F6:$0A5CFD ; called from $0A59F6:$0A5D84 ; called from $0A61EA:$0A623F ; called from $0AA80A:$0AA844 ; called from $0AF50C:$0AF5C5 ; addr bytes opcode operands comment 0A03C3 31 0A SUBSP.B $0A 0A03C5 87 07 READ.F $07 0A03C7 84 08 00 READ.B $08 0A03CA 84 09 00 READ.B $09 0A03CD 84 0A 00 READ.B $0A 0A03D0 84 0B 00 READ.B $0B 0A03D3 84 0C 00 READ.B $0C 0A03D6 84 0D 00 READ.B $0D 0A03D9 84 0E 00 READ.B $0E 0A03DC 84 0F 00 READ.B $0F 0A03DF 85 11 00 READ.W $11 0A03E2 30 03 CD BSR.68K $03CD ; => $0A0018 => $091DF6 0A03E5 84 0B READ.B $0B 0A03E7 30 01 12 BSR.68K $0112 ; => $0A02D8 0A03EA 30 03 C9 BSR.68K $03C9 ; => $0A0024 => $0A0584 (NATIVE) 0A03ED 85 11 READ.W $11 0A03EF 43 PUSH.6 $03 0A03F0 30 03 BD BSR.68K $03BD ; => $0A0036 0A03F3 30 03 D2 BSR.68K $03D2 ; => $0A0024 => $0A0584 (NATIVE) 0A03F6 84 0A READ.B $0A 0A03F8 42 PUSH.6 $02 0A03F9 30 03 C6 BSR.68K $03C6 ; => $0A0036 0A03FC 30 03 D5 BSR.68K $03D5 ; => $0A002A => $0A058C (NATIVE) 0A03FF 84 09 READ.B $09 0A0401 30 00 D6 BSR.68K $00D6 ; => $0A032E 0A0404 30 03 DD BSR.68K $03DD ; => $0A002A => $0A058C (NATIVE) 0A0407 04 55 PUSH.10 $055 0A0409 84 08 READ.B $08 0A040B 27 ADD.L 0A040C 42 PUSH.6 $02 0A040D 30 03 DA BSR.68K $03DA ; => $0A0036 0A0410 30 03 EF BSR.68K $03EF ; => $0A0024 => $0A0584 (NATIVE) 0A0413 84 0C READ.B $0C 0A0415 42 PUSH.6 $02 0A0416 30 03 E3 BSR.68K $03E3 ; => $0A0036 0A0419 30 03 EC BSR.68K $03EC ; => $0A0030 => $0A0594 (NATIVE) 0A041C 84 0D READ.B $0D 0A041E 42 PUSH.6 $02 0A041F 30 03 EC BSR.68K $03EC ; => $0A0036 0A0422 30 03 F5 BSR.68K $03F5 ; => $0A0030 => $0A0594 (NATIVE) 0A0425 84 0E READ.B $0E 0A0427 42 PUSH.6 $02 0A0428 30 03 F5 BSR.68K $03F5 ; => $0A0036 0A042B 32 12 ADDSP.B $12 0A042D 34 RETURN ; ---------------- End Function $0A03BC ---------------- ; ---------------- Begin 2144 Function $0A042E ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A1B88:$0A1BDF ; called from $0A21CE:$0A225D ; called from $0A262E:$0A269E ; addr bytes opcode operands comment 0A0435 31 0A SUBSP.B $0A 0A0437 86 03 READ.L $03 0A0439 3D 00 01 51 80 PUSH.L $00015180 0A043E 29 MUL.L 0A043F 03 2A LONG2FLOAT 0A0441 C3 28 77 READ.F $2877 0A0444 20 ADD.F 0A0445 84 04 00 READ.B $04 0A0448 84 05 00 READ.B $05 0A044B 84 06 00 READ.B $06 0A044E 84 07 00 READ.B $07 0A0451 84 08 00 READ.B $08 0A0454 84 09 00 READ.B $09 0A0457 84 0A 00 READ.B $0A 0A045A 84 0B 00 READ.B $0B 0A045D 85 0D 00 READ.W $0D 0A0460 30 04 4B BSR.68K $044B ; => $0A0018 => $091DF6 0A0463 03 30 0B 4A 55 4C 49 41 4E TRAP1 "JULIAN DAY " 20 44 41 59 20 0A0471 85 0D READ.W $0D 0A0473 43 PUSH.6 $03 0A0474 30 04 41 BSR.68K $0441 ; => $0A0036 0A0477 03 30 03 20 2D 20 TRAP1 " - " 0A047D 84 07 READ.B $07 0A047F 30 01 AA BSR.68K $01AA ; => $0A02D8 0A0482 03 30 01 2F TRAP1 "/" 0A0486 84 06 READ.B $06 0A0488 42 PUSH.6 $02 0A0489 30 04 56 BSR.68K $0456 ; => $0A0036 0A048C 03 30 01 2F TRAP1 "/" 0A0490 84 05 READ.B $05 0A0492 30 01 67 BSR.68K $0167 ; => $0A032E 0A0495 03 30 01 2F TRAP1 "/" 0A0499 04 55 PUSH.10 $055 0A049B 84 04 READ.B $04 0A049D 27 ADD.L 0A049E 42 PUSH.6 $02 0A049F 30 04 6C BSR.68K $046C ; => $0A0036 0A04A2 03 30 0C 20 2D 20 47 50 53 TRAP1 " - GPS WEEK " 20 57 45 45 4B 20 0A04B1 86 03 READ.L $03 0A04B3 47 PUSH.6 $07 0A04B4 03 24 DIV.L 0A04B6 43 PUSH.6 $03 0A04B7 30 04 84 BSR.68K $0484 ; => $0A0036 0A04BA 32 0E ADDSP.B $0E 0A04BC 34 RETURN ; ---------------- End Function $0A042E ---------------- ; ---------------- Begin 2144 Function $0A0648 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000E66:$000F29 ; called from $092FFE:$093084 ; called from $09308E:$09310E ; called from $0AF634:$0AF687 ; addr bytes opcode operands comment 0A064F 31 02 SUBSP.B $02 0A0651 40 PUSH.6 $00 0A0652 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A0655 C0 35 92 READ.B $3592 0A0658 18 07 BRZ $007 ; => $0A0661 0A065A C0 35 92 READ.B $3592 0A065D 41 PUSH.6 $01 0A065E 28 SUB.L 0A065F 10 03 BR $003 ; => $0A0664 0A0661 C0 29 9A READ.B $299A 0A0664 38 00 34 BLS.B $0034 ; => $0A069B 0A0667 84 00 READ.B $00 0A0669 E0 60 29 READ.B $6029 0A066C 18 28 BRZ $028 ; => $0A0696 0A066E 84 00 READ.B $00 0A0670 D0 51 00 WRITE.B $5100 0A0673 C0 29 10 READ.B $2910 0A0676 D0 51 41 WRITE.B $5141 0A0679 41 PUSH.6 $01 0A067A D0 51 40 WRITE.B $5140 0A067D 40 PUSH.6 $00 0A067E D0 51 3F WRITE.B $513F 0A0681 68 PUSH.6 $28 0A0682 D0 51 3E WRITE.B $513E 0A0685 50 PUSH.6 $10 0A0686 D0 51 3D WRITE.B $513D 0A0689 54 PUSH.6 $14 0A068A D0 51 3C WRITE.B $513C 0A068D 40 PUSH.6 $00 0A068E D0 51 3B WRITE.B $513B 0A0691 42 PUSH.6 $02 0A0692 47 PUSH.6 $07 0A0693 30 00 6C BSR.68K $006C ; => $0A062A => $094D8E 0A0696 37 10 00 00 46 _23d2 $0000, $0046 0A069B 30 00 62 BSR.68K $0062 ; => $0A063C => $000C28 (NATIVE) 0A069E 32 02 ADDSP.B $02 0A06A0 34 RETURN ; ---------------- End Function $0A0648 ---------------- ; ---------------- Begin 2144 Function $0A06A2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A081C:$0A0825 ; addr bytes opcode operands comment 0A06A9 31 06 SUBSP.B $06 0A06AB 40 PUSH.6 $00 0A06AC 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A06AF C0 29 9B READ.B $299B 0A06B2 38 00 55 BLS.B $0055 ; => $0A070A 0A06B5 84 00 READ.B $00 0A06B7 E0 60 29 READ.B $6029 0A06BA 18 49 BRZ $049 ; => $0A0705 0A06BC 84 00 READ.B $00 0A06BE D0 51 00 WRITE.B $5100 0A06C1 84 00 READ.B $00 0A06C3 E3 41 49 READ.F $4149 0A06C6 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A06CF 20 ADD.F 0A06D0 03 29 FLOAT2LONG 0A06D2 94 05 WRITE.B $05 0A06D4 84 05 READ.B $05 0A06D6 44 PUSH.6 $04 0A06D7 03 26 GT.L 0A06D9 84 05 READ.B $05 0A06DB 68 PUSH.6 $28 0A06DC 03 25 LT.L 0A06DE 2D OR.L 0A06DF 18 03 BRZ $003 ; => $0A06E4 0A06E1 4F PUSH.6 $0F 0A06E2 94 05 WRITE.B $05 0A06E4 42 PUSH.6 $02 0A06E5 84 05 READ.B $05 0A06E7 29 MUL.L 0A06E8 94 02 WRITE.B $02 0A06EA 4C PUSH.6 $0C 0A06EB 94 03 WRITE.B $03 0A06ED 04 F0 PUSH.10 $0F0 0A06EF 94 04 WRITE.B $04 0A06F1 84 03 READ.B $03 0A06F3 D0 51 41 WRITE.B $5141 0A06F6 84 02 READ.B $02 0A06F8 D0 51 40 WRITE.B $5140 0A06FB 84 04 READ.B $04 0A06FD D0 51 3F WRITE.B $513F 0A0700 58 PUSH.6 $18 0A0701 43 PUSH.6 $03 0A0702 30 00 DB BSR.68K $00DB ; => $0A062A => $094D8E 0A0705 37 10 00 00 5B _23d2 $0000, $005B 0A070A 32 06 ADDSP.B $06 0A070C 34 RETURN ; ---------------- End Function $0A06A2 ---------------- ; ---------------- Begin 2144 Function $0A070E ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A081C:$0A0848 ; addr bytes opcode operands comment 0A0715 31 18 SUBSP.B $18 0A0717 86 03 READ.L $03 0A0719 D0 51 00 WRITE.B $5100 0A071C C1 29 95 READ.W $2995 0A071F 3C 80 00 PUSH.W $8000 0A0722 2C AND.L 0A0723 3C 80 00 PUSH.W $8000 0A0726 2A EQ.L 0A0727 18 0D BRZ $00D ; => $0A0736 0A0729 3B 40 81 7E 4C 2F C6 97 29 PUSH.F $40817E4C2FC69729 ; float = 559.787201 0A0732 97 19 WRITE.F $19 0A0734 10 0B BR $00B ; => $0A0741 0A0736 3B 40 71 7E 4C 2F D4 03 22 PUSH.F $40717E4C2FD40322 ; float = 279.893600 0A073F 97 19 WRITE.F $19 0A0741 C0 54 2C READ.B $542C 0A0744 18 0A BRZ $00A ; => $0A0750 0A0746 4A PUSH.6 $0A 0A0747 87 19 READ.F $19 0A0749 03 29 FLOAT2LONG 0A074B 29 MUL.L 0A074C 95 09 WRITE.W $09 0A074E 10 47 BR $047 ; => $0A0797 0A0750 86 03 READ.L $03 0A0752 C0 29 A0 READ.B $29A0 0A0755 28 SUB.L 0A0756 E3 59 E7 READ.F $59E7 0A0759 3B 3F 8D F8 6E 3B 46 FD EB PUSH.F $3F8DF86E3B46FDEB ; float = 0.014634 0A0762 03 20 NEG.W 0A0764 24 GT.F 0A0765 18 05 BRZ $005 ; => $0A076C 0A0767 40 PUSH.6 $00 0A0768 95 09 WRITE.W $09 0A076A 10 2B BR $02B ; => $0A0797 0A076C 86 03 READ.L $03 0A076E C0 29 A0 READ.B $29A0 0A0771 28 SUB.L 0A0772 E3 59 E7 READ.F $59E7 0A0775 30 01 54 BSR.68K $0154 ; => $0A0624 => $002B7E (NATIVE) 0A0778 87 19 READ.F $19 0A077A 22 MUL.F 0A077B 97 11 WRITE.F $11 0A077D 87 11 READ.F $11 0A077F 3B 3F F8 EF 60 6A 45 65 87 PUSH.F $3FF8EF606A456587 ; float = 1.558442 0A0788 22 MUL.F 0A0789 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A0792 20 ADD.F 0A0793 03 29 FLOAT2LONG 0A0795 95 09 WRITE.W $09 0A0797 41 PUSH.6 $01 0A0798 95 1B WRITE.W $1B 0A079A 86 03 READ.L $03 0A079C E3 41 49 READ.F $4149 0A079F 3B 40 00 00 00 00 00 00 00 PUSH.F $4000000000000000 ; float = 2.000000 0A07A8 25 GTE.F 0A07A9 18 15 BRZ $015 ; => $0A07C0 0A07AB C1 29 95 READ.W $2995 0A07AE 3C 80 00 PUSH.W $8000 0A07B1 2C AND.L 0A07B2 3C 80 00 PUSH.W $8000 0A07B5 2A EQ.L 0A07B6 18 03 BRZ $003 ; => $0A07BB 0A07B8 48 PUSH.6 $08 0A07B9 10 01 BR $001 ; => $0A07BC 0A07BB 49 PUSH.6 $09 0A07BC 94 06 WRITE.B $06 0A07BE 10 2B BR $02B ; => $0A07EB 0A07C0 86 03 READ.L $03 0A07C2 E3 41 49 READ.F $4149 0A07C5 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A07CE 24 GT.F 0A07CF 18 15 BRZ $015 ; => $0A07E6 0A07D1 C1 29 95 READ.W $2995 0A07D4 3C 80 00 PUSH.W $8000 0A07D7 2C AND.L 0A07D8 3C 80 00 PUSH.W $8000 0A07DB 2A EQ.L 0A07DC 18 03 BRZ $003 ; => $0A07E1 0A07DE 47 PUSH.6 $07 0A07DF 10 01 BR $001 ; => $0A07E2 0A07E1 48 PUSH.6 $08 0A07E2 94 06 WRITE.B $06 0A07E4 10 05 BR $005 ; => $0A07EB 0A07E6 C0 59 96 READ.B $5996 0A07E9 94 06 WRITE.B $06 0A07EB C0 59 97 READ.B $5997 0A07EE D0 51 41 WRITE.B $5141 0A07F1 84 06 READ.B $06 0A07F3 D0 51 40 WRITE.B $5140 0A07F6 85 09 READ.W $09 0A07F8 05 00 PUSH.10 $100 0A07FA 03 24 DIV.L 0A07FC D0 51 3F WRITE.B $513F 0A07FF 85 09 READ.W $09 0A0801 D0 51 3E WRITE.B $513E 0A0804 C1 59 E9 READ.W $59E9 0A0807 05 00 PUSH.10 $100 0A0809 03 24 DIV.L 0A080B D0 51 3D WRITE.B $513D 0A080E C1 59 E9 READ.W $59E9 0A0811 D0 51 3C WRITE.B $513C 0A0814 5D PUSH.6 $1D 0A0815 4A PUSH.6 $0A 0A0816 30 01 EF BSR.68K $01EF ; => $0A062A => $094D8E 0A0819 32 1C ADDSP.B $1C 0A081B 34 RETURN ; ---------------- End Function $0A070E ---------------- ; ---------------- Begin 2144 Function $0A081C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7D9 ; addr bytes opcode operands comment 0A0823 31 02 SUBSP.B $02 0A0825 30 01 86 BSR.68K $0186 ; => $0A06A2 0A0828 C0 29 9C READ.B $299C 0A082B C0 35 92 READ.B $3592 0A082E 40 PUSH.6 $00 0A082F 2A EQ.L 0A0830 2C AND.L 0A0831 18 1D BRZ $01D ; => $0A0850 0A0833 C0 29 A0 READ.B $29A0 0A0836 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A0839 C0 29 9A READ.B $299A 0A083C 38 00 11 BLS.B $0011 ; => $0A0850 0A083F 84 00 READ.B $00 0A0841 E0 60 29 READ.B $6029 0A0844 18 05 BRZ $005 ; => $0A084B 0A0846 84 00 READ.B $00 0A0848 30 01 3D BSR.68K $013D ; => $0A070E 0A084B 37 10 00 00 17 _23d2 $0000, $0017 0A0850 32 02 ADDSP.B $02 0A0852 34 RETURN ; ---------------- End Function $0A081C ---------------- ; ---------------- Begin 2144 Function $0A0854 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7F1 ; addr bytes opcode operands comment 0A085B 31 02 SUBSP.B $02 0A085D C0 35 92 READ.B $3592 0A0860 40 PUSH.6 $00 0A0861 2A EQ.L 0A0862 18 44 BRZ $044 ; => $0A08A8 0A0864 C0 29 92 READ.B $2992 0A0867 2E NOT.L 0A0868 C0 54 2C READ.B $542C 0A086B 2D OR.L 0A086C C0 4E 71 READ.B $4E71 0A086F 2D OR.L 0A0870 18 36 BRZ $036 ; => $0A08A8 0A0872 40 PUSH.6 $00 0A0873 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A0876 C0 29 9A READ.B $299A 0A0879 38 00 2C BLS.B $002C ; => $0A08A8 0A087C 84 00 READ.B $00 0A087E E0 60 29 READ.B $6029 0A0881 84 00 READ.B $00 0A0883 E0 40 09 READ.B $4009 0A0886 2C AND.L 0A0887 18 1A BRZ $01A ; => $0A08A3 0A0889 84 00 READ.B $00 0A088B D0 51 00 WRITE.B $5100 0A088E 84 00 READ.B $00 0A0890 E0 4B 87 READ.B $4B87 0A0893 D0 51 41 WRITE.B $5141 0A0896 84 00 READ.B $00 0A0898 E0 4B 9B READ.B $4B9B 0A089B D0 51 40 WRITE.B $5140 0A089E 59 PUSH.6 $19 0A089F 42 PUSH.6 $02 0A08A0 30 02 79 BSR.68K $0279 ; => $0A062A => $094D8E 0A08A3 37 10 00 00 32 _23d2 $0000, $0032 0A08A8 32 02 ADDSP.B $02 0A08AA 34 RETURN ; ---------------- End Function $0A0854 ---------------- ; ---------------- Begin 2144 Function $0A08AC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000E66:$000F09 ; called from $0A0A50:$0A0A57 ; called from $0A96E2:$0A974B ; addr bytes opcode operands comment 0A08B3 31 02 SUBSP.B $02 0A08B5 54 PUSH.6 $14 0A08B6 D0 4E 51 WRITE.B $4E51 0A08B9 40 PUSH.6 $00 0A08BA D0 29 2C WRITE.B $292C 0A08BD 40 PUSH.6 $00 0A08BE D0 55 A2 WRITE.B $55A2 0A08C1 04 FF PUSH.10 $0FF 0A08C3 D0 67 EC WRITE.B $67EC 0A08C6 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A08CF D3 28 DB WRITE.F $28DB 0A08D2 40 PUSH.6 $00 0A08D3 D0 29 11 WRITE.B $2911 0A08D6 04 FF PUSH.10 $0FF 0A08D8 D0 28 FF WRITE.B $28FF 0A08DB 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A08E4 D3 28 F5 WRITE.F $28F5 0A08E7 40 PUSH.6 $00 0A08E8 D1 29 0F WRITE.W $290F 0A08EB 04 FF PUSH.10 $0FF 0A08ED D0 29 75 WRITE.B $2975 0A08F0 40 PUSH.6 $00 0A08F1 D0 56 5E WRITE.B $565E 0A08F4 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A08FD D3 28 FD WRITE.F $28FD 0A0900 3E PUSH.W $0000 0A0901 D3 01 17 WRITE.F $0117 0A0904 3E PUSH.W $0000 0A0905 D3 55 F5 WRITE.F $55F5 0A0908 04 FF PUSH.10 $0FF 0A090A D0 28 A9 WRITE.B $28A9 0A090D 41 PUSH.6 $01 0A090E 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A0911 60 PUSH.6 $20 0A0912 38 00 0B BLS.B $000B ; => $0A0920 0A0915 84 00 READ.B $00 0A0917 40 PUSH.6 $00 0A0918 F0 55 A1 WRITE.B $55A1 0A091B 37 10 00 00 0F _23d2 $0000, $000F 0A0920 42 PUSH.6 $02 0A0921 D0 54 2C WRITE.B $542C 0A0924 3E PUSH.W $0000 0A0925 D3 54 35 WRITE.F $5435 0A0928 40 PUSH.6 $00 0A0929 D1 54 37 WRITE.W $5437 0A092C 72 PUSH.6 $32 0A092D D1 33 DB WRITE.W $33DB 0A0930 04 FF PUSH.10 $0FF 0A0932 D0 50 9F WRITE.B $509F 0A0935 40 PUSH.6 $00 0A0936 D0 50 A0 WRITE.B $50A0 0A0939 C0 29 9C READ.B $299C 0A093C 18 03 BRZ $003 ; => $0A0941 0A093E 30 03 0B BSR.68K $030B ; => $0A0636 => $092FFE 0A0941 40 PUSH.6 $00 0A0942 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A0945 42 PUSH.6 $02 0A0946 38 00 17 BLS.B $0017 ; => $0A0960 0A0949 84 00 READ.B $00 0A094B 3E PUSH.W $0000 0A094C F3 50 E1 WRITE.F $50E1 0A094F 84 00 READ.B $00 0A0951 3E PUSH.W $0000 0A0952 F3 50 F9 WRITE.F $50F9 0A0955 84 00 READ.B $00 0A0957 40 PUSH.6 $00 0A0958 F0 50 FD WRITE.B $50FD 0A095B 37 10 00 00 1B _23d2 $0000, $001B 0A0960 C0 35 4D READ.B $354D 0A0963 40 PUSH.6 $00 0A0964 2A EQ.L 0A0965 C0 35 4D READ.B $354D 0A0968 46 PUSH.6 $06 0A0969 2A EQ.L 0A096A 2D OR.L 0A096B 18 79 BRZ $079 ; => $0A09E6 0A096D 3B 40 1C 00 00 00 00 00 00 PUSH.F $401C000000000000 ; float = 7.000000 0A0976 D3 28 ED WRITE.F $28ED 0A0979 43 PUSH.6 $03 0A097A D0 28 E4 WRITE.B $28E4 0A097D 44 PUSH.6 $04 0A097E D0 29 0C WRITE.B $290C 0A0981 43 PUSH.6 $03 0A0982 D0 29 0D WRITE.B $290D 0A0985 04 FF PUSH.10 $0FF 0A0987 D0 35 7C WRITE.B $357C 0A098A 04 FF PUSH.10 $0FF 0A098C D0 29 36 WRITE.B $2936 0A098F 04 FF PUSH.10 $0FF 0A0991 D0 29 37 WRITE.B $2937 0A0994 04 FF PUSH.10 $0FF 0A0996 D0 28 FE WRITE.B $28FE 0A0999 04 FF PUSH.10 $0FF 0A099B D0 28 A8 WRITE.B $28A8 0A099E 04 FF PUSH.10 $0FF 0A09A0 D0 28 AA WRITE.B $28AA 0A09A3 04 FF PUSH.10 $0FF 0A09A5 D0 29 00 WRITE.B $2900 0A09A8 41 PUSH.6 $01 0A09A9 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A09AC 60 PUSH.6 $20 0A09AD 38 00 11 BLS.B $0011 ; => $0A09C1 0A09B0 84 00 READ.B $00 0A09B2 40 PUSH.6 $00 0A09B3 F0 22 D3 WRITE.B $22D3 0A09B6 84 00 READ.B $00 0A09B8 40 PUSH.6 $00 0A09B9 F0 22 F5 WRITE.B $22F5 0A09BC 37 10 00 00 15 _23d2 $0000, $0015 0A09C1 41 PUSH.6 $01 0A09C2 D0 29 59 WRITE.B $2959 0A09C5 40 PUSH.6 $00 0A09C6 D0 29 5A WRITE.B $295A 0A09C9 40 PUSH.6 $00 0A09CA D0 29 5B WRITE.B $295B 0A09CD 40 PUSH.6 $00 0A09CE D0 4E 94 WRITE.B $4E94 0A09D1 40 PUSH.6 $00 0A09D2 D0 29 64 WRITE.B $2964 0A09D5 40 PUSH.6 $00 0A09D6 D0 4F 98 WRITE.B $4F98 0A09D9 40 PUSH.6 $00 0A09DA D0 29 6E WRITE.B $296E 0A09DD 40 PUSH.6 $00 0A09DE D0 29 73 WRITE.B $2973 0A09E1 04 FF PUSH.10 $0FF 0A09E3 D0 29 74 WRITE.B $2974 0A09E6 C0 29 8B READ.B $298B 0A09E9 04 80 PUSH.10 $080 0A09EB 2C AND.L 0A09EC 18 5F BRZ $05F ; => $0A0A4D 0A09EE 04 FF PUSH.10 $0FF 0A09F0 D0 29 11 WRITE.B $2911 0A09F3 43 PUSH.6 $03 0A09F4 D0 29 12 WRITE.B $2912 0A09F7 3E PUSH.W $0000 0A09F8 D3 28 DB WRITE.F $28DB 0A09FB 40 PUSH.6 $00 0A09FC D0 28 FF WRITE.B $28FF 0A09FF 43 PUSH.6 $03 0A0A00 D0 29 0B WRITE.B $290B 0A0A03 41 PUSH.6 $01 0A0A04 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A0A07 49 PUSH.6 $09 0A0A08 38 00 0B BLS.B $000B ; => $0A0A16 0A0A0B 84 00 READ.B $00 0A0A0D 40 PUSH.6 $00 0A0A0E F0 29 0B WRITE.B $290B 0A0A11 37 10 00 00 0F _23d2 $0000, $000F 0A0A16 41 PUSH.6 $01 0A0A17 D0 29 2C WRITE.B $292C 0A0A1A 3B 3F CA 97 26 01 9C 62 4C PUSH.F $3FCA9726019C624C ; float = 0.207738 0A0A23 D3 29 1B WRITE.F $291B 0A0A26 3B 3F E5 B2 14 3D 01 70 CC PUSH.F $3FE5B2143D0170CC ; float = 0.677988 0A0A2F 03 20 NEG.W 0A0A31 D3 29 23 WRITE.F $2923 0A0A34 40 PUSH.6 $00 0A0A35 D0 28 A8 WRITE.B $28A8 0A0A38 40 PUSH.6 $00 0A0A39 D0 28 AA WRITE.B $28AA 0A0A3C 40 PUSH.6 $00 0A0A3D D0 28 A9 WRITE.B $28A9 0A0A40 40 PUSH.6 $00 0A0A41 D0 29 00 WRITE.B $2900 0A0A44 04 FF PUSH.10 $0FF 0A0A46 D0 4E 69 WRITE.B $4E69 0A0A49 4A PUSH.6 $0A 0A0A4A D1 33 D9 WRITE.W $33D9 0A0A4D 32 02 ADDSP.B $02 0A0A4F 34 RETURN ; ---------------- End Function $0A08AC ---------------- ; ---------------- Begin 2144 Function $0A0A50 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000E66:$000EFA ; addr bytes opcode operands comment 0A0A57 30 01 AE BSR.68K $01AE ; => $0A08AC 0A0A5A 04 FF PUSH.10 $0FF 0A0A5C D0 29 58 WRITE.B $2958 0A0A5F 04 4E PUSH.10 $04E 0A0A61 D0 35 44 WRITE.B $3544 0A0A64 04 57 PUSH.10 $057 0A0A66 D0 35 45 WRITE.B $3545 0A0A69 C0 29 93 READ.B $2993 0A0A6C 18 03 BRZ $003 ; => $0A0A71 0A0A6E 4A PUSH.6 $0A 0A0A6F 10 02 BR $002 ; => $0A0A73 0A0A71 04 64 PUSH.10 $064 0A0A73 D1 33 D9 WRITE.W $33D9 0A0A76 72 PUSH.6 $32 0A0A77 D1 33 DB WRITE.W $33DB 0A0A7A 3C FF FF PUSH.W $FFFF 0A0A7D D1 35 95 WRITE.W $3595 0A0A80 83 37 READ.F $37 0A0A82 83 3F READ.F $3F 0A0A84 83 47 READ.F $47 0A0A86 30 04 47 BSR.68K $0447 ; => $0A0642 => $0AA734 0A0A89 04 FF PUSH.10 $0FF 0A0A8B D0 29 8A WRITE.B $298A 0A0A8E 34 RETURN ; ---------------- End Function $0A0A50 ---------------- ; ---------------- Begin 2144 Function $0A0AC0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $091958:$091988 ; called from $0959BE:$095A84 ; called from $09A5EA:$09A636 ; called from $09D5C2:$09D5D1 ; called from $09D650:$09D70F ; addr bytes opcode operands comment 0A0AC7 30 00 3A BSR.68K $003A ; => $0A0A90 => $099642 0A0ACA 51 PUSH.6 $11 0A0ACB 90 26 WRITE.B $26 0A0ACD 30 00 16 BSR.68K $0016 ; => $0A0ABA => $0034AA (CLEARSCREEN) (NATIVE) 0A0AD0 40 PUSH.6 $00 0A0AD1 3F 10 20 45 4E 54 45 52 20 DISP " ENTER PASSWORD " 50 41 53 53 57 4F 52 44 20 0A0AE3 34 RETURN ; ---------------- End Function $0A0AC0 ---------------- ; ---------------- Begin 2144 Function $0A0AE4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DA6C ; addr bytes opcode operands comment 0A0AEB 31 02 SUBSP.B $02 0A0AED 80 20 READ.B $20 0A0AEF 42 PUSH.6 $02 0A0AF0 2A EQ.L 0A0AF1 18 05 BRZ $005 ; => $0A0AF8 0A0AF3 40 PUSH.6 $00 0A0AF4 90 21 WRITE.B $21 0A0AF6 10 FB BR $0FB ; => $0A0BF3 0A0AF8 30 00 65 BSR.68K $0065 ; => $0A0A96 => $09DFB4 0A0AFB 94 00 WRITE.B $00 0A0AFD 80 26 READ.B $26 0A0AFF 55 PUSH.6 $15 0A0B00 2A EQ.L 0A0B01 18 F0 BRZ $0F0 ; => $0A0BF3 0A0B03 51 PUSH.6 $11 0A0B04 54 PUSH.6 $14 0A0B05 30 00 6C BSR.68K $006C ; => $0A0A9C => $09E02C 0A0B08 3B 40 90 D4 00 00 00 00 00 PUSH.F $4090D40000000000 ; float = 1077.000000 0A0B11 26 EQ.F 0A0B12 18 50 BRZ $050 ; => $0A0B64 0A0B14 C0 29 58 READ.B $2958 0A0B17 40 PUSH.6 $00 0A0B18 2A EQ.L 0A0B19 18 2B BRZ $02B ; => $0A0B46 0A0B1B 04 FF PUSH.10 $0FF 0A0B1D D0 29 58 WRITE.B $2958 0A0B20 80 21 READ.B $21 0A0B22 35 SWITCH 0A0B23 10 06 1F CASE $1F ; SWITCH $0A0B22 0A0B26 30 00 75 BSR.68K $0075 ; => $0A0AB4 => $0959BE 0A0B29 10 19 BR $019 ; => $0A0B44 0A0B2B 10 06 3A CASE $3A ; SWITCH $0A0B22 0A0B2E 30 00 8F BSR.68K $008F ; => $0A0AA2 => $09D650 0A0B31 10 11 BR $011 ; => $0A0B44 0A0B33 10 06 22 CASE $22 ; SWITCH $0A0B22 0A0B36 30 00 8B BSR.68K $008B ; => $0A0AAE => $091958 0A0B39 10 09 BR $009 ; => $0A0B44 0A0B3B 10 06 42 CASE $42 ; SWITCH $0A0B22 0A0B3E 30 00 99 BSR.68K $0099 ; => $0A0AA8 => $09A5EA 0A0B41 10 01 BR $001 ; => $0A0B44 0A0B43 00 DEFAULT ; SWITCH $0A0B22 0A0B44 10 1C BR $01C ; => $0A0B62 0A0B46 40 PUSH.6 $00 0A0B47 D0 29 58 WRITE.B $2958 0A0B4A 30 00 93 BSR.68K $0093 ; => $0A0ABA => $0034AA (CLEARSCREEN) (NATIVE) 0A0B4D 40 PUSH.6 $00 0A0B4E 3F 0F 4B 45 59 42 4F 41 52 DISP "KEYBOARD LOCKED" 44 20 4C 4F 43 4B 45 44 0A0B5F 4C PUSH.6 $0C 0A0B60 90 21 WRITE.B $21 0A0B62 10 8F BR $08F ; => $0A0BF3 0A0B64 C0 4E 69 READ.B $4E69 0A0B67 51 PUSH.6 $11 0A0B68 54 PUSH.6 $14 0A0B69 30 00 D0 BSR.68K $00D0 ; => $0A0A9C => $09E02C 0A0B6C 3B 40 93 2C 00 00 00 00 00 PUSH.F $40932C0000000000 ; float = 1227.000000 0A0B75 26 EQ.F 0A0B76 2C AND.L 0A0B77 18 43 BRZ $043 ; => $0A0BBC 0A0B79 04 FF PUSH.10 $0FF 0A0B7B D0 29 11 WRITE.B $2911 0A0B7E 40 PUSH.6 $00 0A0B7F D0 28 FF WRITE.B $28FF 0A0B82 04 FF PUSH.10 $0FF 0A0B84 D0 4E 70 WRITE.B $4E70 0A0B87 40 PUSH.6 $00 0A0B88 D0 28 A8 WRITE.B $28A8 0A0B8B 40 PUSH.6 $00 0A0B8C D0 28 AA WRITE.B $28AA 0A0B8F 40 PUSH.6 $00 0A0B90 D0 28 A9 WRITE.B $28A9 0A0B93 40 PUSH.6 $00 0A0B94 D0 29 00 WRITE.B $2900 0A0B97 40 PUSH.6 $00 0A0B98 3F 20 20 55 53 45 20 53 49 DISP " USE SIMULATOR - NOT REAL SVS " 4D 55 4C 41 54 4F 52 20 2D 20 4E 4F 54 20 52 45 41 4C 20 53 56 53 20 20 20 0A0BBA 10 34 BR $034 ; => $0A0BF0 0A0BBC 40 PUSH.6 $00 0A0BBD 3F 20 20 20 20 49 4E 43 4F DISP " INCORRECT PASSWORD " 52 52 45 43 54 20 20 20 20 20 20 20 50 41 53 53 57 4F 52 44 20 20 20 20 20 0A0BDF 40 PUSH.6 $00 0A0BE0 D0 4E 69 WRITE.B $4E69 0A0BE3 C0 4E 70 READ.B $4E70 0A0BE6 18 08 BRZ $008 ; => $0A0BF0 0A0BE8 40 PUSH.6 $00 0A0BE9 D0 4E 70 WRITE.B $4E70 0A0BEC 42 PUSH.6 $02 0A0BED D0 55 70 WRITE.B $5570 0A0BF0 4C PUSH.6 $0C 0A0BF1 90 21 WRITE.B $21 0A0BF3 32 02 ADDSP.B $02 0A0BF5 34 RETURN ; ---------------- End Function $0A0AE4 ---------------- ; ---------------- Begin 2144 Function $0A0C6E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $092E8E:$092FC6 ; called from $0A0EB6:$0A0EFB ; addr bytes opcode operands comment 0A0C75 31 04 SUBSP.B $04 0A0C77 40 PUSH.6 $00 0A0C78 D0 47 76 WRITE.B $4776 0A0C7B 40 PUSH.6 $00 0A0C7C 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A0C7F C0 29 9B READ.B $299B 0A0C82 38 00 A5 BLS.B $00A5 ; => $0A0D2A 0A0C85 84 00 READ.B $00 0A0C87 E0 60 29 READ.B $6029 0A0C8A 18 99 BRZ $099 ; => $0A0D25 0A0C8C 84 00 READ.B $00 0A0C8E E0 40 09 READ.B $4009 0A0C91 94 02 WRITE.B $02 0A0C93 84 00 READ.B $00 0A0C95 E0 44 23 READ.B $4423 0A0C98 84 02 READ.B $02 0A0C9A 30 00 53 BSR.68K $0053 ; => $0A0C4A => $095184 0A0C9D 2C AND.L 0A0C9E 84 02 READ.B $02 0A0CA0 E0 02 29 READ.B $0229 0A0CA3 40 PUSH.6 $00 0A0CA4 2A EQ.L 0A0CA5 84 02 READ.B $02 0A0CA7 E0 22 F5 READ.B $22F5 0A0CAA 2D OR.L 0A0CAB 2C AND.L 0A0CAC 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A0CB5 84 00 READ.B $00 0A0CB7 E3 43 29 READ.F $4329 0A0CBA 22 MUL.F 0A0CBB C3 28 DB READ.F $28DB 0A0CBE 24 GT.F 0A0CBF C0 67 EC READ.B $67EC 0A0CC2 2D OR.L 0A0CC3 2C AND.L 0A0CC4 84 00 READ.B $00 0A0CC6 E3 48 17 READ.F $4817 0A0CC9 C0 28 E4 READ.B $28E4 0A0CCC 03 2A LONG2FLOAT 0A0CCE 03 22 LTE.F 0A0CD0 C0 28 A9 READ.B $28A9 0A0CD3 2E NOT.L 0A0CD4 2D OR.L 0A0CD5 2C AND.L 0A0CD6 84 02 READ.B $02 0A0CD8 30 00 8B BSR.68K $008B ; => $0A0C50 => $0A9C46 0A0CDB 2C AND.L 0A0CDC C0 67 EC READ.B $67EC 0A0CDF 2E NOT.L 0A0CE0 84 00 READ.B $00 0A0CE2 30 00 83 BSR.68K $0083 ; => $0A0C62 => $090B50 0A0CE5 2D OR.L 0A0CE6 2C AND.L 0A0CE7 84 00 READ.B $00 0A0CE9 E3 41 49 READ.F $4149 0A0CEC 3B 40 14 00 00 00 00 00 00 PUSH.F $4014000000000000 ; float = 5.000000 0A0CF5 25 GTE.F 0A0CF6 40 PUSH.6 $00 0A0CF7 4A PUSH.6 $0A 0A0CF8 29 MUL.L 0A0CF9 84 00 READ.B $00 0A0CFB 27 ADD.L 0A0CFC E0 63 A1 READ.B $63A1 0A0CFF 2D OR.L 0A0D00 2C AND.L 0A0D01 94 01 WRITE.B $01 0A0D03 84 01 READ.B $01 0A0D05 18 08 BRZ $008 ; => $0A0D0F 0A0D07 C0 47 76 READ.B $4776 0A0D0A 41 PUSH.6 $01 0A0D0B 27 ADD.L 0A0D0C D0 47 76 WRITE.B $4776 0A0D0F 84 00 READ.B $00 0A0D11 E0 47 75 READ.B $4775 0A0D14 84 01 READ.B $01 0A0D16 2B NEQ.L 0A0D17 18 0C BRZ $00C ; => $0A0D25 0A0D19 84 00 READ.B $00 0A0D1B 84 01 READ.B $01 0A0D1D F0 47 75 WRITE.B $4775 0A0D20 04 FF PUSH.10 $0FF 0A0D22 D0 59 EA WRITE.B $59EA 0A0D25 37 10 00 00 AB _23d2 $0000, $00AB 0A0D2A 32 04 ADDSP.B $04 0A0D2C 34 RETURN ; ---------------- End Function $0A0C6E ---------------- ; ---------------- Begin 2144 Function $0A0D2E ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A0EB6:$0A0FED ; addr bytes opcode operands comment 0A0D35 31 10 SUBSP.B $10 0A0D37 C1 29 FD READ.W $29FD 0A0D3A 3D 00 09 3A 80 PUSH.L $00093A80 0A0D3F 29 MUL.L 0A0D40 03 2A LONG2FLOAT 0A0D42 C0 47 6B READ.B $476B 0A0D45 E3 46 B7 READ.F $46B7 0A0D48 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 0A0D51 22 MUL.F 0A0D52 20 ADD.F 0A0D53 D3 01 1F WRITE.F $011F 0A0D56 40 PUSH.6 $00 0A0D57 D0 56 60 WRITE.B $5660 0A0D5A 30 01 43 BSR.68K $0143 ; => $0A0C1A => $0A869C 0A0D5D C3 01 17 READ.F $0117 0A0D60 C3 28 FD READ.F $28FD 0A0D63 25 GTE.F 0A0D64 18 04 BRZ $004 ; => $0A0D6A 0A0D66 3E PUSH.W $0000 0A0D67 D3 01 17 WRITE.F $0117 0A0D6A C3 01 17 READ.F $0117 0A0D6D 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A0D76 20 ADD.F 0A0D77 9B 07 WRITE.F $07 0A0D79 C3 01 17 READ.F $0117 0A0D7C 3E PUSH.W $0000 0A0D7D 26 EQ.F 0A0D7E 18 60 BRZ $060 ; => $0A0DE0 0A0D80 C3 54 E9 READ.F $54E9 0A0D83 C3 54 F1 READ.F $54F1 0A0D86 C3 54 F9 READ.F $54F9 0A0D89 30 01 78 BSR.68K $0178 ; => $0A0C14 => $0AA734 0A0D8C 3E PUSH.W $0000 0A0D8D 93 EF WRITE.F $EF 0A0D8F 3E PUSH.W $0000 0A0D90 93 F7 WRITE.F $F7 0A0D92 C3 54 F9 READ.F $54F9 0A0D95 C3 54 F9 READ.F $54F9 0A0D98 22 MUL.F 0A0D99 93 FF WRITE.F $FF 0A0D9B 3E PUSH.W $0000 0A0D9C 93 D7 WRITE.F $D7 0A0D9E 3E PUSH.W $0000 0A0D9F 93 DF WRITE.F $DF 0A0DA1 3E PUSH.W $0000 0A0DA2 93 E7 WRITE.F $E7 0A0DA4 83 37 READ.F $37 0A0DA6 3B 41 73 15 D7 00 00 00 00 PUSH.F $417315D700000000 ; float = 20012400.000000 0A0DAF 22 MUL.F 0A0DB0 D3 01 07 WRITE.F $0107 0A0DB3 83 3F READ.F $3F 0A0DB5 3B 41 73 15 D7 00 00 00 00 PUSH.F $417315D700000000 ; float = 20012400.000000 0A0DBE 22 MUL.F 0A0DBF D3 01 0F WRITE.F $010F 0A0DC2 3E PUSH.W $0000 0A0DC3 D3 56 05 WRITE.F $5605 0A0DC6 C3 28 FD READ.F $28FD 0A0DC9 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A0DD2 24 GT.F 0A0DD3 18 09 BRZ $009 ; => $0A0DDE 0A0DD5 04 FF PUSH.10 $0FF 0A0DD7 D0 50 9F WRITE.B $509F 0A0DDA 40 PUSH.6 $00 0A0DDB D0 50 9E WRITE.B $509E 0A0DDE 10 CD BR $0CD ; => $0A0EAD 0A0DE0 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A0DE9 8B 07 READ.F $07 0A0DEB 23 DIV.F 0A0DEC 9B 0F WRITE.F $0F 0A0DEE C3 01 17 READ.F $0117 0A0DF1 83 37 READ.F $37 0A0DF3 22 MUL.F 0A0DF4 C3 54 E9 READ.F $54E9 0A0DF7 20 ADD.F 0A0DF8 8B 0F READ.F $0F 0A0DFA 22 MUL.F 0A0DFB C3 01 17 READ.F $0117 0A0DFE 83 3F READ.F $3F 0A0E00 22 MUL.F 0A0E01 C3 54 F1 READ.F $54F1 0A0E04 20 ADD.F 0A0E05 8B 0F READ.F $0F 0A0E07 22 MUL.F 0A0E08 C3 01 17 READ.F $0117 0A0E0B 83 47 READ.F $47 0A0E0D 22 MUL.F 0A0E0E C3 54 F9 READ.F $54F9 0A0E11 20 ADD.F 0A0E12 8B 0F READ.F $0F 0A0E14 22 MUL.F 0A0E15 30 02 04 BSR.68K $0204 ; => $0A0C14 => $0AA734 0A0E18 83 EF READ.F $EF 0A0E1A C3 54 E9 READ.F $54E9 0A0E1D 3B 41 73 15 D7 00 00 00 00 PUSH.F $417315D700000000 ; float = 20012400.000000 0A0E26 22 MUL.F 0A0E27 C3 01 07 READ.F $0107 0A0E2A 21 SUB.F 0A0E2B 30 02 0E BSR.68K $020E ; => $0A0C20 => $002B72 (NATIVE) 0A0E2E 20 ADD.F 0A0E2F 93 EF WRITE.F $EF 0A0E31 83 F7 READ.F $F7 0A0E33 C3 54 F1 READ.F $54F1 0A0E36 3B 41 73 15 D7 00 00 00 00 PUSH.F $417315D700000000 ; float = 20012400.000000 0A0E3F 22 MUL.F 0A0E40 C3 01 0F READ.F $010F 0A0E43 21 SUB.F 0A0E44 30 02 27 BSR.68K $0227 ; => $0A0C20 => $002B72 (NATIVE) 0A0E47 20 ADD.F 0A0E48 93 F7 WRITE.F $F7 0A0E4A 83 FF READ.F $FF 0A0E4C C3 54 F9 READ.F $54F9 0A0E4F 30 02 32 BSR.68K $0232 ; => $0A0C20 => $002B72 (NATIVE) 0A0E52 20 ADD.F 0A0E53 93 FF WRITE.F $FF 0A0E55 83 EF READ.F $EF 0A0E57 8B 0F READ.F $0F 0A0E59 22 MUL.F 0A0E5A 83 37 READ.F $37 0A0E5C 3B 41 73 15 D7 00 00 00 00 PUSH.F $417315D700000000 ; float = 20012400.000000 0A0E65 22 MUL.F 0A0E66 C3 01 07 READ.F $0107 0A0E69 21 SUB.F 0A0E6A 30 02 4D BSR.68K $024D ; => $0A0C20 => $002B72 (NATIVE) 0A0E6D 21 SUB.F 0A0E6E 30 02 45 BSR.68K $0245 ; => $0A0C2C => $002B7E (NATIVE) 0A0E71 30 02 4E BSR.68K $024E ; => $0A0C26 => $002682 (NATIVE) 0A0E74 93 D7 WRITE.F $D7 0A0E76 83 8F READ.F $8F 0A0E78 83 F7 READ.F $F7 0A0E7A 8B 0F READ.F $0F 0A0E7C 22 MUL.F 0A0E7D 83 3F READ.F $3F 0A0E7F 3B 41 73 15 D7 00 00 00 00 PUSH.F $417315D700000000 ; float = 20012400.000000 0A0E88 22 MUL.F 0A0E89 C3 01 0F READ.F $010F 0A0E8C 21 SUB.F 0A0E8D 30 02 70 BSR.68K $0270 ; => $0A0C20 => $002B72 (NATIVE) 0A0E90 21 SUB.F 0A0E91 30 02 68 BSR.68K $0268 ; => $0A0C2C => $002B7E (NATIVE) 0A0E94 30 02 71 BSR.68K $0271 ; => $0A0C26 => $002682 (NATIVE) 0A0E97 22 MUL.F 0A0E98 93 DF WRITE.F $DF 0A0E9A 83 FF READ.F $FF 0A0E9C 8B 0F READ.F $0F 0A0E9E 22 MUL.F 0A0E9F 83 47 READ.F $47 0A0EA1 30 02 84 BSR.68K $0284 ; => $0A0C20 => $002B72 (NATIVE) 0A0EA4 21 SUB.F 0A0EA5 30 02 7C BSR.68K $027C ; => $0A0C2C => $002B7E (NATIVE) 0A0EA8 30 02 85 BSR.68K $0285 ; => $0A0C26 => $002682 (NATIVE) 0A0EAB 93 E7 WRITE.F $E7 0A0EAD 8B 07 READ.F $07 0A0EAF D3 01 17 WRITE.F $0117 0A0EB2 32 10 ADDSP.B $10 0A0EB4 34 RETURN ; ---------------- End Function $0A0D2E ---------------- ; ---------------- Begin 2144 Function $0A0EB6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D819 ; addr bytes opcode operands comment 0A0EBD 31 28 SUBSP.B $28 0A0EBF 40 PUSH.6 $00 0A0EC0 94 03 WRITE.B $03 0A0EC2 40 PUSH.6 $00 0A0EC3 94 04 WRITE.B $04 0A0EC5 40 PUSH.6 $00 0A0EC6 94 05 WRITE.B $05 0A0EC8 3B 54 B2 49 AD 25 94 C3 7D PUSH.F $54B249AD2594C37D ; float = 10000000000000000159028911097599180468360808563945281389781327557747838772170381060813469985856815104.000000 0A0ED1 97 1B WRITE.F $1B 0A0ED3 40 PUSH.6 $00 0A0ED4 94 1C WRITE.B $1C 0A0ED6 C0 29 0D READ.B $290D 0A0ED9 94 00 WRITE.B $00 0A0EDB C0 29 0C READ.B $290C 0A0EDE 94 01 WRITE.B $01 0A0EE0 84 00 READ.B $00 0A0EE2 41 PUSH.6 $01 0A0EE3 2A EQ.L 0A0EE4 18 09 BRZ $009 ; => $0A0EEF 0A0EE6 42 PUSH.6 $02 0A0EE7 94 00 WRITE.B $00 0A0EE9 04 FF PUSH.10 $0FF 0A0EEB 94 07 WRITE.B $07 0A0EED 10 03 BR $003 ; => $0A0EF2 0A0EEF 40 PUSH.6 $00 0A0EF0 94 07 WRITE.B $07 0A0EF2 C0 35 7C READ.B $357C 0A0EF5 C0 67 EC READ.B $67EC 0A0EF8 2D OR.L 0A0EF9 94 06 WRITE.B $06 0A0EFB 30 02 90 BSR.68K $0290 ; => $0A0C6E 0A0EFE 84 01 READ.B $01 0A0F00 94 0A WRITE.B $0A 0A0F02 40 PUSH.6 $00 0A0F03 94 09 WRITE.B $09 0A0F05 C3 28 FD READ.F $28FD 0A0F08 3E PUSH.W $0000 0A0F09 03 23 NEQ.F 0A0F0B 19 57 BRZ $157 ; => $0A1064 0A0F0D 84 0A READ.B $0A 0A0F0F C0 47 76 READ.B $4776 0A0F12 03 28 GTE.L 0A0F14 19 34 BRZ $134 ; => $0A104A 0A0F16 84 0A READ.B $0A 0A0F18 42 PUSH.6 $02 0A0F19 2A EQ.L 0A0F1A 84 07 READ.B $07 0A0F1C 2E NOT.L 0A0F1D 2C AND.L 0A0F1E C3 55 F5 READ.F $55F5 0A0F21 3E PUSH.W $0000 0A0F22 26 EQ.F 0A0F23 2C AND.L 0A0F24 18 06 BRZ $006 ; => $0A0F2C 0A0F26 04 FF PUSH.10 $0FF 0A0F28 94 04 WRITE.B $04 0A0F2A 11 1E BR $11E ; => $0A104A 0A0F2C 84 06 READ.B $06 0A0F2E 18 1C BRZ $01C ; => $0A0F4C 0A0F30 84 0A READ.B $0A 0A0F32 42 PUSH.6 $02 0A0F33 2A EQ.L 0A0F34 84 07 READ.B $07 0A0F36 2C AND.L 0A0F37 18 03 BRZ $003 ; => $0A0F3C 0A0F39 41 PUSH.6 $01 0A0F3A 10 02 BR $002 ; => $0A0F3E 0A0F3C 84 0A READ.B $0A 0A0F3E 87 13 00 READ.F $13 0A0F41 09 00 27 00 0A 00 ?_$09 $0027, $000A, $0 0A0F47 30 03 12 BSR.68K $0312 ; => $0A0C38 => $093C22 0A0F4A 10 0E BR $00E ; => $0A0F5A 0A0F4C 84 0A READ.B $0A 0A0F4E 87 13 00 READ.F $13 0A0F51 09 00 27 00 0A 00 ?_$09 $0027, $000A, $0 0A0F57 30 03 28 BSR.68K $0328 ; => $0A0C32 => $0A159C 0A0F5A 87 13 READ.F $13 0A0F5C C3 28 ED READ.F $28ED 0A0F5F 03 22 LTE.F 0A0F61 18 D7 BRZ $0D7 ; => $0A103A 0A0F63 09 00 27 00 0A ?_$09 $0027, $000A 0A0F68 0C 47 6B 00 0A ?_$0C $476B, $000A 0A0F6D 40 PUSH.6 $00 0A0F6E 94 05 WRITE.B $05 0A0F70 C0 67 EC READ.B $67EC 0A0F73 18 0E BRZ $00E ; => $0A0F83 0A0F75 84 0A READ.B $0A 0A0F77 42 PUSH.6 $02 0A0F78 2A EQ.L 0A0F79 84 07 READ.B $07 0A0F7B 2C AND.L 0A0F7C 30 03 29 BSR.68K $0329 ; => $0A0C56 => $090AA0 0A0F7F 94 08 WRITE.B $08 0A0F81 10 04 BR $004 ; => $0A0F87 0A0F83 04 FF PUSH.10 $0FF 0A0F85 94 08 WRITE.B $08 0A0F87 84 0A READ.B $0A 0A0F89 42 PUSH.6 $02 0A0F8A 2A EQ.L 0A0F8B 84 07 READ.B $07 0A0F8D 2C AND.L 0A0F8E 84 08 READ.B $08 0A0F90 2E NOT.L 0A0F91 2C AND.L 0A0F92 18 05 BRZ $005 ; => $0A0F99 0A0F94 41 PUSH.6 $01 0A0F95 94 1C WRITE.B $1C 0A0F97 10 3E BR $03E ; => $0A0FD7 0A0F99 84 06 READ.B $06 0A0F9B 18 07 BRZ $007 ; => $0A0FA4 0A0F9D C0 47 76 READ.B $4776 0A0FA0 41 PUSH.6 $01 0A0FA1 28 SUB.L 0A0FA2 10 04 BR $004 ; => $0A0FA8 0A0FA4 84 0A READ.B $0A 0A0FA6 41 PUSH.6 $01 0A0FA7 28 SUB.L 0A0FA8 94 02 WRITE.B $02 0A0FAA 84 0A READ.B $0A 0A0FAC 35 SWITCH 0A0FAD 10 0D 02 CASE $02 ; SWITCH $0A0FAC 0A0FB0 84 02 READ.B $02 0A0FB2 84 07 READ.B $07 0A0FB4 84 1C 00 READ.B $1C 0A0FB7 30 03 B8 BSR.68K $03B8 ; => $0A0C02 => $0A2E20 0A0FBA 10 1B BR $01B ; => $0A0FD7 0A0FBC 10 0B 03 CASE $03 ; SWITCH $0A0FAC 0A0FBF 84 02 READ.B $02 0A0FC1 84 1C 00 READ.B $1C 0A0FC4 30 03 BF BSR.68K $03BF ; => $0A0C08 => $0A34CE 0A0FC7 10 0E BR $00E ; => $0A0FD7 0A0FC9 10 0B 04 CASE $04 ; SWITCH $0A0FAC 0A0FCC 84 02 READ.B $02 0A0FCE 84 1C 00 READ.B $1C 0A0FD1 30 03 C6 BSR.68K $03C6 ; => $0A0C0E => $0A3DBE 0A0FD4 10 01 BR $001 ; => $0A0FD7 0A0FD6 00 DEFAULT ; SWITCH $0A0FAC 0A0FD7 84 1C READ.B $1C 0A0FD9 40 PUSH.6 $00 0A0FDA 2A EQ.L 0A0FDB 18 52 BRZ $052 ; => $0A102F 0A0FDD 84 0A READ.B $0A 0A0FDF 42 PUSH.6 $02 0A0FE0 2A EQ.L 0A0FE1 84 07 READ.B $07 0A0FE3 2C AND.L 0A0FE4 18 03 BRZ $003 ; => $0A0FE9 0A0FE6 41 PUSH.6 $01 0A0FE7 10 02 BR $002 ; => $0A0FEB 0A0FE9 84 0A READ.B $0A 0A0FEB 94 09 WRITE.B $09 0A0FED 30 02 C2 BSR.68K $02C2 ; => $0A0D2E 0A0FF0 30 03 97 BSR.68K $0397 ; => $0A0C5C => $09423A 0A0FF3 84 0A READ.B $0A 0A0FF5 42 PUSH.6 $02 0A0FF6 03 25 LT.L 0A0FF8 84 07 READ.B $07 0A0FFA 2D OR.L 0A0FFB 18 10 BRZ $010 ; => $0A100D 0A0FFD 84 09 READ.B $09 0A0FFF 30 04 0C BSR.68K $040C ; => $0A0BF6 => $0948F8 0A1002 30 04 09 BSR.68K $0409 ; => $0A0BFC => $094774 0A1005 C0 29 8E READ.B $298E 0A1008 18 03 BRZ $003 ; => $0A100D 0A100A 30 03 C9 BSR.68K $03C9 ; => $0A0C44 => $094646 0A100D C0 67 EC READ.B $67EC 0A1010 18 03 BRZ $003 ; => $0A1015 0A1012 30 03 AD BSR.68K $03AD ; => $0A0C68 => $090BA4 0A1015 C0 56 6E READ.B $566E 0A1018 2E NOT.L 0A1019 C0 29 5A READ.B $295A 0A101C 40 PUSH.6 $00 0A101D 2B NEQ.L 0A101E 2C AND.L 0A101F C0 4E 51 READ.B $4E51 0A1022 40 PUSH.6 $00 0A1023 2A EQ.L 0A1024 2C AND.L 0A1025 18 08 BRZ $008 ; => $0A102F 0A1027 C0 29 5A READ.B $295A 0A102A 41 PUSH.6 $01 0A102B 27 ADD.L 0A102C D0 4E 51 WRITE.B $4E51 0A102F 84 06 READ.B $06 0A1031 18 05 BRZ $005 ; => $0A1038 0A1033 C0 47 76 READ.B $4776 0A1036 94 0A WRITE.B $0A 0A1038 10 10 BR $010 ; => $0A104A 0A103A 04 FF PUSH.10 $0FF 0A103C 94 05 WRITE.B $05 0A103E 87 13 READ.F $13 0A1040 87 1B READ.F $1B 0A1042 03 21 LT.F 0A1044 18 04 BRZ $004 ; => $0A104A 0A1046 87 13 READ.F $13 0A1048 97 1B WRITE.F $1B 0A104A 84 09 READ.B $09 0A104C 40 PUSH.6 $00 0A104D 2A EQ.L 0A104E 18 06 BRZ $006 ; => $0A1056 0A1050 84 0A READ.B $0A 0A1052 41 PUSH.6 $01 0A1053 28 SUB.L 0A1054 94 0A WRITE.B $0A 0A1056 84 09 READ.B $09 0A1058 84 0A READ.B $0A 0A105A 84 00 READ.B $00 0A105C 03 26 GT.L 0A105E 2D OR.L 0A105F 84 1C READ.B $1C 0A1061 2D OR.L 0A1062 1E A9 BRZ $-157 ; => $0A0F0D 0A1064 84 09 READ.B $09 0A1066 40 PUSH.6 $00 0A1067 2A EQ.L 0A1068 84 1C READ.B $1C 0A106A 40 PUSH.6 $00 0A106B 2A EQ.L 0A106C 2C AND.L 0A106D 18 3E BRZ $03E ; => $0A10AD 0A106F C3 28 FD READ.F $28FD 0A1072 3E PUSH.W $0000 0A1073 03 23 NEQ.F 0A1075 C0 29 2C READ.B $292C 0A1078 C0 67 EC READ.B $67EC 0A107B 2E NOT.L 0A107C 2D OR.L 0A107D C0 56 6E READ.B $566E 0A1080 C0 56 C6 READ.B $56C6 0A1083 2C AND.L 0A1084 2D OR.L 0A1085 2C AND.L 0A1086 18 22 BRZ $022 ; => $0A10AA 0A1088 84 0A 00 READ.B $0A 0A108B 30 04 50 BSR.68K $0450 ; => $0A0C3E => $094B46 0A108E 84 0A READ.B $0A 0A1090 40 PUSH.6 $00 0A1091 2B NEQ.L 0A1092 94 03 WRITE.B $03 0A1094 84 03 READ.B $03 0A1096 18 10 BRZ $010 ; => $0A10A8 0A1098 84 09 READ.B $09 0A109A 30 04 A7 BSR.68K $04A7 ; => $0A0BF6 => $0948F8 0A109D 30 04 44 BSR.68K $0444 ; => $0A0C5C => $09423A 0A10A0 C0 29 8E READ.B $298E 0A10A3 18 03 BRZ $003 ; => $0A10A8 0A10A5 30 04 64 BSR.68K $0464 ; => $0A0C44 => $094646 0A10A8 10 03 BR $003 ; => $0A10AD 0A10AA 40 PUSH.6 $00 0A10AB 94 0A WRITE.B $0A 0A10AD 84 05 READ.B $05 0A10AF 84 04 READ.B $04 0A10B1 2D OR.L 0A10B2 84 1C READ.B $1C 0A10B4 2D OR.L 0A10B5 18 04 BRZ $004 ; => $0A10BB 0A10B7 3E PUSH.W $0000 0A10B8 D3 56 55 WRITE.F $5655 0A10BB 84 0A READ.B $0A 0A10BD D0 55 63 WRITE.B $5563 0A10C0 84 03 READ.B $03 0A10C2 D0 29 E4 WRITE.B $29E4 0A10C5 84 05 READ.B $05 0A10C7 18 04 BRZ $004 ; => $0A10CD 0A10C9 87 1B READ.F $1B 0A10CB 10 01 BR $001 ; => $0A10CE 0A10CD 3E PUSH.W $0000 0A10CE D3 29 EF WRITE.F $29EF 0A10D1 C3 29 EF READ.F $29EF 0A10D4 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 0A10DD 25 GTE.F 0A10DE 18 0C BRZ $00C ; => $0A10EC 0A10E0 3B 40 8F 3F EB 85 1E B8 52 PUSH.F $408F3FEB851EB852 ; float = 999.990000 0A10E9 D3 29 EF WRITE.F $29EF 0A10EC 84 04 READ.B $04 0A10EE D0 29 F2 WRITE.B $29F2 0A10F1 84 1C READ.B $1C 0A10F3 D0 67 EB WRITE.B $67EB 0A10F6 84 09 READ.B $09 0A10F8 D0 55 62 WRITE.B $5562 0A10FB 32 28 ADDSP.B $28 0A10FD 34 RETURN ; ---------------- End Function $0A0EB6 ---------------- ; ---------------- Begin 2144 Function $0A1128 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A159C:$0A15C6 ; addr bytes opcode operands comment 0A112F 03 2D 01 06 SUBSP.W $0106 0A1133 40 PUSH.6 $00 0A1134 36 21 04 _2362 $0104 ; A0 = $004000; (A0) = A6 + $0 0A1137 43 PUSH.6 $03 0A1138 38 00 17 BLS.B $0017 ; => $0A1152 0A113B C8 01 04 READ.B $0104 0A113E 44 PUSH.6 $04 0A113F 29 MUL.L 0A1140 43 PUSH.6 $03 0A1141 27 ADD.L 0A1142 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A114B BB 7F WRITE.F $7F 0A114D 37 21 04 00 1B _23d2 $0104, $001B 0A1152 40 PUSH.6 $00 0A1153 36 10 21 _2362 $0021 ; A0 = $004000; (A0) = A6 + $0 0A1156 C0 29 9B READ.B $299B 0A1159 43 PUSH.6 $03 0A115A 28 SUB.L 0A115B 38 01 88 BLS.B $0188 ; => $0A12E6 0A115E 84 21 READ.B $21 0A1160 E0 47 75 READ.B $4775 0A1163 19 7C BRZ $17C ; => $0A12E1 0A1165 84 21 READ.B $21 0A1167 E0 40 09 READ.B $4009 0A116A D8 01 00 WRITE.B $0100 0A116D 40 PUSH.6 $00 0A116E 36 21 04 _2362 $0104 ; A0 = $004000; (A0) = A6 + $0 0A1171 42 PUSH.6 $02 0A1172 38 00 1A BLS.B $001A ; => $0A118F 0A1175 40 PUSH.6 $00 0A1176 44 PUSH.6 $04 0A1177 29 MUL.L 0A1178 C8 01 04 READ.B $0104 0A117B 27 ADD.L 0A117C C8 01 00 READ.B $0100 0A117F 43 PUSH.6 $03 0A1180 29 MUL.L 0A1181 C8 01 04 READ.B $0104 0A1184 27 ADD.L 0A1185 E3 28 1F READ.F $281F 0A1188 BB 7F WRITE.F $7F 0A118A 37 21 04 00 1E _23d2 $0104, $001E 0A118F 84 21 READ.B $21 0A1191 41 PUSH.6 $01 0A1192 27 ADD.L 0A1193 36 10 20 _2362 $0020 ; A0 = $004000; (A0) = A6 + $0 0A1196 C0 29 9B READ.B $299B 0A1199 42 PUSH.6 $02 0A119A 28 SUB.L 0A119B 38 01 43 BLS.B $0143 ; => $0A12E1 0A119E 84 20 READ.B $20 0A11A0 E0 47 75 READ.B $4775 0A11A3 19 37 BRZ $137 ; => $0A12DC 0A11A5 84 20 READ.B $20 0A11A7 E0 40 09 READ.B $4009 0A11AA D8 01 01 WRITE.B $0101 0A11AD C8 01 01 READ.B $0101 0A11B0 C8 01 00 READ.B $0100 0A11B3 2A EQ.L 0A11B4 18 02 BRZ $002 ; => $0A11B8 0A11B6 11 24 BR $124 ; => $0A12DC 0A11B8 40 PUSH.6 $00 0A11B9 36 21 04 _2362 $0104 ; A0 = $004000; (A0) = A6 + $0 0A11BC 42 PUSH.6 $02 0A11BD 38 00 1A BLS.B $001A ; => $0A11DA 0A11C0 41 PUSH.6 $01 0A11C1 44 PUSH.6 $04 0A11C2 29 MUL.L 0A11C3 C8 01 04 READ.B $0104 0A11C6 27 ADD.L 0A11C7 C8 01 01 READ.B $0101 0A11CA 43 PUSH.6 $03 0A11CB 29 MUL.L 0A11CC C8 01 04 READ.B $0104 0A11CF 27 ADD.L 0A11D0 E3 28 1F READ.F $281F 0A11D3 BB 7F WRITE.F $7F 0A11D5 37 21 04 00 1E _23d2 $0104, $001E 0A11DA 84 20 READ.B $20 0A11DC 41 PUSH.6 $01 0A11DD 27 ADD.L 0A11DE 36 10 1F _2362 $001F ; A0 = $004000; (A0) = A6 + $0 0A11E1 C0 29 9B READ.B $299B 0A11E4 41 PUSH.6 $01 0A11E5 28 SUB.L 0A11E6 38 00 F3 BLS.B $00F3 ; => $0A12DC 0A11E9 84 1F READ.B $1F 0A11EB E0 47 75 READ.B $4775 0A11EE 18 E7 BRZ $0E7 ; => $0A12D7 0A11F0 84 1F READ.B $1F 0A11F2 E0 40 09 READ.B $4009 0A11F5 D8 01 02 WRITE.B $0102 0A11F8 C8 01 02 READ.B $0102 0A11FB C8 01 01 READ.B $0101 0A11FE 2A EQ.L 0A11FF C8 01 02 READ.B $0102 0A1202 C8 01 00 READ.B $0100 0A1205 2A EQ.L 0A1206 2D OR.L 0A1207 18 02 BRZ $002 ; => $0A120B 0A1209 10 CC BR $0CC ; => $0A12D7 0A120B 40 PUSH.6 $00 0A120C 36 21 04 _2362 $0104 ; A0 = $004000; (A0) = A6 + $0 0A120F 42 PUSH.6 $02 0A1210 38 00 1A BLS.B $001A ; => $0A122D 0A1213 42 PUSH.6 $02 0A1214 44 PUSH.6 $04 0A1215 29 MUL.L 0A1216 C8 01 04 READ.B $0104 0A1219 27 ADD.L 0A121A C8 01 02 READ.B $0102 0A121D 43 PUSH.6 $03 0A121E 29 MUL.L 0A121F C8 01 04 READ.B $0104 0A1222 27 ADD.L 0A1223 E3 28 1F READ.F $281F 0A1226 BB 7F WRITE.F $7F 0A1228 37 21 04 00 1E _23d2 $0104, $001E 0A122D 84 1F READ.B $1F 0A122F 41 PUSH.6 $01 0A1230 27 ADD.L 0A1231 36 10 1E _2362 $001E ; A0 = $004000; (A0) = A6 + $0 0A1234 C0 29 9B READ.B $299B 0A1237 38 00 9D BLS.B $009D ; => $0A12D7 0A123A 84 1E READ.B $1E 0A123C E0 47 75 READ.B $4775 0A123F 18 91 BRZ $091 ; => $0A12D2 0A1241 84 1E READ.B $1E 0A1243 E0 40 09 READ.B $4009 0A1246 D8 01 03 WRITE.B $0103 0A1249 C8 01 03 READ.B $0103 0A124C C8 01 02 READ.B $0102 0A124F 2A EQ.L 0A1250 C8 01 03 READ.B $0103 0A1253 C8 01 01 READ.B $0101 0A1256 2A EQ.L 0A1257 2D OR.L 0A1258 C8 01 03 READ.B $0103 0A125B C8 01 00 READ.B $0100 0A125E 2A EQ.L 0A125F 2D OR.L 0A1260 18 02 BRZ $002 ; => $0A1264 0A1262 10 6E BR $06E ; => $0A12D2 0A1264 40 PUSH.6 $00 0A1265 36 21 04 _2362 $0104 ; A0 = $004000; (A0) = A6 + $0 0A1268 42 PUSH.6 $02 0A1269 38 00 1A BLS.B $001A ; => $0A1286 0A126C 43 PUSH.6 $03 0A126D 44 PUSH.6 $04 0A126E 29 MUL.L 0A126F C8 01 04 READ.B $0104 0A1272 27 ADD.L 0A1273 C8 01 03 READ.B $0103 0A1276 43 PUSH.6 $03 0A1277 29 MUL.L 0A1278 C8 01 04 READ.B $0104 0A127B 27 ADD.L 0A127C E3 28 1F READ.F $281F 0A127F BB 7F WRITE.F $7F 0A1281 37 21 04 00 1E _23d2 $0104, $001E 0A1286 0A 00 7F 00 80 ?_$0A $007F, $0080 0A128B 30 01 7E BSR.68K $017E ; => $0A1110 => $003E8A (NATIVE) 0A128E 0A 00 7F 00 80 ?_$0A $007F, $0080 0A1293 30 01 8C BSR.68K $018C ; => $0A110A => $003766 0A1296 30 01 77 BSR.68K $0177 ; => $0A1122 => $09788A 0A1299 0E 00 FF 00 80 ?_$0E $00FF, $0080 0A129E 40 PUSH.6 $00 0A129F 44 PUSH.6 $04 0A12A0 29 MUL.L 0A12A1 40 PUSH.6 $00 0A12A2 27 ADD.L 0A12A3 AB FF READ.F $FF 0A12A5 41 PUSH.6 $01 0A12A6 44 PUSH.6 $04 0A12A7 29 MUL.L 0A12A8 41 PUSH.6 $01 0A12A9 27 ADD.L 0A12AA AB FF READ.F $FF 0A12AC 20 ADD.F 0A12AD 42 PUSH.6 $02 0A12AE 44 PUSH.6 $04 0A12AF 29 MUL.L 0A12B0 42 PUSH.6 $02 0A12B1 27 ADD.L 0A12B2 AB FF READ.F $FF 0A12B4 20 ADD.F 0A12B5 97 2D WRITE.F $2D 0A12B7 87 2D READ.F $2D 0A12B9 87 35 READ.F $35 0A12BB 03 21 LT.F 0A12BD 87 2D READ.F $2D 0A12BF 3E PUSH.W $0000 0A12C0 24 GT.F 0A12C1 2C AND.L 0A12C2 18 0E BRZ $00E ; => $0A12D2 0A12C4 87 2D READ.F $2D 0A12C6 97 35 WRITE.F $35 0A12C8 09 00 21 00 04 ?_$09 $0021, $0004 0A12CD 0D 00 25 00 04 ?_$0D $0025, $0004 0A12D2 37 10 1E 00 A3 _23d2 $001E, $00A3 0A12D7 37 10 1F 00 FB _23d2 $001F, $00FB 0A12DC 37 10 20 01 4B _23d2 $0020, $014B 0A12E1 37 10 21 01 90 _23d2 $0021, $0190 0A12E6 03 2E 01 06 ADDSP.W $0106 0A12EA 34 RETURN ; ---------------- End Function $0A1128 ---------------- ; ---------------- Begin 2144 Function $0A12EC ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A159C:$0A15BE ; addr bytes opcode operands comment 0A12F3 03 2D 01 06 SUBSP.W $0106 0A12F7 40 PUSH.6 $00 0A12F8 94 1E WRITE.B $1E 0A12FA 40 PUSH.6 $00 0A12FB 36 21 03 _2362 $0103 ; A0 = $004000; (A0) = A6 + $0 0A12FE 42 PUSH.6 $02 0A12FF 38 00 17 BLS.B $0017 ; => $0A1319 0A1302 C8 01 03 READ.B $0103 0A1305 44 PUSH.6 $04 0A1306 29 MUL.L 0A1307 43 PUSH.6 $03 0A1308 27 ADD.L 0A1309 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A1312 BB 7F WRITE.F $7F 0A1314 37 21 03 00 1B _23d2 $0103, $001B 0A1319 43 PUSH.6 $03 0A131A 44 PUSH.6 $04 0A131B 29 MUL.L 0A131C 40 PUSH.6 $00 0A131D 27 ADD.L 0A131E 83 4F READ.F $4F 0A1320 83 C7 READ.F $C7 0A1322 23 DIV.F 0A1323 BB 7F WRITE.F $7F 0A1325 43 PUSH.6 $03 0A1326 44 PUSH.6 $04 0A1327 29 MUL.L 0A1328 41 PUSH.6 $01 0A1329 27 ADD.L 0A132A 83 57 READ.F $57 0A132C 83 C7 READ.F $C7 0A132E 23 DIV.F 0A132F BB 7F WRITE.F $7F 0A1331 43 PUSH.6 $03 0A1332 44 PUSH.6 $04 0A1333 29 MUL.L 0A1334 42 PUSH.6 $02 0A1335 27 ADD.L 0A1336 83 5F READ.F $5F 0A1338 83 C7 READ.F $C7 0A133A 23 DIV.F 0A133B BB 7F WRITE.F $7F 0A133D 43 PUSH.6 $03 0A133E 44 PUSH.6 $04 0A133F 29 MUL.L 0A1340 43 PUSH.6 $03 0A1341 27 ADD.L 0A1342 3E PUSH.W $0000 0A1343 BB 7F WRITE.F $7F 0A1345 40 PUSH.6 $00 0A1346 36 10 21 _2362 $0021 ; A0 = $004000; (A0) = A6 + $0 0A1349 C0 29 9B READ.B $299B 0A134C 42 PUSH.6 $02 0A134D 28 SUB.L 0A134E 38 01 34 BLS.B $0134 ; => $0A1485 0A1351 84 21 READ.B $21 0A1353 E0 47 75 READ.B $4775 0A1356 19 28 BRZ $128 ; => $0A1480 0A1358 84 21 READ.B $21 0A135A E0 40 09 READ.B $4009 0A135D D8 01 00 WRITE.B $0100 0A1360 40 PUSH.6 $00 0A1361 36 21 03 _2362 $0103 ; A0 = $004000; (A0) = A6 + $0 0A1364 42 PUSH.6 $02 0A1365 38 00 1A BLS.B $001A ; => $0A1382 0A1368 40 PUSH.6 $00 0A1369 44 PUSH.6 $04 0A136A 29 MUL.L 0A136B C8 01 03 READ.B $0103 0A136E 27 ADD.L 0A136F C8 01 00 READ.B $0100 0A1372 43 PUSH.6 $03 0A1373 29 MUL.L 0A1374 C8 01 03 READ.B $0103 0A1377 27 ADD.L 0A1378 E3 28 1F READ.F $281F 0A137B BB 7F WRITE.F $7F 0A137D 37 21 03 00 1E _23d2 $0103, $001E 0A1382 84 21 READ.B $21 0A1384 41 PUSH.6 $01 0A1385 27 ADD.L 0A1386 36 10 20 _2362 $0020 ; A0 = $004000; (A0) = A6 + $0 0A1389 C0 29 9B READ.B $299B 0A138C 41 PUSH.6 $01 0A138D 28 SUB.L 0A138E 38 00 EF BLS.B $00EF ; => $0A1480 0A1391 84 20 READ.B $20 0A1393 E0 47 75 READ.B $4775 0A1396 18 E3 BRZ $0E3 ; => $0A147B 0A1398 84 20 READ.B $20 0A139A E0 40 09 READ.B $4009 0A139D D8 01 01 WRITE.B $0101 0A13A0 C8 01 01 READ.B $0101 0A13A3 C8 01 00 READ.B $0100 0A13A6 2A EQ.L 0A13A7 18 02 BRZ $002 ; => $0A13AB 0A13A9 10 D0 BR $0D0 ; => $0A147B 0A13AB 40 PUSH.6 $00 0A13AC 36 21 03 _2362 $0103 ; A0 = $004000; (A0) = A6 + $0 0A13AF 42 PUSH.6 $02 0A13B0 38 00 1A BLS.B $001A ; => $0A13CD 0A13B3 41 PUSH.6 $01 0A13B4 44 PUSH.6 $04 0A13B5 29 MUL.L 0A13B6 C8 01 03 READ.B $0103 0A13B9 27 ADD.L 0A13BA C8 01 01 READ.B $0101 0A13BD 43 PUSH.6 $03 0A13BE 29 MUL.L 0A13BF C8 01 03 READ.B $0103 0A13C2 27 ADD.L 0A13C3 E3 28 1F READ.F $281F 0A13C6 BB 7F WRITE.F $7F 0A13C8 37 21 03 00 1E _23d2 $0103, $001E 0A13CD 84 20 READ.B $20 0A13CF 41 PUSH.6 $01 0A13D0 27 ADD.L 0A13D1 36 10 1F _2362 $001F ; A0 = $004000; (A0) = A6 + $0 0A13D4 C0 29 9B READ.B $299B 0A13D7 38 00 A1 BLS.B $00A1 ; => $0A147B 0A13DA 84 1F READ.B $1F 0A13DC E0 47 75 READ.B $4775 0A13DF 18 95 BRZ $095 ; => $0A1476 0A13E1 84 1F READ.B $1F 0A13E3 E0 40 09 READ.B $4009 0A13E6 D8 01 02 WRITE.B $0102 0A13E9 C8 01 02 READ.B $0102 0A13EC C8 01 00 READ.B $0100 0A13EF 2A EQ.L 0A13F0 C8 01 02 READ.B $0102 0A13F3 C8 01 01 READ.B $0101 0A13F6 2A EQ.L 0A13F7 2D OR.L 0A13F8 18 02 BRZ $002 ; => $0A13FC 0A13FA 10 7A BR $07A ; => $0A1476 0A13FC 40 PUSH.6 $00 0A13FD 36 21 03 _2362 $0103 ; A0 = $004000; (A0) = A6 + $0 0A1400 42 PUSH.6 $02 0A1401 38 00 1A BLS.B $001A ; => $0A141E 0A1404 42 PUSH.6 $02 0A1405 44 PUSH.6 $04 0A1406 29 MUL.L 0A1407 C8 01 03 READ.B $0103 0A140A 27 ADD.L 0A140B C8 01 02 READ.B $0102 0A140E 43 PUSH.6 $03 0A140F 29 MUL.L 0A1410 C8 01 03 READ.B $0103 0A1413 27 ADD.L 0A1414 E3 28 1F READ.F $281F 0A1417 BB 7F WRITE.F $7F 0A1419 37 21 03 00 1E _23d2 $0103, $001E 0A141E 0A 00 7F 00 80 ?_$0A $007F, $0080 0A1423 30 03 0A BSR.68K $030A ; => $0A111C => $003AA2 0A1426 0E 00 FF 00 80 ?_$0E $00FF, $0080 0A142B 3E PUSH.W $0000 0A142C 97 2D WRITE.F $2D 0A142E 40 PUSH.6 $00 0A142F 36 21 03 _2362 $0103 ; A0 = $004000; (A0) = A6 + $0 0A1432 42 PUSH.6 $02 0A1433 38 00 25 BLS.B $0025 ; => $0A145B 0A1436 40 PUSH.6 $00 0A1437 36 21 04 _2362 $0104 ; A0 = $004000; (A0) = A6 + $0 0A143A 42 PUSH.6 $02 0A143B 38 00 18 BLS.B $0018 ; => $0A1456 0A143E 87 2D READ.F $2D 0A1440 C8 01 03 READ.B $0103 0A1443 44 PUSH.6 $04 0A1444 29 MUL.L 0A1445 C8 01 04 READ.B $0104 0A1448 27 ADD.L 0A1449 AB FF READ.F $FF 0A144B 30 03 4A BSR.68K $034A ; => $0A1104 => $002B72 (NATIVE) 0A144E 20 ADD.F 0A144F 97 2D WRITE.F $2D 0A1451 37 21 04 00 1C _23d2 $0104, $001C 0A1456 37 21 03 00 29 _23d2 $0103, $0029 0A145B 87 2D READ.F $2D 0A145D 87 35 READ.F $35 0A145F 03 21 LT.F 0A1461 87 2D READ.F $2D 0A1463 3E PUSH.W $0000 0A1464 24 GT.F 0A1465 2C AND.L 0A1466 18 0E BRZ $00E ; => $0A1476 0A1468 87 2D READ.F $2D 0A146A 97 35 WRITE.F $35 0A146C 09 00 21 00 04 ?_$09 $0021, $0004 0A1471 0D 00 25 00 04 ?_$0D $0025, $0004 0A1476 37 10 1F 00 A7 _23d2 $001F, $00A7 0A147B 37 10 20 00 F7 _23d2 $0020, $00F7 0A1480 37 10 21 01 3C _23d2 $0021, $013C 0A1485 03 2E 01 06 ADDSP.W $0106 0A1489 34 RETURN ; ---------------- End Function $0A12EC ---------------- ; ---------------- Begin 2144 Function $0A148A ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A159C:$0A15B6 ; addr bytes opcode operands comment 0A1491 31 94 SUBSP.B $94 0A1493 40 PUSH.6 $00 0A1494 94 1F WRITE.B $1F 0A1496 40 PUSH.6 $00 0A1497 94 1E WRITE.B $1E 0A1499 42 PUSH.6 $02 0A149A 43 PUSH.6 $03 0A149B 29 MUL.L 0A149C 40 PUSH.6 $00 0A149D 27 ADD.L 0A149E 83 4F READ.F $4F 0A14A0 83 C7 READ.F $C7 0A14A2 23 DIV.F 0A14A3 BB 47 WRITE.F $47 0A14A5 42 PUSH.6 $02 0A14A6 43 PUSH.6 $03 0A14A7 29 MUL.L 0A14A8 41 PUSH.6 $01 0A14A9 27 ADD.L 0A14AA 83 57 READ.F $57 0A14AC 83 C7 READ.F $C7 0A14AE 23 DIV.F 0A14AF BB 47 WRITE.F $47 0A14B1 42 PUSH.6 $02 0A14B2 43 PUSH.6 $03 0A14B3 29 MUL.L 0A14B4 42 PUSH.6 $02 0A14B5 27 ADD.L 0A14B6 83 5F READ.F $5F 0A14B8 83 C7 READ.F $C7 0A14BA 23 DIV.F 0A14BB BB 47 WRITE.F $47 0A14BD 40 PUSH.6 $00 0A14BE 36 10 21 _2362 $0021 ; A0 = $004000; (A0) = A6 + $0 0A14C1 C0 29 9B READ.B $299B 0A14C4 41 PUSH.6 $01 0A14C5 28 SUB.L 0A14C6 38 00 D0 BLS.B $00D0 ; => $0A1599 0A14C9 84 21 READ.B $21 0A14CB E0 47 75 READ.B $4775 0A14CE 18 C4 BRZ $0C4 ; => $0A1594 0A14D0 84 21 READ.B $21 0A14D2 E0 40 09 READ.B $4009 0A14D5 98 90 WRITE.B $90 0A14D7 40 PUSH.6 $00 0A14D8 36 20 92 _2362 $0092 ; A0 = $004000; (A0) = A6 + $0 0A14DB 42 PUSH.6 $02 0A14DC 38 00 17 BLS.B $0017 ; => $0A14F6 0A14DF 40 PUSH.6 $00 0A14E0 43 PUSH.6 $03 0A14E1 29 MUL.L 0A14E2 88 92 READ.B $92 0A14E4 27 ADD.L 0A14E5 88 90 READ.B $90 0A14E7 43 PUSH.6 $03 0A14E8 29 MUL.L 0A14E9 88 92 READ.B $92 0A14EB 27 ADD.L 0A14EC E3 28 1F READ.F $281F 0A14EF BB 47 WRITE.F $47 0A14F1 37 20 92 00 1B _23d2 $0092, $001B 0A14F6 84 21 READ.B $21 0A14F8 41 PUSH.6 $01 0A14F9 27 ADD.L 0A14FA 36 10 20 _2362 $0020 ; A0 = $004000; (A0) = A6 + $0 0A14FD C0 29 9B READ.B $299B 0A1500 38 00 91 BLS.B $0091 ; => $0A1594 0A1503 84 20 READ.B $20 0A1505 E0 47 75 READ.B $4775 0A1508 18 85 BRZ $085 ; => $0A158F 0A150A 84 20 READ.B $20 0A150C E0 40 09 READ.B $4009 0A150F 98 91 WRITE.B $91 0A1511 88 90 READ.B $90 0A1513 88 91 READ.B $91 0A1515 2A EQ.L 0A1516 18 02 BRZ $002 ; => $0A151A 0A1518 10 75 BR $075 ; => $0A158F 0A151A 40 PUSH.6 $00 0A151B 36 20 92 _2362 $0092 ; A0 = $004000; (A0) = A6 + $0 0A151E 42 PUSH.6 $02 0A151F 38 00 17 BLS.B $0017 ; => $0A1539 0A1522 41 PUSH.6 $01 0A1523 43 PUSH.6 $03 0A1524 29 MUL.L 0A1525 88 92 READ.B $92 0A1527 27 ADD.L 0A1528 88 91 READ.B $91 0A152A 43 PUSH.6 $03 0A152B 29 MUL.L 0A152C 88 92 READ.B $92 0A152E 27 ADD.L 0A152F E3 28 1F READ.F $281F 0A1532 BB 47 WRITE.F $47 0A1534 37 20 92 00 1B _23d2 $0092, $001B 0A1539 0A 00 47 00 48 ?_$0A $0047, $0048 0A153E 30 04 2B BSR.68K $042B ; => $0A1116 => $00398A 0A1541 0E 00 8F 00 48 ?_$0E $008F, $0048 0A1546 3E PUSH.W $0000 0A1547 97 2D WRITE.F $2D 0A1549 40 PUSH.6 $00 0A154A 36 20 92 _2362 $0092 ; A0 = $004000; (A0) = A6 + $0 0A154D 42 PUSH.6 $02 0A154E 38 00 23 BLS.B $0023 ; => $0A1574 0A1551 40 PUSH.6 $00 0A1552 36 20 93 _2362 $0093 ; A0 = $004000; (A0) = A6 + $0 0A1555 41 PUSH.6 $01 0A1556 38 00 16 BLS.B $0016 ; => $0A156F 0A1559 87 2D READ.F $2D 0A155B 88 92 READ.B $92 0A155D 43 PUSH.6 $03 0A155E 29 MUL.L 0A155F 88 93 READ.B $93 0A1561 27 ADD.L 0A1562 AB 8F READ.F $8F 0A1564 30 04 63 BSR.68K $0463 ; => $0A1104 => $002B72 (NATIVE) 0A1567 20 ADD.F 0A1568 97 2D WRITE.F $2D 0A156A 37 20 93 00 1A _23d2 $0093, $001A 0A156F 37 20 92 00 27 _23d2 $0092, $0027 0A1574 87 2D READ.F $2D 0A1576 87 35 READ.F $35 0A1578 03 21 LT.F 0A157A 87 2D READ.F $2D 0A157C 3E PUSH.W $0000 0A157D 24 GT.F 0A157E 2C AND.L 0A157F 18 0E BRZ $00E ; => $0A158F 0A1581 87 2D READ.F $2D 0A1583 97 35 WRITE.F $35 0A1585 09 00 21 00 04 ?_$09 $0021, $0004 0A158A 0D 00 25 00 04 ?_$0D $0025, $0004 0A158F 37 10 20 00 97 _23d2 $0020, $0097 0A1594 37 10 21 00 D8 _23d2 $0021, $00D8 0A1599 32 94 ADDSP.B $94 0A159B 34 RETURN ; ---------------- End Function $0A148A ---------------- ; ---------------- Begin 2144 Function $0A159C ---------------- ; A0 = $004004; (A0) = SP + $1D ; called from $0A0EB6:$0A0F57 ; addr bytes opcode operands comment 0A15A3 31 1A SUBSP.B $1A 0A15A5 3B 7E 37 E4 3C 88 00 75 9C PUSH.F $7E37E43C8800759C ; float = 1000000000000000052504760255204420248704468581108159154915854115511802457988908195786371375080447864043704443832883878176942523235360430575644792184786706982848387200926575803737830233794788090059368953234970799945081119038967640880074652742780142494579258788820056842838115669472196386865459400540160.000000 0A15AE 97 35 WRITE.F $35 0A15B0 86 03 READ.L $03 0A15B2 35 SWITCH 0A15B3 10 06 02 CASE $02 ; SWITCH $0A15B2 0A15B6 30 01 2F BSR.68K $012F ; => $0A148A 0A15B9 10 11 BR $011 ; => $0A15CC 0A15BB 10 06 03 CASE $03 ; SWITCH $0A15B2 0A15BE 30 02 D5 BSR.68K $02D5 ; => $0A12EC 0A15C1 10 09 BR $009 ; => $0A15CC 0A15C3 10 06 04 CASE $04 ; SWITCH $0A15B2 0A15C6 30 04 A1 BSR.68K $04A1 ; => $0A1128 0A15C9 10 01 BR $001 ; => $0A15CC 0A15CB 00 DEFAULT ; SWITCH $0A15B2 0A15CC 87 35 READ.F $35 0A15CE 30 04 D3 BSR.68K $04D3 ; => $0A10FE => $002682 (NATIVE) 0A15D1 97 0B WRITE.F $0B 0A15D3 C0 67 EC READ.B $67EC 0A15D6 87 0B READ.F $0B 0A15D8 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 0A15E1 03 21 LT.F 0A15E3 2C AND.L 0A15E4 18 03 BRZ $003 ; => $0A15E9 0A15E6 3E PUSH.W $0000 0A15E7 97 0B WRITE.F $0B 0A15E9 40 PUSH.6 $00 0A15EA 36 10 37 _2362 $0037 ; A0 = $004000; (A0) = A6 + $0 0A15ED 86 03 READ.L $03 0A15EF 41 PUSH.6 $01 0A15F0 28 SUB.L 0A15F1 38 00 0D BLS.B $000D ; => $0A1601 0A15F4 84 37 READ.B $37 0A15F6 84 37 READ.B $37 0A15F8 A4 25 READ.B $25 0A15FA B4 19 WRITE.B $19 0A15FC 37 10 37 00 14 _23d2 $0037, $0014 0A1601 32 1A ADDSP.B $1A 0A1603 33 _2300 0A1604 33 _2300 0A1605 32 04 ADDSP.B $04 0A1607 34 RETURN ; ---------------- End Function $0A159C ---------------- ; ---------------- Begin 2144 Function $0A1662 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A173A:$0A17BF ; called from $0A17F2:$0A1829 ; called from $0A1850:$0A1887 ; addr bytes opcode operands comment 0A1669 30 00 64 BSR.68K $0064 ; => $0A1608 => $0034AA (CLEARSCREEN) (NATIVE) 0A166C 40 PUSH.6 $00 0A166D 3F 20 50 4C 4F 54 20 4F 4E DISP "PLOT ON PORT1 PORT2" 20 20 20 20 20 20 20 20 20 50 4F 52 54 31 20 20 20 20 20 20 50 4F 52 54 32 0A168F C0 29 70 READ.B $2970 0A1692 18 05 BRZ $005 ; => $0A1699 0A1694 6A PUSH.6 $2A 0A1695 90 05 WRITE.B $05 0A1697 10 03 BR $003 ; => $0A169C 0A1699 6A PUSH.6 $2A 0A169A 90 0A WRITE.B $0A 0A169C 34 RETURN ; ---------------- End Function $0A1662 ---------------- ; ---------------- Begin 2144 Function $0A169E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A16DC:$0A16EE ; called from $0A16DC:$0A16FB ; called from $0A16DC:$0A1703 ; addr bytes opcode operands comment 0A16A5 30 00 70 BSR.68K $0070 ; => $0A1638 => $091640 0A16A8 80 22 READ.B $22 0A16AA 35 SWITCH 0A16AB 10 0C 02 CASE $02 ; SWITCH $0A16AA 0A16AE C1 56 27 READ.W $5627 0A16B1 06 00 PUSH.10 $200 0A16B3 2D OR.L 0A16B4 D1 56 27 WRITE.W $5627 0A16B7 10 1E BR $01E ; => $0A16D7 0A16B9 10 0C 04 CASE $04 ; SWITCH $0A16AA 0A16BC C1 56 27 READ.W $5627 0A16BF 05 00 PUSH.10 $100 0A16C1 2D OR.L 0A16C2 D1 56 27 WRITE.W $5627 0A16C5 10 10 BR $010 ; => $0A16D7 0A16C7 10 0D 07 CASE $07 ; SWITCH $0A16AA 0A16CA C1 56 27 READ.W $5627 0A16CD 3C 04 00 PUSH.W $0400 0A16D0 2D OR.L 0A16D1 D1 56 27 WRITE.W $5627 0A16D4 10 01 BR $001 ; => $0A16D7 0A16D6 00 DEFAULT ; SWITCH $0A16AA 0A16D7 4B PUSH.6 $0B 0A16D8 90 21 WRITE.B $21 0A16DA 34 RETURN ; ---------------- End Function $0A169E ---------------- ; ---------------- Begin 2144 Function $0A16DC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A1A30:$0A1A5F ; addr bytes opcode operands comment 0A16E3 80 20 READ.B $20 0A16E5 35 SWITCH 0A16E6 20 0B 10 50 CASE $10, $50 ; SWITCH $0A16E5 0A16EA 40 PUSH.6 $00 0A16EB D0 29 70 WRITE.B $2970 0A16EE 30 00 53 BSR.68K $0053 ; => $0A169E 0A16F1 10 19 BR $019 ; => $0A170C 0A16F3 20 0B 90 D0 CASE $90, $D0 ; SWITCH $0A16E5 0A16F7 41 PUSH.6 $01 0A16F8 D0 29 70 WRITE.B $2970 0A16FB 30 00 60 BSR.68K $0060 ; => $0A169E 0A16FE 10 0C BR $00C ; => $0A170C 0A1700 10 06 04 CASE $04 ; SWITCH $0A16E5 0A1703 30 00 68 BSR.68K $0068 ; => $0A169E 0A1706 10 04 BR $004 ; => $0A170C 0A1708 00 DEFAULT ; SWITCH $0A16E5 0A1709 30 00 DA BSR.68K $00DA ; => $0A1632 => $09D9DE 0A170C 34 RETURN ; ---------------- End Function $0A16DC ---------------- ; ---------------- Begin 2144 Function $0A170E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A173A:$0A1754 ; called from $0A173A:$0A17A2 ; called from $0A173A:$0A17C7 ; called from $0A1A30:$0A1A6E ; called from $0A1C82:$0A1E8E ; addr bytes opcode operands comment 0A1715 30 01 10 BSR.68K $0110 ; => $0A1608 => $0034AA (CLEARSCREEN) (NATIVE) 0A1718 40 PUSH.6 $00 0A1719 3F 10 53 56 20 30 33 20 20 DISP "SV 03 PLOT ELEV" 50 4C 4F 54 20 45 4C 45 56 0A172B 43 PUSH.6 $03 0A172C 30 00 D3 BSR.68K $00D3 ; => $0A165C => $097A88 0A172F 30 00 E2 BSR.68K $00E2 ; => $0A1650 => $097B0A 0A1732 30 00 F7 BSR.68K $00F7 ; => $0A163E => $09166C 0A1735 43 PUSH.6 $03 0A1736 90 26 WRITE.B $26 0A1738 34 RETURN ; ---------------- End Function $0A170E ---------------- ; ---------------- Begin 2144 Function $0A173A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A1A30:$0A1A3D ; addr bytes opcode operands comment 0A1741 31 02 SUBSP.B $02 0A1743 80 20 READ.B $20 0A1745 35 SWITCH 0A1746 10 11 02 CASE $02 ; SWITCH $0A1745 0A1749 80 26 READ.B $26 0A174B 43 PUSH.6 $03 0A174C 2A EQ.L 0A174D 18 05 BRZ $005 ; => $0A1754 0A174F 40 PUSH.6 $00 0A1750 90 21 WRITE.B $21 0A1752 10 03 BR $003 ; => $0A1757 0A1754 30 00 49 BSR.68K $0049 ; => $0A170E 0A1757 10 21 BR $021 ; => $0A177A 0A1759 10 06 04 CASE $04 ; SWITCH $0A1745 0A175C 61 PUSH.6 $21 0A175D 90 26 WRITE.B $26 0A175F 10 19 BR $019 ; => $0A177A 0A1761 00 DEFAULT ; SWITCH $0A1745 0A1762 80 26 READ.B $26 0A1764 45 PUSH.6 $05 0A1765 03 26 GT.L 0A1767 18 07 BRZ $007 ; => $0A1770 0A1769 30 01 5E BSR.68K $015E ; => $0A160E => $09DFB4 0A176C 94 00 WRITE.B $00 0A176E 10 0A BR $00A ; => $0A177A 0A1770 80 26 READ.B $26 0A1772 60 PUSH.6 $20 0A1773 03 26 GT.L 0A1775 18 03 BRZ $003 ; => $0A177A 0A1777 30 01 36 BSR.68K $0136 ; => $0A1644 => $091710 0A177A 80 26 READ.B $26 0A177C 35 SWITCH 0A177D 10 13 04 CASE $04 ; SWITCH $0A177C 0A1780 80 1C READ.B $1C 0A1782 73 PUSH.6 $33 0A1783 03 25 LT.L 0A1785 18 09 BRZ $009 ; => $0A1790 0A1787 80 1C READ.B $1C 0A1789 90 1B WRITE.B $1B 0A178B 70 PUSH.6 $30 0A178C 90 1C WRITE.B $1C 0A178E 10 05 BR $005 ; => $0A1795 0A1790 10 3B BR $03B ; => $0A17CD 0A1792 10 13 05 CASE $05 ; SWITCH $0A177C 0A1795 54 PUSH.6 $14 0A1796 90 26 WRITE.B $26 0A1798 43 PUSH.6 $03 0A1799 30 01 88 BSR.68K $0188 ; => $0A1614 => $09E078 0A179C 30 01 49 BSR.68K $0149 ; => $0A1656 => $097AA8 0A179F 2E NOT.L 0A17A0 18 03 BRZ $003 ; => $0A17A5 0A17A2 30 00 97 BSR.68K $0097 ; => $0A170E 0A17A5 10 26 BR $026 ; => $0A17CD 0A17A7 10 23 21 CASE $21 ; SWITCH $0A177C 0A17AA 43 PUSH.6 $03 0A17AB 30 01 9A BSR.68K $019A ; => $0A1614 => $09E078 0A17AE D0 55 71 WRITE.B $5571 0A17B1 C0 55 71 READ.B $5571 0A17B4 30 01 61 BSR.68K $0161 ; => $0A1656 => $097AA8 0A17B7 18 0E BRZ $00E ; => $0A17C7 0A17B9 30 01 72 BSR.68K $0172 ; => $0A164A => $091698 0A17BC D2 55 7D WRITE.L $557D 0A17BF 30 01 60 BSR.68K $0160 ; => $0A1662 0A17C2 42 PUSH.6 $02 0A17C3 90 22 WRITE.B $22 0A17C5 10 03 BR $003 ; => $0A17CA 0A17C7 30 00 BC BSR.68K $00BC ; => $0A170E 0A17CA 10 01 BR $001 ; => $0A17CD 0A17CC 00 DEFAULT ; SWITCH $0A177C 0A17CD 32 02 ADDSP.B $02 0A17CF 34 RETURN ; ---------------- End Function $0A173A ---------------- ; ---------------- Begin 2144 Function $0A17D0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A17F2:$0A180C ; called from $0A1A30:$0A1A79 ; addr bytes opcode operands comment 0A17D7 30 01 D2 BSR.68K $01D2 ; => $0A1608 => $0034AA (CLEARSCREEN) (NATIVE) 0A17DA 41 PUSH.6 $01 0A17DB 3F 0D 50 4C 4F 54 20 53 43 DISP "PLOT SCHEDULE" 48 45 44 55 4C 45 0A17EA 30 01 AF BSR.68K $01AF ; => $0A163E => $09166C 0A17ED 54 PUSH.6 $14 0A17EE 90 26 WRITE.B $26 0A17F0 34 RETURN ; ---------------- End Function $0A17D0 ---------------- ; ---------------- Begin 2144 Function $0A17F2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A1A30:$0A1A45 ; addr bytes opcode operands comment 0A17F9 31 02 SUBSP.B $02 0A17FB 80 20 READ.B $20 0A17FD 35 SWITCH 0A17FE 10 11 02 CASE $02 ; SWITCH $0A17FD 0A1801 80 26 READ.B $26 0A1803 54 PUSH.6 $14 0A1804 2A EQ.L 0A1805 18 05 BRZ $005 ; => $0A180C 0A1807 30 01 D8 BSR.68K $01D8 ; => $0A1632 => $09D9DE 0A180A 10 03 BR $003 ; => $0A180F 0A180C 30 00 3F BSR.68K $003F ; => $0A17D0 0A180F 10 0C BR $00C ; => $0A181D 0A1811 10 06 04 CASE $04 ; SWITCH $0A17FD 0A1814 61 PUSH.6 $21 0A1815 90 26 WRITE.B $26 0A1817 10 04 BR $004 ; => $0A181D 0A1819 00 DEFAULT ; SWITCH $0A17FD 0A181A 30 01 D9 BSR.68K $01D9 ; => $0A1644 => $091710 0A181D 80 26 READ.B $26 0A181F 61 PUSH.6 $21 0A1820 2A EQ.L 0A1821 18 0C BRZ $00C ; => $0A182F 0A1823 30 01 DC BSR.68K $01DC ; => $0A164A => $091698 0A1826 D2 55 7D WRITE.L $557D 0A1829 30 01 CA BSR.68K $01CA ; => $0A1662 0A182C 44 PUSH.6 $04 0A182D 90 22 WRITE.B $22 0A182F 32 02 ADDSP.B $02 0A1831 34 RETURN ; ---------------- End Function $0A17F2 ---------------- ; ---------------- Begin 2144 Function $0A1832 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A1850:$0A186A ; called from $0A1896:$0A1A1A ; addr bytes opcode operands comment 0A1839 30 02 34 BSR.68K $0234 ; => $0A1608 => $0034AA (CLEARSCREEN) (NATIVE) 0A183C 41 PUSH.6 $01 0A183D 3F 09 50 4C 4F 54 20 50 44 DISP "PLOT PDOP" 4F 50 0A1848 30 02 0D BSR.68K $020D ; => $0A163E => $09166C 0A184B 54 PUSH.6 $14 0A184C 90 26 WRITE.B $26 0A184E 34 RETURN ; ---------------- End Function $0A1832 ---------------- ; ---------------- Begin 2144 Function $0A1850 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A1A30:$0A1A55 ; addr bytes opcode operands comment 0A1857 31 02 SUBSP.B $02 0A1859 80 20 READ.B $20 0A185B 35 SWITCH 0A185C 10 11 02 CASE $02 ; SWITCH $0A185B 0A185F 80 26 READ.B $26 0A1861 54 PUSH.6 $14 0A1862 2A EQ.L 0A1863 18 05 BRZ $005 ; => $0A186A 0A1865 30 02 36 BSR.68K $0236 ; => $0A1632 => $09D9DE 0A1868 10 03 BR $003 ; => $0A186D 0A186A 30 00 3B BSR.68K $003B ; => $0A1832 0A186D 10 0C BR $00C ; => $0A187B 0A186F 10 06 04 CASE $04 ; SWITCH $0A185B 0A1872 61 PUSH.6 $21 0A1873 90 26 WRITE.B $26 0A1875 10 04 BR $004 ; => $0A187B 0A1877 00 DEFAULT ; SWITCH $0A185B 0A1878 30 02 37 BSR.68K $0237 ; => $0A1644 => $091710 0A187B 80 26 READ.B $26 0A187D 61 PUSH.6 $21 0A187E 2A EQ.L 0A187F 18 0C BRZ $00C ; => $0A188D 0A1881 30 02 3A BSR.68K $023A ; => $0A164A => $091698 0A1884 D2 55 7D WRITE.L $557D 0A1887 30 02 28 BSR.68K $0228 ; => $0A1662 0A188A 47 PUSH.6 $07 0A188B 90 22 WRITE.B $22 0A188D 32 02 ADDSP.B $02 0A188F 34 RETURN ; ---------------- End Function $0A1850 ---------------- ; ---------------- Begin 2144 Function $0A1896 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A1A30:$0A1A4D ; addr bytes opcode operands comment 0A189D 31 10 SUBSP.B $10 0A189F 80 20 READ.B $20 0A18A1 35 SWITCH 0A18A2 10 11 02 CASE $02 ; SWITCH $0A18A1 0A18A5 80 26 READ.B $26 0A18A7 4A PUSH.6 $0A 0A18A8 2A EQ.L 0A18A9 18 05 BRZ $005 ; => $0A18B0 0A18AB 40 PUSH.6 $00 0A18AC 90 21 WRITE.B $21 0A18AE 10 03 BR $003 ; => $0A18B3 0A18B0 30 00 23 BSR.68K $0023 ; => $0A1890 => $0A1F22 0A18B3 10 4C BR $04C ; => $0A1901 0A18B5 10 06 04 CASE $04 ; SWITCH $0A18A1 0A18B8 61 PUSH.6 $21 0A18B9 90 26 WRITE.B $26 0A18BB 10 44 BR $044 ; => $0A1901 0A18BD 10 10 D0 CASE $D0 ; SWITCH $0A18A1 0A18C0 80 26 READ.B $26 0A18C2 60 PUSH.6 $20 0A18C3 03 26 GT.L 0A18C5 18 06 BRZ $006 ; => $0A18CD 0A18C7 80 26 READ.B $26 0A18C9 41 PUSH.6 $01 0A18CA 27 ADD.L 0A18CB 90 26 WRITE.B $26 0A18CD 10 32 BR $032 ; => $0A1901 0A18CF 10 23 10 CASE $10 ; SWITCH $0A18A1 0A18D2 80 26 READ.B $26 0A18D4 4A PUSH.6 $0A 0A18D5 03 25 LT.L 0A18D7 18 19 BRZ $019 ; => $0A18F2 0A18D9 80 26 READ.B $26 0A18DB 52 PUSH.6 $12 0A18DC 2A EQ.L 0A18DD 18 05 BRZ $005 ; => $0A18E4 0A18DF 30 00 52 BSR.68K $0052 ; => $0A1890 => $0A1F22 0A18E2 10 0E BR $00E ; => $0A18F2 0A18E4 80 26 READ.B $26 0A18E6 41 PUSH.6 $01 0A18E7 28 SUB.L 0A18E8 90 26 WRITE.B $26 0A18EA 80 26 READ.B $26 0A18EC A0 1F READ.B $1F 0A18EE 60 PUSH.6 $20 0A18EF 2B NEQ.L 0A18F0 1F F2 BRZ $-0E ; => $0A18E4 0A18F2 10 0D BR $00D ; => $0A1901 0A18F4 00 DEFAULT ; SWITCH $0A18A1 0A18F5 80 26 READ.B $26 0A18F7 60 PUSH.6 $20 0A18F8 03 26 GT.L 0A18FA 18 05 BRZ $005 ; => $0A1901 0A18FC 30 02 F1 BSR.68K $02F1 ; => $0A160E => $09DFB4 0A18FF 94 00 WRITE.B $00 0A1901 08 4B 23 00 0A ?_$08 $4B23, $000A 0A1906 0D 00 0D 00 0A ?_$0D $000D, $000A 0A190B 80 15 READ.B $15 0A190D 4F PUSH.6 $0F 0A190E 2C AND.L 0A190F 94 0E WRITE.B $0E 0A1911 80 26 READ.B $26 0A1913 35 SWITCH 0A1914 10 30 0B CASE $0B ; SWITCH $0A1913 0A1917 84 0E READ.B $0E 0A1919 44 PUSH.6 $04 0A191A 03 25 LT.L 0A191C 84 0E READ.B $0E 0A191E 42 PUSH.6 $02 0A191F 03 26 GT.L 0A1921 2D OR.L 0A1922 18 05 BRZ $005 ; => $0A1929 0A1924 30 00 97 BSR.68K $0097 ; => $0A1890 => $0A1F22 0A1927 10 1B BR $01B ; => $0A1944 0A1929 52 PUSH.6 $12 0A192A 90 26 WRITE.B $26 0A192C 84 0E READ.B $0E 0A192E 44 PUSH.6 $04 0A192F 03 26 GT.L 0A1931 18 05 BRZ $005 ; => $0A1938 0A1933 5B PUSH.6 $1B 0A1934 3F 02 20 20 DISP " " 0A1938 84 0E READ.B $0E 0A193A 43 PUSH.6 $03 0A193B 03 26 GT.L 0A193D 18 05 BRZ $005 ; => $0A1944 0A193F 58 PUSH.6 $18 0A1940 3F 02 20 20 DISP " " 0A1944 10 E6 BR $0E6 ; => $0A1A2C 0A1946 40 2A 13 16 19 1C CASE $13, $16, $19, $1C ; SWITCH $0A1913 0A194C 80 26 READ.B $26 0A194E 41 PUSH.6 $01 0A194F 28 SUB.L 0A1950 A0 1F READ.B $1F 0A1952 73 PUSH.6 $33 0A1953 03 25 LT.L 0A1955 18 19 BRZ $019 ; => $0A1970 0A1957 80 26 READ.B $26 0A1959 80 26 READ.B $26 0A195B 41 PUSH.6 $01 0A195C 28 SUB.L 0A195D A0 1F READ.B $1F 0A195F B0 1F WRITE.B $1F 0A1961 80 26 READ.B $26 0A1963 41 PUSH.6 $01 0A1964 28 SUB.L 0A1965 70 PUSH.6 $30 0A1966 B0 1F WRITE.B $1F 0A1968 80 26 READ.B $26 0A196A 41 PUSH.6 $01 0A196B 27 ADD.L 0A196C 90 26 WRITE.B $26 0A196E 10 08 BR $008 ; => $0A1978 0A1970 10 BA BR $0BA ; => $0A1A2C 0A1972 40 2F 14 17 1A 1D CASE $14, $17, $1A, $1D ; SWITCH $0A1913 0A1978 80 26 READ.B $26 0A197A 42 PUSH.6 $02 0A197B 28 SUB.L 0A197C 30 03 6B BSR.68K $036B ; => $0A1614 => $09E078 0A197F 30 03 2C BSR.68K $032C ; => $0A1656 => $097AA8 0A1982 2E NOT.L 0A1983 18 08 BRZ $008 ; => $0A198D 0A1985 80 26 READ.B $26 0A1987 42 PUSH.6 $02 0A1988 28 SUB.L 0A1989 90 26 WRITE.B $26 0A198B 10 06 BR $006 ; => $0A1993 0A198D 80 26 READ.B $26 0A198F 41 PUSH.6 $01 0A1990 27 ADD.L 0A1991 90 26 WRITE.B $26 0A1993 80 26 READ.B $26 0A1995 43 PUSH.6 $03 0A1996 84 0E READ.B $0E 0A1998 29 MUL.L 0A1999 52 PUSH.6 $12 0A199A 27 ADD.L 0A199B 2A EQ.L 0A199C 18 03 BRZ $003 ; => $0A19A1 0A199E 60 PUSH.6 $20 0A199F 90 26 WRITE.B $26 0A19A1 10 89 BR $089 ; => $0A1A2C 0A19A3 10 86 21 CASE $21 ; SWITCH $0A1913 0A19A6 04 FF PUSH.10 $0FF 0A19A8 94 01 WRITE.B $01 0A19AA 40 PUSH.6 $00 0A19AB 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A19AE 84 0E READ.B $0E 0A19B0 41 PUSH.6 $01 0A19B1 28 SUB.L 0A19B2 38 00 1F BLS.B $001F ; => $0A19D4 0A19B5 84 00 READ.B $00 0A19B7 52 PUSH.6 $12 0A19B8 43 PUSH.6 $03 0A19B9 84 00 READ.B $00 0A19BB 29 MUL.L 0A19BC 27 ADD.L 0A19BD 30 03 AC BSR.68K $03AC ; => $0A1614 => $09E078 0A19C0 B4 0D WRITE.B $0D 0A19C2 84 00 READ.B $00 0A19C4 A4 0D READ.B $0D 0A19C6 30 03 73 BSR.68K $0373 ; => $0A1656 => $097AA8 0A19C9 2E NOT.L 0A19CA 18 03 BRZ $003 ; => $0A19CF 0A19CC 40 PUSH.6 $00 0A19CD 94 01 WRITE.B $01 0A19CF 37 10 00 00 26 _23d2 $0000, $0026 0A19D4 40 PUSH.6 $00 0A19D5 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A19D8 84 0E READ.B $0E 0A19DA 42 PUSH.6 $02 0A19DB 28 SUB.L 0A19DC 38 00 26 BLS.B $0026 ; => $0A1A05 0A19DF 84 00 READ.B $00 0A19E1 41 PUSH.6 $01 0A19E2 27 ADD.L 0A19E3 36 10 02 _2362 $0002 ; A0 = $004000; (A0) = A6 + $0 0A19E6 84 0E READ.B $0E 0A19E8 41 PUSH.6 $01 0A19E9 28 SUB.L 0A19EA 38 00 13 BLS.B $0013 ; => $0A1A00 0A19ED 84 00 READ.B $00 0A19EF A4 0D READ.B $0D 0A19F1 84 02 READ.B $02 0A19F3 A4 0D READ.B $0D 0A19F5 2A EQ.L 0A19F6 18 03 BRZ $003 ; => $0A19FB 0A19F8 40 PUSH.6 $00 0A19F9 94 01 WRITE.B $01 0A19FB 37 10 02 00 1A _23d2 $0002, $001A 0A1A00 37 10 00 00 2D _23d2 $0000, $002D 0A1A05 84 01 READ.B $01 0A1A07 18 19 BRZ $019 ; => $0A1A22 0A1A09 84 0E READ.B $0E 0A1A0B 41 PUSH.6 $01 0A1A0C 28 SUB.L 0A1A0D D0 55 71 WRITE.B $5571 0A1A10 09 00 0D 00 0A ?_$09 $000D, $000A 0A1A15 0C 4B 23 00 0A ?_$0C $4B23, $000A 0A1A1A 30 01 EB BSR.68K $01EB ; => $0A1832 0A1A1D 46 PUSH.6 $06 0A1A1E 90 22 WRITE.B $22 0A1A20 10 07 BR $007 ; => $0A1A29 0A1A22 54 PUSH.6 $14 0A1A23 D0 4E 51 WRITE.B $4E51 0A1A26 52 PUSH.6 $12 0A1A27 90 26 WRITE.B $26 0A1A29 10 01 BR $001 ; => $0A1A2C 0A1A2B 00 DEFAULT ; SWITCH $0A1913 0A1A2C 32 10 ADDSP.B $10 0A1A2E 34 RETURN ; ---------------- End Function $0A1896 ---------------- ; ---------------- Begin 2144 Function $0A1A30 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DBE7 ; addr bytes opcode operands comment 0A1A37 80 22 READ.B $22 0A1A39 35 SWITCH 0A1A3A 10 06 01 CASE $01 ; SWITCH $0A1A39 0A1A3D 30 03 06 BSR.68K $0306 ; => $0A173A 0A1A40 10 50 BR $050 ; => $0A1A92 0A1A42 10 06 03 CASE $03 ; SWITCH $0A1A39 0A1A45 30 02 56 BSR.68K $0256 ; => $0A17F2 0A1A48 10 48 BR $048 ; => $0A1A92 0A1A4A 10 06 05 CASE $05 ; SWITCH $0A1A39 0A1A4D 30 01 BA BSR.68K $01BA ; => $0A1896 0A1A50 10 40 BR $040 ; => $0A1A92 0A1A52 10 06 06 CASE $06 ; SWITCH $0A1A39 0A1A55 30 02 08 BSR.68K $0208 ; => $0A1850 0A1A58 10 38 BR $038 ; => $0A1A92 0A1A5A 30 08 02 04 07 CASE $02, $04, $07 ; SWITCH $0A1A39 0A1A5F 30 03 86 BSR.68K $0386 ; => $0A16DC 0A1A62 10 2E BR $02E ; => $0A1A92 0A1A64 00 DEFAULT ; SWITCH $0A1A39 0A1A65 80 20 READ.B $20 0A1A67 35 SWITCH 0A1A68 10 09 10 CASE $10 ; SWITCH $0A1A67 0A1A6B 41 PUSH.6 $01 0A1A6C 90 22 WRITE.B $22 0A1A6E 30 03 63 BSR.68K $0363 ; => $0A170E 0A1A71 10 1F BR $01F ; => $0A1A92 0A1A73 10 09 50 CASE $50 ; SWITCH $0A1A67 0A1A76 43 PUSH.6 $03 0A1A77 90 22 WRITE.B $22 0A1A79 30 02 AC BSR.68K $02AC ; => $0A17D0 0A1A7C 10 14 BR $014 ; => $0A1A92 0A1A7E 10 09 90 CASE $90 ; SWITCH $0A1A67 0A1A81 45 PUSH.6 $05 0A1A82 90 22 WRITE.B $22 0A1A84 30 01 F7 BSR.68K $01F7 ; => $0A1890 => $0A1F22 0A1A87 10 09 BR $009 ; => $0A1A92 0A1A89 10 03 D0 CASE $D0 ; SWITCH $0A1A67 0A1A8C 10 04 BR $004 ; => $0A1A92 0A1A8E 00 DEFAULT ; SWITCH $0A1A67 0A1A8F 30 04 60 BSR.68K $0460 ; => $0A1632 => $09D9DE 0A1A92 34 RETURN ; ---------------- End Function $0A1A30 ---------------- ; ---------------- Begin 2144 Function $0A1AFA ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A1B88:$0A1BE8 ; called from $0A1BEC:$0A1BF3 ; addr bytes opcode operands comment 0A1B01 03 30 02 20 20 TRAP1 " " 0A1B06 41 PUSH.6 $01 0A1B07 36 10 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 0A1B0A 04 5D PUSH.10 $05D 0A1B0C 38 00 08 BLS.B $0008 ; => $0A1B17 0A1B0F 30 00 3C BSR.68K $003C ; => $0A1AD6 => $0A058C (NATIVE) 0A1B12 37 10 03 00 0D _23d2 $0003, $000D 0A1B17 30 00 3E BSR.68K $003E ; => $0A1ADC => $0A05A4 (NATIVE) 0A1B1A 34 RETURN ; ---------------- End Function $0A1AFA ---------------- ; ---------------- Begin 2144 Function $0A1B1C ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A1B58:$0A1B84 ; called from $0A1BFE:$0A1C7D ; addr bytes opcode operands comment 0A1B23 40 PUSH.6 $00 0A1B24 36 10 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 0A1B27 04 5F PUSH.10 $05F 0A1B29 38 00 0C BLS.B $000C ; => $0A1B38 0A1B2C 84 03 READ.B $03 0A1B2E A4 8F READ.B $8F 0A1B30 30 00 75 BSR.68K $0075 ; => $0A1ABE => $0A056A (NATIVE) 0A1B33 37 10 03 00 11 _23d2 $0003, $0011 0A1B38 30 00 5F BSR.68K $005F ; => $0A1ADC => $0A05A4 (NATIVE) 0A1B3B 34 RETURN ; ---------------- End Function $0A1B1C ---------------- ; ---------------- Begin 2144 Function $0A1B3C ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A1B58:$0A1B5F ; called from $0A1BFE:$0A1C05 ; addr bytes opcode operands comment 0A1B43 40 PUSH.6 $00 0A1B44 36 10 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 0A1B47 04 5F PUSH.10 $05F 0A1B49 38 00 0A BLS.B $000A ; => $0A1B56 0A1B4C 84 03 READ.B $03 0A1B4E 60 PUSH.6 $20 0A1B4F B4 8F WRITE.B $8F 0A1B51 37 10 03 00 0F _23d2 $0003, $000F 0A1B56 34 RETURN ; ---------------- End Function $0A1B3C ---------------- ; ---------------- Begin 2144 Function $0A1B58 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A1B88:$0A1BE5 ; called from $0A1BEC:$0A1BF6 ; addr bytes opcode operands comment 0A1B5F 30 00 26 BSR.68K $0026 ; => $0A1B3C 0A1B62 40 PUSH.6 $00 0A1B63 36 10 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 0A1B66 49 PUSH.6 $09 0A1B67 38 00 1A BLS.B $001A ; => $0A1B84 0A1B6A 4A PUSH.6 $0A 0A1B6B 84 03 READ.B $03 0A1B6D 29 MUL.L 0A1B6E 42 PUSH.6 $02 0A1B6F 27 ADD.L 0A1B70 84 03 READ.B $03 0A1B72 70 PUSH.6 $30 0A1B73 27 ADD.L 0A1B74 B4 8F WRITE.B $8F 0A1B76 4A PUSH.6 $0A 0A1B77 84 03 READ.B $03 0A1B79 29 MUL.L 0A1B7A 43 PUSH.6 $03 0A1B7B 27 ADD.L 0A1B7C 70 PUSH.6 $30 0A1B7D B4 8F WRITE.B $8F 0A1B7F 37 10 03 00 1E _23d2 $0003, $001E 0A1B84 30 00 6B BSR.68K $006B ; => $0A1B1C 0A1B87 34 RETURN ; ---------------- End Function $0A1B58 ---------------- ; ---------------- Begin 2144 Function $0A1B88 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A1C82:$0A1D43 ; addr bytes opcode operands comment 0A1B8F 30 00 B6 BSR.68K $00B6 ; => $0A1ADC => $0A05A4 (NATIVE) 0A1B92 30 00 B9 BSR.68K $00B9 ; => $0A1ADC => $0A05A4 (NATIVE) 0A1B95 03 30 17 20 20 45 4C 45 56 TRAP1 " ELEVATION PLOT FOR SV" 41 54 49 4F 4E 20 50 4C 4F 54 20 46 4F 52 20 53 56 0A1BAF C0 55 71 READ.B $5571 0A1BB2 42 PUSH.6 $02 0A1BB3 30 00 F2 BSR.68K $00F2 ; => $0A1AC4 => $0A0036 0A1BB6 30 00 DD BSR.68K $00DD ; => $0A1ADC => $0A05A4 (NATIVE) 0A1BB9 03 30 06 20 20 4C 41 54 20 TRAP1 " LAT " 0A1BC2 83 37 READ.F $37 0A1BC4 30 00 FD BSR.68K $00FD ; => $0A1ACA => $0A0284 0A1BC7 03 30 05 20 20 4C 4F 4E TRAP1 " LON" 0A1BCF 83 3F READ.F $3F 0A1BD1 30 01 04 BSR.68K $0104 ; => $0A1AD0 => $0A02A8 0A1BD4 30 00 FB BSR.68K $00FB ; => $0A1ADC => $0A05A4 (NATIVE) 0A1BD7 03 30 02 20 20 TRAP1 " " 0A1BDC C2 55 7D READ.L $557D 0A1BDF 30 01 00 BSR.68K $0100 ; => $0A1AE2 => $0A042E 0A1BE2 30 01 09 BSR.68K $0109 ; => $0A1ADC => $0A05A4 (NATIVE) 0A1BE5 30 00 90 BSR.68K $0090 ; => $0A1B58 0A1BE8 30 00 F1 BSR.68K $00F1 ; => $0A1AFA 0A1BEB 34 RETURN ; ---------------- End Function $0A1B88 ---------------- ; ---------------- Begin 2144 Function $0A1BEC ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A1C82:$0A1E0A ; addr bytes opcode operands comment 0A1BF3 30 00 FC BSR.68K $00FC ; => $0A1AFA 0A1BF6 30 00 A1 BSR.68K $00A1 ; => $0A1B58 0A1BF9 30 01 20 BSR.68K $0120 ; => $0A1ADC => $0A05A4 (NATIVE) 0A1BFC 34 RETURN ; ---------------- End Function $0A1BEC ---------------- ; ---------------- Begin 2144 Function $0A1BFE ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A1C82:$0A1E02 ; addr bytes opcode operands comment 0A1C05 30 00 CC BSR.68K $00CC ; => $0A1B3C 0A1C08 40 PUSH.6 $00 0A1C09 36 10 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 0A1C0C 49 PUSH.6 $09 0A1C0D 38 00 0F BLS.B $000F ; => $0A1C1F 0A1C10 4A PUSH.6 $0A 0A1C11 84 03 READ.B $03 0A1C13 29 MUL.L 0A1C14 42 PUSH.6 $02 0A1C15 27 ADD.L 0A1C16 04 49 PUSH.10 $049 0A1C18 B4 8F WRITE.B $8F 0A1C1A 37 10 03 00 13 _23d2 $0003, $0013 0A1C1F 84 04 READ.B $04 0A1C21 44 PUSH.6 $04 0A1C22 2F MOD.L 0A1C23 40 PUSH.6 $00 0A1C24 2A EQ.L 0A1C25 18 14 BRZ $014 ; => $0A1C3B 0A1C27 84 04 READ.B $04 0A1C29 68 PUSH.6 $28 0A1C2A 03 24 DIV.L 0A1C2C 70 PUSH.6 $30 0A1C2D 27 ADD.L 0A1C2E 94 8F WRITE.B $8F 0A1C30 84 04 READ.B $04 0A1C32 44 PUSH.6 $04 0A1C33 03 24 DIV.L 0A1C35 4A PUSH.6 $0A 0A1C36 2F MOD.L 0A1C37 70 PUSH.6 $30 0A1C38 27 ADD.L 0A1C39 94 8E WRITE.B $8E 0A1C3B 87 0D READ.F $0D 0A1C3D 3E PUSH.W $0000 0A1C3E 25 GTE.F 0A1C3F 18 3C BRZ $03C ; => $0A1C7D 0A1C41 87 0D READ.F $0D 0A1C43 03 29 FLOAT2LONG 0A1C45 95 2D WRITE.W $2D 0A1C47 85 2D READ.W $2D 0A1C49 42 PUSH.6 $02 0A1C4A 27 ADD.L 0A1C4B 6A PUSH.6 $2A 0A1C4C B4 8F WRITE.B $8F 0A1C4E 87 25 READ.F $25 0A1C50 03 29 FLOAT2LONG 0A1C52 95 2F WRITE.W $2F 0A1C54 85 2D READ.W $2D 0A1C56 43 PUSH.6 $03 0A1C57 27 ADD.L 0A1C58 85 2F READ.W $2F 0A1C5A 04 64 PUSH.10 $064 0A1C5C 03 24 DIV.L 0A1C5E 70 PUSH.6 $30 0A1C5F 27 ADD.L 0A1C60 B4 8F WRITE.B $8F 0A1C62 85 2D READ.W $2D 0A1C64 44 PUSH.6 $04 0A1C65 27 ADD.L 0A1C66 85 2F READ.W $2F 0A1C68 4A PUSH.6 $0A 0A1C69 03 24 DIV.L 0A1C6B 4A PUSH.6 $0A 0A1C6C 2F MOD.L 0A1C6D 70 PUSH.6 $30 0A1C6E 27 ADD.L 0A1C6F B4 8F WRITE.B $8F 0A1C71 85 2D READ.W $2D 0A1C73 45 PUSH.6 $05 0A1C74 27 ADD.L 0A1C75 85 2F READ.W $2F 0A1C77 4A PUSH.6 $0A 0A1C78 2F MOD.L 0A1C79 70 PUSH.6 $30 0A1C7A 27 ADD.L 0A1C7B B4 8F WRITE.B $8F 0A1C7D 30 01 64 BSR.68K $0164 ; => $0A1B1C 0A1C80 34 RETURN ; ---------------- End Function $0A1BFE ---------------- ; ---------------- Begin 2144 Function $0A1C82 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A96E2:$0A971A ; addr bytes opcode operands comment 0A1C89 31 9E SUBSP.B $9E 0A1C8B C2 55 7D READ.L $557D 0A1C8E 47 PUSH.6 $07 0A1C8F 03 24 DIV.L 0A1C91 95 91 WRITE.W $91 0A1C93 C2 55 7D READ.L $557D 0A1C96 47 PUSH.6 $07 0A1C97 2F MOD.L 0A1C98 3D 00 01 51 80 PUSH.L $00015180 0A1C9D 29 MUL.L 0A1C9E 96 95 WRITE.L $95 0A1CA0 40 PUSH.6 $00 0A1CA1 36 10 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 0A1CA4 43 PUSH.6 $03 0A1CA5 38 00 0B BLS.B $000B ; => $0A1CB3 0A1CA8 84 03 READ.B $03 0A1CAA 04 DC PUSH.10 $0DC 0A1CAC B4 29 WRITE.B $29 0A1CAE 37 10 03 00 0F _23d2 $0003, $000F 0A1CB3 04 FF PUSH.10 $0FF 0A1CB5 D0 4E 66 WRITE.B $4E66 0A1CB8 80 21 READ.B $21 0A1CBA 4B PUSH.6 $0B 0A1CBB 2B NEQ.L 0A1CBC 18 02 BRZ $002 ; => $0A1CC0 0A1CBE 11 DD BR $1DD ; => $0A1E9D 0A1CC0 30 02 17 BSR.68K $0217 ; => $0A1AAC => $0034AA (CLEARSCREEN) (NATIVE) 0A1CC3 40 PUSH.6 $00 0A1CC4 3F 02 53 56 DISP "SV" 0A1CC8 43 PUSH.6 $03 0A1CC9 C0 55 71 READ.B $5571 0A1CCC 30 02 1D BSR.68K $021D ; => $0A1AB2 => $097B0A 0A1CCF C0 55 71 READ.B $5571 0A1CD2 30 02 35 BSR.68K $0235 ; => $0A1AA0 => $095184 0A1CD5 18 17 BRZ $017 ; => $0A1CEE 0A1CD7 40 PUSH.6 $00 0A1CD8 94 00 WRITE.B $00 0A1CDA 50 PUSH.6 $10 0A1CDB 3F 0F 55 53 49 4E 47 20 45 DISP "USING EPHEMERIS" 50 48 45 4D 45 52 49 53 0A1CEC 10 41 BR $041 ; => $0A1D2F 0A1CEE C0 55 71 READ.B $5571 0A1CF1 E1 18 9B READ.W $189B 0A1CF4 40 PUSH.6 $00 0A1CF5 2B NEQ.L 0A1CF6 18 15 BRZ $015 ; => $0A1D0D 0A1CF8 41 PUSH.6 $01 0A1CF9 94 00 WRITE.B $00 0A1CFB 50 PUSH.6 $10 0A1CFC 3F 0D 55 53 49 4E 47 20 41 DISP "USING ALMANAC" 4C 4D 41 4E 41 43 0A1D0B 10 22 BR $022 ; => $0A1D2F 0A1D0D 46 PUSH.6 $06 0A1D0E 3F 1A 4F 52 42 49 54 20 44 DISP "ORBIT DATA NOT AVAILABLE " 41 54 41 20 4E 4F 54 20 41 56 41 49 4C 41 42 4C 45 20 20 0A1D2A 30 02 93 BSR.68K $0293 ; => $0A1A9A => $0034C8 (SETSEGMENTS) (NATIVE) 0A1D2D 11 6E BR $16E ; => $0A1E9D 0A1D2F 40 PUSH.6 $00 0A1D30 D0 4E 66 WRITE.B $4E66 0A1D33 C0 29 70 READ.B $2970 0A1D36 40 PUSH.6 $00 0A1D37 2A EQ.L 0A1D38 D0 4E 94 WRITE.B $4E94 0A1D3B C0 29 70 READ.B $2970 0A1D3E 41 PUSH.6 $01 0A1D3F 2A EQ.L 0A1D40 D0 4F 98 WRITE.B $4F98 0A1D43 30 01 BE BSR.68K $01BE ; => $0A1B88 0A1D46 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A1D4F C0 55 71 READ.B $5571 0A1D52 84 00 READ.B $00 0A1D54 85 91 READ.W $91 0A1D56 86 95 READ.L $95 0A1D58 03 2A LONG2FLOAT 0A1D5A 30 02 A5 BSR.68K $02A5 ; => $0A1AB8 => $091BC4 0A1D5D 22 MUL.F 0A1D5E 97 0D WRITE.F $0D 0A1D60 87 0D READ.F $0D 0A1D62 C3 28 DB READ.F $28DB 0A1D65 24 GT.F 0A1D66 94 02 WRITE.B $02 0A1D68 84 02 READ.B $02 0A1D6A 41 PUSH.6 $01 0A1D6B 2C AND.L 0A1D6C 94 2A WRITE.B $2A 0A1D6E 41 PUSH.6 $01 0A1D6F 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0A1D72 04 60 PUSH.10 $060 0A1D74 38 00 93 BLS.B $0093 ; => $0A1E0A 0A1D77 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A1D80 C0 55 71 READ.B $5571 0A1D83 84 00 READ.B $00 0A1D85 85 91 READ.W $91 0A1D87 07 84 PUSH.10 $384 0A1D89 84 04 READ.B $04 0A1D8B 29 MUL.L 0A1D8C 86 95 READ.L $95 0A1D8E 27 ADD.L 0A1D8F 03 2A LONG2FLOAT 0A1D91 30 02 DC BSR.68K $02DC ; => $0A1AB8 => $091BC4 0A1D94 22 MUL.F 0A1D95 97 0D WRITE.F $0D 0A1D97 84 02 READ.B $02 0A1D99 94 01 WRITE.B $01 0A1D9B 87 0D READ.F $0D 0A1D9D C3 28 DB READ.F $28DB 0A1DA0 24 GT.F 0A1DA1 94 02 WRITE.B $02 0A1DA3 84 02 READ.B $02 0A1DA5 84 01 READ.B $01 0A1DA7 2B NEQ.L 0A1DA8 18 0E BRZ $00E ; => $0A1DB8 0A1DAA 84 2A READ.B $2A 0A1DAC 84 04 READ.B $04 0A1DAE B4 29 WRITE.B $29 0A1DB0 84 2A READ.B $2A 0A1DB2 41 PUSH.6 $01 0A1DB3 27 ADD.L 0A1DB4 44 PUSH.6 $04 0A1DB5 2F MOD.L 0A1DB6 94 2A WRITE.B $2A 0A1DB8 04 FF PUSH.10 $0FF 0A1DBA D0 4E 66 WRITE.B $4E66 0A1DBD 80 21 READ.B $21 0A1DBF 4B PUSH.6 $0B 0A1DC0 2B NEQ.L 0A1DC1 18 02 BRZ $002 ; => $0A1DC5 0A1DC3 10 D8 BR $0D8 ; => $0A1E9D 0A1DC5 46 PUSH.6 $06 0A1DC6 84 04 READ.B $04 0A1DC8 30 02 D7 BSR.68K $02D7 ; => $0A1AF4 => $091B7E 0A1DCB 87 0D READ.F $0D 0A1DCD 3E PUSH.W $0000 0A1DCE 03 21 LT.F 0A1DD0 18 03 BRZ $003 ; => $0A1DD5 0A1DD2 6D PUSH.6 $2D 0A1DD3 10 01 BR $001 ; => $0A1DD6 0A1DD5 6B PUSH.6 $2B 0A1DD6 90 14 WRITE.B $14 0A1DD8 4C PUSH.6 $0C 0A1DD9 87 0D READ.F $0D 0A1DDB 03 29 FLOAT2LONG 0A1DDD 30 03 2E BSR.68K $032E ; => $0A1AB2 => $097B0A 0A1DE0 30 03 49 BSR.68K $0349 ; => $0A1A9A => $0034C8 (SETSEGMENTS) (NATIVE) 0A1DE3 40 PUSH.6 $00 0A1DE4 D0 4E 66 WRITE.B $4E66 0A1DE7 87 0D READ.F $0D 0A1DE9 3E PUSH.W $0000 0A1DEA 24 GT.F 0A1DEB 18 15 BRZ $015 ; => $0A1E02 0A1DED 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A1DF6 87 9D 00 READ.F $9D 0A1DF9 87 9D 00 READ.F $9D 0A1DFC 30 03 6B BSR.68K $036B ; => $0A1A94 => $0AA420 0A1DFF 22 MUL.F 0A1E00 97 25 WRITE.F $25 0A1E02 30 02 07 BSR.68K $0207 ; => $0A1BFE 0A1E05 37 10 04 00 98 _23d2 $0004, $0098 0A1E0A 30 02 21 BSR.68K $0221 ; => $0A1BEC 0A1E0D 04 FF PUSH.10 $0FF 0A1E0F D0 4E 66 WRITE.B $4E66 0A1E12 80 21 READ.B $21 0A1E14 4B PUSH.6 $0B 0A1E15 2B NEQ.L 0A1E16 18 02 BRZ $002 ; => $0A1E1A 0A1E18 10 83 BR $083 ; => $0A1E9D 0A1E1A 30 03 71 BSR.68K $0371 ; => $0A1AAC => $0034AA (CLEARSCREEN) (NATIVE) 0A1E1D 84 29 READ.B $29 0A1E1F 04 DC PUSH.10 $0DC 0A1E21 2A EQ.L 0A1E22 18 08 BRZ $008 ; => $0A1E2C 0A1E24 84 27 READ.B $27 0A1E26 94 29 WRITE.B $29 0A1E28 04 DC PUSH.10 $0DC 0A1E2A 94 27 WRITE.B $27 0A1E2C 40 PUSH.6 $00 0A1E2D 3F 02 53 56 DISP "SV" 0A1E31 42 PUSH.6 $02 0A1E32 C0 55 71 READ.B $5571 0A1E35 30 03 86 BSR.68K $0386 ; => $0A1AB2 => $097B0A 0A1E38 40 PUSH.6 $00 0A1E39 36 10 2A _2362 $002A ; A0 = $004000; (A0) = A6 + $0 0A1E3C 84 27 READ.B $27 0A1E3E 04 DC PUSH.10 $0DC 0A1E40 2A EQ.L 0A1E41 18 03 BRZ $003 ; => $0A1E46 0A1E43 41 PUSH.6 $01 0A1E44 10 01 BR $001 ; => $0A1E47 0A1E46 43 PUSH.6 $03 0A1E47 38 00 37 BLS.B $0037 ; => $0A1E81 0A1E4A 84 2A READ.B $2A 0A1E4C 35 SWITCH 0A1E4D 10 0B 00 CASE $00 ; SWITCH $0A1E4C 0A1E50 46 PUSH.6 $06 0A1E51 94 05 WRITE.B $05 0A1E53 4A PUSH.6 $0A 0A1E54 3F 02 2D 2D DISP "--" 0A1E58 10 19 BR $019 ; => $0A1E73 0A1E5A 10 06 01 CASE $01 ; SWITCH $0A1E4C 0A1E5D 4C PUSH.6 $0C 0A1E5E 94 05 WRITE.B $05 0A1E60 10 11 BR $011 ; => $0A1E73 0A1E62 10 0B 02 CASE $02 ; SWITCH $0A1E4C 0A1E65 56 PUSH.6 $16 0A1E66 94 05 WRITE.B $05 0A1E68 5A PUSH.6 $1A 0A1E69 3F 02 2D 2D DISP "--" 0A1E6D 10 04 BR $004 ; => $0A1E73 0A1E6F 00 DEFAULT ; SWITCH $0A1E4C 0A1E70 5C PUSH.6 $1C 0A1E71 94 05 WRITE.B $05 0A1E73 84 05 READ.B $05 0A1E75 84 2A READ.B $2A 0A1E77 A4 29 READ.B $29 0A1E79 30 03 88 BSR.68K $0388 ; => $0A1AF4 => $091B7E 0A1E7C 37 10 2A 00 45 _23d2 $002A, $0045 0A1E81 30 03 EA BSR.68K $03EA ; => $0A1A9A => $0034C8 (SETSEGMENTS) (NATIVE) 0A1E84 54 PUSH.6 $14 0A1E85 30 03 A0 BSR.68K $03A0 ; => $0A1AE8 => $094DBA 0A1E88 75 PUSH.6 $35 0A1E89 90 21 WRITE.B $21 0A1E8B 41 PUSH.6 $01 0A1E8C 90 22 WRITE.B $22 0A1E8E 30 03 A3 BSR.68K $03A3 ; => $0A1AEE => $0A170E 0A1E91 43 PUSH.6 $03 0A1E92 C0 55 71 READ.B $5571 0A1E95 30 03 E6 BSR.68K $03E6 ; => $0A1AB2 => $097B0A 0A1E98 04 FF PUSH.10 $0FF 0A1E9A D0 4E 63 WRITE.B $4E63 0A1E9D 40 PUSH.6 $00 0A1E9E D0 4E 66 WRITE.B $4E66 0A1EA1 32 9E ADDSP.B $9E 0A1EA3 34 RETURN ; ---------------- End Function $0A1C82 ---------------- ; ---------------- Begin 2144 Function $0A1F22 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A1896:$0A18B0 ; called from $0A1896:$0A18DF ; called from $0A1896:$0A1924 ; called from $0A1A30:$0A1A84 ; called from $0A2468:$0A2558 ; addr bytes opcode operands comment 0A1F29 31 02 SUBSP.B $02 0A1F2B 30 00 54 BSR.68K $0054 ; => $0A1EDA => $0034AA (CLEARSCREEN) (NATIVE) 0A1F2E 40 PUSH.6 $00 0A1F2F 3F 0F 50 4C 4F 54 20 50 44 DISP "PLOT PDOP 4 SVS" 4F 50 20 34 20 53 56 53 0A1F40 4A PUSH.6 $0A 0A1F41 90 26 WRITE.B $26 0A1F43 40 PUSH.6 $00 0A1F44 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A1F47 43 PUSH.6 $03 0A1F48 38 00 13 BLS.B $0013 ; => $0A1F5E 0A1F4B 52 PUSH.6 $12 0A1F4C 43 PUSH.6 $03 0A1F4D 84 00 READ.B $00 0A1F4F 29 MUL.L 0A1F50 27 ADD.L 0A1F51 84 00 READ.B $00 0A1F53 E0 4B 23 READ.B $4B23 0A1F56 30 00 79 BSR.68K $0079 ; => $0A1EE0 => $097B0A 0A1F59 37 10 00 00 17 _23d2 $0000, $0017 0A1F5E 32 02 ADDSP.B $02 0A1F60 34 RETURN ; ---------------- End Function $0A1F22 ---------------- ; ---------------- Begin 2164 Function $0A1F62 ---------------- ; P0 = $0000; P1 = $0008; P2 = $02 ; A0 = $004008; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $0A2468:$0A24FE ; addr bytes opcode operands comment 0A1F6B 31 82 SUBSP.B $82 0A1F6D 40 PUSH.6 $00 0A1F6E 36 20 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 0A1F71 43 PUSH.6 $03 0A1F72 38 00 36 BLS.B $0036 ; => $0A1FAB 0A1F75 40 PUSH.6 $00 0A1F76 36 20 09 _2362 $0009 ; A0 = $004000; (A0) = A6 + $0 0A1F79 42 PUSH.6 $02 0A1F7A 38 00 18 BLS.B $0018 ; => $0A1F95 0A1F7D 88 08 READ.B $08 0A1F7F 44 PUSH.6 $04 0A1F80 29 MUL.L 0A1F81 88 09 READ.B $09 0A1F83 27 ADD.L 0A1F84 88 08 READ.B $08 0A1F86 43 PUSH.6 $03 0A1F87 29 MUL.L 0A1F88 88 09 READ.B $09 0A1F8A 27 ADD.L 0A1F8B E7 01 6D READ.F $016D 0A1F8E BB 89 WRITE.F $89 0A1F90 37 20 09 00 1C _23d2 $0009, $001C 0A1F95 88 08 READ.B $08 0A1F97 44 PUSH.6 $04 0A1F98 29 MUL.L 0A1F99 43 PUSH.6 $03 0A1F9A 27 ADD.L 0A1F9B 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A1FA4 BB 89 WRITE.F $89 0A1FA6 37 20 08 00 3A _23d2 $0008, $003A 0A1FAB 0A 00 89 00 80 ?_$0A $0089, $0080 0A1FB0 30 00 FD BSR.68K $00FD ; => $0A1EB6 => $003E8A (NATIVE) 0A1FB3 0A 00 89 00 80 ?_$0A $0089, $0080 0A1FB8 30 01 0B BSR.68K $010B ; => $0A1EB0 => $003766 0A1FBB 30 00 FC BSR.68K $00FC ; => $0A1EC2 => $09788A 0A1FBE 0E 00 89 00 80 ?_$0E $0089, $0080 0A1FC3 40 PUSH.6 $00 0A1FC4 44 PUSH.6 $04 0A1FC5 29 MUL.L 0A1FC6 40 PUSH.6 $00 0A1FC7 27 ADD.L 0A1FC8 AB 89 READ.F $89 0A1FCA 41 PUSH.6 $01 0A1FCB 44 PUSH.6 $04 0A1FCC 29 MUL.L 0A1FCD 41 PUSH.6 $01 0A1FCE 27 ADD.L 0A1FCF AB 89 READ.F $89 0A1FD1 20 ADD.F 0A1FD2 42 PUSH.6 $02 0A1FD3 44 PUSH.6 $04 0A1FD4 29 MUL.L 0A1FD5 42 PUSH.6 $02 0A1FD6 27 ADD.L 0A1FD7 AB 89 READ.F $89 0A1FD9 20 ADD.F 0A1FDA 30 01 39 BSR.68K $0139 ; => $0A1EA4 => $002682 (NATIVE) 0A1FDD 9B 07 WRITE.F $07 0A1FDF 32 82 ADDSP.B $82 0A1FE1 34 RETURN ; ---------------- End Function $0A1F62 ---------------- ; ---------------- Begin 2164 Function $0A1FE2 ---------------- ; P0 = $0000; P1 = $0008; P2 = $02 ; A0 = $004008; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $0A2468:$0A24F3 ; addr bytes opcode operands comment 0A1FEB 31 8A SUBSP.B $8A 0A1FED 40 PUSH.6 $00 0A1FEE 36 20 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 0A1FF1 42 PUSH.6 $02 0A1FF2 38 00 36 BLS.B $0036 ; => $0A202B 0A1FF5 40 PUSH.6 $00 0A1FF6 36 20 09 _2362 $0009 ; A0 = $004000; (A0) = A6 + $0 0A1FF9 42 PUSH.6 $02 0A1FFA 38 00 18 BLS.B $0018 ; => $0A2015 0A1FFD 88 08 READ.B $08 0A1FFF 44 PUSH.6 $04 0A2000 29 MUL.L 0A2001 88 09 READ.B $09 0A2003 27 ADD.L 0A2004 88 08 READ.B $08 0A2006 43 PUSH.6 $03 0A2007 29 MUL.L 0A2008 88 09 READ.B $09 0A200A 27 ADD.L 0A200B E7 01 6D READ.F $016D 0A200E BB 91 WRITE.F $91 0A2010 37 20 09 00 1C _23d2 $0009, $001C 0A2015 88 08 READ.B $08 0A2017 44 PUSH.6 $04 0A2018 29 MUL.L 0A2019 43 PUSH.6 $03 0A201A 27 ADD.L 0A201B 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A2024 BB 91 WRITE.F $91 0A2026 37 20 08 00 3A _23d2 $0008, $003A 0A202B 43 PUSH.6 $03 0A202C 44 PUSH.6 $04 0A202D 29 MUL.L 0A202E 40 PUSH.6 $00 0A202F 27 ADD.L 0A2030 83 4F READ.F $4F 0A2032 83 C7 READ.F $C7 0A2034 23 DIV.F 0A2035 BB 91 WRITE.F $91 0A2037 43 PUSH.6 $03 0A2038 44 PUSH.6 $04 0A2039 29 MUL.L 0A203A 41 PUSH.6 $01 0A203B 27 ADD.L 0A203C 83 57 READ.F $57 0A203E 83 C7 READ.F $C7 0A2040 23 DIV.F 0A2041 BB 91 WRITE.F $91 0A2043 43 PUSH.6 $03 0A2044 44 PUSH.6 $04 0A2045 29 MUL.L 0A2046 42 PUSH.6 $02 0A2047 27 ADD.L 0A2048 83 5F READ.F $5F 0A204A 83 C7 READ.F $C7 0A204C 23 DIV.F 0A204D BB 91 WRITE.F $91 0A204F 43 PUSH.6 $03 0A2050 44 PUSH.6 $04 0A2051 29 MUL.L 0A2052 43 PUSH.6 $03 0A2053 27 ADD.L 0A2054 3E PUSH.W $0000 0A2055 BB 91 WRITE.F $91 0A2057 0A 00 91 00 80 ?_$0A $0091, $0080 0A205C 30 01 97 BSR.68K $0197 ; => $0A1EC8 => $003AA2 0A205F 0E 00 91 00 80 ?_$0E $0091, $0080 0A2064 3E PUSH.W $0000 0A2065 9B 11 WRITE.F $11 0A2067 40 PUSH.6 $00 0A2068 36 20 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 0A206B 42 PUSH.6 $02 0A206C 38 00 23 BLS.B $0023 ; => $0A2092 0A206F 40 PUSH.6 $00 0A2070 36 20 09 _2362 $0009 ; A0 = $004000; (A0) = A6 + $0 0A2073 42 PUSH.6 $02 0A2074 38 00 16 BLS.B $0016 ; => $0A208D 0A2077 8B 11 READ.F $11 0A2079 88 08 READ.B $08 0A207B 44 PUSH.6 $04 0A207C 29 MUL.L 0A207D 88 09 READ.B $09 0A207F 27 ADD.L 0A2080 AB 91 READ.F $91 0A2082 30 01 DB BSR.68K $01DB ; => $0A1EAA => $002B72 (NATIVE) 0A2085 20 ADD.F 0A2086 9B 11 WRITE.F $11 0A2088 37 20 09 00 1A _23d2 $0009, $001A 0A208D 37 20 08 00 27 _23d2 $0008, $0027 0A2092 8B 11 READ.F $11 0A2094 30 01 F3 BSR.68K $01F3 ; => $0A1EA4 => $002682 (NATIVE) 0A2097 9B 07 WRITE.F $07 0A2099 32 8A ADDSP.B $8A 0A209B 34 RETURN ; ---------------- End Function $0A1FE2 ---------------- ; ---------------- Begin 2164 Function $0A209C ---------------- ; P0 = $0000; P1 = $0008; P2 = $02 ; A0 = $004008; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $0A2468:$0A24E8 ; addr bytes opcode operands comment 0A20A5 31 52 SUBSP.B $52 0A20A7 40 PUSH.6 $00 0A20A8 36 20 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 0A20AB 41 PUSH.6 $01 0A20AC 38 00 25 BLS.B $0025 ; => $0A20D4 0A20AF 40 PUSH.6 $00 0A20B0 36 20 09 _2362 $0009 ; A0 = $004000; (A0) = A6 + $0 0A20B3 42 PUSH.6 $02 0A20B4 38 00 18 BLS.B $0018 ; => $0A20CF 0A20B7 88 08 READ.B $08 0A20B9 43 PUSH.6 $03 0A20BA 29 MUL.L 0A20BB 88 09 READ.B $09 0A20BD 27 ADD.L 0A20BE 88 08 READ.B $08 0A20C0 43 PUSH.6 $03 0A20C1 29 MUL.L 0A20C2 88 09 READ.B $09 0A20C4 27 ADD.L 0A20C5 E7 01 6D READ.F $016D 0A20C8 BB 59 WRITE.F $59 0A20CA 37 20 09 00 1C _23d2 $0009, $001C 0A20CF 37 20 08 00 29 _23d2 $0008, $0029 0A20D4 42 PUSH.6 $02 0A20D5 43 PUSH.6 $03 0A20D6 29 MUL.L 0A20D7 40 PUSH.6 $00 0A20D8 27 ADD.L 0A20D9 83 4F READ.F $4F 0A20DB 83 C7 READ.F $C7 0A20DD 23 DIV.F 0A20DE BB 59 WRITE.F $59 0A20E0 42 PUSH.6 $02 0A20E1 43 PUSH.6 $03 0A20E2 29 MUL.L 0A20E3 41 PUSH.6 $01 0A20E4 27 ADD.L 0A20E5 83 57 READ.F $57 0A20E7 83 C7 READ.F $C7 0A20E9 23 DIV.F 0A20EA BB 59 WRITE.F $59 0A20EC 42 PUSH.6 $02 0A20ED 43 PUSH.6 $03 0A20EE 29 MUL.L 0A20EF 42 PUSH.6 $02 0A20F0 27 ADD.L 0A20F1 83 5F READ.F $5F 0A20F3 83 C7 READ.F $C7 0A20F5 23 DIV.F 0A20F6 BB 59 WRITE.F $59 0A20F8 0A 00 59 00 48 ?_$0A $0059, $0048 0A20FD 30 02 44 BSR.68K $0244 ; => $0A1EBC => $00398A 0A2100 0E 00 59 00 48 ?_$0E $0059, $0048 0A2105 3E PUSH.W $0000 0A2106 9B 11 WRITE.F $11 0A2108 40 PUSH.6 $00 0A2109 36 20 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 0A210C 42 PUSH.6 $02 0A210D 38 00 23 BLS.B $0023 ; => $0A2133 0A2110 40 PUSH.6 $00 0A2111 36 20 09 _2362 $0009 ; A0 = $004000; (A0) = A6 + $0 0A2114 41 PUSH.6 $01 0A2115 38 00 16 BLS.B $0016 ; => $0A212E 0A2118 8B 11 READ.F $11 0A211A 88 08 READ.B $08 0A211C 43 PUSH.6 $03 0A211D 29 MUL.L 0A211E 88 09 READ.B $09 0A2120 27 ADD.L 0A2121 AB 59 READ.F $59 0A2123 30 02 7C BSR.68K $027C ; => $0A1EAA => $002B72 (NATIVE) 0A2126 20 ADD.F 0A2127 9B 11 WRITE.F $11 0A2129 37 20 09 00 1A _23d2 $0009, $001A 0A212E 37 20 08 00 27 _23d2 $0008, $0027 0A2133 8B 11 READ.F $11 0A2135 30 02 94 BSR.68K $0294 ; => $0A1EA4 => $002682 (NATIVE) 0A2138 9B 07 WRITE.F $07 0A213A 32 52 ADDSP.B $52 0A213C 34 RETURN ; ---------------- End Function $0A209C ---------------- ; ---------------- Begin 2144 Function $0A213E ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A21CE:$0A2266 ; called from $0A226A:$0A2271 ; addr bytes opcode operands comment 0A2145 03 30 02 20 20 TRAP1 " " 0A214A 41 PUSH.6 $01 0A214B 36 10 8E _2362 $008E ; A0 = $004000; (A0) = A6 + $0 0A214E 04 5D PUSH.10 $05D 0A2150 38 00 08 BLS.B $0008 ; => $0A215B 0A2153 30 02 46 BSR.68K $0246 ; => $0A1F10 => $0A058C (NATIVE) 0A2156 37 10 8E 00 0D _23d2 $008E, $000D 0A215B 30 02 48 BSR.68K $0248 ; => $0A1F16 => $0A05A4 (NATIVE) 0A215E 34 RETURN ; ---------------- End Function $0A213E ---------------- ; ---------------- Begin 2144 Function $0A2160 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A219A:$0A21A1 ; called from $0A227C:$0A2288 ; addr bytes opcode operands comment 0A2167 40 PUSH.6 $00 0A2168 36 10 8E _2362 $008E ; A0 = $004000; (A0) = A6 + $0 0A216B 04 5F PUSH.10 $05F 0A216D 38 00 0A BLS.B $000A ; => $0A217A 0A2170 84 8E READ.B $8E 0A2172 60 PUSH.6 $20 0A2173 B4 F1 WRITE.B $F1 0A2175 37 10 8E 00 0F _23d2 $008E, $000F 0A217A 34 RETURN ; ---------------- End Function $0A2160 ---------------- ; ---------------- Begin 2144 Function $0A217C ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A219A:$0A21C6 ; called from $0A227C:$0A22F8 ; addr bytes opcode operands comment 0A2183 40 PUSH.6 $00 0A2184 36 10 8E _2362 $008E ; A0 = $004000; (A0) = A6 + $0 0A2187 04 5F PUSH.10 $05F 0A2189 38 00 0C BLS.B $000C ; => $0A2198 0A218C 84 8E READ.B $8E 0A218E A4 F1 READ.B $F1 0A2190 30 02 A1 BSR.68K $02A1 ; => $0A1EF2 => $0A056A (NATIVE) 0A2193 37 10 8E 00 11 _23d2 $008E, $0011 0A2198 34 RETURN ; ---------------- End Function $0A217C ---------------- ; ---------------- Begin 2144 Function $0A219A ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A21CE:$0A2263 ; called from $0A226A:$0A2274 ; addr bytes opcode operands comment 0A21A1 30 00 44 BSR.68K $0044 ; => $0A2160 0A21A4 40 PUSH.6 $00 0A21A5 36 10 8E _2362 $008E ; A0 = $004000; (A0) = A6 + $0 0A21A8 44 PUSH.6 $04 0A21A9 38 00 1A BLS.B $001A ; => $0A21C6 0A21AC 54 PUSH.6 $14 0A21AD 84 8E READ.B $8E 0A21AF 29 MUL.L 0A21B0 42 PUSH.6 $02 0A21B1 27 ADD.L 0A21B2 84 8E READ.B $8E 0A21B4 70 PUSH.6 $30 0A21B5 2D OR.L 0A21B6 B4 F1 WRITE.B $F1 0A21B8 54 PUSH.6 $14 0A21B9 84 8E READ.B $8E 0A21BB 29 MUL.L 0A21BC 43 PUSH.6 $03 0A21BD 27 ADD.L 0A21BE 70 PUSH.6 $30 0A21BF B4 F1 WRITE.B $F1 0A21C1 37 10 8E 00 1E _23d2 $008E, $001E 0A21C6 30 00 4D BSR.68K $004D ; => $0A217C 0A21C9 30 02 B6 BSR.68K $02B6 ; => $0A1F16 => $0A05A4 (NATIVE) 0A21CC 34 RETURN ; ---------------- End Function $0A219A ---------------- ; ---------------- Begin 2144 Function $0A21CE ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A2468:$0A24C4 ; addr bytes opcode operands comment 0A21D5 30 02 C2 BSR.68K $02C2 ; => $0A1F16 => $0A05A4 (NATIVE) 0A21D8 30 02 C5 BSR.68K $02C5 ; => $0A1F16 => $0A05A4 (NATIVE) 0A21DB 03 30 13 20 20 50 44 4F 50 TRAP1 " PDOP PLOT FOR SVs" 20 50 4C 4F 54 20 46 4F 52 20 53 56 73 0A21F1 40 PUSH.6 $00 0A21F2 36 10 8E _2362 $008E ; A0 = $004000; (A0) = A6 + $0 0A21F5 C0 55 71 READ.B $5571 0A21F8 38 00 11 BLS.B $0011 ; => $0A220C 0A21FB 30 02 F4 BSR.68K $02F4 ; => $0A1F0A => $0A0584 (NATIVE) 0A21FE 84 8E READ.B $8E 0A2200 E0 4B 23 READ.B $4B23 0A2203 42 PUSH.6 $02 0A2204 30 03 0F BSR.68K $030F ; => $0A1EF8 => $0A0036 0A2207 37 10 8E 00 17 _23d2 $008E, $0017 0A220C 30 02 F9 BSR.68K $02F9 ; => $0A1F16 => $0A05A4 (NATIVE) 0A220F 03 30 06 20 20 4C 41 54 20 TRAP1 " LAT " 0A2218 83 37 READ.F $37 0A221A 30 03 1F BSR.68K $031F ; => $0A1EFE => $0A0284 0A221D 03 30 05 20 20 4C 4F 4E TRAP1 " LON" 0A2225 83 3F READ.F $3F 0A2227 30 03 26 BSR.68K $0326 ; => $0A1F04 => $0A02A8 0A222A 03 30 11 20 20 45 4C 45 56 TRAP1 " ELEVATION MASK " 41 54 49 4F 4E 20 4D 41 53 4B 20 0A223E C3 28 DB READ.F $28DB 0A2241 03 29 FLOAT2LONG 0A2243 42 PUSH.6 $02 0A2244 30 03 4F BSR.68K $034F ; => $0A1EF8 => $0A0036 0A2247 03 30 08 20 64 65 67 72 65 TRAP1 " degrees" 65 73 0A2252 30 03 3F BSR.68K $033F ; => $0A1F16 => $0A05A4 (NATIVE) 0A2255 03 30 02 20 20 TRAP1 " " 0A225A C2 55 7D READ.L $557D 0A225D 30 03 44 BSR.68K $0344 ; => $0A1F1C => $0A042E 0A2260 30 03 4D BSR.68K $034D ; => $0A1F16 => $0A05A4 (NATIVE) 0A2263 30 00 CC BSR.68K $00CC ; => $0A219A 0A2266 30 01 2B BSR.68K $012B ; => $0A213E 0A2269 34 RETURN ; ---------------- End Function $0A21CE ---------------- ; ---------------- Begin 2144 Function $0A226A ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A2468:$0A2545 ; addr bytes opcode operands comment 0A2271 30 01 36 BSR.68K $0136 ; => $0A213E 0A2274 30 00 DD BSR.68K $00DD ; => $0A219A 0A2277 30 03 64 BSR.68K $0364 ; => $0A1F16 => $0A05A4 (NATIVE) 0A227A 34 RETURN ; ---------------- End Function $0A226A ---------------- ; ---------------- Begin 2144 Function $0A227C ---------------- ; A0 = $004008; (A0) = SP + $B ; called from $0A2318:$0A2352 ; called from $0A2468:$0A250F ; called from $0A2468:$0A252B ; called from $0A2468:$0A253D ; addr bytes opcode operands comment 0A2283 8A 03 READ.L $03 0A2285 D4 01 0B WRITE.B $010B 0A2288 30 01 2B BSR.68K $012B ; => $0A2160 0A228B 40 PUSH.6 $00 0A228C 36 10 8E _2362 $008E ; A0 = $004000; (A0) = A6 + $0 0A228F 49 PUSH.6 $09 0A2290 38 00 0F BLS.B $000F ; => $0A22A2 0A2293 4A PUSH.6 $0A 0A2294 84 8E READ.B $8E 0A2296 29 MUL.L 0A2297 42 PUSH.6 $02 0A2298 27 ADD.L 0A2299 04 49 PUSH.10 $049 0A229B B4 F1 WRITE.B $F1 0A229D 37 10 8E 00 13 _23d2 $008E, $0013 0A22A2 8A 03 READ.L $03 0A22A4 43 PUSH.6 $03 0A22A5 2C AND.L 0A22A6 40 PUSH.6 $00 0A22A7 2A EQ.L 0A22A8 18 14 BRZ $014 ; => $0A22BE 0A22AA 8A 03 READ.L $03 0A22AC 68 PUSH.6 $28 0A22AD 03 24 DIV.L 0A22AF 70 PUSH.6 $30 0A22B0 27 ADD.L 0A22B1 94 F1 WRITE.B $F1 0A22B3 8A 03 READ.L $03 0A22B5 44 PUSH.6 $04 0A22B6 03 24 DIV.L 0A22B8 4A PUSH.6 $0A 0A22B9 2F MOD.L 0A22BA 70 PUSH.6 $30 0A22BB 27 ADD.L 0A22BC 94 F0 WRITE.B $F0 0A22BE 42 PUSH.6 $02 0A22BF 8B 0B READ.F $0B 0A22C1 3B 40 46 80 00 00 00 00 00 PUSH.F $4046800000000000 ; float = 45.000000 0A22CA 24 GT.F 0A22CB 18 04 BRZ $004 ; => $0A22D1 0A22CD 04 5A PUSH.10 $05A 0A22CF 10 18 BR $018 ; => $0A22E9 0A22D1 3B 40 00 00 00 00 00 00 00 PUSH.F $4000000000000000 ; float = 2.000000 0A22DA 8B 0B READ.F $0B 0A22DC 22 MUL.F 0A22DD 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A22E6 20 ADD.F 0A22E7 03 29 FLOAT2LONG 0A22E9 27 ADD.L 0A22EA 94 F3 WRITE.B $F3 0A22EC 84 F3 READ.B $F3 0A22EE 42 PUSH.6 $02 0A22EF 03 25 LT.L 0A22F1 18 05 BRZ $005 ; => $0A22F8 0A22F3 84 F3 READ.B $F3 0A22F5 6A PUSH.6 $2A 0A22F6 B4 F1 WRITE.B $F1 0A22F8 30 01 7F BSR.68K $017F ; => $0A217C 0A22FB 8B 0B READ.F $0B 0A22FD 3B 40 46 80 00 00 00 00 00 PUSH.F $4046800000000000 ; float = 45.000000 0A2306 24 GT.F 0A2307 18 08 BRZ $008 ; => $0A2311 0A2309 8B 0B READ.F $0B 0A230B 03 29 FLOAT2LONG 0A230D 44 PUSH.6 $04 0A230E 30 04 19 BSR.68K $0419 ; => $0A1EF8 => $0A0036 0A2311 30 03 FE BSR.68K $03FE ; => $0A1F16 => $0A05A4 (NATIVE) 0A2314 32 0C ADDSP.B $0C 0A2316 34 RETURN ; ---------------- End Function $0A227C ---------------- ; ---------------- Begin 2144 Function $0A2318 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A2468:$0A2507 ; called from $0A2468:$0A2537 ; addr bytes opcode operands comment 0A231F 84 8F READ.B $8F 0A2321 C4 01 0B READ.B $010B 0A2324 28 SUB.L 0A2325 41 PUSH.6 $01 0A2326 28 SUB.L 0A2327 D4 01 0C WRITE.B $010C 0A232A C4 01 0C READ.B $010C 0A232D 49 PUSH.6 $09 0A232E 03 25 LT.L 0A2330 18 0D BRZ $00D ; => $0A233F 0A2332 30 04 1F BSR.68K $041F ; => $0A1F16 => $0A05A4 (NATIVE) 0A2335 30 04 22 BSR.68K $0422 ; => $0A1F16 => $0A05A4 (NATIVE) 0A2338 30 04 25 BSR.68K $0425 ; => $0A1F16 => $0A05A4 (NATIVE) 0A233B 46 PUSH.6 $06 0A233C D4 01 0C WRITE.B $010C 0A233F 84 8F READ.B $8F 0A2341 C4 01 0C READ.B $010C 0A2344 28 SUB.L 0A2345 36 10 90 _2362 $0090 ; A0 = $004000; (A0) = A6 + $0 0A2348 84 8F READ.B $8F 0A234A 41 PUSH.6 $01 0A234B 28 SUB.L 0A234C 38 00 0B BLS.B $000B ; => $0A235A 0A234F 84 90 READ.B $90 0A2351 3E PUSH.W $0000 0A2352 30 00 D9 BSR.68K $00D9 ; => $0A227C 0A2355 37 10 90 00 12 _23d2 $0090, $0012 0A235A 34 RETURN ; ---------------- End Function $0A2318 ---------------- ; ---------------- Begin 2164 Function $0A235C ---------------- ; P0 = $0000; P1 = $0004; P2 = $02 ; A0 = $004008; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0A2468:$0A24AF ; addr bytes opcode operands comment 0A2365 31 02 SUBSP.B $02 0A2367 04 FF PUSH.10 $0FF 0A2369 9A 03 WRITE.L $03 0A236B 40 PUSH.6 $00 0A236C 36 10 8E _2362 $008E ; A0 = $004000; (A0) = A6 + $0 0A236F C0 55 71 READ.B $5571 0A2372 38 00 30 BLS.B $0030 ; => $0A23A5 0A2375 84 8E READ.B $8E 0A2377 E0 4B 23 READ.B $4B23 0A237A 98 04 WRITE.B $04 0A237C 88 04 READ.B $04 0A237E 30 04 B3 BSR.68K $04B3 ; => $0A1ECE => $095184 0A2381 18 05 BRZ $005 ; => $0A2388 0A2383 41 PUSH.6 $01 0A2384 94 F8 WRITE.B $F8 0A2386 10 12 BR $012 ; => $0A239A 0A2388 88 04 READ.B $04 0A238A 30 04 B9 BSR.68K $04B9 ; => $0A1ED4 => $09519A 0A238D 18 05 BRZ $005 ; => $0A2394 0A238F 42 PUSH.6 $02 0A2390 94 F8 WRITE.B $F8 0A2392 10 06 BR $006 ; => $0A239A 0A2394 40 PUSH.6 $00 0A2395 94 F8 WRITE.B $F8 0A2397 40 PUSH.6 $00 0A2398 9A 03 WRITE.L $03 0A239A 84 8E READ.B $8E 0A239C 84 F8 READ.B $F8 0A239E B4 F7 WRITE.B $F7 0A23A0 37 10 8E 00 36 _23d2 $008E, $0036 0A23A5 32 02 ADDSP.B $02 0A23A7 34 RETURN ; ---------------- End Function $0A235C ---------------- ; ---------------- Begin 2164 Function $0A23A8 ---------------- ; P0 = $0000; P1 = $0004; P2 = $02 ; A0 = $004008; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0A2468:$0A24DC ; addr bytes opcode operands comment 0A23B1 07 84 PUSH.10 $384 0A23B3 84 8F READ.B $8F 0A23B5 29 MUL.L 0A23B6 86 8D READ.L $8D 0A23B8 27 ADD.L 0A23B9 03 2A LONG2FLOAT 0A23BB D7 01 09 WRITE.F $0109 0A23BE 40 PUSH.6 $00 0A23BF 9A 03 WRITE.L $03 0A23C1 40 PUSH.6 $00 0A23C2 36 10 8E _2362 $008E ; A0 = $004000; (A0) = A6 + $0 0A23C5 C0 55 71 READ.B $5571 0A23C8 38 00 97 BLS.B $0097 ; => $0A2462 0A23CB 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A23D4 84 8E READ.B $8E 0A23D6 E0 4B 23 READ.B $4B23 0A23D9 84 8E READ.B $8E 0A23DB A4 F7 READ.B $F7 0A23DD 41 PUSH.6 $01 0A23DE 28 SUB.L 0A23DF 85 89 READ.W $89 0A23E1 C7 01 09 READ.F $0109 0A23E4 30 05 01 BSR.68K $0501 ; => $0A1EE6 => $091BC4 0A23E7 22 MUL.F 0A23E8 D7 01 01 WRITE.F $0101 0A23EB C7 01 01 READ.F $0101 0A23EE C3 28 DB READ.F $28DB 0A23F1 03 21 LT.F 0A23F3 18 02 BRZ $002 ; => $0A23F7 0A23F5 10 6F BR $06F ; => $0A2466 0A23F7 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A2400 C3 4E 1B READ.F $4E1B 0A2403 83 4F READ.F $4F 0A2405 21 SUB.F 0A2406 30 05 5F BSR.68K $055F ; => $0A1EAA => $002B72 (NATIVE) 0A2409 C3 4E 23 READ.F $4E23 0A240C 83 57 READ.F $57 0A240E 21 SUB.F 0A240F 30 05 68 BSR.68K $0568 ; => $0A1EAA => $002B72 (NATIVE) 0A2412 20 ADD.F 0A2413 C3 4E 2B READ.F $4E2B 0A2416 83 5F READ.F $5F 0A2418 21 SUB.F 0A2419 30 05 72 BSR.68K $0572 ; => $0A1EAA => $002B72 (NATIVE) 0A241C 20 ADD.F 0A241D 30 05 7C BSR.68K $057C ; => $0A1EA4 => $002682 (NATIVE) 0A2420 23 DIV.F 0A2421 D7 01 7D WRITE.F $017D 0A2424 84 8E READ.B $8E 0A2426 43 PUSH.6 $03 0A2427 29 MUL.L 0A2428 40 PUSH.6 $00 0A2429 27 ADD.L 0A242A C3 4E 1B READ.F $4E1B 0A242D 83 4F READ.F $4F 0A242F 21 SUB.F 0A2430 C7 01 7D READ.F $017D 0A2433 22 MUL.F 0A2434 F7 01 6D WRITE.F $016D 0A2437 84 8E READ.B $8E 0A2439 43 PUSH.6 $03 0A243A 29 MUL.L 0A243B 41 PUSH.6 $01 0A243C 27 ADD.L 0A243D C3 4E 23 READ.F $4E23 0A2440 83 57 READ.F $57 0A2442 21 SUB.F 0A2443 C7 01 7D READ.F $017D 0A2446 22 MUL.F 0A2447 F7 01 6D WRITE.F $016D 0A244A 84 8E READ.B $8E 0A244C 43 PUSH.6 $03 0A244D 29 MUL.L 0A244E 42 PUSH.6 $02 0A244F 27 ADD.L 0A2450 C3 4E 2B READ.F $4E2B 0A2453 83 5F READ.F $5F 0A2455 21 SUB.F 0A2456 C7 01 7D READ.F $017D 0A2459 22 MUL.F 0A245A F7 01 6D WRITE.F $016D 0A245D 37 10 8E 00 9D _23d2 $008E, $009D 0A2462 04 FF PUSH.10 $0FF 0A2464 9A 03 WRITE.L $03 0A2466 34 RETURN ; ---------------- End Function $0A23A8 ---------------- ; ---------------- Begin 2144 Function $0A2468 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A96E2:$0A9722 ; addr bytes opcode operands comment 0A246F 03 2D 01 7E SUBSP.W $017E 0A2473 04 FF PUSH.10 $0FF 0A2475 D0 4E 66 WRITE.B $4E66 0A2478 80 21 READ.B $21 0A247A 4B PUSH.6 $0B 0A247B 2B NEQ.L 0A247C 18 02 BRZ $002 ; => $0A2480 0A247E 11 35 BR $135 ; => $0A25B5 0A2480 30 05 A9 BSR.68K $05A9 ; => $0A1EDA => $0034AA (CLEARSCREEN) (NATIVE) 0A2483 41 PUSH.6 $01 0A2484 3F 0D 50 4C 4F 54 54 49 4E DISP "PLOTTING PDOP" 47 20 50 44 4F 50 0A2493 30 05 AA BSR.68K $05AA ; => $0A1EEC => $0034C8 (SETSEGMENTS) (NATIVE) 0A2496 40 PUSH.6 $00 0A2497 D0 4E 66 WRITE.B $4E66 0A249A C2 55 7D READ.L $557D 0A249D 47 PUSH.6 $07 0A249E 03 24 DIV.L 0A24A0 95 89 WRITE.W $89 0A24A2 C2 55 7D READ.L $557D 0A24A5 47 PUSH.6 $07 0A24A6 2F MOD.L 0A24A7 3D 00 01 51 80 PUSH.L $00015180 0A24AC 29 MUL.L 0A24AD 96 8D WRITE.L $8D 0A24AF 30 01 56 BSR.68K $0156 ; => $0A235C 0A24B2 18 B5 BRZ $0B5 ; => $0A2569 0A24B4 C0 29 70 READ.B $2970 0A24B7 40 PUSH.6 $00 0A24B8 2A EQ.L 0A24B9 D0 4E 94 WRITE.B $4E94 0A24BC C0 29 70 READ.B $2970 0A24BF 41 PUSH.6 $01 0A24C0 2A EQ.L 0A24C1 D0 4F 98 WRITE.B $4F98 0A24C4 30 02 F9 BSR.68K $02F9 ; => $0A21CE 0A24C7 40 PUSH.6 $00 0A24C8 D4 01 0A WRITE.B $010A 0A24CB 41 PUSH.6 $01 0A24CC 36 10 8F _2362 $008F ; A0 = $004000; (A0) = A6 + $0 0A24CF 04 60 PUSH.10 $060 0A24D1 38 00 71 BLS.B $0071 ; => $0A2545 0A24D4 80 21 READ.B $21 0A24D6 4B PUSH.6 $0B 0A24D7 2B NEQ.L 0A24D8 18 02 BRZ $002 ; => $0A24DC 0A24DA 10 D9 BR $0D9 ; => $0A25B5 0A24DC 30 01 37 BSR.68K $0137 ; => $0A23A8 0A24DF 18 37 BRZ $037 ; => $0A2518 0A24E1 C0 55 71 READ.B $5571 0A24E4 35 SWITCH 0A24E5 10 09 01 CASE $01 ; SWITCH $0A24E4 0A24E8 30 04 4F BSR.68K $044F ; => $0A209C 0A24EB D7 01 75 WRITE.F $0175 0A24EE 10 17 BR $017 ; => $0A2507 0A24F0 10 09 02 CASE $02 ; SWITCH $0A24E4 0A24F3 30 05 14 BSR.68K $0514 ; => $0A1FE2 0A24F6 D7 01 75 WRITE.F $0175 0A24F9 10 0C BR $00C ; => $0A2507 0A24FB 10 09 03 CASE $03 ; SWITCH $0A24E4 0A24FE 30 05 9F BSR.68K $059F ; => $0A1F62 0A2501 D7 01 75 WRITE.F $0175 0A2504 10 01 BR $001 ; => $0A2507 0A2506 00 DEFAULT ; SWITCH $0A24E4 0A2507 30 01 F2 BSR.68K $01F2 ; => $0A2318 0A250A 84 8F READ.B $8F 0A250C C7 01 75 READ.F $0175 0A250F 30 02 96 BSR.68K $0296 ; => $0A227C 0A2512 40 PUSH.6 $00 0A2513 D4 01 0A WRITE.B $010A 0A2516 10 28 BR $028 ; => $0A2540 0A2518 C4 01 0A READ.B $010A 0A251B 41 PUSH.6 $01 0A251C 27 ADD.L 0A251D D4 01 0A WRITE.B $010A 0A2520 C4 01 0A READ.B $010A 0A2523 47 PUSH.6 $07 0A2524 03 26 GT.L 0A2526 18 08 BRZ $008 ; => $0A2530 0A2528 84 8F READ.B $8F 0A252A 3E PUSH.W $0000 0A252B 30 02 B2 BSR.68K $02B2 ; => $0A227C 0A252E 10 10 BR $010 ; => $0A2540 0A2530 84 8F READ.B $8F 0A2532 04 60 PUSH.10 $060 0A2534 2A EQ.L 0A2535 18 09 BRZ $009 ; => $0A2540 0A2537 30 02 22 BSR.68K $0222 ; => $0A2318 0A253A 84 8F READ.B $8F 0A253C 3E PUSH.W $0000 0A253D 30 02 C4 BSR.68K $02C4 ; => $0A227C 0A2540 37 10 8F 00 76 _23d2 $008F, $0076 0A2545 30 02 DE BSR.68K $02DE ; => $0A226A 0A2548 04 FF PUSH.10 $0FF 0A254A D0 4E 66 WRITE.B $4E66 0A254D 80 21 READ.B $21 0A254F 4B PUSH.6 $0B 0A2550 2B NEQ.L 0A2551 18 02 BRZ $002 ; => $0A2555 0A2553 10 60 BR $060 ; => $0A25B5 0A2555 75 PUSH.6 $35 0A2556 90 21 WRITE.B $21 0A2558 30 06 39 BSR.68K $0639 ; => $0A1F22 0A255B 45 PUSH.6 $05 0A255C 90 22 WRITE.B $22 0A255E 04 FF PUSH.10 $0FF 0A2560 D0 4E 63 WRITE.B $4E63 0A2563 40 PUSH.6 $00 0A2564 D0 4E 66 WRITE.B $4E66 0A2567 10 4C BR $04C ; => $0A25B5 0A2569 04 FF PUSH.10 $0FF 0A256B D0 4E 66 WRITE.B $4E66 0A256E 80 21 READ.B $21 0A2570 4B PUSH.6 $0B 0A2571 2B NEQ.L 0A2572 18 02 BRZ $002 ; => $0A2576 0A2574 10 3F BR $03F ; => $0A25B5 0A2576 40 PUSH.6 $00 0A2577 3F 0F 4E 4F 20 44 41 54 41 DISP "NO DATA FOR SVS" 20 46 4F 52 20 53 56 53 0A2588 52 PUSH.6 $12 0A2589 94 8F WRITE.B $8F 0A258B 40 PUSH.6 $00 0A258C 36 10 8E _2362 $008E ; A0 = $004000; (A0) = A6 + $0 0A258F C0 55 71 READ.B $5571 0A2592 38 00 20 BLS.B $0020 ; => $0A25B5 0A2595 84 8E READ.B $8E 0A2597 A4 F7 READ.B $F7 0A2599 40 PUSH.6 $00 0A259A 2A EQ.L 0A259B 18 13 BRZ $013 ; => $0A25B0 0A259D 84 8F READ.B $8F 0A259F 84 8E READ.B $8E 0A25A1 E0 4B 23 READ.B $4B23 0A25A4 30 06 C7 BSR.68K $06C7 ; => $0A1EE0 => $097B0A 0A25A7 30 06 BE BSR.68K $06BE ; => $0A1EEC => $0034C8 (SETSEGMENTS) (NATIVE) 0A25AA 84 8F READ.B $8F 0A25AC 43 PUSH.6 $03 0A25AD 27 ADD.L 0A25AE 94 8F WRITE.B $8F 0A25B0 37 10 8E 00 26 _23d2 $008E, $0026 0A25B5 40 PUSH.6 $00 0A25B6 D0 4E 66 WRITE.B $4E66 0A25B9 03 2E 01 7E ADDSP.W $017E 0A25BD 34 RETURN ; ---------------- End Function $0A2468 ---------------- ; ---------------- Begin 2144 Function $0A260C ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A262E:$0A26A4 ; called from $0A2748:$0A274F ; addr bytes opcode operands comment 0A2613 03 30 02 20 20 TRAP1 " " 0A2618 41 PUSH.6 $01 0A2619 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A261C 04 5D PUSH.10 $05D 0A261E 38 00 08 BLS.B $0008 ; => $0A2629 0A2621 30 00 2A BSR.68K $002A ; => $0A25FA => $0A058C (NATIVE) 0A2624 37 10 00 00 0D _23d2 $0000, $000D 0A2629 30 00 2C BSR.68K $002C ; => $0A2600 => $0A05A4 (NATIVE) 0A262C 34 RETURN ; ---------------- End Function $0A260C ---------------- ; ---------------- Begin 2144 Function $0A262E ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A27A0:$0A2882 ; addr bytes opcode operands comment 0A2635 30 00 38 BSR.68K $0038 ; => $0A2600 => $0A05A4 (NATIVE) 0A2638 30 00 3B BSR.68K $003B ; => $0A2600 => $0A05A4 (NATIVE) 0A263B 03 30 0F 20 20 53 43 48 45 TRAP1 " SCHEDULE PLOT" 44 55 4C 45 20 50 4C 4F 54 0A264D 30 00 50 BSR.68K $0050 ; => $0A2600 => $0A05A4 (NATIVE) 0A2650 03 30 06 20 20 4C 41 54 20 TRAP1 " LAT " 0A2659 83 37 READ.F $37 0A265B 30 00 70 BSR.68K $0070 ; => $0A25EE => $0A0284 0A265E 03 30 05 20 20 4C 4F 4E TRAP1 " LON" 0A2666 83 3F READ.F $3F 0A2668 30 00 77 BSR.68K $0077 ; => $0A25F4 => $0A02A8 0A266B 03 30 11 20 20 45 4C 45 56 TRAP1 " ELEVATION MASK " 41 54 49 4F 4E 20 4D 41 53 4B 20 0A267F C3 28 DB READ.F $28DB 0A2682 03 29 FLOAT2LONG 0A2684 42 PUSH.6 $02 0A2685 30 00 A0 BSR.68K $00A0 ; => $0A25E8 => $0A0036 0A2688 03 30 08 20 64 65 67 72 65 TRAP1 " degrees" 65 73 0A2693 30 00 96 BSR.68K $0096 ; => $0A2600 => $0A05A4 (NATIVE) 0A2696 03 30 02 20 20 TRAP1 " " 0A269B C2 55 7D READ.L $557D 0A269E 30 00 9B BSR.68K $009B ; => $0A2606 => $0A042E 0A26A1 30 00 A4 BSR.68K $00A4 ; => $0A2600 => $0A05A4 (NATIVE) 0A26A4 30 00 9B BSR.68K $009B ; => $0A260C 0A26A7 34 RETURN ; ---------------- End Function $0A262E ---------------- ; ---------------- Begin 2144 Function $0A26A8 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A27A0:$0A2944 ; addr bytes opcode operands comment 0A26AF 84 01 READ.B $01 0A26B1 43 PUSH.6 $03 0A26B2 2C AND.L 0A26B3 40 PUSH.6 $00 0A26B4 2A EQ.L 0A26B5 18 18 BRZ $018 ; => $0A26CF 0A26B7 84 01 READ.B $01 0A26B9 68 PUSH.6 $28 0A26BA 03 24 DIV.L 0A26BC 70 PUSH.6 $30 0A26BD 27 ADD.L 0A26BE 30 00 DF BSR.68K $00DF ; => $0A25E2 => $0A056A (NATIVE) 0A26C1 84 01 READ.B $01 0A26C3 44 PUSH.6 $04 0A26C4 03 24 DIV.L 0A26C6 4A PUSH.6 $0A 0A26C7 2F MOD.L 0A26C8 70 PUSH.6 $30 0A26C9 27 ADD.L 0A26CA 30 00 EB BSR.68K $00EB ; => $0A25E2 => $0A056A (NATIVE) 0A26CD 10 05 BR $005 ; => $0A26D4 0A26CF 03 30 02 20 20 TRAP1 " " 0A26D4 03 30 02 49 20 TRAP1 "I " 0A26D9 41 PUSH.6 $01 0A26DA 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A26DD C4 01 46 READ.B $0146 0A26E0 38 00 60 BLS.B $0060 ; => $0A2743 0A26E3 84 00 READ.B $00 0A26E5 E4 01 43 READ.B $0143 0A26E8 D4 01 45 WRITE.B $0145 0A26EB C4 01 45 READ.B $0145 0A26EE E7 01 21 READ.F $0121 0A26F1 C3 28 DB READ.F $28DB 0A26F4 25 GTE.F 0A26F5 18 1D BRZ $01D ; => $0A2714 0A26F7 C4 01 45 READ.B $0145 0A26FA D4 01 44 WRITE.B $0144 0A26FD C4 01 44 READ.B $0144 0A2700 4A PUSH.6 $0A 0A2701 03 24 DIV.L 0A2703 70 PUSH.6 $30 0A2704 27 ADD.L 0A2705 30 01 26 BSR.68K $0126 ; => $0A25E2 => $0A056A (NATIVE) 0A2708 C4 01 44 READ.B $0144 0A270B 4A PUSH.6 $0A 0A270C 2F MOD.L 0A270D 70 PUSH.6 $30 0A270E 27 ADD.L 0A270F 30 01 30 BSR.68K $0130 ; => $0A25E2 => $0A056A (NATIVE) 0A2712 10 25 BR $025 ; => $0A2739 0A2714 C4 01 45 READ.B $0145 0A2717 E7 01 21 READ.F $0121 0A271A 3E PUSH.W $0000 0A271B 24 GT.F 0A271C 18 07 BRZ $007 ; => $0A2725 0A271E 03 30 02 2E 2E TRAP1 ".." 0A2723 10 14 BR $014 ; => $0A2739 0A2725 C4 01 45 READ.B $0145 0A2728 E0 02 29 READ.B $0229 0A272B 18 07 BRZ $007 ; => $0A2734 0A272D 03 30 02 2A 20 TRAP1 "* " 0A2732 10 05 BR $005 ; => $0A2739 0A2734 03 30 02 2E 20 TRAP1 ". " 0A2739 03 30 02 20 20 TRAP1 " " 0A273E 37 10 00 00 66 _23d2 $0000, $0066 0A2743 30 01 46 BSR.68K $0146 ; => $0A2600 => $0A05A4 (NATIVE) 0A2746 34 RETURN ; ---------------- End Function $0A26A8 ---------------- ; ---------------- Begin 2144 Function $0A2748 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A27A0:$0A294C ; addr bytes opcode operands comment 0A274F 30 01 46 BSR.68K $0146 ; => $0A260C 0A2752 03 30 43 20 20 20 20 22 2A TRAP1 " "*" = UNHEALTHY SV ".." = ABOVE HORIZON BUT BELOW MASK" 22 20 3D 20 55 4E 48 45 41 4C 54 48 59 20 53 56 20 20 20 20 20 20 20 20 20 20 22 2E 2E 22 20 3D 20 41 42 4F 56 45 20 48 4F 52 49 5A 4F 4E 20 42 55 54 20 42 45 4C 4F 57 20 4D 41 53 4B 0A2798 30 01 9B BSR.68K $019B ; => $0A2600 => $0A05A4 (NATIVE) 0A279B 30 01 9E BSR.68K $019E ; => $0A2600 => $0A05A4 (NATIVE) 0A279E 34 RETURN ; ---------------- End Function $0A2748 ---------------- ; ---------------- Begin 2144 Function $0A27A0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A96E2:$0A9712 ; addr bytes opcode operands comment 0A27A7 03 2D 01 6C SUBSP.W $016C 0A27AB C2 55 7D READ.L $557D 0A27AE 47 PUSH.6 $07 0A27AF 03 24 DIV.L 0A27B1 95 15 WRITE.W $15 0A27B3 C2 55 7D READ.L $557D 0A27B6 47 PUSH.6 $07 0A27B7 2F MOD.L 0A27B8 3D 00 01 51 80 PUSH.L $00015180 0A27BD 29 MUL.L 0A27BE 96 19 WRITE.L $19 0A27C0 80 21 READ.B $21 0A27C2 4B PUSH.6 $0B 0A27C3 2B NEQ.L 0A27C4 18 02 BRZ $002 ; => $0A27C8 0A27C6 11 98 BR $198 ; => $0A2960 0A27C8 40 PUSH.6 $00 0A27C9 D4 01 46 WRITE.B $0146 0A27CC 41 PUSH.6 $01 0A27CD 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A27D0 60 PUSH.6 $20 0A27D1 38 00 4D BLS.B $004D ; => $0A2821 0A27D4 40 PUSH.6 $00 0A27D5 94 02 WRITE.B $02 0A27D7 84 00 READ.B $00 0A27D9 E0 02 29 READ.B $0229 0A27DC 7F PUSH.6 $3F 0A27DD 2B NEQ.L 0A27DE 84 00 READ.B $00 0A27E0 E0 21 A9 READ.B $21A9 0A27E3 41 PUSH.6 $01 0A27E4 2B NEQ.L 0A27E5 2D OR.L 0A27E6 18 16 BRZ $016 ; => $0A27FE 0A27E8 84 00 READ.B $00 0A27EA 30 02 29 BSR.68K $0229 ; => $0A25C4 => $095184 0A27ED 18 05 BRZ $005 ; => $0A27F4 0A27EF 41 PUSH.6 $01 0A27F0 94 02 WRITE.B $02 0A27F2 10 0A BR $00A ; => $0A27FE 0A27F4 84 00 READ.B $00 0A27F6 30 02 2F BSR.68K $022F ; => $0A25CA => $09519A 0A27F9 18 03 BRZ $003 ; => $0A27FE 0A27FB 42 PUSH.6 $02 0A27FC 94 02 WRITE.B $02 0A27FE 84 02 READ.B $02 0A2800 18 1A BRZ $01A ; => $0A281C 0A2802 C4 01 46 READ.B $0146 0A2805 41 PUSH.6 $01 0A2806 27 ADD.L 0A2807 D4 01 46 WRITE.B $0146 0A280A C4 01 46 READ.B $0146 0A280D 84 00 READ.B $00 0A280F F4 01 43 WRITE.B $0143 0A2812 C4 01 46 READ.B $0146 0A2815 84 02 READ.B $02 0A2817 42 PUSH.6 $02 0A2818 2C AND.L 0A2819 F4 01 69 WRITE.B $0169 0A281C 37 10 00 00 51 _23d2 $0000, $0051 0A2821 80 21 READ.B $21 0A2823 4B PUSH.6 $0B 0A2824 2B NEQ.L 0A2825 18 02 BRZ $002 ; => $0A2829 0A2827 11 37 BR $137 ; => $0A2960 0A2829 30 02 5C BSR.68K $025C ; => $0A25D0 => $0034AA (CLEARSCREEN) (NATIVE) 0A282C C4 01 46 READ.B $0146 0A282F 40 PUSH.6 $00 0A2830 2A EQ.L 0A2831 18 21 BRZ $021 ; => $0A2854 0A2833 43 PUSH.6 $03 0A2834 3F 19 4E 4F 20 53 56 20 44 DISP "NO SV DATA AVAILABLE" 41 54 41 20 20 20 20 20 20 41 56 41 49 4C 41 42 4C 45 0A284F 30 02 94 BSR.68K $0294 ; => $0A25BE => $0034C8 (SETSEGMENTS) (NATIVE) 0A2852 11 0C BR $10C ; => $0A2960 0A2854 44 PUSH.6 $04 0A2855 3F 18 50 4C 4F 54 54 49 4E DISP "PLOTTING SCHEDULE" 47 20 20 20 20 20 20 20 20 53 43 48 45 44 55 4C 45 0A286F 30 02 B4 BSR.68K $02B4 ; => $0A25BE => $0034C8 (SETSEGMENTS) (NATIVE) 0A2872 C0 29 70 READ.B $2970 0A2875 40 PUSH.6 $00 0A2876 2A EQ.L 0A2877 D0 4E 94 WRITE.B $4E94 0A287A C0 29 70 READ.B $2970 0A287D 41 PUSH.6 $01 0A287E 2A EQ.L 0A287F D0 4F 98 WRITE.B $4F98 0A2882 30 02 57 BSR.68K $0257 ; => $0A262E 0A2885 41 PUSH.6 $01 0A2886 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0A2889 04 60 PUSH.10 $060 0A288B 38 00 BE BLS.B $00BE ; => $0A294C 0A288E 80 21 READ.B $21 0A2890 4B PUSH.6 $0B 0A2891 2B NEQ.L 0A2892 18 0A BRZ $00A ; => $0A289E 0A2894 40 PUSH.6 $00 0A2895 D0 4E 94 WRITE.B $4E94 0A2898 40 PUSH.6 $00 0A2899 D0 4F 98 WRITE.B $4F98 0A289C 10 C2 BR $0C2 ; => $0A2960 0A289E 84 01 READ.B $01 0A28A0 07 84 PUSH.10 $384 0A28A2 29 MUL.L 0A28A3 86 19 READ.L $19 0A28A5 27 ADD.L 0A28A6 03 2A LONG2FLOAT 0A28A8 97 13 WRITE.F $13 0A28AA 41 PUSH.6 $01 0A28AB 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A28AE C4 01 46 READ.B $0146 0A28B1 38 00 90 BLS.B $0090 ; => $0A2944 0A28B4 84 00 READ.B $00 0A28B6 E4 01 43 READ.B $0143 0A28B9 D4 01 6A WRITE.B $016A 0A28BC 40 PUSH.6 $00 0A28BD 94 02 WRITE.B $02 0A28BF 84 01 READ.B $01 0A28C1 41 PUSH.6 $01 0A28C2 03 25 LT.L 0A28C4 18 51 BRZ $051 ; => $0A2917 0A28C6 C4 01 6A READ.B $016A 0A28C9 E7 01 21 READ.F $0121 0A28CC 97 0B WRITE.F $0B 0A28CE 87 0B READ.F $0B 0A28D0 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A28D9 03 20 NEG.W 0A28DB 03 21 LT.F 0A28DD 18 14 BRZ $014 ; => $0A28F3 0A28DF 87 0B READ.F $0B 0A28E1 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A28EA 20 ADD.F 0A28EB 97 0B WRITE.F $0B 0A28ED 04 FF PUSH.10 $0FF 0A28EF 94 02 WRITE.B $02 0A28F1 10 24 BR $024 ; => $0A2917 0A28F3 87 0B READ.F $0B 0A28F5 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A28FE 21 SUB.F 0A28FF C3 28 DB READ.F $28DB 0A2902 24 GT.F 0A2903 18 12 BRZ $012 ; => $0A2917 0A2905 87 0B READ.F $0B 0A2907 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A2910 21 SUB.F 0A2911 97 0B WRITE.F $0B 0A2913 04 FF PUSH.10 $0FF 0A2915 94 02 WRITE.B $02 0A2917 84 02 READ.B $02 0A2919 2E NOT.L 0A291A 18 1B BRZ $01B ; => $0A2937 0A291C 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A2925 C4 01 6A READ.B $016A 0A2928 84 00 READ.B $00 0A292A E4 01 69 READ.B $0169 0A292D 85 15 READ.W $15 0A292F 87 13 READ.F $13 0A2931 30 03 5E BSR.68K $035E ; => $0A25D6 => $091BC4 0A2934 22 MUL.F 0A2935 97 0B WRITE.F $0B 0A2937 C4 01 6A READ.B $016A 0A293A 87 0B READ.F $0B 0A293C F7 01 21 WRITE.F $0121 0A293F 37 10 00 00 96 _23d2 $0000, $0096 0A2944 30 02 9F BSR.68K $029F ; => $0A26A8 0A2947 37 10 01 00 C3 _23d2 $0001, $00C3 0A294C 30 02 07 BSR.68K $0207 ; => $0A2748 0A294F 04 FF PUSH.10 $0FF 0A2951 D0 4E 66 WRITE.B $4E66 0A2954 40 PUSH.6 $00 0A2955 90 21 WRITE.B $21 0A2957 04 FF PUSH.10 $0FF 0A2959 D0 4E 63 WRITE.B $4E63 0A295C 40 PUSH.6 $00 0A295D D0 4E 66 WRITE.B $4E66 0A2960 03 2E 01 6C ADDSP.W $016C 0A2964 34 RETURN ; ---------------- End Function $0A27A0 ---------------- ; ---------------- Begin 2144 Function $0A2972 ---------------- ; A0 = $004004; (A0) = SP + $3B ; called from $0909E2:$090A78 ; called from $094A10:$094A58 ; called from $0991F6:$099276 ; called from $0A2C0A:$0A2D2D ; called from $0A2E20:$0A3081 ; called from $0A3310:$0A342E ; called from $0A34CE:$0A364F ; called from $0A3BE6:$0A3D04 ; called from $0A3DBE:$0A3F6F ; addr bytes opcode operands comment 0A2979 31 30 SUBSP.B $30 0A297B 87 07 READ.F $07 0A297D 87 43 00 READ.F $43 0A2980 87 4B 00 READ.F $4B 0A2983 30 00 1A BSR.68K $001A ; => $0A296C => $002E62 (NATIVE) 0A2986 87 0F READ.F $0F 0A2988 87 53 00 READ.F $53 0A298B 87 5B 00 READ.F $5B 0A298E 30 00 25 BSR.68K $0025 ; => $0A296C => $002E62 (NATIVE) 0A2991 C3 29 C7 READ.F $29C7 0A2994 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A299D C3 29 CF READ.F $29CF 0A29A0 87 43 READ.F $43 0A29A2 22 MUL.F 0A29A3 87 43 READ.F $43 0A29A5 22 MUL.F 0A29A6 21 SUB.F 0A29A7 30 00 44 BSR.68K $0044 ; => $0A2966 => $002682 (NATIVE) 0A29AA 23 DIV.F 0A29AB 97 6B WRITE.F $6B 0A29AD 87 6B READ.F $6B 0A29AF 87 17 READ.F $17 0A29B1 20 ADD.F 0A29B2 87 4B READ.F $4B 0A29B4 22 MUL.F 0A29B5 97 63 WRITE.F $63 0A29B7 87 63 READ.F $63 0A29B9 87 5B READ.F $5B 0A29BB 22 MUL.F 0A29BC 97 1F WRITE.F $1F 0A29BE 87 63 READ.F $63 0A29C0 87 53 READ.F $53 0A29C2 22 MUL.F 0A29C3 97 2B WRITE.F $2B 0A29C5 87 6B READ.F $6B 0A29C7 87 17 READ.F $17 0A29C9 20 ADD.F 0A29CA 87 6B READ.F $6B 0A29CC C3 29 CF READ.F $29CF 0A29CF 22 MUL.F 0A29D0 21 SUB.F 0A29D1 87 43 READ.F $43 0A29D3 22 MUL.F 0A29D4 97 37 WRITE.F $37 0A29D6 32 30 ADDSP.B $30 0A29D8 33 _2300 0A29D9 33 _2300 0A29DA 33 _2300 0A29DB 32 18 ADDSP.B $18 0A29DD 34 RETURN ; ---------------- End Function $0A2972 ---------------- ; ---------------- Begin 2144 Function $0A2A4A ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A2E20:$0A2F7D ; called from $0A2E20:$0A30DD ; addr bytes opcode operands comment 0A2A51 31 02 SUBSP.B $02 0A2A53 40 PUSH.6 $00 0A2A54 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A2A57 41 PUSH.6 $01 0A2A58 38 00 53 BLS.B $0053 ; => $0A2AAE 0A2A5B 40 PUSH.6 $00 0A2A5C 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0A2A5F 41 PUSH.6 $01 0A2A60 38 00 46 BLS.B $0046 ; => $0A2AA9 0A2A63 88 00 READ.B $00 0A2A65 42 PUSH.6 $02 0A2A66 29 MUL.L 0A2A67 88 01 READ.B $01 0A2A69 27 ADD.L 0A2A6A 3E PUSH.W $0000 0A2A6B F7 01 A3 WRITE.F $01A3 0A2A6E 40 PUSH.6 $00 0A2A6F 36 10 31 _2362 $0031 ; A0 = $004000; (A0) = A6 + $0 0A2A72 86 03 READ.L $03 0A2A74 38 00 2D BLS.B $002D ; => $0A2AA4 0A2A77 88 00 READ.B $00 0A2A79 42 PUSH.6 $02 0A2A7A 29 MUL.L 0A2A7B 88 01 READ.B $01 0A2A7D 27 ADD.L 0A2A7E 88 00 READ.B $00 0A2A80 42 PUSH.6 $02 0A2A81 29 MUL.L 0A2A82 88 01 READ.B $01 0A2A84 27 ADD.L 0A2A85 E7 01 A3 READ.F $01A3 0A2A88 84 31 READ.B $31 0A2A8A 42 PUSH.6 $02 0A2A8B 29 MUL.L 0A2A8C 88 00 READ.B $00 0A2A8E 27 ADD.L 0A2A8F A7 E3 READ.F $E3 0A2A91 84 31 READ.B $31 0A2A93 42 PUSH.6 $02 0A2A94 29 MUL.L 0A2A95 88 01 READ.B $01 0A2A97 27 ADD.L 0A2A98 A7 E3 READ.F $E3 0A2A9A 22 MUL.F 0A2A9B 20 ADD.F 0A2A9C F7 01 A3 WRITE.F $01A3 0A2A9F 37 10 31 00 32 _23d2 $0031, $0032 0A2AA4 37 20 01 00 4A _23d2 $0001, $004A 0A2AA9 37 20 00 00 57 _23d2 $0000, $0057 0A2AAE 32 02 ADDSP.B $02 0A2AB0 34 RETURN ; ---------------- End Function $0A2A4A ---------------- ; ---------------- Begin 2144 Function $0A2AB2 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A2B34:$0A2B80 ; called from $0A2E20:$0A2F80 ; addr bytes opcode operands comment 0A2AB9 31 02 SUBSP.B $02 0A2ABB 40 PUSH.6 $00 0A2ABC 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A2ABF 41 PUSH.6 $01 0A2AC0 38 00 33 BLS.B $0033 ; => $0A2AF6 0A2AC3 88 00 READ.B $00 0A2AC5 3E PUSH.W $0000 0A2AC6 F7 02 33 WRITE.F $0233 0A2AC9 40 PUSH.6 $00 0A2ACA 36 10 31 _2362 $0031 ; A0 = $004000; (A0) = A6 + $0 0A2ACD 86 03 READ.L $03 0A2ACF 38 00 1F BLS.B $001F ; => $0A2AF1 0A2AD2 88 00 READ.B $00 0A2AD4 88 00 READ.B $00 0A2AD6 E7 02 33 READ.F $0233 0A2AD9 84 31 READ.B $31 0A2ADB 42 PUSH.6 $02 0A2ADC 29 MUL.L 0A2ADD 88 00 READ.B $00 0A2ADF 27 ADD.L 0A2AE0 A7 E3 READ.F $E3 0A2AE2 84 31 READ.B $31 0A2AE4 E7 02 13 READ.F $0213 0A2AE7 22 MUL.F 0A2AE8 20 ADD.F 0A2AE9 F7 02 33 WRITE.F $0233 0A2AEC 37 10 31 00 24 _23d2 $0031, $0024 0A2AF1 37 20 00 00 37 _23d2 $0000, $0037 0A2AF6 32 02 ADDSP.B $02 0A2AF8 34 RETURN ; ---------------- End Function $0A2AB2 ---------------- ; ---------------- Begin 2164 Function $0A2AFA ---------------- ; P0 = $0004; P1 = $0008; P2 = $02 ; A0 = $004008; (A0) = A6 + $3; D1 = $000008 ; called from $0A2B34:$0A2B75 ; addr bytes opcode operands comment 0A2B03 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0A2B0C 8A 0B READ.L $0B 0A2B0E E3 40 F9 READ.F $40F9 0A2B11 21 SUB.F 0A2B12 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 0A2B1B 22 MUL.F 0A2B1C 3B 3E 05 CF 55 03 0F 15 63 PUSH.F $3E05CF55030F1563 ; float = 0.000000 0A2B25 22 MUL.F 0A2B26 8A 0B READ.L $0B 0A2B28 30 01 17 BSR.68K $0117 ; => $0A2A14 => $0A39FA 0A2B2B 87 3B READ.F $3B 0A2B2D 20 ADD.F 0A2B2E 21 SUB.F 0A2B2F 9B 07 WRITE.F $07 0A2B31 32 04 ADDSP.B $04 0A2B33 34 RETURN ; ---------------- End Function $0A2AFA ---------------- ; ---------------- Begin 2144 Function $0A2B34 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A2E20:$0A313E ; addr bytes opcode operands comment 0A2B3B 86 07 READ.L $07 0A2B3D 18 0A BRZ $00A ; => $0A2B49 0A2B3F 3E PUSH.W $0000 0A2B40 D3 55 21 WRITE.F $5521 0A2B43 3E PUSH.W $0000 0A2B44 D3 55 29 WRITE.F $5529 0A2B47 10 04 BR $004 ; => $0A2B4D 0A2B49 3E PUSH.W $0000 0A2B4A D3 55 31 WRITE.F $5531 0A2B4D 40 PUSH.6 $00 0A2B4E 94 30 WRITE.B $30 0A2B50 84 30 READ.B $30 0A2B52 41 PUSH.6 $01 0A2B53 27 ADD.L 0A2B54 94 30 WRITE.B $30 0A2B56 84 30 READ.B $30 0A2B58 4A PUSH.6 $0A 0A2B59 03 25 LT.L 0A2B5B 18 05 BRZ $005 ; => $0A2B62 0A2B5D 4C PUSH.6 $0C 0A2B5E 96 0B WRITE.L $0B 0A2B60 10 A6 BR $0A6 ; => $0A2C08 0A2B62 30 01 57 BSR.68K $0157 ; => $0A2A0E => $0A3904 0A2B65 40 PUSH.6 $00 0A2B66 36 10 31 _2362 $0031 ; A0 = $004000; (A0) = A6 + $0 0A2B69 86 03 READ.L $03 0A2B6B 38 00 12 BLS.B $0012 ; => $0A2B80 0A2B6E 84 31 READ.B $31 0A2B70 84 31 READ.B $31 0A2B72 E0 47 6B READ.B $476B 0A2B75 30 00 7E BSR.68K $007E ; => $0A2AFA 0A2B78 F7 02 13 WRITE.F $0213 0A2B7B 37 10 31 00 17 _23d2 $0031, $0017 0A2B80 30 00 D1 BSR.68K $00D1 ; => $0A2AB2 0A2B83 09 01 C3 00 20 ?_$09 $01C3, $0020 0A2B88 09 02 33 00 10 ?_$09 $0233, $0010 0A2B8D 30 01 64 BSR.68K $0164 ; => $0A2A2C => $003592 0A2B90 0D 02 23 00 10 ?_$0D $0223, $0010 0A2B95 86 07 READ.L $07 0A2B97 18 24 BRZ $024 ; => $0A2BBD 0A2B99 C3 55 31 READ.F $5531 0A2B9C C7 02 23 READ.F $0223 0A2B9F 20 ADD.F 0A2BA0 D3 55 31 WRITE.F $5531 0A2BA3 87 3B READ.F $3B 0A2BA5 C7 02 1B READ.F $021B 0A2BA8 20 ADD.F 0A2BA9 97 3B WRITE.F $3B 0A2BAB C7 02 23 READ.F $0223 0A2BAE 30 01 D3 BSR.68K $01D3 ; => $0A29DE => $002B72 (NATIVE) 0A2BB1 C7 02 1B READ.F $021B 0A2BB4 30 01 D9 BSR.68K $01D9 ; => $0A29DE => $002B72 (NATIVE) 0A2BB7 20 ADD.F 0A2BB8 D7 02 9B WRITE.F $029B 0A2BBB 10 2F BR $02F ; => $0A2BEC 0A2BBD C3 55 21 READ.F $5521 0A2BC0 C7 02 23 READ.F $0223 0A2BC3 20 ADD.F 0A2BC4 D3 55 21 WRITE.F $5521 0A2BC7 C3 55 29 READ.F $5529 0A2BCA C7 02 1B READ.F $021B 0A2BCD 20 ADD.F 0A2BCE D3 55 29 WRITE.F $5529 0A2BD1 C7 02 23 READ.F $0223 0A2BD4 C3 29 C7 READ.F $29C7 0A2BD7 22 MUL.F 0A2BD8 30 01 FD BSR.68K $01FD ; => $0A29DE => $002B72 (NATIVE) 0A2BDB C7 02 1B READ.F $021B 0A2BDE C3 29 C7 READ.F $29C7 0A2BE1 22 MUL.F 0A2BE2 87 17 READ.F $17 0A2BE4 22 MUL.F 0A2BE5 30 02 0A BSR.68K $020A ; => $0A29DE => $002B72 (NATIVE) 0A2BE8 20 ADD.F 0A2BE9 D7 02 9B WRITE.F $029B 0A2BEC C7 02 9B READ.F $029B 0A2BEF 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A2BF8 03 21 LT.F 0A2BFA 1F 54 BRZ $-AC ; => $0A2B50 0A2BFC 86 07 READ.L $07 0A2BFE 18 05 BRZ $005 ; => $0A2C05 0A2C00 87 3B READ.F $3B 0A2C02 D3 28 E3 WRITE.F $28E3 0A2C05 30 02 00 BSR.68K $0200 ; => $0A2A08 => $0A3880 0A2C08 34 RETURN ; ---------------- End Function $0A2B34 ---------------- ; ---------------- Begin 2144 Function $0A2C0A ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A2E20:$0A2F7A ; addr bytes opcode operands comment 0A2C11 31 E0 SUBSP.B $E0 0A2C13 C3 54 E9 READ.F $54E9 0A2C16 8B 07 00 READ.F $07 0A2C19 87 17 00 READ.F $17 0A2C1C 30 02 35 BSR.68K $0235 ; => $0A29EA => $002E62 (NATIVE) 0A2C1F C3 54 F1 READ.F $54F1 0A2C22 8B 0F 00 READ.F $0F 0A2C25 8B 17 00 READ.F $17 0A2C28 30 02 41 BSR.68K $0241 ; => $0A29EA => $002E62 (NATIVE) 0A2C2B 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A2C34 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A2C3D C3 29 CF READ.F $29CF 0A2C40 8B 07 READ.F $07 0A2C42 30 02 67 BSR.68K $0267 ; => $0A29DE => $002B72 (NATIVE) 0A2C45 22 MUL.F 0A2C46 21 SUB.F 0A2C47 30 02 66 BSR.68K $0266 ; => $0A29E4 => $002682 (NATIVE) 0A2C4A 23 DIV.F 0A2C4B 9B 1F WRITE.F $1F 0A2C4D C3 29 C7 READ.F $29C7 0A2C50 8B 1F READ.F $1F 0A2C52 22 MUL.F 0A2C53 9B 27 WRITE.F $27 0A2C55 C3 29 C7 READ.F $29C7 0A2C58 C3 29 CF READ.F $29CF 0A2C5B 22 MUL.F 0A2C5C 8B 07 READ.F $07 0A2C5E 22 MUL.F 0A2C5F 87 17 READ.F $17 0A2C61 22 MUL.F 0A2C62 8B 1F READ.F $1F 0A2C64 22 MUL.F 0A2C65 8B 1F READ.F $1F 0A2C67 30 02 8C BSR.68K $028C ; => $0A29DE => $002B72 (NATIVE) 0A2C6A 22 MUL.F 0A2C6B 9B 2F WRITE.F $2F 0A2C6D 8B 27 READ.F $27 0A2C6F C3 54 F9 READ.F $54F9 0A2C72 20 ADD.F 0A2C73 9B 37 WRITE.F $37 0A2C75 8B 37 READ.F $37 0A2C77 8B 27 READ.F $27 0A2C79 C3 29 CF READ.F $29CF 0A2C7C 22 MUL.F 0A2C7D 21 SUB.F 0A2C7E 9B 3F WRITE.F $3F 0A2C80 87 17 READ.F $17 0A2C82 8B 17 READ.F $17 0A2C84 22 MUL.F 0A2C85 9B 47 WRITE.F $47 0A2C87 87 17 READ.F $17 0A2C89 8B 0F READ.F $0F 0A2C8B 22 MUL.F 0A2C8C 9B 4F WRITE.F $4F 0A2C8E 8B 37 READ.F $37 0A2C90 8B 4F READ.F $4F 0A2C92 22 MUL.F 0A2C93 03 20 NEG.W 0A2C95 9B 57 WRITE.F $57 0A2C97 8B 37 READ.F $37 0A2C99 8B 47 READ.F $47 0A2C9B 22 MUL.F 0A2C9C 9B 5F WRITE.F $5F 0A2C9E 86 07 READ.L $07 0A2CA0 2E NOT.L 0A2CA1 18 3B BRZ $03B ; => $0A2CDE 0A2CA3 8B 2F READ.F $2F 0A2CA5 8B 47 READ.F $47 0A2CA7 22 MUL.F 0A2CA8 8B 37 READ.F $37 0A2CAA 8B 07 READ.F $07 0A2CAC 22 MUL.F 0A2CAD 8B 17 READ.F $17 0A2CAF 22 MUL.F 0A2CB0 21 SUB.F 0A2CB1 9B 67 WRITE.F $67 0A2CB3 8B 2F READ.F $2F 0A2CB5 8B 4F READ.F $4F 0A2CB7 22 MUL.F 0A2CB8 8B 37 READ.F $37 0A2CBA 8B 07 READ.F $07 0A2CBC 22 MUL.F 0A2CBD 8B 0F READ.F $0F 0A2CBF 22 MUL.F 0A2CC0 21 SUB.F 0A2CC1 9B 6F WRITE.F $6F 0A2CC3 8B 2F READ.F $2F 0A2CC5 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A2CCE C3 29 CF READ.F $29CF 0A2CD1 21 SUB.F 0A2CD2 22 MUL.F 0A2CD3 8B 07 READ.F $07 0A2CD5 22 MUL.F 0A2CD6 8B 3F READ.F $3F 0A2CD8 87 17 READ.F $17 0A2CDA 22 MUL.F 0A2CDB 20 ADD.F 0A2CDC 9B 77 WRITE.F $77 0A2CDE 40 PUSH.6 $00 0A2CDF 36 10 31 _2362 $0031 ; A0 = $004000; (A0) = A6 + $0 0A2CE2 86 03 READ.L $03 0A2CE4 38 01 36 BLS.B $0136 ; => $0A2E1D 0A2CE7 84 31 READ.B $31 0A2CE9 E0 47 6B READ.B $476B 0A2CEC 94 32 WRITE.B $32 0A2CEE 84 32 READ.B $32 0A2CF0 E3 41 E9 READ.F $41E9 0A2CF3 9B A7 WRITE.F $A7 0A2CF5 84 32 READ.B $32 0A2CF7 E3 42 39 READ.F $4239 0A2CFA 9B AF WRITE.F $AF 0A2CFC 84 32 READ.B $32 0A2CFE E3 42 89 READ.F $4289 0A2D01 9B B7 WRITE.F $B7 0A2D03 84 32 READ.B $32 0A2D05 E3 42 D9 READ.F $42D9 0A2D08 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 0A2D11 22 MUL.F 0A2D12 C3 29 DF READ.F $29DF 0A2D15 22 MUL.F 0A2D16 C3 54 F1 READ.F $54F1 0A2D19 20 ADD.F 0A2D1A 9B D7 WRITE.F $D7 0A2D1C C3 54 E9 READ.F $54E9 0A2D1F 8B D7 READ.F $D7 0A2D21 C3 54 F9 READ.F $54F9 0A2D24 8B BF 00 READ.F $BF 0A2D27 8B C7 00 READ.F $C7 0A2D2A 8B CF 00 READ.F $CF 0A2D2D 30 03 2E BSR.68K $032E ; => $0A2A02 => $0A2972 0A2D30 8B BF READ.F $BF 0A2D32 8B C7 READ.F $C7 0A2D34 8B CF READ.F $CF 0A2D36 8B A7 READ.F $A7 0A2D38 8B AF READ.F $AF 0A2D3A 8B B7 READ.F $B7 0A2D3C 30 03 43 BSR.68K $0343 ; => $0A29FC => $0AA32C 0A2D3F 9B 97 WRITE.F $97 0A2D41 84 32 READ.B $32 0A2D43 8B 97 READ.F $97 0A2D45 F3 42 D9 WRITE.F $42D9 0A2D48 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A2D51 8B 97 READ.F $97 0A2D53 23 DIV.F 0A2D54 9B 9F WRITE.F $9F 0A2D56 8B BF READ.F $BF 0A2D58 8B A7 READ.F $A7 0A2D5A 21 SUB.F 0A2D5B 8B 9F READ.F $9F 0A2D5D 22 MUL.F 0A2D5E 9B 7F WRITE.F $7F 0A2D60 8B C7 READ.F $C7 0A2D62 8B AF READ.F $AF 0A2D64 21 SUB.F 0A2D65 8B 9F READ.F $9F 0A2D67 22 MUL.F 0A2D68 9B 87 WRITE.F $87 0A2D6A 8B CF READ.F $CF 0A2D6C 8B B7 READ.F $B7 0A2D6E 21 SUB.F 0A2D6F 8B 9F READ.F $9F 0A2D71 22 MUL.F 0A2D72 9B 8F WRITE.F $8F 0A2D74 86 07 READ.L $07 0A2D76 18 3C BRZ $03C ; => $0A2DB4 0A2D78 84 31 READ.B $31 0A2D7A 42 PUSH.6 $02 0A2D7B 29 MUL.L 0A2D7C 40 PUSH.6 $00 0A2D7D 27 ADD.L 0A2D7E 8B 7F READ.F $7F 0A2D80 8B 47 READ.F $47 0A2D82 22 MUL.F 0A2D83 8B 87 READ.F $87 0A2D85 8B 4F READ.F $4F 0A2D87 22 MUL.F 0A2D88 20 ADD.F 0A2D89 8B 8F READ.F $8F 0A2D8B 8B 07 READ.F $07 0A2D8D 22 MUL.F 0A2D8E 20 ADD.F 0A2D8F B7 E3 WRITE.F $E3 0A2D91 84 31 READ.B $31 0A2D93 42 PUSH.6 $02 0A2D94 29 MUL.L 0A2D95 41 PUSH.6 $01 0A2D96 27 ADD.L 0A2D97 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A2DA0 B7 E3 WRITE.F $E3 0A2DA2 84 31 READ.B $31 0A2DA4 84 32 READ.B $32 0A2DA6 E7 02 93 READ.F $0293 0A2DA9 8B 97 READ.F $97 0A2DAB 87 2F READ.F $2F 0A2DAD 20 ADD.F 0A2DAE 21 SUB.F 0A2DAF F7 02 13 WRITE.F $0213 0A2DB2 10 64 BR $064 ; => $0A2E18 0A2DB4 84 31 READ.B $31 0A2DB6 42 PUSH.6 $02 0A2DB7 29 MUL.L 0A2DB8 40 PUSH.6 $00 0A2DB9 27 ADD.L 0A2DBA 8B 7F READ.F $7F 0A2DBC 8B 67 READ.F $67 0A2DBE 22 MUL.F 0A2DBF 8B 87 READ.F $87 0A2DC1 8B 6F READ.F $6F 0A2DC3 22 MUL.F 0A2DC4 20 ADD.F 0A2DC5 8B 8F READ.F $8F 0A2DC7 8B 77 READ.F $77 0A2DC9 22 MUL.F 0A2DCA 20 ADD.F 0A2DCB B7 E3 WRITE.F $E3 0A2DCD 84 31 READ.B $31 0A2DCF 42 PUSH.6 $02 0A2DD0 29 MUL.L 0A2DD1 41 PUSH.6 $01 0A2DD2 27 ADD.L 0A2DD3 8B 7F READ.F $7F 0A2DD5 8B 57 READ.F $57 0A2DD7 22 MUL.F 0A2DD8 8B 87 READ.F $87 0A2DDA 8B 5F READ.F $5F 0A2DDC 22 MUL.F 0A2DDD 20 ADD.F 0A2DDE B7 E3 WRITE.F $E3 0A2DE0 84 32 READ.B $32 0A2DE2 E7 02 93 READ.F $0293 0A2DE5 8B 97 READ.F $97 0A2DE7 87 2F READ.F $2F 0A2DE9 20 ADD.F 0A2DEA 21 SUB.F 0A2DEB 3B 3E CB FB 3C 01 A3 07 FA PUSH.F $3ECBFB3C01A307FA ; float = 0.000003 0A2DF4 22 MUL.F 0A2DF5 9B DF WRITE.F $DF 0A2DF7 84 31 READ.B $31 0A2DF9 8B DF READ.F $DF 0A2DFB 8B DF READ.F $DF 0A2DFD 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A2E06 20 ADD.F 0A2E07 30 04 1A BSR.68K $041A ; => $0A29F0 => $002CA6 (NATIVE) 0A2E0A 21 SUB.F 0A2E0B 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A2E14 22 MUL.F 0A2E15 F7 02 13 WRITE.F $0213 0A2E18 37 10 31 01 3B _23d2 $0031, $013B 0A2E1D 32 E0 ADDSP.B $E0 0A2E1F 34 RETURN ; ---------------- End Function $0A2C0A ---------------- ; ---------------- Begin 2144 Function $0A2E20 ---------------- ; A0 = $004004; (A0) = SP + $F ; called from $0A0EB6:$0A0FB7 ; addr bytes opcode operands comment 0A2E27 03 2D 02 8C SUBSP.W $028C 0A2E2B 86 07 READ.L $07 0A2E2D 18 59 BRZ $059 ; => $0A2E88 0A2E2F C0 29 36 READ.B $2936 0A2E32 C0 29 2C READ.B $292C 0A2E35 2C AND.L 0A2E36 C0 35 B8 READ.B $35B8 0A2E39 2E NOT.L 0A2E3A 2C AND.L 0A2E3B 18 0E BRZ $00E ; => $0A2E4B 0A2E3D C3 29 1B READ.F $291B 0A2E40 D3 54 E9 WRITE.F $54E9 0A2E43 C3 29 23 READ.F $2923 0A2E46 D3 54 F1 WRITE.F $54F1 0A2E49 10 0A BR $00A ; => $0A2E55 0A2E4B 83 37 READ.F $37 0A2E4D D3 54 E9 WRITE.F $54E9 0A2E50 83 3F READ.F $3F 0A2E52 D3 54 F1 WRITE.F $54F1 0A2E55 83 47 READ.F $47 0A2E57 D3 54 F9 WRITE.F $54F9 0A2E5A C3 55 19 READ.F $5519 0A2E5D 97 2F WRITE.F $2F 0A2E5F C0 67 EC READ.B $67EC 0A2E62 2E NOT.L 0A2E63 18 1C BRZ $01C ; => $0A2E81 0A2E65 87 2F READ.F $2F 0A2E67 3B 41 02 4C 41 D4 FD F3 B6 PUSH.F $41024C41D4FDF3B6 ; float = 149896.229000 0A2E70 24 GT.F 0A2E71 18 0E BRZ $00E ; => $0A2E81 0A2E73 87 2F READ.F $2F 0A2E75 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A2E7E 21 SUB.F 0A2E7F 97 2F WRITE.F $2F 0A2E81 C3 28 E3 READ.F $28E3 0A2E84 97 3B WRITE.F $3B 0A2E86 10 A2 BR $0A2 ; => $0A2F2A 0A2E88 83 37 READ.F $37 0A2E8A D3 54 E9 WRITE.F $54E9 0A2E8D 83 3F READ.F $3F 0A2E8F D3 54 F1 WRITE.F $54F1 0A2E92 C0 29 36 READ.B $2936 0A2E95 C0 29 2C READ.B $292C 0A2E98 2C AND.L 0A2E99 18 05 BRZ $005 ; => $0A2EA0 0A2E9B C3 29 2B READ.F $292B 0A2E9E 10 02 BR $002 ; => $0A2EA2 0A2EA0 83 47 READ.F $47 0A2EA2 D3 54 F9 WRITE.F $54F9 0A2EA5 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 0A2EAE C0 29 37 READ.B $2937 0A2EB1 18 05 BRZ $005 ; => $0A2EB8 0A2EB3 C3 29 35 READ.F $2935 0A2EB6 10 03 BR $003 ; => $0A2EBB 0A2EB8 C3 56 4D READ.F $564D 0A2EBB 22 MUL.F 0A2EBC 97 43 WRITE.F $43 0A2EBE 87 43 READ.F $43 0A2EC0 3B 41 D7 6A 24 00 00 00 00 PUSH.F $41D76A2400000000 ; float = 1571328000.000000 0A2EC9 22 MUL.F 0A2ECA 3B 3E 05 CF 55 03 0F 15 63 PUSH.F $3E05CF55030F1563 ; float = 0.000000 0A2ED3 22 MUL.F 0A2ED4 97 3B WRITE.F $3B 0A2ED6 C3 55 F5 READ.F $55F5 0A2ED9 87 43 READ.F $43 0A2EDB C0 56 5F READ.B $565F 0A2EDE E3 40 59 READ.F $4059 0A2EE1 C1 29 FD READ.W $29FD 0A2EE4 3D 00 09 3A 80 PUSH.L $00093A80 0A2EE9 29 MUL.L 0A2EEA 03 2A LONG2FLOAT 0A2EEC 20 ADD.F 0A2EED C3 56 0D READ.F $560D 0A2EF0 21 SUB.F 0A2EF1 22 MUL.F 0A2EF2 20 ADD.F 0A2EF3 97 2F WRITE.F $2F 0A2EF5 87 2F READ.F $2F 0A2EF7 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A2F00 24 GT.F 0A2F01 18 10 BRZ $010 ; => $0A2F13 0A2F03 C3 55 F5 READ.F $55F5 0A2F06 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A2F0F 21 SUB.F 0A2F10 D3 55 F5 WRITE.F $55F5 0A2F13 87 2F READ.F $2F 0A2F15 3E PUSH.W $0000 0A2F16 03 21 LT.F 0A2F18 18 10 BRZ $010 ; => $0A2F2A 0A2F1A C3 55 F5 READ.F $55F5 0A2F1D 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A2F26 20 ADD.F 0A2F27 D3 55 F5 WRITE.F $55F5 0A2F2A 08 40 A9 00 50 ?_$08 $40A9, $0050 0A2F2F 0D 02 93 00 50 ?_$0D $0293, $0050 0A2F34 86 03 READ.L $03 0A2F36 09 02 93 00 50 00 ?_$09 $0293, $0050, $0 0A2F3C 30 05 07 BSR.68K $0507 ; => $0A2A38 => $0A9E4A 0A2F3F 40 PUSH.6 $00 0A2F40 94 30 WRITE.B $30 0A2F42 84 30 READ.B $30 0A2F44 41 PUSH.6 $01 0A2F45 27 ADD.L 0A2F46 94 30 WRITE.B $30 0A2F48 84 30 READ.B $30 0A2F4A C0 67 EC READ.B $67EC 0A2F4D 18 03 BRZ $003 ; => $0A2F52 0A2F4F 72 PUSH.6 $32 0A2F50 10 01 BR $001 ; => $0A2F53 0A2F52 4A PUSH.6 $0A 0A2F53 03 25 LT.L 0A2F55 18 23 BRZ $023 ; => $0A2F7A 0A2F57 86 07 READ.L $07 0A2F59 18 03 BRZ $003 ; => $0A2F5E 0A2F5B 41 PUSH.6 $01 0A2F5C 10 01 BR $001 ; => $0A2F5F 0A2F5E 42 PUSH.6 $02 0A2F5F 96 0B WRITE.L $0B 0A2F61 86 03 READ.L $03 0A2F63 41 PUSH.6 $01 0A2F64 03 25 LT.L 0A2F66 18 0C BRZ $00C ; => $0A2F74 0A2F68 86 03 READ.L $03 0A2F6A 09 02 13 00 50 ?_$09 $0213, $0050 0A2F6F 30 05 2E BSR.68K $052E ; => $0A2A44 => $0A3812 0A2F72 10 04 BR $004 ; => $0A2F78 0A2F74 40 PUSH.6 $00 0A2F75 D0 67 66 WRITE.B $6766 0A2F78 11 C7 BR $1C7 ; => $0A3141 0A2F7A 30 03 73 BSR.68K $0373 ; => $0A2C0A 0A2F7D 30 05 36 BSR.68K $0536 ; => $0A2A4A 0A2F80 30 04 D1 BSR.68K $04D1 ; => $0A2AB2 0A2F83 09 01 A3 00 20 ?_$09 $01A3, $0020 0A2F88 30 05 6B BSR.68K $056B ; => $0A2A20 => $003944 0A2F8B 0D 01 C3 00 20 ?_$0D $01C3, $0020 0A2F90 09 01 C3 00 20 ?_$09 $01C3, $0020 0A2F95 09 02 33 00 10 ?_$09 $0233, $0010 0A2F9A 30 05 71 BSR.68K $0571 ; => $0A2A2C => $003592 0A2F9D 0D 02 23 00 10 ?_$0D $0223, $0010 0A2FA2 86 07 READ.L $07 0A2FA4 18 24 BRZ $024 ; => $0A2FCA 0A2FA6 C3 54 F9 READ.F $54F9 0A2FA9 C7 02 23 READ.F $0223 0A2FAC 20 ADD.F 0A2FAD D3 54 F9 WRITE.F $54F9 0A2FB0 87 2F READ.F $2F 0A2FB2 C7 02 1B READ.F $021B 0A2FB5 20 ADD.F 0A2FB6 97 2F WRITE.F $2F 0A2FB8 C7 02 23 READ.F $0223 0A2FBB 30 05 E0 BSR.68K $05E0 ; => $0A29DE => $002B72 (NATIVE) 0A2FBE C7 02 1B READ.F $021B 0A2FC1 30 05 E6 BSR.68K $05E6 ; => $0A29DE => $002B72 (NATIVE) 0A2FC4 20 ADD.F 0A2FC5 D7 02 9B WRITE.F $029B 0A2FC8 10 49 BR $049 ; => $0A3013 0A2FCA C3 54 E9 READ.F $54E9 0A2FCD C7 02 23 READ.F $0223 0A2FD0 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 0A2FD9 22 MUL.F 0A2FDA 20 ADD.F 0A2FDB 30 05 E8 BSR.68K $05E8 ; => $0A29F6 => $002D36 (NATIVE) 0A2FDE D3 54 E9 WRITE.F $54E9 0A2FE1 C3 54 F1 READ.F $54F1 0A2FE4 C7 02 1B READ.F $021B 0A2FE7 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 0A2FF0 22 MUL.F 0A2FF1 20 ADD.F 0A2FF2 30 05 FF BSR.68K $05FF ; => $0A29F6 => $002D36 (NATIVE) 0A2FF5 D3 54 F1 WRITE.F $54F1 0A2FF8 C7 02 23 READ.F $0223 0A2FFB C3 29 C7 READ.F $29C7 0A2FFE 22 MUL.F 0A2FFF 30 06 24 BSR.68K $0624 ; => $0A29DE => $002B72 (NATIVE) 0A3002 C7 02 1B READ.F $021B 0A3005 C3 29 C7 READ.F $29C7 0A3008 22 MUL.F 0A3009 87 17 READ.F $17 0A300B 22 MUL.F 0A300C 30 06 31 BSR.68K $0631 ; => $0A29DE => $002B72 (NATIVE) 0A300F 20 ADD.F 0A3010 D7 02 9B WRITE.F $029B 0A3013 C0 67 EC READ.B $67EC 0A3016 18 03 BRZ $003 ; => $0A301B 0A3018 30 05 DD BSR.68K $05DD ; => $0A2A3E => $0A3768 0A301B C7 02 9B READ.F $029B 0A301E 3B 40 69 00 00 00 00 00 00 PUSH.F $4069000000000000 ; float = 200.000000 0A3027 03 21 LT.F 0A3029 1F 17 BRZ $-E9 ; => $0A2F42 0A302B 40 PUSH.6 $00 0A302C 96 0B WRITE.L $0B 0A302E C0 67 EC READ.B $67EC 0A3031 2E NOT.L 0A3032 18 33 BRZ $033 ; => $0A3067 0A3034 87 2F READ.F $2F 0A3036 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A303F 24 GT.F 0A3040 18 10 BRZ $010 ; => $0A3052 0A3042 87 2F READ.F $2F 0A3044 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A304D 21 SUB.F 0A304E 97 2F WRITE.F $2F 0A3050 10 15 BR $015 ; => $0A3067 0A3052 87 2F READ.F $2F 0A3054 3E PUSH.W $0000 0A3055 03 21 LT.F 0A3057 18 0E BRZ $00E ; => $0A3067 0A3059 87 2F READ.F $2F 0A305B 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A3064 20 ADD.F 0A3065 97 2F WRITE.F $2F 0A3067 87 2F READ.F $2F 0A3069 D3 55 19 WRITE.F $5519 0A306C C3 54 E9 READ.F $54E9 0A306F C3 54 F1 READ.F $54F1 0A3072 C3 54 F9 READ.F $54F9 0A3075 C3 55 01 00 READ.F $5501 0A3079 C3 55 09 00 READ.F $5509 0A307D C3 55 11 00 READ.F $5511 0A3081 30 06 82 BSR.68K $0682 ; => $0A2A02 => $0A2972 0A3084 09 00 E3 00 A0 ?_$09 $00E3, $00A0 0A3089 0D 01 83 00 A0 ?_$0D $0183, $00A0 0A308E 86 07 READ.L $07 0A3090 2E NOT.L 0A3091 18 4A BRZ $04A ; => $0A30DD 0A3093 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A309C C3 29 C7 READ.F $29C7 0A309F 23 DIV.F 0A30A0 97 1F WRITE.F $1F 0A30A2 87 1F READ.F $1F 0A30A4 83 8F READ.F $8F 0A30A6 23 DIV.F 0A30A7 97 27 WRITE.F $27 0A30A9 40 PUSH.6 $00 0A30AA 36 10 31 _2362 $0031 ; A0 = $004000; (A0) = A6 + $0 0A30AD 86 03 READ.L $03 0A30AF 38 00 2B BLS.B $002B ; => $0A30DD 0A30B2 84 31 READ.B $31 0A30B4 42 PUSH.6 $02 0A30B5 29 MUL.L 0A30B6 40 PUSH.6 $00 0A30B7 27 ADD.L 0A30B8 84 31 READ.B $31 0A30BA 42 PUSH.6 $02 0A30BB 29 MUL.L 0A30BC 40 PUSH.6 $00 0A30BD 27 ADD.L 0A30BE A7 E3 READ.F $E3 0A30C0 87 1F READ.F $1F 0A30C2 22 MUL.F 0A30C3 B7 E3 WRITE.F $E3 0A30C5 84 31 READ.B $31 0A30C7 42 PUSH.6 $02 0A30C8 29 MUL.L 0A30C9 41 PUSH.6 $01 0A30CA 27 ADD.L 0A30CB 84 31 READ.B $31 0A30CD 42 PUSH.6 $02 0A30CE 29 MUL.L 0A30CF 41 PUSH.6 $01 0A30D0 27 ADD.L 0A30D1 A7 E3 READ.F $E3 0A30D3 87 27 READ.F $27 0A30D5 22 MUL.F 0A30D6 B7 E3 WRITE.F $E3 0A30D8 37 10 31 00 30 _23d2 $0031, $0030 0A30DD 30 06 96 BSR.68K $0696 ; => $0A2A4A 0A30E0 09 01 A3 00 20 ?_$09 $01A3, $0020 0A30E5 30 06 CE BSR.68K $06CE ; => $0A2A1A => $0977AA 0A30E8 0D 01 A3 00 20 ?_$0D $01A3, $0020 0A30ED 86 07 READ.L $07 0A30EF 18 23 BRZ $023 ; => $0A3114 0A30F1 40 PUSH.6 $00 0A30F2 42 PUSH.6 $02 0A30F3 29 MUL.L 0A30F4 40 PUSH.6 $00 0A30F5 27 ADD.L 0A30F6 E7 01 A3 READ.F $01A3 0A30F9 30 07 18 BSR.68K $0718 ; => $0A29E4 => $002682 (NATIVE) 0A30FC 93 67 WRITE.F $67 0A30FE 41 PUSH.6 $01 0A30FF 42 PUSH.6 $02 0A3100 29 MUL.L 0A3101 41 PUSH.6 $01 0A3102 27 ADD.L 0A3103 E7 01 A3 READ.F $01A3 0A3106 30 07 25 BSR.68K $0725 ; => $0A29E4 => $002682 (NATIVE) 0A3109 93 7F WRITE.F $7F 0A310B 83 67 READ.F $67 0A310D 93 77 WRITE.F $77 0A310F 3E PUSH.W $0000 0A3110 93 6F WRITE.F $6F 0A3112 10 20 BR $020 ; => $0A3134 0A3114 40 PUSH.6 $00 0A3115 42 PUSH.6 $02 0A3116 29 MUL.L 0A3117 40 PUSH.6 $00 0A3118 27 ADD.L 0A3119 E7 01 A3 READ.F $01A3 0A311C 41 PUSH.6 $01 0A311D 42 PUSH.6 $02 0A311E 29 MUL.L 0A311F 41 PUSH.6 $01 0A3120 27 ADD.L 0A3121 E7 01 A3 READ.F $01A3 0A3124 20 ADD.F 0A3125 30 07 44 BSR.68K $0744 ; => $0A29E4 => $002682 (NATIVE) 0A3128 93 67 WRITE.F $67 0A312A 83 67 READ.F $67 0A312C 93 6F WRITE.F $6F 0A312E 3E PUSH.W $0000 0A312F 93 77 WRITE.F $77 0A3131 3E PUSH.W $0000 0A3132 93 7F WRITE.F $7F 0A3134 09 01 83 00 A0 ?_$09 $0183, $00A0 0A3139 0D 00 E3 00 A0 ?_$0D $00E3, $00A0 0A313E 30 06 0D BSR.68K $060D ; => $0A2B34 0A3141 03 2E 02 8C ADDSP.W $028C 0A3145 33 _2300 0A3146 32 08 ADDSP.B $08 0A3148 34 RETURN ; ---------------- End Function $0A2E20 ---------------- ; ---------------- Begin 2144 Function $0A31BC ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A34CE:$0A3578 ; called from $0A34CE:$0A36AA ; addr bytes opcode operands comment 0A31C3 31 02 SUBSP.B $02 0A31C5 40 PUSH.6 $00 0A31C6 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A31C9 42 PUSH.6 $02 0A31CA 38 00 55 BLS.B $0055 ; => $0A3222 0A31CD 40 PUSH.6 $00 0A31CE 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0A31D1 42 PUSH.6 $02 0A31D2 38 00 48 BLS.B $0048 ; => $0A321D 0A31D5 88 00 READ.B $00 0A31D7 43 PUSH.6 $03 0A31D8 29 MUL.L 0A31D9 88 01 READ.B $01 0A31DB 27 ADD.L 0A31DC 3E PUSH.W $0000 0A31DD F7 02 57 WRITE.F $0257 0A31E0 40 PUSH.6 $00 0A31E1 36 10 2D _2362 $002D ; A0 = $004000; (A0) = A6 + $0 0A31E4 86 03 READ.L $03 0A31E6 38 00 2F BLS.B $002F ; => $0A3218 0A31E9 88 00 READ.B $00 0A31EB 43 PUSH.6 $03 0A31EC 29 MUL.L 0A31ED 88 01 READ.B $01 0A31EF 27 ADD.L 0A31F0 88 00 READ.B $00 0A31F2 43 PUSH.6 $03 0A31F3 29 MUL.L 0A31F4 88 01 READ.B $01 0A31F6 27 ADD.L 0A31F7 E7 02 57 READ.F $0257 0A31FA 84 2D READ.B $2D 0A31FC 43 PUSH.6 $03 0A31FD 29 MUL.L 0A31FE 88 00 READ.B $00 0A3200 27 ADD.L 0A3201 E7 01 1F READ.F $011F 0A3204 84 2D READ.B $2D 0A3206 43 PUSH.6 $03 0A3207 29 MUL.L 0A3208 88 01 READ.B $01 0A320A 27 ADD.L 0A320B E7 01 1F READ.F $011F 0A320E 22 MUL.F 0A320F 20 ADD.F 0A3210 F7 02 57 WRITE.F $0257 0A3213 37 10 2D 00 34 _23d2 $002D, $0034 0A3218 37 20 01 00 4C _23d2 $0001, $004C 0A321D 37 20 00 00 59 _23d2 $0000, $0059 0A3222 32 02 ADDSP.B $02 0A3224 34 RETURN ; ---------------- End Function $0A31BC ---------------- ; ---------------- Begin 2144 Function $0A3226 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A326E:$0A32AC ; called from $0A34CE:$0A357B ; addr bytes opcode operands comment 0A322D 31 02 SUBSP.B $02 0A322F 40 PUSH.6 $00 0A3230 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A3233 42 PUSH.6 $02 0A3234 38 00 34 BLS.B $0034 ; => $0A326B 0A3237 88 00 READ.B $00 0A3239 3E PUSH.W $0000 0A323A F7 03 1F WRITE.F $031F 0A323D 40 PUSH.6 $00 0A323E 36 10 2D _2362 $002D ; A0 = $004000; (A0) = A6 + $0 0A3241 86 03 READ.L $03 0A3243 38 00 20 BLS.B $0020 ; => $0A3266 0A3246 88 00 READ.B $00 0A3248 88 00 READ.B $00 0A324A E7 03 1F READ.F $031F 0A324D 84 2D READ.B $2D 0A324F 43 PUSH.6 $03 0A3250 29 MUL.L 0A3251 88 00 READ.B $00 0A3253 27 ADD.L 0A3254 E7 01 1F READ.F $011F 0A3257 84 2D READ.B $2D 0A3259 E7 02 EF READ.F $02EF 0A325C 22 MUL.F 0A325D 20 ADD.F 0A325E F7 03 1F WRITE.F $031F 0A3261 37 10 2D 00 25 _23d2 $002D, $0025 0A3266 37 20 00 00 38 _23d2 $0000, $0038 0A326B 32 02 ADDSP.B $02 0A326D 34 RETURN ; ---------------- End Function $0A3226 ---------------- ; ---------------- Begin 2144 Function $0A326E ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A34CE:$0A36EE ; addr bytes opcode operands comment 0A3275 3E PUSH.W $0000 0A3276 D3 55 31 WRITE.F $5531 0A3279 40 PUSH.6 $00 0A327A 94 2C WRITE.B $2C 0A327C 84 2C READ.B $2C 0A327E 41 PUSH.6 $01 0A327F 27 ADD.L 0A3280 94 2C WRITE.B $2C 0A3282 84 2C READ.B $2C 0A3284 4A PUSH.6 $0A 0A3285 03 25 LT.L 0A3287 18 05 BRZ $005 ; => $0A328E 0A3289 4D PUSH.6 $0D 0A328A 96 07 WRITE.L $07 0A328C 10 80 BR $080 ; => $0A330E 0A328E 30 01 17 BSR.68K $0117 ; => $0A317A => $0A3904 0A3291 40 PUSH.6 $00 0A3292 36 10 2D _2362 $002D ; A0 = $004000; (A0) = A6 + $0 0A3295 86 03 READ.L $03 0A3297 38 00 12 BLS.B $0012 ; => $0A32AC 0A329A 84 2D READ.B $2D 0A329C 84 2D READ.B $2D 0A329E E0 47 6B READ.B $476B 0A32A1 30 01 24 BSR.68K $0124 ; => $0A3180 => $0A3A4A 0A32A4 F7 02 EF WRITE.F $02EF 0A32A7 37 10 2D 00 17 _23d2 $002D, $0017 0A32AC 30 00 89 BSR.68K $0089 ; => $0A3226 0A32AF 09 02 9F 00 48 ?_$09 $029F, $0048 0A32B4 09 03 1F 00 18 ?_$09 $031F, $0018 0A32B9 30 01 24 BSR.68K $0124 ; => $0A3198 => $0035B8 0A32BC 0D 03 07 00 18 ?_$0D $0307, $0018 0A32C1 C3 55 21 READ.F $5521 0A32C4 C7 03 07 READ.F $0307 0A32C7 20 ADD.F 0A32C8 D3 55 21 WRITE.F $5521 0A32CB C3 55 29 READ.F $5529 0A32CE C7 02 FF READ.F $02FF 0A32D1 20 ADD.F 0A32D2 D3 55 29 WRITE.F $5529 0A32D5 C3 28 E3 READ.F $28E3 0A32D8 C7 02 F7 READ.F $02F7 0A32DB 20 ADD.F 0A32DC D3 28 E3 WRITE.F $28E3 0A32DF C7 03 07 READ.F $0307 0A32E2 C3 29 C7 READ.F $29C7 0A32E5 22 MUL.F 0A32E6 30 01 9F BSR.68K $019F ; => $0A314A => $002B72 (NATIVE) 0A32E9 C7 02 FF READ.F $02FF 0A32EC C3 29 C7 READ.F $29C7 0A32EF 22 MUL.F 0A32F0 87 13 READ.F $13 0A32F2 22 MUL.F 0A32F3 30 01 AC BSR.68K $01AC ; => $0A314A => $002B72 (NATIVE) 0A32F6 20 ADD.F 0A32F7 C7 02 F7 READ.F $02F7 0A32FA 30 01 B3 BSR.68K $01B3 ; => $0A314A => $002B72 (NATIVE) 0A32FD 20 ADD.F 0A32FE 3B 3F B3 33 33 33 33 33 33 PUSH.F $3FB3333333333333 ; float = 0.075000 0A3307 03 21 LT.F 0A3309 1F 71 BRZ $-8F ; => $0A327C 0A330B 30 01 9A BSR.68K $019A ; => $0A3174 => $0A3880 0A330E 34 RETURN ; ---------------- End Function $0A326E ---------------- ; ---------------- Begin 2144 Function $0A3310 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A34CE:$0A3575 ; addr bytes opcode operands comment 0A3317 31 D8 SUBSP.B $D8 0A3319 C3 54 E9 READ.F $54E9 0A331C 8B 07 00 READ.F $07 0A331F 87 13 00 READ.F $13 0A3322 30 01 C9 BSR.68K $01C9 ; => $0A315C => $002E62 (NATIVE) 0A3325 C3 54 F1 READ.F $54F1 0A3328 8B 0F 00 READ.F $0F 0A332B 8B 17 00 READ.F $17 0A332E 30 01 D5 BSR.68K $01D5 ; => $0A315C => $002E62 (NATIVE) 0A3331 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A333A 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A3343 C3 29 CF READ.F $29CF 0A3346 8B 07 READ.F $07 0A3348 30 02 01 BSR.68K $0201 ; => $0A314A => $002B72 (NATIVE) 0A334B 22 MUL.F 0A334C 21 SUB.F 0A334D 30 01 FA BSR.68K $01FA ; => $0A3156 => $002682 (NATIVE) 0A3350 23 DIV.F 0A3351 9B 1F WRITE.F $1F 0A3353 C3 29 C7 READ.F $29C7 0A3356 8B 1F READ.F $1F 0A3358 22 MUL.F 0A3359 9B 27 WRITE.F $27 0A335B C3 29 C7 READ.F $29C7 0A335E C3 29 CF READ.F $29CF 0A3361 22 MUL.F 0A3362 8B 07 READ.F $07 0A3364 22 MUL.F 0A3365 87 13 READ.F $13 0A3367 22 MUL.F 0A3368 8B 1F READ.F $1F 0A336A 22 MUL.F 0A336B 8B 1F READ.F $1F 0A336D 30 02 26 BSR.68K $0226 ; => $0A314A => $002B72 (NATIVE) 0A3370 22 MUL.F 0A3371 9B 2F WRITE.F $2F 0A3373 8B 27 READ.F $27 0A3375 C3 54 F9 READ.F $54F9 0A3378 20 ADD.F 0A3379 9B 37 WRITE.F $37 0A337B 8B 37 READ.F $37 0A337D 8B 27 READ.F $27 0A337F C3 29 CF READ.F $29CF 0A3382 22 MUL.F 0A3383 21 SUB.F 0A3384 9B 3F WRITE.F $3F 0A3386 87 13 READ.F $13 0A3388 8B 17 READ.F $17 0A338A 22 MUL.F 0A338B 9B 47 WRITE.F $47 0A338D 87 13 READ.F $13 0A338F 8B 0F READ.F $0F 0A3391 22 MUL.F 0A3392 9B 4F WRITE.F $4F 0A3394 8B 37 READ.F $37 0A3396 8B 4F READ.F $4F 0A3398 22 MUL.F 0A3399 03 20 NEG.W 0A339B 9B 57 WRITE.F $57 0A339D 8B 37 READ.F $37 0A339F 8B 47 READ.F $47 0A33A1 22 MUL.F 0A33A2 9B 5F WRITE.F $5F 0A33A4 8B 2F READ.F $2F 0A33A6 8B 47 READ.F $47 0A33A8 22 MUL.F 0A33A9 8B 37 READ.F $37 0A33AB 8B 07 READ.F $07 0A33AD 22 MUL.F 0A33AE 8B 17 READ.F $17 0A33B0 22 MUL.F 0A33B1 21 SUB.F 0A33B2 9B 67 WRITE.F $67 0A33B4 8B 2F READ.F $2F 0A33B6 8B 4F READ.F $4F 0A33B8 22 MUL.F 0A33B9 8B 37 READ.F $37 0A33BB 8B 07 READ.F $07 0A33BD 22 MUL.F 0A33BE 8B 0F READ.F $0F 0A33C0 22 MUL.F 0A33C1 21 SUB.F 0A33C2 9B 6F WRITE.F $6F 0A33C4 8B 2F READ.F $2F 0A33C6 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A33CF C3 29 CF READ.F $29CF 0A33D2 21 SUB.F 0A33D3 22 MUL.F 0A33D4 8B 07 READ.F $07 0A33D6 22 MUL.F 0A33D7 8B 3F READ.F $3F 0A33D9 87 13 READ.F $13 0A33DB 22 MUL.F 0A33DC 20 ADD.F 0A33DD 9B 77 WRITE.F $77 0A33DF 40 PUSH.6 $00 0A33E0 36 10 2D _2362 $002D ; A0 = $004000; (A0) = A6 + $0 0A33E3 86 03 READ.L $03 0A33E5 38 00 E2 BLS.B $00E2 ; => $0A34CA 0A33E8 84 2D READ.B $2D 0A33EA E0 47 6B READ.B $476B 0A33ED 94 2E WRITE.B $2E 0A33EF 84 2E READ.B $2E 0A33F1 E3 41 E9 READ.F $41E9 0A33F4 9B A7 WRITE.F $A7 0A33F6 84 2E READ.B $2E 0A33F8 E3 42 39 READ.F $4239 0A33FB 9B AF WRITE.F $AF 0A33FD 84 2E READ.B $2E 0A33FF E3 42 89 READ.F $4289 0A3402 9B B7 WRITE.F $B7 0A3404 84 2E READ.B $2E 0A3406 E3 42 D9 READ.F $42D9 0A3409 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 0A3412 22 MUL.F 0A3413 C3 29 DF READ.F $29DF 0A3416 22 MUL.F 0A3417 C3 54 F1 READ.F $54F1 0A341A 20 ADD.F 0A341B 9B D7 WRITE.F $D7 0A341D C3 54 E9 READ.F $54E9 0A3420 8B D7 READ.F $D7 0A3422 C3 54 F9 READ.F $54F9 0A3425 8B BF 00 READ.F $BF 0A3428 8B C7 00 READ.F $C7 0A342B 8B CF 00 READ.F $CF 0A342E 30 02 C3 BSR.68K $02C3 ; => $0A316E => $0A2972 0A3431 8B BF READ.F $BF 0A3433 8B C7 READ.F $C7 0A3435 8B CF READ.F $CF 0A3437 8B A7 READ.F $A7 0A3439 8B AF READ.F $AF 0A343B 8B B7 READ.F $B7 0A343D 30 02 D8 BSR.68K $02D8 ; => $0A3168 => $0AA32C 0A3440 9B 97 WRITE.F $97 0A3442 84 2E READ.B $2E 0A3444 8B 97 READ.F $97 0A3446 F3 42 D9 WRITE.F $42D9 0A3449 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A3452 8B 97 READ.F $97 0A3454 23 DIV.F 0A3455 9B 9F WRITE.F $9F 0A3457 8B BF READ.F $BF 0A3459 8B A7 READ.F $A7 0A345B 21 SUB.F 0A345C 8B 9F READ.F $9F 0A345E 22 MUL.F 0A345F 9B 7F WRITE.F $7F 0A3461 8B C7 READ.F $C7 0A3463 8B AF READ.F $AF 0A3465 21 SUB.F 0A3466 8B 9F READ.F $9F 0A3468 22 MUL.F 0A3469 9B 87 WRITE.F $87 0A346B 8B CF READ.F $CF 0A346D 8B B7 READ.F $B7 0A346F 21 SUB.F 0A3470 8B 9F READ.F $9F 0A3472 22 MUL.F 0A3473 9B 8F WRITE.F $8F 0A3475 84 2D READ.B $2D 0A3477 43 PUSH.6 $03 0A3478 29 MUL.L 0A3479 40 PUSH.6 $00 0A347A 27 ADD.L 0A347B 8B 7F READ.F $7F 0A347D 8B 67 READ.F $67 0A347F 22 MUL.F 0A3480 8B 87 READ.F $87 0A3482 8B 6F READ.F $6F 0A3484 22 MUL.F 0A3485 20 ADD.F 0A3486 8B 8F READ.F $8F 0A3488 8B 77 READ.F $77 0A348A 22 MUL.F 0A348B 20 ADD.F 0A348C F7 01 1F WRITE.F $011F 0A348F 84 2D READ.B $2D 0A3491 43 PUSH.6 $03 0A3492 29 MUL.L 0A3493 41 PUSH.6 $01 0A3494 27 ADD.L 0A3495 8B 7F READ.F $7F 0A3497 8B 57 READ.F $57 0A3499 22 MUL.F 0A349A 8B 87 READ.F $87 0A349C 8B 5F READ.F $5F 0A349E 22 MUL.F 0A349F 20 ADD.F 0A34A0 F7 01 1F WRITE.F $011F 0A34A3 84 2D READ.B $2D 0A34A5 43 PUSH.6 $03 0A34A6 29 MUL.L 0A34A7 42 PUSH.6 $02 0A34A8 27 ADD.L 0A34A9 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A34B2 F7 01 1F WRITE.F $011F 0A34B5 84 2D READ.B $2D 0A34B7 84 2E READ.B $2E 0A34B9 E7 03 6F READ.F $036F 0A34BC 8B 97 READ.F $97 0A34BE 87 2B READ.F $2B 0A34C0 20 ADD.F 0A34C1 21 SUB.F 0A34C2 F7 02 EF WRITE.F $02EF 0A34C5 37 10 2D 00 E7 _23d2 $002D, $00E7 0A34CA 32 D8 ADDSP.B $D8 0A34CC 34 RETURN ; ---------------- End Function $0A3310 ---------------- ; ---------------- Begin 2144 Function $0A34CE ---------------- ; A0 = $004004; (A0) = SP + $B ; called from $0A0EB6:$0A0FC4 ; addr bytes opcode operands comment 0A34D5 03 2D 03 6C SUBSP.W $036C 0A34D9 83 37 READ.F $37 0A34DB D3 54 E9 WRITE.F $54E9 0A34DE 83 3F READ.F $3F 0A34E0 D3 54 F1 WRITE.F $54F1 0A34E3 C0 29 36 READ.B $2936 0A34E6 C0 29 2C READ.B $292C 0A34E9 2C AND.L 0A34EA 18 14 BRZ $014 ; => $0A3500 0A34EC C0 29 2C READ.B $292C 0A34EF 41 PUSH.6 $01 0A34F0 2A EQ.L 0A34F1 18 05 BRZ $005 ; => $0A34F8 0A34F3 C3 29 2B READ.F $292B 0A34F6 10 06 BR $006 ; => $0A34FE 0A34F8 C0 32 D4 READ.B $32D4 0A34FB E3 2D 37 READ.F $2D37 0A34FE 10 02 BR $002 ; => $0A3502 0A3500 83 47 READ.F $47 0A3502 D3 54 F9 WRITE.F $54F9 0A3505 C3 55 19 READ.F $5519 0A3508 97 2B WRITE.F $2B 0A350A C0 67 EC READ.B $67EC 0A350D 2E NOT.L 0A350E 18 1C BRZ $01C ; => $0A352C 0A3510 87 2B READ.F $2B 0A3512 3B 41 02 4C 41 D4 FD F3 B6 PUSH.F $41024C41D4FDF3B6 ; float = 149896.229000 0A351B 24 GT.F 0A351C 18 0E BRZ $00E ; => $0A352C 0A351E 87 2B READ.F $2B 0A3520 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A3529 21 SUB.F 0A352A 97 2B WRITE.F $2B 0A352C 08 40 A9 00 50 ?_$08 $40A9, $0050 0A3531 0D 03 6F 00 50 ?_$0D $036F, $0050 0A3536 86 03 READ.L $03 0A3538 09 03 6F 00 50 00 ?_$09 $036F, $0050, $0 0A353E 30 03 9D BSR.68K $039D ; => $0A31A4 => $0A9E4A 0A3541 40 PUSH.6 $00 0A3542 94 2C WRITE.B $2C 0A3544 84 2C READ.B $2C 0A3546 41 PUSH.6 $01 0A3547 27 ADD.L 0A3548 94 2C WRITE.B $2C 0A354A 84 2C READ.B $2C 0A354C C0 67 EC READ.B $67EC 0A354F 18 03 BRZ $003 ; => $0A3554 0A3551 72 PUSH.6 $32 0A3552 10 01 BR $001 ; => $0A3555 0A3554 4A PUSH.6 $0A 0A3555 03 25 LT.L 0A3557 18 1C BRZ $01C ; => $0A3575 0A3559 43 PUSH.6 $03 0A355A 96 07 WRITE.L $07 0A355C 86 03 READ.L $03 0A355E 42 PUSH.6 $02 0A355F 03 25 LT.L 0A3561 18 0C BRZ $00C ; => $0A356F 0A3563 86 03 READ.L $03 0A3565 09 02 EF 00 50 ?_$09 $02EF, $0050 0A356A 30 03 C3 BSR.68K $03C3 ; => $0A31AA => $0A3812 0A356D 10 04 BR $004 ; => $0A3573 0A356F 40 PUSH.6 $00 0A3570 D0 67 66 WRITE.B $6766 0A3573 11 8B BR $18B ; => $0A3700 0A3575 30 02 68 BSR.68K $0268 ; => $0A3310 0A3578 30 03 BF BSR.68K $03BF ; => $0A31BC 0A357B 30 03 58 BSR.68K $0358 ; => $0A3226 0A357E 09 02 57 00 48 ?_$09 $0257, $0048 0A3583 30 03 FA BSR.68K $03FA ; => $0A318C => $00398A 0A3586 0D 02 9F 00 48 ?_$0D $029F, $0048 0A358B 09 02 9F 00 48 ?_$09 $029F, $0048 0A3590 09 03 1F 00 18 ?_$09 $031F, $0018 0A3595 30 04 00 BSR.68K $0400 ; => $0A3198 => $0035B8 0A3598 0D 03 07 00 18 ?_$0D $0307, $0018 0A359D C3 54 E9 READ.F $54E9 0A35A0 C7 03 07 READ.F $0307 0A35A3 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 0A35AC 22 MUL.F 0A35AD 20 ADD.F 0A35AE 30 04 4F BSR.68K $044F ; => $0A3162 => $002D36 (NATIVE) 0A35B1 D3 54 E9 WRITE.F $54E9 0A35B4 C3 54 F1 READ.F $54F1 0A35B7 C7 02 FF READ.F $02FF 0A35BA 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 0A35C3 22 MUL.F 0A35C4 20 ADD.F 0A35C5 30 04 66 BSR.68K $0466 ; => $0A3162 => $002D36 (NATIVE) 0A35C8 D3 54 F1 WRITE.F $54F1 0A35CB 87 2B READ.F $2B 0A35CD C7 02 F7 READ.F $02F7 0A35D0 20 ADD.F 0A35D1 97 2B WRITE.F $2B 0A35D3 C0 67 EC READ.B $67EC 0A35D6 18 03 BRZ $003 ; => $0A35DB 0A35D8 30 04 2B BSR.68K $042B ; => $0A31B0 => $0A3768 0A35DB C7 03 07 READ.F $0307 0A35DE C3 29 C7 READ.F $29C7 0A35E1 22 MUL.F 0A35E2 30 04 9B BSR.68K $049B ; => $0A314A => $002B72 (NATIVE) 0A35E5 C7 02 FF READ.F $02FF 0A35E8 C3 29 C7 READ.F $29C7 0A35EB 22 MUL.F 0A35EC 87 13 READ.F $13 0A35EE 22 MUL.F 0A35EF 30 04 A8 BSR.68K $04A8 ; => $0A314A => $002B72 (NATIVE) 0A35F2 20 ADD.F 0A35F3 C7 02 F7 READ.F $02F7 0A35F6 30 04 AF BSR.68K $04AF ; => $0A314A => $002B72 (NATIVE) 0A35F9 20 ADD.F 0A35FA D7 03 77 WRITE.F $0377 0A35FD C7 03 77 READ.F $0377 0A3600 3B 40 72 C0 00 00 00 00 00 PUSH.F $4072C00000000000 ; float = 300.000000 0A3609 03 21 LT.F 0A360B 1F 37 BRZ $-C9 ; => $0A3544 0A360D 84 2C READ.B $2C 0A360F D0 35 86 WRITE.B $3586 0A3612 C7 03 77 READ.F $0377 0A3615 D3 35 8F WRITE.F $358F 0A3618 40 PUSH.6 $00 0A3619 96 07 WRITE.L $07 0A361B C0 67 EC READ.B $67EC 0A361E 2E NOT.L 0A361F 87 2B READ.F $2B 0A3621 3E PUSH.W $0000 0A3622 03 21 LT.F 0A3624 2C AND.L 0A3625 18 0E BRZ $00E ; => $0A3635 0A3627 87 2B READ.F $2B 0A3629 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A3632 20 ADD.F 0A3633 97 2B WRITE.F $2B 0A3635 87 2B READ.F $2B 0A3637 D3 55 19 WRITE.F $5519 0A363A C3 54 E9 READ.F $54E9 0A363D C3 54 F1 READ.F $54F1 0A3640 C3 54 F9 READ.F $54F9 0A3643 C3 55 01 00 READ.F $5501 0A3647 C3 55 09 00 READ.F $5509 0A364B C3 55 11 00 READ.F $5511 0A364F 30 04 E4 BSR.68K $04E4 ; => $0A316E => $0A2972 0A3652 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A365B C3 29 C7 READ.F $29C7 0A365E 23 DIV.F 0A365F 97 1B WRITE.F $1B 0A3661 87 1B READ.F $1B 0A3663 83 8F READ.F $8F 0A3665 23 DIV.F 0A3666 97 23 WRITE.F $23 0A3668 09 01 1F 00 F0 ?_$09 $011F, $00F0 0A366D 0D 02 0F 00 F0 ?_$0D $020F, $00F0 0A3672 40 PUSH.6 $00 0A3673 36 10 2D _2362 $002D ; A0 = $004000; (A0) = A6 + $0 0A3676 86 03 READ.L $03 0A3678 38 00 2F BLS.B $002F ; => $0A36AA 0A367B 84 2D READ.B $2D 0A367D 43 PUSH.6 $03 0A367E 29 MUL.L 0A367F 40 PUSH.6 $00 0A3680 27 ADD.L 0A3681 84 2D READ.B $2D 0A3683 43 PUSH.6 $03 0A3684 29 MUL.L 0A3685 40 PUSH.6 $00 0A3686 27 ADD.L 0A3687 E7 01 1F READ.F $011F 0A368A 87 1B READ.F $1B 0A368C 22 MUL.F 0A368D F7 01 1F WRITE.F $011F 0A3690 84 2D READ.B $2D 0A3692 43 PUSH.6 $03 0A3693 29 MUL.L 0A3694 41 PUSH.6 $01 0A3695 27 ADD.L 0A3696 84 2D READ.B $2D 0A3698 43 PUSH.6 $03 0A3699 29 MUL.L 0A369A 41 PUSH.6 $01 0A369B 27 ADD.L 0A369C E7 01 1F READ.F $011F 0A369F 87 23 READ.F $23 0A36A1 22 MUL.F 0A36A2 F7 01 1F WRITE.F $011F 0A36A5 37 10 2D 00 34 _23d2 $002D, $0034 0A36AA 30 04 F1 BSR.68K $04F1 ; => $0A31BC 0A36AD 09 02 57 00 48 ?_$09 $0257, $0048 0A36B2 30 05 2F BSR.68K $052F ; => $0A3186 => $0977DE 0A36B5 0D 02 57 00 48 ?_$0D $0257, $0048 0A36BA 40 PUSH.6 $00 0A36BB 43 PUSH.6 $03 0A36BC 29 MUL.L 0A36BD 40 PUSH.6 $00 0A36BE 27 ADD.L 0A36BF E7 02 57 READ.F $0257 0A36C2 41 PUSH.6 $01 0A36C3 43 PUSH.6 $03 0A36C4 29 MUL.L 0A36C5 41 PUSH.6 $01 0A36C6 27 ADD.L 0A36C7 E7 02 57 READ.F $0257 0A36CA 20 ADD.F 0A36CB 30 05 78 BSR.68K $0578 ; => $0A3156 => $002682 (NATIVE) 0A36CE 93 67 WRITE.F $67 0A36D0 83 67 READ.F $67 0A36D2 93 6F WRITE.F $6F 0A36D4 3E PUSH.W $0000 0A36D5 93 77 WRITE.F $77 0A36D7 42 PUSH.6 $02 0A36D8 43 PUSH.6 $03 0A36D9 29 MUL.L 0A36DA 42 PUSH.6 $02 0A36DB 27 ADD.L 0A36DC E7 02 57 READ.F $0257 0A36DF 30 05 8C BSR.68K $058C ; => $0A3156 => $002682 (NATIVE) 0A36E2 93 7F WRITE.F $7F 0A36E4 09 02 0F 00 F0 ?_$09 $020F, $00F0 0A36E9 0D 01 1F 00 F0 ?_$0D $011F, $00F0 0A36EE 30 04 83 BSR.68K $0483 ; => $0A326E 0A36F1 C0 67 EC READ.B $67EC 0A36F4 18 0A BRZ $00A ; => $0A3700 0A36F6 86 03 READ.L $03 0A36F8 30 05 45 BSR.68K $0545 ; => $0A31B6 => $090C30 0A36FB 18 03 BRZ $003 ; => $0A3700 0A36FD 49 PUSH.6 $09 0A36FE 96 07 WRITE.L $07 0A3700 03 2E 03 6C ADDSP.W $036C 0A3704 33 _2300 0A3705 32 04 ADDSP.B $04 0A3707 34 RETURN ; ---------------- End Function $0A34CE ---------------- ; ---------------- Begin 2144 Function $0A3768 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A2E20:$0A3018 ; called from $0A34CE:$0A35D8 ; called from $0A3DBE:$0A3EF1 ; addr bytes opcode operands comment 0A376F C3 54 F9 READ.F $54F9 0A3772 C3 29 C7 READ.F $29C7 0A3775 03 20 NEG.W 0A3777 03 21 LT.F 0A3779 18 2B BRZ $02B ; => $0A37A6 0A377B C3 54 E9 READ.F $54E9 0A377E 03 20 NEG.W 0A3780 D3 54 E9 WRITE.F $54E9 0A3783 C3 54 F1 READ.F $54F1 0A3786 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A378F 20 ADD.F 0A3790 30 00 67 BSR.68K $0067 ; => $0A372C => $002D36 (NATIVE) 0A3793 D3 54 F1 WRITE.F $54F1 0A3796 C3 54 F9 READ.F $54F9 0A3799 C3 29 C7 READ.F $29C7 0A379C 20 ADD.F 0A379D C3 29 C7 READ.F $29C7 0A37A0 20 ADD.F 0A37A1 03 20 NEG.W 0A37A3 D3 54 F9 WRITE.F $54F9 0A37A6 C3 54 E9 READ.F $54E9 0A37A9 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A37B2 24 GT.F 0A37B3 18 25 BRZ $025 ; => $0A37DA 0A37B5 C3 54 F1 READ.F $54F1 0A37B8 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A37C1 20 ADD.F 0A37C2 30 00 99 BSR.68K $0099 ; => $0A372C => $002D36 (NATIVE) 0A37C5 D3 54 F1 WRITE.F $54F1 0A37C8 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A37D1 C3 54 E9 READ.F $54E9 0A37D4 21 SUB.F 0A37D5 D3 54 E9 WRITE.F $54E9 0A37D8 10 37 BR $037 ; => $0A3811 0A37DA C3 54 E9 READ.F $54E9 0A37DD 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A37E6 03 20 NEG.W 0A37E8 03 21 LT.F 0A37EA 18 25 BRZ $025 ; => $0A3811 0A37EC C3 54 F1 READ.F $54F1 0A37EF 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A37F8 20 ADD.F 0A37F9 30 00 D0 BSR.68K $00D0 ; => $0A372C => $002D36 (NATIVE) 0A37FC D3 54 F1 WRITE.F $54F1 0A37FF 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A3808 03 20 NEG.W 0A380A C3 54 E9 READ.F $54E9 0A380D 21 SUB.F 0A380E D3 54 E9 WRITE.F $54E9 0A3811 34 RETURN ; ---------------- End Function $0A3768 ---------------- ; ---------------- Begin 2144 Function $0A3812 ---------------- ; A0 = $004004; (A0) = SP + $53 ; called from $0A2E20:$0A2F6F ; called from $0A34CE:$0A356A ; called from $0A3DBE:$0A3E79 ; addr bytes opcode operands comment 0A3819 31 12 SUBSP.B $12 0A381B 3E PUSH.W $0000 0A381C 97 63 WRITE.F $63 0A381E 3E PUSH.W $0000 0A381F 97 5B WRITE.F $5B 0A3821 40 PUSH.6 $00 0A3822 36 10 64 _2362 $0064 ; A0 = $004000; (A0) = A6 + $0 0A3825 86 03 READ.L $03 0A3827 38 00 53 BLS.B $0053 ; => $0A387D 0A382A 84 64 READ.B $64 0A382C E0 47 6B READ.B $476B 0A382F E0 40 09 READ.B $4009 0A3832 94 65 WRITE.B $65 0A3834 84 65 READ.B $65 0A3836 E0 02 29 READ.B $0229 0A3839 40 PUSH.6 $00 0A383A 2A EQ.L 0A383B 18 21 BRZ $021 ; => $0A385E 0A383D 87 5B READ.F $5B 0A383F 3E PUSH.W $0000 0A3840 26 EQ.F 0A3841 84 64 READ.B $64 0A3843 A7 53 READ.F $53 0A3845 30 01 3A BSR.68K $013A ; => $0A370E => $002B7E (NATIVE) 0A3848 87 63 READ.F $63 0A384A 24 GT.F 0A384B 2C AND.L 0A384C 18 0E BRZ $00E ; => $0A385C 0A384E 84 64 READ.B $64 0A3850 A7 53 READ.F $53 0A3852 30 01 47 BSR.68K $0147 ; => $0A370E => $002B7E (NATIVE) 0A3855 97 63 WRITE.F $63 0A3857 84 65 READ.B $65 0A3859 D0 67 66 WRITE.B $6766 0A385C 10 1A BR $01A ; => $0A3878 0A385E 84 64 READ.B $64 0A3860 A7 53 READ.F $53 0A3862 30 01 57 BSR.68K $0157 ; => $0A370E => $002B7E (NATIVE) 0A3865 87 5B READ.F $5B 0A3867 24 GT.F 0A3868 18 0E BRZ $00E ; => $0A3878 0A386A 84 64 READ.B $64 0A386C A7 53 READ.F $53 0A386E 30 01 63 BSR.68K $0163 ; => $0A370E => $002B7E (NATIVE) 0A3871 97 5B WRITE.F $5B 0A3873 84 65 READ.B $65 0A3875 D0 67 66 WRITE.B $6766 0A3878 37 10 64 00 58 _23d2 $0064, $0058 0A387D 32 66 ADDSP.B $66 0A387F 34 RETURN ; ---------------- End Function $0A3812 ---------------- ; ---------------- Begin 2144 Function $0A3880 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A2B34:$0A2C05 ; called from $0A326E:$0A330B ; called from $0A3B38:$0A3BE2 ; addr bytes opcode operands comment 0A3887 31 18 SUBSP.B $18 0A3889 C3 55 21 READ.F $5521 0A388C C3 29 C7 READ.F $29C7 0A388F 22 MUL.F 0A3890 97 0F WRITE.F $0F 0A3892 C3 55 29 READ.F $5529 0A3895 C3 29 C7 READ.F $29C7 0A3898 22 MUL.F 0A3899 C3 54 E9 READ.F $54E9 0A389C 30 01 8B BSR.68K $018B ; => $0A3714 => $002F2A (NATIVE) 0A389F 22 MUL.F 0A38A0 97 17 WRITE.F $17 0A38A2 87 0F READ.F $0F 0A38A4 87 0F READ.F $0F 0A38A6 22 MUL.F 0A38A7 87 17 READ.F $17 0A38A9 87 17 READ.F $17 0A38AB 22 MUL.F 0A38AC 20 ADD.F 0A38AD 30 01 A8 BSR.68K $01A8 ; => $0A3708 => $002682 (NATIVE) 0A38B0 3B 3F FF 15 B5 73 EA B3 68 PUSH.F $3FFF15B573EAB368 ; float = 1.942800 0A38B9 22 MUL.F 0A38BA D3 55 59 WRITE.F $5559 0A38BD 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A38C6 87 17 READ.F $17 0A38C8 87 0F READ.F $0F 0A38CA 30 01 A7 BSR.68K $01A7 ; => $0A3726 => $0032A8 (NATIVE) 0A38CD 22 MUL.F 0A38CE D3 55 51 WRITE.F $5551 0A38D1 C3 55 51 READ.F $5551 0A38D4 3E PUSH.W $0000 0A38D5 03 21 LT.F 0A38D7 18 10 BRZ $010 ; => $0A38E9 0A38D9 C3 55 51 READ.F $5551 0A38DC 3B 40 76 80 00 00 00 00 00 PUSH.F $4076800000000000 ; float = 360.000000 0A38E5 20 ADD.F 0A38E6 D3 55 51 WRITE.F $5551 0A38E9 C3 55 59 READ.F $5559 0A38EC 3B 3F 94 7A E1 47 AE 14 7B PUSH.F $3F947AE147AE147B ; float = 0.020000 0A38F5 03 21 LT.F 0A38F7 18 08 BRZ $008 ; => $0A3901 0A38F9 3E PUSH.W $0000 0A38FA D3 55 51 WRITE.F $5551 0A38FD 3E PUSH.W $0000 0A38FE D3 55 59 WRITE.F $5559 0A3901 32 18 ADDSP.B $18 0A3903 34 RETURN ; ---------------- End Function $0A3880 ---------------- ; ---------------- Begin 2144 Function $0A3904 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A2B34:$0A2B62 ; called from $0A326E:$0A328E ; called from $0A3B38:$0A3B54 ; addr bytes opcode operands comment 0A390B 31 48 SUBSP.B $48 0A390D C3 54 E9 READ.F $54E9 0A3910 87 07 00 READ.F $07 0A3913 87 0F 00 READ.F $0F 0A3916 30 01 FF BSR.68K $01FF ; => $0A371A => $002E62 (NATIVE) 0A3919 C3 54 F1 READ.F $54F1 0A391C 87 17 00 READ.F $17 0A391F 87 1F 00 READ.F $1F 0A3922 30 02 0B BSR.68K $020B ; => $0A371A => $002E62 (NATIVE) 0A3925 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A392E 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A3937 C3 29 CF READ.F $29CF 0A393A 87 07 READ.F $07 0A393C 22 MUL.F 0A393D 87 07 READ.F $07 0A393F 22 MUL.F 0A3940 21 SUB.F 0A3941 30 02 3C BSR.68K $023C ; => $0A3708 => $002682 (NATIVE) 0A3944 23 DIV.F 0A3945 97 27 WRITE.F $27 0A3947 C3 29 C7 READ.F $29C7 0A394A 87 27 READ.F $27 0A394C 22 MUL.F 0A394D 97 2F WRITE.F $2F 0A394F 87 2F READ.F $2F 0A3951 C3 29 CF READ.F $29CF 0A3954 22 MUL.F 0A3955 C3 55 21 READ.F $5521 0A3958 22 MUL.F 0A3959 87 07 READ.F $07 0A395B 22 MUL.F 0A395C 87 0F READ.F $0F 0A395E 22 MUL.F 0A395F 87 27 READ.F $27 0A3961 22 MUL.F 0A3962 87 27 READ.F $27 0A3964 22 MUL.F 0A3965 97 37 WRITE.F $37 0A3967 87 2F READ.F $2F 0A3969 C3 54 F9 READ.F $54F9 0A396C 20 ADD.F 0A396D 97 3F WRITE.F $3F 0A396F 87 37 READ.F $37 0A3971 C3 55 31 READ.F $5531 0A3974 20 ADD.F 0A3975 97 47 WRITE.F $47 0A3977 87 47 READ.F $47 0A3979 87 0F READ.F $0F 0A397B 22 MUL.F 0A397C 87 1F READ.F $1F 0A397E 22 MUL.F 0A397F 87 3F READ.F $3F 0A3981 C3 55 21 READ.F $5521 0A3984 22 MUL.F 0A3985 87 07 READ.F $07 0A3987 22 MUL.F 0A3988 87 1F READ.F $1F 0A398A 22 MUL.F 0A398B 21 SUB.F 0A398C 87 3F READ.F $3F 0A398E 87 0F READ.F $0F 0A3990 22 MUL.F 0A3991 C3 55 29 READ.F $5529 0A3994 22 MUL.F 0A3995 87 17 READ.F $17 0A3997 22 MUL.F 0A3998 21 SUB.F 0A3999 D3 55 39 WRITE.F $5539 0A399C 87 47 READ.F $47 0A399E 87 0F READ.F $0F 0A39A0 22 MUL.F 0A39A1 87 17 READ.F $17 0A39A3 22 MUL.F 0A39A4 87 3F READ.F $3F 0A39A6 C3 55 21 READ.F $5521 0A39A9 22 MUL.F 0A39AA 87 07 READ.F $07 0A39AC 22 MUL.F 0A39AD 87 17 READ.F $17 0A39AF 22 MUL.F 0A39B0 21 SUB.F 0A39B1 87 3F READ.F $3F 0A39B3 87 0F READ.F $0F 0A39B5 22 MUL.F 0A39B6 C3 55 29 READ.F $5529 0A39B9 22 MUL.F 0A39BA 87 1F READ.F $1F 0A39BC 22 MUL.F 0A39BD 20 ADD.F 0A39BE D3 55 41 WRITE.F $5541 0A39C1 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A39CA C3 29 CF READ.F $29CF 0A39CD 21 SUB.F 0A39CE 87 37 READ.F $37 0A39D0 22 MUL.F 0A39D1 C3 55 31 READ.F $5531 0A39D4 20 ADD.F 0A39D5 87 07 READ.F $07 0A39D7 22 MUL.F 0A39D8 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A39E1 C3 29 CF READ.F $29CF 0A39E4 21 SUB.F 0A39E5 87 2F READ.F $2F 0A39E7 22 MUL.F 0A39E8 C3 54 F9 READ.F $54F9 0A39EB 20 ADD.F 0A39EC C3 55 21 READ.F $5521 0A39EF 22 MUL.F 0A39F0 87 0F READ.F $0F 0A39F2 22 MUL.F 0A39F3 20 ADD.F 0A39F4 D3 55 49 WRITE.F $5549 0A39F7 32 48 ADDSP.B $48 0A39F9 34 RETURN ; ---------------- End Function $0A3904 ---------------- ; ---------------- Begin 2164 Function $0A39FA ---------------- ; P0 = $0004; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000008 ; called from $0A2AFA:$0A2B28 ; called from $0A3A4A:$0A3A78 ; addr bytes opcode operands comment 0A3A03 C3 55 01 READ.F $5501 0A3A06 86 0B READ.L $0B 0A3A08 E3 41 E9 READ.F $41E9 0A3A0B 21 SUB.F 0A3A0C C3 55 39 READ.F $5539 0A3A0F 86 0B READ.L $0B 0A3A11 E3 43 79 READ.F $4379 0A3A14 21 SUB.F 0A3A15 22 MUL.F 0A3A16 C3 55 09 READ.F $5509 0A3A19 86 0B READ.L $0B 0A3A1B E3 42 39 READ.F $4239 0A3A1E 21 SUB.F 0A3A1F C3 55 41 READ.F $5541 0A3A22 86 0B READ.L $0B 0A3A24 E3 43 C9 READ.F $43C9 0A3A27 21 SUB.F 0A3A28 22 MUL.F 0A3A29 20 ADD.F 0A3A2A C3 55 11 READ.F $5511 0A3A2D 86 0B READ.L $0B 0A3A2F E3 42 89 READ.F $4289 0A3A32 21 SUB.F 0A3A33 C3 55 49 READ.F $5549 0A3A36 86 0B READ.L $0B 0A3A38 E3 44 19 READ.F $4419 0A3A3B 21 SUB.F 0A3A3C 22 MUL.F 0A3A3D 20 ADD.F 0A3A3E 86 0B READ.L $0B 0A3A40 E3 42 D9 READ.F $42D9 0A3A43 23 DIV.F 0A3A44 97 07 WRITE.F $07 0A3A46 32 04 ADDSP.B $04 0A3A48 34 RETURN ; ---------------- End Function $0A39FA ---------------- ; ---------------- Begin 2164 Function $0A3A4A ---------------- ; P0 = $0004; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000008 ; called from $0A326E:$0A32A1 ; called from $0A3B38:$0A3B67 ; addr bytes opcode operands comment 0A3A53 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0A3A5C 86 0B READ.L $0B 0A3A5E E3 40 F9 READ.F $40F9 0A3A61 21 SUB.F 0A3A62 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 0A3A6B 22 MUL.F 0A3A6C 3B 3E 05 CF 55 03 0F 15 63 PUSH.F $3E05CF55030F1563 ; float = 0.000000 0A3A75 22 MUL.F 0A3A76 86 0B READ.L $0B 0A3A78 30 00 81 BSR.68K $0081 ; => $0A39FA 0A3A7B C3 28 E3 READ.F $28E3 0A3A7E 20 ADD.F 0A3A7F 21 SUB.F 0A3A80 97 07 WRITE.F $07 0A3A82 32 04 ADDSP.B $04 0A3A84 34 RETURN ; ---------------- End Function $0A3A4A ---------------- ; ---------------- Begin 2144 Function $0A3A86 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A3DBE:$0A3E87 ; called from $0A3DBE:$0A3FCA ; addr bytes opcode operands comment 0A3A8D 31 02 SUBSP.B $02 0A3A8F 40 PUSH.6 $00 0A3A90 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A3A93 43 PUSH.6 $03 0A3A94 38 00 55 BLS.B $0055 ; => $0A3AEC 0A3A97 40 PUSH.6 $00 0A3A98 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0A3A9B 43 PUSH.6 $03 0A3A9C 38 00 48 BLS.B $0048 ; => $0A3AE7 0A3A9F 88 00 READ.B $00 0A3AA1 44 PUSH.6 $04 0A3AA2 29 MUL.L 0A3AA3 88 01 READ.B $01 0A3AA5 27 ADD.L 0A3AA6 3E PUSH.W $0000 0A3AA7 F7 03 45 WRITE.F $0345 0A3AAA 40 PUSH.6 $00 0A3AAB 36 10 44 _2362 $0044 ; A0 = $004000; (A0) = A6 + $0 0A3AAE 86 03 READ.L $03 0A3AB0 38 00 2F BLS.B $002F ; => $0A3AE2 0A3AB3 88 00 READ.B $00 0A3AB5 44 PUSH.6 $04 0A3AB6 29 MUL.L 0A3AB7 88 01 READ.B $01 0A3AB9 27 ADD.L 0A3ABA 88 00 READ.B $00 0A3ABC 44 PUSH.6 $04 0A3ABD 29 MUL.L 0A3ABE 88 01 READ.B $01 0A3AC0 27 ADD.L 0A3AC1 E7 03 45 READ.F $0345 0A3AC4 84 44 READ.B $44 0A3AC6 44 PUSH.6 $04 0A3AC7 29 MUL.L 0A3AC8 88 00 READ.B $00 0A3ACA 27 ADD.L 0A3ACB E7 01 85 READ.F $0185 0A3ACE 84 44 READ.B $44 0A3AD0 44 PUSH.6 $04 0A3AD1 29 MUL.L 0A3AD2 88 01 READ.B $01 0A3AD4 27 ADD.L 0A3AD5 E7 01 85 READ.F $0185 0A3AD8 22 MUL.F 0A3AD9 20 ADD.F 0A3ADA F7 03 45 WRITE.F $0345 0A3ADD 37 10 44 00 34 _23d2 $0044, $0034 0A3AE2 37 20 01 00 4C _23d2 $0001, $004C 0A3AE7 37 20 00 00 59 _23d2 $0000, $0059 0A3AEC 32 02 ADDSP.B $02 0A3AEE 34 RETURN ; ---------------- End Function $0A3A86 ---------------- ; ---------------- Begin 2144 Function $0A3AF0 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A3B38:$0A3B72 ; called from $0A3DBE:$0A3E8A ; addr bytes opcode operands comment 0A3AF7 31 02 SUBSP.B $02 0A3AF9 40 PUSH.6 $00 0A3AFA 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A3AFD 43 PUSH.6 $03 0A3AFE 38 00 34 BLS.B $0034 ; => $0A3B35 0A3B01 88 00 READ.B $00 0A3B03 3E PUSH.W $0000 0A3B04 F7 04 55 WRITE.F $0455 0A3B07 40 PUSH.6 $00 0A3B08 36 10 44 _2362 $0044 ; A0 = $004000; (A0) = A6 + $0 0A3B0B 86 03 READ.L $03 0A3B0D 38 00 20 BLS.B $0020 ; => $0A3B30 0A3B10 88 00 READ.B $00 0A3B12 88 00 READ.B $00 0A3B14 E7 04 55 READ.F $0455 0A3B17 84 44 READ.B $44 0A3B19 44 PUSH.6 $04 0A3B1A 29 MUL.L 0A3B1B 88 00 READ.B $00 0A3B1D 27 ADD.L 0A3B1E E7 01 85 READ.F $0185 0A3B21 84 44 READ.B $44 0A3B23 E7 04 15 READ.F $0415 0A3B26 22 MUL.F 0A3B27 20 ADD.F 0A3B28 F7 04 55 WRITE.F $0455 0A3B2B 37 10 44 00 25 _23d2 $0044, $0025 0A3B30 37 20 00 00 38 _23d2 $0000, $0038 0A3B35 32 02 ADDSP.B $02 0A3B37 34 RETURN ; ---------------- End Function $0A3AF0 ---------------- ; ---------------- Begin 2144 Function $0A3B38 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A3DBE:$0A402D ; addr bytes opcode operands comment 0A3B3F 40 PUSH.6 $00 0A3B40 94 45 WRITE.B $45 0A3B42 84 45 READ.B $45 0A3B44 41 PUSH.6 $01 0A3B45 27 ADD.L 0A3B46 94 45 WRITE.B $45 0A3B48 84 45 READ.B $45 0A3B4A 4A PUSH.6 $0A 0A3B4B 03 25 LT.L 0A3B4D 18 05 BRZ $005 ; => $0A3B54 0A3B4F 4E PUSH.6 $0E 0A3B50 96 07 WRITE.L $07 0A3B52 10 91 BR $091 ; => $0A3BE5 0A3B54 30 02 53 BSR.68K $0253 ; => $0A3904 0A3B57 40 PUSH.6 $00 0A3B58 36 10 44 _2362 $0044 ; A0 = $004000; (A0) = A6 + $0 0A3B5B 86 03 READ.L $03 0A3B5D 38 00 12 BLS.B $0012 ; => $0A3B72 0A3B60 84 44 READ.B $44 0A3B62 84 44 READ.B $44 0A3B64 E0 47 6B READ.B $476B 0A3B67 30 01 20 BSR.68K $0120 ; => $0A3A4A 0A3B6A F7 04 15 WRITE.F $0415 0A3B6D 37 10 44 00 17 _23d2 $0044, $0017 0A3B72 30 00 85 BSR.68K $0085 ; => $0A3AF0 0A3B75 09 03 C5 00 80 ?_$09 $03C5, $0080 0A3B7A 09 04 55 00 20 ?_$09 $0455, $0020 0A3B7F 30 04 32 BSR.68K $0432 ; => $0A3750 => $0035FE 0A3B82 0D 04 35 00 20 ?_$0D $0435, $0020 0A3B87 C3 55 21 READ.F $5521 0A3B8A C7 04 35 READ.F $0435 0A3B8D 20 ADD.F 0A3B8E D3 55 21 WRITE.F $5521 0A3B91 C3 55 29 READ.F $5529 0A3B94 C7 04 2D READ.F $042D 0A3B97 20 ADD.F 0A3B98 D3 55 29 WRITE.F $5529 0A3B9B C3 55 31 READ.F $5531 0A3B9E C7 04 25 READ.F $0425 0A3BA1 20 ADD.F 0A3BA2 D3 55 31 WRITE.F $5531 0A3BA5 C3 28 E3 READ.F $28E3 0A3BA8 C7 04 1D READ.F $041D 0A3BAB 20 ADD.F 0A3BAC D3 28 E3 WRITE.F $28E3 0A3BAF C7 04 35 READ.F $0435 0A3BB2 C3 29 C7 READ.F $29C7 0A3BB5 22 MUL.F 0A3BB6 30 04 99 BSR.68K $0499 ; => $0A3720 => $002B72 (NATIVE) 0A3BB9 C7 04 2D READ.F $042D 0A3BBC C3 29 C7 READ.F $29C7 0A3BBF 22 MUL.F 0A3BC0 87 13 READ.F $13 0A3BC2 22 MUL.F 0A3BC3 30 04 A6 BSR.68K $04A6 ; => $0A3720 => $002B72 (NATIVE) 0A3BC6 20 ADD.F 0A3BC7 C7 04 25 READ.F $0425 0A3BCA 30 04 AD BSR.68K $04AD ; => $0A3720 => $002B72 (NATIVE) 0A3BCD 20 ADD.F 0A3BCE C7 04 1D READ.F $041D 0A3BD1 30 04 B4 BSR.68K $04B4 ; => $0A3720 => $002B72 (NATIVE) 0A3BD4 20 ADD.F 0A3BD5 3B 3F B9 99 99 99 99 99 9A PUSH.F $3FB999999999999A ; float = 0.100000 0A3BDE 03 21 LT.F 0A3BE0 1F 60 BRZ $-A0 ; => $0A3B42 0A3BE2 30 03 65 BSR.68K $0365 ; => $0A3880 0A3BE5 34 RETURN ; ---------------- End Function $0A3B38 ---------------- ; ---------------- Begin 2144 Function $0A3BE6 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A3DBE:$0A3E84 ; addr bytes opcode operands comment 0A3BED 31 DA SUBSP.B $DA 0A3BEF C3 54 E9 READ.F $54E9 0A3BF2 8B 07 00 READ.F $07 0A3BF5 87 13 00 READ.F $13 0A3BF8 30 04 E1 BSR.68K $04E1 ; => $0A371A => $002E62 (NATIVE) 0A3BFB C3 54 F1 READ.F $54F1 0A3BFE 8B 0F 00 READ.F $0F 0A3C01 8B 17 00 READ.F $17 0A3C04 30 04 ED BSR.68K $04ED ; => $0A371A => $002E62 (NATIVE) 0A3C07 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A3C10 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A3C19 C3 29 CF READ.F $29CF 0A3C1C 8B 07 READ.F $07 0A3C1E 22 MUL.F 0A3C1F 8B 07 READ.F $07 0A3C21 22 MUL.F 0A3C22 21 SUB.F 0A3C23 30 05 1E BSR.68K $051E ; => $0A3708 => $002682 (NATIVE) 0A3C26 23 DIV.F 0A3C27 9B 1F WRITE.F $1F 0A3C29 C3 29 C7 READ.F $29C7 0A3C2C 8B 1F READ.F $1F 0A3C2E 22 MUL.F 0A3C2F 9B 27 WRITE.F $27 0A3C31 C3 29 C7 READ.F $29C7 0A3C34 C3 29 CF READ.F $29CF 0A3C37 22 MUL.F 0A3C38 8B 07 READ.F $07 0A3C3A 22 MUL.F 0A3C3B 87 13 READ.F $13 0A3C3D 22 MUL.F 0A3C3E 8B 1F READ.F $1F 0A3C40 22 MUL.F 0A3C41 8B 1F READ.F $1F 0A3C43 22 MUL.F 0A3C44 8B 1F READ.F $1F 0A3C46 22 MUL.F 0A3C47 9B 2F WRITE.F $2F 0A3C49 8B 27 READ.F $27 0A3C4B C3 54 F9 READ.F $54F9 0A3C4E 20 ADD.F 0A3C4F 9B 37 WRITE.F $37 0A3C51 8B 37 READ.F $37 0A3C53 8B 27 READ.F $27 0A3C55 C3 29 CF READ.F $29CF 0A3C58 22 MUL.F 0A3C59 21 SUB.F 0A3C5A 9B 3F WRITE.F $3F 0A3C5C 87 13 READ.F $13 0A3C5E 8B 17 READ.F $17 0A3C60 22 MUL.F 0A3C61 9B 47 WRITE.F $47 0A3C63 87 13 READ.F $13 0A3C65 8B 0F READ.F $0F 0A3C67 22 MUL.F 0A3C68 9B 4F WRITE.F $4F 0A3C6A 8B 37 READ.F $37 0A3C6C 8B 4F READ.F $4F 0A3C6E 22 MUL.F 0A3C6F 03 20 NEG.W 0A3C71 9B 57 WRITE.F $57 0A3C73 8B 37 READ.F $37 0A3C75 8B 47 READ.F $47 0A3C77 22 MUL.F 0A3C78 9B 5F WRITE.F $5F 0A3C7A 8B 2F READ.F $2F 0A3C7C 8B 47 READ.F $47 0A3C7E 22 MUL.F 0A3C7F 8B 37 READ.F $37 0A3C81 8B 07 READ.F $07 0A3C83 22 MUL.F 0A3C84 8B 17 READ.F $17 0A3C86 22 MUL.F 0A3C87 21 SUB.F 0A3C88 9B 67 WRITE.F $67 0A3C8A 8B 2F READ.F $2F 0A3C8C 8B 4F READ.F $4F 0A3C8E 22 MUL.F 0A3C8F 8B 37 READ.F $37 0A3C91 8B 07 READ.F $07 0A3C93 22 MUL.F 0A3C94 8B 0F READ.F $0F 0A3C96 22 MUL.F 0A3C97 21 SUB.F 0A3C98 9B 6F WRITE.F $6F 0A3C9A 8B 2F READ.F $2F 0A3C9C 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A3CA5 C3 29 CF READ.F $29CF 0A3CA8 21 SUB.F 0A3CA9 22 MUL.F 0A3CAA 8B 07 READ.F $07 0A3CAC 22 MUL.F 0A3CAD 8B 3F READ.F $3F 0A3CAF 87 13 READ.F $13 0A3CB1 22 MUL.F 0A3CB2 20 ADD.F 0A3CB3 9B 77 WRITE.F $77 0A3CB5 40 PUSH.6 $00 0A3CB6 36 10 44 _2362 $0044 ; A0 = $004000; (A0) = A6 + $0 0A3CB9 86 03 READ.L $03 0A3CBB 38 00 FC BLS.B $00FC ; => $0A3DBA 0A3CBE 84 44 READ.B $44 0A3CC0 E0 47 6B READ.B $476B 0A3CC3 98 D8 WRITE.B $D8 0A3CC5 88 D8 READ.B $D8 0A3CC7 E3 41 E9 READ.F $41E9 0A3CCA 9B A7 WRITE.F $A7 0A3CCC 88 D8 READ.B $D8 0A3CCE E3 42 39 READ.F $4239 0A3CD1 9B AF WRITE.F $AF 0A3CD3 88 D8 READ.B $D8 0A3CD5 E3 42 89 READ.F $4289 0A3CD8 9B B7 WRITE.F $B7 0A3CDA 88 D8 READ.B $D8 0A3CDC E3 42 D9 READ.F $42D9 0A3CDF 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 0A3CE8 22 MUL.F 0A3CE9 C3 29 DF READ.F $29DF 0A3CEC 22 MUL.F 0A3CED C3 54 F1 READ.F $54F1 0A3CF0 20 ADD.F 0A3CF1 9B D7 WRITE.F $D7 0A3CF3 C3 54 E9 READ.F $54E9 0A3CF6 8B D7 READ.F $D7 0A3CF8 C3 54 F9 READ.F $54F9 0A3CFB 8B BF 00 READ.F $BF 0A3CFE 8B C7 00 READ.F $C7 0A3D01 8B CF 00 READ.F $CF 0A3D04 30 05 CF BSR.68K $05CF ; => $0A3738 => $0A2972 0A3D07 8B BF READ.F $BF 0A3D09 8B C7 READ.F $C7 0A3D0B 8B CF READ.F $CF 0A3D0D 8B A7 READ.F $A7 0A3D0F 8B AF READ.F $AF 0A3D11 8B B7 READ.F $B7 0A3D13 30 05 E4 BSR.68K $05E4 ; => $0A3732 => $0AA32C 0A3D16 9B 97 WRITE.F $97 0A3D18 88 D8 READ.B $D8 0A3D1A 8B 97 READ.F $97 0A3D1C F3 42 D9 WRITE.F $42D9 0A3D1F 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A3D28 8B 97 READ.F $97 0A3D2A 23 DIV.F 0A3D2B 9B 9F WRITE.F $9F 0A3D2D 8B BF READ.F $BF 0A3D2F 8B A7 READ.F $A7 0A3D31 21 SUB.F 0A3D32 8B 9F READ.F $9F 0A3D34 22 MUL.F 0A3D35 9B 7F WRITE.F $7F 0A3D37 8B C7 READ.F $C7 0A3D39 8B AF READ.F $AF 0A3D3B 21 SUB.F 0A3D3C 8B 9F READ.F $9F 0A3D3E 22 MUL.F 0A3D3F 9B 87 WRITE.F $87 0A3D41 8B CF READ.F $CF 0A3D43 8B B7 READ.F $B7 0A3D45 21 SUB.F 0A3D46 8B 9F READ.F $9F 0A3D48 22 MUL.F 0A3D49 9B 8F WRITE.F $8F 0A3D4B 84 44 READ.B $44 0A3D4D 44 PUSH.6 $04 0A3D4E 29 MUL.L 0A3D4F 40 PUSH.6 $00 0A3D50 27 ADD.L 0A3D51 8B 7F READ.F $7F 0A3D53 8B 67 READ.F $67 0A3D55 22 MUL.F 0A3D56 8B 87 READ.F $87 0A3D58 8B 6F READ.F $6F 0A3D5A 22 MUL.F 0A3D5B 20 ADD.F 0A3D5C 8B 8F READ.F $8F 0A3D5E 8B 77 READ.F $77 0A3D60 22 MUL.F 0A3D61 20 ADD.F 0A3D62 F7 01 85 WRITE.F $0185 0A3D65 84 44 READ.B $44 0A3D67 44 PUSH.6 $04 0A3D68 29 MUL.L 0A3D69 41 PUSH.6 $01 0A3D6A 27 ADD.L 0A3D6B 8B 7F READ.F $7F 0A3D6D 8B 57 READ.F $57 0A3D6F 22 MUL.F 0A3D70 8B 87 READ.F $87 0A3D72 8B 5F READ.F $5F 0A3D74 22 MUL.F 0A3D75 20 ADD.F 0A3D76 F7 01 85 WRITE.F $0185 0A3D79 84 44 READ.B $44 0A3D7B 44 PUSH.6 $04 0A3D7C 29 MUL.L 0A3D7D 42 PUSH.6 $02 0A3D7E 27 ADD.L 0A3D7F 8B 7F READ.F $7F 0A3D81 8B 47 READ.F $47 0A3D83 22 MUL.F 0A3D84 8B 87 READ.F $87 0A3D86 8B 4F READ.F $4F 0A3D88 22 MUL.F 0A3D89 20 ADD.F 0A3D8A 8B 8F READ.F $8F 0A3D8C 8B 07 READ.F $07 0A3D8E 22 MUL.F 0A3D8F 20 ADD.F 0A3D90 F7 01 85 WRITE.F $0185 0A3D93 84 44 READ.B $44 0A3D95 44 PUSH.6 $04 0A3D96 29 MUL.L 0A3D97 43 PUSH.6 $03 0A3D98 27 ADD.L 0A3D99 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A3DA2 F7 01 85 WRITE.F $0185 0A3DA5 84 44 READ.B $44 0A3DA7 88 D8 READ.B $D8 0A3DA9 E7 04 A5 READ.F $04A5 0A3DAC 8B 97 READ.F $97 0A3DAE 87 43 READ.F $43 0A3DB0 20 ADD.F 0A3DB1 21 SUB.F 0A3DB2 F7 04 15 WRITE.F $0415 0A3DB5 37 10 44 01 01 _23d2 $0044, $0101 0A3DBA 32 DA ADDSP.B $DA 0A3DBC 34 RETURN ; ---------------- End Function $0A3BE6 ---------------- ; ---------------- Begin 2144 Function $0A3DBE ---------------- ; A0 = $004004; (A0) = SP + $B ; called from $0A0EB6:$0A0FD1 ; addr bytes opcode operands comment 0A3DC5 03 2D 04 A2 SUBSP.W $04A2 0A3DC9 41 PUSH.6 $01 0A3DCA 40 PUSH.6 $00 0A3DCB E3 65 91 READ.F $6591 0A3DCE F3 65 91 WRITE.F $6591 0A3DD1 41 PUSH.6 $01 0A3DD2 40 PUSH.6 $00 0A3DD3 E3 65 A1 READ.F $65A1 0A3DD6 F3 65 A1 WRITE.F $65A1 0A3DD9 41 PUSH.6 $01 0A3DDA 40 PUSH.6 $00 0A3DDB E3 65 B1 READ.F $65B1 0A3DDE F3 65 B1 WRITE.F $65B1 0A3DE1 41 PUSH.6 $01 0A3DE2 40 PUSH.6 $00 0A3DE3 E3 65 C1 READ.F $65C1 0A3DE6 F3 65 C1 WRITE.F $65C1 0A3DE9 40 PUSH.6 $00 0A3DEA C3 55 01 READ.F $5501 0A3DED F3 65 91 WRITE.F $6591 0A3DF0 40 PUSH.6 $00 0A3DF1 C3 55 09 READ.F $5509 0A3DF4 F3 65 A1 WRITE.F $65A1 0A3DF7 40 PUSH.6 $00 0A3DF8 C3 55 11 READ.F $5511 0A3DFB F3 65 B1 WRITE.F $65B1 0A3DFE 40 PUSH.6 $00 0A3DFF C3 55 19 READ.F $5519 0A3E02 F3 65 C1 WRITE.F $65C1 0A3E05 83 37 READ.F $37 0A3E07 D3 54 E9 WRITE.F $54E9 0A3E0A 83 3F READ.F $3F 0A3E0C D3 54 F1 WRITE.F $54F1 0A3E0F 83 47 READ.F $47 0A3E11 D3 54 F9 WRITE.F $54F9 0A3E14 C3 55 19 READ.F $5519 0A3E17 97 43 WRITE.F $43 0A3E19 C0 67 EC READ.B $67EC 0A3E1C 2E NOT.L 0A3E1D 18 1C BRZ $01C ; => $0A3E3B 0A3E1F 87 43 READ.F $43 0A3E21 3B 41 02 4C 41 D4 FD F3 B6 PUSH.F $41024C41D4FDF3B6 ; float = 149896.229000 0A3E2A 24 GT.F 0A3E2B 18 0E BRZ $00E ; => $0A3E3B 0A3E2D 87 43 READ.F $43 0A3E2F 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A3E38 21 SUB.F 0A3E39 97 43 WRITE.F $43 0A3E3B 08 40 A9 00 50 ?_$08 $40A9, $0050 0A3E40 0D 04 A5 00 50 ?_$0D $04A5, $0050 0A3E45 86 03 READ.L $03 0A3E47 09 04 A5 00 50 00 ?_$09 $04A5, $0050, $0 0A3E4D 30 06 F4 BSR.68K $06F4 ; => $0A375C => $0A9E4A 0A3E50 40 PUSH.6 $00 0A3E51 94 45 WRITE.B $45 0A3E53 84 45 READ.B $45 0A3E55 41 PUSH.6 $01 0A3E56 27 ADD.L 0A3E57 94 45 WRITE.B $45 0A3E59 84 45 READ.B $45 0A3E5B C0 67 EC READ.B $67EC 0A3E5E 18 03 BRZ $003 ; => $0A3E63 0A3E60 72 PUSH.6 $32 0A3E61 10 01 BR $001 ; => $0A3E64 0A3E63 4A PUSH.6 $0A 0A3E64 03 25 LT.L 0A3E66 18 1C BRZ $01C ; => $0A3E84 0A3E68 44 PUSH.6 $04 0A3E69 96 07 WRITE.L $07 0A3E6B 86 03 READ.L $03 0A3E6D 43 PUSH.6 $03 0A3E6E 03 25 LT.L 0A3E70 18 0C BRZ $00C ; => $0A3E7E 0A3E72 86 03 READ.L $03 0A3E74 09 04 15 00 50 ?_$09 $0415, $0050 0A3E79 30 06 6A BSR.68K $066A ; => $0A3812 0A3E7C 10 04 BR $004 ; => $0A3E82 0A3E7E 40 PUSH.6 $00 0A3E7F D0 67 66 WRITE.B $6766 0A3E82 11 BB BR $1BB ; => $0A403F 0A3E84 30 02 A1 BSR.68K $02A1 ; => $0A3BE6 0A3E87 30 04 04 BSR.68K $0404 ; => $0A3A86 0A3E8A 30 03 9D BSR.68K $039D ; => $0A3AF0 0A3E8D 09 03 45 00 80 ?_$09 $0345, $0080 0A3E92 30 07 51 BSR.68K $0751 ; => $0A3744 => $003AA2 0A3E95 0D 03 C5 00 80 ?_$0D $03C5, $0080 0A3E9A 09 03 C5 00 80 ?_$09 $03C5, $0080 0A3E9F 09 04 55 00 20 ?_$09 $0455, $0020 0A3EA4 30 07 57 BSR.68K $0757 ; => $0A3750 => $0035FE 0A3EA7 0D 04 35 00 20 ?_$0D $0435, $0020 0A3EAC C3 54 E9 READ.F $54E9 0A3EAF C7 04 35 READ.F $0435 0A3EB2 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 0A3EBB 22 MUL.F 0A3EBC 20 ADD.F 0A3EBD 30 07 94 BSR.68K $0794 ; => $0A372C => $002D36 (NATIVE) 0A3EC0 D3 54 E9 WRITE.F $54E9 0A3EC3 C3 54 F1 READ.F $54F1 0A3EC6 C7 04 2D READ.F $042D 0A3EC9 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 0A3ED2 22 MUL.F 0A3ED3 20 ADD.F 0A3ED4 30 07 AB BSR.68K $07AB ; => $0A372C => $002D36 (NATIVE) 0A3ED7 D3 54 F1 WRITE.F $54F1 0A3EDA C3 54 F9 READ.F $54F9 0A3EDD C7 04 25 READ.F $0425 0A3EE0 20 ADD.F 0A3EE1 D3 54 F9 WRITE.F $54F9 0A3EE4 87 43 READ.F $43 0A3EE6 C7 04 1D READ.F $041D 0A3EE9 20 ADD.F 0A3EEA 97 43 WRITE.F $43 0A3EEC C0 67 EC READ.B $67EC 0A3EEF 18 03 BRZ $003 ; => $0A3EF4 0A3EF1 30 07 8C BSR.68K $078C ; => $0A3768 0A3EF4 C7 04 35 READ.F $0435 0A3EF7 C3 29 C7 READ.F $29C7 0A3EFA 22 MUL.F 0A3EFB 30 07 DE BSR.68K $07DE ; => $0A3720 => $002B72 (NATIVE) 0A3EFE C7 04 2D READ.F $042D 0A3F01 C3 29 C7 READ.F $29C7 0A3F04 22 MUL.F 0A3F05 87 13 READ.F $13 0A3F07 22 MUL.F 0A3F08 30 07 EB BSR.68K $07EB ; => $0A3720 => $002B72 (NATIVE) 0A3F0B 20 ADD.F 0A3F0C C7 04 25 READ.F $0425 0A3F0F 30 07 F2 BSR.68K $07F2 ; => $0A3720 => $002B72 (NATIVE) 0A3F12 20 ADD.F 0A3F13 C7 04 1D READ.F $041D 0A3F16 30 07 F9 BSR.68K $07F9 ; => $0A3720 => $002B72 (NATIVE) 0A3F19 20 ADD.F 0A3F1A D7 04 AD WRITE.F $04AD 0A3F1D C7 04 AD READ.F $04AD 0A3F20 3B 40 79 00 00 00 00 00 00 PUSH.F $4079000000000000 ; float = 400.000000 0A3F29 03 21 LT.F 0A3F2B 1F 26 BRZ $-DA ; => $0A3E53 0A3F2D 84 45 READ.B $45 0A3F2F D0 35 86 WRITE.B $3586 0A3F32 C7 04 AD READ.F $04AD 0A3F35 D3 35 8F WRITE.F $358F 0A3F38 40 PUSH.6 $00 0A3F39 96 07 WRITE.L $07 0A3F3B C0 67 EC READ.B $67EC 0A3F3E 2E NOT.L 0A3F3F 87 43 READ.F $43 0A3F41 3E PUSH.W $0000 0A3F42 03 21 LT.F 0A3F44 2C AND.L 0A3F45 18 0E BRZ $00E ; => $0A3F55 0A3F47 87 43 READ.F $43 0A3F49 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A3F52 20 ADD.F 0A3F53 97 43 WRITE.F $43 0A3F55 87 43 READ.F $43 0A3F57 D3 55 19 WRITE.F $5519 0A3F5A C3 54 E9 READ.F $54E9 0A3F5D C3 54 F1 READ.F $54F1 0A3F60 C3 54 F9 READ.F $54F9 0A3F63 C3 55 01 00 READ.F $5501 0A3F67 C3 55 09 00 READ.F $5509 0A3F6B C3 55 11 00 READ.F $5511 0A3F6F 30 08 3A BSR.68K $083A ; => $0A3738 => $0A2972 0A3F72 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A3F7B C3 29 C7 READ.F $29C7 0A3F7E 23 DIV.F 0A3F7F 97 1B WRITE.F $1B 0A3F81 87 1B READ.F $1B 0A3F83 83 8F READ.F $8F 0A3F85 23 DIV.F 0A3F86 97 23 WRITE.F $23 0A3F88 09 01 85 01 40 ?_$09 $0185, $0140 0A3F8D 0D 02 C5 01 40 ?_$0D $02C5, $0140 0A3F92 40 PUSH.6 $00 0A3F93 36 10 44 _2362 $0044 ; A0 = $004000; (A0) = A6 + $0 0A3F96 86 03 READ.L $03 0A3F98 38 00 2F BLS.B $002F ; => $0A3FCA 0A3F9B 84 44 READ.B $44 0A3F9D 44 PUSH.6 $04 0A3F9E 29 MUL.L 0A3F9F 40 PUSH.6 $00 0A3FA0 27 ADD.L 0A3FA1 84 44 READ.B $44 0A3FA3 44 PUSH.6 $04 0A3FA4 29 MUL.L 0A3FA5 40 PUSH.6 $00 0A3FA6 27 ADD.L 0A3FA7 E7 01 85 READ.F $0185 0A3FAA 87 1B READ.F $1B 0A3FAC 22 MUL.F 0A3FAD F7 01 85 WRITE.F $0185 0A3FB0 84 44 READ.B $44 0A3FB2 44 PUSH.6 $04 0A3FB3 29 MUL.L 0A3FB4 41 PUSH.6 $01 0A3FB5 27 ADD.L 0A3FB6 84 44 READ.B $44 0A3FB8 44 PUSH.6 $04 0A3FB9 29 MUL.L 0A3FBA 41 PUSH.6 $01 0A3FBB 27 ADD.L 0A3FBC E7 01 85 READ.F $0185 0A3FBF 87 23 READ.F $23 0A3FC1 22 MUL.F 0A3FC2 F7 01 85 WRITE.F $0185 0A3FC5 37 10 44 00 34 _23d2 $0044, $0034 0A3FCA 30 05 47 BSR.68K $0547 ; => $0A3A86 0A3FCD 09 03 45 00 80 ?_$09 $0345, $0080 0A3FD2 30 08 97 BSR.68K $0897 ; => $0A373E => $09788A 0A3FD5 0D 03 45 00 80 ?_$0D $0345, $0080 0A3FDA 40 PUSH.6 $00 0A3FDB 44 PUSH.6 $04 0A3FDC 29 MUL.L 0A3FDD 40 PUSH.6 $00 0A3FDE 27 ADD.L 0A3FDF E7 03 45 READ.F $0345 0A3FE2 97 2B WRITE.F $2B 0A3FE4 41 PUSH.6 $01 0A3FE5 44 PUSH.6 $04 0A3FE6 29 MUL.L 0A3FE7 41 PUSH.6 $01 0A3FE8 27 ADD.L 0A3FE9 E7 03 45 READ.F $0345 0A3FEC 97 33 WRITE.F $33 0A3FEE 42 PUSH.6 $02 0A3FEF 44 PUSH.6 $04 0A3FF0 29 MUL.L 0A3FF1 42 PUSH.6 $02 0A3FF2 27 ADD.L 0A3FF3 E7 03 45 READ.F $0345 0A3FF6 97 3B WRITE.F $3B 0A3FF8 87 2B READ.F $2B 0A3FFA 87 33 READ.F $33 0A3FFC 20 ADD.F 0A3FFD 87 3B READ.F $3B 0A3FFF 20 ADD.F 0A4000 30 08 FB BSR.68K $08FB ; => $0A3708 => $002682 (NATIVE) 0A4003 93 67 WRITE.F $67 0A4005 87 2B READ.F $2B 0A4007 87 33 READ.F $33 0A4009 20 ADD.F 0A400A 30 09 05 BSR.68K $0905 ; => $0A3708 => $002682 (NATIVE) 0A400D 93 6F WRITE.F $6F 0A400F 87 3B READ.F $3B 0A4011 30 09 0C BSR.68K $090C ; => $0A3708 => $002682 (NATIVE) 0A4014 93 77 WRITE.F $77 0A4016 43 PUSH.6 $03 0A4017 44 PUSH.6 $04 0A4018 29 MUL.L 0A4019 43 PUSH.6 $03 0A401A 27 ADD.L 0A401B E7 03 45 READ.F $0345 0A401E 30 09 19 BSR.68K $0919 ; => $0A3708 => $002682 (NATIVE) 0A4021 93 7F WRITE.F $7F 0A4023 09 02 C5 01 40 ?_$09 $02C5, $0140 0A4028 0D 01 85 01 40 ?_$0D $0185, $0140 0A402D 30 04 F8 BSR.68K $04F8 ; => $0A3B38 0A4030 C0 67 EC READ.B $67EC 0A4033 18 0A BRZ $00A ; => $0A403F 0A4035 86 03 READ.L $03 0A4037 30 08 D8 BSR.68K $08D8 ; => $0A3762 => $090C30 0A403A 18 03 BRZ $003 ; => $0A403F 0A403C 49 PUSH.6 $09 0A403D 96 07 WRITE.L $07 0A403F 03 2E 04 A2 ADDSP.W $04A2 0A4043 33 _2300 0A4044 32 04 ADDSP.B $04 0A4046 34 RETURN ; ---------------- End Function $0A3DBE ---------------- ; ---------------- Begin 2144 Function $0A408A ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09CA60:$09CAA5 ; called from $0A426C:$0A4305 ; called from $0A4780:$0A47A9 ; addr bytes opcode operands comment 0A4091 31 02 SUBSP.B $02 0A4093 30 00 4E BSR.68K $004E ; => $0A4048 => $0034AA (CLEARSCREEN) (NATIVE) 0A4096 40 PUSH.6 $00 0A4097 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0A409A 86 03 READ.L $03 0A409C 41 PUSH.6 $01 0A409D 2A EQ.L 0A409E 18 03 BRZ $003 ; => $0A40A3 0A40A0 49 PUSH.6 $09 0A40A1 10 03 BR $003 ; => $0A40A6 0A40A3 C0 29 9B READ.B $299B 0A40A6 38 00 30 BLS.B $0030 ; => $0A40D9 0A40A9 43 PUSH.6 $03 0A40AA 84 04 READ.B $04 0A40AC 29 MUL.L 0A40AD 84 04 READ.B $04 0A40AF 44 PUSH.6 $04 0A40B0 03 25 LT.L 0A40B2 18 03 BRZ $003 ; => $0A40B7 0A40B4 42 PUSH.6 $02 0A40B5 10 01 BR $001 ; => $0A40B8 0A40B7 41 PUSH.6 $01 0A40B8 27 ADD.L 0A40B9 86 03 READ.L $03 0A40BB 40 PUSH.6 $00 0A40BC 2A EQ.L 0A40BD 18 07 BRZ $007 ; => $0A40C6 0A40BF 84 04 READ.B $04 0A40C1 E0 29 0B READ.B $290B 0A40C4 10 0B BR $00B ; => $0A40D1 0A40C6 C0 32 D5 READ.B $32D5 0A40C9 4A PUSH.6 $0A 0A40CA 29 MUL.L 0A40CB 84 04 READ.B $04 0A40CD 27 ADD.L 0A40CE E0 31 6F READ.B $316F 0A40D1 30 00 7A BSR.68K $007A ; => $0A405A => $097B0A 0A40D4 37 10 04 00 3F _23d2 $0004, $003F 0A40D9 86 03 READ.L $03 0A40DB 40 PUSH.6 $00 0A40DC 2A EQ.L 0A40DD C0 29 9F READ.B $299F 0A40E0 2E NOT.L 0A40E1 C0 29 8F READ.B $298F 0A40E4 C0 29 90 READ.B $2990 0A40E7 2E NOT.L 0A40E8 2C AND.L 0A40E9 2D OR.L 0A40EA 2C AND.L 0A40EB 18 13 BRZ $013 ; => $0A4100 0A40ED 50 PUSH.6 $10 0A40EE 3F 10 20 20 20 20 45 4E 54 DISP " ENTER SVS " 45 52 20 53 56 53 20 20 20 0A4100 67 PUSH.6 $27 0A4101 40 PUSH.6 $00 0A4102 40 PUSH.6 $00 0A4103 6E PUSH.6 $2E 0A4104 40 PUSH.6 $00 0A4105 40 PUSH.6 $00 0A4106 40 PUSH.6 $00 0A4107 40 PUSH.6 $00 0A4108 30 00 BD BSR.68K $00BD ; => $0A404E => $099614 0A410B 41 PUSH.6 $01 0A410C 90 26 WRITE.B $26 0A410E 32 06 ADDSP.B $06 0A4110 34 RETURN ; ---------------- End Function $0A408A ---------------- ; ---------------- Begin 2144 Function $0A4112 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A426C:$0A447D ; called from $0A469E:$0A46B8 ; called from $0A4780:$0A4797 ; addr bytes opcode operands comment 0A4119 30 00 D4 BSR.68K $00D4 ; => $0A4048 => $0034AA (CLEARSCREEN) (NATIVE) 0A411C 30 00 CB BSR.68K $00CB ; => $0A4054 => $099642 0A411F 80 21 READ.B $21 0A4121 04 48 PUSH.10 $048 0A4123 2A EQ.L 0A4124 18 13 BRZ $013 ; => $0A4139 0A4126 40 PUSH.6 $00 0A4127 3F 0E 41 55 54 4F 20 53 56 DISP "AUTO SV SELECT" 20 53 45 4C 45 43 54 0A4137 10 13 BR $013 ; => $0A414C 0A4139 40 PUSH.6 $00 0A413A 3F 10 4D 41 4E 55 41 4C 20 DISP "MANUAL SV SELECT" 53 56 20 53 45 4C 45 43 54 0A414C 50 PUSH.6 $10 0A414D 3F 0F 4D 49 4E 20 78 20 4D DISP "MIN x MAX x SVS" 41 58 20 78 20 53 56 53 0A415E C0 29 0D READ.B $290D 0A4161 70 PUSH.6 $30 0A4162 27 ADD.L 0A4163 90 0B WRITE.B $0B 0A4165 C0 29 0C READ.B $290C 0A4168 70 PUSH.6 $30 0A4169 27 ADD.L 0A416A 90 05 WRITE.B $05 0A416C 54 PUSH.6 $14 0A416D 90 26 WRITE.B $26 0A416F 34 RETURN ; ---------------- End Function $0A4112 ---------------- ; ---------------- Begin 2164 Function $0A4170 ---------------- ; P0 = $0008; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $7; D1 = $000004 ; called from $0A426C:$0A4325 ; called from $0A426C:$0A4365 ; called from $0A426C:$0A43DA ; called from $0A426C:$0A4414 ; addr bytes opcode operands comment 0A4179 31 04 SUBSP.B $04 0A417B 04 FF PUSH.10 $0FF 0A417D 96 03 WRITE.L $03 0A417F C0 4E 69 READ.B $4E69 0A4182 18 02 BRZ $002 ; => $0A4186 0A4184 10 BA BR $0BA ; => $0A4240 0A4186 86 0B READ.L $0B 0A4188 5F PUSH.6 $1F 0A4189 03 27 LTE.L 0A418B 18 02 BRZ $002 ; => $0A418F 0A418D 10 B1 BR $0B1 ; => $0A4240 0A418F 86 0B READ.L $0B 0A4191 30 01 34 BSR.68K $0134 ; => $0A4060 => $09E078 0A4194 94 0C WRITE.B $0C 0A4196 84 0C READ.B $0C 0A4198 40 PUSH.6 $00 0A4199 2A EQ.L 0A419A 18 02 BRZ $002 ; => $0A419E 0A419C 10 A2 BR $0A2 ; => $0A4240 0A419E 84 0C READ.B $0C 0A41A0 30 01 1F BSR.68K $011F ; => $0A4084 => $097AA8 0A41A3 2E NOT.L 0A41A4 18 0F BRZ $00F ; => $0A41B5 0A41A6 40 PUSH.6 $00 0A41A7 96 03 WRITE.L $03 0A41A9 86 0B READ.L $0B 0A41AB 40 PUSH.6 $00 0A41AC 30 01 55 BSR.68K $0155 ; => $0A405A => $097B0A 0A41AF 4A PUSH.6 $0A 0A41B0 D0 4E 51 WRITE.B $4E51 0A41B3 10 8B BR $08B ; => $0A4240 0A41B5 40 PUSH.6 $00 0A41B6 36 10 0D _2362 $000D ; A0 = $004000; (A0) = A6 + $0 0A41B9 86 07 READ.L $07 0A41BB 41 PUSH.6 $01 0A41BC 2A EQ.L 0A41BD 18 03 BRZ $003 ; => $0A41C2 0A41BF 49 PUSH.6 $09 0A41C0 10 03 BR $003 ; => $0A41C5 0A41C2 C0 29 9B READ.B $299B 0A41C5 38 00 78 BLS.B $0078 ; => $0A4240 0A41C8 43 PUSH.6 $03 0A41C9 84 0D READ.B $0D 0A41CB 29 MUL.L 0A41CC 84 0D READ.B $0D 0A41CE 44 PUSH.6 $04 0A41CF 03 25 LT.L 0A41D1 18 03 BRZ $003 ; => $0A41D6 0A41D3 42 PUSH.6 $02 0A41D4 10 01 BR $001 ; => $0A41D7 0A41D6 41 PUSH.6 $01 0A41D7 27 ADD.L 0A41D8 94 0E WRITE.B $0E 0A41DA 84 0C READ.B $0C 0A41DC 84 0E READ.B $0E 0A41DE 30 01 81 BSR.68K $0181 ; => $0A4060 => $09E078 0A41E1 2A EQ.L 0A41E2 18 57 BRZ $057 ; => $0A423B 0A41E4 86 0B READ.L $0B 0A41E6 84 0E READ.B $0E 0A41E8 03 26 GT.L 0A41EA 86 07 READ.L $07 0A41EC 40 PUSH.6 $00 0A41ED 2A EQ.L 0A41EE C0 29 9F READ.B $299F 0A41F1 C0 29 8F READ.B $298F 0A41F4 2E NOT.L 0A41F5 C0 29 90 READ.B $2990 0A41F8 2D OR.L 0A41F9 2C AND.L 0A41FA 2D OR.L 0A41FB 84 0E READ.B $0E 0A41FD 86 0B READ.L $0B 0A41FF 50 PUSH.6 $10 0A4200 27 ADD.L 0A4201 2B NEQ.L 0A4202 2D OR.L 0A4203 2C AND.L 0A4204 18 06 BRZ $006 ; => $0A420C 0A4206 84 0E READ.B $0E 0A4208 40 PUSH.6 $00 0A4209 30 01 B2 BSR.68K $01B2 ; => $0A405A => $097B0A 0A420C 86 0B READ.L $0B 0A420E 84 0E READ.B $0E 0A4210 03 25 LT.L 0A4212 86 07 READ.L $07 0A4214 40 PUSH.6 $00 0A4215 2A EQ.L 0A4216 C0 29 9F READ.B $299F 0A4219 C0 29 8F READ.B $298F 0A421C 2E NOT.L 0A421D C0 29 90 READ.B $2990 0A4220 2D OR.L 0A4221 2C AND.L 0A4222 2D OR.L 0A4223 84 0E READ.B $0E 0A4225 86 0B READ.L $0B 0A4227 50 PUSH.6 $10 0A4228 28 SUB.L 0A4229 2B NEQ.L 0A422A 2D OR.L 0A422B 2C AND.L 0A422C 18 0D BRZ $00D ; => $0A423B 0A422E 86 0B READ.L $0B 0A4230 40 PUSH.6 $00 0A4231 30 01 DA BSR.68K $01DA ; => $0A405A => $097B0A 0A4234 40 PUSH.6 $00 0A4235 96 03 WRITE.L $03 0A4237 4A PUSH.6 $0A 0A4238 D0 4E 51 WRITE.B $4E51 0A423B 37 10 0D 00 87 _23d2 $000D, $0087 0A4240 32 0C ADDSP.B $0C 0A4242 34 RETURN ; ---------------- End Function $0A4170 ---------------- ; ---------------- Begin 2164 Function $0A4244 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0A426C:$0A4345 ; called from $0A426C:$0A437B ; called from $0A426C:$0A43F0 ; addr bytes opcode operands comment 0A424D 86 07 READ.L $07 0A424F 60 PUSH.6 $20 0A4250 03 26 GT.L 0A4252 18 11 BRZ $011 ; => $0A4265 0A4254 86 07 READ.L $07 0A4256 A0 1F READ.B $1F 0A4258 70 PUSH.6 $30 0A4259 03 27 LTE.L 0A425B 86 07 READ.L $07 0A425D A0 1F READ.B $1F 0A425F 79 PUSH.6 $39 0A4260 03 28 GTE.L 0A4262 2C AND.L 0A4263 10 01 BR $001 ; => $0A4266 0A4265 40 PUSH.6 $00 0A4266 96 03 WRITE.L $03 0A4268 32 04 ADDSP.B $04 0A426A 34 RETURN ; ---------------- End Function $0A4244 ---------------- ; ---------------- Begin 2144 Function $0A426C ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09C2AA:$09C2FA ; called from $0A474E:$0A4756 ; called from $0A475A:$0A4768 ; addr bytes opcode operands comment 0A4273 31 10 SUBSP.B $10 0A4275 80 20 READ.B $20 0A4277 35 SWITCH 0A4278 10 90 02 CASE $02 ; SWITCH $0A4277 0A427B 80 26 READ.B $26 0A427D 41 PUSH.6 $01 0A427E 2A EQ.L 0A427F 18 82 BRZ $082 ; => $0A4303 0A4281 86 03 READ.L $03 0A4283 41 PUSH.6 $01 0A4284 2A EQ.L 0A4285 18 77 BRZ $077 ; => $0A42FE 0A4287 40 PUSH.6 $00 0A4288 94 05 WRITE.B $05 0A428A 40 PUSH.6 $00 0A428B 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0A428E 49 PUSH.6 $09 0A428F 38 00 51 BLS.B $0051 ; => $0A42E3 0A4292 C0 32 D5 READ.B $32D5 0A4295 4A PUSH.6 $0A 0A4296 29 MUL.L 0A4297 84 04 READ.B $04 0A4299 27 ADD.L 0A429A E0 31 6F READ.B $316F 0A429D 40 PUSH.6 $00 0A429E 2B NEQ.L 0A429F 18 3D BRZ $03D ; => $0A42DE 0A42A1 84 04 READ.B $04 0A42A3 45 PUSH.6 $05 0A42A4 03 26 GT.L 0A42A6 C0 29 9F READ.B $299F 0A42A9 C0 29 8F READ.B $298F 0A42AC 2E NOT.L 0A42AD C0 29 90 READ.B $2990 0A42B0 2D OR.L 0A42B1 2C AND.L 0A42B2 2D OR.L 0A42B3 18 08 BRZ $008 ; => $0A42BD 0A42B5 84 05 READ.B $05 0A42B7 41 PUSH.6 $01 0A42B8 27 ADD.L 0A42B9 94 05 WRITE.B $05 0A42BB 10 21 BR $021 ; => $0A42DE 0A42BD C0 32 D5 READ.B $32D5 0A42C0 4A PUSH.6 $0A 0A42C1 29 MUL.L 0A42C2 84 04 READ.B $04 0A42C4 27 ADD.L 0A42C5 E0 31 6F READ.B $316F 0A42C8 C0 32 D5 READ.B $32D5 0A42CB 4A PUSH.6 $0A 0A42CC 29 MUL.L 0A42CD 84 04 READ.B $04 0A42CF 45 PUSH.6 $05 0A42D0 28 SUB.L 0A42D1 27 ADD.L 0A42D2 E0 31 6F READ.B $316F 0A42D5 2B NEQ.L 0A42D6 18 06 BRZ $006 ; => $0A42DE 0A42D8 84 05 READ.B $05 0A42DA 41 PUSH.6 $01 0A42DB 27 ADD.L 0A42DC 94 05 WRITE.B $05 0A42DE 37 10 04 00 55 _23d2 $0004, $0055 0A42E3 84 05 READ.B $05 0A42E5 C0 32 D5 READ.B $32D5 0A42E8 E0 2F 49 READ.B $2F49 0A42EB 03 26 GT.L 0A42ED 18 07 BRZ $007 ; => $0A42F6 0A42EF C0 32 D5 READ.B $32D5 0A42F2 40 PUSH.6 $00 0A42F3 F0 2F 7B WRITE.B $2F7B 0A42F6 42 PUSH.6 $02 0A42F7 90 23 WRITE.B $23 0A42F9 30 02 7E BSR.68K $027E ; => $0A407E => $09B9B8 0A42FC 10 03 BR $003 ; => $0A4301 0A42FE 40 PUSH.6 $00 0A42FF 90 21 WRITE.B $21 0A4301 10 05 BR $005 ; => $0A4308 0A4303 86 03 READ.L $03 0A4305 30 02 7E BSR.68K $027E ; => $0A408A 0A4308 10 F0 BR $0F0 ; => $0A43FA 0A430A 10 48 D0 CASE $D0 ; SWITCH $0A4277 0A430D 80 26 READ.B $26 0A430F 60 PUSH.6 $20 0A4310 2A EQ.L 0A4311 18 02 BRZ $002 ; => $0A4315 0A4313 10 0A BR $00A ; => $0A431F 0A4315 80 26 READ.B $26 0A4317 41 PUSH.6 $01 0A4318 27 ADD.L 0A4319 A0 1F READ.B $1F 0A431B 60 PUSH.6 $20 0A431C 2A EQ.L 0A431D 18 2D BRZ $02D ; => $0A434C 0A431F 86 03 READ.L $03 0A4321 80 26 READ.B $26 0A4323 41 PUSH.6 $01 0A4324 28 SUB.L 0A4325 30 01 B8 BSR.68K $01B8 ; => $0A4170 0A4328 2E NOT.L 0A4329 18 08 BRZ $008 ; => $0A4333 0A432B 80 26 READ.B $26 0A432D 41 PUSH.6 $01 0A432E 28 SUB.L 0A432F 90 26 WRITE.B $26 0A4331 10 17 BR $017 ; => $0A434A 0A4333 80 26 READ.B $26 0A4335 41 PUSH.6 $01 0A4336 27 ADD.L 0A4337 90 26 WRITE.B $26 0A4339 80 26 READ.B $26 0A433B 60 PUSH.6 $20 0A433C 03 27 LTE.L 0A433E 18 03 BRZ $003 ; => $0A4343 0A4340 41 PUSH.6 $01 0A4341 90 26 WRITE.B $26 0A4343 80 26 READ.B $26 0A4345 30 01 04 BSR.68K $0104 ; => $0A4244 0A4348 1F E9 BRZ $-17 ; => $0A4333 0A434A 10 06 BR $006 ; => $0A4352 0A434C 80 26 READ.B $26 0A434E 41 PUSH.6 $01 0A434F 27 ADD.L 0A4350 90 26 WRITE.B $26 0A4352 10 A6 BR $0A6 ; => $0A43FA 0A4354 10 34 10 CASE $10 ; SWITCH $0A4277 0A4357 80 26 READ.B $26 0A4359 41 PUSH.6 $01 0A435A 28 SUB.L 0A435B A0 1F READ.B $1F 0A435D 60 PUSH.6 $20 0A435E 2A EQ.L 0A435F 18 21 BRZ $021 ; => $0A4382 0A4361 86 03 READ.L $03 0A4363 80 26 READ.B $26 0A4365 30 01 F8 BSR.68K $01F8 ; => $0A4170 0A4368 18 16 BRZ $016 ; => $0A4380 0A436A 80 26 READ.B $26 0A436C 41 PUSH.6 $01 0A436D 2A EQ.L 0A436E 18 03 BRZ $003 ; => $0A4373 0A4370 60 PUSH.6 $20 0A4371 90 26 WRITE.B $26 0A4373 80 26 READ.B $26 0A4375 41 PUSH.6 $01 0A4376 28 SUB.L 0A4377 90 26 WRITE.B $26 0A4379 80 26 READ.B $26 0A437B 30 01 3A BSR.68K $013A ; => $0A4244 0A437E 1F F3 BRZ $-0D ; => $0A4373 0A4380 10 06 BR $006 ; => $0A4388 0A4382 80 26 READ.B $26 0A4384 41 PUSH.6 $01 0A4385 28 SUB.L 0A4386 90 26 WRITE.B $26 0A4388 10 70 BR $070 ; => $0A43FA 0A438A 10 0A 04 CASE $04 ; SWITCH $0A4277 0A438D 80 26 READ.B $26 0A438F 94 08 WRITE.B $08 0A4391 62 PUSH.6 $22 0A4392 90 26 WRITE.B $26 0A4394 10 64 BR $064 ; => $0A43FA 0A4396 00 DEFAULT ; SWITCH $0A4277 0A4397 80 26 READ.B $26 0A4399 5F PUSH.6 $1F 0A439A 03 26 GT.L 0A439C 18 5C BRZ $05C ; => $0A43FA 0A439E 30 03 3B BSR.68K $033B ; => $0A4066 => $09DFB4 0A43A1 18 57 BRZ $057 ; => $0A43FA 0A43A3 80 26 READ.B $26 0A43A5 41 PUSH.6 $01 0A43A6 28 SUB.L 0A43A7 A0 1F READ.B $1F 0A43A9 73 PUSH.6 $33 0A43AA 03 25 LT.L 0A43AC 80 26 READ.B $26 0A43AE A0 1F READ.B $1F 0A43B0 60 PUSH.6 $20 0A43B1 2B NEQ.L 0A43B2 2C AND.L 0A43B3 18 17 BRZ $017 ; => $0A43CC 0A43B5 80 26 READ.B $26 0A43B7 80 26 READ.B $26 0A43B9 41 PUSH.6 $01 0A43BA 28 SUB.L 0A43BB A0 1F READ.B $1F 0A43BD B0 1F WRITE.B $1F 0A43BF 80 26 READ.B $26 0A43C1 41 PUSH.6 $01 0A43C2 28 SUB.L 0A43C3 70 PUSH.6 $30 0A43C4 B0 1F WRITE.B $1F 0A43C6 80 26 READ.B $26 0A43C8 41 PUSH.6 $01 0A43C9 27 ADD.L 0A43CA 90 26 WRITE.B $26 0A43CC 80 26 READ.B $26 0A43CE A0 1F READ.B $1F 0A43D0 60 PUSH.6 $20 0A43D1 2A EQ.L 0A43D2 18 26 BRZ $026 ; => $0A43FA 0A43D4 86 03 READ.L $03 0A43D6 80 26 READ.B $26 0A43D8 42 PUSH.6 $02 0A43D9 28 SUB.L 0A43DA 30 02 6D BSR.68K $026D ; => $0A4170 0A43DD 2E NOT.L 0A43DE 18 08 BRZ $008 ; => $0A43E8 0A43E0 80 26 READ.B $26 0A43E2 42 PUSH.6 $02 0A43E3 28 SUB.L 0A43E4 90 26 WRITE.B $26 0A43E6 10 12 BR $012 ; => $0A43FA 0A43E8 80 26 READ.B $26 0A43EA 41 PUSH.6 $01 0A43EB 27 ADD.L 0A43EC 90 26 WRITE.B $26 0A43EE 80 26 READ.B $26 0A43F0 30 01 AF BSR.68K $01AF ; => $0A4244 0A43F3 80 26 READ.B $26 0A43F5 60 PUSH.6 $20 0A43F6 2A EQ.L 0A43F7 2D OR.L 0A43F8 1F EE BRZ $-12 ; => $0A43E8 0A43FA 80 26 READ.B $26 0A43FC 35 SWITCH 0A43FD 11 15 22 CASE $22 ; SWITCH $0A43FC 0A4400 86 03 READ.L $03 0A4402 84 08 READ.B $08 0A4404 41 PUSH.6 $01 0A4405 28 SUB.L 0A4406 A0 1F READ.B $1F 0A4408 60 PUSH.6 $20 0A4409 2A EQ.L 0A440A 18 04 BRZ $004 ; => $0A4410 0A440C 84 08 READ.B $08 0A440E 10 04 BR $004 ; => $0A4414 0A4410 84 08 READ.B $08 0A4412 41 PUSH.6 $01 0A4413 28 SUB.L 0A4414 30 02 A7 BSR.68K $02A7 ; => $0A4170 0A4417 18 E5 BRZ $0E5 ; => $0A44FE 0A4419 40 PUSH.6 $00 0A441A 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0A441D 86 03 READ.L $03 0A441F 41 PUSH.6 $01 0A4420 2A EQ.L 0A4421 18 03 BRZ $003 ; => $0A4426 0A4423 49 PUSH.6 $09 0A4424 10 03 BR $003 ; => $0A4429 0A4426 C0 29 9B READ.B $299B 0A4429 38 00 1C BLS.B $001C ; => $0A4448 0A442C 84 04 READ.B $04 0A442E 43 PUSH.6 $03 0A442F 84 04 READ.B $04 0A4431 29 MUL.L 0A4432 84 04 READ.B $04 0A4434 44 PUSH.6 $04 0A4435 03 25 LT.L 0A4437 18 03 BRZ $003 ; => $0A443C 0A4439 42 PUSH.6 $02 0A443A 10 01 BR $001 ; => $0A443D 0A443C 41 PUSH.6 $01 0A443D 27 ADD.L 0A443E 30 03 E1 BSR.68K $03E1 ; => $0A4060 => $09E078 0A4441 B4 13 WRITE.B $13 0A4443 37 10 04 00 2B _23d2 $0004, $002B 0A4448 86 03 READ.L $03 0A444A 35 SWITCH 0A444B 10 35 00 CASE $00 ; SWITCH $0A444A 0A444E C0 29 9F READ.B $299F 0A4451 2E NOT.L 0A4452 C0 29 8F READ.B $298F 0A4455 C0 29 90 READ.B $2990 0A4458 2E NOT.L 0A4459 2C AND.L 0A445A 2D OR.L 0A445B 18 03 BRZ $003 ; => $0A4460 0A445D 44 PUSH.6 $04 0A445E 10 01 BR $001 ; => $0A4461 0A4460 49 PUSH.6 $09 0A4461 94 05 WRITE.B $05 0A4463 40 PUSH.6 $00 0A4464 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0A4467 84 05 READ.B $05 0A4469 38 00 0E BLS.B $000E ; => $0A447A 0A446C 84 04 READ.B $04 0A446E 84 04 READ.B $04 0A4470 A4 13 READ.B $13 0A4472 F0 29 0B WRITE.B $290B 0A4475 37 10 04 00 13 _23d2 $0004, $0013 0A447A 41 PUSH.6 $01 0A447B 90 23 WRITE.B $23 0A447D 30 03 6E BSR.68K $036E ; => $0A4112 0A4480 10 7A BR $07A ; => $0A44FC 0A4482 10 77 01 CASE $01 ; SWITCH $0A444A 0A4485 40 PUSH.6 $00 0A4486 94 05 WRITE.B $05 0A4488 40 PUSH.6 $00 0A4489 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0A448C 49 PUSH.6 $09 0A448D 38 00 4B BLS.B $004B ; => $0A44DB 0A4490 C0 32 D5 READ.B $32D5 0A4493 4A PUSH.6 $0A 0A4494 29 MUL.L 0A4495 84 04 READ.B $04 0A4497 27 ADD.L 0A4498 84 04 READ.B $04 0A449A A4 13 READ.B $13 0A449C F0 31 6F WRITE.B $316F 0A449F 84 04 READ.B $04 0A44A1 A4 13 READ.B $13 0A44A3 40 PUSH.6 $00 0A44A4 2B NEQ.L 0A44A5 18 2F BRZ $02F ; => $0A44D6 0A44A7 84 04 READ.B $04 0A44A9 45 PUSH.6 $05 0A44AA 03 26 GT.L 0A44AC C0 29 9F READ.B $299F 0A44AF C0 29 8F READ.B $298F 0A44B2 2E NOT.L 0A44B3 C0 29 90 READ.B $2990 0A44B6 2D OR.L 0A44B7 2C AND.L 0A44B8 2D OR.L 0A44B9 18 08 BRZ $008 ; => $0A44C3 0A44BB 84 05 READ.B $05 0A44BD 41 PUSH.6 $01 0A44BE 27 ADD.L 0A44BF 94 05 WRITE.B $05 0A44C1 10 13 BR $013 ; => $0A44D6 0A44C3 84 04 READ.B $04 0A44C5 A4 13 READ.B $13 0A44C7 84 04 READ.B $04 0A44C9 45 PUSH.6 $05 0A44CA 28 SUB.L 0A44CB A4 13 READ.B $13 0A44CD 2B NEQ.L 0A44CE 18 06 BRZ $006 ; => $0A44D6 0A44D0 84 05 READ.B $05 0A44D2 41 PUSH.6 $01 0A44D3 27 ADD.L 0A44D4 94 05 WRITE.B $05 0A44D6 37 10 04 00 4F _23d2 $0004, $004F 0A44DB 84 05 READ.B $05 0A44DD C0 32 D5 READ.B $32D5 0A44E0 E0 2F 49 READ.B $2F49 0A44E3 03 26 GT.L 0A44E5 18 09 BRZ $009 ; => $0A44F0 0A44E7 4A PUSH.6 $0A 0A44E8 D0 4E 51 WRITE.B $4E51 0A44EB 41 PUSH.6 $01 0A44EC 90 26 WRITE.B $26 0A44EE 10 09 BR $009 ; => $0A44F9 0A44F0 49 PUSH.6 $09 0A44F1 90 23 WRITE.B $23 0A44F3 40 PUSH.6 $00 0A44F4 90 22 WRITE.B $22 0A44F6 30 04 81 BSR.68K $0481 ; => $0A4078 => $09B596 0A44F9 10 01 BR $001 ; => $0A44FC 0A44FB 00 DEFAULT ; SWITCH $0A444A 0A44FC 10 14 BR $014 ; => $0A4512 0A44FE 84 08 READ.B $08 0A4500 41 PUSH.6 $01 0A4501 28 SUB.L 0A4502 A0 1F READ.B $1F 0A4504 60 PUSH.6 $20 0A4505 2A EQ.L 0A4506 18 04 BRZ $004 ; => $0A450C 0A4508 84 08 READ.B $08 0A450A 10 04 BR $004 ; => $0A4510 0A450C 84 08 READ.B $08 0A450E 41 PUSH.6 $01 0A450F 28 SUB.L 0A4510 90 26 WRITE.B $26 0A4512 10 18 BR $018 ; => $0A452C 0A4514 10 0D 0D CASE $0D ; SWITCH $0A43FC 0A4517 C0 29 9A READ.B $299A 0A451A 43 PUSH.6 $03 0A451B 2A EQ.L 0A451C 18 03 BRZ $003 ; => $0A4521 0A451E 60 PUSH.6 $20 0A451F 90 26 WRITE.B $26 0A4521 10 09 BR $009 ; => $0A452C 0A4523 10 06 10 CASE $10 ; SWITCH $0A43FC 0A4526 60 PUSH.6 $20 0A4527 90 26 WRITE.B $26 0A4529 10 01 BR $001 ; => $0A452C 0A452B 00 DEFAULT ; SWITCH $0A43FC 0A452C 32 14 ADDSP.B $14 0A452E 34 RETURN ; ---------------- End Function $0A426C ---------------- ; ---------------- Begin 2144 Function $0A4530 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A4666:$0A4674 ; called from $0A469E:$0A4742 ; addr bytes opcode operands comment 0A4537 30 04 E6 BSR.68K $04E6 ; => $0A4054 => $099642 0A453A 30 04 F5 BSR.68K $04F5 ; => $0A4048 => $0034AA (CLEARSCREEN) (NATIVE) 0A453D 80 21 READ.B $21 0A453F 04 48 PUSH.10 $048 0A4541 2A EQ.L 0A4542 D0 28 FF WRITE.B $28FF 0A4545 C0 28 FF READ.B $28FF 0A4548 18 13 BRZ $013 ; => $0A455D 0A454A 41 PUSH.6 $01 0A454B 3F 0E 41 55 54 4F 20 53 56 DISP "AUTO SV SELECT" 20 53 45 4C 45 43 54 0A455B 10 13 BR $013 ; => $0A4570 0A455D 40 PUSH.6 $00 0A455E 3F 10 4D 41 4E 55 41 4C 20 DISP "MANUAL SV SELECT" 53 56 20 53 45 4C 45 43 54 0A4570 C0 29 0D READ.B $290D 0A4573 4A PUSH.6 $0A 0A4574 29 MUL.L 0A4575 C0 29 0C READ.B $290C 0A4578 27 ADD.L 0A4579 35 SWITCH 0A457A 10 14 0C CASE $0C ; SWITCH $0A4579 0A457D 51 PUSH.6 $11 0A457E 3F 0E 46 49 58 45 44 20 4C DISP "FIXED LAT/LONG" 41 54 2F 4C 4F 4E 47 0A458E 10 58 BR $058 ; => $0A45E8 0A4590 10 15 16 CASE $16 ; SWITCH $0A4579 0A4593 51 PUSH.6 $11 0A4594 3F 0F 46 49 58 45 44 20 43 DISP "FIXED CLOCK HGT" 4C 4F 43 4B 20 48 47 54 0A45A5 10 41 BR $041 ; => $0A45E8 0A45A7 10 12 21 CASE $21 ; SWITCH $0A4579 0A45AA 52 PUSH.6 $12 0A45AB 3F 0C 46 49 58 45 44 20 48 DISP "FIXED HEIGHT" 45 49 47 48 54 0A45B9 10 2D BR $02D ; => $0A45E8 0A45BB 00 DEFAULT ; SWITCH $0A4579 0A45BC C0 35 7C READ.B $357C 0A45BF 18 15 BRZ $015 ; => $0A45D6 0A45C1 50 PUSH.6 $10 0A45C2 3F 10 41 4C 4C 2D 49 4E 2D DISP "ALL-IN-VIEW SOLN" 56 49 45 57 20 53 4F 4C 4E 0A45D4 10 12 BR $012 ; => $0A45E8 0A45D6 50 PUSH.6 $10 0A45D7 3F 0F 4E 4F 54 20 41 4C 4C DISP "NOT ALL-IN-VIEW" 2D 49 4E 2D 56 49 45 57 0A45E8 C1 56 27 READ.W $5627 0A45EB 42 PUSH.6 $02 0A45EC 2D OR.L 0A45ED D1 56 27 WRITE.W $5627 0A45F0 34 RETURN ; ---------------- End Function $0A4530 ---------------- ; ---------------- Begin 2144 Function $0A45F2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A4666:$0A4684 ; called from $0A4666:$0A4690 ; called from $0A469E:$0A473A ; addr bytes opcode operands comment 0A45F9 30 05 B4 BSR.68K $05B4 ; => $0A4048 => $0034AA (CLEARSCREEN) (NATIVE) 0A45FC C0 29 A0 READ.B $29A0 0A45FF 45 PUSH.6 $05 0A4600 03 25 LT.L 0A4602 18 25 BRZ $025 ; => $0A4629 0A4604 40 PUSH.6 $00 0A4605 3F 20 55 53 45 20 20 41 4C DISP "USE ALL-IN-VIEW YES NO " 4C 2D 49 4E 2D 56 49 45 57 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 0A4627 10 23 BR $023 ; => $0A464C 0A4629 40 PUSH.6 $00 0A462A 3F 20 55 53 45 20 41 4C 4C DISP "USE ALL CHANNELS YES NO " 20 43 48 41 4E 4E 45 4C 53 20 59 45 53 20 20 20 20 20 20 20 20 4E 4F 20 20 0A464C 67 PUSH.6 $27 0A464D 40 PUSH.6 $00 0A464E 40 PUSH.6 $00 0A464F 6C PUSH.6 $2C 0A4650 40 PUSH.6 $00 0A4651 40 PUSH.6 $00 0A4652 40 PUSH.6 $00 0A4653 40 PUSH.6 $00 0A4654 30 06 09 BSR.68K $0609 ; => $0A404E => $099614 0A4657 C0 35 7C READ.B $357C 0A465A 18 05 BRZ $005 ; => $0A4661 0A465C 6A PUSH.6 $2A 0A465D 90 0F WRITE.B $0F 0A465F 10 03 BR $003 ; => $0A4664 0A4661 6A PUSH.6 $2A 0A4662 90 04 WRITE.B $04 0A4664 34 RETURN ; ---------------- End Function $0A45F2 ---------------- ; ---------------- Begin 2144 Function $0A4666 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A475A:$0A4778 ; addr bytes opcode operands comment 0A466D 80 20 READ.B $20 0A466F 35 SWITCH 0A4670 20 0A 02 04 CASE $02, $04 ; SWITCH $0A466F 0A4674 30 01 47 BSR.68K $0147 ; => $0A4530 0A4677 4C PUSH.6 $0C 0A4678 90 21 WRITE.B $21 0A467A 10 20 BR $020 ; => $0A469C 0A467C 10 0B 10 CASE $10 ; SWITCH $0A466F 0A467F 04 FF PUSH.10 $0FF 0A4681 D0 35 7C WRITE.B $357C 0A4684 30 00 95 BSR.68K $0095 ; => $0A45F2 0A4687 10 13 BR $013 ; => $0A469C 0A4689 10 0A D0 CASE $D0 ; SWITCH $0A466F 0A468C 40 PUSH.6 $00 0A468D D0 35 7C WRITE.B $357C 0A4690 30 00 A1 BSR.68K $00A1 ; => $0A45F2 0A4693 10 07 BR $007 ; => $0A469C 0A4695 20 04 50 90 CASE $50, $90 ; SWITCH $0A466F 0A4699 10 01 BR $001 ; => $0A469C 0A469B 00 DEFAULT ; SWITCH $0A466F 0A469C 34 RETURN ; ---------------- End Function $0A4666 ---------------- ; ---------------- Begin 2144 Function $0A469E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A475A:$0A4770 ; addr bytes opcode operands comment 0A46A5 31 02 SUBSP.B $02 0A46A7 80 20 READ.B $20 0A46A9 35 SWITCH 0A46AA 10 11 02 CASE $02 ; SWITCH $0A46A9 0A46AD 80 26 READ.B $26 0A46AF 54 PUSH.6 $14 0A46B0 2A EQ.L 0A46B1 18 05 BRZ $005 ; => $0A46B8 0A46B3 62 PUSH.6 $22 0A46B4 90 26 WRITE.B $26 0A46B6 10 03 BR $003 ; => $0A46BB 0A46B8 30 05 A9 BSR.68K $05A9 ; => $0A4112 0A46BB 10 15 BR $015 ; => $0A46D2 0A46BD 10 06 04 CASE $04 ; SWITCH $0A46A9 0A46C0 61 PUSH.6 $21 0A46C1 90 26 WRITE.B $26 0A46C3 10 0D BR $00D ; => $0A46D2 0A46C5 00 DEFAULT ; SWITCH $0A46A9 0A46C6 80 26 READ.B $26 0A46C8 60 PUSH.6 $20 0A46C9 03 26 GT.L 0A46CB 18 05 BRZ $005 ; => $0A46D2 0A46CD 30 06 6A BSR.68K $066A ; => $0A4066 => $09DFB4 0A46D0 94 01 WRITE.B $01 0A46D2 80 26 READ.B $26 0A46D4 35 SWITCH 0A46D5 10 06 15 CASE $15 ; SWITCH $0A46D4 0A46D8 5A PUSH.6 $1A 0A46D9 90 26 WRITE.B $26 0A46DB 10 6E BR $06E ; => $0A474B 0A46DD 10 06 1B CASE $1B ; SWITCH $0A46D4 0A46E0 60 PUSH.6 $20 0A46E1 90 26 WRITE.B $26 0A46E3 10 66 BR $066 ; => $0A474B 0A46E5 20 63 21 22 CASE $21, $22 ; SWITCH $0A46D4 0A46E9 80 0B READ.B $0B 0A46EB 4F PUSH.6 $0F 0A46EC 2C AND.L 0A46ED 94 01 WRITE.B $01 0A46EF 80 05 READ.B $05 0A46F1 4F PUSH.6 $0F 0A46F2 2C AND.L 0A46F3 94 00 WRITE.B $00 0A46F5 84 01 READ.B $01 0A46F7 84 00 READ.B $00 0A46F9 03 25 LT.L 0A46FB 84 00 READ.B $00 0A46FD 44 PUSH.6 $04 0A46FE 03 25 LT.L 0A4700 2D OR.L 0A4701 84 01 READ.B $01 0A4703 41 PUSH.6 $01 0A4704 03 26 GT.L 0A4706 2D OR.L 0A4707 84 00 READ.B $00 0A4709 41 PUSH.6 $01 0A470A 2A EQ.L 0A470B 2D OR.L 0A470C 18 09 BRZ $009 ; => $0A4717 0A470E 54 PUSH.6 $14 0A470F D0 4E 51 WRITE.B $4E51 0A4712 54 PUSH.6 $14 0A4713 90 26 WRITE.B $26 0A4715 10 31 BR $031 ; => $0A4748 0A4717 84 00 READ.B $00 0A4719 D0 29 0C WRITE.B $290C 0A471C 84 01 READ.B $01 0A471E D0 29 0D WRITE.B $290D 0A4721 C0 29 0D READ.B $290D 0A4724 41 PUSH.6 $01 0A4725 2A EQ.L 0A4726 18 05 BRZ $005 ; => $0A472D 0A4728 04 FF PUSH.10 $0FF 0A472A D0 35 7C WRITE.B $357C 0A472D 80 26 READ.B $26 0A472F 61 PUSH.6 $21 0A4730 2A EQ.L 0A4731 C0 29 0D READ.B $290D 0A4734 41 PUSH.6 $01 0A4735 03 25 LT.L 0A4737 2C AND.L 0A4738 18 08 BRZ $008 ; => $0A4742 0A473A 30 01 4B BSR.68K $014B ; => $0A45F2 0A473D 42 PUSH.6 $02 0A473E 90 23 WRITE.B $23 0A4740 10 06 BR $006 ; => $0A4748 0A4742 30 02 15 BSR.68K $0215 ; => $0A4530 0A4745 4C PUSH.6 $0C 0A4746 90 21 WRITE.B $21 0A4748 10 01 BR $001 ; => $0A474B 0A474A 00 DEFAULT ; SWITCH $0A46D4 0A474B 32 02 ADDSP.B $02 0A474D 34 RETURN ; ---------------- End Function $0A469E ---------------- ; ---------------- Begin 2144 Function $0A474E ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A4755 41 PUSH.6 $01 0A4756 30 04 ED BSR.68K $04ED ; => $0A426C 0A4759 34 RETURN ; ---------------- End Function $0A474E ---------------- ; ---------------- Begin 2144 Function $0A475A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DAE4 ; called from $09DA58:$09DAEC ; addr bytes opcode operands comment 0A4761 80 23 READ.B $23 0A4763 35 SWITCH 0A4764 10 07 00 CASE $00 ; SWITCH $0A4763 0A4767 40 PUSH.6 $00 0A4768 30 04 FF BSR.68K $04FF ; => $0A426C 0A476B 10 11 BR $011 ; => $0A477E 0A476D 10 06 01 CASE $01 ; SWITCH $0A4763 0A4770 30 00 D5 BSR.68K $00D5 ; => $0A469E 0A4773 10 09 BR $009 ; => $0A477E 0A4775 10 06 02 CASE $02 ; SWITCH $0A4763 0A4778 30 01 15 BSR.68K $0115 ; => $0A4666 0A477B 10 01 BR $001 ; => $0A477E 0A477D 00 DEFAULT ; SWITCH $0A4763 0A477E 34 RETURN ; ---------------- End Function $0A475A ---------------- ; ---------------- Begin 2144 Function $0A4780 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DADC ; addr bytes opcode operands comment 0A4787 80 20 READ.B $20 0A4789 35 SWITCH 0A478A 10 10 10 CASE $10 ; SWITCH $0A4789 0A478D 41 PUSH.6 $01 0A478E 90 23 WRITE.B $23 0A4790 04 48 PUSH.10 $048 0A4792 90 21 WRITE.B $21 0A4794 30 07 43 BSR.68K $0743 ; => $0A4054 => $099642 0A4797 30 06 88 BSR.68K $0688 ; => $0A4112 0A479A 10 1C BR $01C ; => $0A47B8 0A479C 10 10 50 CASE $50 ; SWITCH $0A4789 0A479F 40 PUSH.6 $00 0A47A0 90 23 WRITE.B $23 0A47A2 70 PUSH.6 $30 0A47A3 90 21 WRITE.B $21 0A47A5 30 07 54 BSR.68K $0754 ; => $0A4054 => $099642 0A47A8 40 PUSH.6 $00 0A47A9 30 07 22 BSR.68K $0722 ; => $0A408A 0A47AC 10 0A BR $00A ; => $0A47B8 0A47AE 20 04 90 D0 CASE $90, $D0 ; SWITCH $0A4789 0A47B2 10 04 BR $004 ; => $0A47B8 0A47B4 00 DEFAULT ; SWITCH $0A4789 0A47B5 30 07 46 BSR.68K $0746 ; => $0A4072 => $09D9DE 0A47B8 34 RETURN ; ---------------- End Function $0A4780 ---------------- ; ---------------- Begin 2164 Function $0A4826 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0A4A6C:$0A4A78 ; addr bytes opcode operands comment 0A482F 31 08 SUBSP.B $08 0A4831 C0 47 6B READ.B $476B 0A4834 E3 40 59 READ.F $4059 0A4837 C3 50 A9 READ.F $50A9 0A483A 21 SUB.F 0A483B 30 00 84 BSR.68K $0084 ; => $0A47BA => $002B7E (NATIVE) 0A483E 97 0B WRITE.F $0B 0A4840 87 0B READ.F $0B 0A4842 7C PUSH.6 $3C 0A4843 C0 29 6E READ.B $296E 0A4846 29 MUL.L 0A4847 03 2A LONG2FLOAT 0A4849 24 GT.F 0A484A 18 0F BRZ $00F ; => $0A485B 0A484C C0 47 6B READ.B $476B 0A484F E3 40 59 READ.F $4059 0A4852 D3 50 A9 WRITE.F $50A9 0A4855 04 FF PUSH.10 $0FF 0A4857 96 03 WRITE.L $03 0A4859 10 03 BR $003 ; => $0A485E 0A485B 40 PUSH.6 $00 0A485C 96 03 WRITE.L $03 0A485E 32 08 ADDSP.B $08 0A4860 34 RETURN ; ---------------- End Function $0A4826 ---------------- ; ---------------- Begin 2144 Function $0A4862 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A4A6C:$0A4A92 ; addr bytes opcode operands comment 0A4869 31 02 SUBSP.B $02 0A486B 30 00 78 BSR.68K $0078 ; => $0A47F6 => $0A05A4 (NATIVE) 0A486E 03 30 07 20 57 4E 20 20 20 TRAP1 " WN " 20 0A4878 03 30 36 52 45 46 2E 4C 41 TRAP1 "REF.LAT REF.LON REF.HGT LAT.OFFSET LON.OFFSET" 54 20 20 20 20 20 52 45 46 2E 4C 4F 4E 20 20 20 20 52 45 46 2E 48 47 54 20 4C 41 54 2E 4F 46 46 53 45 54 20 20 20 4C 4F 4E 2E 4F 46 46 53 45 54 0A48B1 03 30 0A 20 20 48 47 54 2E TRAP1 " HGT.OFF " 4F 46 46 20 0A48BE C0 29 8E READ.B $298E 0A48C1 18 0D BRZ $00D ; => $0A48D0 0A48C3 03 30 0A 43 41 42 4C 45 28 TRAP1 "CABLE(NS) " 4E 53 29 20 0A48D0 03 30 1D 53 56 2C 50 4F 53 TRAP1 "SV,POSAVG PDOP EL AGE MIN MAX" 41 56 47 20 50 44 4F 50 20 45 4C 20 41 47 45 20 4D 49 4E 20 4D 41 58 0A48F0 C0 33 D6 READ.B $33D6 0A48F3 2E NOT.L 0A48F4 18 0C BRZ $00C ; => $0A4902 0A48F6 03 30 09 20 20 52 45 46 2E TRAP1 " REF.FRQ" 46 52 51 0A4902 30 01 0F BSR.68K $010F ; => $0A47F6 => $0A05A4 (NATIVE) 0A4905 C1 29 FD READ.W $29FD 0A4908 07 FF PUSH.10 $3FF 0A490A 2C AND.L 0A490B 44 PUSH.6 $04 0A490C 30 01 49 BSR.68K $0149 ; => $0A47C6 => $0A0036 0A490F 30 01 22 BSR.68K $0122 ; => $0A47F0 => $0A0584 (NATIVE) 0A4912 C3 29 1B READ.F $291B 0A4915 30 01 3A BSR.68K $013A ; => $0A47DE => $0A0284 0A4918 C3 29 23 READ.F $2923 0A491B 30 01 3A BSR.68K $013A ; => $0A47E4 => $0A02A8 0A491E C3 29 2B READ.F $292B 0A4921 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A492A 22 MUL.F 0A492B 45 PUSH.6 $05 0A492C 44 PUSH.6 $04 0A492D 30 01 64 BSR.68K $0164 ; => $0A47CC => $0A0076 0A4930 30 01 43 BSR.68K $0143 ; => $0A47F0 => $0A0584 (NATIVE) 0A4933 C3 29 3F READ.F $293F 0A4936 30 01 5B BSR.68K $015B ; => $0A47DE => $0A0284 0A4939 C3 29 47 READ.F $2947 0A493C 30 01 5B BSR.68K $015B ; => $0A47E4 => $0A02A8 0A493F C3 29 4F READ.F $294F 0A4942 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A494B 22 MUL.F 0A494C 45 PUSH.6 $05 0A494D 44 PUSH.6 $04 0A494E 30 01 85 BSR.68K $0185 ; => $0A47CC => $0A0076 0A4951 C0 29 8E READ.B $298E 0A4954 18 08 BRZ $008 ; => $0A495E 0A4956 C3 29 57 READ.F $2957 0A4959 49 PUSH.6 $09 0A495A 55 PUSH.6 $15 0A495B 30 01 8C BSR.68K $018C ; => $0A47D2 => $0A00D2 0A495E C3 28 F5 READ.F $28F5 0A4961 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A496A 22 MUL.F 0A496B 43 PUSH.6 $03 0A496C 42 PUSH.6 $02 0A496D 30 01 9E BSR.68K $019E ; => $0A47D2 => $0A00D2 0A4970 C3 28 FD READ.F $28FD 0A4973 44 PUSH.6 $04 0A4974 55 PUSH.6 $15 0A4975 30 01 A6 BSR.68K $01A6 ; => $0A47D2 => $0A00D2 0A4978 C3 28 ED READ.F $28ED 0A497B 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A4984 22 MUL.F 0A4985 43 PUSH.6 $03 0A4986 42 PUSH.6 $02 0A4987 30 01 B8 BSR.68K $01B8 ; => $0A47D2 => $0A00D2 0A498A C3 28 DB READ.F $28DB 0A498D 42 PUSH.6 $02 0A498E 55 PUSH.6 $15 0A498F 30 01 C0 BSR.68K $01C0 ; => $0A47D2 => $0A00D2 0A4992 03 30 02 20 20 TRAP1 " " 0A4997 C0 29 0D READ.B $290D 0A499A 41 PUSH.6 $01 0A499B 30 01 D8 BSR.68K $01D8 ; => $0A47C6 => $0A0036 0A499E 03 30 03 20 20 20 TRAP1 " " 0A49A4 C0 29 0C READ.B $290C 0A49A7 41 PUSH.6 $01 0A49A8 30 01 E5 BSR.68K $01E5 ; => $0A47C6 => $0A0036 0A49AB C0 33 D6 READ.B $33D6 0A49AE 2E NOT.L 0A49AF 18 07 BRZ $007 ; => $0A49B8 0A49B1 C3 29 35 READ.F $2935 0A49B4 43 PUSH.6 $03 0A49B5 30 01 E0 BSR.68K $01E0 ; => $0A47D8 => $0A0118 0A49B8 30 01 C5 BSR.68K $01C5 ; => $0A47F6 => $0A05A4 (NATIVE) 0A49BB 32 02 ADDSP.B $02 0A49BD 34 RETURN ; ---------------- End Function $0A4862 ---------------- ; ---------------- Begin 2144 Function $0A49BE ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A4A6C:$0A4B8B ; addr bytes opcode operands comment 0A49C5 3B 40 68 48 F5 C2 8F 5C 29 PUSH.F $406848F5C28F5C29 ; float = 194.280000 0A49CE C3 55 31 READ.F $5531 0A49D1 22 MUL.F 0A49D2 45 PUSH.6 $05 0A49D3 43 PUSH.6 $03 0A49D4 30 02 0B BSR.68K $020B ; => $0A47CC => $0A0076 0A49D7 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 0A49E0 C3 55 59 READ.F $5559 0A49E3 22 MUL.F 0A49E4 45 PUSH.6 $05 0A49E5 43 PUSH.6 $03 0A49E6 30 02 17 BSR.68K $0217 ; => $0A47D2 => $0A00D2 0A49E9 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A49F2 C3 55 51 READ.F $5551 0A49F5 22 MUL.F 0A49F6 44 PUSH.6 $04 0A49F7 43 PUSH.6 $03 0A49F8 30 02 29 BSR.68K $0229 ; => $0A47D2 => $0A00D2 0A49FB C3 56 25 READ.F $5625 0A49FE 44 PUSH.6 $04 0A49FF 30 02 2A BSR.68K $022A ; => $0A47D8 => $0A0118 0A4A02 34 RETURN ; ---------------- End Function $0A49BE ---------------- ; ---------------- Begin 2144 Function $0A4A04 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A4A6C:$0A4BDE ; addr bytes opcode operands comment 0A4A0B 40 PUSH.6 $00 0A4A0C 94 00 WRITE.B $00 0A4A0E 58 PUSH.6 $18 0A4A0F 94 03 WRITE.B $03 0A4A11 84 00 READ.B $00 0A4A13 C0 55 63 READ.B $5563 0A4A16 03 26 GT.L 0A4A18 18 51 BRZ $051 ; => $0A4A6B 0A4A1A 84 00 READ.B $00 0A4A1C E0 47 6B READ.B $476B 0A4A1F E0 40 09 READ.B $4009 0A4A22 49 PUSH.6 $09 0A4A23 03 25 LT.L 0A4A25 18 03 BRZ $003 ; => $0A4A2A 0A4A27 42 PUSH.6 $02 0A4A28 10 01 BR $001 ; => $0A4A2B 0A4A2A 41 PUSH.6 $01 0A4A2B 94 02 WRITE.B $02 0A4A2D 84 02 READ.B $02 0A4A2F 41 PUSH.6 $01 0A4A30 27 ADD.L 0A4A31 84 03 READ.B $03 0A4A33 03 25 LT.L 0A4A35 18 02 BRZ $002 ; => $0A4A39 0A4A37 10 32 BR $032 ; => $0A4A6B 0A4A39 84 03 READ.B $03 0A4A3B 58 PUSH.6 $18 0A4A3C 2B NEQ.L 0A4A3D 18 04 BRZ $004 ; => $0A4A43 0A4A3F 6C PUSH.6 $2C 0A4A40 30 02 83 BSR.68K $0283 ; => $0A47C0 => $0A056A (NATIVE) 0A4A43 84 00 READ.B $00 0A4A45 E0 47 6B READ.B $476B 0A4A48 E0 40 09 READ.B $4009 0A4A4B 84 02 READ.B $02 0A4A4D 30 02 8A BSR.68K $028A ; => $0A47C6 => $0A0036 0A4A50 84 03 READ.B $03 0A4A52 58 PUSH.6 $18 0A4A53 2B NEQ.L 0A4A54 18 06 BRZ $006 ; => $0A4A5C 0A4A56 84 03 READ.B $03 0A4A58 41 PUSH.6 $01 0A4A59 28 SUB.L 0A4A5A 94 03 WRITE.B $03 0A4A5C 84 03 READ.B $03 0A4A5E 84 02 READ.B $02 0A4A60 28 SUB.L 0A4A61 94 03 WRITE.B $03 0A4A63 84 00 READ.B $00 0A4A65 41 PUSH.6 $01 0A4A66 27 ADD.L 0A4A67 94 00 WRITE.B $00 0A4A69 17 A6 BR $-5A ; => $0A4A11 0A4A6B 34 RETURN ; ---------------- End Function $0A4A04 ---------------- ; ---------------- Begin 2144 Function $0A4A6C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A4E0C:$0A4EA7 ; addr bytes opcode operands comment 0A4A73 31 0E SUBSP.B $0E 0A4A75 C0 55 62 READ.B $5562 0A4A78 30 02 55 BSR.68K $0255 ; => $0A4826 0A4A7B 2C AND.L 0A4A7C 1B 8B BRZ $38B ; => $0A4E09 0A4A7E C0 50 A0 READ.B $50A0 0A4A81 2E NOT.L 0A4A82 18 03 BRZ $003 ; => $0A4A87 0A4A84 30 02 8B BSR.68K $028B ; => $0A47FC => $0A61EA 0A4A87 C0 50 9F READ.B $509F 0A4A8A C0 29 6E READ.B $296E 0A4A8D 40 PUSH.6 $00 0A4A8E 2A EQ.L 0A4A8F 2C AND.L 0A4A90 18 8A BRZ $08A ; => $0A4B1C 0A4A92 30 02 33 BSR.68K $0233 ; => $0A4862 0A4A95 03 30 20 20 49 44 20 44 41 TRAP1 " ID DAY DOY DATE TIME " 59 20 44 4F 59 20 20 20 44 41 54 45 20 20 20 20 20 20 54 49 4D 45 20 20 20 20 0A4AB8 03 30 15 4C 41 54 49 54 55 TRAP1 "LATITUDE LONGITUDE" 44 45 20 20 20 20 4C 4F 4E 47 49 54 55 44 45 0A4AD0 03 30 42 20 20 20 20 48 47 TRAP1 " HGT PDOP CLOCK V.VEL H.VEL HDG FREQ.OFFSET CONT S SVS " 54 20 20 50 44 4F 50 20 43 4C 4F 43 4B 20 20 20 56 2E 56 45 4C 20 20 48 2E 56 45 4C 20 20 20 48 44 47 20 20 46 52 45 51 2E 4F 46 46 53 45 54 20 43 4F 4E 54 20 53 20 20 53 56 53 20 0A4B15 30 03 22 BSR.68K $0322 ; => $0A47F6 => $0A05A4 (NATIVE) 0A4B18 40 PUSH.6 $00 0A4B19 D0 50 9F WRITE.B $509F 0A4B1C 04 5B PUSH.10 $05B 0A4B1E 30 03 61 BSR.68K $0361 ; => $0A47C0 => $0A056A (NATIVE) 0A4B21 C0 29 6F READ.B $296F 0A4B24 42 PUSH.6 $02 0A4B25 30 03 62 BSR.68K $0362 ; => $0A47C6 => $0A0036 0A4B28 30 03 3B BSR.68K $033B ; => $0A47F0 => $0A0584 (NATIVE) 0A4B2B C3 01 1F READ.F $011F 0A4B2E 30 03 47 BSR.68K $0347 ; => $0A47EA => $0A03BC 0A4B31 C0 29 73 READ.B $2973 0A4B34 18 04 BRZ $004 ; => $0A4B3A 0A4B36 04 64 PUSH.10 $064 0A4B38 10 01 BR $001 ; => $0A4B3B 0A4B3A 60 PUSH.6 $20 0A4B3B 30 03 7E BSR.68K $037E ; => $0A47C0 => $0A056A (NATIVE) 0A4B3E C3 54 E9 READ.F $54E9 0A4B41 C3 29 3F READ.F $293F 0A4B44 20 ADD.F 0A4B45 30 03 6A BSR.68K $036A ; => $0A47DE => $0A0284 0A4B48 C3 54 F1 READ.F $54F1 0A4B4B C3 29 47 READ.F $2947 0A4B4E 20 ADD.F 0A4B4F 30 03 6E BSR.68K $036E ; => $0A47E4 => $0A02A8 0A4B52 C3 54 F9 READ.F $54F9 0A4B55 C3 29 4F READ.F $294F 0A4B58 20 ADD.F 0A4B59 44 PUSH.6 $04 0A4B5A 45 PUSH.6 $05 0A4B5B 30 03 92 BSR.68K $0392 ; => $0A47CC => $0A0076 0A4B5E 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A4B67 83 67 READ.F $67 0A4B69 22 MUL.F 0A4B6A 43 PUSH.6 $03 0A4B6B 42 PUSH.6 $02 0A4B6C 30 03 9D BSR.68K $039D ; => $0A47D2 => $0A00D2 0A4B6F 3B 41 CD CD 65 00 00 00 00 PUSH.F $41CDCD6500000000 ; float = 1000000000.000000 0A4B78 C3 55 19 READ.F $5519 0A4B7B 22 MUL.F 0A4B7C 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 0A4B85 22 MUL.F 0A4B86 46 PUSH.6 $06 0A4B87 55 PUSH.6 $15 0A4B88 30 03 B9 BSR.68K $03B9 ; => $0A47D2 => $0A00D2 0A4B8B 30 01 D0 BSR.68K $01D0 ; => $0A49BE 0A4B8E C0 55 63 READ.B $5563 0A4B91 47 PUSH.6 $07 0A4B92 03 26 GT.L 0A4B94 18 45 BRZ $045 ; => $0A4BDB 0A4B96 3B 42 02 A0 5F 20 00 00 00 PUSH.F $4202A05F20000000 ; float = 10000000000.000000 0A4B9F 97 0D WRITE.F $0D 0A4BA1 40 PUSH.6 $00 0A4BA2 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A4BA5 C0 55 63 READ.B $5563 0A4BA8 41 PUSH.6 $01 0A4BA9 28 SUB.L 0A4BAA 38 00 1D BLS.B $001D ; => $0A4BCA 0A4BAD 84 00 READ.B $00 0A4BAF E0 47 6B READ.B $476B 0A4BB2 E3 48 B7 READ.F $48B7 0A4BB5 87 0D READ.F $0D 0A4BB7 03 21 LT.F 0A4BB9 18 0A BRZ $00A ; => $0A4BC5 0A4BBB 84 00 READ.B $00 0A4BBD E0 47 6B READ.B $476B 0A4BC0 E3 48 B7 READ.F $48B7 0A4BC3 97 0D WRITE.F $0D 0A4BC5 37 10 00 00 25 _23d2 $0000, $0025 0A4BCA 87 0D READ.F $0D 0A4BCC 44 PUSH.6 $04 0A4BCD 55 PUSH.6 $15 0A4BCE 30 03 FF BSR.68K $03FF ; => $0A47D2 => $0A00D2 0A4BD1 30 03 E4 BSR.68K $03E4 ; => $0A47F0 => $0A0584 (NATIVE) 0A4BD4 C0 55 62 READ.B $5562 0A4BD7 41 PUSH.6 $01 0A4BD8 30 04 15 BSR.68K $0415 ; => $0A47C6 => $0A0036 0A4BDB 30 03 EE BSR.68K $03EE ; => $0A47F0 => $0A0584 (NATIVE) 0A4BDE 30 01 DD BSR.68K $01DD ; => $0A4A04 0A4BE1 C0 50 9E READ.B $509E 0A4BE4 41 PUSH.6 $01 0A4BE5 27 ADD.L 0A4BE6 D0 50 9E WRITE.B $509E 0A4BE9 03 30 01 5D TRAP1 "]" 0A4BED 30 03 FA BSR.68K $03FA ; => $0A47F6 => $0A05A4 (NATIVE) 0A4BF0 C0 50 9E READ.B $509E 0A4BF3 4A PUSH.6 $0A 0A4BF4 2A EQ.L 0A4BF5 C3 01 17 READ.F $0117 0A4BF8 C3 28 FD READ.F $28FD 0A4BFB 25 GTE.F 0A4BFC C3 28 FD READ.F $28FD 0A4BFF 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A4C08 24 GT.F 0A4C09 2C AND.L 0A4C0A 2D OR.L 0A4C0B C0 29 6E READ.B $296E 0A4C0E 40 PUSH.6 $00 0A4C0F 2A EQ.L 0A4C10 2C AND.L 0A4C11 19 F6 BRZ $1F6 ; => $0A4E09 0A4C13 40 PUSH.6 $00 0A4C14 D0 50 9E WRITE.B $509E 0A4C17 03 30 25 53 56 20 45 4C 20 TRAP1 "SV EL AZM SN IODC CONT GPS.TIME " 41 5A 4D 20 53 4E 20 49 4F 44 43 20 43 4F 4E 54 20 20 47 50 53 2E 54 49 4D 45 20 20 20 20 20 0A4C3F 03 30 13 41 56 47 2E 4C 41 TRAP1 "AVG.LAT AVG.LON" 54 20 20 20 20 20 41 56 47 2E 4C 4F 4E 0A4C55 03 30 29 20 20 20 20 41 56 TRAP1 " AVG.HGT NO. RMSLAT LON HGT AVGCLK" 47 2E 48 47 54 20 20 4E 4F 2E 20 52 4D 53 4C 41 54 20 4C 4F 4E 20 20 20 48 47 54 20 20 41 56 47 43 4C 4B 0A4C81 03 30 16 20 20 20 43 4C 4B TRAP1 " CLK.RATE AVG.FRQ " 2E 52 41 54 45 20 20 20 41 56 47 2E 46 52 51 20 0A4C9A 30 04 A7 BSR.68K $04A7 ; => $0A47F6 => $0A05A4 (NATIVE) 0A4C9D 40 PUSH.6 $00 0A4C9E 94 04 WRITE.B $04 0A4CA0 40 PUSH.6 $00 0A4CA1 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A4CA4 C0 29 9B READ.B $299B 0A4CA7 38 01 5F BLS.B $015F ; => $0A4E09 0A4CAA 84 00 READ.B $00 0A4CAC E0 40 09 READ.B $4009 0A4CAF 84 00 READ.B $00 0A4CB1 E0 44 23 READ.B $4423 0A4CB4 2C AND.L 0A4CB5 19 4D BRZ $14D ; => $0A4E04 0A4CB7 84 00 READ.B $00 0A4CB9 E0 40 09 READ.B $4009 0A4CBC 42 PUSH.6 $02 0A4CBD 30 04 FA BSR.68K $04FA ; => $0A47C6 => $0A0036 0A4CC0 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A4CC9 84 00 READ.B $00 0A4CCB E3 43 29 READ.F $4329 0A4CCE 22 MUL.F 0A4CCF 42 PUSH.6 $02 0A4CD0 55 PUSH.6 $15 0A4CD1 30 05 02 BSR.68K $0502 ; => $0A47D2 => $0A00D2 0A4CD4 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A4CDD 84 00 READ.B $00 0A4CDF E3 46 03 READ.F $4603 0A4CE2 22 MUL.F 0A4CE3 43 PUSH.6 $03 0A4CE4 55 PUSH.6 $15 0A4CE5 30 05 16 BSR.68K $0516 ; => $0A47D2 => $0A00D2 0A4CE8 30 04 FB BSR.68K $04FB ; => $0A47F0 => $0A0584 (NATIVE) 0A4CEB 84 00 READ.B $00 0A4CED E3 41 49 READ.F $4149 0A4CF0 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A4CF9 20 ADD.F 0A4CFA 03 29 FLOAT2LONG 0A4CFC 42 PUSH.6 $02 0A4CFD 30 05 3A BSR.68K $053A ; => $0A47C6 => $0A0036 0A4D00 30 05 13 BSR.68K $0513 ; => $0A47F0 => $0A0584 (NATIVE) 0A4D03 84 00 READ.B $00 0A4D05 E0 40 09 READ.B $4009 0A4D08 E2 04 1B READ.L $041B 0A4D0B 44 PUSH.6 $04 0A4D0C 30 05 49 BSR.68K $0549 ; => $0A47C6 => $0A0036 0A4D0F 84 00 READ.B $00 0A4D11 E3 48 B7 READ.F $48B7 0A4D14 44 PUSH.6 $04 0A4D15 55 PUSH.6 $15 0A4D16 30 05 47 BSR.68K $0547 ; => $0A47D2 => $0A00D2 0A4D19 84 00 READ.B $00 0A4D1B E3 46 B7 READ.F $46B7 0A4D1E 49 PUSH.6 $09 0A4D1F 46 PUSH.6 $06 0A4D20 30 05 57 BSR.68K $0557 ; => $0A47CC => $0A0076 0A4D23 30 05 36 BSR.68K $0536 ; => $0A47F0 => $0A0584 (NATIVE) 0A4D26 84 04 READ.B $04 0A4D28 2E NOT.L 0A4D29 18 D6 BRZ $0D6 ; => $0A4E01 0A4D2B 04 FF PUSH.10 $0FF 0A4D2D 94 04 WRITE.B $04 0A4D2F 30 05 42 BSR.68K $0542 ; => $0A47F0 => $0A0584 (NATIVE) 0A4D32 83 37 READ.F $37 0A4D34 C3 29 3F READ.F $293F 0A4D37 20 ADD.F 0A4D38 30 05 5D BSR.68K $055D ; => $0A47DE => $0A0284 0A4D3B 83 3F READ.F $3F 0A4D3D C3 29 47 READ.F $2947 0A4D40 20 ADD.F 0A4D41 30 05 60 BSR.68K $0560 ; => $0A47E4 => $0A02A8 0A4D44 83 47 READ.F $47 0A4D46 C3 29 4F READ.F $294F 0A4D49 20 ADD.F 0A4D4A 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A4D53 22 MUL.F 0A4D54 45 PUSH.6 $05 0A4D55 44 PUSH.6 $04 0A4D56 30 05 8D BSR.68K $058D ; => $0A47CC => $0A0076 0A4D59 C3 01 17 READ.F $0117 0A4D5C 44 PUSH.6 $04 0A4D5D 55 PUSH.6 $15 0A4D5E 30 05 8F BSR.68K $058F ; => $0A47D2 => $0A00D2 0A4D61 83 D7 READ.F $D7 0A4D63 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 0A4D6C 22 MUL.F 0A4D6D 44 PUSH.6 $04 0A4D6E 42 PUSH.6 $02 0A4D6F 30 05 A0 BSR.68K $05A0 ; => $0A47D2 => $0A00D2 0A4D72 83 DF READ.F $DF 0A4D74 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 0A4D7D 22 MUL.F 0A4D7E 44 PUSH.6 $04 0A4D7F 42 PUSH.6 $02 0A4D80 30 05 B1 BSR.68K $05B1 ; => $0A47D2 => $0A00D2 0A4D83 83 E7 READ.F $E7 0A4D85 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 0A4D8E 22 MUL.F 0A4D8F 44 PUSH.6 $04 0A4D90 42 PUSH.6 $02 0A4D91 30 05 C2 BSR.68K $05C2 ; => $0A47D2 => $0A00D2 0A4D94 3B 41 CD CD 65 00 00 00 00 PUSH.F $41CDCD6500000000 ; float = 1000000000.000000 0A4D9D C3 55 F5 READ.F $55F5 0A4DA0 22 MUL.F 0A4DA1 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 0A4DAA 23 DIV.F 0A4DAB 46 PUSH.6 $06 0A4DAC 55 PUSH.6 $15 0A4DAD 30 05 DE BSR.68K $05DE ; => $0A47D2 => $0A00D2 0A4DB0 C3 55 DD READ.F $55DD 0A4DB3 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 0A4DBC 23 DIV.F 0A4DBD 44 PUSH.6 $04 0A4DBE 30 05 E9 BSR.68K $05E9 ; => $0A47D8 => $0A0118 0A4DC1 C3 56 05 READ.F $5605 0A4DC4 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A4DCD 24 GT.F 0A4DCE 18 17 BRZ $017 ; => $0A4DE7 0A4DD0 C3 55 FD READ.F $55FD 0A4DD3 3B 41 D7 6A 24 00 00 00 00 PUSH.F $41D76A2400000000 ; float = 1571328000.000000 0A4DDC C3 56 05 READ.F $5605 0A4DDF 22 MUL.F 0A4DE0 23 DIV.F 0A4DE1 03 20 NEG.W 0A4DE3 97 0D WRITE.F $0D 0A4DE5 10 03 BR $003 ; => $0A4DEA 0A4DE7 3E PUSH.W $0000 0A4DE8 97 0D WRITE.F $0D 0A4DEA 87 0D READ.F $0D 0A4DEC 44 PUSH.6 $04 0A4DED 30 06 18 BSR.68K $0618 ; => $0A47D8 => $0A0118 0A4DF0 30 06 03 BSR.68K $0603 ; => $0A47F0 => $0A0584 (NATIVE) 0A4DF3 C0 28 FF READ.B $28FF 0A4DF6 18 04 BRZ $004 ; => $0A4DFC 0A4DF8 04 41 PUSH.10 $041 0A4DFA 10 02 BR $002 ; => $0A4DFE 0A4DFC 04 4D PUSH.10 $04D 0A4DFE 30 06 41 BSR.68K $0641 ; => $0A47C0 => $0A056A (NATIVE) 0A4E01 30 06 0E BSR.68K $060E ; => $0A47F6 => $0A05A4 (NATIVE) 0A4E04 37 10 00 01 65 _23d2 $0000, $0165 0A4E09 32 0E ADDSP.B $0E 0A4E0B 34 RETURN ; ---------------- End Function $0A4A6C ---------------- ; ---------------- Begin 2144 Function $0A4E0C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000FF4:$001031 ; called from $09DD4E:$09DF84 ; called from $0AF21A:$0AF3E0 ; addr bytes opcode operands comment 0A4E13 31 02 SUBSP.B $02 0A4E15 C0 29 5B READ.B $295B 0A4E18 18 25 BRZ $025 ; => $0A4E3F 0A4E1A 40 PUSH.6 $00 0A4E1B D0 4F 98 WRITE.B $4F98 0A4E1E 04 FF PUSH.10 $0FF 0A4E20 D0 4E 94 WRITE.B $4E94 0A4E23 40 PUSH.6 $00 0A4E24 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A4E27 42 PUSH.6 $02 0A4E28 38 00 14 BLS.B $0014 ; => $0A4E3F 0A4E2B 84 00 READ.B $00 0A4E2D E0 29 61 READ.B $2961 0A4E30 18 08 BRZ $008 ; => $0A4E3A 0A4E32 84 00 READ.B $00 0A4E34 E0 29 61 READ.B $2961 0A4E37 30 06 7A BSR.68K $067A ; => $0A47C0 => $0A056A (NATIVE) 0A4E3A 37 10 00 00 18 _23d2 $0000, $0018 0A4E3F C0 29 64 READ.B $2964 0A4E42 18 25 BRZ $025 ; => $0A4E69 0A4E44 40 PUSH.6 $00 0A4E45 D0 4E 94 WRITE.B $4E94 0A4E48 04 FF PUSH.10 $0FF 0A4E4A D0 4F 98 WRITE.B $4F98 0A4E4D 40 PUSH.6 $00 0A4E4E 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A4E51 42 PUSH.6 $02 0A4E52 38 00 14 BLS.B $0014 ; => $0A4E69 0A4E55 84 00 READ.B $00 0A4E57 E0 29 6B READ.B $296B 0A4E5A 18 08 BRZ $008 ; => $0A4E64 0A4E5C 84 00 READ.B $00 0A4E5E E0 29 6B READ.B $296B 0A4E61 30 06 A4 BSR.68K $06A4 ; => $0A47C0 => $0A056A (NATIVE) 0A4E64 37 10 00 00 18 _23d2 $0000, $0018 0A4E69 C0 29 5B READ.B $295B 0A4E6C 04 80 PUSH.10 $080 0A4E6E 2C AND.L 0A4E6F D0 4E 94 WRITE.B $4E94 0A4E72 C0 29 64 READ.B $2964 0A4E75 04 80 PUSH.10 $080 0A4E77 2C AND.L 0A4E78 D0 4F 98 WRITE.B $4F98 0A4E7B C0 4E 94 READ.B $4E94 0A4E7E C0 4F 98 READ.B $4F98 0A4E81 2D OR.L 0A4E82 18 03 BRZ $003 ; => $0A4E87 0A4E84 30 06 8B BSR.68K $068B ; => $0A47FC => $0A61EA 0A4E87 C0 29 E0 READ.B $29E0 0A4E8A 43 PUSH.6 $03 0A4E8B 2A EQ.L 0A4E8C 18 72 BRZ $072 ; => $0A4F00 0A4E8E C0 29 5B READ.B $295B 0A4E91 41 PUSH.6 $01 0A4E92 2C AND.L 0A4E93 D0 4E 94 WRITE.B $4E94 0A4E96 C0 29 64 READ.B $2964 0A4E99 41 PUSH.6 $01 0A4E9A 2C AND.L 0A4E9B D0 4F 98 WRITE.B $4F98 0A4E9E C0 4E 94 READ.B $4E94 0A4EA1 C0 4F 98 READ.B $4F98 0A4EA4 2D OR.L 0A4EA5 18 03 BRZ $003 ; => $0A4EAA 0A4EA7 30 04 3E BSR.68K $043E ; => $0A4A6C 0A4EAA C0 29 5B READ.B $295B 0A4EAD 60 PUSH.6 $20 0A4EAE 2C AND.L 0A4EAF D0 4E 94 WRITE.B $4E94 0A4EB2 C0 29 64 READ.B $2964 0A4EB5 60 PUSH.6 $20 0A4EB6 2C AND.L 0A4EB7 D0 4F 98 WRITE.B $4F98 0A4EBA C0 4E 94 READ.B $4E94 0A4EBD C0 4F 98 READ.B $4F98 0A4EC0 2D OR.L 0A4EC1 18 03 BRZ $003 ; => $0A4EC6 0A4EC3 30 06 C4 BSR.68K $06C4 ; => $0A4802 => $091310 0A4EC6 C0 29 5B READ.B $295B 0A4EC9 42 PUSH.6 $02 0A4ECA 2C AND.L 0A4ECB D0 4E 94 WRITE.B $4E94 0A4ECE C0 29 64 READ.B $2964 0A4ED1 42 PUSH.6 $02 0A4ED2 2C AND.L 0A4ED3 D0 4F 98 WRITE.B $4F98 0A4ED6 C0 4E 94 READ.B $4E94 0A4ED9 C0 4F 98 READ.B $4F98 0A4EDC 2D OR.L 0A4EDD 18 03 BRZ $003 ; => $0A4EE2 0A4EDF 30 06 D4 BSR.68K $06D4 ; => $0A480E => $0A5644 0A4EE2 C0 29 5B READ.B $295B 0A4EE5 04 40 PUSH.10 $040 0A4EE7 2C AND.L 0A4EE8 D0 4E 94 WRITE.B $4E94 0A4EEB C0 29 64 READ.B $2964 0A4EEE 04 40 PUSH.10 $040 0A4EF0 2C AND.L 0A4EF1 D0 4F 98 WRITE.B $4F98 0A4EF4 C0 4E 94 READ.B $4E94 0A4EF7 C0 4F 98 READ.B $4F98 0A4EFA 2D OR.L 0A4EFB 18 03 BRZ $003 ; => $0A4F00 0A4EFD 30 06 F8 BSR.68K $06F8 ; => $0A4808 => $0A55CC 0A4F00 C0 29 5B READ.B $295B 0A4F03 44 PUSH.6 $04 0A4F04 2C AND.L 0A4F05 D0 4E 94 WRITE.B $4E94 0A4F08 C0 29 64 READ.B $2964 0A4F0B 44 PUSH.6 $04 0A4F0C 2C AND.L 0A4F0D D0 4F 98 WRITE.B $4F98 0A4F10 C0 4E 94 READ.B $4E94 0A4F13 C0 4F 98 READ.B $4F98 0A4F16 2D OR.L 0A4F17 18 03 BRZ $003 ; => $0A4F1C 0A4F19 30 06 FC BSR.68K $06FC ; => $0A4820 => $0A5E64 0A4F1C C0 29 5B READ.B $295B 0A4F1F 48 PUSH.6 $08 0A4F20 2C AND.L 0A4F21 D0 4E 94 WRITE.B $4E94 0A4F24 C0 29 64 READ.B $2964 0A4F27 48 PUSH.6 $08 0A4F28 2C AND.L 0A4F29 D0 4F 98 WRITE.B $4F98 0A4F2C C0 4E 94 READ.B $4E94 0A4F2F C0 4F 98 READ.B $4F98 0A4F32 2D OR.L 0A4F33 18 03 BRZ $003 ; => $0A4F38 0A4F35 30 07 24 BSR.68K $0724 ; => $0A4814 => $0A5804 0A4F38 C0 29 5B READ.B $295B 0A4F3B 18 25 BRZ $025 ; => $0A4F62 0A4F3D 40 PUSH.6 $00 0A4F3E D0 4F 98 WRITE.B $4F98 0A4F41 04 FF PUSH.10 $0FF 0A4F43 D0 4E 94 WRITE.B $4E94 0A4F46 43 PUSH.6 $03 0A4F47 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A4F4A 45 PUSH.6 $05 0A4F4B 38 00 14 BLS.B $0014 ; => $0A4F62 0A4F4E 84 00 READ.B $00 0A4F50 E0 29 61 READ.B $2961 0A4F53 18 08 BRZ $008 ; => $0A4F5D 0A4F55 84 00 READ.B $00 0A4F57 E0 29 61 READ.B $2961 0A4F5A 30 07 9D BSR.68K $079D ; => $0A47C0 => $0A056A (NATIVE) 0A4F5D 37 10 00 00 18 _23d2 $0000, $0018 0A4F62 C0 29 64 READ.B $2964 0A4F65 18 25 BRZ $025 ; => $0A4F8C 0A4F67 40 PUSH.6 $00 0A4F68 D0 4E 94 WRITE.B $4E94 0A4F6B 04 FF PUSH.10 $0FF 0A4F6D D0 4F 98 WRITE.B $4F98 0A4F70 43 PUSH.6 $03 0A4F71 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A4F74 45 PUSH.6 $05 0A4F75 38 00 14 BLS.B $0014 ; => $0A4F8C 0A4F78 84 00 READ.B $00 0A4F7A E0 29 6B READ.B $296B 0A4F7D 18 08 BRZ $008 ; => $0A4F87 0A4F7F 84 00 READ.B $00 0A4F81 E0 29 6B READ.B $296B 0A4F84 30 07 C7 BSR.68K $07C7 ; => $0A47C0 => $0A056A (NATIVE) 0A4F87 37 10 00 00 18 _23d2 $0000, $0018 0A4F8C 32 02 ADDSP.B $02 0A4F8E 34 RETURN ; ---------------- End Function $0A4E0C ---------------- ; ---------------- Begin 2144 Function $0A4FCC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0976BA:$097762 ; called from $0A526C:$0A5290 ; called from $0A526C:$0A52B0 ; called from $0A526C:$0A52C5 ; called from $0A526C:$0A52D1 ; called from $0A526C:$0A52E2 ; called from $0A526C:$0A5311 ; called from $0A526C:$0A531E ; called from $0A526C:$0A532E ; called from $0A526C:$0A5341 ; called from $0A534C:$0A535C ; called from $0A534C:$0A5367 ; addr bytes opcode operands comment 0A4FD3 31 02 SUBSP.B $02 0A4FD5 30 00 48 BSR.68K $0048 ; => $0A4F90 => $0034AA (CLEARSCREEN) (NATIVE) 0A4FD8 80 22 READ.B $22 0A4FDA 90 00 WRITE.B $00 0A4FDC 80 22 READ.B $22 0A4FDE 35 SWITCH 0A4FDF 10 08 31 CASE $31 ; SWITCH $0A4FDE 0A4FE2 C0 29 5B READ.B $295B 0A4FE5 94 00 WRITE.B $00 0A4FE7 10 0B BR $00B ; => $0A4FF4 0A4FE9 10 08 32 CASE $32 ; SWITCH $0A4FDE 0A4FEC C0 29 64 READ.B $2964 0A4FEF 94 00 WRITE.B $00 0A4FF1 10 01 BR $001 ; => $0A4FF4 0A4FF3 00 DEFAULT ; SWITCH $0A4FDE 0A4FF4 80 23 READ.B $23 0A4FF6 35 SWITCH 0A4FF7 10 56 00 CASE $00 ; SWITCH $0A4FF6 0A4FFA 67 PUSH.6 $27 0A4FFB 40 PUSH.6 $00 0A4FFC 6F PUSH.6 $2F 0A4FFD 40 PUSH.6 $00 0A4FFE 40 PUSH.6 $00 0A4FFF 6F PUSH.6 $2F 0A5000 40 PUSH.6 $00 0A5001 40 PUSH.6 $00 0A5002 30 00 6F BSR.68K $006F ; => $0A4F96 => $099614 0A5005 40 PUSH.6 $00 0A5006 3F 1C 20 20 20 20 4E 41 56 DISP " NAVA MORE POS STOP" 41 20 20 20 20 4D 4F 52 45 20 50 4F 53 20 20 20 20 53 54 4F 50 0A5024 84 00 READ.B $00 0A5026 41 PUSH.6 $01 0A5027 2C AND.L 0A5028 18 04 BRZ $004 ; => $0A502E 0A502A 54 PUSH.6 $14 0A502B 3F 01 2A DISP "*" 0A502E 84 00 READ.B $00 0A5030 50 PUSH.6 $10 0A5031 2C AND.L 0A5032 18 04 BRZ $004 ; => $0A5038 0A5034 48 PUSH.6 $08 0A5035 3F 01 2A DISP "*" 0A5038 84 00 READ.B $00 0A503A 04 EE PUSH.10 $0EE 0A503C 2C AND.L 0A503D 18 04 BRZ $004 ; => $0A5043 0A503F 4B PUSH.6 $0B 0A5040 3F 01 2A DISP "*" 0A5043 84 00 READ.B $00 0A5045 40 PUSH.6 $00 0A5046 2A EQ.L 0A5047 18 04 BRZ $004 ; => $0A504D 0A5049 5C PUSH.6 $1C 0A504A 3F 01 2A DISP "*" 0A504D 10 B5 BR $0B5 ; => $0A5104 0A504F 10 57 01 CASE $01 ; SWITCH $0A4FF6 0A5052 40 PUSH.6 $00 0A5053 3F 1C 20 20 20 20 20 49 4F DISP " ION MORE SV SETUP" 4E 20 20 20 20 4D 4F 52 45 20 20 53 56 20 20 20 53 45 54 55 50 0A5071 40 PUSH.6 $00 0A5072 40 PUSH.6 $00 0A5073 6F PUSH.6 $2F 0A5074 40 PUSH.6 $00 0A5075 40 PUSH.6 $00 0A5076 67 PUSH.6 $27 0A5077 40 PUSH.6 $00 0A5078 40 PUSH.6 $00 0A5079 30 00 E6 BSR.68K $00E6 ; => $0A4F96 => $099614 0A507C 84 00 READ.B $00 0A507E 44 PUSH.6 $04 0A507F 2C AND.L 0A5080 18 04 BRZ $004 ; => $0A5086 0A5082 54 PUSH.6 $14 0A5083 3F 01 2A DISP "*" 0A5086 84 00 READ.B $00 0A5088 48 PUSH.6 $08 0A5089 2C AND.L 0A508A 18 04 BRZ $004 ; => $0A5090 0A508C 48 PUSH.6 $08 0A508D 3F 01 2A DISP "*" 0A5090 84 00 READ.B $00 0A5092 04 80 PUSH.10 $080 0A5094 2C AND.L 0A5095 18 04 BRZ $004 ; => $0A509B 0A5097 5C PUSH.6 $1C 0A5098 3F 01 2A DISP "*" 0A509B 84 00 READ.B $00 0A509D 04 73 PUSH.10 $073 0A509F 2C AND.L 0A50A0 18 04 BRZ $004 ; => $0A50A6 0A50A2 4B PUSH.6 $0B 0A50A3 3F 01 2A DISP "*" 0A50A6 10 5C BR $05C ; => $0A5104 0A50A8 10 59 02 CASE $02 ; SWITCH $0A4FF6 0A50AB 40 PUSH.6 $00 0A50AC 3F 1E 20 20 42 49 4E 4D 45 DISP " BINMEAS MOREMEAS BINPOS " 41 53 20 20 20 4D 4F 52 45 4D 45 41 53 20 20 20 42 49 4E 50 4F 53 20 0A50CC 4F PUSH.6 $0F 0A50CD 40 PUSH.6 $00 0A50CE 4F PUSH.6 $0F 0A50CF 40 PUSH.6 $00 0A50D0 40 PUSH.6 $00 0A50D1 4F PUSH.6 $0F 0A50D2 40 PUSH.6 $00 0A50D3 40 PUSH.6 $00 0A50D4 30 01 41 BSR.68K $0141 ; => $0A4F96 => $099614 0A50D7 84 00 READ.B $00 0A50D9 42 PUSH.6 $02 0A50DA 2C AND.L 0A50DB 18 04 BRZ $004 ; => $0A50E1 0A50DD 54 PUSH.6 $14 0A50DE 3F 01 2A DISP "*" 0A50E1 84 00 READ.B $00 0A50E3 04 40 PUSH.10 $040 0A50E5 2C AND.L 0A50E6 18 04 BRZ $004 ; => $0A50EC 0A50E8 49 PUSH.6 $09 0A50E9 3F 01 2A DISP "*" 0A50EC 84 00 READ.B $00 0A50EE 60 PUSH.6 $20 0A50EF 2C AND.L 0A50F0 18 04 BRZ $004 ; => $0A50F6 0A50F2 5D PUSH.6 $1D 0A50F3 3F 01 2A DISP "*" 0A50F6 84 00 READ.B $00 0A50F8 04 9D PUSH.10 $09D 0A50FA 2C AND.L 0A50FB 18 04 BRZ $004 ; => $0A5101 0A50FD 4B PUSH.6 $0B 0A50FE 3F 01 2A DISP "*" 0A5101 10 01 BR $001 ; => $0A5104 0A5103 00 DEFAULT ; SWITCH $0A4FF6 0A5104 32 02 ADDSP.B $02 0A5106 34 RETURN ; ---------------- End Function $0A4FCC ---------------- ; ---------------- Begin 2144 Function $0A5108 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A5136:$0A5150 ; called from $0A526C:$0A529F ; addr bytes opcode operands comment 0A510F 30 01 82 BSR.68K $0182 ; => $0A4F90 => $0034AA (CLEARSCREEN) (NATIVE) 0A5112 40 PUSH.6 $00 0A5113 3F 16 50 52 49 4E 54 20 4E DISP "PRINT NAVDATA FOR SV" 41 56 44 41 54 41 20 20 20 46 4F 52 20 53 56 0A512B 57 PUSH.6 $17 0A512C 30 01 7B BSR.68K $017B ; => $0A4FB4 => $097A88 0A512F 30 01 78 BSR.68K $0178 ; => $0A4FBA => $097B0A 0A5132 57 PUSH.6 $17 0A5133 90 26 WRITE.B $26 0A5135 34 RETURN ; ---------------- End Function $0A5108 ---------------- ; ---------------- Begin 2144 Function $0A5136 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC07 ; addr bytes opcode operands comment 0A513D 31 02 SUBSP.B $02 0A513F 80 20 READ.B $20 0A5141 35 SWITCH 0A5142 10 11 02 CASE $02 ; SWITCH $0A5141 0A5145 80 26 READ.B $26 0A5147 57 PUSH.6 $17 0A5148 2A EQ.L 0A5149 18 05 BRZ $005 ; => $0A5150 0A514B 40 PUSH.6 $00 0A514C 90 21 WRITE.B $21 0A514E 10 03 BR $003 ; => $0A5153 0A5150 30 00 4B BSR.68K $004B ; => $0A5108 0A5153 10 15 BR $015 ; => $0A516A 0A5155 10 06 04 CASE $04 ; SWITCH $0A5141 0A5158 61 PUSH.6 $21 0A5159 90 26 WRITE.B $26 0A515B 10 0D BR $00D ; => $0A516A 0A515D 00 DEFAULT ; SWITCH $0A5141 0A515E 80 26 READ.B $26 0A5160 59 PUSH.6 $19 0A5161 03 26 GT.L 0A5163 18 05 BRZ $005 ; => $0A516A 0A5165 30 01 CC BSR.68K $01CC ; => $0A4F9C => $09DFB4 0A5168 94 00 WRITE.B $00 0A516A 80 26 READ.B $26 0A516C 35 SWITCH 0A516D 10 19 18 CASE $18 ; SWITCH $0A516C 0A5170 80 08 READ.B $08 0A5172 73 PUSH.6 $33 0A5173 03 25 LT.L 0A5175 80 08 READ.B $08 0A5177 79 PUSH.6 $39 0A5178 03 26 GT.L 0A517A 2C AND.L 0A517B 18 09 BRZ $009 ; => $0A5186 0A517D 80 08 READ.B $08 0A517F 90 07 WRITE.B $07 0A5181 70 PUSH.6 $30 0A5182 90 08 WRITE.B $08 0A5184 10 05 BR $005 ; => $0A518B 0A5186 10 83 BR $083 ; => $0A520B 0A5188 10 1C 19 CASE $19 ; SWITCH $0A516C 0A518B 57 PUSH.6 $17 0A518C 30 01 ED BSR.68K $01ED ; => $0A4FA2 => $09E078 0A518F 94 01 WRITE.B $01 0A5191 84 01 READ.B $01 0A5193 04 63 PUSH.10 $063 0A5195 2A EQ.L 0A5196 84 01 READ.B $01 0A5198 30 01 D5 BSR.68K $01D5 ; => $0A4FC6 => $097AA8 0A519B 2D OR.L 0A519C 18 03 BRZ $003 ; => $0A51A1 0A519E 60 PUSH.6 $20 0A519F 10 01 BR $001 ; => $0A51A2 0A51A1 57 PUSH.6 $17 0A51A2 90 26 WRITE.B $26 0A51A4 10 65 BR $065 ; => $0A520B 0A51A6 10 62 21 CASE $21 ; SWITCH $0A516C 0A51A9 57 PUSH.6 $17 0A51AA 30 02 0B BSR.68K $020B ; => $0A4FA2 => $09E078 0A51AD 94 01 WRITE.B $01 0A51AF 84 01 READ.B $01 0A51B1 04 63 PUSH.10 $063 0A51B3 2A EQ.L 0A51B4 84 01 READ.B $01 0A51B6 30 01 F3 BSR.68K $01F3 ; => $0A4FC6 => $097AA8 0A51B9 2D OR.L 0A51BA 18 49 BRZ $049 ; => $0A5205 0A51BC 4C PUSH.6 $0C 0A51BD 90 21 WRITE.B $21 0A51BF 84 01 READ.B $01 0A51C1 D0 50 9D WRITE.B $509D 0A51C4 30 02 37 BSR.68K $0237 ; => $0A4F90 => $0034AA (CLEARSCREEN) (NATIVE) 0A51C7 40 PUSH.6 $00 0A51C8 3F 1B 4E 41 56 20 44 41 54 DISP "NAV DATA WILL BE PRINTED" 41 20 57 49 4C 4C 20 42 45 20 20 20 20 50 52 49 4E 54 45 44 0A51E5 80 22 READ.B $22 0A51E7 35 SWITCH 0A51E8 10 0B 31 CASE $31 ; SWITCH $0A51E7 0A51EB C0 29 5B READ.B $295B 0A51EE 44 PUSH.6 $04 0A51EF 2D OR.L 0A51F0 D0 29 5B WRITE.B $295B 0A51F3 10 0E BR $00E ; => $0A5203 0A51F5 10 0B 32 CASE $32 ; SWITCH $0A51E7 0A51F8 C0 29 64 READ.B $2964 0A51FB 44 PUSH.6 $04 0A51FC 2D OR.L 0A51FD D0 29 64 WRITE.B $2964 0A5200 10 01 BR $001 ; => $0A5203 0A5202 00 DEFAULT ; SWITCH $0A51E7 0A5203 10 03 BR $003 ; => $0A5208 0A5205 57 PUSH.6 $17 0A5206 90 26 WRITE.B $26 0A5208 10 01 BR $001 ; => $0A520B 0A520A 00 DEFAULT ; SWITCH $0A516C 0A520B 32 02 ADDSP.B $02 0A520D 34 RETURN ; ---------------- End Function $0A5136 ---------------- ; ---------------- Begin 2144 Function $0A520E ---------------- ; A0 = $00400C; (A0) = SP + $3 ; called from $0A526C:$0A5280 ; called from $0A526C:$0A52A8 ; called from $0A526C:$0A52C2 ; called from $0A526C:$0A52CE ; called from $0A526C:$0A52DB ; called from $0A526C:$0A531B ; called from $0A526C:$0A5327 ; addr bytes opcode operands comment 0A5215 80 22 READ.B $22 0A5217 35 SWITCH 0A5218 10 0D 31 CASE $31 ; SWITCH $0A5217 0A521B C0 29 5B READ.B $295B 0A521E 8E 03 READ.L $03 0A5220 03 2F XORL.L 0A5222 D0 29 5B WRITE.B $295B 0A5225 10 10 BR $010 ; => $0A5237 0A5227 10 0D 32 CASE $32 ; SWITCH $0A5217 0A522A C0 29 64 READ.B $2964 0A522D 8E 03 READ.L $03 0A522F 03 2F XORL.L 0A5231 D0 29 64 WRITE.B $2964 0A5234 10 01 BR $001 ; => $0A5237 0A5236 00 DEFAULT ; SWITCH $0A5217 0A5237 32 04 ADDSP.B $04 0A5239 34 RETURN ; ---------------- End Function $0A520E ---------------- ; ---------------- Begin 2144 Function $0A523A ---------------- ; A0 = $00400C; (A0) = SP + $3 ; called from $0A526C:$0A5284 ; called from $0A526C:$0A52AD ; called from $0A526C:$0A52DF ; called from $0A526C:$0A532B ; addr bytes opcode operands comment 0A5241 04 FF PUSH.10 $0FF 0A5243 8E 03 READ.L $03 0A5245 28 SUB.L 0A5246 9E 03 WRITE.L $03 0A5248 80 22 READ.B $22 0A524A 35 SWITCH 0A524B 10 0C 31 CASE $31 ; SWITCH $0A524A 0A524E C0 29 5B READ.B $295B 0A5251 8E 03 READ.L $03 0A5253 2C AND.L 0A5254 D0 29 5B WRITE.B $295B 0A5257 10 0F BR $00F ; => $0A5268 0A5259 10 0C 32 CASE $32 ; SWITCH $0A524A 0A525C C0 29 64 READ.B $2964 0A525F 8E 03 READ.L $03 0A5261 2C AND.L 0A5262 D0 29 64 WRITE.B $2964 0A5265 10 01 BR $001 ; => $0A5268 0A5267 00 DEFAULT ; SWITCH $0A524A 0A5268 32 04 ADDSP.B $04 0A526A 34 RETURN ; ---------------- End Function $0A523A ---------------- ; ---------------- Begin 2144 Function $0A526C ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A5378:$0A5383 ; addr bytes opcode operands comment 0A5273 80 20 READ.B $20 0A5275 35 SWITCH 0A5276 10 40 10 CASE $10 ; SWITCH $0A5275 0A5279 80 23 READ.B $23 0A527B 35 SWITCH 0A527C 10 17 00 CASE $00 ; SWITCH $0A527B 0A527F 41 PUSH.6 $01 0A5280 30 00 75 BSR.68K $0075 ; => $0A520E 0A5283 60 PUSH.6 $20 0A5284 30 00 4D BSR.68K $004D ; => $0A523A 0A5287 40 PUSH.6 $00 0A5288 D0 50 A0 WRITE.B $50A0 0A528B 04 FF PUSH.10 $0FF 0A528D D0 50 9F WRITE.B $509F 0A5290 30 02 C7 BSR.68K $02C7 ; => $0A4FCC 0A5293 10 21 BR $021 ; => $0A52B6 0A5295 10 0D 01 CASE $01 ; SWITCH $0A527B 0A5298 30 02 F3 BSR.68K $02F3 ; => $0A4FA8 => $099642 0A529B 04 45 PUSH.10 $045 0A529D 90 21 WRITE.B $21 0A529F 30 01 9A BSR.68K $019A ; => $0A5108 0A52A2 10 12 BR $012 ; => $0A52B6 0A52A4 10 0F 02 CASE $02 ; SWITCH $0A527B 0A52A7 42 PUSH.6 $02 0A52A8 30 00 9D BSR.68K $009D ; => $0A520E 0A52AB 04 40 PUSH.10 $040 0A52AD 30 00 76 BSR.68K $0076 ; => $0A523A 0A52B0 30 02 E7 BSR.68K $02E7 ; => $0A4FCC 0A52B3 10 01 BR $001 ; => $0A52B6 0A52B5 00 DEFAULT ; SWITCH $0A527B 0A52B6 10 92 BR $092 ; => $0A534A 0A52B8 10 30 50 CASE $50 ; SWITCH $0A5275 0A52BB 80 23 READ.B $23 0A52BD 35 SWITCH 0A52BE 10 0A 00 CASE $00 ; SWITCH $0A52BD 0A52C1 50 PUSH.6 $10 0A52C2 30 00 B7 BSR.68K $00B7 ; => $0A520E 0A52C5 30 02 FC BSR.68K $02FC ; => $0A4FCC 0A52C8 10 1E BR $01E ; => $0A52E8 0A52CA 10 0A 01 CASE $01 ; SWITCH $0A52BD 0A52CD 48 PUSH.6 $08 0A52CE 30 00 C3 BSR.68K $00C3 ; => $0A520E 0A52D1 30 03 08 BSR.68K $0308 ; => $0A4FCC 0A52D4 10 12 BR $012 ; => $0A52E8 0A52D6 10 0F 02 CASE $02 ; SWITCH $0A52BD 0A52D9 04 40 PUSH.10 $040 0A52DB 30 00 D0 BSR.68K $00D0 ; => $0A520E 0A52DE 42 PUSH.6 $02 0A52DF 30 00 A8 BSR.68K $00A8 ; => $0A523A 0A52E2 30 03 19 BSR.68K $0319 ; => $0A4FCC 0A52E5 10 01 BR $001 ; => $0A52E8 0A52E7 00 DEFAULT ; SWITCH $0A52BD 0A52E8 10 60 BR $060 ; => $0A534A 0A52EA 10 4A 90 CASE $90 ; SWITCH $0A5275 0A52ED 80 23 READ.B $23 0A52EF 35 SWITCH 0A52F0 10 24 00 CASE $00 ; SWITCH $0A52EF 0A52F3 80 22 READ.B $22 0A52F5 35 SWITCH 0A52F6 10 0B 31 CASE $31 ; SWITCH $0A52F5 0A52F9 40 PUSH.6 $00 0A52FA D0 29 5B WRITE.B $295B 0A52FD 40 PUSH.6 $00 0A52FE D0 4E 94 WRITE.B $4E94 0A5301 10 0E BR $00E ; => $0A5311 0A5303 10 0B 32 CASE $32 ; SWITCH $0A52F5 0A5306 40 PUSH.6 $00 0A5307 D0 29 64 WRITE.B $2964 0A530A 40 PUSH.6 $00 0A530B D0 4F 98 WRITE.B $4F98 0A530E 10 01 BR $001 ; => $0A5311 0A5310 00 DEFAULT ; SWITCH $0A52F5 0A5311 30 03 48 BSR.68K $0348 ; => $0A4FCC 0A5314 10 1E BR $01E ; => $0A5334 0A5316 10 0B 01 CASE $01 ; SWITCH $0A52EF 0A5319 04 80 PUSH.10 $080 0A531B 30 01 10 BSR.68K $0110 ; => $0A520E 0A531E 30 03 55 BSR.68K $0355 ; => $0A4FCC 0A5321 10 11 BR $011 ; => $0A5334 0A5323 10 0E 02 CASE $02 ; SWITCH $0A52EF 0A5326 60 PUSH.6 $20 0A5327 30 01 1C BSR.68K $011C ; => $0A520E 0A532A 41 PUSH.6 $01 0A532B 30 00 F4 BSR.68K $00F4 ; => $0A523A 0A532E 30 03 65 BSR.68K $0365 ; => $0A4FCC 0A5331 10 01 BR $001 ; => $0A5334 0A5333 00 DEFAULT ; SWITCH $0A52EF 0A5334 10 14 BR $014 ; => $0A534A 0A5336 10 0E D0 CASE $D0 ; SWITCH $0A5275 0A5339 80 23 READ.B $23 0A533B 41 PUSH.6 $01 0A533C 27 ADD.L 0A533D 43 PUSH.6 $03 0A533E 2F MOD.L 0A533F 90 23 WRITE.B $23 0A5341 30 03 78 BSR.68K $0378 ; => $0A4FCC 0A5344 10 04 BR $004 ; => $0A534A 0A5346 00 DEFAULT ; SWITCH $0A5275 0A5347 30 03 9C BSR.68K $039C ; => $0A4FAE => $09D9DE 0A534A 34 RETURN ; ---------------- End Function $0A526C ---------------- ; ---------------- Begin 2144 Function $0A534C ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A5378:$0A5388 ; addr bytes opcode operands comment 0A5353 80 20 READ.B $20 0A5355 35 SWITCH 0A5356 10 09 10 CASE $10 ; SWITCH $0A5355 0A5359 71 PUSH.6 $31 0A535A 90 22 WRITE.B $22 0A535C 30 03 93 BSR.68K $0393 ; => $0A4FCC 0A535F 10 15 BR $015 ; => $0A5376 0A5361 10 09 90 CASE $90 ; SWITCH $0A5355 0A5364 72 PUSH.6 $32 0A5365 90 22 WRITE.B $22 0A5367 30 03 9E BSR.68K $039E ; => $0A4FCC 0A536A 10 0A BR $00A ; => $0A5376 0A536C 20 04 50 D0 CASE $50, $D0 ; SWITCH $0A5355 0A5370 10 04 BR $004 ; => $0A5376 0A5372 00 DEFAULT ; SWITCH $0A5355 0A5373 30 03 C8 BSR.68K $03C8 ; => $0A4FAE => $09D9DE 0A5376 34 RETURN ; ---------------- End Function $0A534C ---------------- ; ---------------- Begin 2144 Function $0A5378 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DBFF ; addr bytes opcode operands comment 0A537F 80 22 READ.B $22 0A5381 18 05 BRZ $005 ; => $0A5388 0A5383 30 01 1A BSR.68K $011A ; => $0A526C 0A5386 10 03 BR $003 ; => $0A538B 0A5388 30 00 3F BSR.68K $003F ; => $0A534C 0A538B 34 RETURN ; ---------------- End Function $0A5378 ---------------- ; ---------------- Begin 2144 Function $0A538C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D5C2:$09D5DC ; addr bytes opcode operands comment 0A5393 04 43 PUSH.10 $043 0A5395 90 21 WRITE.B $21 0A5397 30 04 0A BSR.68K $040A ; => $0A4F90 => $0034AA (CLEARSCREEN) (NATIVE) 0A539A 30 03 F5 BSR.68K $03F5 ; => $0A4FA8 => $099642 0A539D 40 PUSH.6 $00 0A539E 90 23 WRITE.B $23 0A53A0 40 PUSH.6 $00 0A53A1 90 22 WRITE.B $22 0A53A3 50 PUSH.6 $10 0A53A4 3F 0D 50 4F 52 54 31 20 20 DISP "PORT1 PORT2" 20 50 4F 52 54 32 0A53B3 C0 29 5B READ.B $295B 0A53B6 18 03 BRZ $003 ; => $0A53BB 0A53B8 6A PUSH.6 $2A 0A53B9 90 0A WRITE.B $0A 0A53BB C0 29 64 READ.B $2964 0A53BE 18 03 BRZ $003 ; => $0A53C3 0A53C0 6A PUSH.6 $2A 0A53C1 90 02 WRITE.B $02 0A53C3 34 RETURN ; ---------------- End Function $0A538C ---------------- ; ---------------- Begin 2144 Function $0A5418 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A5644:$0A5694 ; addr bytes opcode operands comment 0A541F C2 28 8F READ.L $288F 0A5422 03 2A LONG2FLOAT 0A5424 30 00 5D BSR.68K $005D ; => $0A53CA => $0A57D4 0A5427 C3 28 27 READ.F $2827 0A542A 30 00 63 BSR.68K $0063 ; => $0A53CA => $0A57D4 0A542D C3 28 2F READ.F $282F 0A5430 30 00 69 BSR.68K $0069 ; => $0A53CA => $0A57D4 0A5433 C3 28 37 READ.F $2837 0A5436 30 00 6F BSR.68K $006F ; => $0A53CA => $0A57D4 0A5439 C3 28 3F READ.F $283F 0A543C 30 00 75 BSR.68K $0075 ; => $0A53CA => $0A57D4 0A543F C3 28 47 READ.F $2847 0A5442 30 00 7B BSR.68K $007B ; => $0A53CA => $0A57D4 0A5445 C3 28 4F READ.F $284F 0A5448 30 00 81 BSR.68K $0081 ; => $0A53CA => $0A57D4 0A544B C3 28 57 READ.F $2857 0A544E 30 00 87 BSR.68K $0087 ; => $0A53CA => $0A57D4 0A5451 C3 28 5F READ.F $285F 0A5454 30 00 8D BSR.68K $008D ; => $0A53CA => $0A57D4 0A5457 C3 28 67 READ.F $2867 0A545A 30 00 93 BSR.68K $0093 ; => $0A53CA => $0A57D4 0A545D C3 28 6F READ.F $286F 0A5460 30 00 99 BSR.68K $0099 ; => $0A53CA => $0A57D4 0A5463 C3 28 87 READ.F $2887 0A5466 30 00 9F BSR.68K $009F ; => $0A53CA => $0A57D4 0A5469 C3 28 77 READ.F $2877 0A546C 42 PUSH.6 $02 0A546D 44 PUSH.6 $04 0A546E 30 00 71 BSR.68K $0071 ; => $0A5400 => $0A0076 0A5471 C3 28 7F READ.F $287F 0A5474 42 PUSH.6 $02 0A5475 44 PUSH.6 $04 0A5476 30 00 79 BSR.68K $0079 ; => $0A5400 => $0A0076 0A5479 C0 28 88 READ.B $2888 0A547C 43 PUSH.6 $03 0A547D 30 00 BC BSR.68K $00BC ; => $0A53C4 => $0A0036 0A5480 C0 28 89 READ.B $2889 0A5483 43 PUSH.6 $03 0A5484 30 00 C3 BSR.68K $00C3 ; => $0A53C4 => $0A0036 0A5487 C0 28 8A READ.B $288A 0A548A 41 PUSH.6 $01 0A548B 30 00 CA BSR.68K $00CA ; => $0A53C4 => $0A0036 0A548E C0 28 90 READ.B $2890 0A5491 43 PUSH.6 $03 0A5492 30 00 D1 BSR.68K $00D1 ; => $0A53C4 => $0A0036 0A5495 30 00 86 BSR.68K $0086 ; => $0A5412 => $09FDFE 0A5498 43 PUSH.6 $03 0A5499 30 00 D8 BSR.68K $00D8 ; => $0A53C4 => $0A0036 0A549C 34 RETURN ; ---------------- End Function $0A5418 ---------------- ; ---------------- Begin 2144 Function $0A549E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A5644:$0A5688 ; addr bytes opcode operands comment 0A54A5 31 02 SUBSP.B $02 0A54A7 C0 50 9D READ.B $509D 0A54AA 94 00 WRITE.B $00 0A54AC 84 00 READ.B $00 0A54AE 42 PUSH.6 $02 0A54AF 30 00 EE BSR.68K $00EE ; => $0A53C4 => $0A0036 0A54B2 84 00 READ.B $00 0A54B4 E1 01 61 READ.W $0161 0A54B7 03 2A LONG2FLOAT 0A54B9 43 PUSH.6 $03 0A54BA 55 PUSH.6 $15 0A54BB 30 00 B8 BSR.68K $00B8 ; => $0A5406 => $0A00D2 0A54BE 84 00 READ.B $00 0A54C0 E2 01 E5 READ.L $01E5 0A54C3 03 2A LONG2FLOAT 0A54C5 46 PUSH.6 $06 0A54C6 55 PUSH.6 $15 0A54C7 30 00 C4 BSR.68K $00C4 ; => $0A5406 => $0A00D2 0A54CA 84 00 READ.B $00 0A54CC E2 04 1B READ.L $041B 0A54CF 03 2A LONG2FLOAT 0A54D1 30 01 0A BSR.68K $010A ; => $0A53CA => $0A57D4 0A54D4 84 00 READ.B $00 0A54D6 E2 07 B7 READ.L $07B7 0A54D9 03 2A LONG2FLOAT 0A54DB 30 01 14 BSR.68K $0114 ; => $0A53CA => $0A57D4 0A54DE 84 00 READ.B $00 0A54E0 E3 07 33 READ.F $0733 0A54E3 30 01 1C BSR.68K $011C ; => $0A53CA => $0A57D4 0A54E6 84 00 READ.B $00 0A54E8 E3 06 2B READ.F $062B 0A54EB 30 01 24 BSR.68K $0124 ; => $0A53CA => $0A57D4 0A54EE 84 00 READ.B $00 0A54F0 E3 05 23 READ.F $0523 0A54F3 30 01 2C BSR.68K $012C ; => $0A53CA => $0A57D4 0A54F6 84 00 READ.B $00 0A54F8 E3 03 97 READ.F $0397 0A54FB 30 01 34 BSR.68K $0134 ; => $0A53CA => $0A57D4 0A54FE 84 00 READ.B $00 0A5500 E2 08 3B READ.L $083B 0A5503 03 2A LONG2FLOAT 0A5505 30 01 3E BSR.68K $013E ; => $0A53CA => $0A57D4 0A5508 84 00 READ.B $00 0A550A E2 18 37 READ.L $1837 0A550D 03 2A LONG2FLOAT 0A550F 30 01 48 BSR.68K $0148 ; => $0A53CA => $0A57D4 0A5512 84 00 READ.B $00 0A5514 E3 0C 5B READ.F $0C5B 0A5517 30 01 50 BSR.68K $0150 ; => $0A53CA => $0A57D4 0A551A 84 00 READ.B $00 0A551C E3 0A 4B READ.F $0A4B 0A551F 30 01 58 BSR.68K $0158 ; => $0A53CA => $0A57D4 0A5522 84 00 READ.B $00 0A5524 E3 0B 53 READ.F $0B53 0A5527 30 01 60 BSR.68K $0160 ; => $0A53CA => $0A57D4 0A552A 84 00 READ.B $00 0A552C E3 09 43 READ.F $0943 0A552F 30 01 68 BSR.68K $0168 ; => $0A53CA => $0A57D4 0A5532 84 00 READ.B $00 0A5534 E3 10 7B READ.F $107B 0A5537 30 01 70 BSR.68K $0170 ; => $0A53CA => $0A57D4 0A553A 84 00 READ.B $00 0A553C E3 11 83 READ.F $1183 0A553F 30 01 78 BSR.68K $0178 ; => $0A53CA => $0A57D4 0A5542 84 00 READ.B $00 0A5544 E3 0E 6B READ.F $0E6B 0A5547 30 01 80 BSR.68K $0180 ; => $0A53CA => $0A57D4 0A554A 84 00 READ.B $00 0A554C E3 0D 63 READ.F $0D63 0A554F 30 01 88 BSR.68K $0188 ; => $0A53CA => $0A57D4 0A5552 84 00 READ.B $00 0A5554 E3 0F 73 READ.F $0F73 0A5557 30 01 90 BSR.68K $0190 ; => $0A53CA => $0A57D4 0A555A 84 00 READ.B $00 0A555C E3 15 A3 READ.F $15A3 0A555F 30 01 98 BSR.68K $0198 ; => $0A53CA => $0A57D4 0A5562 84 00 READ.B $00 0A5564 E3 14 9B READ.F $149B 0A5567 30 01 A0 BSR.68K $01A0 ; => $0A53CA => $0A57D4 0A556A 84 00 READ.B $00 0A556C E3 13 93 READ.F $1393 0A556F 30 01 A8 BSR.68K $01A8 ; => $0A53CA => $0A57D4 0A5572 84 00 READ.B $00 0A5574 E3 12 8B READ.F $128B 0A5577 30 01 B0 BSR.68K $01B0 ; => $0A53CA => $0A57D4 0A557A 84 00 READ.B $00 0A557C E3 17 B3 READ.F $17B3 0A557F 30 01 B8 BSR.68K $01B8 ; => $0A53CA => $0A57D4 0A5582 84 00 READ.B $00 0A5584 E3 16 AB READ.F $16AB 0A5587 30 01 C0 BSR.68K $01C0 ; => $0A53CA => $0A57D4 0A558A 84 00 READ.B $00 0A558C E0 02 6D READ.B $026D 0A558F 41 PUSH.6 $01 0A5590 30 01 CF BSR.68K $01CF ; => $0A53C4 => $0A0036 0A5593 84 00 READ.B $00 0A5595 E0 02 8F READ.B $028F 0A5598 41 PUSH.6 $01 0A5599 30 01 D8 BSR.68K $01D8 ; => $0A53C4 => $0A0036 0A559C 84 00 READ.B $00 0A559E E0 02 4B READ.B $024B 0A55A1 41 PUSH.6 $01 0A55A2 30 01 E1 BSR.68K $01E1 ; => $0A53C4 => $0A0036 0A55A5 84 00 READ.B $00 0A55A7 E0 02 07 READ.B $0207 0A55AA 41 PUSH.6 $01 0A55AB 30 01 EA BSR.68K $01EA ; => $0A53C4 => $0A0036 0A55AE 84 00 READ.B $00 0A55B0 E0 02 29 READ.B $0229 0A55B3 43 PUSH.6 $03 0A55B4 30 01 F3 BSR.68K $01F3 ; => $0A53C4 => $0A0036 0A55B7 84 00 READ.B $00 0A55B9 E0 18 59 READ.B $1859 0A55BC 43 PUSH.6 $03 0A55BD 30 01 FC BSR.68K $01FC ; => $0A53C4 => $0A0036 0A55C0 84 00 READ.B $00 0A55C2 30 01 B9 BSR.68K $01B9 ; => $0A540C => $09FEDC 0A55C5 43 PUSH.6 $03 0A55C6 30 02 05 BSR.68K $0205 ; => $0A53C4 => $0A0036 0A55C9 32 02 ADDSP.B $02 0A55CB 34 RETURN ; ---------------- End Function $0A549E ---------------- ; ---------------- Begin 2144 Function $0A55CC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A4E0C:$0A4EFD ; addr bytes opcode operands comment 0A55D3 31 02 SUBSP.B $02 0A55D5 C0 44 23 READ.B $4423 0A55D8 C0 44 22 READ.B $4422 0A55DB 2D OR.L 0A55DC C0 44 21 READ.B $4421 0A55DF 2D OR.L 0A55E0 C0 44 20 READ.B $4420 0A55E3 2D OR.L 0A55E4 C0 44 1F READ.B $441F 0A55E7 2D OR.L 0A55E8 18 57 BRZ $057 ; => $0A5641 0A55EA C0 50 9F READ.B $509F 0A55ED 18 2B BRZ $02B ; => $0A561A 0A55EF 40 PUSH.6 $00 0A55F0 D0 50 9F WRITE.B $509F 0A55F3 40 PUSH.6 $00 0A55F4 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A55F7 C0 29 9A READ.B $299A 0A55FA 38 00 17 BLS.B $0017 ; => $0A5614 0A55FD 84 00 READ.B $00 0A55FF E0 44 23 READ.B $4423 0A5602 18 0B BRZ $00B ; => $0A560F 0A5604 30 02 25 BSR.68K $0225 ; => $0A53E2 => $09116C 0A5607 84 00 READ.B $00 0A5609 E0 40 09 READ.B $4009 0A560C 30 02 33 BSR.68K $0233 ; => $0A53DC => $0911F4 0A560F 37 10 00 00 1D _23d2 $0000, $001D 0A5614 30 02 29 BSR.68K $0229 ; => $0A53EE => $091154 0A5617 30 02 44 BSR.68K $0244 ; => $0A53D6 => $091178 0A561A 40 PUSH.6 $00 0A561B 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A561E C0 29 9A READ.B $299A 0A5621 38 00 17 BLS.B $0017 ; => $0A563B 0A5624 84 00 READ.B $00 0A5626 E0 44 23 READ.B $4423 0A5629 18 0B BRZ $00B ; => $0A5636 0A562B 30 02 46 BSR.68K $0246 ; => $0A53E8 => $091148 0A562E 84 00 READ.B $00 0A5630 D0 51 01 WRITE.B $5101 0A5633 30 02 66 BSR.68K $0266 ; => $0A53D0 => $091414 0A5636 37 10 00 00 1D _23d2 $0000, $001D 0A563B 30 02 4A BSR.68K $024A ; => $0A53F4 => $091160 0A563E 30 02 47 BSR.68K $0247 ; => $0A53FA => $0913DC 0A5641 32 02 ADDSP.B $02 0A5643 34 RETURN ; ---------------- End Function $0A55CC ---------------- ; ---------------- Begin 2144 Function $0A5644 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A4E0C:$0A4EDF ; addr bytes opcode operands comment 0A564B 31 02 SUBSP.B $02 0A564D C0 44 23 READ.B $4423 0A5650 C0 44 22 READ.B $4422 0A5653 2D OR.L 0A5654 C0 44 21 READ.B $4421 0A5657 2D OR.L 0A5658 C0 44 20 READ.B $4420 0A565B 2D OR.L 0A565C C0 44 1F READ.B $441F 0A565F 2D OR.L 0A5660 19 2D BRZ $12D ; => $0A578F 0A5662 C0 50 9F READ.B $509F 0A5665 18 30 BRZ $030 ; => $0A5697 0A5667 40 PUSH.6 $00 0A5668 D0 50 9F WRITE.B $509F 0A566B 40 PUSH.6 $00 0A566C 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A566F C0 29 9A READ.B $299A 0A5672 38 00 1B BLS.B $001B ; => $0A5690 0A5675 84 00 READ.B $00 0A5677 E0 44 23 READ.B $4423 0A567A 18 0F BRZ $00F ; => $0A568B 0A567C 03 30 01 2A TRAP1 "*" 0A5680 84 00 READ.B $00 0A5682 E0 40 09 READ.B $4009 0A5685 D0 50 9D WRITE.B $509D 0A5688 30 01 ED BSR.68K $01ED ; => $0A549E 0A568B 37 10 00 00 21 _23d2 $0000, $0021 0A5690 03 30 01 21 TRAP1 "!" 0A5694 30 02 7F BSR.68K $027F ; => $0A5418 0A5697 40 PUSH.6 $00 0A5698 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A569B C0 29 9A READ.B $299A 0A569E 38 00 B7 BLS.B $00B7 ; => $0A5758 0A56A1 84 00 READ.B $00 0A56A3 E0 44 23 READ.B $4423 0A56A6 18 AB BRZ $0AB ; => $0A5753 0A56A8 03 30 01 5B TRAP1 "[" 0A56AC 84 00 READ.B $00 0A56AE E3 46 B7 READ.F $46B7 0A56B1 30 02 EA BSR.68K $02EA ; => $0A53CA => $0A57D4 0A56B4 84 00 READ.B $00 0A56B6 E3 46 53 READ.F $4653 0A56B9 30 02 F2 BSR.68K $02F2 ; => $0A53CA => $0A57D4 0A56BC 84 00 READ.B $00 0A56BE E3 47 61 READ.F $4761 0A56C1 30 02 FA BSR.68K $02FA ; => $0A53CA => $0A57D4 0A56C4 84 00 READ.B $00 0A56C6 E3 4C 45 READ.F $4C45 0A56C9 30 03 02 BSR.68K $0302 ; => $0A53CA => $0A57D4 0A56CC 84 00 READ.B $00 0A56CE E3 49 BB READ.F $49BB 0A56D1 30 03 0A BSR.68K $030A ; => $0A53CA => $0A57D4 0A56D4 84 00 READ.B $00 0A56D6 E3 4A 0B READ.F $4A0B 0A56D9 30 03 12 BSR.68K $0312 ; => $0A53CA => $0A57D4 0A56DC 84 00 READ.B $00 0A56DE E3 42 D9 READ.F $42D9 0A56E1 30 03 1A BSR.68K $031A ; => $0A53CA => $0A57D4 0A56E4 84 00 READ.B $00 0A56E6 E3 49 07 READ.F $4907 0A56E9 30 03 22 BSR.68K $0322 ; => $0A53CA => $0A57D4 0A56EC 84 00 READ.B $00 0A56EE E3 4B 73 READ.F $4B73 0A56F1 30 03 2A BSR.68K $032A ; => $0A53CA => $0A57D4 0A56F4 3E PUSH.W $0000 0A56F5 30 03 2E BSR.68K $032E ; => $0A53CA => $0A57D4 0A56F8 3E PUSH.W $0000 0A56F9 30 03 32 BSR.68K $0332 ; => $0A53CA => $0A57D4 0A56FC 84 00 READ.B $00 0A56FE E0 49 6B READ.B $496B 0A5701 43 PUSH.6 $03 0A5702 30 03 41 BSR.68K $0341 ; => $0A53C4 => $0A0036 0A5705 84 00 READ.B $00 0A5707 E0 49 11 READ.B $4911 0A570A 43 PUSH.6 $03 0A570B 30 03 4A BSR.68K $034A ; => $0A53C4 => $0A0036 0A570E 84 00 READ.B $00 0A5710 E3 41 49 READ.F $4149 0A5713 3B 40 0C 00 00 00 00 00 00 PUSH.F $400C000000000000 ; float = 3.500000 0A571C 03 22 LTE.F 0A571E 18 11 BRZ $011 ; => $0A5731 0A5720 84 00 READ.B $00 0A5722 E3 41 49 READ.F $4149 0A5725 3B 40 50 00 00 00 00 00 00 PUSH.F $4050000000000000 ; float = 64.000000 0A572E 22 MUL.F 0A572F 10 05 BR $005 ; => $0A5736 0A5731 84 00 READ.B $00 0A5733 E3 41 49 READ.F $4149 0A5736 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A573F 20 ADD.F 0A5740 03 29 FLOAT2LONG 0A5742 43 PUSH.6 $03 0A5743 30 03 82 BSR.68K $0382 ; => $0A53C4 => $0A0036 0A5746 84 00 READ.B $00 0A5748 E0 40 09 READ.B $4009 0A574B 42 PUSH.6 $02 0A574C 30 03 8B BSR.68K $038B ; => $0A53C4 => $0A0036 0A574F 03 30 01 5D TRAP1 "]" 0A5753 37 10 00 00 BD _23d2 $0000, $00BD 0A5758 03 30 01 28 TRAP1 "(" 0A575C 83 37 READ.F $37 0A575E 30 03 97 BSR.68K $0397 ; => $0A53CA => $0A57D4 0A5761 83 3F READ.F $3F 0A5763 30 03 9C BSR.68K $039C ; => $0A53CA => $0A57D4 0A5766 83 47 READ.F $47 0A5768 30 03 A1 BSR.68K $03A1 ; => $0A53CA => $0A57D4 0A576B 83 4F READ.F $4F 0A576D 30 03 A6 BSR.68K $03A6 ; => $0A53CA => $0A57D4 0A5770 83 57 READ.F $57 0A5772 30 03 AB BSR.68K $03AB ; => $0A53CA => $0A57D4 0A5775 83 5F READ.F $5F 0A5777 30 03 B0 BSR.68K $03B0 ; => $0A53CA => $0A57D4 0A577A 83 67 READ.F $67 0A577C 30 03 B5 BSR.68K $03B5 ; => $0A53CA => $0A57D4 0A577F C3 55 19 READ.F $5519 0A5782 30 03 BB BSR.68K $03BB ; => $0A53CA => $0A57D4 0A5785 C3 56 1D READ.F $561D 0A5788 30 03 C1 BSR.68K $03C1 ; => $0A53CA => $0A57D4 0A578B 03 30 01 29 TRAP1 ")" 0A578F 32 02 ADDSP.B $02 0A5791 34 RETURN ; ---------------- End Function $0A5644 ---------------- ; ---------------- Begin 2144 Function $0A57D4 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $095216:$0952AA ; called from $0984E2:$098527 ; called from $0986B2:$0988C7 ; called from $0986B2:$098986 ; called from $098A2C:$098AC0 ; called from $098B98:$098E2B ; called from $098B98:$098E8C ; called from $098B98:$098EED ; called from $098B98:$09906D ; called from $098B98:$09912A ; called from $098B98:$099159 ; called from $0A5418:$0A5424 ; called from $0A5418:$0A542A ; called from $0A5418:$0A5430 ; called from $0A5418:$0A5436 ; called from $0A5418:$0A543C ; called from $0A5418:$0A5442 ; called from $0A5418:$0A5448 ; called from $0A5418:$0A544E ; called from $0A5418:$0A5454 ; called from $0A5418:$0A545A ; called from $0A5418:$0A5460 ; called from $0A5418:$0A5466 ; called from $0A549E:$0A54D1 ; called from $0A549E:$0A54DB ; called from $0A549E:$0A54E3 ; called from $0A549E:$0A54EB ; called from $0A549E:$0A54F3 ; called from $0A549E:$0A54FB ; called from $0A549E:$0A5505 ; called from $0A549E:$0A550F ; called from $0A549E:$0A5517 ; called from $0A549E:$0A551F ; called from $0A549E:$0A5527 ; called from $0A549E:$0A552F ; called from $0A549E:$0A5537 ; called from $0A549E:$0A553F ; called from $0A549E:$0A5547 ; called from $0A549E:$0A554F ; called from $0A549E:$0A5557 ; called from $0A549E:$0A555F ; called from $0A549E:$0A5567 ; called from $0A549E:$0A556F ; called from $0A549E:$0A5577 ; called from $0A549E:$0A557F ; called from $0A549E:$0A5587 ; called from $0A5644:$0A56B1 ; called from $0A5644:$0A56B9 ; called from $0A5644:$0A56C1 ; called from $0A5644:$0A56C9 ; called from $0A5644:$0A56D1 ; called from $0A5644:$0A56D9 ; called from $0A5644:$0A56E1 ; called from $0A5644:$0A56E9 ; called from $0A5644:$0A56F1 ; called from $0A5644:$0A56F5 ; called from $0A5644:$0A56F9 ; called from $0A5644:$0A575E ; called from $0A5644:$0A5763 ; called from $0A5644:$0A5768 ; called from $0A5644:$0A576D ; called from $0A5644:$0A5772 ; called from $0A5644:$0A5777 ; called from $0A5644:$0A577C ; called from $0A5644:$0A5782 ; called from $0A5644:$0A5788 ; called from $0A5804:$0A585E ; called from $0A5804:$0A5871 ; called from $0A5804:$0A5884 ; called from $0A5804:$0A5897 ; called from $0A5804:$0A58AA ; called from $0A5804:$0A58BD ; called from $0A5804:$0A58D0 ; called from $0A5804:$0A58E3 ; called from $0A5804:$0A58F9 ; called from $0A5804:$0A590C ; called from $0A5804:$0A591F ; called from $0A59F6:$0A5A88 ; called from $0A59F6:$0A5A9F ; called from $0A59F6:$0A5AB4 ; called from $0A59F6:$0A5AC9 ; called from $0A59F6:$0A5ADE ; called from $0A59F6:$0A5AF3 ; called from $0A59F6:$0A5B0A ; called from $0A59F6:$0A5B21 ; called from $0A59F6:$0A5B36 ; called from $0A59F6:$0A5B4B ; called from $0A59F6:$0A5B60 ; called from $0A59F6:$0A5B75 ; called from $0A59F6:$0A5B8A ; called from $0A59F6:$0A5B9F ; called from $0A59F6:$0A5BB4 ; called from $0A59F6:$0A5BC9 ; called from $0A59F6:$0A5BDE ; called from $0A59F6:$0A5BF3 ; called from $0A59F6:$0A5C08 ; called from $0A59F6:$0A5C1D ; called from $0A59F6:$0A5C32 ; called from $0A59F6:$0A5C47 ; called from $0A59F6:$0A5C5C ; called from $0A59F6:$0A5D9B ; called from $0A59F6:$0A5DB0 ; called from $0A59F6:$0A5DC5 ; called from $0A59F6:$0A5DDA ; called from $0A59F6:$0A5DEF ; called from $0A59F6:$0A5E04 ; called from $0A59F6:$0A5E19 ; called from $0A59F6:$0A5E2E ; called from $0AA80A:$0AA86A ; called from $0AF50C:$0AF5EC ; addr bytes opcode operands comment 0A57DB 87 07 READ.F $07 0A57DD 4B PUSH.6 $0B 0A57DE 30 00 37 BSR.68K $0037 ; => $0A57AA => $0A0118 0A57E1 32 08 ADDSP.B $08 0A57E3 34 RETURN ; ---------------- End Function $0A57D4 ---------------- ; ---------------- Begin 2144 Function $0A57E4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A59F6:$0A5E5A ; addr bytes opcode operands comment 0A57EB 31 02 SUBSP.B $02 0A57ED 30 00 34 BSR.68K $0034 ; => $0A57BC => $0A05A4 (NATIVE) 0A57F0 41 PUSH.6 $01 0A57F1 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A57F4 5E PUSH.6 $1E 0A57F5 38 00 09 BLS.B $0009 ; => $0A5801 0A57F8 6D PUSH.6 $2D 0A57F9 30 00 6A BSR.68K $006A ; => $0A5792 => $0A056A (NATIVE) 0A57FC 37 10 00 00 0D _23d2 $0000, $000D 0A5801 32 02 ADDSP.B $02 0A5803 34 RETURN ; ---------------- End Function $0A57E4 ---------------- ; ---------------- Begin 2144 Function $0A5804 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A4E0C:$0A4F35 ; addr bytes opcode operands comment 0A580B C0 29 5B READ.B $295B 0A580E 04 F7 PUSH.10 $0F7 0A5810 2C AND.L 0A5811 D0 29 5B WRITE.B $295B 0A5814 C0 29 64 READ.B $2964 0A5817 04 F7 PUSH.10 $0F7 0A5819 2C AND.L 0A581A D0 29 64 WRITE.B $2964 0A581D 30 00 64 BSR.68K $0064 ; => $0A57BC => $0A05A4 (NATIVE) 0A5820 30 00 67 BSR.68K $0067 ; => $0A57BC => $0A05A4 (NATIVE) 0A5823 30 00 6A BSR.68K $006A ; => $0A57BC => $0A05A4 (NATIVE) 0A5826 03 30 09 41 57 4E 2E 2E 2E TRAP1 "AWN..... " 2E 2E 20 0A5832 C1 20 FF READ.W $20FF 0A5835 43 PUSH.6 $03 0A5836 30 00 A1 BSR.68K $00A1 ; => $0A5798 => $0A0036 0A5839 03 30 0A 20 20 44 45 43 4F TRAP1 " DECODED " 44 45 44 20 0A5846 C2 28 8F READ.L $288F 0A5849 03 2A LONG2FLOAT 0A584B 30 00 9E BSR.68K $009E ; => $0A57B0 => $0A03BC 0A584E 30 00 95 BSR.68K $0095 ; => $0A57BC => $0A05A4 (NATIVE) 0A5851 03 30 07 41 4C 50 48 41 30 TRAP1 "ALPHA0." 2E 0A585B C3 28 27 READ.F $2827 0A585E 30 00 8D BSR.68K $008D ; => $0A57D4 0A5861 30 00 A8 BSR.68K $00A8 ; => $0A57BC => $0A05A4 (NATIVE) 0A5864 03 30 07 41 4C 50 48 41 31 TRAP1 "ALPHA1." 2E 0A586E C3 28 2F READ.F $282F 0A5871 30 00 A0 BSR.68K $00A0 ; => $0A57D4 0A5874 30 00 BB BSR.68K $00BB ; => $0A57BC => $0A05A4 (NATIVE) 0A5877 03 30 07 41 4C 50 48 41 32 TRAP1 "ALPHA2." 2E 0A5881 C3 28 37 READ.F $2837 0A5884 30 00 B3 BSR.68K $00B3 ; => $0A57D4 0A5887 30 00 CE BSR.68K $00CE ; => $0A57BC => $0A05A4 (NATIVE) 0A588A 03 30 07 41 4C 50 48 41 33 TRAP1 "ALPHA3." 2E 0A5894 C3 28 3F READ.F $283F 0A5897 30 00 C6 BSR.68K $00C6 ; => $0A57D4 0A589A 30 00 E1 BSR.68K $00E1 ; => $0A57BC => $0A05A4 (NATIVE) 0A589D 03 30 07 42 45 54 41 30 2E TRAP1 "BETA0.." 2E 0A58A7 C3 28 47 READ.F $2847 0A58AA 30 00 D9 BSR.68K $00D9 ; => $0A57D4 0A58AD 30 00 F4 BSR.68K $00F4 ; => $0A57BC => $0A05A4 (NATIVE) 0A58B0 03 30 07 42 45 54 41 31 2E TRAP1 "BETA1.." 2E 0A58BA C3 28 4F READ.F $284F 0A58BD 30 00 EC BSR.68K $00EC ; => $0A57D4 0A58C0 30 01 07 BSR.68K $0107 ; => $0A57BC => $0A05A4 (NATIVE) 0A58C3 03 30 07 42 45 54 41 32 2E TRAP1 "BETA2.." 2E 0A58CD C3 28 57 READ.F $2857 0A58D0 30 00 FF BSR.68K $00FF ; => $0A57D4 0A58D3 30 01 1A BSR.68K $011A ; => $0A57BC => $0A05A4 (NATIVE) 0A58D6 03 30 07 42 45 54 41 33 2E TRAP1 "BETA3.." 2E 0A58E0 C3 28 5F READ.F $285F 0A58E3 30 01 12 BSR.68K $0112 ; => $0A57D4 0A58E6 30 01 2D BSR.68K $012D ; => $0A57BC => $0A05A4 (NATIVE) 0A58E9 30 01 30 BSR.68K $0130 ; => $0A57BC => $0A05A4 (NATIVE) 0A58EC 03 30 07 41 30 2E 2E 2E 2E TRAP1 "A0....." 2E 0A58F6 C3 28 67 READ.F $2867 0A58F9 30 01 28 BSR.68K $0128 ; => $0A57D4 0A58FC 30 01 43 BSR.68K $0143 ; => $0A57BC => $0A05A4 (NATIVE) 0A58FF 03 30 07 41 31 2E 2E 2E 2E TRAP1 "A1....." 2E 0A5909 C3 28 6F READ.F $286F 0A590C 30 01 3B BSR.68K $013B ; => $0A57D4 0A590F 30 01 56 BSR.68K $0156 ; => $0A57BC => $0A05A4 (NATIVE) 0A5912 03 30 07 54 20 53 55 42 4F TRAP1 "T SUBOT" 54 0A591C C3 28 87 READ.F $2887 0A591F 30 01 4E BSR.68K $014E ; => $0A57D4 0A5922 30 01 69 BSR.68K $0169 ; => $0A57BC => $0A05A4 (NATIVE) 0A5925 03 30 07 44 20 54 4C 53 2E TRAP1 "D TLS.." 2E 0A592F C3 28 77 READ.F $2877 0A5932 42 PUSH.6 $02 0A5933 44 PUSH.6 $04 0A5934 30 01 99 BSR.68K $0199 ; => $0A579E => $0A0076 0A5937 30 01 7E BSR.68K $017E ; => $0A57BC => $0A05A4 (NATIVE) 0A593A 03 30 07 44 20 54 4C 53 46 TRAP1 "D TLSF." 2E 0A5944 C3 28 7F READ.F $287F 0A5947 42 PUSH.6 $02 0A5948 44 PUSH.6 $04 0A5949 30 01 AE BSR.68K $01AE ; => $0A579E => $0A0076 0A594C 30 01 93 BSR.68K $0193 ; => $0A57BC => $0A05A4 (NATIVE) 0A594F 03 30 08 57 4E 20 53 55 42 TRAP1 "WN SUBT " 54 20 0A595A C0 28 88 READ.B $2888 0A595D 43 PUSH.6 $03 0A595E 30 01 C9 BSR.68K $01C9 ; => $0A5798 => $0A0036 0A5961 30 01 A8 BSR.68K $01A8 ; => $0A57BC => $0A05A4 (NATIVE) 0A5964 03 30 08 57 4E 20 4C 53 46 TRAP1 "WN LSF. " 2E 20 0A596F C0 28 89 READ.B $2889 0A5972 43 PUSH.6 $03 0A5973 30 01 DE BSR.68K $01DE ; => $0A5798 => $0A0036 0A5976 30 01 BD BSR.68K $01BD ; => $0A57BC => $0A05A4 (NATIVE) 0A5979 03 30 08 44 41 59 20 4E 55 TRAP1 "DAY NUM " 4D 20 0A5984 C0 28 8A READ.B $288A 0A5987 41 PUSH.6 $01 0A5988 30 01 F3 BSR.68K $01F3 ; => $0A5798 => $0A0036 0A598B 30 01 D2 BSR.68K $01D2 ; => $0A57BC => $0A05A4 (NATIVE) 0A598E 03 30 08 56 41 4C 49 44 2E TRAP1 "VALID.. " 2E 20 0A5999 C0 28 90 READ.B $2890 0A599C 43 PUSH.6 $03 0A599D 30 02 08 BSR.68K $0208 ; => $0A5798 => $0A0036 0A59A0 30 01 ED BSR.68K $01ED ; => $0A57B6 => $0A0584 (NATIVE) 0A59A3 30 01 D8 BSR.68K $01D8 ; => $0A57CE => $09FDFE 0A59A6 43 PUSH.6 $03 0A59A7 30 02 12 BSR.68K $0212 ; => $0A5798 => $0A0036 0A59AA 30 01 F1 BSR.68K $01F1 ; => $0A57BC => $0A05A4 (NATIVE) 0A59AD 30 01 F4 BSR.68K $01F4 ; => $0A57BC => $0A05A4 (NATIVE) 0A59B0 34 RETURN ; ---------------- End Function $0A5804 ---------------- ; ---------------- Begin 2144 Function $0A59B2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A59F6:$0A5E57 ; addr bytes opcode operands comment 0A59B9 31 02 SUBSP.B $02 0A59BB 03 30 09 4D 45 53 53 41 47 TRAP1 "MESSAGE "" 45 20 22 0A59C7 40 PUSH.6 $00 0A59C8 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A59CB 55 PUSH.6 $15 0A59CC 38 00 1F BLS.B $001F ; => $0A59EE 0A59CF 84 00 READ.B $00 0A59D1 E0 28 A7 READ.B $28A7 0A59D4 94 01 WRITE.B $01 0A59D6 84 01 READ.B $01 0A59D8 5F PUSH.6 $1F 0A59D9 03 25 LT.L 0A59DB 84 01 READ.B $01 0A59DD 04 7F PUSH.10 $07F 0A59DF 03 26 GT.L 0A59E1 2C AND.L 0A59E2 18 05 BRZ $005 ; => $0A59E9 0A59E4 84 01 READ.B $01 0A59E6 30 02 57 BSR.68K $0257 ; => $0A5792 => $0A056A (NATIVE) 0A59E9 37 10 00 00 23 _23d2 $0000, $0023 0A59EE 03 30 01 22 TRAP1 """ 0A59F2 32 02 ADDSP.B $02 0A59F4 34 RETURN ; ---------------- End Function $0A59B2 ---------------- ; ---------------- Begin 2144 Function $0A59F6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A5E64:$0A5EA1 ; called from $0A5E64:$0A5EAB ; addr bytes opcode operands comment 0A59FD 31 02 SUBSP.B $02 0A59FF C0 29 5B READ.B $295B 0A5A02 04 FB PUSH.10 $0FB 0A5A04 2C AND.L 0A5A05 D0 29 5B WRITE.B $295B 0A5A08 C0 29 64 READ.B $2964 0A5A0B 04 FB PUSH.10 $0FB 0A5A0D 2C AND.L 0A5A0E D0 29 64 WRITE.B $2964 0A5A11 30 02 58 BSR.68K $0258 ; => $0A57BC => $0A05A4 (NATIVE) 0A5A14 30 02 5B BSR.68K $025B ; => $0A57BC => $0A05A4 (NATIVE) 0A5A17 C0 50 9D READ.B $509D 0A5A1A 94 00 WRITE.B $00 0A5A1C 03 30 08 50 52 4E 2E 2E 2E TRAP1 "PRN.... " 2E 20 0A5A27 84 00 READ.B $00 0A5A29 42 PUSH.6 $02 0A5A2A 30 02 95 BSR.68K $0295 ; => $0A5798 => $0A0036 0A5A2D 30 02 74 BSR.68K $0274 ; => $0A57BC => $0A05A4 (NATIVE) 0A5A30 03 30 08 57 4E 2E 2E 2E 2E TRAP1 "WN..... " 2E 20 0A5A3B 84 00 READ.B $00 0A5A3D E1 01 61 READ.W $0161 0A5A40 43 PUSH.6 $03 0A5A41 30 02 AC BSR.68K $02AC ; => $0A5798 => $0A0036 0A5A44 30 02 91 BSR.68K $0291 ; => $0A57B6 => $0A0584 (NATIVE) 0A5A47 84 00 READ.B $00 0A5A49 E2 01 E5 READ.L $01E5 0A5A4C 3D 00 09 3A 80 PUSH.L $00093A80 0A5A51 84 00 READ.B $00 0A5A53 E1 01 61 READ.W $0161 0A5A56 29 MUL.L 0A5A57 27 ADD.L 0A5A58 03 2A LONG2FLOAT 0A5A5A 30 02 AD BSR.68K $02AD ; => $0A57B0 => $0A03BC 0A5A5D 30 02 A4 BSR.68K $02A4 ; => $0A57BC => $0A05A4 (NATIVE) 0A5A60 03 30 08 54 4F 57 2E 2E 2E TRAP1 "TOW.... " 2E 20 0A5A6B 84 00 READ.B $00 0A5A6D E2 01 E5 READ.L $01E5 0A5A70 46 PUSH.6 $06 0A5A71 30 02 DC BSR.68K $02DC ; => $0A5798 => $0A0036 0A5A74 30 02 BB BSR.68K $02BB ; => $0A57BC => $0A05A4 (NATIVE) 0A5A77 03 30 07 49 4F 44 43 2E 2E TRAP1 "IODC..." 2E 0A5A81 84 00 READ.B $00 0A5A83 E2 04 1B READ.L $041B 0A5A86 03 2A LONG2FLOAT 0A5A88 30 02 B7 BSR.68K $02B7 ; => $0A57D4 0A5A8B 30 02 D2 BSR.68K $02D2 ; => $0A57BC => $0A05A4 (NATIVE) 0A5A8E 03 30 07 54 4F 43 2E 2E 2E TRAP1 "TOC...." 2E 0A5A98 84 00 READ.B $00 0A5A9A E2 07 B7 READ.L $07B7 0A5A9D 03 2A LONG2FLOAT 0A5A9F 30 02 CE BSR.68K $02CE ; => $0A57D4 0A5AA2 30 02 E9 BSR.68K $02E9 ; => $0A57BC => $0A05A4 (NATIVE) 0A5AA5 03 30 07 41 46 30 2E 2E 2E TRAP1 "AF0...." 2E 0A5AAF 84 00 READ.B $00 0A5AB1 E3 07 33 READ.F $0733 0A5AB4 30 02 E3 BSR.68K $02E3 ; => $0A57D4 0A5AB7 30 02 FE BSR.68K $02FE ; => $0A57BC => $0A05A4 (NATIVE) 0A5ABA 03 30 07 41 46 31 2E 2E 2E TRAP1 "AF1...." 2E 0A5AC4 84 00 READ.B $00 0A5AC6 E3 06 2B READ.F $062B 0A5AC9 30 02 F8 BSR.68K $02F8 ; => $0A57D4 0A5ACC 30 03 13 BSR.68K $0313 ; => $0A57BC => $0A05A4 (NATIVE) 0A5ACF 03 30 07 41 46 32 2E 2E 2E TRAP1 "AF2...." 2E 0A5AD9 84 00 READ.B $00 0A5ADB E3 05 23 READ.F $0523 0A5ADE 30 03 0D BSR.68K $030D ; => $0A57D4 0A5AE1 30 03 28 BSR.68K $0328 ; => $0A57BC => $0A05A4 (NATIVE) 0A5AE4 03 30 07 54 47 44 2E 2E 2E TRAP1 "TGD...." 2E 0A5AEE 84 00 READ.B $00 0A5AF0 E3 03 97 READ.F $0397 0A5AF3 30 03 22 BSR.68K $0322 ; => $0A57D4 0A5AF6 30 03 3D BSR.68K $033D ; => $0A57BC => $0A05A4 (NATIVE) 0A5AF9 03 30 07 49 4F 44 45 2E 2E TRAP1 "IODE..." 2E 0A5B03 84 00 READ.B $00 0A5B05 E2 08 3B READ.L $083B 0A5B08 03 2A LONG2FLOAT 0A5B0A 30 03 39 BSR.68K $0339 ; => $0A57D4 0A5B0D 30 03 54 BSR.68K $0354 ; => $0A57BC => $0A05A4 (NATIVE) 0A5B10 03 30 07 54 4F 45 2E 2E 2E TRAP1 "TOE...." 2E 0A5B1A 84 00 READ.B $00 0A5B1C E2 18 37 READ.L $1837 0A5B1F 03 2A LONG2FLOAT 0A5B21 30 03 50 BSR.68K $0350 ; => $0A57D4 0A5B24 30 03 6B BSR.68K $036B ; => $0A57BC => $0A05A4 (NATIVE) 0A5B27 03 30 07 53 51 52 54 20 41 TRAP1 "SQRT A." 2E 0A5B31 84 00 READ.B $00 0A5B33 E3 0C 5B READ.F $0C5B 0A5B36 30 03 65 BSR.68K $0365 ; => $0A57D4 0A5B39 30 03 80 BSR.68K $0380 ; => $0A57BC => $0A05A4 (NATIVE) 0A5B3C 03 30 07 44 45 4C 54 41 20 TRAP1 "DELTA N" 4E 0A5B46 84 00 READ.B $00 0A5B48 E3 0A 4B READ.F $0A4B 0A5B4B 30 03 7A BSR.68K $037A ; => $0A57D4 0A5B4E 30 03 95 BSR.68K $0395 ; => $0A57BC => $0A05A4 (NATIVE) 0A5B51 03 30 07 45 2E 2E 2E 2E 2E TRAP1 "E......" 2E 0A5B5B 84 00 READ.B $00 0A5B5D E3 0B 53 READ.F $0B53 0A5B60 30 03 8F BSR.68K $038F ; => $0A57D4 0A5B63 30 03 AA BSR.68K $03AA ; => $0A57BC => $0A05A4 (NATIVE) 0A5B66 03 30 07 4D 20 53 55 42 20 TRAP1 "M SUB O" 4F 0A5B70 84 00 READ.B $00 0A5B72 E3 09 43 READ.F $0943 0A5B75 30 03 A4 BSR.68K $03A4 ; => $0A57D4 0A5B78 30 03 BF BSR.68K $03BF ; => $0A57BC => $0A05A4 (NATIVE) 0A5B7B 03 30 07 49 20 53 55 42 20 TRAP1 "I SUB O" 4F 0A5B85 84 00 READ.B $00 0A5B87 E3 10 7B READ.F $107B 0A5B8A 30 03 B9 BSR.68K $03B9 ; => $0A57D4 0A5B8D 30 03 D4 BSR.68K $03D4 ; => $0A57BC => $0A05A4 (NATIVE) 0A5B90 03 30 07 49 20 44 4F 54 2E TRAP1 "I DOT.." 2E 0A5B9A 84 00 READ.B $00 0A5B9C E3 11 83 READ.F $1183 0A5B9F 30 03 CE BSR.68K $03CE ; => $0A57D4 0A5BA2 30 03 E9 BSR.68K $03E9 ; => $0A57BC => $0A05A4 (NATIVE) 0A5BA5 03 30 07 4F 4D 45 47 41 2E TRAP1 "OMEGA.." 2E 0A5BAF 84 00 READ.B $00 0A5BB1 E3 0E 6B READ.F $0E6B 0A5BB4 30 03 E3 BSR.68K $03E3 ; => $0A57D4 0A5BB7 30 03 FE BSR.68K $03FE ; => $0A57BC => $0A05A4 (NATIVE) 0A5BBA 03 30 07 4F 4D 45 47 41 20 TRAP1 "OMEGA O" 4F 0A5BC4 84 00 READ.B $00 0A5BC6 E3 0D 63 READ.F $0D63 0A5BC9 30 03 F8 BSR.68K $03F8 ; => $0A57D4 0A5BCC 30 04 13 BSR.68K $0413 ; => $0A57BC => $0A05A4 (NATIVE) 0A5BCF 03 30 07 4F 4D 47 20 44 4F TRAP1 "OMG DOT" 54 0A5BD9 84 00 READ.B $00 0A5BDB E3 0F 73 READ.F $0F73 0A5BDE 30 04 0D BSR.68K $040D ; => $0A57D4 0A5BE1 30 04 28 BSR.68K $0428 ; => $0A57BC => $0A05A4 (NATIVE) 0A5BE4 03 30 07 43 52 53 2E 2E 2E TRAP1 "CRS...." 2E 0A5BEE 84 00 READ.B $00 0A5BF0 E3 15 A3 READ.F $15A3 0A5BF3 30 04 22 BSR.68K $0422 ; => $0A57D4 0A5BF6 30 04 3D BSR.68K $043D ; => $0A57BC => $0A05A4 (NATIVE) 0A5BF9 03 30 07 43 52 43 2E 2E 2E TRAP1 "CRC...." 2E 0A5C03 84 00 READ.B $00 0A5C05 E3 14 9B READ.F $149B 0A5C08 30 04 37 BSR.68K $0437 ; => $0A57D4 0A5C0B 30 04 52 BSR.68K $0452 ; => $0A57BC => $0A05A4 (NATIVE) 0A5C0E 03 30 07 43 55 53 2E 2E 2E TRAP1 "CUS...." 2E 0A5C18 84 00 READ.B $00 0A5C1A E3 13 93 READ.F $1393 0A5C1D 30 04 4C BSR.68K $044C ; => $0A57D4 0A5C20 30 04 67 BSR.68K $0467 ; => $0A57BC => $0A05A4 (NATIVE) 0A5C23 03 30 07 43 55 43 2E 2E 2E TRAP1 "CUC...." 2E 0A5C2D 84 00 READ.B $00 0A5C2F E3 12 8B READ.F $128B 0A5C32 30 04 61 BSR.68K $0461 ; => $0A57D4 0A5C35 30 04 7C BSR.68K $047C ; => $0A57BC => $0A05A4 (NATIVE) 0A5C38 03 30 07 43 49 53 2E 2E 2E TRAP1 "CIS...." 2E 0A5C42 84 00 READ.B $00 0A5C44 E3 17 B3 READ.F $17B3 0A5C47 30 04 76 BSR.68K $0476 ; => $0A57D4 0A5C4A 30 04 91 BSR.68K $0491 ; => $0A57BC => $0A05A4 (NATIVE) 0A5C4D 03 30 07 43 49 43 2E 2E 2E TRAP1 "CIC...." 2E 0A5C57 84 00 READ.B $00 0A5C59 E3 16 AB READ.F $16AB 0A5C5C 30 04 8B BSR.68K $048B ; => $0A57D4 0A5C5F 30 04 A6 BSR.68K $04A6 ; => $0A57BC => $0A05A4 (NATIVE) 0A5C62 03 30 08 43 4F 4E 46 49 47 TRAP1 "CONFIG. " 2E 20 0A5C6D 84 00 READ.B $00 0A5C6F E0 02 6D READ.B $026D 0A5C72 41 PUSH.6 $01 0A5C73 30 04 DE BSR.68K $04DE ; => $0A5798 => $0A0036 0A5C76 30 04 BD BSR.68K $04BD ; => $0A57BC => $0A05A4 (NATIVE) 0A5C79 03 30 08 4D 45 52 49 54 2E TRAP1 "MERIT.. " 2E 20 0A5C84 84 00 READ.B $00 0A5C86 E0 02 8F READ.B $028F 0A5C89 41 PUSH.6 $01 0A5C8A 30 04 F5 BSR.68K $04F5 ; => $0A5798 => $0A0036 0A5C8D 30 04 D4 BSR.68K $04D4 ; => $0A57BC => $0A05A4 (NATIVE) 0A5C90 03 30 08 41 4C 45 52 54 2E TRAP1 "ALERT.. " 2E 20 0A5C9B 84 00 READ.B $00 0A5C9D E0 02 4B READ.B $024B 0A5CA0 41 PUSH.6 $01 0A5CA1 30 05 0C BSR.68K $050C ; => $0A5798 => $0A0036 0A5CA4 30 04 EB BSR.68K $04EB ; => $0A57BC => $0A05A4 (NATIVE) 0A5CA7 03 30 08 46 49 54 49 4E 56 TRAP1 "FITINVL " 4C 20 0A5CB2 84 00 READ.B $00 0A5CB4 E0 02 07 READ.B $0207 0A5CB7 41 PUSH.6 $01 0A5CB8 30 05 23 BSR.68K $0523 ; => $0A5798 => $0A0036 0A5CBB 30 05 02 BSR.68K $0502 ; => $0A57BC => $0A05A4 (NATIVE) 0A5CBE 03 30 08 48 45 41 4C 54 48 TRAP1 "HEALTH. " 2E 20 0A5CC9 84 00 READ.B $00 0A5CCB E0 02 29 READ.B $0229 0A5CCE 43 PUSH.6 $03 0A5CCF 30 05 3A BSR.68K $053A ; => $0A5798 => $0A0036 0A5CD2 30 05 19 BSR.68K $0519 ; => $0A57BC => $0A05A4 (NATIVE) 0A5CD5 03 30 08 48 20 54 49 4D 45 TRAP1 "H TIME. " 2E 20 0A5CE0 84 00 READ.B $00 0A5CE2 E2 21 87 READ.L $2187 0A5CE5 03 2A LONG2FLOAT 0A5CE7 30 05 3A BSR.68K $053A ; => $0A57B0 => $0A03BC 0A5CEA 30 05 31 BSR.68K $0531 ; => $0A57BC => $0A05A4 (NATIVE) 0A5CED 03 30 08 4C 41 53 54 55 53 TRAP1 "LASTUSE " 45 20 0A5CF8 84 00 READ.B $00 0A5CFA E3 22 B1 READ.F $22B1 0A5CFD 30 05 50 BSR.68K $0550 ; => $0A57B0 => $0A03BC 0A5D00 30 05 47 BSR.68K $0547 ; => $0A57BC => $0A05A4 (NATIVE) 0A5D03 03 30 08 56 41 4C 49 44 2E TRAP1 "VALID.. " 2E 20 0A5D0E 84 00 READ.B $00 0A5D10 E0 18 59 READ.B $1859 0A5D13 43 PUSH.6 $03 0A5D14 30 05 7F BSR.68K $057F ; => $0A5798 => $0A0036 0A5D17 30 05 64 BSR.68K $0564 ; => $0A57B6 => $0A0584 (NATIVE) 0A5D1A 84 00 READ.B $00 0A5D1C 30 05 5D BSR.68K $055D ; => $0A57C2 => $09FEDC 0A5D1F 43 PUSH.6 $03 0A5D20 30 05 8B BSR.68K $058B ; => $0A5798 => $0A0036 0A5D23 30 05 6A BSR.68K $056A ; => $0A57BC => $0A05A4 (NATIVE) 0A5D26 03 30 08 53 34 20 50 41 47 TRAP1 "S4 PAGE " 45 20 0A5D31 C0 55 7E READ.B $557E 0A5D34 42 PUSH.6 $02 0A5D35 30 05 A0 BSR.68K $05A0 ; => $0A5798 => $0A0036 0A5D38 30 05 7F BSR.68K $057F ; => $0A57BC => $0A05A4 (NATIVE) 0A5D3B 03 30 0B 20 20 20 20 20 20 TRAP1 " " 20 20 20 20 20 0A5D49 30 05 90 BSR.68K $0590 ; => $0A57BC => $0A05A4 (NATIVE) 0A5D4C 30 05 93 BSR.68K $0593 ; => $0A57BC => $0A05A4 (NATIVE) 0A5D4F 03 30 07 41 4C 4D 41 4E 41 TRAP1 "ALMANAC" 43 0A5D59 30 05 A0 BSR.68K $05A0 ; => $0A57BC => $0A05A4 (NATIVE) 0A5D5C 03 30 08 41 57 4E 2E 2E 2E TRAP1 "AWN.... " 2E 20 0A5D67 84 00 READ.B $00 0A5D69 E1 18 9B READ.W $189B 0A5D6C 43 PUSH.6 $03 0A5D6D 30 05 D8 BSR.68K $05D8 ; => $0A5798 => $0A0036 0A5D70 03 30 0A 20 20 44 45 43 4F TRAP1 " DECODED " 44 45 44 20 0A5D7D 84 00 READ.B $00 0A5D7F E2 19 1F READ.L $191F 0A5D82 03 2A LONG2FLOAT 0A5D84 30 05 D7 BSR.68K $05D7 ; => $0A57B0 => $0A03BC 0A5D87 30 05 CE BSR.68K $05CE ; => $0A57BC => $0A05A4 (NATIVE) 0A5D8A 03 30 07 54 4F 41 2E 2E 2E TRAP1 "TOA...." 2E 0A5D94 84 00 READ.B $00 0A5D96 E2 1A AB READ.L $1AAB 0A5D99 03 2A LONG2FLOAT 0A5D9B 30 05 CA BSR.68K $05CA ; => $0A57D4 0A5D9E 30 05 E5 BSR.68K $05E5 ; => $0A57BC => $0A05A4 (NATIVE) 0A5DA1 03 30 07 53 51 52 54 20 41 TRAP1 "SQRT A." 2E 0A5DAB 84 00 READ.B $00 0A5DAD E3 1D C3 READ.F $1DC3 0A5DB0 30 05 DF BSR.68K $05DF ; => $0A57D4 0A5DB3 30 05 FA BSR.68K $05FA ; => $0A57BC => $0A05A4 (NATIVE) 0A5DB6 03 30 07 45 2E 2E 2E 2E 2E TRAP1 "E......" 2E 0A5DC0 84 00 READ.B $00 0A5DC2 E3 1A 27 READ.F $1A27 0A5DC5 30 05 F4 BSR.68K $05F4 ; => $0A57D4 0A5DC8 30 06 0F BSR.68K $060F ; => $0A57BC => $0A05A4 (NATIVE) 0A5DCB 03 30 07 4D 20 53 55 42 20 TRAP1 "M SUB O" 4F 0A5DD5 84 00 READ.B $00 0A5DD7 E3 20 DB READ.F $20DB 0A5DDA 30 06 09 BSR.68K $0609 ; => $0A57D4 0A5DDD 30 06 24 BSR.68K $0624 ; => $0A57BC => $0A05A4 (NATIVE) 0A5DE0 03 30 07 49 20 53 55 42 20 TRAP1 "I SUB O" 4F 0A5DEA 84 00 READ.B $00 0A5DEC E3 1B B3 READ.F $1BB3 0A5DEF 30 06 1E BSR.68K $061E ; => $0A57D4 0A5DF2 30 06 39 BSR.68K $0639 ; => $0A57BC => $0A05A4 (NATIVE) 0A5DF5 03 30 07 4F 4D 45 47 41 2E TRAP1 "OMEGA.." 2E 0A5DFF 84 00 READ.B $00 0A5E01 E3 1F D3 READ.F $1FD3 0A5E04 30 06 33 BSR.68K $0633 ; => $0A57D4 0A5E07 30 06 4E BSR.68K $064E ; => $0A57BC => $0A05A4 (NATIVE) 0A5E0A 03 30 07 4F 4D 45 47 41 20 TRAP1 "OMEGA O" 4F 0A5E14 84 00 READ.B $00 0A5E16 E3 1E CB READ.F $1ECB 0A5E19 30 06 48 BSR.68K $0648 ; => $0A57D4 0A5E1C 30 06 63 BSR.68K $0663 ; => $0A57BC => $0A05A4 (NATIVE) 0A5E1F 03 30 07 4F 4D 47 20 44 4F TRAP1 "OMG DOT" 54 0A5E29 84 00 READ.B $00 0A5E2B E3 1C BB READ.F $1CBB 0A5E2E 30 06 5D BSR.68K $065D ; => $0A57D4 0A5E31 30 06 78 BSR.68K $0678 ; => $0A57BC => $0A05A4 (NATIVE) 0A5E34 03 30 08 56 41 4C 49 44 2E TRAP1 "VALID.. " 2E 20 0A5E3F 84 00 READ.B $00 0A5E41 E0 20 FD READ.B $20FD 0A5E44 43 PUSH.6 $03 0A5E45 30 06 B0 BSR.68K $06B0 ; => $0A5798 => $0A0036 0A5E48 30 06 95 BSR.68K $0695 ; => $0A57B6 => $0A0584 (NATIVE) 0A5E4B 84 00 READ.B $00 0A5E4D 30 06 88 BSR.68K $0688 ; => $0A57C8 => $09FE70 0A5E50 43 PUSH.6 $03 0A5E51 30 06 BC BSR.68K $06BC ; => $0A5798 => $0A0036 0A5E54 30 06 9B BSR.68K $069B ; => $0A57BC => $0A05A4 (NATIVE) 0A5E57 30 04 A8 BSR.68K $04A8 ; => $0A59B2 0A5E5A 30 06 79 BSR.68K $0679 ; => $0A57E4 0A5E5D 30 06 A4 BSR.68K $06A4 ; => $0A57BC => $0A05A4 (NATIVE) 0A5E60 32 02 ADDSP.B $02 0A5E62 34 RETURN ; ---------------- End Function $0A59F6 ---------------- ; ---------------- Begin 2144 Function $0A5E64 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0018F8:$00199D ; called from $0A4E0C:$0A4F19 ; addr bytes opcode operands comment 0A5E6B 31 02 SUBSP.B $02 0A5E6D C0 50 9D READ.B $509D 0A5E70 04 63 PUSH.10 $063 0A5E72 2A EQ.L 0A5E73 18 36 BRZ $036 ; => $0A5EAB 0A5E75 41 PUSH.6 $01 0A5E76 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A5E79 60 PUSH.6 $20 0A5E7A 38 00 2C BLS.B $002C ; => $0A5EA9 0A5E7D 84 00 READ.B $00 0A5E7F E1 18 9B READ.W $189B 0A5E82 40 PUSH.6 $00 0A5E83 2B NEQ.L 0A5E84 84 00 READ.B $00 0A5E86 E1 01 61 READ.W $0161 0A5E89 40 PUSH.6 $00 0A5E8A 2B NEQ.L 0A5E8B 2D OR.L 0A5E8C 84 00 READ.B $00 0A5E8E E0 02 29 READ.B $0229 0A5E91 40 PUSH.6 $00 0A5E92 2A EQ.L 0A5E93 84 00 READ.B $00 0A5E95 E0 22 F5 READ.B $22F5 0A5E98 2D OR.L 0A5E99 2C AND.L 0A5E9A 18 08 BRZ $008 ; => $0A5EA4 0A5E9C 84 00 READ.B $00 0A5E9E D0 50 9D WRITE.B $509D 0A5EA1 30 04 AE BSR.68K $04AE ; => $0A59F6 0A5EA4 37 10 00 00 30 _23d2 $0000, $0030 0A5EA9 10 03 BR $003 ; => $0A5EAE 0A5EAB 30 04 B8 BSR.68K $04B8 ; => $0A59F6 0A5EAE 32 02 ADDSP.B $02 0A5EB0 34 RETURN ; ---------------- End Function $0A5E64 ---------------- ; ---------------- Begin 2144 Function $0A5F00 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A61EA:$0A6333 ; called from $0A61EA:$0A6386 ; addr bytes opcode operands comment 0A5F07 86 03 READ.L $03 0A5F09 18 09 BRZ $009 ; => $0A5F14 0A5F0B 03 30 04 20 59 45 53 TRAP1 " YES" 0A5F12 10 07 BR $007 ; => $0A5F1B 0A5F14 03 30 04 20 4E 4F 20 TRAP1 " NO " 0A5F1B 30 00 30 BSR.68K $0030 ; => $0A5EEE => $0A05A4 (NATIVE) 0A5F1E 32 04 ADDSP.B $04 0A5F20 34 RETURN ; ---------------- End Function $0A5F00 ---------------- ; ---------------- Begin 2144 Function $0A5F22 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A61EA:$0A68E8 ; called from $0A61EA:$0A693D ; addr bytes opcode operands comment 0A5F29 86 03 READ.L $03 0A5F2B 18 09 BRZ $009 ; => $0A5F36 0A5F2D 03 30 04 20 4F 4E 20 TRAP1 " ON " 0A5F34 10 07 BR $007 ; => $0A5F3D 0A5F36 03 30 04 20 4F 46 46 TRAP1 " OFF" 0A5F3D 30 00 52 BSR.68K $0052 ; => $0A5EEE => $0A05A4 (NATIVE) 0A5F40 32 04 ADDSP.B $04 0A5F42 34 RETURN ; ---------------- End Function $0A5F22 ---------------- ; ---------------- Begin 2144 Function $0A5F44 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0A61EA:$0A67C9 ; called from $0A61EA:$0A6870 ; called from $0A61EA:$0A6886 ; called from $0A61EA:$0A689C ; addr bytes opcode operands comment 0A5F4B 86 03 READ.L $03 0A5F4D 18 0D BRZ $00D ; => $0A5F5C 0A5F4F 03 30 08 20 45 4E 41 42 4C TRAP1 " ENABLED" 45 44 0A5F5A 10 0C BR $00C ; => $0A5F68 0A5F5C 03 30 09 20 44 49 53 41 42 TRAP1 " DISABLED" 4C 45 44 0A5F68 30 00 7D BSR.68K $007D ; => $0A5EEE => $0A05A4 (NATIVE) 0A5F6B 32 04 ADDSP.B $04 0A5F6D 34 RETURN ; ---------------- End Function $0A5F44 ---------------- ; ---------------- Begin 2144 Function $0A5F6E ---------------- ; A0 = $004008; (A0) = SP + $3 ; called from $0A61EA:$0A67F2 ; called from $0A61EA:$0A67F6 ; addr bytes opcode operands comment 0A5F75 31 06 SUBSP.B $06 0A5F77 03 30 04 50 4F 52 54 TRAP1 "PORT" 0A5F7E 8A 03 READ.L $03 0A5F80 70 PUSH.6 $30 0A5F81 27 ADD.L 0A5F82 30 00 D3 BSR.68K $00D3 ; => $0A5EB2 => $0A056A (NATIVE) 0A5F85 03 30 03 3A 20 20 TRAP1 ": " 0A5F8B 8A 03 READ.L $03 0A5F8D 41 PUSH.6 $01 0A5F8E 2A EQ.L 0A5F8F 18 05 BRZ $005 ; => $0A5F96 0A5F91 C0 29 63 READ.B $2963 0A5F94 10 03 BR $003 ; => $0A5F99 0A5F96 C0 29 6D READ.B $296D 0A5F99 99 05 WRITE.W $05 0A5F9B 89 05 READ.W $05 0A5F9D 18 09 BRZ $009 ; => $0A5FA8 0A5F9F 3C 96 00 PUSH.W $9600 0A5FA2 89 05 READ.W $05 0A5FA4 03 24 DIV.L 0A5FA6 10 02 BR $002 ; => $0A5FAA 0A5FA8 04 96 PUSH.10 $096 0A5FAA 99 05 WRITE.W $05 0A5FAC 45 PUSH.6 $05 0A5FAD 98 07 WRITE.B $07 0A5FAF 89 05 READ.W $05 0A5FB1 07 E8 PUSH.10 $3E8 0A5FB3 03 26 GT.L 0A5FB5 18 0A BRZ $00A ; => $0A5FC1 0A5FB7 43 PUSH.6 $03 0A5FB8 98 07 WRITE.B $07 0A5FBA 03 30 02 20 20 TRAP1 " " 0A5FBF 10 0F BR $00F ; => $0A5FD0 0A5FC1 89 05 READ.W $05 0A5FC3 3C 27 10 PUSH.W $2710 0A5FC6 03 26 GT.L 0A5FC8 18 06 BRZ $006 ; => $0A5FD0 0A5FCA 44 PUSH.6 $04 0A5FCB 98 07 WRITE.B $07 0A5FCD 30 00 EE BSR.68K $00EE ; => $0A5EE2 => $0A0584 (NATIVE) 0A5FD0 89 05 READ.W $05 0A5FD2 88 07 READ.B $07 0A5FD4 30 01 1F BSR.68K $011F ; => $0A5EB8 => $0A0036 0A5FD7 03 30 06 20 42 41 55 44 20 TRAP1 " BAUD " 0A5FE0 8A 03 READ.L $03 0A5FE2 41 PUSH.6 $01 0A5FE3 2A EQ.L 0A5FE4 18 08 BRZ $008 ; => $0A5FEE 0A5FE6 C0 29 62 READ.B $2962 0A5FE9 44 PUSH.6 $04 0A5FEA 03 24 DIV.L 0A5FEC 10 03 BR $003 ; => $0A5FF1 0A5FEE C0 29 6C READ.B $296C 0A5FF1 35 SWITCH 0A5FF2 20 0F 00 BE CASE $00, $BE ; SWITCH $0A5FF1 0A5FF6 03 30 08 37 2D 45 56 45 4E TRAP1 "7-EVEN-2" 2D 32 0A6001 10 78 BR $078 ; => $0A607B 0A6003 20 0F 01 BC CASE $01, $BC ; SWITCH $0A5FF1 0A6007 03 30 08 37 2D 4F 44 44 2D TRAP1 "7-ODD--2" 2D 32 0A6012 10 67 BR $067 ; => $0A607B 0A6014 20 0F 02 AE CASE $02, $AE ; SWITCH $0A5FF1 0A6018 03 30 08 37 2D 45 56 45 4E TRAP1 "7-EVEN-1" 2D 31 0A6023 10 56 BR $056 ; => $0A607B 0A6025 20 0F 03 AC CASE $03, $AC ; SWITCH $0A5FF1 0A6029 03 30 08 37 2D 4F 44 44 2D TRAP1 "7-ODD--1" 2D 31 0A6034 10 45 BR $045 ; => $0A607B 0A6036 20 0F 04 98 CASE $04, $98 ; SWITCH $0A5FF1 0A603A 03 30 08 38 2D 4E 4F 4E 45 TRAP1 "8-NONE-2" 2D 32 0A6045 10 34 BR $034 ; => $0A607B 0A6047 20 0F 05 88 CASE $05, $88 ; SWITCH $0A5FF1 0A604B 03 30 08 38 2D 4E 4F 4E 45 TRAP1 "8-NONE-1" 2D 31 0A6056 10 23 BR $023 ; => $0A607B 0A6058 20 0F 06 8E CASE $06, $8E ; SWITCH $0A5FF1 0A605C 03 30 08 38 2D 45 56 45 4E TRAP1 "8-EVEN-1" 2D 31 0A6067 10 12 BR $012 ; => $0A607B 0A6069 20 0F 07 8C CASE $07, $8C ; SWITCH $0A5FF1 0A606D 03 30 08 38 2D 4F 44 44 2D TRAP1 "8-ODD--1" 2D 31 0A6078 10 01 BR $001 ; => $0A607B 0A607A 00 DEFAULT ; SWITCH $0A5FF1 0A607B 03 30 0C 20 20 53 54 41 52 TRAP1 " START CC= " 54 20 43 43 3D 20 0A608A 40 PUSH.6 $00 0A608B 36 20 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 0A608E 45 PUSH.6 $05 0A608F 38 00 32 BLS.B $0032 ; => $0A60C4 0A6092 8A 03 READ.L $03 0A6094 41 PUSH.6 $01 0A6095 2A EQ.L 0A6096 18 07 BRZ $007 ; => $0A609F 0A6098 88 08 READ.B $08 0A609A E0 29 61 READ.B $2961 0A609D 10 05 BR $005 ; => $0A60A4 0A609F 88 08 READ.B $08 0A60A1 E0 29 6B READ.B $296B 0A60A4 43 PUSH.6 $03 0A60A5 30 01 F0 BSR.68K $01F0 ; => $0A5EB8 => $0A0036 0A60A8 30 01 C9 BSR.68K $01C9 ; => $0A5EE2 => $0A0584 (NATIVE) 0A60AB 88 08 READ.B $08 0A60AD 42 PUSH.6 $02 0A60AE 2A EQ.L 0A60AF 18 0E BRZ $00E ; => $0A60BF 0A60B1 03 30 0B 20 20 53 54 4F 50 TRAP1 " STOP CC= " 20 43 43 3D 20 0A60BF 37 20 08 00 36 _23d2 $0008, $0036 0A60C4 30 01 D9 BSR.68K $01D9 ; => $0A5EEE => $0A05A4 (NATIVE) 0A60C7 03 30 08 20 20 20 20 20 20 TRAP1 " " 20 20 0A60D2 C0 29 73 READ.B $2973 0A60D5 8A 03 READ.L $03 0A60D7 2A EQ.L 0A60D8 18 33 BRZ $033 ; => $0A610D 0A60DA 03 30 1C 52 54 43 4D 20 49 TRAP1 "RTCM INPUT - DIFF ONLY MODE " 4E 50 55 54 20 2D 20 44 49 46 46 20 4F 4E 4C 59 20 4D 4F 44 45 20 0A60F9 C0 29 74 READ.B $2974 0A60FC 18 07 BRZ $007 ; => $0A6105 0A60FE 03 30 02 4F 4E TRAP1 "ON" 0A6103 10 06 BR $006 ; => $0A610B 0A6105 03 30 03 4F 46 46 TRAP1 "OFF" 0A610B 10 97 BR $097 ; => $0A61A4 0A610D 8A 03 READ.L $03 0A610F 41 PUSH.6 $01 0A6110 2A EQ.L 0A6111 18 05 BRZ $005 ; => $0A6118 0A6113 C0 29 5B READ.B $295B 0A6116 10 03 BR $003 ; => $0A611B 0A6118 C0 29 64 READ.B $2964 0A611B 98 06 WRITE.B $06 0A611D 88 06 READ.B $06 0A611F 04 73 PUSH.10 $073 0A6121 2C AND.L 0A6122 40 PUSH.6 $00 0A6123 2A EQ.L 0A6124 18 06 BRZ $006 ; => $0A612C 0A6126 03 30 03 4F 46 46 TRAP1 "OFF" 0A612C 88 06 READ.B $06 0A612E 61 PUSH.6 $21 0A612F 2C AND.L 0A6130 18 23 BRZ $023 ; => $0A6155 0A6132 03 30 08 50 4F 53 49 54 49 TRAP1 "POSITION" 4F 4E 0A613D 88 06 READ.B $06 0A613F 60 PUSH.6 $20 0A6140 2C AND.L 0A6141 18 0D BRZ $00D ; => $0A6150 0A6143 03 30 0A 20 49 4E 20 42 49 TRAP1 " IN BINARY" 4E 41 52 59 0A6150 03 30 02 2C 20 TRAP1 ", " 0A6155 88 06 READ.B $06 0A6157 50 PUSH.6 $10 0A6158 2C AND.L 0A6159 18 1F BRZ $01F ; => $0A617A 0A615B 03 30 1C 4E 41 56 44 41 54 TRAP1 "NAVDATA WHENEVER COLLECTED, " 41 20 57 48 45 4E 45 56 45 52 20 43 4F 4C 4C 45 43 54 45 44 2C 20 0A617A 88 06 READ.B $06 0A617C 04 42 PUSH.10 $042 0A617E 2C AND.L 0A617F 18 23 BRZ $023 ; => $0A61A4 0A6181 03 30 0C 4D 45 41 53 55 52 TRAP1 "MEASUREMENTS" 45 4D 45 4E 54 53 0A6190 88 06 READ.B $06 0A6192 04 40 PUSH.10 $040 0A6194 2C AND.L 0A6195 18 0D BRZ $00D ; => $0A61A4 0A6197 03 30 0A 20 49 4E 20 42 49 TRAP1 " IN BINARY" 4E 41 52 59 0A61A4 30 02 B9 BSR.68K $02B9 ; => $0A5EEE => $0A05A4 (NATIVE) 0A61A7 32 0A ADDSP.B $0A 0A61A9 34 RETURN ; ---------------- End Function $0A5F6E ---------------- ; ---------------- Begin 2144 Function $0A61AA ---------------- ; A0 = $004008; (A0) = SP + $7 ; called from $0A61EA:$0A6601 ; called from $0A61EA:$0A6632 ; called from $0A61EA:$0A6676 ; called from $0A61EA:$0A66B5 ; addr bytes opcode operands comment 0A61B1 31 02 SUBSP.B $02 0A61B3 84 0A READ.B $0A 0A61B5 48 PUSH.6 $08 0A61B6 2F MOD.L 0A61B7 40 PUSH.6 $00 0A61B8 2A EQ.L 0A61B9 84 0A READ.B $0A 0A61BB 2C AND.L 0A61BC 18 19 BRZ $019 ; => $0A61D7 0A61BE 03 30 02 20 26 TRAP1 " &" 0A61C3 30 02 D8 BSR.68K $02D8 ; => $0A5EEE => $0A05A4 (NATIVE) 0A61C6 41 PUSH.6 $01 0A61C7 36 20 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 0A61CA 8A 07 READ.L $07 0A61CC 38 00 08 BLS.B $0008 ; => $0A61D7 0A61CF 30 02 F0 BSR.68K $02F0 ; => $0A5EE2 => $0A0584 (NATIVE) 0A61D2 37 20 08 00 0D _23d2 $0008, $000D 0A61D7 8A 03 READ.L $03 0A61D9 42 PUSH.6 $02 0A61DA 30 03 25 BSR.68K $0325 ; => $0A5EB8 => $0A0036 0A61DD 30 02 FE BSR.68K $02FE ; => $0A5EE2 => $0A0584 (NATIVE) 0A61E0 84 0A READ.B $0A 0A61E2 41 PUSH.6 $01 0A61E3 27 ADD.L 0A61E4 94 0A WRITE.B $0A 0A61E6 32 0A ADDSP.B $0A 0A61E8 34 RETURN ; ---------------- End Function $0A61AA ---------------- ; ---------------- Begin 2144 Function $0A61EA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A4A6C:$0A4A84 ; called from $0A4E0C:$0A4E84 ; addr bytes opcode operands comment 0A61F1 31 0C SUBSP.B $0C 0A61F3 C0 29 5B READ.B $295B 0A61F6 04 7F PUSH.10 $07F 0A61F8 2C AND.L 0A61F9 D0 29 5B WRITE.B $295B 0A61FC C0 29 64 READ.B $2964 0A61FF 04 7F PUSH.10 $07F 0A6201 2C AND.L 0A6202 D0 29 64 WRITE.B $2964 0A6205 04 FF PUSH.10 $0FF 0A6207 D0 50 A0 WRITE.B $50A0 0A620A 30 03 1F BSR.68K $031F ; => $0A5EEE => $0A05A4 (NATIVE) 0A620D 03 30 2C 54 52 49 4D 42 4C TRAP1 "TRIMBLE 4000 GPS RECEIVER SETUP PARAMETERS " 45 20 34 30 30 30 20 47 50 53 20 52 45 43 45 49 56 45 52 20 53 45 54 55 50 20 50 41 52 41 4D 45 54 45 52 53 20 20 0A623C 30 03 45 BSR.68K $0345 ; => $0A5EFA => $094E22 0A623F 30 03 4E BSR.68K $034E ; => $0A5EF4 => $0A03BC 0A6242 30 03 57 BSR.68K $0357 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6245 03 30 2A 2D 2D 2D 2D 2D 2D TRAP1 "------------------------------------------" 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0A6272 30 03 87 BSR.68K $0387 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6275 30 03 8A BSR.68K $038A ; => $0A5EEE => $0A05A4 (NATIVE) 0A6278 03 30 16 47 50 53 20 57 45 TRAP1 "GPS WEEK NUMBER: " 45 4B 20 4E 55 4D 42 45 52 3A 20 20 20 20 20 20 0A6291 C1 29 FD READ.W $29FD 0A6294 07 FF PUSH.10 $3FF 0A6296 2C AND.L 0A6297 44 PUSH.6 $04 0A6298 30 03 E3 BSR.68K $03E3 ; => $0A5EB8 => $0A0036 0A629B 30 03 B0 BSR.68K $03B0 ; => $0A5EEE => $0A05A4 (NATIVE) 0A629E 03 30 16 52 45 46 45 52 45 TRAP1 "REFERENCE LATITUDE: " 4E 43 45 20 4C 41 54 49 54 55 44 45 3A 20 20 20 0A62B7 C3 29 1B READ.F $291B 0A62BA 30 03 ED BSR.68K $03ED ; => $0A5ED0 => $0A0284 0A62BD 30 03 D2 BSR.68K $03D2 ; => $0A5EEE => $0A05A4 (NATIVE) 0A62C0 03 30 15 52 45 46 45 52 45 TRAP1 "REFERENCE LONGITUDE: " 4E 43 45 20 4C 4F 4E 47 49 54 55 44 45 3A 20 0A62D8 C3 29 23 READ.F $2923 0A62DB 30 04 08 BSR.68K $0408 ; => $0A5ED6 => $0A02A8 0A62DE 30 03 F3 BSR.68K $03F3 ; => $0A5EEE => $0A05A4 (NATIVE) 0A62E1 03 30 15 52 45 46 45 52 45 TRAP1 "REFERENCE HEIGHT: " 4E 43 45 20 48 45 49 47 48 54 3A 20 20 20 20 0A62F9 C3 29 2B READ.F $292B 0A62FC 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A6305 22 MUL.F 0A6306 45 PUSH.6 $05 0A6307 44 PUSH.6 $04 0A6308 30 04 4D BSR.68K $044D ; => $0A5EBE => $0A0076 0A630B 03 30 07 20 6D 65 74 65 72 TRAP1 " meters" 73 0A6315 30 04 2A BSR.68K $042A ; => $0A5EEE => $0A05A4 (NATIVE) 0A6318 03 30 15 46 49 58 45 44 20 TRAP1 "FIXED HEIGHT: " 48 45 49 47 48 54 3A 20 20 20 20 20 20 20 20 0A6330 C0 29 36 READ.B $2936 0A6333 30 04 36 BSR.68K $0436 ; => $0A5F00 0A6336 C0 33 D6 READ.B $33D6 0A6339 2E NOT.L 0A633A 18 4D BRZ $04D ; => $0A6389 0A633C 03 30 15 52 45 46 45 52 45 TRAP1 "REFERENCE FREQUENCY: " 4E 43 45 20 46 52 45 51 55 45 4E 43 59 3A 20 0A6354 C3 29 35 READ.F $2935 0A6357 43 PUSH.6 $03 0A6358 30 04 91 BSR.68K $0491 ; => $0A5ECA => $0A0118 0A635B 03 30 0A 20 64 65 6C 74 61 TRAP1 " delta f/f" 20 66 2F 66 0A6368 30 04 7D BSR.68K $047D ; => $0A5EEE => $0A05A4 (NATIVE) 0A636B 03 30 15 46 49 58 45 44 20 TRAP1 "FIXED FREQ: " 46 52 45 51 3A 20 20 20 20 20 20 20 20 20 20 0A6383 C0 29 37 READ.B $2937 0A6386 30 04 89 BSR.68K $0489 ; => $0A5F00 0A6389 03 30 16 4C 41 54 49 54 55 TRAP1 "LATITUDE OFFSET: " 44 45 20 20 4F 46 46 53 45 54 3A 20 20 20 20 20 0A63A2 C3 29 3F READ.F $293F 0A63A5 30 04 D8 BSR.68K $04D8 ; => $0A5ED0 => $0A0284 0A63A8 30 04 BD BSR.68K $04BD ; => $0A5EEE => $0A05A4 (NATIVE) 0A63AB 03 30 15 4C 4F 4E 47 49 54 TRAP1 "LONGITUDE OFFSET: " 55 44 45 20 4F 46 46 53 45 54 3A 20 20 20 20 0A63C3 C3 29 47 READ.F $2947 0A63C6 30 04 F3 BSR.68K $04F3 ; => $0A5ED6 => $0A02A8 0A63C9 30 04 DE BSR.68K $04DE ; => $0A5EEE => $0A05A4 (NATIVE) 0A63CC 03 30 15 48 45 49 47 48 54 TRAP1 "HEIGHT OFFSET: " 20 20 20 20 4F 46 46 53 45 54 3A 20 20 20 20 0A63E4 C3 29 4F READ.F $294F 0A63E7 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A63F0 22 MUL.F 0A63F1 45 PUSH.6 $05 0A63F2 44 PUSH.6 $04 0A63F3 30 05 38 BSR.68K $0538 ; => $0A5EBE => $0A0076 0A63F6 03 30 07 20 6D 65 74 65 72 TRAP1 " meters" 73 0A6400 30 05 15 BSR.68K $0515 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6403 C0 29 8E READ.B $298E 0A6406 18 2C BRZ $02C ; => $0A6434 0A6408 03 30 15 43 41 42 4C 45 20 TRAP1 "CABLE DELAY: " 44 45 4C 41 59 3A 20 20 20 20 20 20 20 20 20 0A6420 C3 29 57 READ.F $2957 0A6423 49 PUSH.6 $09 0A6424 55 PUSH.6 $15 0A6425 30 05 64 BSR.68K $0564 ; => $0A5EC4 => $0A00D2 0A6428 03 30 06 20 6E 73 65 63 73 TRAP1 " nsecs" 0A6431 30 05 46 BSR.68K $0546 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6434 30 05 49 BSR.68K $0549 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6437 03 30 05 4D 41 53 4B 53 TRAP1 "MASKS" 0A643F 30 05 54 BSR.68K $0554 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6442 03 30 05 2D 2D 2D 2D 2D TRAP1 "-----" 0A644A 30 05 5F BSR.68K $055F ; => $0A5EEE => $0A05A4 (NATIVE) 0A644D 03 30 0B 50 44 4F 50 20 4D TRAP1 "PDOP MASK: " 41 53 4B 3A 20 0A645B C3 28 ED READ.F $28ED 0A645E 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A6467 22 MUL.F 0A6468 43 PUSH.6 $03 0A6469 42 PUSH.6 $02 0A646A 30 05 A9 BSR.68K $05A9 ; => $0A5EC4 => $0A00D2 0A646D 30 05 82 BSR.68K $0582 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6470 03 30 10 45 4C 45 56 41 54 TRAP1 "ELEVATION MASK: " 49 4F 4E 20 4D 41 53 4B 3A 20 0A6483 C3 28 DB READ.F $28DB 0A6486 42 PUSH.6 $02 0A6487 55 PUSH.6 $15 0A6488 30 05 C7 BSR.68K $05C7 ; => $0A5EC4 => $0A00D2 0A648B 03 30 08 20 64 65 67 72 65 TRAP1 " degrees" 65 73 0A6496 30 05 AB BSR.68K $05AB ; => $0A5EEE => $0A05A4 (NATIVE) 0A6499 03 30 1D 44 41 54 41 20 41 TRAP1 "DATA AGE SINCE DECODE MASK: " 47 45 20 53 49 4E 43 45 20 44 45 43 4F 44 45 20 4D 41 53 4B 3A 20 20 0A64B9 C0 28 E4 READ.B $28E4 0A64BC 42 PUSH.6 $02 0A64BD 30 06 08 BSR.68K $0608 ; => $0A5EB8 => $0A0036 0A64C0 03 30 06 20 68 6F 75 72 73 TRAP1 " hours" 0A64C9 30 05 DE BSR.68K $05DE ; => $0A5EEE => $0A05A4 (NATIVE) 0A64CC 30 05 E1 BSR.68K $05E1 ; => $0A5EEE => $0A05A4 (NATIVE) 0A64CF 03 30 10 43 41 4C 49 42 52 TRAP1 "CALIBRATION DATA" 41 54 49 4F 4E 20 44 41 54 41 0A64E2 30 05 F7 BSR.68K $05F7 ; => $0A5EEE => $0A05A4 (NATIVE) 0A64E5 03 30 10 2D 2D 2D 2D 2D 2D TRAP1 "----------------" 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0A64F8 30 06 0D BSR.68K $060D ; => $0A5EEE => $0A05A4 (NATIVE) 0A64FB 03 30 12 43 4F 44 45 20 43 TRAP1 "CODE CALIBRATION: " 41 4C 49 42 52 41 54 49 4F 4E 3A 20 0A6510 41 PUSH.6 $01 0A6511 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A6514 C0 29 9A READ.B $299A 0A6517 38 00 19 BLS.B $0019 ; => $0A6533 0A651A 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 0A6523 84 00 READ.B $00 0A6525 E3 34 2B READ.F $342B 0A6528 22 MUL.F 0A6529 44 PUSH.6 $04 0A652A 42 PUSH.6 $02 0A652B 30 06 70 BSR.68K $0670 ; => $0A5EBE => $0A0076 0A652E 37 10 00 00 1F _23d2 $0000, $001F 0A6533 03 30 07 20 6D 65 74 65 72 TRAP1 " meters" 73 0A653D C0 29 92 READ.B $2992 0A6540 2E NOT.L 0A6541 18 4A BRZ $04A ; => $0A658D 0A6543 30 06 58 BSR.68K $0658 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6546 03 30 1B 43 41 52 52 49 45 TRAP1 "CARRIER PHASE CALIBRATION: " 52 20 50 48 41 53 45 20 43 41 4C 49 42 52 41 54 49 4F 4E 3A 20 0A6564 41 PUSH.6 $01 0A6565 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A6568 C0 29 9A READ.B $299A 0A656B 38 00 19 BLS.B $0019 ; => $0A6587 0A656E 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 0A6577 84 00 READ.B $00 0A6579 E3 34 7B READ.F $347B 0A657C 22 MUL.F 0A657D 43 PUSH.6 $03 0A657E 45 PUSH.6 $05 0A657F 30 06 C4 BSR.68K $06C4 ; => $0A5EBE => $0A0076 0A6582 37 10 00 00 1F _23d2 $0000, $001F 0A6587 03 30 03 20 6D 6D TRAP1 " mm" 0A658D 30 06 A2 BSR.68K $06A2 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6590 03 30 13 43 41 4C 49 42 52 TRAP1 "CALIBRATION TIME: " 41 54 49 4F 4E 20 54 49 4D 45 3A 20 20 0A65A6 C1 33 D9 READ.W $33D9 0A65A9 44 PUSH.6 $04 0A65AA 30 06 F5 BSR.68K $06F5 ; => $0A5EB8 => $0A0036 0A65AD 03 30 05 20 73 65 63 73 TRAP1 " secs" 0A65B5 30 06 CA BSR.68K $06CA ; => $0A5EEE => $0A05A4 (NATIVE) 0A65B8 30 06 CD BSR.68K $06CD ; => $0A5EEE => $0A05A4 (NATIVE) 0A65BB 03 30 09 53 56 20 53 54 41 TRAP1 "SV STATUS" 54 55 53 0A65C7 30 06 DC BSR.68K $06DC ; => $0A5EEE => $0A05A4 (NATIVE) 0A65CA 03 30 09 2D 2D 2D 2D 2D 2D TRAP1 "---------" 2D 2D 2D 0A65D6 30 06 EB BSR.68K $06EB ; => $0A5EEE => $0A05A4 (NATIVE) 0A65D9 03 30 0E 48 45 41 4C 54 48 TRAP1 "HEALTHY SVS: " 59 20 53 56 53 3A 20 20 0A65EA 40 PUSH.6 $00 0A65EB 94 0A WRITE.B $0A 0A65ED 41 PUSH.6 $01 0A65EE 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A65F1 60 PUSH.6 $20 0A65F2 38 00 14 BLS.B $0014 ; => $0A6609 0A65F5 84 00 READ.B $00 0A65F7 E0 02 29 READ.B $0229 0A65FA 40 PUSH.6 $00 0A65FB 2A EQ.L 0A65FC 18 06 BRZ $006 ; => $0A6604 0A65FE 84 00 READ.B $00 0A6600 4E PUSH.6 $0E 0A6601 30 04 5A BSR.68K $045A ; => $0A61AA 0A6604 37 10 00 00 18 _23d2 $0000, $0018 0A6609 30 07 1E BSR.68K $071E ; => $0A5EEE => $0A05A4 (NATIVE) 0A660C 03 30 0E 44 49 53 41 42 4C TRAP1 "DISABLED SVS: " 45 44 20 53 56 53 3A 20 0A661D 40 PUSH.6 $00 0A661E 94 0A WRITE.B $0A 0A6620 41 PUSH.6 $01 0A6621 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A6624 60 PUSH.6 $20 0A6625 38 00 12 BLS.B $0012 ; => $0A663A 0A6628 84 00 READ.B $00 0A662A E0 22 D3 READ.B $22D3 0A662D 18 06 BRZ $006 ; => $0A6635 0A662F 84 00 READ.B $00 0A6631 4E PUSH.6 $0E 0A6632 30 04 8B BSR.68K $048B ; => $0A61AA 0A6635 37 10 00 00 16 _23d2 $0000, $0016 0A663A 30 07 4F BSR.68K $074F ; => $0A5EEE => $0A05A4 (NATIVE) 0A663D 03 30 21 49 47 4E 4F 52 45 TRAP1 "IGNORE HEALTH SVS (POSITIONING): " 20 48 45 41 4C 54 48 20 53 56 53 20 28 50 4F 53 49 54 49 4F 4E 49 4E 47 29 3A 20 0A6661 40 PUSH.6 $00 0A6662 94 0A WRITE.B $0A 0A6664 41 PUSH.6 $01 0A6665 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A6668 60 PUSH.6 $20 0A6669 38 00 12 BLS.B $0012 ; => $0A667E 0A666C 84 00 READ.B $00 0A666E E0 22 F5 READ.B $22F5 0A6671 18 06 BRZ $006 ; => $0A6679 0A6673 84 00 READ.B $00 0A6675 53 PUSH.6 $13 0A6676 30 04 CF BSR.68K $04CF ; => $0A61AA 0A6679 37 10 00 00 16 _23d2 $0000, $0016 0A667E 30 07 93 BSR.68K $0793 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6681 03 30 1C 49 47 4E 4F 52 45 TRAP1 "IGNORE HEALTH SVS (SURVEY): " 20 48 45 41 4C 54 48 20 53 56 53 20 28 53 55 52 56 45 59 29 3A 20 0A66A0 40 PUSH.6 $00 0A66A1 94 0A WRITE.B $0A 0A66A3 41 PUSH.6 $01 0A66A4 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A66A7 60 PUSH.6 $20 0A66A8 38 00 12 BLS.B $0012 ; => $0A66BD 0A66AB 84 00 READ.B $00 0A66AD E0 35 B7 READ.B $35B7 0A66B0 18 06 BRZ $006 ; => $0A66B8 0A66B2 84 00 READ.B $00 0A66B4 53 PUSH.6 $13 0A66B5 30 05 0E BSR.68K $050E ; => $0A61AA 0A66B8 37 10 00 00 16 _23d2 $0000, $0016 0A66BD 30 07 D2 BSR.68K $07D2 ; => $0A5EEE => $0A05A4 (NATIVE) 0A66C0 C0 28 FF READ.B $28FF 0A66C3 18 3D BRZ $03D ; => $0A6702 0A66C5 03 30 1C 41 55 54 4F 20 53 TRAP1 "AUTO SV SELECTION: MIN SVS " 56 20 53 45 4C 45 43 54 49 4F 4E 3A 20 20 4D 49 4E 20 53 56 53 20 0A66E4 C0 29 0D READ.B $290D 0A66E7 41 PUSH.6 $01 0A66E8 30 08 33 BSR.68K $0833 ; => $0A5EB8 => $0A0036 0A66EB 03 30 0B 2C 20 20 4D 41 58 TRAP1 ", MAX SVS " 20 53 56 53 20 0A66F9 C0 29 0C READ.B $290C 0A66FC 41 PUSH.6 $01 0A66FD 30 08 48 BSR.68K $0848 ; => $0A5EB8 => $0A0036 0A6700 10 5D BR $05D ; => $0A675F 0A6702 03 30 1D 4D 41 4E 55 41 4C TRAP1 "MANUAL SV SELECTION: MIN SVS " 20 53 56 20 53 45 4C 45 43 54 49 4F 4E 3A 20 4D 49 4E 20 53 56 53 20 0A6722 C0 29 0D READ.B $290D 0A6725 41 PUSH.6 $01 0A6726 30 08 71 BSR.68K $0871 ; => $0A5EB8 => $0A0036 0A6729 03 30 0B 2C 20 20 4D 41 58 TRAP1 ", MAX SVS " 20 53 56 53 20 0A6737 C0 29 0C READ.B $290C 0A673A 41 PUSH.6 $01 0A673B 30 08 86 BSR.68K $0886 ; => $0A5EB8 => $0A0036 0A673E 03 30 03 20 3B 20 TRAP1 " ; " 0A6744 40 PUSH.6 $00 0A6745 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A6748 C0 29 9B READ.B $299B 0A674B 38 00 11 BLS.B $0011 ; => $0A675F 0A674E 30 08 6F BSR.68K $086F ; => $0A5EE2 => $0A0584 (NATIVE) 0A6751 84 00 READ.B $00 0A6753 E0 29 0B READ.B $290B 0A6756 42 PUSH.6 $02 0A6757 30 08 A2 BSR.68K $08A2 ; => $0A5EB8 => $0A0036 0A675A 37 10 00 00 17 _23d2 $0000, $0017 0A675F 30 08 74 BSR.68K $0874 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6762 C0 29 11 READ.B $2911 0A6765 18 2A BRZ $02A ; => $0A6791 0A6767 03 30 1E 4D 41 4E 55 41 4C TRAP1 "MANUAL INITIAL SEARCH WITH SV " 20 49 4E 49 54 49 41 4C 20 53 45 41 52 43 48 20 57 49 54 48 20 53 56 20 0A6788 C0 29 12 READ.B $2912 0A678B 42 PUSH.6 $02 0A678C 30 08 D7 BSR.68K $08D7 ; => $0A5EB8 => $0A0036 0A678F 10 19 BR $019 ; => $0A67AA 0A6791 03 30 16 41 55 54 4F 20 49 TRAP1 "AUTO INITIAL SV SEARCH" 4E 49 54 49 41 4C 20 53 56 20 53 45 41 52 43 48 0A67AA 30 08 BF BSR.68K $08BF ; => $0A5EEE => $0A05A4 (NATIVE) 0A67AD 03 30 16 41 4C 4C 2D 49 4E TRAP1 "ALL-IN-VIEW SOLUTION: " 2D 56 49 45 57 20 53 4F 4C 55 54 49 4F 4E 3A 20 0A67C6 C0 35 7C READ.B $357C 0A67C9 30 08 88 BSR.68K $0888 ; => $0A5F44 0A67CC 30 08 E1 BSR.68K $08E1 ; => $0A5EEE => $0A05A4 (NATIVE) 0A67CF 03 30 0B 52 53 32 33 32 20 TRAP1 "RS232 PORTS" 50 4F 52 54 53 0A67DD 30 08 F2 BSR.68K $08F2 ; => $0A5EEE => $0A05A4 (NATIVE) 0A67E0 03 30 0B 2D 2D 2D 2D 2D 2D TRAP1 "-----------" 2D 2D 2D 2D 2D 0A67EE 30 09 03 BSR.68K $0903 ; => $0A5EEE => $0A05A4 (NATIVE) 0A67F1 41 PUSH.6 $01 0A67F2 30 08 87 BSR.68K $0887 ; => $0A5F6E 0A67F5 42 PUSH.6 $02 0A67F6 30 08 8B BSR.68K $088B ; => $0A5F6E 0A67F9 03 30 17 50 4F 53 49 54 49 TRAP1 "POSITION PRINT TIMER: " 4F 4E 20 50 52 49 4E 54 20 54 49 4D 45 52 3A 20 20 0A6813 C0 29 6E READ.B $296E 0A6816 42 PUSH.6 $02 0A6817 30 09 62 BSR.68K $0962 ; => $0A5EB8 => $0A0036 0A681A 03 30 05 20 6D 69 6E 73 TRAP1 " mins" 0A6822 30 09 37 BSR.68K $0937 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6825 03 30 0A 50 52 49 4E 54 20 TRAP1 "PRINT ID: " 49 44 3A 20 0A6832 C0 29 6F READ.B $296F 0A6835 42 PUSH.6 $02 0A6836 30 09 81 BSR.68K $0981 ; => $0A5EB8 => $0A0036 0A6839 30 09 4E BSR.68K $094E ; => $0A5EEE => $0A05A4 (NATIVE) 0A683C 30 09 51 BSR.68K $0951 ; => $0A5EEE => $0A05A4 (NATIVE) 0A683F 03 30 09 44 41 54 41 20 42 TRAP1 "DATA BASE" 41 53 45 0A684B 30 09 60 BSR.68K $0960 ; => $0A5EEE => $0A05A4 (NATIVE) 0A684E 03 30 09 2D 2D 2D 2D 2D 2D TRAP1 "---------" 2D 2D 2D 0A685A 30 09 6F BSR.68K $096F ; => $0A5EEE => $0A05A4 (NATIVE) 0A685D 03 30 0D 49 4F 4E 20 20 55 TRAP1 "ION UPDATE: " 50 44 41 54 45 3A 20 0A686D C0 28 AA READ.B $28AA 0A6870 30 09 2F BSR.68K $092F ; => $0A5F44 0A6873 03 30 0D 42 55 4C 20 20 55 TRAP1 "BUL UPDATE: " 50 44 41 54 45 3A 20 0A6883 C0 28 A8 READ.B $28A8 0A6886 30 09 45 BSR.68K $0945 ; => $0A5F44 0A6889 03 30 0D 44 41 54 41 20 55 TRAP1 "DATA UPDATE: " 50 44 41 54 45 3A 20 0A6899 C0 28 A9 READ.B $28A9 0A689C 30 09 5B BSR.68K $095B ; => $0A5F44 0A689F 30 09 B4 BSR.68K $09B4 ; => $0A5EEE => $0A05A4 (NATIVE) 0A68A2 03 30 12 52 45 43 45 49 56 TRAP1 "RECEIVER OPERATION" 45 52 20 4F 50 45 52 41 54 49 4F 4E 0A68B7 30 09 CC BSR.68K $09CC ; => $0A5EEE => $0A05A4 (NATIVE) 0A68BA 03 30 12 2D 2D 2D 2D 2D 2D TRAP1 "------------------" 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0A68CF 30 09 E4 BSR.68K $09E4 ; => $0A5EEE => $0A05A4 (NATIVE) 0A68D2 03 30 10 44 4F 50 50 4C 45 TRAP1 "DOPPLER AIDING: " 52 20 41 49 44 49 4E 47 3A 20 0A68E5 C0 28 FE READ.B $28FE 0A68E8 30 09 C9 BSR.68K $09C9 ; => $0A5F22 0A68EB 03 30 10 53 59 4E 43 3A 20 TRAP1 "SYNC: " 20 20 20 20 20 20 20 20 20 20 0A68FE C1 29 0F READ.W $290F 0A6901 40 PUSH.6 $00 0A6902 2A EQ.L 0A6903 18 0D BRZ $00D ; => $0A6912 0A6905 03 30 08 20 4E 4F 20 53 59 TRAP1 " NO SYNC" 4E 43 0A6910 10 12 BR $012 ; => $0A6924 0A6912 C1 29 0F READ.W $290F 0A6915 03 2A LONG2FLOAT 0A6917 44 PUSH.6 $04 0A6918 43 PUSH.6 $03 0A6919 30 0A 58 BSR.68K $0A58 ; => $0A5EC4 => $0A00D2 0A691C 03 30 05 20 73 65 63 73 TRAP1 " secs" 0A6924 30 0A 39 BSR.68K $0A39 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6927 03 30 10 4F 53 43 49 4C 4C TRAP1 "OSCILLATOR DAC: " 41 54 4F 52 20 44 41 43 3A 20 0A693A C0 29 75 READ.B $2975 0A693D 30 0A 1E BSR.68K $0A1E ; => $0A5F22 0A6940 03 30 10 53 56 20 41 56 45 TRAP1 "SV AVERAGING: " 52 41 47 49 4E 47 3A 20 20 20 0A6953 C3 28 F5 READ.F $28F5 0A6956 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A695F 22 MUL.F 0A6960 43 PUSH.6 $03 0A6961 42 PUSH.6 $02 0A6962 30 0A A1 BSR.68K $0AA1 ; => $0A5EC4 => $0A00D2 0A6965 03 30 05 20 73 65 63 73 TRAP1 " secs" 0A696D 30 0A 82 BSR.68K $0A82 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6970 03 30 14 50 4F 53 49 54 49 TRAP1 "POSITION AVERAGING: " 4F 4E 20 41 56 45 52 41 47 49 4E 47 3A 20 0A6987 C3 28 FD READ.F $28FD 0A698A 44 PUSH.6 $04 0A698B 55 PUSH.6 $15 0A698C 30 0A CB BSR.68K $0ACB ; => $0A5EC4 => $0A00D2 0A698F 30 0A A4 BSR.68K $0AA4 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6992 30 0A A7 BSR.68K $0AA7 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6995 03 30 08 53 4F 46 54 57 41 TRAP1 "SOFTWARE" 52 45 0A69A0 30 0A B5 BSR.68K $0AB5 ; => $0A5EEE => $0A05A4 (NATIVE) 0A69A3 03 30 08 2D 2D 2D 2D 2D 2D TRAP1 "--------" 2D 2D 0A69AE 30 0A C3 BSR.68K $0AC3 ; => $0A5EEE => $0A05A4 (NATIVE) 0A69B1 03 30 27 4E 41 56 49 47 41 TRAP1 "NAVIGATION PROCESSOR SOFTWARE VERSION: " 54 49 4F 4E 20 50 52 4F 43 45 53 53 4F 52 20 53 4F 46 54 57 41 52 45 20 56 45 52 53 49 4F 4E 3A 20 0A69DB C1 29 85 READ.W $2985 0A69DE 03 2A LONG2FLOAT 0A69E0 43 PUSH.6 $03 0A69E1 41 PUSH.6 $01 0A69E2 30 0B 21 BSR.68K $0B21 ; => $0A5EC4 => $0A00D2 0A69E5 03 30 02 20 20 TRAP1 " " 0A69EA C2 29 89 READ.L $2989 0A69ED 04 64 PUSH.10 $064 0A69EF 03 24 DIV.L 0A69F1 04 64 PUSH.10 $064 0A69F3 2F MOD.L 0A69F4 42 PUSH.6 $02 0A69F5 30 0B 40 BSR.68K $0B40 ; => $0A5EB8 => $0A0036 0A69F8 30 0B 13 BSR.68K $0B13 ; => $0A5EE8 => $0A058C (NATIVE) 0A69FB C2 29 89 READ.L $2989 0A69FE 3C 27 10 PUSH.W $2710 0A6A01 03 24 DIV.L 0A6A03 41 PUSH.6 $01 0A6A04 28 SUB.L 0A6A05 30 0B 2C BSR.68K $0B2C ; => $0A5EDC => $0A032E 0A6A08 30 0B 23 BSR.68K $0B23 ; => $0A5EE8 => $0A058C (NATIVE) 0A6A0B C2 29 89 READ.L $2989 0A6A0E 04 64 PUSH.10 $064 0A6A10 2F MOD.L 0A6A11 42 PUSH.6 $02 0A6A12 30 0B 5D BSR.68K $0B5D ; => $0A5EB8 => $0A0036 0A6A15 30 0B 2A BSR.68K $0B2A ; => $0A5EEE => $0A05A4 (NATIVE) 0A6A18 03 30 27 53 49 47 4E 41 4C TRAP1 "SIGNAL PROCESSOR SOFTWARE VERSION: " 20 50 52 4F 43 45 53 53 4F 52 20 53 4F 46 54 57 41 52 45 20 56 45 52 53 49 4F 4E 3A 20 20 20 20 20 0A6A42 C1 29 95 READ.W $2995 0A6A45 3C 07 FF PUSH.W $07FF 0A6A48 2C AND.L 0A6A49 03 2A LONG2FLOAT 0A6A4B 43 PUSH.6 $03 0A6A4C 41 PUSH.6 $01 0A6A4D 30 0B 8C BSR.68K $0B8C ; => $0A5EC4 => $0A00D2 0A6A50 03 30 02 20 20 TRAP1 " " 0A6A55 C0 29 98 READ.B $2998 0A6A58 42 PUSH.6 $02 0A6A59 30 0B A4 BSR.68K $0BA4 ; => $0A5EB8 => $0A0036 0A6A5C 30 0B 77 BSR.68K $0B77 ; => $0A5EE8 => $0A058C (NATIVE) 0A6A5F C0 29 99 READ.B $2999 0A6A62 41 PUSH.6 $01 0A6A63 28 SUB.L 0A6A64 30 0B 8B BSR.68K $0B8B ; => $0A5EDC => $0A032E 0A6A67 30 0B 82 BSR.68K $0B82 ; => $0A5EE8 => $0A058C (NATIVE) 0A6A6A C0 29 97 READ.B $2997 0A6A6D 42 PUSH.6 $02 0A6A6E 30 0B B9 BSR.68K $0BB9 ; => $0A5EB8 => $0A0036 0A6A71 30 0B 86 BSR.68K $0B86 ; => $0A5EEE => $0A05A4 (NATIVE) 0A6A74 32 0C ADDSP.B $0C 0A6A76 34 RETURN ; ---------------- End Function $0A61EA ---------------- ; ---------------- Begin 2164 Function $0A6A78 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $093CC0:$093E65 ; addr bytes opcode operands comment 0A6A81 C0 29 9D READ.B $299D 0A6A84 18 10 BRZ $010 ; => $0A6A96 0A6A86 86 07 READ.L $07 0A6A88 60 PUSH.6 $20 0A6A89 03 25 LT.L 0A6A8B 18 03 BRZ $003 ; => $0A6A90 0A6A8D 40 PUSH.6 $00 0A6A8E 10 02 BR $002 ; => $0A6A92 0A6A90 86 07 READ.L $07 0A6A92 96 03 WRITE.L $03 0A6A94 10 22 BR $022 ; => $0A6AB8 0A6A96 86 07 READ.L $07 0A6A98 40 PUSH.6 $00 0A6A99 2A EQ.L 0A6A9A 86 07 READ.L $07 0A6A9C 60 PUSH.6 $20 0A6A9D 03 25 LT.L 0A6A9F 2D OR.L 0A6AA0 18 03 BRZ $003 ; => $0A6AA5 0A6AA2 60 PUSH.6 $20 0A6AA3 96 07 WRITE.L $07 0A6AA5 02 INLINE 0A6AA6 20 16 move.l D0, D0 0A6AA8 42 AE 00 04 clr.l ($0004,A6) 0A6AAC 1D 7B 08 0C 00 07 move.b ($080c,A6), ($0007,A6) 0A6AB2 4B FA 00 04 lea ($0004,PC), A5 0A6AB6 4E 75 rts 0A6AB8 32 04 ADDSP.B $04 0A6ABA 34 RETURN ; ---------------- End Function $0A6A78 ---------------- ; ---------------- Begin 2144 Function $0A6B6C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7FA ; addr bytes opcode operands comment 0A6B73 31 0C SUBSP.B $0C 0A6B75 40 PUSH.6 $00 0A6B76 D0 55 64 WRITE.B $5564 0A6B79 40 PUSH.6 $00 0A6B7A 94 01 WRITE.B $01 0A6B7C 30 00 67 BSR.68K $0067 ; => $0A6B18 => $094E22 0A6B7F 97 09 WRITE.F $09 0A6B81 40 PUSH.6 $00 0A6B82 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A6B85 C0 29 9A READ.B $299A 0A6B88 38 01 16 BLS.B $0116 ; => $0A6CA1 0A6B8B 84 00 READ.B $00 0A6B8D E0 44 23 READ.B $4423 0A6B90 18 FB BRZ $0FB ; => $0A6C8D 0A6B92 84 00 READ.B $00 0A6B94 E0 40 09 READ.B $4009 0A6B97 94 0A WRITE.B $0A 0A6B99 84 0A READ.B $0A 0A6B9B 87 09 READ.F $09 0A6B9D F3 22 B1 WRITE.F $22B1 0A6BA0 84 00 READ.B $00 0A6BA2 C0 29 9B READ.B $299B 0A6BA5 03 28 GTE.L 0A6BA7 18 08 BRZ $008 ; => $0A6BB1 0A6BA9 C0 55 64 READ.B $5564 0A6BAC 41 PUSH.6 $01 0A6BAD 27 ADD.L 0A6BAE D0 55 64 WRITE.B $5564 0A6BB1 84 00 READ.B $00 0A6BB3 35 SWITCH 0A6BB4 10 0D 00 CASE $00 ; SWITCH $0A6BB3 0A6BB7 08 52 69 00 32 ?_$08 $5269, $0032 0A6BBC 0C 52 37 00 32 ?_$0C $5237, $0032 0A6BC1 10 88 BR $088 ; => $0A6C4B 0A6BC3 10 0D 01 CASE $01 ; SWITCH $0A6BB3 0A6BC6 08 52 9B 00 32 ?_$08 $529B, $0032 0A6BCB 0C 52 37 00 32 ?_$0C $5237, $0032 0A6BD0 10 79 BR $079 ; => $0A6C4B 0A6BD2 10 0D 02 CASE $02 ; SWITCH $0A6BB3 0A6BD5 08 52 CD 00 32 ?_$08 $52CD, $0032 0A6BDA 0C 52 37 00 32 ?_$0C $5237, $0032 0A6BDF 10 6A BR $06A ; => $0A6C4B 0A6BE1 10 0D 03 CASE $03 ; SWITCH $0A6BB3 0A6BE4 08 52 FF 00 32 ?_$08 $52FF, $0032 0A6BE9 0C 52 37 00 32 ?_$0C $5237, $0032 0A6BEE 10 5B BR $05B ; => $0A6C4B 0A6BF0 10 0D 04 CASE $04 ; SWITCH $0A6BB3 0A6BF3 08 53 31 00 32 ?_$08 $5331, $0032 0A6BF8 0C 52 37 00 32 ?_$0C $5237, $0032 0A6BFD 10 4C BR $04C ; => $0A6C4B 0A6BFF 10 0D 05 CASE $05 ; SWITCH $0A6BB3 0A6C02 08 53 63 00 32 ?_$08 $5363, $0032 0A6C07 0C 52 37 00 32 ?_$0C $5237, $0032 0A6C0C 10 3D BR $03D ; => $0A6C4B 0A6C0E 10 0D 06 CASE $06 ; SWITCH $0A6BB3 0A6C11 08 53 95 00 32 ?_$08 $5395, $0032 0A6C16 0C 52 37 00 32 ?_$0C $5237, $0032 0A6C1B 10 2E BR $02E ; => $0A6C4B 0A6C1D 10 0D 07 CASE $07 ; SWITCH $0A6BB3 0A6C20 08 53 C7 00 32 ?_$08 $53C7, $0032 0A6C25 0C 52 37 00 32 ?_$0C $5237, $0032 0A6C2A 10 1F BR $01F ; => $0A6C4B 0A6C2C 10 0D 08 CASE $08 ; SWITCH $0A6BB3 0A6C2F 08 53 F9 00 32 ?_$08 $53F9, $0032 0A6C34 0C 52 37 00 32 ?_$0C $5237, $0032 0A6C39 10 10 BR $010 ; => $0A6C4B 0A6C3B 10 0D 09 CASE $09 ; SWITCH $0A6BB3 0A6C3E 08 54 2B 00 32 ?_$08 $542B, $0032 0A6C43 0C 52 37 00 32 ?_$0C $5237, $0032 0A6C48 10 01 BR $001 ; => $0A6C4B 0A6C4A 00 DEFAULT ; SWITCH $0A6BB3 0A6C4B 84 0A READ.B $0A 0A6C4D 30 01 3E BSR.68K $013E ; => $0A6B12 => $095184 0A6C50 18 31 BRZ $031 ; => $0A6C83 0A6C52 84 01 READ.B $01 0A6C54 2E NOT.L 0A6C55 18 09 BRZ $009 ; => $0A6C60 0A6C57 84 00 READ.B $00 0A6C59 D0 56 5F WRITE.B $565F 0A6C5C 04 FF PUSH.10 $0FF 0A6C5E 94 01 WRITE.B $01 0A6C60 84 00 READ.B $00 0A6C62 C0 29 9B READ.B $299B 0A6C65 03 25 LT.L 0A6C67 18 11 BRZ $011 ; => $0A6C7A 0A6C69 84 00 READ.B $00 0A6C6B 30 01 26 BSR.68K $0126 ; => $0A6B48 => $096A90 0A6C6E 84 00 READ.B $00 0A6C70 30 01 25 BSR.68K $0125 ; => $0A6B4E => $096BC2 0A6C73 84 00 READ.B $00 0A6C75 30 01 24 BSR.68K $0124 ; => $0A6B54 => $096D66 0A6C78 10 07 BR $007 ; => $0A6C81 0A6C7A 84 00 READ.B $00 0A6C7C 84 0A READ.B $0A 0A6C7E 30 01 27 BSR.68K $0127 ; => $0A6B5A => $0966FA 0A6C81 10 08 BR $008 ; => $0A6C8B 0A6C83 84 00 READ.B $00 0A6C85 30 01 28 BSR.68K $0128 ; => $0A6B60 => $096434 0A6C88 F3 41 49 WRITE.F $4149 0A6C8B 10 0F BR $00F ; => $0A6C9C 0A6C8D 84 00 READ.B $00 0A6C8F C0 29 A0 READ.B $29A0 0A6C92 03 25 LT.L 0A6C94 18 06 BRZ $006 ; => $0A6C9C 0A6C96 84 00 READ.B $00 0A6C98 3E PUSH.W $0000 0A6C99 F3 41 49 WRITE.F $4149 0A6C9C 37 10 00 01 1C _23d2 $0000, $011C 0A6CA1 C2 56 2D READ.L $562D 0A6CA4 D2 6B CD WRITE.L $6BCD 0A6CA7 C0 6B CE READ.B $6BCE 0A6CAA 2E NOT.L 0A6CAB 18 04 BRZ $004 ; => $0A6CB1 0A6CAD 40 PUSH.6 $00 0A6CAE D2 56 2D WRITE.L $562D 0A6CB1 30 01 4E BSR.68K $014E ; => $0A6B66 => $0962CC 0A6CB4 32 0C ADDSP.B $0C 0A6CB6 34 RETURN ; ---------------- End Function $0A6B6C ---------------- ; ---------------- Begin 2164 Function $0A6CB8 ---------------- ; P0 = $0000; P1 = $0008; P2 = $02 ; A0 = $004008; (A0) = A6 + $FFFFFFFF; D1 = $000008 ; called from $0A6E44:$0A7099 ; addr bytes opcode operands comment 0A6CC1 31 40 SUBSP.B $40 0A6CC3 84 E8 READ.B $E8 0A6CC5 18 05 BRZ $005 ; => $0A6CCC 0A6CC7 3E PUSH.W $0000 0A6CC8 9B 07 WRITE.F $07 0A6CCA 11 74 BR $174 ; => $0A6E40 0A6CCC 3B 3F 8C 0E BE DF A4 3F E6 PUSH.F $3F8C0EBEDFA43FE6 ; float = 0.013700 0A6CD5 C3 56 15 READ.F $5615 0A6CD8 3B 3F BC 28 F5 C2 8F 5C 29 PUSH.F $3FBC28F5C28F5C29 ; float = 0.110000 0A6CE1 20 ADD.F 0A6CE2 23 DIV.F 0A6CE3 3B 3F 96 87 2B 02 0C 49 BA PUSH.F $3F96872B020C49BA ; float = 0.022000 0A6CEC 21 SUB.F 0A6CED 9B 0F WRITE.F $0F 0A6CEF 83 37 READ.F $37 0A6CF1 3B 3F DA 9F BE 76 C8 B4 39 PUSH.F $3FDA9FBE76C8B439 ; float = 0.416000 0A6CFA 03 21 LT.F 0A6CFC 18 0A BRZ $00A ; => $0A6D08 0A6CFE 83 37 READ.F $37 0A6D00 8B 0F READ.F $0F 0A6D02 87 BF READ.F $BF 0A6D04 22 MUL.F 0A6D05 20 ADD.F 0A6D06 10 02 BR $002 ; => $0A6D0A 0A6D08 83 37 READ.F $37 0A6D0A 9B 1F WRITE.F $1F 0A6D0C 83 3F READ.F $3F 0A6D0E 8B 0F READ.F $0F 0A6D10 87 B7 READ.F $B7 0A6D12 22 MUL.F 0A6D13 8B 1F READ.F $1F 0A6D15 30 02 2A BSR.68K $022A ; => $0A6AEE => $002F2A (NATIVE) 0A6D18 23 DIV.F 0A6D19 20 ADD.F 0A6D1A 9B 17 WRITE.F $17 0A6D1C 8B 1F READ.F $1F 0A6D1E 3B 3F B0 62 4D D2 F1 A9 FC PUSH.F $3FB0624DD2F1A9FC ; float = 0.064000 0A6D27 8B 17 READ.F $17 0A6D29 3B 3F F9 DF 3B 64 5A 1C AC PUSH.F $3FF9DF3B645A1CAC ; float = 1.617000 0A6D32 21 SUB.F 0A6D33 30 02 48 BSR.68K $0248 ; => $0A6AEE => $002F2A (NATIVE) 0A6D36 22 MUL.F 0A6D37 20 ADD.F 0A6D38 9B 27 WRITE.F $27 0A6D3A 3B 40 F5 18 00 00 00 00 00 PUSH.F $40F5180000000000 ; float = 86400.000000 0A6D43 3B 3E E8 45 C8 A0 CE 50 FE PUSH.F $3EE845C8A0CE50FE ; float = 0.000012 0A6D4C 3B 40 E5 18 00 00 00 00 00 PUSH.F $40E5180000000000 ; float = 43200.000000 0A6D55 8B 17 READ.F $17 0A6D57 22 MUL.F 0A6D58 87 0F READ.F $0F 0A6D5A 20 ADD.F 0A6D5B 22 MUL.F 0A6D5C 30 02 59 BSR.68K $0259 ; => $0A6B06 => $002C08 (NATIVE) 0A6D5F 22 MUL.F 0A6D60 9B 2F WRITE.F $2F 0A6D62 3B 3F E0 F5 C2 8F 5C 28 F6 PUSH.F $3FE0F5C28F5C28F6 ; float = 0.530000 0A6D6B C3 56 15 READ.F $5615 0A6D6E 21 SUB.F 0A6D6F 9B 47 WRITE.F $47 0A6D71 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A6D7A 8B 47 READ.F $47 0A6D7C 8B 47 READ.F $47 0A6D7E 30 02 9F BSR.68K $029F ; => $0A6AE2 => $002B72 (NATIVE) 0A6D81 22 MUL.F 0A6D82 44 PUSH.6 $04 0A6D83 30 02 8C BSR.68K $028C ; => $0A6AFA => $002BAE (NATIVE) 0A6D86 20 ADD.F 0A6D87 9B 37 WRITE.F $37 0A6D89 C3 28 47 READ.F $2847 0A6D8C 8B 27 READ.F $27 0A6D8E C3 28 4F READ.F $284F 0A6D91 8B 27 READ.F $27 0A6D93 C3 28 57 READ.F $2857 0A6D96 8B 27 READ.F $27 0A6D98 C3 28 5F READ.F $285F 0A6D9B 22 MUL.F 0A6D9C 20 ADD.F 0A6D9D 22 MUL.F 0A6D9E 20 ADD.F 0A6D9F 22 MUL.F 0A6DA0 20 ADD.F 0A6DA1 9B 3F WRITE.F $3F 0A6DA3 8B 3F READ.F $3F 0A6DA5 3B 40 E8 6A 00 00 00 00 00 PUSH.F $40E86A0000000000 ; float = 50000.000000 0A6DAE 24 GT.F 0A6DAF 18 12 BRZ $012 ; => $0A6DC3 0A6DB1 8B 3F READ.F $3F 0A6DB3 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 0A6DBC 22 MUL.F 0A6DBD 41 PUSH.6 $01 0A6DBE 30 02 C1 BSR.68K $02C1 ; => $0A6B00 => $002BEA (NATIVE) 0A6DC1 9B 3F WRITE.F $3F 0A6DC3 8B 2F READ.F $2F 0A6DC5 3B 40 E8 9C 00 00 00 00 00 PUSH.F $40E89C0000000000 ; float = 50400.000000 0A6DCE 21 SUB.F 0A6DCF 8B 3F READ.F $3F 0A6DD1 23 DIV.F 0A6DD2 9B 3F WRITE.F $3F 0A6DD4 8B 37 READ.F $37 0A6DD6 3B 3E 35 79 8E E2 30 8C 3A PUSH.F $3E35798EE2308C3A ; float = 0.000000 0A6DDF 22 MUL.F 0A6DE0 9B 2F WRITE.F $2F 0A6DE2 8B 3F READ.F $3F 0A6DE4 30 03 0B BSR.68K $030B ; => $0A6ADC => $002B7E (NATIVE) 0A6DE7 3B 3F F9 1E B8 51 EB 85 1F PUSH.F $3FF91EB851EB851F ; float = 1.570000 0A6DF0 03 21 LT.F 0A6DF2 18 48 BRZ $048 ; => $0A6E3C 0A6DF4 8B 3F READ.F $3F 0A6DF6 30 03 17 BSR.68K $0317 ; => $0A6AE2 => $002B72 (NATIVE) 0A6DF9 9B 3F WRITE.F $3F 0A6DFB 8B 2F READ.F $2F 0A6DFD 8B 37 READ.F $37 0A6DFF C3 28 27 READ.F $2827 0A6E02 8B 27 READ.F $27 0A6E04 C3 28 2F READ.F $282F 0A6E07 8B 27 READ.F $27 0A6E09 C3 28 37 READ.F $2837 0A6E0C 8B 27 READ.F $27 0A6E0E C3 28 3F READ.F $283F 0A6E11 22 MUL.F 0A6E12 20 ADD.F 0A6E13 22 MUL.F 0A6E14 20 ADD.F 0A6E15 22 MUL.F 0A6E16 20 ADD.F 0A6E17 22 MUL.F 0A6E18 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A6E21 8B 3F READ.F $3F 0A6E23 41 PUSH.6 $01 0A6E24 30 03 27 BSR.68K $0327 ; => $0A6B00 => $002BEA (NATIVE) 0A6E27 21 SUB.F 0A6E28 8B 3F READ.F $3F 0A6E2A 30 03 4B BSR.68K $034B ; => $0A6AE2 => $002B72 (NATIVE) 0A6E2D 3B 3F A5 55 55 55 55 55 85 PUSH.F $3FA5555555555585 ; float = 0.041667 0A6E36 22 MUL.F 0A6E37 20 ADD.F 0A6E38 22 MUL.F 0A6E39 20 ADD.F 0A6E3A 9B 2F WRITE.F $2F 0A6E3C 8B 2F READ.F $2F 0A6E3E 9B 07 WRITE.F $07 0A6E40 32 40 ADDSP.B $40 0A6E42 34 RETURN ; ---------------- End Function $0A6CB8 ---------------- ; ---------------- Begin 2144 Function $0A6E44 ---------------- ; A0 = $004004; (A0) = SP + $4F ; called from $0966FA:$0969C3 ; addr bytes opcode operands comment 0A6E4B 31 9A SUBSP.B $9A 0A6E4D C0 4E 70 READ.B $4E70 0A6E50 C0 67 EC READ.B $67EC 0A6E53 C0 29 2C READ.B $292C 0A6E56 40 PUSH.6 $00 0A6E57 2A EQ.L 0A6E58 2C AND.L 0A6E59 C0 56 6E READ.B $566E 0A6E5C C0 56 C6 READ.B $56C6 0A6E5F 2C AND.L 0A6E60 2E NOT.L 0A6E61 2C AND.L 0A6E62 2D OR.L 0A6E63 94 E8 WRITE.B $E8 0A6E65 87 0F READ.F $0F 0A6E67 87 33 READ.F $33 0A6E69 21 SUB.F 0A6E6A 97 57 WRITE.F $57 0A6E6C 87 57 READ.F $57 0A6E6E 3B 40 82 C0 00 00 00 00 00 PUSH.F $4082C00000000000 ; float = 600.000000 0A6E77 24 GT.F 0A6E78 87 57 READ.F $57 0A6E7A 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A6E83 03 21 LT.F 0A6E85 2D OR.L 0A6E86 18 20 BRZ $020 ; => $0A6EA8 0A6E88 86 07 READ.L $07 0A6E8A C1 29 FD READ.W $29FD 0A6E8D 87 0F READ.F $0F 0A6E8F 3B 3F AE B8 51 EB 85 1E B8 PUSH.F $3FAEB851EB851EB8 ; float = 0.060000 0A6E98 21 SUB.F 0A6E99 40 PUSH.6 $00 0A6E9A 86 03 READ.L $03 0A6E9C 30 03 69 BSR.68K $0369 ; => $0A6B36 => $0AD4F0 0A6E9F 86 03 READ.L $03 0A6EA1 83 CF READ.F $CF 0A6EA3 F3 62 ED WRITE.F $62ED 0A6EA6 10 44 BR $044 ; => $0A6EEC 0A6EA8 41 PUSH.6 $01 0A6EA9 4A PUSH.6 $0A 0A6EAA 29 MUL.L 0A6EAB 86 03 READ.L $03 0A6EAD 27 ADD.L 0A6EAE 40 PUSH.6 $00 0A6EAF 4A PUSH.6 $0A 0A6EB0 29 MUL.L 0A6EB1 86 03 READ.L $03 0A6EB3 27 ADD.L 0A6EB4 E3 63 8D READ.F $638D 0A6EB7 F3 63 8D WRITE.F $638D 0A6EBA 40 PUSH.6 $00 0A6EBB 4A PUSH.6 $0A 0A6EBC 29 MUL.L 0A6EBD 86 03 READ.L $03 0A6EBF 27 ADD.L 0A6EC0 86 03 READ.L $03 0A6EC2 E3 62 ED READ.F $62ED 0A6EC5 F3 63 8D WRITE.F $638D 0A6EC8 86 03 READ.L $03 0A6ECA 86 03 READ.L $03 0A6ECC E3 42 D9 READ.F $42D9 0A6ECF 87 27 READ.F $27 0A6ED1 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0A6EDA 21 SUB.F 0A6EDB 87 57 READ.F $57 0A6EDD 22 MUL.F 0A6EDE 3B 3F C8 5B 8B 06 A7 E6 99 PUSH.F $3FC85B8B06A7E699 ; float = 0.190294 0A6EE7 22 MUL.F 0A6EE8 21 SUB.F 0A6EE9 F3 62 ED WRITE.F $62ED 0A6EEC 87 0F READ.F $0F 0A6EEE 86 03 READ.L $03 0A6EF0 E3 62 ED READ.F $62ED 0A6EF3 3B 3E 2C A7 26 EB 25 EB 7F PUSH.F $3E2CA726EB25EB7F ; float = 0.000000 0A6EFC 22 MUL.F 0A6EFD 21 SUB.F 0A6EFE 97 0F WRITE.F $0F 0A6F00 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A6F09 87 0F READ.F $0F 0A6F0B 87 33 READ.F $33 0A6F0D 21 SUB.F 0A6F0E 23 DIV.F 0A6F0F 97 7F WRITE.F $7F 0A6F11 87 0F READ.F $0F 0A6F13 86 07 READ.L $07 0A6F15 E2 07 B7 READ.L $07B7 0A6F18 03 2A LONG2FLOAT 0A6F1A 21 SUB.F 0A6F1B 97 C7 WRITE.F $C7 0A6F1D 87 C7 READ.F $C7 0A6F1F 3B 41 12 75 00 00 00 00 00 PUSH.F $4112750000000000 ; float = 302400.000000 0A6F28 24 GT.F 0A6F29 18 10 BRZ $010 ; => $0A6F3B 0A6F2B 87 C7 READ.F $C7 0A6F2D 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0A6F36 21 SUB.F 0A6F37 97 C7 WRITE.F $C7 0A6F39 10 1F BR $01F ; => $0A6F5A 0A6F3B 87 C7 READ.F $C7 0A6F3D 3B 41 12 75 00 00 00 00 00 PUSH.F $4112750000000000 ; float = 302400.000000 0A6F46 03 20 NEG.W 0A6F48 03 21 LT.F 0A6F4A 18 0E BRZ $00E ; => $0A6F5A 0A6F4C 87 C7 READ.F $C7 0A6F4E 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0A6F57 20 ADD.F 0A6F58 97 C7 WRITE.F $C7 0A6F5A 86 07 READ.L $07 0A6F5C E3 05 23 READ.F $0523 0A6F5F 87 C7 READ.F $C7 0A6F61 22 MUL.F 0A6F62 97 DF WRITE.F $DF 0A6F64 86 07 READ.L $07 0A6F66 E3 07 33 READ.F $0733 0A6F69 86 07 READ.L $07 0A6F6B E3 06 2B READ.F $062B 0A6F6E 87 DF READ.F $DF 0A6F70 20 ADD.F 0A6F71 87 C7 READ.F $C7 0A6F73 22 MUL.F 0A6F74 20 ADD.F 0A6F75 97 E7 WRITE.F $E7 0A6F77 86 07 READ.L $07 0A6F79 E3 06 2B READ.F $062B 0A6F7C 87 DF READ.F $DF 0A6F7E 41 PUSH.6 $01 0A6F7F 30 04 88 BSR.68K $0488 ; => $0A6AFA => $002BAE (NATIVE) 0A6F82 20 ADD.F 0A6F83 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 0A6F8C 22 MUL.F 0A6F8D 97 D7 WRITE.F $D7 0A6F8F 87 E7 READ.F $E7 0A6F91 86 07 READ.L $07 0A6F93 E3 03 97 READ.F $0397 0A6F96 21 SUB.F 0A6F97 97 CF WRITE.F $CF 0A6F99 86 03 READ.L $03 0A6F9B 87 CF READ.F $CF 0A6F9D F3 4E 07 WRITE.F $4E07 0A6FA0 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 0A6FA9 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 0A6FB2 87 0F READ.F $0F 0A6FB4 87 CF READ.F $CF 0A6FB6 20 ADD.F 0A6FB7 22 MUL.F 0A6FB8 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A6FC1 20 ADD.F 0A6FC2 30 04 B9 BSR.68K $04B9 ; => $0A6B0C => $002CA6 (NATIVE) 0A6FC5 22 MUL.F 0A6FC6 97 0F WRITE.F $0F 0A6FC8 87 0F READ.F $0F 0A6FCA 87 CF READ.F $CF 0A6FCC 21 SUB.F 0A6FCD 97 0F WRITE.F $0F 0A6FCF 87 27 READ.F $27 0A6FD1 87 D7 READ.F $D7 0A6FD3 21 SUB.F 0A6FD4 97 27 WRITE.F $27 0A6FD6 C0 54 2C READ.B $542C 0A6FD9 86 03 READ.L $03 0A6FDB C0 56 5F READ.B $565F 0A6FDE 2B NEQ.L 0A6FDF 2C AND.L 0A6FE0 87 0F READ.F $0F 0A6FE2 C0 56 5F READ.B $565F 0A6FE5 E3 40 59 READ.F $4059 0A6FE8 26 EQ.F 0A6FE9 2C AND.L 0A6FEA 18 32 BRZ $032 ; => $0A701E 0A6FEC C0 56 5F READ.B $565F 0A6FEF E3 41 E9 READ.F $41E9 0A6FF2 C0 56 5F READ.B $565F 0A6FF5 E3 42 39 READ.F $4239 0A6FF8 C0 56 5F READ.B $565F 0A6FFB E3 42 89 READ.F $4289 0A6FFE 30 04 DD BSR.68K $04DD ; => $0A6B24 => $0AA6E6 0A7001 C0 56 5F READ.B $565F 0A7004 E3 43 79 READ.F $4379 0A7007 D3 4E 33 WRITE.F $4E33 0A700A C0 56 5F READ.B $565F 0A700D E3 43 C9 READ.F $43C9 0A7010 D3 4E 3B WRITE.F $4E3B 0A7013 C0 56 5F READ.B $565F 0A7016 E3 44 19 READ.F $4419 0A7019 D3 4E 43 WRITE.F $4E43 0A701C 10 0E BR $00E ; => $0A702C 0A701E 86 07 READ.L $07 0A7020 C1 29 FD READ.W $29FD 0A7023 87 0F READ.F $0F 0A7025 04 FF PUSH.10 $0FF 0A7027 86 03 READ.L $03 0A7029 30 04 F6 BSR.68K $04F6 ; => $0A6B36 => $0AD4F0 0A702C C0 54 2C READ.B $542C 0A702F 86 03 READ.L $03 0A7031 C0 56 5F READ.B $565F 0A7034 2B NEQ.L 0A7035 2C AND.L 0A7036 18 30 BRZ $030 ; => $0A7068 0A7038 86 03 READ.L $03 0A703A C0 56 5F READ.B $565F 0A703D E3 46 03 READ.F $4603 0A7040 F3 46 03 WRITE.F $4603 0A7043 C0 56 5F READ.B $565F 0A7046 E3 46 03 READ.F $4603 0A7049 87 B7 00 READ.F $B7 0A704C 87 BF 00 READ.F $BF 0A704F 30 05 5E BSR.68K $055E ; => $0A6AF4 => $002E62 (NATIVE) 0A7052 86 03 READ.L $03 0A7054 C0 56 5F READ.B $565F 0A7057 E3 43 29 READ.F $4329 0A705A F3 43 29 WRITE.F $4329 0A705D C0 56 5F READ.B $565F 0A7060 E3 43 29 READ.F $4329 0A7063 D3 56 15 WRITE.F $5615 0A7066 10 19 BR $019 ; => $0A7081 0A7068 86 03 READ.L $03 0A706A 87 B7 00 READ.F $B7 0A706D 87 BF 00 READ.F $BF 0A7070 30 05 55 BSR.68K $0555 ; => $0A6B1E => $0AA420 0A7073 F3 46 03 WRITE.F $4603 0A7076 30 05 3D BSR.68K $053D ; => $0A6B3C => $0AA358 0A7079 86 03 READ.L $03 0A707B C3 56 15 READ.F $5615 0A707E F3 43 29 WRITE.F $4329 0A7081 C0 56 5E READ.B $565E 0A7084 18 13 BRZ $013 ; => $0A7099 0A7086 3B 3E 11 2E 0B E8 26 D6 95 PUSH.F $3E112E0BE826D695 ; float = 0.000000 0A708F 86 03 READ.L $03 0A7091 E0 47 11 READ.B $4711 0A7094 03 2A LONG2FLOAT 0A7096 22 MUL.F 0A7097 10 03 BR $003 ; => $0A709C 0A7099 30 03 E4 BSR.68K $03E4 ; => $0A6CB8 0A709C 97 5F WRITE.F $5F 0A709E 84 E8 READ.B $E8 0A70A0 18 03 BRZ $003 ; => $0A70A5 0A70A2 3E PUSH.W $0000 0A70A3 10 1A BR $01A ; => $0A70BF 0A70A5 3B 40 03 61 47 AE 14 7A E1 PUSH.F $40036147AE147AE1 ; float = 2.422500 0A70AE C3 56 15 READ.F $5615 0A70B1 30 05 CC BSR.68K $05CC ; => $0A6AE8 => $002EFE (NATIVE) 0A70B4 3B 3F 9A 9F BE 76 C8 B4 39 PUSH.F $3F9A9FBE76C8B439 ; float = 0.026000 0A70BD 20 ADD.F 0A70BE 23 DIV.F 0A70BF 97 77 WRITE.F $77 0A70C1 87 3F READ.F $3F 0A70C3 3E PUSH.W $0000 0A70C4 26 EQ.F 0A70C5 84 E8 READ.B $E8 0A70C7 2D OR.L 0A70C8 18 03 BRZ $003 ; => $0A70CD 0A70CA 3E PUSH.W $0000 0A70CB 10 08 BR $008 ; => $0A70D5 0A70CD 87 5F READ.F $5F 0A70CF 87 3F READ.F $3F 0A70D1 21 SUB.F 0A70D2 87 7F READ.F $7F 0A70D4 22 MUL.F 0A70D5 97 67 WRITE.F $67 0A70D7 86 03 READ.L $03 0A70D9 E3 47 07 READ.F $4707 0A70DC 3E PUSH.W $0000 0A70DD 26 EQ.F 0A70DE 84 E8 READ.B $E8 0A70E0 2D OR.L 0A70E1 18 03 BRZ $003 ; => $0A70E6 0A70E3 3E PUSH.W $0000 0A70E4 10 0B BR $00B ; => $0A70F1 0A70E6 87 77 READ.F $77 0A70E8 86 03 READ.L $03 0A70EA E3 47 07 READ.F $4707 0A70ED 21 SUB.F 0A70EE 87 7F READ.F $7F 0A70F0 22 MUL.F 0A70F1 97 6F WRITE.F $6F 0A70F3 86 03 READ.L $03 0A70F5 87 67 READ.F $67 0A70F7 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 0A7100 22 MUL.F 0A7101 F3 6B C9 WRITE.F $6BC9 0A7104 3B BD FE 87 DF 6E DC 35 6A PUSH.F $BDFE87DF6EDC356A ; float = -0.000000 0A710D 86 07 READ.L $07 0A710F E3 0C 5B READ.F $0C5B 0A7112 22 MUL.F 0A7113 86 07 READ.L $07 0A7115 E3 0B 53 READ.F $0B53 0A7118 22 MUL.F 0A7119 97 9F WRITE.F $9F 0A711B 87 9F READ.F $9F 0A711D 86 03 READ.L $03 0A711F E3 45 13 READ.F $4513 0A7122 22 MUL.F 0A7123 97 A7 WRITE.F $A7 0A7125 87 9F READ.F $9F 0A7127 86 03 READ.L $03 0A7129 E3 45 B3 READ.F $45B3 0A712C 22 MUL.F 0A712D 3B 40 09 21 FB 54 44 2D 28 PUSH.F $400921FB54442D28 ; float = 3.141593 0A7136 22 MUL.F 0A7137 86 03 READ.L $03 0A7139 E3 45 63 READ.F $4563 0A713C 22 MUL.F 0A713D 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A7146 86 07 READ.L $07 0A7148 E3 0B 53 READ.F $0B53 0A714B 86 03 READ.L $03 0A714D E3 45 63 READ.F $4563 0A7150 22 MUL.F 0A7151 21 SUB.F 0A7152 23 DIV.F 0A7153 97 AF WRITE.F $AF 0A7155 87 27 READ.F $27 0A7157 3B 41 D7 79 C0 18 00 00 00 PUSH.F $41D779C018000000 ; float = 1575420000.000000 0A7160 87 67 READ.F $67 0A7162 87 AF READ.F $AF 0A7164 20 ADD.F 0A7165 22 MUL.F 0A7166 21 SUB.F 0A7167 87 6F READ.F $6F 0A7169 3B 40 15 05 1E B8 51 EB 85 PUSH.F $4015051EB851EB85 ; float = 5.255000 0A7172 22 MUL.F 0A7173 20 ADD.F 0A7174 97 27 WRITE.F $27 0A7176 87 4B READ.F $4B 0A7178 3E PUSH.W $0000 0A7179 26 EQ.F 0A717A C0 4E 70 READ.B $4E70 0A717D 2D OR.L 0A717E 18 03 BRZ $003 ; => $0A7183 0A7180 3E PUSH.W $0000 0A7181 10 08 BR $008 ; => $0A718B 0A7183 87 27 READ.F $27 0A7185 87 4B READ.F $4B 0A7187 21 SUB.F 0A7188 87 7F READ.F $7F 0A718A 22 MUL.F 0A718B D3 56 69 WRITE.F $5669 0A718E 86 03 READ.L $03 0A7190 86 03 READ.L $03 0A7192 E3 59 E7 READ.F $59E7 0A7195 3E PUSH.W $0000 0A7196 26 EQ.F 0A7197 18 05 BRZ $005 ; => $0A719E 0A7199 C3 56 69 READ.F $5669 0A719C 10 19 BR $019 ; => $0A71B7 0A719E 86 03 READ.L $03 0A71A0 E3 59 E7 READ.F $59E7 0A71A3 3B 3F 9E B8 51 EB 85 1E B8 PUSH.F $3F9EB851EB851EB8 ; float = 0.030000 0A71AC C3 56 69 READ.F $5669 0A71AF 86 03 READ.L $03 0A71B1 E3 59 E7 READ.F $59E7 0A71B4 21 SUB.F 0A71B5 22 MUL.F 0A71B6 20 ADD.F 0A71B7 F3 59 E7 WRITE.F $59E7 0A71BA 87 1B READ.F $1B 0A71BC 87 5F READ.F $5F 0A71BE 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 0A71C7 22 MUL.F 0A71C8 21 SUB.F 0A71C9 3B 3F 80 3D 14 5D 85 16 55 PUSH.F $3F803D145D851655 ; float = 0.007929 0A71D2 C3 56 69 READ.F $5669 0A71D5 22 MUL.F 0A71D6 C0 29 10 READ.B $2910 0A71D9 03 2A LONG2FLOAT 0A71DB 3B 3F D0 62 4D D2 F1 A9 FC PUSH.F $3FD0624DD2F1A9FC ; float = 0.256000 0A71E4 22 MUL.F 0A71E5 30 07 06 BSR.68K $0706 ; => $0A6AE2 => $002B72 (NATIVE) 0A71E8 22 MUL.F 0A71E9 20 ADD.F 0A71EA 97 1B WRITE.F $1B 0A71EC 86 03 READ.L $03 0A71EE E0 49 11 READ.B $4911 0A71F1 42 PUSH.6 $02 0A71F2 2C AND.L 0A71F3 40 PUSH.6 $00 0A71F4 2A EQ.L 0A71F5 C0 29 9D READ.B $299D 0A71F8 2D OR.L 0A71F9 18 12 BRZ $012 ; => $0A720D 0A71FB 86 03 READ.L $03 0A71FD 87 5F READ.F $5F 0A71FF 87 3F READ.F $3F 0A7201 21 SUB.F 0A7202 30 06 D5 BSR.68K $06D5 ; => $0A6B30 => $09CFB8 0A7205 86 03 READ.L $03 0A7207 87 1B 00 READ.F $1B 0A720A 30 06 E3 BSR.68K $06E3 ; => $0A6B2A => $09CD50 0A720D C0 29 10 READ.B $2910 0A7210 44 PUSH.6 $04 0A7211 03 28 GTE.L 0A7213 C0 29 10 READ.B $2910 0A7216 4D PUSH.6 $0D 0A7217 03 25 LT.L 0A7219 2D OR.L 0A721A C0 4E 72 READ.B $4E72 0A721D 2E NOT.L 0A721E 2D OR.L 0A721F 18 05 BRZ $005 ; => $0A7226 0A7221 86 03 READ.L $03 0A7223 30 06 E4 BSR.68K $06E4 ; => $0A6B42 => $09D2BC 0A7226 87 1B READ.F $1B 0A7228 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 0A7231 87 CF READ.F $CF 0A7233 87 A7 READ.F $A7 0A7235 20 ADD.F 0A7236 22 MUL.F 0A7237 20 ADD.F 0A7238 87 77 READ.F $77 0A723A 21 SUB.F 0A723B 97 1B WRITE.F $1B 0A723D 87 27 READ.F $27 0A723F 97 4B WRITE.F $4B 0A7241 87 0F READ.F $0F 0A7243 97 33 WRITE.F $33 0A7245 87 5F READ.F $5F 0A7247 97 3F WRITE.F $3F 0A7249 86 03 READ.L $03 0A724B 87 77 READ.F $77 0A724D F3 47 07 WRITE.F $4707 0A7250 86 03 READ.L $03 0A7252 83 CF READ.F $CF 0A7254 F3 42 D9 WRITE.F $42D9 0A7257 41 PUSH.6 $01 0A7258 4A PUSH.6 $0A 0A7259 29 MUL.L 0A725A 86 03 READ.L $03 0A725C 27 ADD.L 0A725D 40 PUSH.6 $00 0A725E 4A PUSH.6 $0A 0A725F 29 MUL.L 0A7260 86 03 READ.L $03 0A7262 27 ADD.L 0A7263 E3 64 41 READ.F $6441 0A7266 F3 64 41 WRITE.F $6441 0A7269 41 PUSH.6 $01 0A726A 4A PUSH.6 $0A 0A726B 29 MUL.L 0A726C 86 03 READ.L $03 0A726E 27 ADD.L 0A726F 40 PUSH.6 $00 0A7270 4A PUSH.6 $0A 0A7271 29 MUL.L 0A7272 86 03 READ.L $03 0A7274 27 ADD.L 0A7275 E3 64 E1 READ.F $64E1 0A7278 F3 64 E1 WRITE.F $64E1 0A727B 41 PUSH.6 $01 0A727C 4A PUSH.6 $0A 0A727D 29 MUL.L 0A727E 86 03 READ.L $03 0A7280 27 ADD.L 0A7281 40 PUSH.6 $00 0A7282 4A PUSH.6 $0A 0A7283 29 MUL.L 0A7284 86 03 READ.L $03 0A7286 27 ADD.L 0A7287 E3 65 81 READ.F $6581 0A728A F3 65 81 WRITE.F $6581 0A728D 40 PUSH.6 $00 0A728E 4A PUSH.6 $0A 0A728F 29 MUL.L 0A7290 86 03 READ.L $03 0A7292 27 ADD.L 0A7293 86 03 READ.L $03 0A7295 E3 41 E9 READ.F $41E9 0A7298 F3 64 41 WRITE.F $6441 0A729B 40 PUSH.6 $00 0A729C 4A PUSH.6 $0A 0A729D 29 MUL.L 0A729E 86 03 READ.L $03 0A72A0 27 ADD.L 0A72A1 86 03 READ.L $03 0A72A3 E3 42 39 READ.F $4239 0A72A6 F3 64 E1 WRITE.F $64E1 0A72A9 40 PUSH.6 $00 0A72AA 4A PUSH.6 $0A 0A72AB 29 MUL.L 0A72AC 86 03 READ.L $03 0A72AE 27 ADD.L 0A72AF 86 03 READ.L $03 0A72B1 E3 42 89 READ.F $4289 0A72B4 F3 65 81 WRITE.F $6581 0A72B7 86 03 READ.L $03 0A72B9 C3 4E 1B READ.F $4E1B 0A72BC F3 41 E9 WRITE.F $41E9 0A72BF 86 03 READ.L $03 0A72C1 C3 4E 23 READ.F $4E23 0A72C4 F3 42 39 WRITE.F $4239 0A72C7 86 03 READ.L $03 0A72C9 C3 4E 2B READ.F $4E2B 0A72CC F3 42 89 WRITE.F $4289 0A72CF 41 PUSH.6 $01 0A72D0 4A PUSH.6 $0A 0A72D1 29 MUL.L 0A72D2 86 03 READ.L $03 0A72D4 27 ADD.L 0A72D5 40 PUSH.6 $00 0A72D6 4A PUSH.6 $0A 0A72D7 29 MUL.L 0A72D8 86 03 READ.L $03 0A72DA 27 ADD.L 0A72DB E3 69 DF READ.F $69DF 0A72DE F3 69 DF WRITE.F $69DF 0A72E1 41 PUSH.6 $01 0A72E2 4A PUSH.6 $0A 0A72E3 29 MUL.L 0A72E4 86 03 READ.L $03 0A72E6 27 ADD.L 0A72E7 40 PUSH.6 $00 0A72E8 4A PUSH.6 $0A 0A72E9 29 MUL.L 0A72EA 86 03 READ.L $03 0A72EC 27 ADD.L 0A72ED E3 6A 7F READ.F $6A7F 0A72F0 F3 6A 7F WRITE.F $6A7F 0A72F3 41 PUSH.6 $01 0A72F4 4A PUSH.6 $0A 0A72F5 29 MUL.L 0A72F6 86 03 READ.L $03 0A72F8 27 ADD.L 0A72F9 40 PUSH.6 $00 0A72FA 4A PUSH.6 $0A 0A72FB 29 MUL.L 0A72FC 86 03 READ.L $03 0A72FE 27 ADD.L 0A72FF E3 6B 1F READ.F $6B1F 0A7302 F3 6B 1F WRITE.F $6B1F 0A7305 40 PUSH.6 $00 0A7306 4A PUSH.6 $0A 0A7307 29 MUL.L 0A7308 86 03 READ.L $03 0A730A 27 ADD.L 0A730B 86 03 READ.L $03 0A730D E3 43 79 READ.F $4379 0A7310 F3 69 DF WRITE.F $69DF 0A7313 40 PUSH.6 $00 0A7314 4A PUSH.6 $0A 0A7315 29 MUL.L 0A7316 86 03 READ.L $03 0A7318 27 ADD.L 0A7319 86 03 READ.L $03 0A731B E3 43 C9 READ.F $43C9 0A731E F3 6A 7F WRITE.F $6A7F 0A7321 40 PUSH.6 $00 0A7322 4A PUSH.6 $0A 0A7323 29 MUL.L 0A7324 86 03 READ.L $03 0A7326 27 ADD.L 0A7327 86 03 READ.L $03 0A7329 E3 44 19 READ.F $4419 0A732C F3 6B 1F WRITE.F $6B1F 0A732F 86 03 READ.L $03 0A7331 C3 4E 33 READ.F $4E33 0A7334 F3 43 79 WRITE.F $4379 0A7337 86 03 READ.L $03 0A7339 C3 4E 3B READ.F $4E3B 0A733C F3 43 C9 WRITE.F $43C9 0A733F 86 03 READ.L $03 0A7341 C3 4E 43 READ.F $4E43 0A7344 F3 44 19 WRITE.F $4419 0A7347 32 9A ADDSP.B $9A 0A7349 33 _2300 0A734A 33 _2300 0A734B 33 _2300 0A734C 33 _2300 0A734D 33 _2300 0A734E 33 _2300 0A734F 32 08 ADDSP.B $08 0A7351 34 RETURN ; ---------------- End Function $0A6E44 ---------------- ; ---------------- Begin 2164 Function $0A7394 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0A7516:$0A7532 ; called from $0A7568:$0A7586 ; called from $0A7568:$0A758F ; called from $0A7568:$0A7598 ; called from $0A7568:$0A75A1 ; called from $0A9658:$0A967C ; addr bytes opcode operands comment 0A739D 86 07 READ.L $07 0A739F E0 51 41 READ.B $5141 0A73A2 05 00 PUSH.10 $100 0A73A4 29 MUL.L 0A73A5 86 07 READ.L $07 0A73A7 41 PUSH.6 $01 0A73A8 27 ADD.L 0A73A9 E0 51 41 READ.B $5141 0A73AC 27 ADD.L 0A73AD 96 03 WRITE.L $03 0A73AF 32 04 ADDSP.B $04 0A73B1 34 RETURN ; ---------------- End Function $0A7394 ---------------- ; ---------------- Begin 2164 Function $0A73B2 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0A7568:$0A762E ; called from $0A7568:$0A7637 ; addr bytes opcode operands comment 0A73BB 86 07 READ.L $07 0A73BD E0 51 41 READ.B $5141 0A73C0 3D 01 00 00 00 PUSH.L $01000000 0A73C5 29 MUL.L 0A73C6 86 07 READ.L $07 0A73C8 41 PUSH.6 $01 0A73C9 27 ADD.L 0A73CA E0 51 41 READ.B $5141 0A73CD 3D 00 01 00 00 PUSH.L $00010000 0A73D2 29 MUL.L 0A73D3 27 ADD.L 0A73D4 86 07 READ.L $07 0A73D6 42 PUSH.6 $02 0A73D7 27 ADD.L 0A73D8 E0 51 41 READ.B $5141 0A73DB 05 00 PUSH.10 $100 0A73DD 29 MUL.L 0A73DE 27 ADD.L 0A73DF 86 07 READ.L $07 0A73E1 43 PUSH.6 $03 0A73E2 27 ADD.L 0A73E3 E0 51 41 READ.B $5141 0A73E6 27 ADD.L 0A73E7 96 03 WRITE.L $03 0A73E9 32 04 ADDSP.B $04 0A73EB 34 RETURN ; ---------------- End Function $0A73B2 ---------------- ; ---------------- Begin 2144 Function $0A73EC ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A73F3 31 02 SUBSP.B $02 0A73F5 5D PUSH.6 $1D 0A73F6 30 00 A7 BSR.68K $00A7 ; => $0A7352 => $0A7B44 (NATIVE) 0A73F9 40 PUSH.6 $00 0A73FA 30 00 AB BSR.68K $00AB ; => $0A7352 => $0A7B44 (NATIVE) 0A73FD 40 PUSH.6 $00 0A73FE 30 00 AF BSR.68K $00AF ; => $0A7352 => $0A7B44 (NATIVE) 0A7401 40 PUSH.6 $00 0A7402 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A7405 5D PUSH.6 $1D 0A7406 38 00 35 BLS.B $0035 ; => $0A743E 0A7409 84 00 READ.B $00 0A740B E1 2A 49 READ.W $2A49 0A740E 30 00 B3 BSR.68K $00B3 ; => $0A735E => $0A7B36 (NATIVE) 0A7411 84 00 READ.B $00 0A7413 E3 2B 57 READ.F $2B57 0A7416 30 00 B5 BSR.68K $00B5 ; => $0A7364 => $0A7AF4 (NATIVE) 0A7419 84 00 READ.B $00 0A741B E3 2C 47 READ.F $2C47 0A741E 30 00 BD BSR.68K $00BD ; => $0A7364 => $0A7AF4 (NATIVE) 0A7421 84 00 READ.B $00 0A7423 E3 2D 37 READ.F $2D37 0A7426 30 00 C5 BSR.68K $00C5 ; => $0A7364 => $0A7AF4 (NATIVE) 0A7429 84 00 READ.B $00 0A742B E0 2A 67 READ.B $2A67 0A742E 30 00 DF BSR.68K $00DF ; => $0A7352 => $0A7B44 (NATIVE) 0A7431 84 00 READ.B $00 0A7433 E0 2D 55 READ.B $2D55 0A7436 30 00 E7 BSR.68K $00E7 ; => $0A7352 => $0A7B44 (NATIVE) 0A7439 37 10 00 00 39 _23d2 $0000, $0039 0A743E 32 02 ADDSP.B $02 0A7440 34 RETURN ; ---------------- End Function $0A73EC ---------------- ; ---------------- Begin 2144 Function $0A7442 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A7449 31 02 SUBSP.B $02 0A744B 71 PUSH.6 $31 0A744C 30 00 FD BSR.68K $00FD ; => $0A7352 => $0A7B44 (NATIVE) 0A744F C0 29 9A READ.B $299A 0A7452 30 01 03 BSR.68K $0103 ; => $0A7352 => $0A7B44 (NATIVE) 0A7455 C0 29 8F READ.B $298F 0A7458 30 01 09 BSR.68K $0109 ; => $0A7352 => $0A7B44 (NATIVE) 0A745B 49 PUSH.6 $09 0A745C 30 01 0D BSR.68K $010D ; => $0A7352 => $0A7B44 (NATIVE) 0A745F C0 29 90 READ.B $2990 0A7462 30 01 13 BSR.68K $0113 ; => $0A7352 => $0A7B44 (NATIVE) 0A7465 40 PUSH.6 $00 0A7466 30 01 17 BSR.68K $0117 ; => $0A7352 => $0A7B44 (NATIVE) 0A7469 40 PUSH.6 $00 0A746A 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A746D 71 PUSH.6 $31 0A746E 38 00 9B BLS.B $009B ; => $0A750C 0A7471 84 00 READ.B $00 0A7473 E1 2D B9 READ.W $2DB9 0A7476 30 01 1B BSR.68K $011B ; => $0A735E => $0A7B36 (NATIVE) 0A7479 84 00 READ.B $00 0A747B E1 2E 81 READ.W $2E81 0A747E 30 01 23 BSR.68K $0123 ; => $0A735E => $0A7B36 (NATIVE) 0A7481 84 00 READ.B $00 0A7483 E1 2E E5 READ.W $2EE5 0A7486 30 01 2B BSR.68K $012B ; => $0A735E => $0A7B36 (NATIVE) 0A7489 84 00 READ.B $00 0A748B E1 33 D5 READ.W $33D5 0A748E 30 01 33 BSR.68K $0133 ; => $0A735E => $0A7B36 (NATIVE) 0A7491 84 00 READ.B $00 0A7493 E0 2D EB READ.B $2DEB 0A7496 30 01 47 BSR.68K $0147 ; => $0A7352 => $0A7B44 (NATIVE) 0A7499 84 00 READ.B $00 0A749B E0 2E 1D READ.B $2E1D 0A749E 30 01 4F BSR.68K $014F ; => $0A7352 => $0A7B44 (NATIVE) 0A74A1 84 00 READ.B $00 0A74A3 E0 2F 17 READ.B $2F17 0A74A6 30 01 57 BSR.68K $0157 ; => $0A7352 => $0A7B44 (NATIVE) 0A74A9 84 00 READ.B $00 0A74AB E0 2F 49 READ.B $2F49 0A74AE 30 01 5F BSR.68K $015F ; => $0A7352 => $0A7B44 (NATIVE) 0A74B1 84 00 READ.B $00 0A74B3 E0 2F 7B READ.B $2F7B 0A74B6 30 01 67 BSR.68K $0167 ; => $0A7352 => $0A7B44 (NATIVE) 0A74B9 40 PUSH.6 $00 0A74BA 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0A74BD 49 PUSH.6 $09 0A74BE 38 00 12 BLS.B $0012 ; => $0A74D3 0A74C1 84 00 READ.B $00 0A74C3 4A PUSH.6 $0A 0A74C4 29 MUL.L 0A74C5 84 01 READ.B $01 0A74C7 27 ADD.L 0A74C8 E0 31 6F READ.B $316F 0A74CB 30 01 7C BSR.68K $017C ; => $0A7352 => $0A7B44 (NATIVE) 0A74CE 37 10 01 00 16 _23d2 $0001, $0016 0A74D3 40 PUSH.6 $00 0A74D4 30 01 85 BSR.68K $0185 ; => $0A7352 => $0A7B44 (NATIVE) 0A74D7 84 00 READ.B $00 0A74D9 E0 31 D3 READ.B $31D3 0A74DC 30 01 8D BSR.68K $018D ; => $0A7352 => $0A7B44 (NATIVE) 0A74DF 84 00 READ.B $00 0A74E1 E0 33 6F READ.B $336F 0A74E4 30 01 95 BSR.68K $0195 ; => $0A7352 => $0A7B44 (NATIVE) 0A74E7 84 00 READ.B $00 0A74E9 E0 33 0B READ.B $330B 0A74EC 30 01 9D BSR.68K $019D ; => $0A7352 => $0A7B44 (NATIVE) 0A74EF 84 00 READ.B $00 0A74F1 E0 33 3D READ.B $333D 0A74F4 30 01 A5 BSR.68K $01A5 ; => $0A7352 => $0A7B44 (NATIVE) 0A74F7 84 00 READ.B $00 0A74F9 E0 32 CD READ.B $32CD 0A74FC 30 01 AD BSR.68K $01AD ; => $0A7352 => $0A7B44 (NATIVE) 0A74FF 84 00 READ.B $00 0A7501 E2 32 9B READ.L $329B 0A7504 30 01 AF BSR.68K $01AF ; => $0A7358 => $0A7B1C (NATIVE) 0A7507 37 10 00 00 9F _23d2 $0000, $009F 0A750C C2 32 D1 READ.L $32D1 0A750F 30 01 BA BSR.68K $01BA ; => $0A7358 => $0A7B1C (NATIVE) 0A7512 32 02 ADDSP.B $02 0A7514 34 RETURN ; ---------------- End Function $0A7442 ---------------- ; ---------------- Begin 2144 Function $0A7516 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A751D 31 02 SUBSP.B $02 0A751F 5F PUSH.6 $1F 0A7520 30 01 B3 BSR.68K $01B3 ; => $0A7370 => $0A7B4A (NATIVE) 0A7523 C0 50 BD READ.B $50BD 0A7526 18 02 BRZ $002 ; => $0A752A 0A7528 10 3B BR $03B ; => $0A7565 0A752A C0 51 41 READ.B $5141 0A752D 94 00 WRITE.B $00 0A752F 84 00 READ.B $00 0A7531 43 PUSH.6 $03 0A7532 30 01 A1 BSR.68K $01A1 ; => $0A7394 0A7535 F1 2A 49 WRITE.W $2A49 0A7538 84 00 READ.B $00 0A753A 45 PUSH.6 $05 0A753B 30 01 C8 BSR.68K $01C8 ; => $0A7376 => $0A8DBA 0A753E F3 2B 57 WRITE.F $2B57 0A7541 84 00 READ.B $00 0A7543 4D PUSH.6 $0D 0A7544 30 01 D1 BSR.68K $01D1 ; => $0A7376 => $0A8DBA 0A7547 F3 2C 47 WRITE.F $2C47 0A754A 84 00 READ.B $00 0A754C 55 PUSH.6 $15 0A754D 30 01 DA BSR.68K $01DA ; => $0A7376 => $0A8DBA 0A7550 F3 2D 37 WRITE.F $2D37 0A7553 84 00 READ.B $00 0A7555 5D PUSH.6 $1D 0A7556 E0 51 41 READ.B $5141 0A7559 F0 2A 67 WRITE.B $2A67 0A755C 84 00 READ.B $00 0A755E 5E PUSH.6 $1E 0A755F E0 51 41 READ.B $5141 0A7562 F0 2D 55 WRITE.B $2D55 0A7565 32 02 ADDSP.B $02 0A7567 34 RETURN ; ---------------- End Function $0A7516 ---------------- ; ---------------- Begin 2144 Function $0A7568 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A756F 31 02 SUBSP.B $02 0A7571 5F PUSH.6 $1F 0A7572 49 PUSH.6 $09 0A7573 27 ADD.L 0A7574 30 02 07 BSR.68K $0207 ; => $0A7370 => $0A7B4A (NATIVE) 0A7577 C0 50 BD READ.B $50BD 0A757A 18 02 BRZ $002 ; => $0A757E 0A757C 10 BF BR $0BF ; => $0A763D 0A757E C0 51 41 READ.B $5141 0A7581 94 00 WRITE.B $00 0A7583 84 00 READ.B $00 0A7585 43 PUSH.6 $03 0A7586 30 01 F5 BSR.68K $01F5 ; => $0A7394 0A7589 F1 2D B9 WRITE.W $2DB9 0A758C 84 00 READ.B $00 0A758E 45 PUSH.6 $05 0A758F 30 01 FE BSR.68K $01FE ; => $0A7394 0A7592 F1 2E 81 WRITE.W $2E81 0A7595 84 00 READ.B $00 0A7597 47 PUSH.6 $07 0A7598 30 02 07 BSR.68K $0207 ; => $0A7394 0A759B F1 2E E5 WRITE.W $2EE5 0A759E 84 00 READ.B $00 0A75A0 49 PUSH.6 $09 0A75A1 30 02 10 BSR.68K $0210 ; => $0A7394 0A75A4 F1 33 D5 WRITE.W $33D5 0A75A7 84 00 READ.B $00 0A75A9 4B PUSH.6 $0B 0A75AA E0 51 41 READ.B $5141 0A75AD F0 2D EB WRITE.B $2DEB 0A75B0 84 00 READ.B $00 0A75B2 4C PUSH.6 $0C 0A75B3 E0 51 41 READ.B $5141 0A75B6 F0 2E 1D WRITE.B $2E1D 0A75B9 84 00 READ.B $00 0A75BB 4D PUSH.6 $0D 0A75BC E0 51 41 READ.B $5141 0A75BF F0 2F 17 WRITE.B $2F17 0A75C2 84 00 READ.B $00 0A75C4 4E PUSH.6 $0E 0A75C5 E0 51 41 READ.B $5141 0A75C8 F0 2F 49 WRITE.B $2F49 0A75CB 84 00 READ.B $00 0A75CD 4F PUSH.6 $0F 0A75CE E0 51 41 READ.B $5141 0A75D1 F0 2F 7B WRITE.B $2F7B 0A75D4 40 PUSH.6 $00 0A75D5 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0A75D8 49 PUSH.6 $09 0A75D9 38 00 16 BLS.B $0016 ; => $0A75F2 0A75DC 84 00 READ.B $00 0A75DE 4A PUSH.6 $0A 0A75DF 29 MUL.L 0A75E0 84 01 READ.B $01 0A75E2 27 ADD.L 0A75E3 50 PUSH.6 $10 0A75E4 84 01 READ.B $01 0A75E6 27 ADD.L 0A75E7 E0 51 41 READ.B $5141 0A75EA F0 31 6F WRITE.B $316F 0A75ED 37 10 01 00 1A _23d2 $0001, $001A 0A75F2 84 00 READ.B $00 0A75F4 49 PUSH.6 $09 0A75F5 52 PUSH.6 $12 0A75F6 27 ADD.L 0A75F7 E0 51 41 READ.B $5141 0A75FA F0 31 D3 WRITE.B $31D3 0A75FD 84 00 READ.B $00 0A75FF 49 PUSH.6 $09 0A7600 53 PUSH.6 $13 0A7601 27 ADD.L 0A7602 E0 51 41 READ.B $5141 0A7605 F0 33 6F WRITE.B $336F 0A7608 84 00 READ.B $00 0A760A 49 PUSH.6 $09 0A760B 54 PUSH.6 $14 0A760C 27 ADD.L 0A760D E0 51 41 READ.B $5141 0A7610 F0 33 0B WRITE.B $330B 0A7613 84 00 READ.B $00 0A7615 49 PUSH.6 $09 0A7616 55 PUSH.6 $15 0A7617 27 ADD.L 0A7618 E0 51 41 READ.B $5141 0A761B F0 33 3D WRITE.B $333D 0A761E 84 00 READ.B $00 0A7620 49 PUSH.6 $09 0A7621 56 PUSH.6 $16 0A7622 27 ADD.L 0A7623 E0 51 41 READ.B $5141 0A7626 F0 32 CD WRITE.B $32CD 0A7629 84 00 READ.B $00 0A762B 49 PUSH.6 $09 0A762C 57 PUSH.6 $17 0A762D 27 ADD.L 0A762E 30 02 7F BSR.68K $027F ; => $0A73B2 0A7631 F2 32 9B WRITE.L $329B 0A7634 49 PUSH.6 $09 0A7635 5B PUSH.6 $1B 0A7636 27 ADD.L 0A7637 30 02 88 BSR.68K $0288 ; => $0A73B2 0A763A D2 32 D1 WRITE.L $32D1 0A763D 32 02 ADDSP.B $02 0A763F 34 RETURN ; ---------------- End Function $0A7568 ---------------- ; ---------------- Begin 2144 Function $0A7640 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A7647 31 04 SUBSP.B $04 0A7649 49 PUSH.6 $09 0A764A 30 02 FB BSR.68K $02FB ; => $0A7352 => $0A7B44 (NATIVE) 0A764D C0 29 9A READ.B $299A 0A7650 30 03 01 BSR.68K $0301 ; => $0A7352 => $0A7B44 (NATIVE) 0A7653 C0 29 9C READ.B $299C 0A7656 30 03 07 BSR.68K $0307 ; => $0A7352 => $0A7B44 (NATIVE) 0A7659 C0 35 4D READ.B $354D 0A765C 30 03 0D BSR.68K $030D ; => $0A7352 => $0A7B44 (NATIVE) 0A765F C0 54 2C READ.B $542C 0A7662 30 03 13 BSR.68K $0313 ; => $0A7352 => $0A7B44 (NATIVE) 0A7665 C0 55 62 READ.B $5562 0A7668 40 PUSH.6 $00 0A7669 2B NEQ.L 0A766A 30 03 1B BSR.68K $031B ; => $0A7352 => $0A7B44 (NATIVE) 0A766D C0 32 D4 READ.B $32D4 0A7670 30 03 21 BSR.68K $0321 ; => $0A7352 => $0A7B44 (NATIVE) 0A7673 C0 32 D5 READ.B $32D5 0A7676 30 03 27 BSR.68K $0327 ; => $0A7352 => $0A7B44 (NATIVE) 0A7679 40 PUSH.6 $00 0A767A 36 10 02 _2362 $0002 ; A0 = $004000; (A0) = A6 + $0 0A767D 49 PUSH.6 $09 0A767E 38 00 1D BLS.B $001D ; => $0A769E 0A7681 84 02 READ.B $02 0A7683 E0 44 23 READ.B $4423 0A7686 30 03 37 BSR.68K $0337 ; => $0A7352 => $0A7B44 (NATIVE) 0A7689 84 02 READ.B $02 0A768B E0 40 09 READ.B $4009 0A768E 30 03 3F BSR.68K $033F ; => $0A7352 => $0A7B44 (NATIVE) 0A7691 84 02 READ.B $02 0A7693 E0 29 AB READ.B $29AB 0A7696 30 03 47 BSR.68K $0347 ; => $0A7352 => $0A7B44 (NATIVE) 0A7699 37 10 02 00 21 _23d2 $0002, $0021 0A769E 40 PUSH.6 $00 0A769F 30 03 50 BSR.68K $0350 ; => $0A7352 => $0A7B44 (NATIVE) 0A76A2 40 PUSH.6 $00 0A76A3 30 03 54 BSR.68K $0354 ; => $0A7352 => $0A7B44 (NATIVE) 0A76A6 40 PUSH.6 $00 0A76A7 30 03 58 BSR.68K $0358 ; => $0A7352 => $0A7B44 (NATIVE) 0A76AA 40 PUSH.6 $00 0A76AB 30 03 5C BSR.68K $035C ; => $0A7352 => $0A7B44 (NATIVE) 0A76AE C0 32 D4 READ.B $32D4 0A76B1 E1 2A 49 READ.W $2A49 0A76B4 30 03 59 BSR.68K $0359 ; => $0A735E => $0A7B36 (NATIVE) 0A76B7 C0 32 D5 READ.B $32D5 0A76BA E1 2D B9 READ.W $2DB9 0A76BD 30 03 62 BSR.68K $0362 ; => $0A735E => $0A7B36 (NATIVE) 0A76C0 C1 56 AB READ.W $56AB 0A76C3 30 03 68 BSR.68K $0368 ; => $0A735E => $0A7B36 (NATIVE) 0A76C6 C1 56 AF READ.W $56AF 0A76C9 95 01 WRITE.W $01 0A76CB 85 01 READ.W $01 0A76CD C1 56 AB READ.W $56AB 0A76D0 03 26 GT.L 0A76D2 18 08 BRZ $008 ; => $0A76DC 0A76D4 85 01 READ.W $01 0A76D6 3C 05 A0 PUSH.W $05A0 0A76D9 27 ADD.L 0A76DA 95 01 WRITE.W $01 0A76DC 85 01 READ.W $01 0A76DE C1 56 AB READ.W $56AB 0A76E1 28 SUB.L 0A76E2 30 03 87 BSR.68K $0387 ; => $0A735E => $0A7B36 (NATIVE) 0A76E5 30 03 6C BSR.68K $036C ; => $0A737C => $09F7D6 0A76E8 30 03 8D BSR.68K $038D ; => $0A735E => $0A7B36 (NATIVE) 0A76EB 40 PUSH.6 $00 0A76EC 36 10 02 _2362 $0002 ; A0 = $004000; (A0) = A6 + $0 0A76EF 49 PUSH.6 $09 0A76F0 38 00 25 BLS.B $0025 ; => $0A7718 0A76F3 84 02 READ.B $02 0A76F5 E1 56 DB READ.W $56DB 0A76F8 30 03 9D BSR.68K $039D ; => $0A735E => $0A7B36 (NATIVE) 0A76FB 84 02 READ.B $02 0A76FD E1 56 EF READ.W $56EF 0A7700 30 03 A5 BSR.68K $03A5 ; => $0A735E => $0A7B36 (NATIVE) 0A7703 84 02 READ.B $02 0A7705 E1 57 03 READ.W $5703 0A7708 30 03 AD BSR.68K $03AD ; => $0A735E => $0A7B36 (NATIVE) 0A770B 84 02 READ.B $02 0A770D E1 57 17 READ.W $5717 0A7710 30 03 B5 BSR.68K $03B5 ; => $0A735E => $0A7B36 (NATIVE) 0A7713 37 10 02 00 29 _23d2 $0002, $0029 0A7718 C1 60 0D READ.W $600D 0A771B 30 03 C0 BSR.68K $03C0 ; => $0A735E => $0A7B36 (NATIVE) 0A771E C1 60 1F READ.W $601F 0A7721 30 03 C6 BSR.68K $03C6 ; => $0A735E => $0A7B36 (NATIVE) 0A7724 C3 5F C3 READ.F $5FC3 0A7727 30 03 C6 BSR.68K $03C6 ; => $0A7364 => $0A7AF4 (NATIVE) 0A772A C3 5F CB READ.F $5FCB 0A772D 30 03 CC BSR.68K $03CC ; => $0A7364 => $0A7AF4 (NATIVE) 0A7730 C3 5F D3 READ.F $5FD3 0A7733 30 03 D2 BSR.68K $03D2 ; => $0A7364 => $0A7AF4 (NATIVE) 0A7736 C3 5F DB READ.F $5FDB 0A7739 30 03 D8 BSR.68K $03D8 ; => $0A7364 => $0A7AF4 (NATIVE) 0A773C C3 5F E3 READ.F $5FE3 0A773F 30 03 DE BSR.68K $03DE ; => $0A7364 => $0A7AF4 (NATIVE) 0A7742 C3 5F EB READ.F $5FEB 0A7745 30 03 E4 BSR.68K $03E4 ; => $0A7364 => $0A7AF4 (NATIVE) 0A7748 C3 5F F3 READ.F $5FF3 0A774B 30 03 EA BSR.68K $03EA ; => $0A7364 => $0A7AF4 (NATIVE) 0A774E C3 5F FB READ.F $5FFB 0A7751 30 03 F0 BSR.68K $03F0 ; => $0A7364 => $0A7AF4 (NATIVE) 0A7754 C3 60 03 READ.F $6003 0A7757 30 03 F6 BSR.68K $03F6 ; => $0A7364 => $0A7AF4 (NATIVE) 0A775A C3 60 0B READ.F $600B 0A775D 30 03 FC BSR.68K $03FC ; => $0A7364 => $0A7AF4 (NATIVE) 0A7760 C3 60 15 READ.F $6015 0A7763 30 04 02 BSR.68K $0402 ; => $0A7364 => $0A7AF4 (NATIVE) 0A7766 C3 60 1D READ.F $601D 0A7769 30 04 08 BSR.68K $0408 ; => $0A7364 => $0A7AF4 (NATIVE) 0A776C 32 04 ADDSP.B $04 0A776E 34 RETURN ; ---------------- End Function $0A7640 ---------------- ; ---------------- Begin 2144 Function $0A7770 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A7777 4E PUSH.6 $0E 0A7778 30 04 0B BSR.68K $040B ; => $0A7370 => $0A7B4A (NATIVE) 0A777B C0 50 BD READ.B $50BD 0A777E 2E NOT.L 0A777F C0 35 4D READ.B $354D 0A7782 40 PUSH.6 $00 0A7783 2A EQ.L 0A7784 C0 35 4D READ.B $354D 0A7787 46 PUSH.6 $06 0A7788 2A EQ.L 0A7789 2D OR.L 0A778A 2C AND.L 0A778B 30 04 12 BSR.68K $0412 ; => $0A737C => $09F7D6 0A778E 42 PUSH.6 $02 0A778F 03 27 LTE.L 0A7791 2C AND.L 0A7792 18 45 BRZ $045 ; => $0A77D9 0A7794 C0 51 41 READ.B $5141 0A7797 D0 35 90 WRITE.B $3590 0A779A C0 51 40 READ.B $5140 0A779D D0 32 D5 WRITE.B $32D5 0A77A0 C0 32 D5 READ.B $32D5 0A77A3 E0 2D EB READ.B $2DEB 0A77A6 D0 32 D4 WRITE.B $32D4 0A77A9 4A PUSH.6 $0A 0A77AA D0 55 70 WRITE.B $5570 0A77AD 46 PUSH.6 $06 0A77AE 30 04 3B BSR.68K $043B ; => $0A7376 => $0A8DBA 0A77B1 D3 35 55 WRITE.F $3555 0A77B4 40 PUSH.6 $00 0A77B5 D0 56 6C WRITE.B $566C 0A77B8 04 FF PUSH.10 $0FF 0A77BA D0 56 6D WRITE.B $566D 0A77BD 30 04 3E BSR.68K $043E ; => $0A7382 => $09B16A 0A77C0 C0 54 2C READ.B $542C 0A77C3 40 PUSH.6 $00 0A77C4 2A EQ.L 0A77C5 18 03 BRZ $003 ; => $0A77CA 0A77C7 30 04 42 BSR.68K $0442 ; => $0A7388 => $09B386 0A77CA 40 PUSH.6 $00 0A77CB D0 29 00 WRITE.B $2900 0A77CE 40 PUSH.6 $00 0A77CF D0 28 A8 WRITE.B $28A8 0A77D2 40 PUSH.6 $00 0A77D3 D0 28 AA WRITE.B $28AA 0A77D6 4E PUSH.6 $0E 0A77D7 90 21 WRITE.B $21 0A77D9 34 RETURN ; ---------------- End Function $0A7770 ---------------- ; ---------------- Begin 2144 Function $0A77DA ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A77E1 45 PUSH.6 $05 0A77E2 30 04 75 BSR.68K $0475 ; => $0A7370 => $0A7B4A (NATIVE) 0A77E5 C0 50 BD READ.B $50BD 0A77E8 2E NOT.L 0A77E9 C0 51 41 READ.B $5141 0A77EC C0 32 D5 READ.B $32D5 0A77EF 2A EQ.L 0A77F0 2C AND.L 0A77F1 C0 35 4D READ.B $354D 0A77F4 40 PUSH.6 $00 0A77F5 2A EQ.L 0A77F6 C0 35 4D READ.B $354D 0A77F9 46 PUSH.6 $06 0A77FA 2A EQ.L 0A77FB 2D OR.L 0A77FC 2E NOT.L 0A77FD 2C AND.L 0A77FE 18 10 BRZ $010 ; => $0A7810 0A7800 C0 51 40 READ.B $5140 0A7803 30 04 78 BSR.68K $0478 ; => $0A738E => $0ABCF4 0A7806 C0 51 40 READ.B $5140 0A7809 18 05 BRZ $005 ; => $0A7810 0A780B 04 FF PUSH.10 $0FF 0A780D D0 56 6C WRITE.B $566C 0A7810 34 RETURN ; ---------------- End Function $0A77DA ---------------- ; ---------------- Begin 2144 Function $0A7BB0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A7BB7 31 06 SUBSP.B $06 0A7BB9 44 PUSH.6 $04 0A7BBA 30 00 3D BSR.68K $003D ; => $0A7B80 => $0A7B4A (NATIVE) 0A7BBD C0 50 BD READ.B $50BD 0A7BC0 2E NOT.L 0A7BC1 18 32 BRZ $032 ; => $0A7BF5 0A7BC3 C0 51 41 READ.B $5141 0A7BC6 05 00 PUSH.10 $100 0A7BC8 29 MUL.L 0A7BC9 C0 51 40 READ.B $5140 0A7BCC 27 ADD.L 0A7BCD 95 01 WRITE.W $01 0A7BCF C0 51 3F READ.B $513F 0A7BD2 05 00 PUSH.10 $100 0A7BD4 29 MUL.L 0A7BD5 C0 51 3E READ.B $513E 0A7BD8 27 ADD.L 0A7BD9 95 05 WRITE.W $05 0A7BDB 85 01 READ.W $01 0A7BDD 40 PUSH.6 $00 0A7BDE 30 00 5B BSR.68K $005B ; => $0A7B86 => $09F43A (NATIVE) 0A7BE1 41 PUSH.6 $01 0A7BE2 36 50 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 0A7BE5 85 05 READ.W $05 0A7BE7 38 40 0B BLS.W $000B ; => $0A7BF5 0A7BEA 30 00 61 BSR.68K $0061 ; => $0A7B8C => $09F42A (NATIVE) 0A7BED 30 00 76 BSR.68K $0076 ; => $0A7B7A => $0A7B44 (NATIVE) 0A7BF0 37 50 03 00 10 _23d2 $0003, $0010 0A7BF5 32 06 ADDSP.B $06 0A7BF7 34 RETURN ; ---------------- End Function $0A7BB0 ---------------- ; ---------------- Begin 2144 Function $0A7BF8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A7BFF 31 04 SUBSP.B $04 0A7C01 44 PUSH.6 $04 0A7C02 30 00 85 BSR.68K $0085 ; => $0A7B80 => $0A7B4A (NATIVE) 0A7C05 C0 50 BD READ.B $50BD 0A7C08 2E NOT.L 0A7C09 18 1F BRZ $01F ; => $0A7C2A 0A7C0B C0 51 3E READ.B $513E 0A7C0E 05 00 PUSH.10 $100 0A7C10 C0 51 3F READ.B $513F 0A7C13 05 00 PUSH.10 $100 0A7C15 C0 51 40 READ.B $5140 0A7C18 05 00 PUSH.10 $100 0A7C1A C0 51 41 READ.B $5141 0A7C1D 29 MUL.L 0A7C1E 27 ADD.L 0A7C1F 29 MUL.L 0A7C20 27 ADD.L 0A7C21 29 MUL.L 0A7C22 27 ADD.L 0A7C23 96 03 WRITE.L $03 0A7C25 86 03 READ.L $03 0A7C27 30 00 98 BSR.68K $0098 ; => $0A7B92 => $09FA9E 0A7C2A 32 04 ADDSP.B $04 0A7C2C 34 RETURN ; ---------------- End Function $0A7BF8 ---------------- ; ---------------- Begin 2144 Function $0A7C2E ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A7C35 31 02 SUBSP.B $02 0A7C37 41 PUSH.6 $01 0A7C38 30 00 BB BSR.68K $00BB ; => $0A7B80 => $0A7B4A (NATIVE) 0A7C3B C0 50 BD READ.B $50BD 0A7C3E 2E NOT.L 0A7C3F 18 3D BRZ $03D ; => $0A7C7E 0A7C41 C0 51 41 READ.B $5141 0A7C44 35 SWITCH 0A7C45 10 06 00 CASE $00 ; SWITCH $0A7C44 0A7C48 30 00 B3 BSR.68K $00B3 ; => $0A7B98 => $09FC38 0A7C4B 10 31 BR $031 ; => $0A7C7E 0A7C4D 10 06 FF CASE $FF ; SWITCH $0A7C44 0A7C50 30 00 B5 BSR.68K $00B5 ; => $0A7B9E => $09FC48 0A7C53 10 29 BR $029 ; => $0A7C7E 0A7C55 00 DEFAULT ; SWITCH $0A7C44 0A7C56 C0 51 41 READ.B $5141 0A7C59 94 00 WRITE.B $00 0A7C5B 84 00 READ.B $00 0A7C5D 30 00 E0 BSR.68K $00E0 ; => $0A7B80 => $0A7B4A (NATIVE) 0A7C60 C0 50 BD READ.B $50BD 0A7C63 2E NOT.L 0A7C64 18 18 BRZ $018 ; => $0A7C7E 0A7C66 40 PUSH.6 $00 0A7C67 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0A7C6A 84 00 READ.B $00 0A7C6C 41 PUSH.6 $01 0A7C6D 28 SUB.L 0A7C6E 38 00 0D BLS.B $000D ; => $0A7C7E 0A7C71 84 01 READ.B $01 0A7C73 E0 51 41 READ.B $5141 0A7C76 30 00 D5 BSR.68K $00D5 ; => $0A7BA4 => $09FC1E 0A7C79 37 10 01 00 14 _23d2 $0001, $0014 0A7C7E 32 02 ADDSP.B $02 0A7C80 34 RETURN ; ---------------- End Function $0A7C2E ---------------- ; ---------------- Begin 2144 Function $0A7C82 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A7C89 31 06 SUBSP.B $06 0A7C8B 45 PUSH.6 $05 0A7C8C 30 01 0F BSR.68K $010F ; => $0A7B80 => $0A7B4A (NATIVE) 0A7C8F C0 50 BD READ.B $50BD 0A7C92 2E NOT.L 0A7C93 18 47 BRZ $047 ; => $0A7CDC 0A7C95 C0 51 40 READ.B $5140 0A7C98 05 00 PUSH.10 $100 0A7C9A C0 51 41 READ.B $5141 0A7C9D 29 MUL.L 0A7C9E 27 ADD.L 0A7C9F 95 01 WRITE.W $01 0A7CA1 C0 51 3E READ.B $513E 0A7CA4 05 00 PUSH.10 $100 0A7CA6 C0 51 3F READ.B $513F 0A7CA9 29 MUL.L 0A7CAA 27 ADD.L 0A7CAB 95 03 WRITE.W $03 0A7CAD C0 51 3D READ.B $513D 0A7CB0 94 04 WRITE.B $04 0A7CB2 84 04 READ.B $04 0A7CB4 30 01 37 BSR.68K $0137 ; => $0A7B80 => $0A7B4A (NATIVE) 0A7CB7 C0 50 BD READ.B $50BD 0A7CBA 2E NOT.L 0A7CBB 18 1F BRZ $01F ; => $0A7CDC 0A7CBD 85 01 READ.W $01 0A7CBF 85 03 READ.W $03 0A7CC1 30 01 3E BSR.68K $013E ; => $0A7B86 => $09F43A (NATIVE) 0A7CC4 40 PUSH.6 $00 0A7CC5 36 10 05 _2362 $0005 ; A0 = $004000; (A0) = A6 + $0 0A7CC8 84 04 READ.B $04 0A7CCA 41 PUSH.6 $01 0A7CCB 28 SUB.L 0A7CCC 38 00 0D BLS.B $000D ; => $0A7CDC 0A7CCF 84 05 READ.B $05 0A7CD1 E0 51 41 READ.B $5141 0A7CD4 30 01 2D BSR.68K $012D ; => $0A7BAA => $09F422 (NATIVE) 0A7CD7 37 10 05 00 14 _23d2 $0005, $0014 0A7CDC 32 06 ADDSP.B $06 0A7CDE 34 RETURN ; ---------------- End Function $0A7C82 ---------------- ; ---------------- Begin 2144 Function $0A7CF2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A7CF9 31 02 SUBSP.B $02 0A7CFB 41 PUSH.6 $01 0A7CFC 30 01 7F BSR.68K $017F ; => $0A7B80 => $0A7B4A (NATIVE) 0A7CFF C0 50 BD READ.B $50BD 0A7D02 2E NOT.L 0A7D03 18 43 BRZ $043 ; => $0A7D48 0A7D05 C0 51 41 READ.B $5141 0A7D08 04 FF PUSH.10 $0FF 0A7D0A 2A EQ.L 0A7D0B C0 56 6E READ.B $566E 0A7D0E 2E NOT.L 0A7D0F 2C AND.L 0A7D10 18 05 BRZ $005 ; => $0A7D17 0A7D12 30 00 2F BSR.68K $002F ; => $0A7CE6 => $09FB6A 0A7D15 10 31 BR $031 ; => $0A7D48 0A7D17 C0 51 41 READ.B $5141 0A7D1A 6A PUSH.6 $2A 0A7D1B 03 26 GT.L 0A7D1D C0 56 6E READ.B $566E 0A7D20 2E NOT.L 0A7D21 C1 58 4F READ.W $584F 0A7D24 C0 51 41 READ.B $5141 0A7D27 2B NEQ.L 0A7D28 2D OR.L 0A7D29 2C AND.L 0A7D2A 18 1C BRZ $01C ; => $0A7D48 0A7D2C C0 51 41 READ.B $5141 0A7D2F 30 00 46 BSR.68K $0046 ; => $0A7CEC => $09F640 (NATIVE) 0A7D32 95 01 WRITE.W $01 0A7D34 85 01 READ.W $01 0A7D36 40 PUSH.6 $00 0A7D37 2B NEQ.L 0A7D38 85 01 READ.W $01 0A7D3A 3C 80 00 PUSH.W $8000 0A7D3D 03 26 GT.L 0A7D3F 2C AND.L 0A7D40 18 06 BRZ $006 ; => $0A7D48 0A7D42 C0 51 41 READ.B $5141 0A7D45 30 00 68 BSR.68K $0068 ; => $0A7CE0 => $09F93E 0A7D48 32 02 ADDSP.B $02 0A7D4A 34 RETURN ; ---------------- End Function $0A7CF2 ---------------- ; ---------------- Begin 2144 Function $0A7D82 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A7D89 31 08 SUBSP.B $08 0A7D8B 30 00 18 BSR.68K $0018 ; => $0A7D76 => $09F812 0A7D8E 30 02 17 BSR.68K $0217 ; => $0A7B7A => $0A7B44 (NATIVE) 0A7D91 40 PUSH.6 $00 0A7D92 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A7D95 69 PUSH.6 $29 0A7D96 38 00 78 BLS.B $0078 ; => $0A7E11 0A7D99 84 00 READ.B $00 0A7D9B 30 00 B2 BSR.68K $00B2 ; => $0A7CEC => $09F640 (NATIVE) 0A7D9E 95 03 WRITE.W $03 0A7DA0 85 03 READ.W $03 0A7DA2 40 PUSH.6 $00 0A7DA3 2B NEQ.L 0A7DA4 85 03 READ.W $03 0A7DA6 3C 80 00 PUSH.W $8000 0A7DA9 03 26 GT.L 0A7DAB 2C AND.L 0A7DAC 18 5E BRZ $05E ; => $0A7E0C 0A7DAE 84 00 READ.B $00 0A7DB0 30 00 55 BSR.68K $0055 ; => $0A7D5E => $09F610 (NATIVE) 0A7DB3 30 00 4C BSR.68K $004C ; => $0A7D6A => $0A7B1C (NATIVE) 0A7DB6 85 03 READ.W $03 0A7DB8 30 00 4B BSR.68K $004B ; => $0A7D70 => $0A7B36 (NATIVE) 0A7DBB 84 00 READ.B $00 0A7DBD 30 00 74 BSR.68K $0074 ; => $0A7D4C => $09F676 (NATIVE) 0A7DC0 30 00 53 BSR.68K $0053 ; => $0A7D70 => $0A7B36 (NATIVE) 0A7DC3 84 00 READ.B $00 0A7DC5 30 00 64 BSR.68K $0064 ; => $0A7D64 => $09F636 (NATIVE) 0A7DC8 30 00 61 BSR.68K $0061 ; => $0A7D6A => $0A7B1C (NATIVE) 0A7DCB 84 00 READ.B $00 0A7DCD 30 00 7E BSR.68K $007E ; => $0A7D52 => $09F682 (NATIVE) 0A7DD0 95 05 WRITE.W $05 0A7DD2 84 00 READ.B $00 0A7DD4 30 00 7F BSR.68K $007F ; => $0A7D58 => $09F68E (NATIVE) 0A7DD7 95 07 WRITE.W $07 0A7DD9 85 05 READ.W $05 0A7DDB 3C 04 B0 PUSH.W $04B0 0A7DDE 03 24 DIV.L 0A7DE0 30 02 69 BSR.68K $0269 ; => $0A7B7A => $0A7B44 (NATIVE) 0A7DE3 85 05 READ.W $05 0A7DE5 04 64 PUSH.10 $064 0A7DE7 03 24 DIV.L 0A7DE9 4C PUSH.6 $0C 0A7DEA 2F MOD.L 0A7DEB 41 PUSH.6 $01 0A7DEC 27 ADD.L 0A7DED 30 02 76 BSR.68K $0276 ; => $0A7B7A => $0A7B44 (NATIVE) 0A7DF0 85 05 READ.W $05 0A7DF2 04 64 PUSH.10 $064 0A7DF4 2F MOD.L 0A7DF5 30 02 7E BSR.68K $027E ; => $0A7B7A => $0A7B44 (NATIVE) 0A7DF8 85 07 READ.W $07 0A7DFA 7C PUSH.6 $3C 0A7DFB 03 24 DIV.L 0A7DFD 30 02 86 BSR.68K $0286 ; => $0A7B7A => $0A7B44 (NATIVE) 0A7E00 85 07 READ.W $07 0A7E02 7C PUSH.6 $3C 0A7E03 2F MOD.L 0A7E04 30 02 8D BSR.68K $028D ; => $0A7B7A => $0A7B44 (NATIVE) 0A7E07 84 00 READ.B $00 0A7E09 30 02 92 BSR.68K $0292 ; => $0A7B7A => $0A7B44 (NATIVE) 0A7E0C 37 10 00 00 7C _23d2 $0000, $007C 0A7E11 32 08 ADDSP.B $08 0A7E13 34 RETURN ; ---------------- End Function $0A7D82 ---------------- ; ---------------- Begin 2144 Function $0A7E14 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A7E38:$0A7E42 ; addr bytes opcode operands comment 0A7E1B 31 02 SUBSP.B $02 0A7E1D 40 PUSH.6 $00 0A7E1E 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A7E21 C1 59 69 READ.W $5969 0A7E24 38 00 0D BLS.B $000D ; => $0A7E34 0A7E27 84 00 READ.B $00 0A7E29 E0 59 67 READ.B $5967 0A7E2C 30 02 B5 BSR.68K $02B5 ; => $0A7B7A => $0A7B44 (NATIVE) 0A7E2F 37 10 00 00 13 _23d2 $0000, $0013 0A7E34 32 02 ADDSP.B $02 0A7E36 34 RETURN ; ---------------- End Function $0A7E14 ---------------- ; ---------------- Begin 2144 Function $0A7E38 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A7E3F 30 00 C6 BSR.68K $00C6 ; => $0A7D7C => $09838A 0A7E42 30 00 31 BSR.68K $0031 ; => $0A7E14 0A7E45 34 RETURN ; ---------------- End Function $0A7E38 ---------------- ; ---------------- Begin 2144 Function $0A7E94 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000FF4:$001039 ; called from $09DD4E:$09DF63 ; called from $0AF21A:$0AF3BF ; addr bytes opcode operands comment 0A7E9B 30 00 58 BSR.68K $0058 ; => $0A7E46 => $094E22 0A7E9E D3 50 C7 WRITE.F $50C7 0A7EA1 30 00 58 BSR.68K $0058 ; => $0A7E4C => $0A7812 (NATIVE) 0A7EA4 34 RETURN ; ---------------- End Function $0A7E94 ---------------- ; ---------------- Begin 2164 Function $0A7EA6 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; addr bytes opcode operands comment 0A7EAF 04 FF PUSH.10 $0FF 0A7EB1 96 03 WRITE.L $03 0A7EB3 C0 29 8D READ.B $298D 0A7EB6 C0 4E 71 READ.B $4E71 0A7EB9 2E NOT.L 0A7EBA 2C AND.L 0A7EBB 18 1B BRZ $01B ; => $0A7ED8 0A7EBD 86 07 READ.L $07 0A7EBF 35 SWITCH 0A7EC0 80 0A 00 03 06 22 23 25 3F CASE $00, $03, $06, $22, $23, $25, $3F, $96; SWITCH $0A7EBF 96 0A7ECA 10 0C BR $00C ; => $0A7ED8 0A7ECC 00 DEFAULT ; SWITCH $0A7EBF 0A7ECD 86 07 READ.L $07 0A7ECF 04 7B PUSH.10 $07B 0A7ED1 03 26 GT.L 0A7ED3 18 03 BRZ $003 ; => $0A7ED8 0A7ED5 40 PUSH.6 $00 0A7ED6 96 03 WRITE.L $03 0A7ED8 32 04 ADDSP.B $04 0A7EDA 34 RETURN ; ---------------- End Function $0A7EA6 ---------------- ; ---------------- Begin 2164 Function $0A7EDC ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0A8012:$0A8028 ; called from $0A81A0:$0A81B6 ; called from $0A81DE:$0A81F4 ; called from $0A8556:$0A858F ; called from $0A8FA8:$0A8FEC ; called from $0A907A:$0A90BE ; called from $0A9140:$0A9184 ; called from $0A9300:$0A933E ; called from $0A94E6:$0A94FA ; called from $0A9508:$0A951C ; called from $0A95EC:$0A9602 ; addr bytes opcode operands comment 0A7EE5 86 07 READ.L $07 0A7EE7 96 03 WRITE.L $03 0A7EE9 86 07 READ.L $07 0A7EEB 60 PUSH.6 $20 0A7EEC 03 25 LT.L 0A7EEE 18 05 BRZ $005 ; => $0A7EF5 0A7EF0 40 PUSH.6 $00 0A7EF1 96 03 WRITE.L $03 0A7EF3 10 25 BR $025 ; => $0A7F1A 0A7EF5 C0 29 71 READ.B $2971 0A7EF8 86 07 READ.L $07 0A7EFA 4E PUSH.6 $0E 0A7EFB 03 26 GT.L 0A7EFD 2C AND.L 0A7EFE 18 1A BRZ $01A ; => $0A7F1A 0A7F00 02 FF INLINE PAD 0A7F02 20 16 move.l D0, D0 0A7F04 42 AE 00 04 clr.l ($0004,A6) 0A7F08 41 F9 00 0A 7F 1D lea $a7f1d.l, A0 0A7F0E 1D 70 00 00 00 07 move.b ($0000,A6), ($0007,A6) 0A7F14 4B FA 00 04 lea ($0004,PC), A5 0A7F18 4E 75 rts 0A7F1A 32 04 ADDSP.B $04 0A7F1C 34 RETURN ; ---------------- End Function $0A7EDC ---------------- ; ---------------- Begin 2164 Function $0A7F2C ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0A82B6:$0A8325 ; called from $0A8388:$0A83A4 ; called from $0A8388:$0A83C2 ; called from $0A83F4:$0A8410 ; called from $0A83F4:$0A842E ; called from $0A8460:$0A847C ; called from $0A8460:$0A849A ; called from $0A84CC:$0A8547 ; called from $0A8556:$0A857A ; called from $0A87DE:$0A8813 ; called from $0A8824:$0A8859 ; called from $0A8898:$0A88C1 ; called from $0A8B30:$0A8B74 ; called from $0A8BAA:$0A8BF8 ; called from $0A8C2E:$0A8C77 ; called from $0AB1DA:$0AB2F2 ; addr bytes opcode operands comment 0A7F35 86 07 READ.L $07 0A7F37 96 03 WRITE.L $03 0A7F39 C0 29 71 READ.B $2971 0A7F3C 86 07 READ.L $07 0A7F3E 4F PUSH.6 $0F 0A7F3F 03 26 GT.L 0A7F41 2C AND.L 0A7F42 18 1A BRZ $01A ; => $0A7F5E 0A7F44 02 FF INLINE PAD 0A7F46 20 16 move.l D0, D0 0A7F48 42 AE 00 04 clr.l ($0004,A6) 0A7F4C 41 F9 00 0A 7F 61 lea $a7f61.l, A0 0A7F52 1D 70 00 00 00 07 move.b ($0000,A6), ($0007,A6) 0A7F58 4B FA 00 04 lea ($0004,PC), A5 0A7F5C 4E 75 rts 0A7F5E 32 04 ADDSP.B $04 0A7F60 34 RETURN ; ---------------- End Function $0A7F2C ---------------- ; ---------------- Begin 2164 Function $0A7F70 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0A82B6:$0A832D ; called from $0A87DE:$0A881B ; called from $0A8824:$0A8861 ; called from $0A8898:$0A88C9 ; addr bytes opcode operands comment 0A7F79 86 07 READ.L $07 0A7F7B E0 44 23 READ.B $4423 0A7F7E 86 07 READ.L $07 0A7F80 E0 40 09 READ.B $4009 0A7F83 30 00 FE BSR.68K $00FE ; => $0A7E88 => $095184 0A7F86 2C AND.L 0A7F87 C0 29 E0 READ.B $29E0 0A7F8A 43 PUSH.6 $03 0A7F8B 2A EQ.L 0A7F8C 2C AND.L 0A7F8D 96 03 WRITE.L $03 0A7F8F 32 04 ADDSP.B $04 0A7F91 34 RETURN ; ---------------- End Function $0A7F70 ---------------- ; ---------------- Begin 2144 Function $0A7F92 ---------------- ; A0 = $004004; (A0) = SP + $1F ; called from $0A7FB0:$0A7FC3 ; called from $0A7FB0:$0A7FD2 ; called from $0A7FB0:$0A7FE1 ; called from $0A8012:$0A8047 ; called from $0A8012:$0A8060 ; called from $0A8012:$0A8079 ; called from $0A8012:$0A8090 ; called from $0A8012:$0A80A9 ; called from $0A8012:$0A80C0 ; called from $0A8012:$0A810A ; called from $0A8012:$0A8121 ; called from $0A8012:$0A8136 ; called from $0A81A0:$0A81D7 ; called from $0A81DE:$0A820F ; called from $0A8216:$0A822B ; called from $0A8216:$0A824B ; called from $0A8216:$0A8261 ; called from $0A8280:$0A828F ; called from $0A8280:$0A829C ; called from $0A8280:$0A82AB ; called from $0A82B6:$0A82E2 ; called from $0A8364:$0A8377 ; called from $0A8A4A:$0A8A72 ; called from $0A8A4A:$0A8A85 ; called from $0A8B30:$0A8B57 ; called from $0A8BAA:$0A8BD3 ; called from $0A8C2E:$0A8C5B ; addr bytes opcode operands comment 0A7F99 87 07 READ.F $07 0A7F9B 30 01 40 BSR.68K $0140 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A7F9E 87 0F READ.F $0F 0A7FA0 30 01 45 BSR.68K $0145 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A7FA3 87 17 READ.F $17 0A7FA5 30 01 4A BSR.68K $014A ; => $0A7E5E => $0A7AF4 (NATIVE) 0A7FA8 87 1F READ.F $1F 0A7FAA 30 01 4F BSR.68K $014F ; => $0A7E5E => $0A7AF4 (NATIVE) 0A7FAD 32 20 ADDSP.B $20 0A7FAF 34 RETURN ; ---------------- End Function $0A7F92 ---------------- ; ---------------- Begin 2144 Function $0A7FB0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A7FB7 C3 28 27 READ.F $2827 0A7FBA C3 28 2F READ.F $282F 0A7FBD C3 28 37 READ.F $2837 0A7FC0 C3 28 3F READ.F $283F 0A7FC3 30 00 34 BSR.68K $0034 ; => $0A7F92 0A7FC6 C3 28 47 READ.F $2847 0A7FC9 C3 28 4F READ.F $284F 0A7FCC C3 28 57 READ.F $2857 0A7FCF C3 28 5F READ.F $285F 0A7FD2 30 00 43 BSR.68K $0043 ; => $0A7F92 0A7FD5 C3 28 6F READ.F $286F 0A7FD8 C3 28 67 READ.F $2867 0A7FDB C3 28 87 READ.F $2887 0A7FDE C3 28 77 READ.F $2877 0A7FE1 30 00 52 BSR.68K $0052 ; => $0A7F92 0A7FE4 C3 28 7F READ.F $287F 0A7FE7 30 01 8C BSR.68K $018C ; => $0A7E5E => $0A7AF4 (NATIVE) 0A7FEA C2 28 8F READ.L $288F 0A7FED 03 2A LONG2FLOAT 0A7FEF 30 01 94 BSR.68K $0194 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A7FF2 C0 28 88 READ.B $2888 0A7FF5 30 01 A6 BSR.68K $01A6 ; => $0A7E52 => $0A7B44 (NATIVE) 0A7FF8 C0 28 89 READ.B $2889 0A7FFB 30 01 AC BSR.68K $01AC ; => $0A7E52 => $0A7B44 (NATIVE) 0A7FFE C0 28 8A READ.B $288A 0A8001 30 01 B2 BSR.68K $01B2 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8004 C0 28 90 READ.B $2890 0A8007 30 01 B8 BSR.68K $01B8 ; => $0A7E52 => $0A7B44 (NATIVE) 0A800A 30 01 A3 BSR.68K $01A3 ; => $0A7E6A => $09FDFE 0A800D 30 01 BE BSR.68K $01BE ; => $0A7E52 => $0A7B44 (NATIVE) 0A8010 34 RETURN ; ---------------- End Function $0A7FB0 ---------------- ; ---------------- Begin 2144 Function $0A8012 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8019 31 02 SUBSP.B $02 0A801B 41 PUSH.6 $01 0A801C 30 01 BB BSR.68K $01BB ; => $0A7E64 => $0A7B4A (NATIVE) 0A801F C0 50 BD READ.B $50BD 0A8022 2E NOT.L 0A8023 19 78 BRZ $178 ; => $0A819D 0A8025 C0 51 41 READ.B $5141 0A8028 30 01 4F BSR.68K $014F ; => $0A7EDC 0A802B 94 00 WRITE.B $00 0A802D 84 00 READ.B $00 0A802F E1 01 61 READ.W $0161 0A8032 03 2A LONG2FLOAT 0A8034 84 00 READ.B $00 0A8036 E2 01 E5 READ.L $01E5 0A8039 03 2A LONG2FLOAT 0A803B 84 00 READ.B $00 0A803D E3 03 97 READ.F $0397 0A8040 84 00 READ.B $00 0A8042 E2 04 1B READ.L $041B 0A8045 03 2A LONG2FLOAT 0A8047 30 00 B8 BSR.68K $00B8 ; => $0A7F92 0A804A 84 00 READ.B $00 0A804C E2 07 B7 READ.L $07B7 0A804F 03 2A LONG2FLOAT 0A8051 84 00 READ.B $00 0A8053 E3 05 23 READ.F $0523 0A8056 84 00 READ.B $00 0A8058 E3 06 2B READ.F $062B 0A805B 84 00 READ.B $00 0A805D E3 07 33 READ.F $0733 0A8060 30 00 D1 BSR.68K $00D1 ; => $0A7F92 0A8063 84 00 READ.B $00 0A8065 E2 08 3B READ.L $083B 0A8068 03 2A LONG2FLOAT 0A806A 84 00 READ.B $00 0A806C E3 15 A3 READ.F $15A3 0A806F 84 00 READ.B $00 0A8071 E3 0A 4B READ.F $0A4B 0A8074 84 00 READ.B $00 0A8076 E3 09 43 READ.F $0943 0A8079 30 00 EA BSR.68K $00EA ; => $0A7F92 0A807C 84 00 READ.B $00 0A807E E3 12 8B READ.F $128B 0A8081 84 00 READ.B $00 0A8083 E3 0B 53 READ.F $0B53 0A8086 84 00 READ.B $00 0A8088 E3 13 93 READ.F $1393 0A808B 84 00 READ.B $00 0A808D E3 0C 5B READ.F $0C5B 0A8090 30 01 01 BSR.68K $0101 ; => $0A7F92 0A8093 84 00 READ.B $00 0A8095 E2 18 37 READ.L $1837 0A8098 03 2A LONG2FLOAT 0A809A 84 00 READ.B $00 0A809C E3 16 AB READ.F $16AB 0A809F 84 00 READ.B $00 0A80A1 E3 0D 63 READ.F $0D63 0A80A4 84 00 READ.B $00 0A80A6 E3 17 B3 READ.F $17B3 0A80A9 30 01 1A BSR.68K $011A ; => $0A7F92 0A80AC 84 00 READ.B $00 0A80AE E3 10 7B READ.F $107B 0A80B1 84 00 READ.B $00 0A80B3 E3 14 9B READ.F $149B 0A80B6 84 00 READ.B $00 0A80B8 E3 0E 6B READ.F $0E6B 0A80BB 84 00 READ.B $00 0A80BD E3 0F 73 READ.F $0F73 0A80C0 30 01 31 BSR.68K $0131 ; => $0A7F92 0A80C3 84 00 READ.B $00 0A80C5 E3 11 83 READ.F $1183 0A80C8 30 02 6D BSR.68K $026D ; => $0A7E5E => $0A7AF4 (NATIVE) 0A80CB 84 00 READ.B $00 0A80CD E2 19 1F READ.L $191F 0A80D0 3D 00 09 3A 80 PUSH.L $00093A80 0A80D5 03 24 DIV.L 0A80D7 03 2A LONG2FLOAT 0A80D9 30 02 7E BSR.68K $027E ; => $0A7E5E => $0A7AF4 (NATIVE) 0A80DC 84 00 READ.B $00 0A80DE E2 19 1F READ.L $191F 0A80E1 3D 00 09 3A 80 PUSH.L $00093A80 0A80E6 2F MOD.L 0A80E7 03 2A LONG2FLOAT 0A80E9 30 02 8E BSR.68K $028E ; => $0A7E5E => $0A7AF4 (NATIVE) 0A80EC 84 00 READ.B $00 0A80EE E3 1A 27 READ.F $1A27 0A80F1 30 02 96 BSR.68K $0296 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A80F4 84 00 READ.B $00 0A80F6 E2 1A AB READ.L $1AAB 0A80F9 03 2A LONG2FLOAT 0A80FB 84 00 READ.B $00 0A80FD E3 1B B3 READ.F $1BB3 0A8100 84 00 READ.B $00 0A8102 E3 1C BB READ.F $1CBB 0A8105 84 00 READ.B $00 0A8107 E3 1D C3 READ.F $1DC3 0A810A 30 01 7B BSR.68K $017B ; => $0A7F92 0A810D 84 00 READ.B $00 0A810F E3 1E CB READ.F $1ECB 0A8112 84 00 READ.B $00 0A8114 E3 1F D3 READ.F $1FD3 0A8117 84 00 READ.B $00 0A8119 E3 20 DB READ.F $20DB 0A811C 84 00 READ.B $00 0A811E E3 22 B1 READ.F $22B1 0A8121 30 01 92 BSR.68K $0192 ; => $0A7F92 0A8124 84 00 READ.B $00 0A8126 E2 21 87 READ.L $2187 0A8129 03 2A LONG2FLOAT 0A812B C2 21 03 READ.L $2103 0A812E 03 2A LONG2FLOAT 0A8130 C1 20 FF READ.W $20FF 0A8133 03 2A LONG2FLOAT 0A8135 3E PUSH.W $0000 0A8136 30 01 A7 BSR.68K $01A7 ; => $0A7F92 0A8139 84 00 READ.B $00 0A813B E0 21 A9 READ.B $21A9 0A813E 30 02 EF BSR.68K $02EF ; => $0A7E52 => $0A7B44 (NATIVE) 0A8141 84 00 READ.B $00 0A8143 E0 02 8F READ.B $028F 0A8146 30 02 F7 BSR.68K $02F7 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8149 84 00 READ.B $00 0A814B E0 02 4B READ.B $024B 0A814E 30 02 FF BSR.68K $02FF ; => $0A7E52 => $0A7B44 (NATIVE) 0A8151 84 00 READ.B $00 0A8153 E0 02 07 READ.B $0207 0A8156 30 03 07 BSR.68K $0307 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8159 84 00 READ.B $00 0A815B E0 02 29 READ.B $0229 0A815E 30 03 0F BSR.68K $030F ; => $0A7E52 => $0A7B44 (NATIVE) 0A8161 84 00 READ.B $00 0A8163 E0 02 6D READ.B $026D 0A8166 30 03 17 BSR.68K $0317 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8169 84 00 READ.B $00 0A816B E0 22 D3 READ.B $22D3 0A816E 30 03 1F BSR.68K $031F ; => $0A7E52 => $0A7B44 (NATIVE) 0A8171 84 00 READ.B $00 0A8173 E0 18 59 READ.B $1859 0A8176 30 03 27 BSR.68K $0327 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8179 84 00 READ.B $00 0A817B 30 03 0E BSR.68K $030E ; => $0A7E70 => $09FEDC 0A817E 30 03 2F BSR.68K $032F ; => $0A7E52 => $0A7B44 (NATIVE) 0A8181 84 00 READ.B $00 0A8183 E0 20 FD READ.B $20FD 0A8186 30 03 37 BSR.68K $0337 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8189 84 00 READ.B $00 0A818B 30 03 18 BSR.68K $0318 ; => $0A7E76 => $09FE70 0A818E 30 03 3F BSR.68K $033F ; => $0A7E52 => $0A7B44 (NATIVE) 0A8191 C0 55 7F READ.B $557F 0A8194 30 03 45 BSR.68K $0345 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8197 C0 55 7E READ.B $557E 0A819A 30 03 4B BSR.68K $034B ; => $0A7E52 => $0A7B44 (NATIVE) 0A819D 32 02 ADDSP.B $02 0A819F 34 RETURN ; ---------------- End Function $0A8012 ---------------- ; ---------------- Begin 2144 Function $0A81A0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A81A7 31 02 SUBSP.B $02 0A81A9 41 PUSH.6 $01 0A81AA 30 03 49 BSR.68K $0349 ; => $0A7E64 => $0A7B4A (NATIVE) 0A81AD C0 50 BD READ.B $50BD 0A81B0 2E NOT.L 0A81B1 18 27 BRZ $027 ; => $0A81DA 0A81B3 C0 51 41 READ.B $5141 0A81B6 30 02 DD BSR.68K $02DD ; => $0A7EDC 0A81B9 94 00 WRITE.B $00 0A81BB 84 00 READ.B $00 0A81BD E1 01 61 READ.W $0161 0A81C0 03 2A LONG2FLOAT 0A81C2 84 00 READ.B $00 0A81C4 E2 01 E5 READ.L $01E5 0A81C7 03 2A LONG2FLOAT 0A81C9 84 00 READ.B $00 0A81CB E2 04 1B READ.L $041B 0A81CE 03 2A LONG2FLOAT 0A81D0 84 00 READ.B $00 0A81D2 E2 08 3B READ.L $083B 0A81D5 03 2A LONG2FLOAT 0A81D7 30 02 48 BSR.68K $0248 ; => $0A7F92 0A81DA 32 02 ADDSP.B $02 0A81DC 34 RETURN ; ---------------- End Function $0A81A0 ---------------- ; ---------------- Begin 2144 Function $0A81DE ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A81E5 31 02 SUBSP.B $02 0A81E7 41 PUSH.6 $01 0A81E8 30 03 87 BSR.68K $0387 ; => $0A7E64 => $0A7B4A (NATIVE) 0A81EB C0 50 BD READ.B $50BD 0A81EE 2E NOT.L 0A81EF 18 21 BRZ $021 ; => $0A8212 0A81F1 C0 51 41 READ.B $5141 0A81F4 30 03 1B BSR.68K $031B ; => $0A7EDC 0A81F7 94 00 WRITE.B $00 0A81F9 84 00 READ.B $00 0A81FB E1 18 9B READ.W $189B 0A81FE 03 2A LONG2FLOAT 0A8200 84 00 READ.B $00 0A8202 E2 19 1F READ.L $191F 0A8205 03 2A LONG2FLOAT 0A8207 84 00 READ.B $00 0A8209 E2 1A AB READ.L $1AAB 0A820C 03 2A LONG2FLOAT 0A820E 3E PUSH.W $0000 0A820F 30 02 80 BSR.68K $0280 ; => $0A7F92 0A8212 32 02 ADDSP.B $02 0A8214 34 RETURN ; ---------------- End Function $0A81DE ---------------- ; ---------------- Begin 2144 Function $0A8216 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A821D 31 02 SUBSP.B $02 0A821F C3 01 1F READ.F $011F 0A8222 C3 54 E9 READ.F $54E9 0A8225 C3 54 F1 READ.F $54F1 0A8228 C3 54 F9 READ.F $54F9 0A822B 30 02 9C BSR.68K $029C ; => $0A7F92 0A822E C3 55 21 READ.F $5521 0A8231 C3 55 29 READ.F $5529 0A8234 C3 55 31 READ.F $5531 0A8237 C3 55 19 READ.F $5519 0A823A C2 6B CD READ.L $6BCD 0A823D 30 03 B2 BSR.68K $03B2 ; => $0A7E8E => $09515C 0A8240 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0A8249 22 MUL.F 0A824A 21 SUB.F 0A824B 30 02 BC BSR.68K $02BC ; => $0A7F92 0A824E C3 28 E3 READ.F $28E3 0A8251 30 03 F6 BSR.68K $03F6 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8254 3E PUSH.W $0000 0A8255 30 03 FA BSR.68K $03FA ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8258 C3 56 1D READ.F $561D 0A825B 83 67 READ.F $67 0A825D 83 6F READ.F $6F 0A825F 83 77 READ.F $77 0A8261 30 02 D2 BSR.68K $02D2 ; => $0A7F92 0A8264 83 7F READ.F $7F 0A8266 30 04 0B BSR.68K $040B ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8269 C3 01 17 READ.F $0117 0A826C 30 04 11 BSR.68K $0411 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A826F C0 55 63 READ.B $5563 0A8272 30 04 23 BSR.68K $0423 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8275 C0 55 62 READ.B $5562 0A8278 40 PUSH.6 $00 0A8279 2B NEQ.L 0A827A 30 04 2B BSR.68K $042B ; => $0A7E52 => $0A7B44 (NATIVE) 0A827D 32 02 ADDSP.B $02 0A827F 34 RETURN ; ---------------- End Function $0A8216 ---------------- ; ---------------- Begin 2144 Function $0A8280 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8287 83 37 READ.F $37 0A8289 83 3F READ.F $3F 0A828B 83 47 READ.F $47 0A828D 83 4F READ.F $4F 0A828F 30 03 00 BSR.68K $0300 ; => $0A7F92 0A8292 83 57 READ.F $57 0A8294 83 5F READ.F $5F 0A8296 C3 55 01 READ.F $5501 0A8299 C3 55 09 READ.F $5509 0A829C 30 03 0D BSR.68K $030D ; => $0A7F92 0A829F C3 55 11 READ.F $5511 0A82A2 C3 55 39 READ.F $5539 0A82A5 C3 55 41 READ.F $5541 0A82A8 C3 55 49 READ.F $5549 0A82AB 30 03 1C BSR.68K $031C ; => $0A7F92 0A82AE C3 01 17 READ.F $0117 0A82B1 30 04 56 BSR.68K $0456 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A82B4 34 RETURN ; ---------------- End Function $0A8280 ---------------- ; ---------------- Begin 2144 Function $0A82B6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A82BD 31 0A SUBSP.B $0A 0A82BF 41 PUSH.6 $01 0A82C0 30 04 5F BSR.68K $045F ; => $0A7E64 => $0A7B4A (NATIVE) 0A82C3 C0 50 BD READ.B $50BD 0A82C6 2E NOT.L 0A82C7 18 98 BRZ $098 ; => $0A8361 0A82C9 C0 51 41 READ.B $5141 0A82CC 94 00 WRITE.B $00 0A82CE 84 00 READ.B $00 0A82D0 E3 40 59 READ.F $4059 0A82D3 84 00 READ.B $00 0A82D5 E3 40 A9 READ.F $40A9 0A82D8 84 00 READ.B $00 0A82DA E3 40 F9 READ.F $40F9 0A82DD 84 00 READ.B $00 0A82DF E3 42 D9 READ.F $42D9 0A82E2 30 03 53 BSR.68K $0353 ; => $0A7F92 0A82E5 84 00 READ.B $00 0A82E7 E3 44 C3 READ.F $44C3 0A82EA 30 04 8F BSR.68K $048F ; => $0A7E5E => $0A7AF4 (NATIVE) 0A82ED 84 00 READ.B $00 0A82EF E3 47 07 READ.F $4707 0A82F2 30 04 97 BSR.68K $0497 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A82F5 84 00 READ.B $00 0A82F7 E0 40 09 READ.B $4009 0A82FA E3 23 FF READ.F $23FF 0A82FD 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A8306 23 DIV.F 0A8307 97 09 WRITE.F $09 0A8309 87 09 READ.F $09 0A830B 3E PUSH.W $0000 0A830C 03 21 LT.F 0A830E 18 03 BRZ $003 ; => $0A8313 0A8310 3E PUSH.W $0000 0A8311 97 09 WRITE.F $09 0A8313 87 09 READ.F $09 0A8315 30 04 BA BSR.68K $04BA ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8318 84 00 READ.B $00 0A831A E3 46 03 READ.F $4603 0A831D 30 04 C2 BSR.68K $04C2 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8320 84 00 READ.B $00 0A8322 E0 40 09 READ.B $4009 0A8325 30 03 FC BSR.68K $03FC ; => $0A7F2C 0A8328 30 04 D9 BSR.68K $04D9 ; => $0A7E52 => $0A7B44 (NATIVE) 0A832B 84 00 READ.B $00 0A832D 30 03 C0 BSR.68K $03C0 ; => $0A7F70 0A8330 30 04 E1 BSR.68K $04E1 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8333 84 00 READ.B $00 0A8335 C0 29 9B READ.B $299B 0A8338 03 25 LT.L 0A833A 18 11 BRZ $011 ; => $0A834D 0A833C 84 00 READ.B $00 0A833E E3 41 49 READ.F $4149 0A8341 3B 40 50 00 00 00 00 00 00 PUSH.F $4050000000000000 ; float = 64.000000 0A834A 22 MUL.F 0A834B 10 05 BR $005 ; => $0A8352 0A834D 84 00 READ.B $00 0A834F E3 41 49 READ.F $4149 0A8352 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A835B 20 ADD.F 0A835C 03 29 FLOAT2LONG 0A835E 30 05 0F BSR.68K $050F ; => $0A7E52 => $0A7B44 (NATIVE) 0A8361 32 0A ADDSP.B $0A 0A8363 34 RETURN ; ---------------- End Function $0A82B6 ---------------- ; ---------------- Begin 2144 Function $0A8364 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A836B C3 29 3F READ.F $293F 0A836E C3 29 47 READ.F $2947 0A8371 C3 29 4F READ.F $294F 0A8374 C3 29 1B READ.F $291B 0A8377 30 03 E8 BSR.68K $03E8 ; => $0A7F92 0A837A C3 29 23 READ.F $2923 0A837D 30 05 22 BSR.68K $0522 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8380 C3 29 2B READ.F $292B 0A8383 30 05 28 BSR.68K $0528 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8386 34 RETURN ; ---------------- End Function $0A8364 ---------------- ; ---------------- Begin 2144 Function $0A8388 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A838F 31 02 SUBSP.B $02 0A8391 C0 28 FF READ.B $28FF 0A8394 30 05 45 BSR.68K $0545 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8397 43 PUSH.6 $03 0A8398 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A839B 40 PUSH.6 $00 0A839C 3A 00 10 BGT.B $0010 ; => $0A83AF 0A839F 84 00 READ.B $00 0A83A1 E0 29 0B READ.B $290B 0A83A4 30 04 7B BSR.68K $047B ; => $0A7F2C 0A83A7 30 05 58 BSR.68K $0558 ; => $0A7E52 => $0A7B44 (NATIVE) 0A83AA 39 10 00 00 14 _23fc $1000, $0014 0A83AF C0 35 7C READ.B $357C 0A83B2 30 05 63 BSR.68K $0563 ; => $0A7E52 => $0A7B44 (NATIVE) 0A83B5 40 PUSH.6 $00 0A83B6 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A83B9 49 PUSH.6 $09 0A83BA 38 00 10 BLS.B $0010 ; => $0A83CD 0A83BD 84 00 READ.B $00 0A83BF E0 55 6F READ.B $556F 0A83C2 30 04 99 BSR.68K $0499 ; => $0A7F2C 0A83C5 30 05 76 BSR.68K $0576 ; => $0A7E52 => $0A7B44 (NATIVE) 0A83C8 37 10 00 00 14 _23d2 $0000, $0014 0A83CD C0 55 65 READ.B $5565 0A83D0 30 05 81 BSR.68K $0581 ; => $0A7E52 => $0A7B44 (NATIVE) 0A83D3 C3 28 F5 READ.F $28F5 0A83D6 30 05 7B BSR.68K $057B ; => $0A7E5E => $0A7AF4 (NATIVE) 0A83D9 C3 28 ED READ.F $28ED 0A83DC 30 05 81 BSR.68K $0581 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A83DF C3 28 FD READ.F $28FD 0A83E2 30 05 87 BSR.68K $0587 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A83E5 C0 29 0D READ.B $290D 0A83E8 30 05 99 BSR.68K $0599 ; => $0A7E52 => $0A7B44 (NATIVE) 0A83EB C0 29 0C READ.B $290C 0A83EE 30 05 9F BSR.68K $059F ; => $0A7E52 => $0A7B44 (NATIVE) 0A83F1 32 02 ADDSP.B $02 0A83F3 34 RETURN ; ---------------- End Function $0A8388 ---------------- ; ---------------- Begin 2144 Function $0A83F4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A83FB 31 02 SUBSP.B $02 0A83FD C0 28 FF READ.B $28FF 0A8400 30 05 B1 BSR.68K $05B1 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8403 44 PUSH.6 $04 0A8404 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8407 40 PUSH.6 $00 0A8408 3A 00 10 BGT.B $0010 ; => $0A841B 0A840B 84 00 READ.B $00 0A840D E0 29 0B READ.B $290B 0A8410 30 04 E7 BSR.68K $04E7 ; => $0A7F2C 0A8413 30 05 C4 BSR.68K $05C4 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8416 39 10 00 00 14 _23fc $1000, $0014 0A841B C0 35 7C READ.B $357C 0A841E 30 05 CF BSR.68K $05CF ; => $0A7E52 => $0A7B44 (NATIVE) 0A8421 40 PUSH.6 $00 0A8422 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8425 49 PUSH.6 $09 0A8426 38 00 10 BLS.B $0010 ; => $0A8439 0A8429 84 00 READ.B $00 0A842B E0 55 6F READ.B $556F 0A842E 30 05 05 BSR.68K $0505 ; => $0A7F2C 0A8431 30 05 E2 BSR.68K $05E2 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8434 37 10 00 00 14 _23d2 $0000, $0014 0A8439 C0 55 65 READ.B $5565 0A843C 30 05 ED BSR.68K $05ED ; => $0A7E52 => $0A7B44 (NATIVE) 0A843F C3 28 F5 READ.F $28F5 0A8442 30 05 E7 BSR.68K $05E7 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8445 C3 28 ED READ.F $28ED 0A8448 30 05 ED BSR.68K $05ED ; => $0A7E5E => $0A7AF4 (NATIVE) 0A844B C3 28 FD READ.F $28FD 0A844E 30 05 F3 BSR.68K $05F3 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8451 C0 29 0D READ.B $290D 0A8454 30 06 05 BSR.68K $0605 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8457 C0 29 0C READ.B $290C 0A845A 30 06 0B BSR.68K $060B ; => $0A7E52 => $0A7B44 (NATIVE) 0A845D 32 02 ADDSP.B $02 0A845F 34 RETURN ; ---------------- End Function $0A83F4 ---------------- ; ---------------- Begin 2144 Function $0A8460 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8467 31 02 SUBSP.B $02 0A8469 C0 28 FF READ.B $28FF 0A846C 30 06 1D BSR.68K $061D ; => $0A7E52 => $0A7B44 (NATIVE) 0A846F 40 PUSH.6 $00 0A8470 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8473 49 PUSH.6 $09 0A8474 38 00 10 BLS.B $0010 ; => $0A8487 0A8477 84 00 READ.B $00 0A8479 E0 29 0B READ.B $290B 0A847C 30 05 53 BSR.68K $0553 ; => $0A7F2C 0A847F 30 06 30 BSR.68K $0630 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8482 37 10 00 00 14 _23d2 $0000, $0014 0A8487 C0 35 7C READ.B $357C 0A848A 30 06 3B BSR.68K $063B ; => $0A7E52 => $0A7B44 (NATIVE) 0A848D 40 PUSH.6 $00 0A848E 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8491 49 PUSH.6 $09 0A8492 38 00 10 BLS.B $0010 ; => $0A84A5 0A8495 84 00 READ.B $00 0A8497 E0 55 6F READ.B $556F 0A849A 30 05 71 BSR.68K $0571 ; => $0A7F2C 0A849D 30 06 4E BSR.68K $064E ; => $0A7E52 => $0A7B44 (NATIVE) 0A84A0 37 10 00 00 14 _23d2 $0000, $0014 0A84A5 C0 55 65 READ.B $5565 0A84A8 30 06 59 BSR.68K $0659 ; => $0A7E52 => $0A7B44 (NATIVE) 0A84AB C3 28 F5 READ.F $28F5 0A84AE 30 06 53 BSR.68K $0653 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A84B1 C3 28 ED READ.F $28ED 0A84B4 30 06 59 BSR.68K $0659 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A84B7 C3 28 FD READ.F $28FD 0A84BA 30 06 5F BSR.68K $065F ; => $0A7E5E => $0A7AF4 (NATIVE) 0A84BD C0 29 0D READ.B $290D 0A84C0 30 06 71 BSR.68K $0671 ; => $0A7E52 => $0A7B44 (NATIVE) 0A84C3 C0 29 0C READ.B $290C 0A84C6 30 06 77 BSR.68K $0677 ; => $0A7E52 => $0A7B44 (NATIVE) 0A84C9 32 02 ADDSP.B $02 0A84CB 34 RETURN ; ---------------- End Function $0A8460 ---------------- ; ---------------- Begin 2144 Function $0A84CC ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A84D3 31 02 SUBSP.B $02 0A84D5 5E PUSH.6 $1E 0A84D6 C0 29 A0 READ.B $29A0 0A84D9 27 ADD.L 0A84DA C0 55 65 READ.B $5565 0A84DD 27 ADD.L 0A84DE 30 06 8F BSR.68K $068F ; => $0A7E52 => $0A7B44 (NATIVE) 0A84E1 C0 29 A0 READ.B $29A0 0A84E4 30 06 95 BSR.68K $0695 ; => $0A7E52 => $0A7B44 (NATIVE) 0A84E7 C0 55 65 READ.B $5565 0A84EA 30 06 9B BSR.68K $069B ; => $0A7E52 => $0A7B44 (NATIVE) 0A84ED C0 35 7C READ.B $357C 0A84F0 30 06 A1 BSR.68K $06A1 ; => $0A7E52 => $0A7B44 (NATIVE) 0A84F3 C0 28 FF READ.B $28FF 0A84F6 30 06 A7 BSR.68K $06A7 ; => $0A7E52 => $0A7B44 (NATIVE) 0A84F9 C3 28 F5 READ.F $28F5 0A84FC 30 06 A1 BSR.68K $06A1 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A84FF C3 28 ED READ.F $28ED 0A8502 30 06 A7 BSR.68K $06A7 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8505 C3 28 FD READ.F $28FD 0A8508 30 06 AD BSR.68K $06AD ; => $0A7E5E => $0A7AF4 (NATIVE) 0A850B C0 29 0D READ.B $290D 0A850E 30 06 BF BSR.68K $06BF ; => $0A7E52 => $0A7B44 (NATIVE) 0A8511 C0 29 0C READ.B $290C 0A8514 30 06 C5 BSR.68K $06C5 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8517 40 PUSH.6 $00 0A8518 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A851B C0 29 9B READ.B $299B 0A851E 38 00 0D BLS.B $000D ; => $0A852E 0A8521 84 00 READ.B $00 0A8523 E0 29 0B READ.B $290B 0A8526 30 06 D7 BSR.68K $06D7 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8529 37 10 00 00 13 _23d2 $0000, $0013 0A852E C0 55 65 READ.B $5565 0A8531 40 PUSH.6 $00 0A8532 03 25 LT.L 0A8534 18 1C BRZ $01C ; => $0A8552 0A8536 40 PUSH.6 $00 0A8537 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A853A C0 55 65 READ.B $5565 0A853D 41 PUSH.6 $01 0A853E 28 SUB.L 0A853F 38 00 10 BLS.B $0010 ; => $0A8552 0A8542 84 00 READ.B $00 0A8544 E0 55 6F READ.B $556F 0A8547 30 06 1E BSR.68K $061E ; => $0A7F2C 0A854A 30 06 FB BSR.68K $06FB ; => $0A7E52 => $0A7B44 (NATIVE) 0A854D 37 10 00 00 18 _23d2 $0000, $0018 0A8552 32 02 ADDSP.B $02 0A8554 34 RETURN ; ---------------- End Function $0A84CC ---------------- ; ---------------- Begin 2144 Function $0A8556 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A855D 31 02 SUBSP.B $02 0A855F C0 28 A8 READ.B $28A8 0A8562 30 07 13 BSR.68K $0713 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8565 C0 28 A9 READ.B $28A9 0A8568 30 07 19 BSR.68K $0719 ; => $0A7E52 => $0A7B44 (NATIVE) 0A856B C0 28 AA READ.B $28AA 0A856E 30 07 1F BSR.68K $071F ; => $0A7E52 => $0A7B44 (NATIVE) 0A8571 C0 29 11 READ.B $2911 0A8574 30 07 25 BSR.68K $0725 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8577 C0 29 12 READ.B $2912 0A857A 30 06 51 BSR.68K $0651 ; => $0A7F2C 0A857D 30 07 2E BSR.68K $072E ; => $0A7E52 => $0A7B44 (NATIVE) 0A8580 C0 29 71 READ.B $2971 0A8583 18 1A BRZ $01A ; => $0A859F 0A8585 40 PUSH.6 $00 0A8586 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8589 49 PUSH.6 $09 0A858A 38 00 10 BLS.B $0010 ; => $0A859D 0A858D 84 00 READ.B $00 0A858F 30 06 B6 BSR.68K $06B6 ; => $0A7EDC 0A8592 E0 22 D3 READ.B $22D3 0A8595 30 07 46 BSR.68K $0746 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8598 37 10 00 00 14 _23d2 $0000, $0014 0A859D 10 15 BR $015 ; => $0A85B4 0A859F 41 PUSH.6 $01 0A85A0 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A85A3 4A PUSH.6 $0A 0A85A4 38 00 0D BLS.B $000D ; => $0A85B4 0A85A7 84 00 READ.B $00 0A85A9 E0 22 D3 READ.B $22D3 0A85AC 30 07 5D BSR.68K $075D ; => $0A7E52 => $0A7B44 (NATIVE) 0A85AF 37 10 00 00 11 _23d2 $0000, $0011 0A85B4 C3 28 DB READ.F $28DB 0A85B7 30 07 5C BSR.68K $075C ; => $0A7E5E => $0A7AF4 (NATIVE) 0A85BA 3E PUSH.W $0000 0A85BB 30 07 60 BSR.68K $0760 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A85BE 32 02 ADDSP.B $02 0A85C0 34 RETURN ; ---------------- End Function $0A8556 ---------------- ; ---------------- Begin 2144 Function $0A85C2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A85C9 C3 29 57 READ.F $2957 0A85CC 30 07 71 BSR.68K $0771 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A85CF 34 RETURN ; ---------------- End Function $0A85C2 ---------------- ; ---------------- Begin 2144 Function $0A85D0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A85D7 31 02 SUBSP.B $02 0A85D9 40 PUSH.6 $00 0A85DA 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A85DD 04 BB PUSH.10 $0BB 0A85DF 38 00 0D BLS.B $000D ; => $0A85EF 0A85E2 84 00 READ.B $00 0A85E4 E0 51 FF READ.B $51FF 0A85E7 30 07 98 BSR.68K $0798 ; => $0A7E52 => $0A7B44 (NATIVE) 0A85EA 37 10 00 00 12 _23d2 $0000, $0012 0A85EF 32 02 ADDSP.B $02 0A85F1 34 RETURN ; ---------------- End Function $0A85D0 ---------------- ; ---------------- Begin 2144 Function $0A85F2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A85F9 C3 50 C7 READ.F $50C7 0A85FC 30 07 A1 BSR.68K $07A1 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A85FF 34 RETURN ; ---------------- End Function $0A85F2 ---------------- ; ---------------- Begin 2144 Function $0A8600 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8607 40 PUSH.6 $00 0A8608 30 07 B9 BSR.68K $07B9 ; => $0A7E52 => $0A7B44 (NATIVE) 0A860B C0 55 A2 READ.B $55A2 0A860E 30 07 BF BSR.68K $07BF ; => $0A7E52 => $0A7B44 (NATIVE) 0A8611 C0 29 2C READ.B $292C 0A8614 30 07 C5 BSR.68K $07C5 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8617 40 PUSH.6 $00 0A8618 30 07 C9 BSR.68K $07C9 ; => $0A7E52 => $0A7B44 (NATIVE) 0A861B C0 28 AC READ.B $28AC 0A861E 30 07 CF BSR.68K $07CF ; => $0A7E52 => $0A7B44 (NATIVE) 0A8621 C0 28 AE READ.B $28AE 0A8624 30 07 D5 BSR.68K $07D5 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8627 C0 28 AB READ.B $28AB 0A862A 30 07 DB BSR.68K $07DB ; => $0A7E52 => $0A7B44 (NATIVE) 0A862D 40 PUSH.6 $00 0A862E 30 07 DF BSR.68K $07DF ; => $0A7E52 => $0A7B44 (NATIVE) 0A8631 40 PUSH.6 $00 0A8632 30 07 E3 BSR.68K $07E3 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8635 40 PUSH.6 $00 0A8636 30 07 E7 BSR.68K $07E7 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8639 C0 55 A4 READ.B $55A4 0A863C 30 07 ED BSR.68K $07ED ; => $0A7E52 => $0A7B44 (NATIVE) 0A863F C0 55 62 READ.B $5562 0A8642 40 PUSH.6 $00 0A8643 2B NEQ.L 0A8644 30 07 F5 BSR.68K $07F5 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8647 C0 28 AD READ.B $28AD 0A864A 30 07 FB BSR.68K $07FB ; => $0A7E52 => $0A7B44 (NATIVE) 0A864D 40 PUSH.6 $00 0A864E 30 07 FF BSR.68K $07FF ; => $0A7E52 => $0A7B44 (NATIVE) 0A8651 C0 55 A3 READ.B $55A3 0A8654 30 08 05 BSR.68K $0805 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8657 C0 55 7E READ.B $557E 0A865A 30 08 0B BSR.68K $080B ; => $0A7E52 => $0A7B44 (NATIVE) 0A865D C0 55 7F READ.B $557F 0A8660 30 08 11 BSR.68K $0811 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8663 34 RETURN ; ---------------- End Function $0A8600 ---------------- ; ---------------- Begin 2144 Function $0A8664 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A866B C1 29 85 READ.W $2985 0A866E 05 00 PUSH.10 $100 0A8670 03 24 DIV.L 0A8672 30 08 23 BSR.68K $0823 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8675 C1 29 85 READ.W $2985 0A8678 05 00 PUSH.10 $100 0A867A 2F MOD.L 0A867B 30 08 2C BSR.68K $082C ; => $0A7E52 => $0A7B44 (NATIVE) 0A867E C1 29 95 READ.W $2995 0A8681 3C 07 FF PUSH.W $07FF 0A8684 2C AND.L 0A8685 05 00 PUSH.10 $100 0A8687 03 24 DIV.L 0A8689 30 08 3A BSR.68K $083A ; => $0A7E52 => $0A7B44 (NATIVE) 0A868C C1 29 95 READ.W $2995 0A868F 05 00 PUSH.10 $100 0A8691 2F MOD.L 0A8692 30 08 43 BSR.68K $0843 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8695 34 RETURN ; ---------------- End Function $0A8664 ---------------- ; ---------------- Begin 2144 Function $0A869C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A0D2E:$0A0D5A ; addr bytes opcode operands comment 0A86A3 31 0A SUBSP.B $0A 0A86A5 C0 47 6B READ.B $476B 0A86A8 E3 40 59 READ.F $4059 0A86AB 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 0A86B4 23 DIV.F 0A86B5 97 09 WRITE.F $09 0A86B7 3B 40 6E 00 00 00 00 00 00 PUSH.F $406E000000000000 ; float = 240.000000 0A86C0 87 09 READ.F $09 0A86C2 3B 40 6E 00 00 00 00 00 00 PUSH.F $406E000000000000 ; float = 240.000000 0A86CB 23 DIV.F 0A86CC 30 08 53 BSR.68K $0853 ; => $0A7E7C => $002C08 (NATIVE) 0A86CF 22 MUL.F 0A86D0 03 29 FLOAT2LONG 0A86D2 D0 50 FE WRITE.B $50FE 0A86D5 C3 54 E9 READ.F $54E9 0A86D8 C3 50 E1 READ.F $50E1 0A86DB 20 ADD.F 0A86DC D3 54 E9 WRITE.F $54E9 0A86DF C3 54 F1 READ.F $54F1 0A86E2 C3 50 D9 READ.F $50D9 0A86E5 20 ADD.F 0A86E6 D3 54 F1 WRITE.F $54F1 0A86E9 C0 55 63 READ.B $5563 0A86EC 44 PUSH.6 $04 0A86ED 2A EQ.L 0A86EE 18 0A BRZ $00A ; => $0A86FA 0A86F0 C3 54 F9 READ.F $54F9 0A86F3 C3 50 D1 READ.F $50D1 0A86F6 20 ADD.F 0A86F7 D3 54 F9 WRITE.F $54F9 0A86FA C3 29 1B READ.F $291B 0A86FD 83 37 READ.F $37 0A86FF 21 SUB.F 0A8700 D3 50 F9 WRITE.F $50F9 0A8703 C3 29 23 READ.F $2923 0A8706 83 3F READ.F $3F 0A8708 21 SUB.F 0A8709 D3 50 F1 WRITE.F $50F1 0A870C C3 29 2B READ.F $292B 0A870F 83 47 READ.F $47 0A8711 21 SUB.F 0A8712 D3 50 E9 WRITE.F $50E9 0A8715 40 PUSH.6 $00 0A8716 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8719 42 PUSH.6 $02 0A871A 38 00 6B BLS.B $006B ; => $0A8788 0A871D 84 00 READ.B $00 0A871F E3 50 F9 READ.F $50F9 0A8722 30 08 A3 BSR.68K $08A3 ; => $0A7E82 => $002B7E (NATIVE) 0A8725 97 09 WRITE.F $09 0A8727 84 00 READ.B $00 0A8729 42 PUSH.6 $02 0A872A 03 26 GT.L 0A872C 18 0E BRZ $00E ; => $0A873C 0A872E 87 09 READ.F $09 0A8730 3B 41 74 99 70 00 00 00 00 PUSH.F $4174997000000000 ; float = 21600000.000000 0A8739 22 MUL.F 0A873A 97 09 WRITE.F $09 0A873C 87 09 READ.F $09 0A873E 3B 40 5F 80 00 00 00 00 00 PUSH.F $405F800000000000 ; float = 126.000000 0A8747 24 GT.F 0A8748 18 1B BRZ $01B ; => $0A8765 0A874A C0 50 C8 READ.B $50C8 0A874D C0 29 6F READ.B $296F 0A8750 6A PUSH.6 $2A 0A8751 2B NEQ.L 0A8752 2C AND.L 0A8753 18 05 BRZ $005 ; => $0A875A 0A8755 30 00 C2 BSR.68K $00C2 ; => $0A8696 => $00014E (NATIVE) 0A8758 10 0B BR $00B ; => $0A8765 0A875A 3B 40 5F 80 00 00 00 00 00 PUSH.F $405F800000000000 ; float = 126.000000 0A8763 97 09 WRITE.F $09 0A8765 87 09 READ.F $09 0A8767 03 29 FLOAT2LONG 0A8769 94 01 WRITE.B $01 0A876B 84 00 READ.B $00 0A876D E3 50 F9 READ.F $50F9 0A8770 3E PUSH.W $0000 0A8771 03 21 LT.F 0A8773 18 07 BRZ $007 ; => $0A877C 0A8775 84 01 READ.B $01 0A8777 04 80 PUSH.10 $080 0A8779 2D OR.L 0A877A 94 01 WRITE.B $01 0A877C 84 00 READ.B $00 0A877E 84 01 READ.B $01 0A8780 F0 50 FD WRITE.B $50FD 0A8783 37 10 00 00 6F _23d2 $0000, $006F 0A8788 32 0A ADDSP.B $0A 0A878A 34 RETURN ; ---------------- End Function $0A869C ---------------- ; ---------------- Begin 2144 Function $0A878C ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8793 31 02 SUBSP.B $02 0A8795 04 FF PUSH.10 $0FF 0A8797 D0 50 C8 WRITE.B $50C8 0A879A 40 PUSH.6 $00 0A879B 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A879E 42 PUSH.6 $02 0A879F 38 00 0D BLS.B $000D ; => $0A87AF 0A87A2 84 00 READ.B $00 0A87A4 E3 50 F9 READ.F $50F9 0A87A7 30 09 4C BSR.68K $094C ; => $0A7E5E => $0A7AF4 (NATIVE) 0A87AA 37 10 00 00 11 _23d2 $0000, $0011 0A87AF 32 02 ADDSP.B $02 0A87B1 34 RETURN ; ---------------- End Function $0A878C ---------------- ; ---------------- Begin 2144 Function $0A87B2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A87B9 31 02 SUBSP.B $02 0A87BB 04 FF PUSH.10 $0FF 0A87BD D0 50 C8 WRITE.B $50C8 0A87C0 C0 50 FE READ.B $50FE 0A87C3 30 09 74 BSR.68K $0974 ; => $0A7E52 => $0A7B44 (NATIVE) 0A87C6 40 PUSH.6 $00 0A87C7 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A87CA 42 PUSH.6 $02 0A87CB 38 00 0D BLS.B $000D ; => $0A87DB 0A87CE 84 00 READ.B $00 0A87D0 E0 50 FD READ.B $50FD 0A87D3 30 09 84 BSR.68K $0984 ; => $0A7E52 => $0A7B44 (NATIVE) 0A87D6 37 10 00 00 11 _23d2 $0000, $0011 0A87DB 32 02 ADDSP.B $02 0A87DD 34 RETURN ; ---------------- End Function $0A87B2 ---------------- ; ---------------- Begin 2144 Function $0A87DE ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A87E5 31 02 SUBSP.B $02 0A87E7 41 PUSH.6 $01 0A87E8 30 09 87 BSR.68K $0987 ; => $0A7E64 => $0A7B4A (NATIVE) 0A87EB C0 50 BD READ.B $50BD 0A87EE 2E NOT.L 0A87EF 18 30 BRZ $030 ; => $0A8821 0A87F1 C0 51 41 READ.B $5141 0A87F4 94 00 WRITE.B $00 0A87F6 84 00 READ.B $00 0A87F8 E3 46 B7 READ.F $46B7 0A87FB 30 09 A0 BSR.68K $09A0 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A87FE 84 00 READ.B $00 0A8800 E3 46 53 READ.F $4653 0A8803 30 09 A8 BSR.68K $09A8 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8806 84 00 READ.B $00 0A8808 E3 47 61 READ.F $4761 0A880B 30 09 B0 BSR.68K $09B0 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A880E 84 00 READ.B $00 0A8810 E0 40 09 READ.B $4009 0A8813 30 08 EA BSR.68K $08EA ; => $0A7F2C 0A8816 30 09 C7 BSR.68K $09C7 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8819 84 00 READ.B $00 0A881B 30 08 AE BSR.68K $08AE ; => $0A7F70 0A881E 30 09 CF BSR.68K $09CF ; => $0A7E52 => $0A7B44 (NATIVE) 0A8821 32 02 ADDSP.B $02 0A8823 34 RETURN ; ---------------- End Function $0A87DE ---------------- ; ---------------- Begin 2144 Function $0A8824 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A882B 31 02 SUBSP.B $02 0A882D 41 PUSH.6 $01 0A882E 30 09 CD BSR.68K $09CD ; => $0A7E64 => $0A7B4A (NATIVE) 0A8831 C0 50 BD READ.B $50BD 0A8834 2E NOT.L 0A8835 18 5E BRZ $05E ; => $0A8895 0A8837 C0 51 41 READ.B $5141 0A883A 94 00 WRITE.B $00 0A883C 84 00 READ.B $00 0A883E E3 46 B7 READ.F $46B7 0A8841 30 09 E6 BSR.68K $09E6 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8844 84 00 READ.B $00 0A8846 E3 46 53 READ.F $4653 0A8849 30 09 EE BSR.68K $09EE ; => $0A7E5E => $0A7AF4 (NATIVE) 0A884C 84 00 READ.B $00 0A884E E3 47 61 READ.F $4761 0A8851 30 09 F6 BSR.68K $09F6 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8854 84 00 READ.B $00 0A8856 E0 40 09 READ.B $4009 0A8859 30 09 30 BSR.68K $0930 ; => $0A7F2C 0A885C 30 0A 0D BSR.68K $0A0D ; => $0A7E52 => $0A7B44 (NATIVE) 0A885F 84 00 READ.B $00 0A8861 30 08 F4 BSR.68K $08F4 ; => $0A7F70 0A8864 30 0A 15 BSR.68K $0A15 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8867 84 00 READ.B $00 0A8869 C0 29 9B READ.B $299B 0A886C 03 25 LT.L 0A886E 18 11 BRZ $011 ; => $0A8881 0A8870 84 00 READ.B $00 0A8872 E3 41 49 READ.F $4149 0A8875 3B 40 50 00 00 00 00 00 00 PUSH.F $4050000000000000 ; float = 64.000000 0A887E 22 MUL.F 0A887F 10 05 BR $005 ; => $0A8886 0A8881 84 00 READ.B $00 0A8883 E3 41 49 READ.F $4149 0A8886 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A888F 20 ADD.F 0A8890 03 29 FLOAT2LONG 0A8892 30 0A 43 BSR.68K $0A43 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8895 32 02 ADDSP.B $02 0A8897 34 RETURN ; ---------------- End Function $0A8824 ---------------- ; ---------------- Begin 2144 Function $0A8898 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A889F 31 04 SUBSP.B $04 0A88A1 41 PUSH.6 $01 0A88A2 30 0A 41 BSR.68K $0A41 ; => $0A7E64 => $0A7B4A (NATIVE) 0A88A5 C0 50 BD READ.B $50BD 0A88A8 2E NOT.L 0A88A9 18 BF BRZ $0BF ; => $0A896A 0A88AB C0 51 41 READ.B $5141 0A88AE 94 00 WRITE.B $00 0A88B0 84 00 READ.B $00 0A88B2 E0 40 09 READ.B $4009 0A88B5 94 01 WRITE.B $01 0A88B7 04 40 PUSH.10 $040 0A88B9 30 0A 6A BSR.68K $0A6A ; => $0A7E52 => $0A7B44 (NATIVE) 0A88BC 84 00 READ.B $00 0A88BE E0 40 09 READ.B $4009 0A88C1 30 09 98 BSR.68K $0998 ; => $0A7F2C 0A88C4 30 0A 75 BSR.68K $0A75 ; => $0A7E52 => $0A7B44 (NATIVE) 0A88C7 84 00 READ.B $00 0A88C9 30 09 5C BSR.68K $095C ; => $0A7F70 0A88CC 30 0A 7D BSR.68K $0A7D ; => $0A7E52 => $0A7B44 (NATIVE) 0A88CF 84 00 READ.B $00 0A88D1 E3 46 B7 READ.F $46B7 0A88D4 30 0A 79 BSR.68K $0A79 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A88D7 84 00 READ.B $00 0A88D9 E3 46 53 READ.F $4653 0A88DC 30 0A 81 BSR.68K $0A81 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A88DF 84 00 READ.B $00 0A88E1 E3 47 61 READ.F $4761 0A88E4 30 0A 89 BSR.68K $0A89 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A88E7 84 00 READ.B $00 0A88E9 C0 29 9B READ.B $299B 0A88EC 03 25 LT.L 0A88EE 18 11 BRZ $011 ; => $0A8901 0A88F0 84 00 READ.B $00 0A88F2 E3 41 49 READ.F $4149 0A88F5 3B 40 50 00 00 00 00 00 00 PUSH.F $4050000000000000 ; float = 64.000000 0A88FE 22 MUL.F 0A88FF 10 05 BR $005 ; => $0A8906 0A8901 84 00 READ.B $00 0A8903 E3 41 49 READ.F $4149 0A8906 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0A890F 20 ADD.F 0A8910 03 29 FLOAT2LONG 0A8912 30 0A C3 BSR.68K $0AC3 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8915 C3 28 FD READ.F $28FD 0A8918 03 29 FLOAT2LONG 0A891A 95 03 WRITE.W $03 0A891C 85 03 READ.W $03 0A891E 05 00 PUSH.10 $100 0A8920 03 24 DIV.L 0A8922 30 0A D3 BSR.68K $0AD3 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8925 85 03 READ.W $03 0A8927 30 0A D8 BSR.68K $0AD8 ; => $0A7E52 => $0A7B44 (NATIVE) 0A892A 84 00 READ.B $00 0A892C E3 4A 0B READ.F $4A0B 0A892F 30 0A D4 BSR.68K $0AD4 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8932 84 00 READ.B $00 0A8934 E3 4C 45 READ.F $4C45 0A8937 30 0A DC BSR.68K $0ADC ; => $0A7E5E => $0A7AF4 (NATIVE) 0A893A 84 01 READ.B $01 0A893C E1 01 61 READ.W $0161 0A893F 05 00 PUSH.10 $100 0A8941 03 24 DIV.L 0A8943 30 0A F4 BSR.68K $0AF4 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8946 84 01 READ.B $01 0A8948 E1 01 61 READ.W $0161 0A894B 30 0A FC BSR.68K $0AFC ; => $0A7E52 => $0A7B44 (NATIVE) 0A894E 84 01 READ.B $01 0A8950 E2 01 E5 READ.L $01E5 0A8953 03 2A LONG2FLOAT 0A8955 30 0A FA BSR.68K $0AFA ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8958 84 01 READ.B $01 0A895A E2 18 37 READ.L $1837 0A895D 03 2A LONG2FLOAT 0A895F 30 0B 04 BSR.68K $0B04 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8962 84 01 READ.B $01 0A8964 E2 08 3B READ.L $083B 0A8967 30 0B 18 BSR.68K $0B18 ; => $0A7E52 => $0A7B44 (NATIVE) 0A896A 32 04 ADDSP.B $04 0A896C 34 RETURN ; ---------------- End Function $0A8898 ---------------- ; ---------------- Begin 2144 Function $0A896E ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8975 31 02 SUBSP.B $02 0A8977 C0 55 62 READ.B $5562 0A897A 40 PUSH.6 $00 0A897B 2B NEQ.L 0A897C 30 0B 2D BSR.68K $0B2D ; => $0A7E52 => $0A7B44 (NATIVE) 0A897F C0 55 63 READ.B $5563 0A8982 30 0B 33 BSR.68K $0B33 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8985 40 PUSH.6 $00 0A8986 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8989 43 PUSH.6 $03 0A898A 38 00 0D BLS.B $000D ; => $0A899A 0A898D 84 00 READ.B $00 0A898F E0 47 6B READ.B $476B 0A8992 30 0B 43 BSR.68K $0B43 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8995 37 10 00 00 11 _23d2 $0000, $0011 0A899A 40 PUSH.6 $00 0A899B 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A899E 43 PUSH.6 $03 0A899F 38 00 10 BLS.B $0010 ; => $0A89B2 0A89A2 84 00 READ.B $00 0A89A4 E0 47 6B READ.B $476B 0A89A7 E0 40 09 READ.B $4009 0A89AA 30 0B 5B BSR.68K $0B5B ; => $0A7E52 => $0A7B44 (NATIVE) 0A89AD 37 10 00 00 14 _23d2 $0000, $0014 0A89B2 32 02 ADDSP.B $02 0A89B4 34 RETURN ; ---------------- End Function $0A896E ---------------- ; ---------------- Begin 2144 Function $0A89B6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A89BD 31 02 SUBSP.B $02 0A89BF C0 55 62 READ.B $5562 0A89C2 30 0B 73 BSR.68K $0B73 ; => $0A7E52 => $0A7B44 (NATIVE) 0A89C5 C0 55 63 READ.B $5563 0A89C8 30 0B 79 BSR.68K $0B79 ; => $0A7E52 => $0A7B44 (NATIVE) 0A89CB 40 PUSH.6 $00 0A89CC 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A89CF 49 PUSH.6 $09 0A89D0 38 00 0D BLS.B $000D ; => $0A89E0 0A89D3 84 00 READ.B $00 0A89D5 E0 47 6B READ.B $476B 0A89D8 30 0B 89 BSR.68K $0B89 ; => $0A7E52 => $0A7B44 (NATIVE) 0A89DB 37 10 00 00 11 _23d2 $0000, $0011 0A89E0 40 PUSH.6 $00 0A89E1 30 0B 92 BSR.68K $0B92 ; => $0A7E52 => $0A7B44 (NATIVE) 0A89E4 40 PUSH.6 $00 0A89E5 30 0B 96 BSR.68K $0B96 ; => $0A7E52 => $0A7B44 (NATIVE) 0A89E8 40 PUSH.6 $00 0A89E9 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A89EC 49 PUSH.6 $09 0A89ED 38 00 10 BLS.B $0010 ; => $0A8A00 0A89F0 84 00 READ.B $00 0A89F2 E0 47 6B READ.B $476B 0A89F5 E0 40 09 READ.B $4009 0A89F8 30 0B A9 BSR.68K $0BA9 ; => $0A7E52 => $0A7B44 (NATIVE) 0A89FB 37 10 00 00 14 _23d2 $0000, $0014 0A8A00 40 PUSH.6 $00 0A8A01 30 0B B2 BSR.68K $0BB2 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8A04 40 PUSH.6 $00 0A8A05 30 0B B6 BSR.68K $0BB6 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8A08 32 02 ADDSP.B $02 0A8A0A 34 RETURN ; ---------------- End Function $0A89B6 ---------------- ; ---------------- Begin 2144 Function $0A8A0C ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8A13 C0 2A 08 READ.B $2A08 0A8A16 30 0B C7 BSR.68K $0BC7 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8A19 C0 2A 09 READ.B $2A09 0A8A1C 30 0B CD BSR.68K $0BCD ; => $0A7E52 => $0A7B44 (NATIVE) 0A8A1F C0 29 FE READ.B $29FE 0A8A22 30 0B D3 BSR.68K $0BD3 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8A25 C0 29 FF READ.B $29FF 0A8A28 30 0B D9 BSR.68K $0BD9 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8A2B C0 2A 0A READ.B $2A0A 0A8A2E 30 0B DF BSR.68K $0BDF ; => $0A7E52 => $0A7B44 (NATIVE) 0A8A31 C0 2A 0B READ.B $2A0B 0A8A34 30 0B E5 BSR.68K $0BE5 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8A37 C0 2A 0C READ.B $2A0C 0A8A3A 30 0B EB BSR.68K $0BEB ; => $0A7E52 => $0A7B44 (NATIVE) 0A8A3D C0 2A 0D READ.B $2A0D 0A8A40 30 0B F1 BSR.68K $0BF1 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8A43 C3 2A 07 READ.F $2A07 0A8A46 30 0B EB BSR.68K $0BEB ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8A49 34 RETURN ; ---------------- End Function $0A8A0C ---------------- ; ---------------- Begin 2144 Function $0A8A4A ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8A51 31 02 SUBSP.B $02 0A8A53 41 PUSH.6 $01 0A8A54 30 0B F3 BSR.68K $0BF3 ; => $0A7E64 => $0A7B4A (NATIVE) 0A8A57 C0 50 BD READ.B $50BD 0A8A5A 2E NOT.L 0A8A5B 18 6B BRZ $06B ; => $0A8AC8 0A8A5D C0 51 41 READ.B $5141 0A8A60 94 00 WRITE.B $00 0A8A62 84 00 READ.B $00 0A8A64 E3 49 BB READ.F $49BB 0A8A67 84 00 READ.B $00 0A8A69 E3 4A 0B READ.F $4A0B 0A8A6C 3E PUSH.W $0000 0A8A6D 84 00 READ.B $00 0A8A6F E3 48 67 READ.F $4867 0A8A72 30 0A E3 BSR.68K $0AE3 ; => $0A7F92 0A8A75 84 00 READ.B $00 0A8A77 E3 49 07 READ.F $4907 0A8A7A 84 00 READ.B $00 0A8A7C E3 4A FB READ.F $4AFB 0A8A7F 84 00 READ.B $00 0A8A81 E3 4B 73 READ.F $4B73 0A8A84 3E PUSH.W $0000 0A8A85 30 0A F6 BSR.68K $0AF6 ; => $0A7F92 0A8A88 3E PUSH.W $0000 0A8A89 30 0C 2E BSR.68K $0C2E ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8A8C 84 00 READ.B $00 0A8A8E E3 4C 45 READ.F $4C45 0A8A91 30 0C 36 BSR.68K $0C36 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8A94 84 00 READ.B $00 0A8A96 E0 49 6B READ.B $496B 0A8A99 30 0C 4A BSR.68K $0C4A ; => $0A7E52 => $0A7B44 (NATIVE) 0A8A9C 84 00 READ.B $00 0A8A9E E0 49 11 READ.B $4911 0A8AA1 30 0C 52 BSR.68K $0C52 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8AA4 84 00 READ.B $00 0A8AA6 E0 4B 05 READ.B $4B05 0A8AA9 30 0C 5A BSR.68K $0C5A ; => $0A7E52 => $0A7B44 (NATIVE) 0A8AAC 84 00 READ.B $00 0A8AAE E0 4B 19 READ.B $4B19 0A8AB1 30 0C 62 BSR.68K $0C62 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8AB4 84 00 READ.B $00 0A8AB6 E0 4B 0F READ.B $4B0F 0A8AB9 30 0C 6A BSR.68K $0C6A ; => $0A7E52 => $0A7B44 (NATIVE) 0A8ABC 84 00 READ.B $00 0A8ABE E0 4B 7D READ.B $4B7D 0A8AC1 30 0C 72 BSR.68K $0C72 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8AC4 40 PUSH.6 $00 0A8AC5 30 0C 76 BSR.68K $0C76 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8AC8 32 02 ADDSP.B $02 0A8ACA 34 RETURN ; ---------------- End Function $0A8A4A ---------------- ; ---------------- Begin 2144 Function $0A8ACC ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8AD3 31 02 SUBSP.B $02 0A8AD5 C1 29 0F READ.W $290F 0A8AD8 59 PUSH.6 $19 0A8AD9 2F MOD.L 0A8ADA 18 07 BRZ $007 ; => $0A8AE3 0A8ADC 04 FF PUSH.10 $0FF 0A8ADE 30 0C 8F BSR.68K $0C8F ; => $0A7E52 => $0A7B44 (NATIVE) 0A8AE1 10 09 BR $009 ; => $0A8AEC 0A8AE3 C1 29 0F READ.W $290F 0A8AE6 59 PUSH.6 $19 0A8AE7 03 24 DIV.L 0A8AE9 30 0C 9A BSR.68K $0C9A ; => $0A7E52 => $0A7B44 (NATIVE) 0A8AEC C0 28 FE READ.B $28FE 0A8AEF 30 0C A0 BSR.68K $0CA0 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8AF2 C0 29 75 READ.B $2975 0A8AF5 30 0C A6 BSR.68K $0CA6 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8AF8 C0 28 E4 READ.B $28E4 0A8AFB 30 0C AC BSR.68K $0CAC ; => $0A7E52 => $0A7B44 (NATIVE) 0A8AFE C1 29 0F READ.W $290F 0A8B01 05 00 PUSH.10 $100 0A8B03 03 24 DIV.L 0A8B05 30 0C B6 BSR.68K $0CB6 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8B08 C1 29 0F READ.W $290F 0A8B0B 05 00 PUSH.10 $100 0A8B0D 2F MOD.L 0A8B0E 30 0C BF BSR.68K $0CBF ; => $0A7E52 => $0A7B44 (NATIVE) 0A8B11 40 PUSH.6 $00 0A8B12 30 0C C3 BSR.68K $0CC3 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8B15 40 PUSH.6 $00 0A8B16 30 0C C7 BSR.68K $0CC7 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8B19 C1 33 D9 READ.W $33D9 0A8B1C 05 00 PUSH.10 $100 0A8B1E 03 24 DIV.L 0A8B20 30 0C D1 BSR.68K $0CD1 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8B23 C1 33 D9 READ.W $33D9 0A8B26 05 00 PUSH.10 $100 0A8B28 2F MOD.L 0A8B29 30 0C DA BSR.68K $0CDA ; => $0A7E52 => $0A7B44 (NATIVE) 0A8B2C 32 02 ADDSP.B $02 0A8B2E 34 RETURN ; ---------------- End Function $0A8ACC ---------------- ; ---------------- Begin 2144 Function $0A8B30 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8B37 31 02 SUBSP.B $02 0A8B39 40 PUSH.6 $00 0A8B3A 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8B3D 42 PUSH.6 $02 0A8B3E 38 00 1E BLS.B $001E ; => $0A8B5F 0A8B41 84 00 READ.B $00 0A8B43 41 PUSH.6 $01 0A8B44 27 ADD.L 0A8B45 E3 34 2B READ.F $342B 0A8B48 84 00 READ.B $00 0A8B4A E3 47 C7 READ.F $47C7 0A8B4D 84 00 READ.B $00 0A8B4F E3 4A 0B READ.F $4A0B 0A8B52 84 00 READ.B $00 0A8B54 E3 46 B7 READ.F $46B7 0A8B57 30 0B C8 BSR.68K $0BC8 ; => $0A7F92 0A8B5A 37 10 00 00 22 _23d2 $0000, $0022 0A8B5F C3 01 17 READ.F $0117 0A8B62 30 0D 07 BSR.68K $0D07 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8B65 C1 54 37 READ.W $5437 0A8B68 05 00 PUSH.10 $100 0A8B6A 2F MOD.L 0A8B6B 30 0D 1C BSR.68K $0D1C ; => $0A7E52 => $0A7B44 (NATIVE) 0A8B6E C0 35 4C READ.B $354C 0A8B71 E0 40 09 READ.B $4009 0A8B74 30 0C 4B BSR.68K $0C4B ; => $0A7F2C 0A8B77 30 0D 28 BSR.68K $0D28 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8B7A C0 54 2C READ.B $542C 0A8B7D 18 07 BRZ $007 ; => $0A8B86 0A8B7F 04 FF PUSH.10 $0FF 0A8B81 30 0D 32 BSR.68K $0D32 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8B84 10 04 BR $004 ; => $0A8B8A 0A8B86 40 PUSH.6 $00 0A8B87 30 0D 38 BSR.68K $0D38 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8B8A 41 PUSH.6 $01 0A8B8B 30 0D 2A BSR.68K $0D2A ; => $0A7E64 => $0A7B4A (NATIVE) 0A8B8E C0 50 BD READ.B $50BD 0A8B91 2E NOT.L 0A8B92 C0 54 2C READ.B $542C 0A8B95 40 PUSH.6 $00 0A8B96 2A EQ.L 0A8B97 2C AND.L 0A8B98 18 0C BRZ $00C ; => $0A8BA6 0A8B9A C0 51 41 READ.B $5141 0A8B9D 18 03 BRZ $003 ; => $0A8BA2 0A8B9F 42 PUSH.6 $02 0A8BA0 10 01 BR $001 ; => $0A8BA3 0A8BA2 40 PUSH.6 $00 0A8BA3 D0 54 2C WRITE.B $542C 0A8BA6 32 02 ADDSP.B $02 0A8BA8 34 RETURN ; ---------------- End Function $0A8B30 ---------------- ; ---------------- Begin 2144 Function $0A8BAA ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8BB1 31 02 SUBSP.B $02 0A8BB3 40 PUSH.6 $00 0A8BB4 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8BB7 43 PUSH.6 $03 0A8BB8 38 00 28 BLS.B $0028 ; => $0A8BE3 0A8BBB 84 00 READ.B $00 0A8BBD 41 PUSH.6 $01 0A8BBE 27 ADD.L 0A8BBF E3 34 2B READ.F $342B 0A8BC2 84 00 READ.B $00 0A8BC4 41 PUSH.6 $01 0A8BC5 27 ADD.L 0A8BC6 E3 34 7B READ.F $347B 0A8BC9 84 00 READ.B $00 0A8BCB E3 47 C7 READ.F $47C7 0A8BCE 84 00 READ.B $00 0A8BD0 E3 4A 0B READ.F $4A0B 0A8BD3 30 0C 44 BSR.68K $0C44 ; => $0A7F92 0A8BD6 84 00 READ.B $00 0A8BD8 E3 46 B7 READ.F $46B7 0A8BDB 30 0D 80 BSR.68K $0D80 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8BDE 37 10 00 00 2C _23d2 $0000, $002C 0A8BE3 C3 01 17 READ.F $0117 0A8BE6 30 0D 8B BSR.68K $0D8B ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8BE9 C1 54 37 READ.W $5437 0A8BEC 05 00 PUSH.10 $100 0A8BEE 2F MOD.L 0A8BEF 30 0D A0 BSR.68K $0DA0 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8BF2 C0 35 4C READ.B $354C 0A8BF5 E0 40 09 READ.B $4009 0A8BF8 30 0C CF BSR.68K $0CCF ; => $0A7F2C 0A8BFB 30 0D AC BSR.68K $0DAC ; => $0A7E52 => $0A7B44 (NATIVE) 0A8BFE C0 54 2C READ.B $542C 0A8C01 18 07 BRZ $007 ; => $0A8C0A 0A8C03 04 FF PUSH.10 $0FF 0A8C05 30 0D B6 BSR.68K $0DB6 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8C08 10 04 BR $004 ; => $0A8C0E 0A8C0A 40 PUSH.6 $00 0A8C0B 30 0D BC BSR.68K $0DBC ; => $0A7E52 => $0A7B44 (NATIVE) 0A8C0E 41 PUSH.6 $01 0A8C0F 30 0D AE BSR.68K $0DAE ; => $0A7E64 => $0A7B4A (NATIVE) 0A8C12 C0 50 BD READ.B $50BD 0A8C15 2E NOT.L 0A8C16 C0 54 2C READ.B $542C 0A8C19 40 PUSH.6 $00 0A8C1A 2A EQ.L 0A8C1B 2C AND.L 0A8C1C 18 0C BRZ $00C ; => $0A8C2A 0A8C1E C0 51 41 READ.B $5141 0A8C21 18 03 BRZ $003 ; => $0A8C26 0A8C23 42 PUSH.6 $02 0A8C24 10 01 BR $001 ; => $0A8C27 0A8C26 40 PUSH.6 $00 0A8C27 D0 54 2C WRITE.B $542C 0A8C2A 32 02 ADDSP.B $02 0A8C2C 34 RETURN ; ---------------- End Function $0A8BAA ---------------- ; ---------------- Begin 2144 Function $0A8C2E ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8C35 31 02 SUBSP.B $02 0A8C37 41 PUSH.6 $01 0A8C38 30 0D D7 BSR.68K $0DD7 ; => $0A7E64 => $0A7B4A (NATIVE) 0A8C3B C0 50 BD READ.B $50BD 0A8C3E 18 02 BRZ $002 ; => $0A8C42 0A8C40 10 67 BR $067 ; => $0A8CA9 0A8C42 C0 51 41 READ.B $5141 0A8C45 94 00 WRITE.B $00 0A8C47 84 00 READ.B $00 0A8C49 E3 34 2B READ.F $342B 0A8C4C 84 00 READ.B $00 0A8C4E E3 34 7B READ.F $347B 0A8C51 84 00 READ.B $00 0A8C53 E3 34 F3 READ.F $34F3 0A8C56 84 00 READ.B $00 0A8C58 E3 35 43 READ.F $3543 0A8C5B 30 0C CC BSR.68K $0CCC ; => $0A7F92 0A8C5E 3E PUSH.W $0000 0A8C5F 30 0E 04 BSR.68K $0E04 ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8C62 C3 01 17 READ.F $0117 0A8C65 30 0E 0A BSR.68K $0E0A ; => $0A7E5E => $0A7AF4 (NATIVE) 0A8C68 C1 54 37 READ.W $5437 0A8C6B 05 00 PUSH.10 $100 0A8C6D 2F MOD.L 0A8C6E 30 0E 1F BSR.68K $0E1F ; => $0A7E52 => $0A7B44 (NATIVE) 0A8C71 C0 35 4C READ.B $354C 0A8C74 E0 40 09 READ.B $4009 0A8C77 30 0D 4E BSR.68K $0D4E ; => $0A7F2C 0A8C7A 30 0E 2B BSR.68K $0E2B ; => $0A7E52 => $0A7B44 (NATIVE) 0A8C7D C0 54 2C READ.B $542C 0A8C80 18 07 BRZ $007 ; => $0A8C89 0A8C82 04 FF PUSH.10 $0FF 0A8C84 30 0E 35 BSR.68K $0E35 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8C87 10 04 BR $004 ; => $0A8C8D 0A8C89 40 PUSH.6 $00 0A8C8A 30 0E 3B BSR.68K $0E3B ; => $0A7E52 => $0A7B44 (NATIVE) 0A8C8D 41 PUSH.6 $01 0A8C8E 30 0E 2D BSR.68K $0E2D ; => $0A7E64 => $0A7B4A (NATIVE) 0A8C91 C0 50 BD READ.B $50BD 0A8C94 2E NOT.L 0A8C95 C0 54 2C READ.B $542C 0A8C98 40 PUSH.6 $00 0A8C99 2A EQ.L 0A8C9A 2C AND.L 0A8C9B 18 0C BRZ $00C ; => $0A8CA9 0A8C9D C0 51 41 READ.B $5141 0A8CA0 18 03 BRZ $003 ; => $0A8CA5 0A8CA2 42 PUSH.6 $02 0A8CA3 10 01 BR $001 ; => $0A8CA6 0A8CA5 40 PUSH.6 $00 0A8CA6 D0 54 2C WRITE.B $542C 0A8CA9 32 02 ADDSP.B $02 0A8CAB 34 RETURN ; ---------------- End Function $0A8C2E ---------------- ; ---------------- Begin 2144 Function $0A8CAC ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8CB3 C0 29 36 READ.B $2936 0A8CB6 30 0E 67 BSR.68K $0E67 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8CB9 C0 29 37 READ.B $2937 0A8CBC 30 0E 6D BSR.68K $0E6D ; => $0A7E52 => $0A7B44 (NATIVE) 0A8CBF 34 RETURN ; ---------------- End Function $0A8CAC ---------------- ; ---------------- Begin 2144 Function $0A8CC0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8CC7 31 02 SUBSP.B $02 0A8CC9 51 PUSH.6 $11 0A8CCA 49 PUSH.6 $09 0A8CCB 27 ADD.L 0A8CCC 30 0E 7D BSR.68K $0E7D ; => $0A7E52 => $0A7B44 (NATIVE) 0A8CCF 49 PUSH.6 $09 0A8CD0 30 0E 81 BSR.68K $0E81 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8CD3 C0 29 9B READ.B $299B 0A8CD6 30 0E 87 BSR.68K $0E87 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8CD9 C0 29 9A READ.B $299A 0A8CDC 30 0E 8D BSR.68K $0E8D ; => $0A7E52 => $0A7B44 (NATIVE) 0A8CDF C0 29 8F READ.B $298F 0A8CE2 30 0E 93 BSR.68K $0E93 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8CE5 C0 29 9C READ.B $299C 0A8CE8 30 0E 99 BSR.68K $0E99 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8CEB C0 29 8E READ.B $298E 0A8CEE 30 0E 9F BSR.68K $0E9F ; => $0A7E52 => $0A7B44 (NATIVE) 0A8CF1 C0 29 8C READ.B $298C 0A8CF4 30 0E A5 BSR.68K $0EA5 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8CF7 C0 29 93 READ.B $2993 0A8CFA 30 0E AB BSR.68K $0EAB ; => $0A7E52 => $0A7B44 (NATIVE) 0A8CFD C0 29 9D READ.B $299D 0A8D00 30 0E B1 BSR.68K $0EB1 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8D03 C0 29 92 READ.B $2992 0A8D06 18 03 BRZ $003 ; => $0A8D0B 0A8D08 41 PUSH.6 $01 0A8D09 10 01 BR $001 ; => $0A8D0C 0A8D0B 40 PUSH.6 $00 0A8D0C 30 0E BD BSR.68K $0EBD ; => $0A7E52 => $0A7B44 (NATIVE) 0A8D0F C0 29 8B READ.B $298B 0A8D12 30 0E C3 BSR.68K $0EC3 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8D15 C0 4E 69 READ.B $4E69 0A8D18 30 0E C9 BSR.68K $0EC9 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8D1B C0 29 58 READ.B $2958 0A8D1E 30 0E CF BSR.68K $0ECF ; => $0A7E52 => $0A7B44 (NATIVE) 0A8D21 C0 29 91 READ.B $2991 0A8D24 30 0E D5 BSR.68K $0ED5 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8D27 C0 54 2C READ.B $542C 0A8D2A 30 0E DB BSR.68K $0EDB ; => $0A7E52 => $0A7B44 (NATIVE) 0A8D2D C0 55 A2 READ.B $55A2 0A8D30 30 0E E1 BSR.68K $0EE1 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8D33 40 PUSH.6 $00 0A8D34 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8D37 49 PUSH.6 $09 0A8D38 38 00 0D BLS.B $000D ; => $0A8D48 0A8D3B 84 00 READ.B $00 0A8D3D E0 29 AB READ.B $29AB 0A8D40 30 0E F1 BSR.68K $0EF1 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8D43 37 10 00 00 11 _23d2 $0000, $0011 0A8D48 32 02 ADDSP.B $02 0A8D4A 34 RETURN ; ---------------- End Function $0A8CC0 ---------------- ; ---------------- Begin 2144 Function $0A8D4C ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8D53 31 02 SUBSP.B $02 0A8D55 40 PUSH.6 $00 0A8D56 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8D59 55 PUSH.6 $15 0A8D5A 38 00 0D BLS.B $000D ; => $0A8D6A 0A8D5D 84 00 READ.B $00 0A8D5F E0 28 A7 READ.B $28A7 0A8D62 30 0F 13 BSR.68K $0F13 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8D65 37 10 00 00 11 _23d2 $0000, $0011 0A8D6A 40 PUSH.6 $00 0A8D6B 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8D6E 49 PUSH.6 $09 0A8D6F 38 00 09 BLS.B $0009 ; => $0A8D7B 0A8D72 40 PUSH.6 $00 0A8D73 30 0F 24 BSR.68K $0F24 ; => $0A7E52 => $0A7B44 (NATIVE) 0A8D76 37 10 00 00 0D _23d2 $0000, $000D 0A8D7B 32 02 ADDSP.B $02 0A8D7D 34 RETURN ; ---------------- End Function $0A8D4C ---------------- ; ---------------- Begin 2164 Function $0A8D9C ---------------- ; P0 = $000C; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $B; D1 = $000008 ; called from $0A8E2E:$0A8E69 ; called from $0A8FA8:$0A9018 ; called from $0A8FA8:$0A9044 ; called from $0A8FA8:$0A9066 ; called from $0A907A:$0A90DE ; called from $0A907A:$0A910A ; called from $0A907A:$0A912C ; called from $0A9140:$0A91BB ; called from $0A9140:$0A91E7 ; called from $0A9140:$0A9209 ; called from $0A921E:$0A9265 ; called from $0A921E:$0A9291 ; called from $0A921E:$0A92B3 ; called from $0A9358:$0A9366 ; called from $0A9358:$0A937B ; called from $0A9358:$0A9391 ; called from $0A9358:$0A93C5 ; called from $0A9358:$0A93DA ; called from $0A9358:$0A93F0 ; called from $0A9358:$0A942D ; called from $0A9358:$0A9441 ; addr bytes opcode operands comment 0A8DA5 86 13 READ.L $13 0A8DA7 4A PUSH.6 $0A 0A8DA8 86 0F READ.L $0F 0A8DAA 29 MUL.L 0A8DAB 27 ADD.L 0A8DAC 04 64 PUSH.10 $064 0A8DAE 86 0B READ.L $0B 0A8DB0 29 MUL.L 0A8DB1 27 ADD.L 0A8DB2 03 2A LONG2FLOAT 0A8DB4 97 07 WRITE.F $07 0A8DB6 32 0C ADDSP.B $0C 0A8DB8 34 RETURN ; ---------------- End Function $0A8D9C ---------------- ; ---------------- Begin 2164 Function $0A8DBA ---------------- ; P0 = $0004; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000008 ; called from $0A7516:$0A753B ; called from $0A7516:$0A7544 ; called from $0A7516:$0A754D ; called from $0A7770:$0A77AE ; called from $0A8DFA:$0A8E20 ; called from $0A9688:$0A969C ; addr bytes opcode operands comment 0A8DC3 31 02 SUBSP.B $02 0A8DC5 40 PUSH.6 $00 0A8DC6 36 10 0C _2362 $000C ; A0 = $004000; (A0) = A6 + $0 0A8DC9 47 PUSH.6 $07 0A8DCA 38 00 11 BLS.B $0011 ; => $0A8DDE 0A8DCD 84 0C READ.B $0C 0A8DCF 86 0B READ.L $0B 0A8DD1 84 0C READ.B $0C 0A8DD3 27 ADD.L 0A8DD4 E0 51 41 READ.B $5141 0A8DD7 B4 07 WRITE.B $07 0A8DD9 37 10 0C 00 15 _23d2 $000C, $0015 0A8DDE 32 06 ADDSP.B $06 0A8DE0 34 RETURN ; ---------------- End Function $0A8DBA ---------------- ; ---------------- Begin 2144 Function $0A8DE2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8DE9 41 PUSH.6 $01 0A8DEA 30 00 6F BSR.68K $006F ; => $0A8D7E => $0A7B4A (NATIVE) 0A8DED C0 50 BD READ.B $50BD 0A8DF0 2E NOT.L 0A8DF1 18 06 BRZ $006 ; => $0A8DF9 0A8DF3 C0 51 41 READ.B $5141 0A8DF6 D0 29 58 WRITE.B $2958 0A8DF9 34 RETURN ; ---------------- End Function $0A8DE2 ---------------- ; ---------------- Begin 2144 Function $0A8DFA ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8E01 31 02 SUBSP.B $02 0A8E03 04 FF PUSH.10 $0FF 0A8E05 D0 50 C8 WRITE.B $50C8 0A8E08 58 PUSH.6 $18 0A8E09 30 00 8E BSR.68K $008E ; => $0A8D7E => $0A7B4A (NATIVE) 0A8E0C C0 50 BD READ.B $50BD 0A8E0F 2E NOT.L 0A8E10 18 19 BRZ $019 ; => $0A8E2B 0A8E12 40 PUSH.6 $00 0A8E13 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8E16 42 PUSH.6 $02 0A8E17 38 00 11 BLS.B $0011 ; => $0A8E2B 0A8E1A 84 00 READ.B $00 0A8E1C 48 PUSH.6 $08 0A8E1D 84 00 READ.B $00 0A8E1F 29 MUL.L 0A8E20 30 00 69 BSR.68K $0069 ; => $0A8DBA 0A8E23 F3 50 E1 WRITE.F $50E1 0A8E26 37 10 00 00 15 _23d2 $0000, $0015 0A8E2B 32 02 ADDSP.B $02 0A8E2D 34 RETURN ; ---------------- End Function $0A8DFA ---------------- ; ---------------- Begin 2144 Function $0A8E2E ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8E35 31 0A SUBSP.B $0A 0A8E37 04 FF PUSH.10 $0FF 0A8E39 D0 50 C8 WRITE.B $50C8 0A8E3C 4C PUSH.6 $0C 0A8E3D 30 00 C2 BSR.68K $00C2 ; => $0A8D7E => $0A7B4A (NATIVE) 0A8E40 C0 50 BD READ.B $50BD 0A8E43 2E NOT.L 0A8E44 18 56 BRZ $056 ; => $0A8E9C 0A8E46 40 PUSH.6 $00 0A8E47 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8E4A 42 PUSH.6 $02 0A8E4B 38 00 4E BLS.B $004E ; => $0A8E9C 0A8E4E 44 PUSH.6 $04 0A8E4F 84 00 READ.B $00 0A8E51 29 MUL.L 0A8E52 94 01 WRITE.B $01 0A8E54 84 01 READ.B $01 0A8E56 41 PUSH.6 $01 0A8E57 27 ADD.L 0A8E58 E0 51 41 READ.B $5141 0A8E5B 84 01 READ.B $01 0A8E5D 42 PUSH.6 $02 0A8E5E 27 ADD.L 0A8E5F E0 51 41 READ.B $5141 0A8E62 84 01 READ.B $01 0A8E64 43 PUSH.6 $03 0A8E65 27 ADD.L 0A8E66 E0 51 41 READ.B $5141 0A8E69 30 00 D0 BSR.68K $00D0 ; => $0A8D9C 0A8E6C 97 09 WRITE.F $09 0A8E6E 84 01 READ.B $01 0A8E70 E0 51 41 READ.B $5141 0A8E73 18 06 BRZ $006 ; => $0A8E7B 0A8E75 87 09 READ.F $09 0A8E77 03 20 NEG.W 0A8E79 97 09 WRITE.F $09 0A8E7B 84 00 READ.B $00 0A8E7D 42 PUSH.6 $02 0A8E7E 03 26 GT.L 0A8E80 18 0E BRZ $00E ; => $0A8E90 0A8E82 3B 3E 45 79 8E E2 30 8C 3A PUSH.F $3E45798EE2308C3A ; float = 0.000000 0A8E8B 87 09 READ.F $09 0A8E8D 22 MUL.F 0A8E8E 97 09 WRITE.F $09 0A8E90 84 00 READ.B $00 0A8E92 87 09 READ.F $09 0A8E94 F3 50 E1 WRITE.F $50E1 0A8E97 37 10 00 00 52 _23d2 $0000, $0052 0A8E9C 32 0A ADDSP.B $0A 0A8E9E 34 RETURN ; ---------------- End Function $0A8E2E ---------------- ; ---------------- Begin 2144 Function $0A8EA0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8EA7 31 0A SUBSP.B $0A 0A8EA9 04 FF PUSH.10 $0FF 0A8EAB D0 50 C8 WRITE.B $50C8 0A8EAE 43 PUSH.6 $03 0A8EAF 30 01 34 BSR.68K $0134 ; => $0A8D7E => $0A7B4A (NATIVE) 0A8EB2 C0 50 BD READ.B $50BD 0A8EB5 2E NOT.L 0A8EB6 18 4E BRZ $04E ; => $0A8F06 0A8EB8 40 PUSH.6 $00 0A8EB9 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8EBC 42 PUSH.6 $02 0A8EBD 38 00 46 BLS.B $0046 ; => $0A8F06 0A8EC0 84 00 READ.B $00 0A8EC2 E0 51 41 READ.B $5141 0A8EC5 03 2A LONG2FLOAT 0A8EC7 97 09 WRITE.F $09 0A8EC9 87 09 READ.F $09 0A8ECB 3B 40 5F C0 00 00 00 00 00 PUSH.F $405FC00000000000 ; float = 127.000000 0A8ED4 24 GT.F 0A8ED5 18 0E BRZ $00E ; => $0A8EE5 0A8ED7 87 09 READ.F $09 0A8ED9 3B 40 70 00 00 00 00 00 00 PUSH.F $4070000000000000 ; float = 256.000000 0A8EE2 21 SUB.F 0A8EE3 97 09 WRITE.F $09 0A8EE5 84 00 READ.B $00 0A8EE7 42 PUSH.6 $02 0A8EE8 03 26 GT.L 0A8EEA 18 0E BRZ $00E ; => $0A8EFA 0A8EEC 87 09 READ.F $09 0A8EEE 3B 41 74 99 70 00 00 00 00 PUSH.F $4174997000000000 ; float = 21600000.000000 0A8EF7 23 DIV.F 0A8EF8 97 09 WRITE.F $09 0A8EFA 84 00 READ.B $00 0A8EFC 87 09 READ.F $09 0A8EFE F3 50 E1 WRITE.F $50E1 0A8F01 37 10 00 00 4A _23d2 $0000, $004A 0A8F06 32 0A ADDSP.B $0A 0A8F08 34 RETURN ; ---------------- End Function $0A8EA0 ---------------- ; ---------------- Begin 2144 Function $0A8F0A ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8F11 45 PUSH.6 $05 0A8F12 30 01 97 BSR.68K $0197 ; => $0A8D7E => $0A7B4A (NATIVE) 0A8F15 C0 50 BD READ.B $50BD 0A8F18 2E NOT.L 0A8F19 18 1E BRZ $01E ; => $0A8F39 0A8F1B C0 51 41 READ.B $5141 0A8F1E D0 56 5E WRITE.B $565E 0A8F21 C0 51 40 READ.B $5140 0A8F24 D0 47 11 WRITE.B $4711 0A8F27 C0 51 3F READ.B $513F 0A8F2A D0 47 10 WRITE.B $4710 0A8F2D C0 51 3E READ.B $513E 0A8F30 D0 47 0F WRITE.B $470F 0A8F33 C0 51 3D READ.B $513D 0A8F36 D0 47 0E WRITE.B $470E 0A8F39 34 RETURN ; ---------------- End Function $0A8F0A ---------------- ; ---------------- Begin 2144 Function $0A8F3A ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8F41 46 PUSH.6 $06 0A8F42 30 01 C7 BSR.68K $01C7 ; => $0A8D7E => $0A7B4A (NATIVE) 0A8F45 C0 50 BD READ.B $50BD 0A8F48 2E NOT.L 0A8F49 18 24 BRZ $024 ; => $0A8F6F 0A8F4B C0 51 41 READ.B $5141 0A8F4E D0 56 5E WRITE.B $565E 0A8F51 C0 51 40 READ.B $5140 0A8F54 D0 47 11 WRITE.B $4711 0A8F57 C0 51 3F READ.B $513F 0A8F5A D0 47 10 WRITE.B $4710 0A8F5D C0 51 3E READ.B $513E 0A8F60 D0 47 0F WRITE.B $470F 0A8F63 C0 51 3D READ.B $513D 0A8F66 D0 47 0E WRITE.B $470E 0A8F69 C0 51 3C READ.B $513C 0A8F6C D0 47 0D WRITE.B $470D 0A8F6F 34 RETURN ; ---------------- End Function $0A8F3A ---------------- ; ---------------- Begin 2144 Function $0A8F70 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8F77 31 02 SUBSP.B $02 0A8F79 4D PUSH.6 $0D 0A8F7A 30 01 FF BSR.68K $01FF ; => $0A8D7E => $0A7B4A (NATIVE) 0A8F7D C0 50 BD READ.B $50BD 0A8F80 2E NOT.L 0A8F81 18 21 BRZ $021 ; => $0A8FA4 0A8F83 C0 51 41 READ.B $5141 0A8F86 D0 56 5E WRITE.B $565E 0A8F89 40 PUSH.6 $00 0A8F8A 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8F8D C0 29 9A READ.B $299A 0A8F90 38 00 11 BLS.B $0011 ; => $0A8FA4 0A8F93 84 00 READ.B $00 0A8F95 84 00 READ.B $00 0A8F97 41 PUSH.6 $01 0A8F98 27 ADD.L 0A8F99 E0 51 41 READ.B $5141 0A8F9C F0 47 11 WRITE.B $4711 0A8F9F 37 10 00 00 17 _23d2 $0000, $0017 0A8FA4 32 02 ADDSP.B $02 0A8FA6 34 RETURN ; ---------------- End Function $0A8F70 ---------------- ; ---------------- Begin 2144 Function $0A8FA8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A8FAF 31 0A SUBSP.B $0A 0A8FB1 52 PUSH.6 $12 0A8FB2 30 02 37 BSR.68K $0237 ; => $0A8D7E => $0A7B4A (NATIVE) 0A8FB5 C0 50 BD READ.B $50BD 0A8FB8 2E NOT.L 0A8FB9 18 BC BRZ $0BC ; => $0A9077 0A8FBB C0 51 41 READ.B $5141 0A8FBE D0 28 FF WRITE.B $28FF 0A8FC1 C0 51 40 READ.B $5140 0A8FC4 40 PUSH.6 $00 0A8FC5 2A EQ.L 0A8FC6 18 07 BRZ $007 ; => $0A8FCF 0A8FC8 04 FF PUSH.10 $0FF 0A8FCA D0 35 7C WRITE.B $357C 0A8FCD 10 0C BR $00C ; => $0A8FDB 0A8FCF C0 51 40 READ.B $5140 0A8FD2 04 FF PUSH.10 $0FF 0A8FD4 2A EQ.L 0A8FD5 18 04 BRZ $004 ; => $0A8FDB 0A8FD7 40 PUSH.6 $00 0A8FD8 D0 35 7C WRITE.B $357C 0A8FDB 43 PUSH.6 $03 0A8FDC 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A8FDF 40 PUSH.6 $00 0A8FE0 3A 00 14 BGT.B $0014 ; => $0A8FF7 0A8FE3 84 00 READ.B $00 0A8FE5 45 PUSH.6 $05 0A8FE6 84 00 READ.B $00 0A8FE8 28 SUB.L 0A8FE9 E0 51 41 READ.B $5141 0A8FEC 30 02 5F BSR.68K $025F ; => $0A8D90 => $0A7EDC 0A8FEF F0 29 0B WRITE.B $290B 0A8FF2 39 10 00 00 18 _23fc $1000, $0018 0A8FF7 C0 51 3B READ.B $513B 0A8FFA D0 29 0D WRITE.B $290D 0A8FFD C0 51 3A READ.B $513A 0A9000 D0 29 0C WRITE.B $290C 0A9003 C0 29 0D READ.B $290D 0A9006 41 PUSH.6 $01 0A9007 2A EQ.L 0A9008 18 05 BRZ $005 ; => $0A900F 0A900A 04 FF PUSH.10 $0FF 0A900C D0 35 7C WRITE.B $357C 0A900F C0 51 39 READ.B $5139 0A9012 C0 51 38 READ.B $5138 0A9015 C0 51 37 READ.B $5137 0A9018 30 02 7F BSR.68K $027F ; => $0A8D9C 0A901B 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A9024 23 DIV.F 0A9025 97 09 WRITE.F $09 0A9027 87 09 READ.F $09 0A9029 3B 40 2E 00 00 00 00 00 00 PUSH.F $402E000000000000 ; float = 15.000000 0A9032 03 22 LTE.F 0A9034 18 05 BRZ $005 ; => $0A903B 0A9036 87 09 READ.F $09 0A9038 D3 28 F5 WRITE.F $28F5 0A903B C0 51 36 READ.B $5136 0A903E C0 51 35 READ.B $5135 0A9041 C0 51 34 READ.B $5134 0A9044 30 02 AB BSR.68K $02AB ; => $0A8D9C 0A9047 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A9050 23 DIV.F 0A9051 D3 28 ED WRITE.F $28ED 0A9054 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A905D C0 51 33 READ.B $5133 0A9060 C0 51 32 READ.B $5132 0A9063 C0 51 31 READ.B $5131 0A9066 30 02 CD BSR.68K $02CD ; => $0A8D9C 0A9069 22 MUL.F 0A906A C0 51 30 READ.B $5130 0A906D 03 2A LONG2FLOAT 0A906F 20 ADD.F 0A9070 D3 28 FD WRITE.F $28FD 0A9073 4C PUSH.6 $0C 0A9074 D0 55 70 WRITE.B $5570 0A9077 32 0A ADDSP.B $0A 0A9079 34 RETURN ; ---------------- End Function $0A8FA8 ---------------- ; ---------------- Begin 2144 Function $0A907A ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A9081 31 0A SUBSP.B $0A 0A9083 53 PUSH.6 $13 0A9084 30 03 09 BSR.68K $0309 ; => $0A8D7E => $0A7B4A (NATIVE) 0A9087 C0 50 BD READ.B $50BD 0A908A 2E NOT.L 0A908B 18 B0 BRZ $0B0 ; => $0A913D 0A908D C0 51 41 READ.B $5141 0A9090 D0 28 FF WRITE.B $28FF 0A9093 C0 51 40 READ.B $5140 0A9096 40 PUSH.6 $00 0A9097 2A EQ.L 0A9098 18 07 BRZ $007 ; => $0A90A1 0A909A 04 FF PUSH.10 $0FF 0A909C D0 35 7C WRITE.B $357C 0A909F 10 0C BR $00C ; => $0A90AD 0A90A1 C0 51 40 READ.B $5140 0A90A4 04 FF PUSH.10 $0FF 0A90A6 2A EQ.L 0A90A7 18 04 BRZ $004 ; => $0A90AD 0A90A9 40 PUSH.6 $00 0A90AA D0 35 7C WRITE.B $357C 0A90AD 44 PUSH.6 $04 0A90AE 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A90B1 40 PUSH.6 $00 0A90B2 3A 00 14 BGT.B $0014 ; => $0A90C9 0A90B5 84 00 READ.B $00 0A90B7 46 PUSH.6 $06 0A90B8 84 00 READ.B $00 0A90BA 28 SUB.L 0A90BB E0 51 41 READ.B $5141 0A90BE 30 03 31 BSR.68K $0331 ; => $0A8D90 => $0A7EDC 0A90C1 F0 29 0B WRITE.B $290B 0A90C4 39 10 00 00 18 _23fc $1000, $0018 0A90C9 C0 51 3A READ.B $513A 0A90CC D0 29 0D WRITE.B $290D 0A90CF C0 51 39 READ.B $5139 0A90D2 D0 29 0C WRITE.B $290C 0A90D5 C0 51 38 READ.B $5138 0A90D8 C0 51 37 READ.B $5137 0A90DB C0 51 36 READ.B $5136 0A90DE 30 03 45 BSR.68K $0345 ; => $0A8D9C 0A90E1 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A90EA 23 DIV.F 0A90EB 97 09 WRITE.F $09 0A90ED 87 09 READ.F $09 0A90EF 3B 40 2E 00 00 00 00 00 00 PUSH.F $402E000000000000 ; float = 15.000000 0A90F8 03 22 LTE.F 0A90FA 18 05 BRZ $005 ; => $0A9101 0A90FC 87 09 READ.F $09 0A90FE D3 28 F5 WRITE.F $28F5 0A9101 C0 51 35 READ.B $5135 0A9104 C0 51 34 READ.B $5134 0A9107 C0 51 33 READ.B $5133 0A910A 30 03 71 BSR.68K $0371 ; => $0A8D9C 0A910D 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A9116 23 DIV.F 0A9117 D3 28 ED WRITE.F $28ED 0A911A 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A9123 C0 51 32 READ.B $5132 0A9126 C0 51 31 READ.B $5131 0A9129 C0 51 30 READ.B $5130 0A912C 30 03 93 BSR.68K $0393 ; => $0A8D9C 0A912F 22 MUL.F 0A9130 C0 51 2F READ.B $512F 0A9133 03 2A LONG2FLOAT 0A9135 20 ADD.F 0A9136 D3 28 FD WRITE.F $28FD 0A9139 4C PUSH.6 $0C 0A913A D0 55 70 WRITE.B $5570 0A913D 32 0A ADDSP.B $0A 0A913F 34 RETURN ; ---------------- End Function $0A907A ---------------- ; ---------------- Begin 2144 Function $0A9140 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A9147 31 0A SUBSP.B $0A 0A9149 58 PUSH.6 $18 0A914A 30 03 CF BSR.68K $03CF ; => $0A8D7E => $0A7B4A (NATIVE) 0A914D C0 50 BD READ.B $50BD 0A9150 2E NOT.L 0A9151 18 C7 BRZ $0C7 ; => $0A921A 0A9153 C0 51 41 READ.B $5141 0A9156 D0 28 FF WRITE.B $28FF 0A9159 C0 51 40 READ.B $5140 0A915C 40 PUSH.6 $00 0A915D 2A EQ.L 0A915E 18 07 BRZ $007 ; => $0A9167 0A9160 04 FF PUSH.10 $0FF 0A9162 D0 35 7C WRITE.B $357C 0A9165 10 0C BR $00C ; => $0A9173 0A9167 C0 51 40 READ.B $5140 0A916A 04 FF PUSH.10 $0FF 0A916C 2A EQ.L 0A916D 18 04 BRZ $004 ; => $0A9173 0A916F 40 PUSH.6 $00 0A9170 D0 35 7C WRITE.B $357C 0A9173 40 PUSH.6 $00 0A9174 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A9177 49 PUSH.6 $09 0A9178 38 00 14 BLS.B $0014 ; => $0A918F 0A917B 84 00 READ.B $00 0A917D 84 00 READ.B $00 0A917F 42 PUSH.6 $02 0A9180 27 ADD.L 0A9181 E0 51 41 READ.B $5141 0A9184 30 03 F7 BSR.68K $03F7 ; => $0A8D90 => $0A7EDC 0A9187 F0 29 0B WRITE.B $290B 0A918A 37 10 00 00 18 _23d2 $0000, $0018 0A918F C0 51 35 READ.B $5135 0A9192 D0 29 0D WRITE.B $290D 0A9195 C0 51 34 READ.B $5134 0A9198 04 63 PUSH.10 $063 0A919A 2A EQ.L 0A919B 18 0B BRZ $00B ; => $0A91A8 0A919D 44 PUSH.6 $04 0A919E D0 29 0C WRITE.B $290C 0A91A1 04 FF PUSH.10 $0FF 0A91A3 D0 4E 71 WRITE.B $4E71 0A91A6 10 0A BR $00A ; => $0A91B2 0A91A8 C0 51 34 READ.B $5134 0A91AB D0 29 0C WRITE.B $290C 0A91AE 40 PUSH.6 $00 0A91AF D0 4E 71 WRITE.B $4E71 0A91B2 C0 51 33 READ.B $5133 0A91B5 C0 51 32 READ.B $5132 0A91B8 C0 51 31 READ.B $5131 0A91BB 30 04 22 BSR.68K $0422 ; => $0A8D9C 0A91BE 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A91C7 23 DIV.F 0A91C8 97 09 WRITE.F $09 0A91CA 87 09 READ.F $09 0A91CC 3B 40 2E 00 00 00 00 00 00 PUSH.F $402E000000000000 ; float = 15.000000 0A91D5 03 22 LTE.F 0A91D7 18 05 BRZ $005 ; => $0A91DE 0A91D9 87 09 READ.F $09 0A91DB D3 28 F5 WRITE.F $28F5 0A91DE C0 51 30 READ.B $5130 0A91E1 C0 51 2F READ.B $512F 0A91E4 C0 51 2E READ.B $512E 0A91E7 30 04 4E BSR.68K $044E ; => $0A8D9C 0A91EA 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A91F3 23 DIV.F 0A91F4 D3 28 ED WRITE.F $28ED 0A91F7 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A9200 C0 51 2D READ.B $512D 0A9203 C0 51 2C READ.B $512C 0A9206 C0 51 2B READ.B $512B 0A9209 30 04 70 BSR.68K $0470 ; => $0A8D9C 0A920C 22 MUL.F 0A920D C0 51 2A READ.B $512A 0A9210 03 2A LONG2FLOAT 0A9212 20 ADD.F 0A9213 D3 28 FD WRITE.F $28FD 0A9216 4C PUSH.6 $0C 0A9217 D0 55 70 WRITE.B $5570 0A921A 32 0A ADDSP.B $0A 0A921C 34 RETURN ; ---------------- End Function $0A9140 ---------------- ; ---------------- Begin 2144 Function $0A921E ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A9225 31 0A SUBSP.B $0A 0A9227 4D PUSH.6 $0D 0A9228 30 04 AD BSR.68K $04AD ; => $0A8D7E => $0A7B4A (NATIVE) 0A922B C0 50 BD READ.B $50BD 0A922E 2E NOT.L 0A922F 18 93 BRZ $093 ; => $0A92C4 0A9231 C0 51 41 READ.B $5141 0A9234 40 PUSH.6 $00 0A9235 2B NEQ.L 0A9236 D0 35 7C WRITE.B $357C 0A9239 C0 51 40 READ.B $5140 0A923C D0 29 0D WRITE.B $290D 0A923F C0 51 3F READ.B $513F 0A9242 04 63 PUSH.10 $063 0A9244 2A EQ.L 0A9245 18 0B BRZ $00B ; => $0A9252 0A9247 44 PUSH.6 $04 0A9248 D0 29 0C WRITE.B $290C 0A924B 04 FF PUSH.10 $0FF 0A924D D0 4E 71 WRITE.B $4E71 0A9250 10 0A BR $00A ; => $0A925C 0A9252 C0 51 3F READ.B $513F 0A9255 D0 29 0C WRITE.B $290C 0A9258 40 PUSH.6 $00 0A9259 D0 4E 71 WRITE.B $4E71 0A925C C0 51 3E READ.B $513E 0A925F C0 51 3D READ.B $513D 0A9262 C0 51 3C READ.B $513C 0A9265 30 04 CC BSR.68K $04CC ; => $0A8D9C 0A9268 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A9271 23 DIV.F 0A9272 97 09 WRITE.F $09 0A9274 87 09 READ.F $09 0A9276 3B 40 2E 00 00 00 00 00 00 PUSH.F $402E000000000000 ; float = 15.000000 0A927F 03 22 LTE.F 0A9281 18 05 BRZ $005 ; => $0A9288 0A9283 87 09 READ.F $09 0A9285 D3 28 F5 WRITE.F $28F5 0A9288 C0 51 3B READ.B $513B 0A928B C0 51 3A READ.B $513A 0A928E C0 51 39 READ.B $5139 0A9291 30 04 F8 BSR.68K $04F8 ; => $0A8D9C 0A9294 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A929D 23 DIV.F 0A929E D3 28 ED WRITE.F $28ED 0A92A1 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A92AA C0 51 38 READ.B $5138 0A92AD C0 51 37 READ.B $5137 0A92B0 C0 51 36 READ.B $5136 0A92B3 30 05 1A BSR.68K $051A ; => $0A8D9C 0A92B6 22 MUL.F 0A92B7 C0 51 35 READ.B $5135 0A92BA 03 2A LONG2FLOAT 0A92BC 20 ADD.F 0A92BD D3 28 FD WRITE.F $28FD 0A92C0 4C PUSH.6 $0C 0A92C1 D0 55 70 WRITE.B $5570 0A92C4 32 0A ADDSP.B $0A 0A92C6 34 RETURN ; ---------------- End Function $0A921E ---------------- ; ---------------- Begin 2144 Function $0A92C8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A92CF 43 PUSH.6 $03 0A92D0 30 05 55 BSR.68K $0555 ; => $0A8D7E => $0A7B4A (NATIVE) 0A92D3 C0 50 BD READ.B $50BD 0A92D6 2E NOT.L 0A92D7 18 26 BRZ $026 ; => $0A92FF 0A92D9 C0 51 40 READ.B $5140 0A92DC C0 29 9B READ.B $299B 0A92DF 03 28 GTE.L 0A92E1 C0 51 3F READ.B $513F 0A92E4 60 PUSH.6 $20 0A92E5 03 28 GTE.L 0A92E7 2C AND.L 0A92E8 18 15 BRZ $015 ; => $0A92FF 0A92EA C0 51 41 READ.B $5141 0A92ED 40 PUSH.6 $00 0A92EE 2B NEQ.L 0A92EF D0 28 FF WRITE.B $28FF 0A92F2 C0 51 40 READ.B $5140 0A92F5 C0 51 3F READ.B $513F 0A92F8 F0 29 0B WRITE.B $290B 0A92FB 4C PUSH.6 $0C 0A92FC D0 55 70 WRITE.B $5570 0A92FF 34 RETURN ; ---------------- End Function $0A92C8 ---------------- ; ---------------- Begin 2144 Function $0A9300 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A9307 4B PUSH.6 $0B 0A9308 30 05 8D BSR.68K $058D ; => $0A8D7E => $0A7B4A (NATIVE) 0A930B C0 50 BD READ.B $50BD 0A930E 2E NOT.L 0A930F 18 45 BRZ $045 ; => $0A9356 0A9311 C0 51 41 READ.B $5141 0A9314 D0 28 A8 WRITE.B $28A8 0A9317 C0 51 40 READ.B $5140 0A931A D0 28 A9 WRITE.B $28A9 0A931D C0 51 40 READ.B $5140 0A9320 D0 29 00 WRITE.B $2900 0A9323 C0 51 3F READ.B $513F 0A9326 D0 28 AA WRITE.B $28AA 0A9329 C0 51 3E READ.B $513E 0A932C D0 28 B0 WRITE.B $28B0 0A932F C0 51 3D READ.B $513D 0A9332 D0 28 AF WRITE.B $28AF 0A9335 C0 51 3C READ.B $513C 0A9338 D0 29 11 WRITE.B $2911 0A933B C0 51 3B READ.B $513B 0A933E 30 05 B1 BSR.68K $05B1 ; => $0A8D90 => $0A7EDC 0A9341 D0 29 12 WRITE.B $2912 0A9344 4A PUSH.6 $0A 0A9345 C0 51 3A READ.B $513A 0A9348 29 MUL.L 0A9349 C0 51 39 READ.B $5139 0A934C 27 ADD.L 0A934D 03 2A LONG2FLOAT 0A934F D3 28 DB WRITE.F $28DB 0A9352 4C PUSH.6 $0C 0A9353 D0 55 70 WRITE.B $5570 0A9356 34 RETURN ; ---------------- End Function $0A9300 ---------------- ; ---------------- Begin 2144 Function $0A9358 ---------------- ; A0 = $004004; (A0) = SP + $23 ; called from $0A9458:$0A9475 ; called from $0A947A:$0A9497 ; addr bytes opcode operands comment 0A935F 40 PUSH.6 $00 0A9360 C0 51 40 READ.B $5140 0A9363 C0 51 3F READ.B $513F 0A9366 30 05 CD BSR.68K $05CD ; => $0A8D9C 0A9369 3B 3F B9 99 99 99 99 99 9A PUSH.F $3FB999999999999A ; float = 0.100000 0A9372 C0 51 3E READ.B $513E 0A9375 C0 51 3D READ.B $513D 0A9378 C0 51 3C READ.B $513C 0A937B 30 05 E2 BSR.68K $05E2 ; => $0A8D9C 0A937E 22 MUL.F 0A937F 3B 3F 1A 36 E2 EB 1C 43 2D PUSH.F $3F1A36E2EB1C432D ; float = 0.000100 0A9388 C0 51 3B READ.B $513B 0A938B C0 51 3A READ.B $513A 0A938E C0 51 39 READ.B $5139 0A9391 30 05 F8 BSR.68K $05F8 ; => $0A8D9C 0A9394 22 MUL.F 0A9395 20 ADD.F 0A9396 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 0A939F 23 DIV.F 0A93A0 20 ADD.F 0A93A1 97 07 WRITE.F $07 0A93A3 C0 51 41 READ.B $5141 0A93A6 18 06 BRZ $006 ; => $0A93AE 0A93A8 87 07 READ.F $07 0A93AA 03 20 NEG.W 0A93AC 97 07 WRITE.F $07 0A93AE 87 07 READ.F $07 0A93B0 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A93B9 23 DIV.F 0A93BA 97 07 WRITE.F $07 0A93BC C0 51 37 READ.B $5137 0A93BF C0 51 36 READ.B $5136 0A93C2 C0 51 35 READ.B $5135 0A93C5 30 06 2C BSR.68K $062C ; => $0A8D9C 0A93C8 3B 3F B9 99 99 99 99 99 9A PUSH.F $3FB999999999999A ; float = 0.100000 0A93D1 C0 51 34 READ.B $5134 0A93D4 C0 51 33 READ.B $5133 0A93D7 C0 51 32 READ.B $5132 0A93DA 30 06 41 BSR.68K $0641 ; => $0A8D9C 0A93DD 22 MUL.F 0A93DE 3B 3F 1A 36 E2 EB 1C 43 2D PUSH.F $3F1A36E2EB1C432D ; float = 0.000100 0A93E7 C0 51 31 READ.B $5131 0A93EA C0 51 30 READ.B $5130 0A93ED C0 51 2F READ.B $512F 0A93F0 30 06 57 BSR.68K $0657 ; => $0A8D9C 0A93F3 22 MUL.F 0A93F4 20 ADD.F 0A93F5 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 0A93FE 23 DIV.F 0A93FF 20 ADD.F 0A9400 97 13 WRITE.F $13 0A9402 C0 51 38 READ.B $5138 0A9405 18 06 BRZ $006 ; => $0A940D 0A9407 87 13 READ.F $13 0A9409 03 20 NEG.W 0A940B 97 13 WRITE.F $13 0A940D 87 13 READ.F $13 0A940F 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0A9418 23 DIV.F 0A9419 97 13 WRITE.F $13 0A941B 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0A9424 C0 51 2D READ.B $512D 0A9427 C0 51 2C READ.B $512C 0A942A C0 51 2B READ.B $512B 0A942D 30 06 94 BSR.68K $0694 ; => $0A8D9C 0A9430 22 MUL.F 0A9431 3B 3F 84 7A E1 47 AE 14 7B PUSH.F $3F847AE147AE147B ; float = 0.010000 0A943A C0 51 2A READ.B $512A 0A943D C0 51 29 READ.B $5129 0A9440 40 PUSH.6 $00 0A9441 30 06 A8 BSR.68K $06A8 ; => $0A8D9C 0A9444 22 MUL.F 0A9445 20 ADD.F 0A9446 97 1F WRITE.F $1F 0A9448 C0 51 2E READ.B $512E 0A944B 18 06 BRZ $006 ; => $0A9453 0A944D 87 1F READ.F $1F 0A944F 03 20 NEG.W 0A9451 97 1F WRITE.F $1F 0A9453 33 _2300 0A9454 33 _2300 0A9455 33 _2300 0A9456 34 RETURN ; ---------------- End Function $0A9358 ---------------- ; ---------------- Begin 2144 Function $0A9458 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A945F 59 PUSH.6 $19 0A9460 30 06 E5 BSR.68K $06E5 ; => $0A8D7E => $0A7B4A (NATIVE) 0A9463 C0 50 BD READ.B $50BD 0A9466 2E NOT.L 0A9467 18 0F BRZ $00F ; => $0A9478 0A9469 C3 29 3F 00 READ.F $293F 0A946D C3 29 47 00 READ.F $2947 0A9471 C3 29 4F 00 READ.F $294F 0A9475 30 01 20 BSR.68K $0120 ; => $0A9358 0A9478 34 RETURN ; ---------------- End Function $0A9458 ---------------- ; ---------------- Begin 2144 Function $0A947A ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A9481 59 PUSH.6 $19 0A9482 30 07 07 BSR.68K $0707 ; => $0A8D7E => $0A7B4A (NATIVE) 0A9485 C0 50 BD READ.B $50BD 0A9488 2E NOT.L 0A9489 18 5A BRZ $05A ; => $0A94E5 0A948B C3 29 1B 00 READ.F $291B 0A948F C3 29 23 00 READ.F $2923 0A9493 C3 29 2B 00 READ.F $292B 0A9497 30 01 42 BSR.68K $0142 ; => $0A9358 0A949A C3 29 1B READ.F $291B 0A949D 3E PUSH.W $0000 0A949E 26 EQ.F 0A949F C3 29 23 READ.F $2923 0A94A2 3E PUSH.W $0000 0A94A3 26 EQ.F 0A94A4 2C AND.L 0A94A5 18 06 BRZ $006 ; => $0A94AD 0A94A7 40 PUSH.6 $00 0A94A8 D0 29 2C WRITE.B $292C 0A94AB 10 15 BR $015 ; => $0A94C2 0A94AD C3 29 1B READ.F $291B 0A94B0 C3 29 23 READ.F $2923 0A94B3 C3 29 2B READ.F $292B 0A94B6 30 07 35 BSR.68K $0735 ; => $0A8D84 => $0AA734 0A94B9 41 PUSH.6 $01 0A94BA D0 29 2C WRITE.B $292C 0A94BD 04 FF PUSH.10 $0FF 0A94BF D0 67 EC WRITE.B $67EC 0A94C2 04 FF PUSH.10 $0FF 0A94C4 D0 22 F6 WRITE.B $22F6 0A94C7 4C PUSH.6 $0C 0A94C8 D0 55 70 WRITE.B $5570 0A94CB 3E PUSH.W $0000 0A94CC D3 01 17 WRITE.F $0117 0A94CF 3E PUSH.W $0000 0A94D0 D3 56 05 WRITE.F $5605 0A94D3 04 FF PUSH.10 $0FF 0A94D5 D0 50 9F WRITE.B $509F 0A94D8 40 PUSH.6 $00 0A94D9 D0 50 9E WRITE.B $509E 0A94DC 3E PUSH.W $0000 0A94DD 93 D7 WRITE.F $D7 0A94DF 3E PUSH.W $0000 0A94E0 93 DF WRITE.F $DF 0A94E2 3E PUSH.W $0000 0A94E3 93 E7 WRITE.F $E7 0A94E5 34 RETURN ; ---------------- End Function $0A947A ---------------- ; ---------------- Begin 2144 Function $0A94E6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A94ED 42 PUSH.6 $02 0A94EE 30 07 73 BSR.68K $0773 ; => $0A8D7E => $0A7B4A (NATIVE) 0A94F1 C0 50 BD READ.B $50BD 0A94F4 2E NOT.L 0A94F5 18 10 BRZ $010 ; => $0A9507 0A94F7 C0 51 41 READ.B $5141 0A94FA 30 07 6D BSR.68K $076D ; => $0A8D90 => $0A7EDC 0A94FD C0 51 40 READ.B $5140 0A9500 F0 22 D3 WRITE.B $22D3 0A9503 4C PUSH.6 $0C 0A9504 D0 55 70 WRITE.B $5570 0A9507 34 RETURN ; ---------------- End Function $0A94E6 ---------------- ; ---------------- Begin 2144 Function $0A9508 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A950F 42 PUSH.6 $02 0A9510 30 07 95 BSR.68K $0795 ; => $0A8D7E => $0A7B4A (NATIVE) 0A9513 C0 50 BD READ.B $50BD 0A9516 2E NOT.L 0A9517 18 0C BRZ $00C ; => $0A9525 0A9519 C0 51 41 READ.B $5141 0A951C 30 07 8F BSR.68K $078F ; => $0A8D90 => $0A7EDC 0A951F C0 51 40 READ.B $5140 0A9522 F0 28 D3 WRITE.B $28D3 0A9525 34 RETURN ; ---------------- End Function $0A9508 ---------------- ; ---------------- Begin 2144 Function $0A9526 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A952D 4A PUSH.6 $0A 0A952E 30 07 B3 BSR.68K $07B3 ; => $0A8D7E => $0A7B4A (NATIVE) 0A9531 C0 50 BD READ.B $50BD 0A9534 2E NOT.L 0A9535 18 95 BRZ $095 ; => $0A95CC 0A9537 C0 51 41 READ.B $5141 0A953A 04 FF PUSH.10 $0FF 0A953C 2B NEQ.L 0A953D 18 0A BRZ $00A ; => $0A9549 0A953F C0 51 41 READ.B $5141 0A9542 59 PUSH.6 $19 0A9543 29 MUL.L 0A9544 D1 29 0F WRITE.W $290F 0A9547 10 37 BR $037 ; => $0A9580 0A9549 05 00 PUSH.10 $100 0A954B C0 51 3D READ.B $513D 0A954E 29 MUL.L 0A954F C0 51 3C READ.B $513C 0A9552 27 ADD.L 0A9553 D1 29 0F WRITE.W $290F 0A9556 C1 29 0F READ.W $290F 0A9559 54 PUSH.6 $14 0A955A 03 26 GT.L 0A955C C1 29 0F READ.W $290F 0A955F 40 PUSH.6 $00 0A9560 2B NEQ.L 0A9561 2C AND.L 0A9562 18 04 BRZ $004 ; => $0A9568 0A9564 54 PUSH.6 $14 0A9565 D1 29 0F WRITE.W $290F 0A9568 C1 29 0F READ.W $290F 0A956B 3C 17 70 PUSH.W $1770 0A956E 03 25 LT.L 0A9570 C1 29 0F READ.W $290F 0A9573 3C 27 0F PUSH.W $270F 0A9576 2B NEQ.L 0A9577 2C AND.L 0A9578 18 06 BRZ $006 ; => $0A9580 0A957A 3C 17 70 PUSH.W $1770 0A957D D1 29 0F WRITE.W $290F 0A9580 C0 51 40 READ.B $5140 0A9583 D0 28 FE WRITE.B $28FE 0A9586 C0 51 3F READ.B $513F 0A9589 D0 29 75 WRITE.B $2975 0A958C C0 51 3E READ.B $513E 0A958F D0 28 E4 WRITE.B $28E4 0A9592 C0 51 41 READ.B $5141 0A9595 04 FF PUSH.10 $0FF 0A9597 2A EQ.L 0A9598 18 2E BRZ $02E ; => $0A95C8 0A959A C0 51 39 READ.B $5139 0A959D 05 00 PUSH.10 $100 0A959F 29 MUL.L 0A95A0 D1 33 D9 WRITE.W $33D9 0A95A3 C1 33 D9 READ.W $33D9 0A95A6 C0 51 38 READ.B $5138 0A95A9 27 ADD.L 0A95AA D1 33 D9 WRITE.W $33D9 0A95AD C1 33 D9 READ.W $33D9 0A95B0 3C 27 0F PUSH.W $270F 0A95B3 03 25 LT.L 0A95B5 18 06 BRZ $006 ; => $0A95BD 0A95B7 3C 27 0F PUSH.W $270F 0A95BA D1 33 D9 WRITE.W $33D9 0A95BD C1 33 D9 READ.W $33D9 0A95C0 40 PUSH.6 $00 0A95C1 2A EQ.L 0A95C2 18 04 BRZ $004 ; => $0A95C8 0A95C4 41 PUSH.6 $01 0A95C5 D1 33 D9 WRITE.W $33D9 0A95C8 4C PUSH.6 $0C 0A95C9 D0 55 70 WRITE.B $5570 0A95CC 34 RETURN ; ---------------- End Function $0A9526 ---------------- ; ---------------- Begin 2144 Function $0A95CE ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A95D5 42 PUSH.6 $02 0A95D6 30 08 5B BSR.68K $085B ; => $0A8D7E => $0A7B4A (NATIVE) 0A95D9 C0 50 BD READ.B $50BD 0A95DC 2E NOT.L 0A95DD 18 0C BRZ $00C ; => $0A95EB 0A95DF C0 51 41 READ.B $5141 0A95E2 D0 29 36 WRITE.B $2936 0A95E5 C0 51 40 READ.B $5140 0A95E8 D0 29 37 WRITE.B $2937 0A95EB 34 RETURN ; ---------------- End Function $0A95CE ---------------- ; ---------------- Begin 2144 Function $0A95EC ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A95F3 31 02 SUBSP.B $02 0A95F5 42 PUSH.6 $02 0A95F6 30 08 7B BSR.68K $087B ; => $0A8D7E => $0A7B4A (NATIVE) 0A95F9 C0 50 BD READ.B $50BD 0A95FC 2E NOT.L 0A95FD 18 1F BRZ $01F ; => $0A961E 0A95FF C0 51 41 READ.B $5141 0A9602 30 08 75 BSR.68K $0875 ; => $0A8D90 => $0A7EDC 0A9605 94 00 WRITE.B $00 0A9607 84 00 READ.B $00 0A9609 C0 51 40 READ.B $5140 0A960C F0 22 F5 WRITE.B $22F5 0A960F C0 51 40 READ.B $5140 0A9612 18 06 BRZ $006 ; => $0A961A 0A9614 84 00 READ.B $00 0A9616 40 PUSH.6 $00 0A9617 F0 22 D3 WRITE.B $22D3 0A961A 4C PUSH.6 $0C 0A961B D0 55 70 WRITE.B $5570 0A961E 32 02 ADDSP.B $02 0A9620 34 RETURN ; ---------------- End Function $0A95EC ---------------- ; ---------------- Begin 2144 Function $0A9622 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A9629 41 PUSH.6 $01 0A962A 30 08 AF BSR.68K $08AF ; => $0A8D7E => $0A7B4A (NATIVE) 0A962D C0 50 BD READ.B $50BD 0A9630 2E NOT.L 0A9631 18 06 BRZ $006 ; => $0A9639 0A9633 C0 51 41 READ.B $5141 0A9636 30 08 AF BSR.68K $08AF ; => $0A8D8A => $0983B4 0A9639 34 RETURN ; ---------------- End Function $0A9622 ---------------- ; ---------------- Begin 2144 Function $0A963A ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A9641 42 PUSH.6 $02 0A9642 30 08 C7 BSR.68K $08C7 ; => $0A8D7E => $0A7B4A (NATIVE) 0A9645 C0 50 BD READ.B $50BD 0A9648 2E NOT.L 0A9649 18 0C BRZ $00C ; => $0A9657 0A964B C0 51 41 READ.B $5141 0A964E D0 29 73 WRITE.B $2973 0A9651 C0 51 40 READ.B $5140 0A9654 D0 29 74 WRITE.B $2974 0A9657 34 RETURN ; ---------------- End Function $0A963A ---------------- ; ---------------- Begin 2144 Function $0A9658 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A965F 45 PUSH.6 $05 0A9660 30 08 E5 BSR.68K $08E5 ; => $0A8D7E => $0A7B4A (NATIVE) 0A9663 C0 50 BD READ.B $50BD 0A9666 2E NOT.L 0A9667 18 1E BRZ $01E ; => $0A9687 0A9669 C0 51 41 READ.B $5141 0A966C D0 60 B6 WRITE.B $60B6 0A966F C0 51 40 READ.B $5140 0A9672 D0 60 B7 WRITE.B $60B7 0A9675 C0 51 3F READ.B $513F 0A9678 D0 60 BA WRITE.B $60BA 0A967B 43 PUSH.6 $03 0A967C 30 08 E9 BSR.68K $08E9 ; => $0A8D96 => $0A7394 0A967F D1 60 B9 WRITE.W $60B9 0A9682 04 FF PUSH.10 $0FF 0A9684 D0 60 BB WRITE.B $60BB 0A9687 34 RETURN ; ---------------- End Function $0A9658 ---------------- ; ---------------- Begin 2144 Function $0A9688 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A968F 31 08 SUBSP.B $08 0A9691 49 PUSH.6 $09 0A9692 30 09 17 BSR.68K $0917 ; => $0A8D7E => $0A7B4A (NATIVE) 0A9695 C0 50 BD READ.B $50BD 0A9698 2E NOT.L 0A9699 18 1F BRZ $01F ; => $0A96BA 0A969B 41 PUSH.6 $01 0A969C 30 08 E5 BSR.68K $08E5 ; => $0A8DBA 0A969F 97 07 WRITE.F $07 0A96A1 C0 51 41 READ.B $5141 0A96A4 35 SWITCH 0A96A5 10 08 01 CASE $01 ; SWITCH $0A96A4 0A96A8 87 07 READ.F $07 0A96AA D3 29 2B WRITE.F $292B 0A96AD 10 0B BR $00B ; => $0A96BA 0A96AF 10 08 02 CASE $02 ; SWITCH $0A96A4 0A96B2 87 07 READ.F $07 0A96B4 D3 29 35 WRITE.F $2935 0A96B7 10 01 BR $001 ; => $0A96BA 0A96B9 00 DEFAULT ; SWITCH $0A96A4 0A96BA 32 08 ADDSP.B $08 0A96BC 34 RETURN ; ---------------- End Function $0A9688 ---------------- ; ---------------- Begin 2144 Function $0A96E2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000FF4:$001047 ; called from $09DD4E:$09DF71 ; called from $0AF21A:$0AF3CD ; addr bytes opcode operands comment 0A96E9 31 04 SUBSP.B $04 0A96EB 41 PUSH.6 $01 0A96EC 95 03 WRITE.W $03 0A96EE 40 PUSH.6 $00 0A96EF 94 01 WRITE.B $01 0A96F1 C1 56 27 READ.W $5627 0A96F4 85 03 READ.W $03 0A96F6 2C AND.L 0A96F7 40 PUSH.6 $00 0A96F8 2B NEQ.L 0A96F9 18 36 BRZ $036 ; => $0A9731 0A96FB 84 01 READ.B $01 0A96FD 35 SWITCH 0A96FE 10 06 00 CASE $00 ; SWITCH $0A96FD 0A9701 30 00 2E BSR.68K $002E ; => $0A96D6 => $091BF2 0A9704 10 22 BR $022 ; => $0A9728 0A9706 10 07 01 CASE $01 ; SWITCH $0A96FD 0A9709 3E PUSH.W $0000 0A970A D3 56 55 WRITE.F $5655 0A970D 10 19 BR $019 ; => $0A9728 0A970F 10 06 08 CASE $08 ; SWITCH $0A96FD 0A9712 30 00 51 BSR.68K $0051 ; => $0A96C4 => $0A27A0 0A9715 10 11 BR $011 ; => $0A9728 0A9717 10 06 09 CASE $09 ; SWITCH $0A96FD 0A971A 30 00 41 BSR.68K $0041 ; => $0A96DC => $0A1C82 0A971D 10 09 BR $009 ; => $0A9728 0A971F 10 06 0A CASE $0A ; SWITCH $0A96FD 0A9722 30 00 5B BSR.68K $005B ; => $0A96CA => $0A2468 0A9725 10 01 BR $001 ; => $0A9728 0A9727 00 DEFAULT ; SWITCH $0A96FD 0A9728 C1 56 27 READ.W $5627 0A972B 85 03 READ.W $03 0A972D 28 SUB.L 0A972E D1 56 27 WRITE.W $5627 0A9731 85 03 READ.W $03 0A9733 42 PUSH.6 $02 0A9734 29 MUL.L 0A9735 95 03 WRITE.W $03 0A9737 84 01 READ.B $01 0A9739 41 PUSH.6 $01 0A973A 27 ADD.L 0A973B 94 01 WRITE.B $01 0A973D C1 56 27 READ.W $5627 0A9740 40 PUSH.6 $00 0A9741 2A EQ.L 0A9742 1F AD BRZ $-53 ; => $0A96F1 0A9744 C0 55 70 READ.B $5570 0A9747 35 SWITCH 0A9748 10 0E 02 CASE $02 ; SWITCH $0A9747 0A974B 30 00 90 BSR.68K $0090 ; => $0A96BE => $0A08AC 0A974E 40 PUSH.6 $00 0A974F 90 21 WRITE.B $21 0A9751 04 FF PUSH.10 $0FF 0A9753 D0 4E 63 WRITE.B $4E63 0A9756 11 1B BR $11B ; => $0A9873 0A9758 20 F4 04 0A CASE $04, $0A ; SWITCH $0A9747 0A975C 04 FF PUSH.10 $0FF 0A975E D0 56 60 WRITE.B $5660 0A9761 3E PUSH.W $0000 0A9762 93 67 WRITE.F $67 0A9764 3E PUSH.W $0000 0A9765 93 6F WRITE.F $6F 0A9767 3E PUSH.W $0000 0A9768 93 77 WRITE.F $77 0A976A 3E PUSH.W $0000 0A976B 93 7F WRITE.F $7F 0A976D 40 PUSH.6 $00 0A976E D0 35 B8 WRITE.B $35B8 0A9771 C0 55 70 READ.B $5570 0A9774 44 PUSH.6 $04 0A9775 2A EQ.L 0A9776 18 44 BRZ $044 ; => $0A97BC 0A9778 C3 29 1B READ.F $291B 0A977B 3E PUSH.W $0000 0A977C 03 23 NEQ.F 0A977E C3 29 23 READ.F $2923 0A9781 3E PUSH.W $0000 0A9782 03 23 NEQ.F 0A9784 2D OR.L 0A9785 18 2F BRZ $02F ; => $0A97B6 0A9787 C3 29 1B READ.F $291B 0A978A C3 29 23 READ.F $2923 0A978D C3 29 2B READ.F $292B 0A9790 30 00 C3 BSR.68K $00C3 ; => $0A96D0 => $0AA734 0A9793 C3 4E 93 READ.F $4E93 0A9796 D3 29 35 WRITE.F $2935 0A9799 C3 29 1B READ.F $291B 0A979C D3 54 E9 WRITE.F $54E9 0A979F C3 29 23 READ.F $2923 0A97A2 D3 54 F1 WRITE.F $54F1 0A97A5 C3 29 2B READ.F $292B 0A97A8 D3 54 F9 WRITE.F $54F9 0A97AB 41 PUSH.6 $01 0A97AC D0 29 2C WRITE.B $292C 0A97AF 04 FF PUSH.10 $0FF 0A97B1 D0 67 EC WRITE.B $67EC 0A97B4 10 04 BR $004 ; => $0A97BA 0A97B6 40 PUSH.6 $00 0A97B7 D0 29 2C WRITE.B $292C 0A97BA 10 54 BR $054 ; => $0A9810 0A97BC C0 32 D4 READ.B $32D4 0A97BF E3 2B 57 READ.F $2B57 0A97C2 3E PUSH.W $0000 0A97C3 03 23 NEQ.F 0A97C5 C0 32 D4 READ.B $32D4 0A97C8 E3 2C 47 READ.F $2C47 0A97CB 3E PUSH.W $0000 0A97CC 03 23 NEQ.F 0A97CE 2D OR.L 0A97CF 18 3B BRZ $03B ; => $0A980C 0A97D1 C0 32 D4 READ.B $32D4 0A97D4 E3 2B 57 READ.F $2B57 0A97D7 C0 32 D4 READ.B $32D4 0A97DA E3 2C 47 READ.F $2C47 0A97DD C0 32 D4 READ.B $32D4 0A97E0 E3 2D 37 READ.F $2D37 0A97E3 30 01 16 BSR.68K $0116 ; => $0A96D0 => $0AA734 0A97E6 C0 32 D4 READ.B $32D4 0A97E9 E3 2B 57 READ.F $2B57 0A97EC D3 54 E9 WRITE.F $54E9 0A97EF C0 32 D4 READ.B $32D4 0A97F2 E3 2C 47 READ.F $2C47 0A97F5 D3 54 F1 WRITE.F $54F1 0A97F8 C0 32 D4 READ.B $32D4 0A97FB E3 2D 37 READ.F $2D37 0A97FE D3 54 F9 WRITE.F $54F9 0A9801 42 PUSH.6 $02 0A9802 D0 29 2C WRITE.B $292C 0A9805 04 FF PUSH.10 $0FF 0A9807 D0 67 EC WRITE.B $67EC 0A980A 10 04 BR $004 ; => $0A9810 0A980C 40 PUSH.6 $00 0A980D D0 29 2C WRITE.B $292C 0A9810 04 FF PUSH.10 $0FF 0A9812 D0 22 F6 WRITE.B $22F6 0A9815 3E PUSH.W $0000 0A9816 93 D7 WRITE.F $D7 0A9818 3E PUSH.W $0000 0A9819 93 DF WRITE.F $DF 0A981B 3E PUSH.W $0000 0A981C 93 E7 WRITE.F $E7 0A981E 04 FF PUSH.10 $0FF 0A9820 D0 50 9F WRITE.B $509F 0A9823 40 PUSH.6 $00 0A9824 D0 50 9E WRITE.B $509E 0A9827 3E PUSH.W $0000 0A9828 D3 01 17 WRITE.F $0117 0A982B C0 29 91 READ.B $2991 0A982E 18 04 BRZ $004 ; => $0A9834 0A9830 3E PUSH.W $0000 0A9831 D3 56 05 WRITE.F $5605 0A9834 3E PUSH.W $0000 0A9835 D3 56 55 WRITE.F $5655 0A9838 C0 54 2C READ.B $542C 0A983B 42 PUSH.6 $02 0A983C 2A EQ.L 0A983D C0 29 91 READ.B $2991 0A9840 2E NOT.L 0A9841 2C AND.L 0A9842 18 08 BRZ $008 ; => $0A984C 0A9844 3E PUSH.W $0000 0A9845 D3 54 35 WRITE.F $5435 0A9848 40 PUSH.6 $00 0A9849 D1 54 37 WRITE.W $5437 0A984C 10 25 BR $025 ; => $0A9873 0A984E 10 0F 09 CASE $09 ; SWITCH $0A9747 0A9851 42 PUSH.6 $02 0A9852 D0 54 2C WRITE.B $542C 0A9855 3E PUSH.W $0000 0A9856 D3 54 35 WRITE.F $5435 0A9859 40 PUSH.6 $00 0A985A D1 54 37 WRITE.W $5437 0A985D 10 14 BR $014 ; => $0A9873 0A985F 10 08 0B CASE $0B ; SWITCH $0A9747 0A9862 04 FF PUSH.10 $0FF 0A9864 D0 56 C6 WRITE.B $56C6 0A9867 10 0A BR $00A ; => $0A9873 0A9869 10 07 0C CASE $0C ; SWITCH $0A9747 0A986C 3E PUSH.W $0000 0A986D D3 56 55 WRITE.F $5655 0A9870 10 01 BR $001 ; => $0A9873 0A9872 00 DEFAULT ; SWITCH $0A9747 0A9873 40 PUSH.6 $00 0A9874 D0 55 70 WRITE.B $5570 0A9877 32 04 ADDSP.B $04 0A9879 34 RETURN ; ---------------- End Function $0A96E2 ---------------- ; ---------------- Begin 2144 Function $0A98AA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A98E2:$0A98FC ; called from $0A9BA6:$0A9BF7 ; addr bytes opcode operands comment 0A98B1 40 PUSH.6 $00 0A98B2 3F 20 20 20 50 52 49 4E 54 DISP " PRINT EVERY XX MINUTES " 20 45 56 45 52 59 20 20 20 20 20 58 58 20 4D 49 4E 55 54 45 53 20 20 20 20 0A98D4 52 PUSH.6 $12 0A98D5 42 PUSH.6 $02 0A98D6 C0 29 6E READ.B $296E 0A98D9 03 2A LONG2FLOAT 0A98DB 30 00 5E BSR.68K $005E ; => $0A9880 => $097AD2 0A98DE 52 PUSH.6 $12 0A98DF 90 26 WRITE.B $26 0A98E1 34 RETURN ; ---------------- End Function $0A98AA ---------------- ; ---------------- Begin 2144 Function $0A98E2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC1F ; addr bytes opcode operands comment 0A98E9 31 02 SUBSP.B $02 0A98EB 80 20 READ.B $20 0A98ED 35 SWITCH 0A98EE 10 11 02 CASE $02 ; SWITCH $0A98ED 0A98F1 80 26 READ.B $26 0A98F3 52 PUSH.6 $12 0A98F4 2A EQ.L 0A98F5 18 05 BRZ $005 ; => $0A98FC 0A98F7 40 PUSH.6 $00 0A98F8 90 21 WRITE.B $21 0A98FA 10 03 BR $003 ; => $0A98FF 0A98FC 30 00 55 BSR.68K $0055 ; => $0A98AA 0A98FF 10 15 BR $015 ; => $0A9916 0A9901 10 06 04 CASE $04 ; SWITCH $0A98ED 0A9904 61 PUSH.6 $21 0A9905 90 26 WRITE.B $26 0A9907 10 0D BR $00D ; => $0A9916 0A9909 00 DEFAULT ; SWITCH $0A98ED 0A990A 80 26 READ.B $26 0A990C 54 PUSH.6 $14 0A990D 03 26 GT.L 0A990F 18 05 BRZ $005 ; => $0A9916 0A9911 30 00 9A BSR.68K $009A ; => $0A987A => $09DFB4 0A9914 94 00 WRITE.B $00 0A9916 80 26 READ.B $26 0A9918 54 PUSH.6 $14 0A9919 2A EQ.L 0A991A 18 03 BRZ $003 ; => $0A991F 0A991C 60 PUSH.6 $20 0A991D 90 26 WRITE.B $26 0A991F 80 26 READ.B $26 0A9921 61 PUSH.6 $21 0A9922 2A EQ.L 0A9923 18 31 BRZ $031 ; => $0A9956 0A9925 4C PUSH.6 $0C 0A9926 90 21 WRITE.B $21 0A9928 52 PUSH.6 $12 0A9929 30 00 A6 BSR.68K $00A6 ; => $0A9886 => $09E078 0A992C D0 29 6E WRITE.B $296E 0A992F 40 PUSH.6 $00 0A9930 3F 20 20 50 52 49 4E 54 20 DISP " PRINT INTERVAL ENTERED " 49 4E 54 45 52 56 41 4C 20 20 20 20 20 45 4E 54 45 52 45 44 20 20 20 20 20 0A9952 40 PUSH.6 $00 0A9953 D0 50 9E WRITE.B $509E 0A9956 32 02 ADDSP.B $02 0A9958 34 RETURN ; ---------------- End Function $0A98E2 ---------------- ; ---------------- Begin 2144 Function $0A995A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0A9992:$0A99AC ; called from $0A9BA6:$0A9C06 ; addr bytes opcode operands comment 0A9961 40 PUSH.6 $00 0A9962 3F 20 20 4C 41 42 45 4C 20 DISP " LABEL PRINTS WITH ID 00 " 50 52 49 4E 54 53 20 20 20 20 57 49 54 48 20 49 44 20 30 30 20 20 20 20 20 0A9984 59 PUSH.6 $19 0A9985 42 PUSH.6 $02 0A9986 C0 29 6F READ.B $296F 0A9989 03 2A LONG2FLOAT 0A998B 30 01 0E BSR.68K $010E ; => $0A9880 => $097AD2 0A998E 59 PUSH.6 $19 0A998F 90 26 WRITE.B $26 0A9991 34 RETURN ; ---------------- End Function $0A995A ---------------- ; ---------------- Begin 2144 Function $0A9992 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC27 ; addr bytes opcode operands comment 0A9999 31 02 SUBSP.B $02 0A999B 80 20 READ.B $20 0A999D 35 SWITCH 0A999E 10 11 02 CASE $02 ; SWITCH $0A999D 0A99A1 80 26 READ.B $26 0A99A3 59 PUSH.6 $19 0A99A4 2A EQ.L 0A99A5 18 05 BRZ $005 ; => $0A99AC 0A99A7 40 PUSH.6 $00 0A99A8 90 21 WRITE.B $21 0A99AA 10 03 BR $003 ; => $0A99AF 0A99AC 30 00 55 BSR.68K $0055 ; => $0A995A 0A99AF 10 15 BR $015 ; => $0A99C6 0A99B1 10 06 04 CASE $04 ; SWITCH $0A999D 0A99B4 61 PUSH.6 $21 0A99B5 90 26 WRITE.B $26 0A99B7 10 0D BR $00D ; => $0A99C6 0A99B9 00 DEFAULT ; SWITCH $0A999D 0A99BA 80 26 READ.B $26 0A99BC 5B PUSH.6 $1B 0A99BD 03 26 GT.L 0A99BF 18 05 BRZ $005 ; => $0A99C6 0A99C1 30 01 4A BSR.68K $014A ; => $0A987A => $09DFB4 0A99C4 94 00 WRITE.B $00 0A99C6 80 26 READ.B $26 0A99C8 5B PUSH.6 $1B 0A99C9 2A EQ.L 0A99CA 18 03 BRZ $003 ; => $0A99CF 0A99CC 60 PUSH.6 $20 0A99CD 90 26 WRITE.B $26 0A99CF 80 26 READ.B $26 0A99D1 61 PUSH.6 $21 0A99D2 2A EQ.L 0A99D3 18 2D BRZ $02D ; => $0A9A02 0A99D5 4C PUSH.6 $0C 0A99D6 90 21 WRITE.B $21 0A99D8 59 PUSH.6 $19 0A99D9 30 01 56 BSR.68K $0156 ; => $0A9886 => $09E078 0A99DC D0 29 6F WRITE.B $296F 0A99DF 40 PUSH.6 $00 0A99E0 3F 20 20 20 20 50 52 49 4E DISP " PRINT LABEL ENTERED " 54 20 4C 41 42 45 4C 20 20 20 20 20 20 45 4E 54 45 52 45 44 20 20 20 20 20 0A9A02 32 02 ADDSP.B $02 0A9A04 34 RETURN ; ---------------- End Function $0A9992 ---------------- ; ---------------- Begin 2144 Function $0A9A06 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A9A80:$0A9A9A ; called from $0A9B66:$0A9B76 ; called from $0A9B66:$0A9B81 ; addr bytes opcode operands comment 0A9A0D 31 02 SUBSP.B $02 0A9A0F 40 PUSH.6 $00 0A9A10 3F 20 53 54 52 54 20 58 58 DISP "STRT XXX XXX XXXSTOP XXX XXX XXX" 58 20 58 58 58 20 58 58 58 53 54 4F 50 20 58 58 58 20 58 58 58 20 58 58 58 0A9A32 40 PUSH.6 $00 0A9A33 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A9A36 41 PUSH.6 $01 0A9A37 38 00 3F BLS.B $003F ; => $0A9A79 0A9A3A 40 PUSH.6 $00 0A9A3B 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0A9A3E 42 PUSH.6 $02 0A9A3F 38 00 32 BLS.B $0032 ; => $0A9A74 0A9A42 50 PUSH.6 $10 0A9A43 88 00 READ.B $00 0A9A45 29 MUL.L 0A9A46 45 PUSH.6 $05 0A9A47 27 ADD.L 0A9A48 44 PUSH.6 $04 0A9A49 88 01 READ.B $01 0A9A4B 29 MUL.L 0A9A4C 27 ADD.L 0A9A4D 43 PUSH.6 $03 0A9A4E 80 22 READ.B $22 0A9A50 71 PUSH.6 $31 0A9A51 2A EQ.L 0A9A52 18 0C BRZ $00C ; => $0A9A60 0A9A54 43 PUSH.6 $03 0A9A55 88 00 READ.B $00 0A9A57 29 MUL.L 0A9A58 88 01 READ.B $01 0A9A5A 27 ADD.L 0A9A5B E0 29 61 READ.B $2961 0A9A5E 10 0A BR $00A ; => $0A9A6A 0A9A60 43 PUSH.6 $03 0A9A61 88 00 READ.B $00 0A9A63 29 MUL.L 0A9A64 88 01 READ.B $01 0A9A66 27 ADD.L 0A9A67 E0 29 6B READ.B $296B 0A9A6A 03 2A LONG2FLOAT 0A9A6C 30 01 EF BSR.68K $01EF ; => $0A9880 => $097AD2 0A9A6F 37 20 01 00 36 _23d2 $0001, $0036 0A9A74 37 20 00 00 43 _23d2 $0000, $0043 0A9A79 45 PUSH.6 $05 0A9A7A 90 26 WRITE.B $26 0A9A7C 32 02 ADDSP.B $02 0A9A7E 34 RETURN ; ---------------- End Function $0A9A06 ---------------- ; ---------------- Begin 2144 Function $0A9A80 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A9B92:$0A9B9D ; addr bytes opcode operands comment 0A9A87 31 04 SUBSP.B $04 0A9A89 80 20 READ.B $20 0A9A8B 35 SWITCH 0A9A8C 10 11 02 CASE $02 ; SWITCH $0A9A8B 0A9A8F 80 26 READ.B $26 0A9A91 45 PUSH.6 $05 0A9A92 2A EQ.L 0A9A93 18 05 BRZ $005 ; => $0A9A9A 0A9A95 40 PUSH.6 $00 0A9A96 90 21 WRITE.B $21 0A9A98 10 03 BR $003 ; => $0A9A9D 0A9A9A 30 00 97 BSR.68K $0097 ; => $0A9A06 0A9A9D 10 27 BR $027 ; => $0A9AC6 0A9A9F 10 06 04 CASE $04 ; SWITCH $0A9A8B 0A9AA2 61 PUSH.6 $21 0A9AA3 90 26 WRITE.B $26 0A9AA5 10 1F BR $01F ; => $0A9AC6 0A9AA7 10 10 D0 CASE $D0 ; SWITCH $0A9A8B 0A9AAA 80 26 READ.B $26 0A9AAC 60 PUSH.6 $20 0A9AAD 03 26 GT.L 0A9AAF 18 06 BRZ $006 ; => $0A9AB7 0A9AB1 80 26 READ.B $26 0A9AB3 41 PUSH.6 $01 0A9AB4 27 ADD.L 0A9AB5 90 26 WRITE.B $26 0A9AB7 10 0D BR $00D ; => $0A9AC6 0A9AB9 00 DEFAULT ; SWITCH $0A9A8B 0A9ABA 80 26 READ.B $26 0A9ABC 60 PUSH.6 $20 0A9ABD 03 26 GT.L 0A9ABF 18 05 BRZ $005 ; => $0A9AC6 0A9AC1 30 02 4A BSR.68K $024A ; => $0A987A => $09DFB4 0A9AC4 98 00 WRITE.B $00 0A9AC6 80 26 READ.B $26 0A9AC8 35 SWITCH 0A9AC9 40 0C 08 0C 18 1C CASE $08, $0C, $18, $1C ; SWITCH $0A9AC8 0A9ACF 80 26 READ.B $26 0A9AD1 41 PUSH.6 $01 0A9AD2 27 ADD.L 0A9AD3 90 26 WRITE.B $26 0A9AD5 10 8C BR $08C ; => $0A9B63 0A9AD7 10 06 10 CASE $10 ; SWITCH $0A9AC8 0A9ADA 55 PUSH.6 $15 0A9ADB 90 26 WRITE.B $26 0A9ADD 10 84 BR $084 ; => $0A9B63 0A9ADF 10 81 21 CASE $21 ; SWITCH $0A9AC8 0A9AE2 40 PUSH.6 $00 0A9AE3 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0A9AE6 41 PUSH.6 $01 0A9AE7 38 00 4C BLS.B $004C ; => $0A9B36 0A9AEA 40 PUSH.6 $00 0A9AEB 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0A9AEE 42 PUSH.6 $02 0A9AEF 38 00 3F BLS.B $003F ; => $0A9B31 0A9AF2 50 PUSH.6 $10 0A9AF3 88 00 READ.B $00 0A9AF5 29 MUL.L 0A9AF6 45 PUSH.6 $05 0A9AF7 27 ADD.L 0A9AF8 44 PUSH.6 $04 0A9AF9 88 01 READ.B $01 0A9AFB 29 MUL.L 0A9AFC 27 ADD.L 0A9AFD 98 02 WRITE.B $02 0A9AFF 88 02 READ.B $02 0A9B01 88 02 READ.B $02 0A9B03 42 PUSH.6 $02 0A9B04 27 ADD.L 0A9B05 30 02 70 BSR.68K $0270 ; => $0A9898 => $09E02C 0A9B08 03 29 FLOAT2LONG 0A9B0A 98 03 WRITE.B $03 0A9B0C 80 22 READ.B $22 0A9B0E 71 PUSH.6 $31 0A9B0F 2A EQ.L 0A9B10 18 0E BRZ $00E ; => $0A9B20 0A9B12 43 PUSH.6 $03 0A9B13 88 00 READ.B $00 0A9B15 29 MUL.L 0A9B16 88 01 READ.B $01 0A9B18 27 ADD.L 0A9B19 88 03 READ.B $03 0A9B1B F0 29 61 WRITE.B $2961 0A9B1E 10 0C BR $00C ; => $0A9B2C 0A9B20 43 PUSH.6 $03 0A9B21 88 00 READ.B $00 0A9B23 29 MUL.L 0A9B24 88 01 READ.B $01 0A9B26 27 ADD.L 0A9B27 88 03 READ.B $03 0A9B29 F0 29 6B WRITE.B $296B 0A9B2C 37 20 01 00 43 _23d2 $0001, $0043 0A9B31 37 20 00 00 50 _23d2 $0000, $0050 0A9B36 4C PUSH.6 $0C 0A9B37 90 21 WRITE.B $21 0A9B39 40 PUSH.6 $00 0A9B3A 3F 20 50 4F 52 54 31 20 43 DISP "PORT1 CONTROL CHARS ENTERED " 4F 4E 54 52 4F 4C 20 20 20 43 48 41 52 53 20 45 4E 54 45 52 45 44 20 20 20 0A9B5C 80 22 READ.B $22 0A9B5E 90 1B WRITE.B $1B 0A9B60 10 01 BR $001 ; => $0A9B63 0A9B62 00 DEFAULT ; SWITCH $0A9AC8 0A9B63 32 04 ADDSP.B $04 0A9B65 34 RETURN ; ---------------- End Function $0A9A80 ---------------- ; ---------------- Begin 2144 Function $0A9B66 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0A9B92:$0A9BA2 ; addr bytes opcode operands comment 0A9B6D 80 20 READ.B $20 0A9B6F 35 SWITCH 0A9B70 10 09 10 CASE $10 ; SWITCH $0A9B6F 0A9B73 71 PUSH.6 $31 0A9B74 90 22 WRITE.B $22 0A9B76 30 01 73 BSR.68K $0173 ; => $0A9A06 0A9B79 10 15 BR $015 ; => $0A9B90 0A9B7B 10 09 D0 CASE $D0 ; SWITCH $0A9B6F 0A9B7E 72 PUSH.6 $32 0A9B7F 90 22 WRITE.B $22 0A9B81 30 01 7E BSR.68K $017E ; => $0A9A06 0A9B84 10 0A BR $00A ; => $0A9B90 0A9B86 20 04 50 90 CASE $50, $90 ; SWITCH $0A9B6F 0A9B8A 10 04 BR $004 ; => $0A9B90 0A9B8C 00 DEFAULT ; SWITCH $0A9B6F 0A9B8D 30 02 EC BSR.68K $02EC ; => $0A98A4 => $09D9DE 0A9B90 34 RETURN ; ---------------- End Function $0A9B66 ---------------- ; ---------------- Begin 2144 Function $0A9B92 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC2F ; addr bytes opcode operands comment 0A9B99 80 22 READ.B $22 0A9B9B 18 05 BRZ $005 ; => $0A9BA2 0A9B9D 30 01 20 BSR.68K $0120 ; => $0A9A80 0A9BA0 10 03 BR $003 ; => $0A9BA5 0A9BA2 30 00 3F BSR.68K $003F ; => $0A9B66 0A9BA5 34 RETURN ; ---------------- End Function $0A9B92 ---------------- ; ---------------- Begin 2144 Function $0A9BA6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC0F ; addr bytes opcode operands comment 0A9BAD 80 20 READ.B $20 0A9BAF 35 SWITCH 0A9BB0 10 06 10 CASE $10 ; SWITCH $0A9BAF 0A9BB3 30 03 24 BSR.68K $0324 ; => $0A9892 => $0910DA 0A9BB6 10 57 BR $057 ; => $0A9C0F 0A9BB8 10 33 50 CASE $50 ; SWITCH $0A9BAF 0A9BBB 04 4B PUSH.10 $04B 0A9BBD 90 21 WRITE.B $21 0A9BBF 30 03 24 BSR.68K $0324 ; => $0A989E => $0034AA (CLEARSCREEN) (NATIVE) 0A9BC2 30 03 39 BSR.68K $0339 ; => $0A988C => $099642 0A9BC5 40 PUSH.6 $00 0A9BC6 90 22 WRITE.B $22 0A9BC8 40 PUSH.6 $00 0A9BC9 3F 20 43 4F 4E 54 52 4F 4C DISP "CONTROL CHARS PORT1 PORT2" 20 43 48 41 52 53 20 20 20 50 4F 52 54 31 20 20 20 20 20 20 50 4F 52 54 32 0A9BEB 10 22 BR $022 ; => $0A9C0F 0A9BED 10 0D 90 CASE $90 ; SWITCH $0A9BAF 0A9BF0 30 03 67 BSR.68K $0367 ; => $0A988C => $099642 0A9BF3 04 49 PUSH.10 $049 0A9BF5 90 21 WRITE.B $21 0A9BF7 30 03 50 BSR.68K $0350 ; => $0A98AA 0A9BFA 10 13 BR $013 ; => $0A9C0F 0A9BFC 10 0D D0 CASE $D0 ; SWITCH $0A9BAF 0A9BFF 30 03 76 BSR.68K $0376 ; => $0A988C => $099642 0A9C02 04 4A PUSH.10 $04A 0A9C04 90 21 WRITE.B $21 0A9C06 30 02 AF BSR.68K $02AF ; => $0A995A 0A9C09 10 04 BR $004 ; => $0A9C0F 0A9C0B 00 DEFAULT ; SWITCH $0A9BAF 0A9C0C 30 03 6B BSR.68K $036B ; => $0A98A4 => $09D9DE 0A9C0F 34 RETURN ; ---------------- End Function $0A9BA6 ---------------- ; ---------------- Begin 2164 Function $0A9C46 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0A0C6E:$0A0CD8 ; addr bytes opcode operands comment 0A9C4F 31 02 SUBSP.B $02 0A9C51 04 FF PUSH.10 $0FF 0A9C53 96 03 WRITE.L $03 0A9C55 C0 29 73 READ.B $2973 0A9C58 18 5E BRZ $05E ; => $0A9CB8 0A9C5A 86 07 READ.L $07 0A9C5C E2 08 3B READ.L $083B 0A9C5F 94 08 WRITE.B $08 0A9C61 84 08 READ.B $08 0A9C63 86 07 READ.L $07 0A9C65 E0 5B 1F READ.B $5B1F 0A9C68 2B NEQ.L 0A9C69 18 07 BRZ $007 ; => $0A9C72 0A9C6B 86 07 READ.L $07 0A9C6D 04 FF PUSH.10 $0FF 0A9C6F F0 28 D3 WRITE.B $28D3 0A9C72 C0 29 74 READ.B $2974 0A9C75 18 41 BRZ $041 ; => $0A9CB8 0A9C77 C3 60 3B READ.F $603B 0A9C7A 86 07 READ.L $07 0A9C7C E3 5C CD READ.F $5CCD 0A9C7F 21 SUB.F 0A9C80 3B 40 74 00 00 00 00 00 00 PUSH.F $4074000000000000 ; float = 320.000000 0A9C89 03 22 LTE.F 0A9C8B 86 07 READ.L $07 0A9C8D E0 5A FD READ.B $5AFD 0A9C90 44 PUSH.6 $04 0A9C91 03 28 GTE.L 0A9C93 2C AND.L 0A9C94 C0 5A CA READ.B $5ACA 0A9C97 45 PUSH.6 $05 0A9C98 2B NEQ.L 0A9C99 2C AND.L 0A9C9A C0 5A CA READ.B $5ACA 0A9C9D 47 PUSH.6 $07 0A9C9E 2B NEQ.L 0A9C9F 2C AND.L 0A9CA0 84 08 READ.B $08 0A9CA2 86 07 READ.L $07 0A9CA4 E0 5B 1F READ.B $5B1F 0A9CA7 2A EQ.L 0A9CA8 84 08 READ.B $08 0A9CAA 86 07 READ.L $07 0A9CAC E0 5C F1 READ.B $5CF1 0A9CAF 2A EQ.L 0A9CB0 C0 5C F2 READ.B $5CF2 0A9CB3 2C AND.L 0A9CB4 2D OR.L 0A9CB5 2C AND.L 0A9CB6 96 03 WRITE.L $03 0A9CB8 32 06 ADDSP.B $06 0A9CBA 34 RETURN ; ---------------- End Function $0A9C46 ---------------- ; ---------------- Begin 2164 Function $0A9CBC ---------------- ; P0 = $000C; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $B; D1 = $000008 ; called from $0A9E4A:$0A9E8E ; addr bytes opcode operands comment 0A9CC5 31 34 SUBSP.B $34 0A9CC7 04 FF PUSH.10 $0FF 0A9CC9 D0 5C CE WRITE.B $5CCE 0A9CCC 3E PUSH.W $0000 0A9CCD 97 2B WRITE.F $2B 0A9CCF 86 0B READ.L $0B 0A9CD1 E3 5C CD READ.F $5CCD 0A9CD4 97 1B WRITE.F $1B 0A9CD6 86 0B READ.L $0B 0A9CD8 E3 22 B1 READ.F $22B1 0A9CDB 87 1B READ.F $1B 0A9CDD 21 SUB.F 0A9CDE 3B 40 72 C0 00 00 00 00 00 PUSH.F $4072C00000000000 ; float = 300.000000 0A9CE7 03 22 LTE.F 0A9CE9 86 0B READ.L $0B 0A9CEB E0 5A FD READ.B $5AFD 0A9CEE 44 PUSH.6 $04 0A9CEF 03 28 GTE.L 0A9CF1 2C AND.L 0A9CF2 C0 5A CA READ.B $5ACA 0A9CF5 45 PUSH.6 $05 0A9CF6 2B NEQ.L 0A9CF7 2C AND.L 0A9CF8 C0 5A CA READ.B $5ACA 0A9CFB 47 PUSH.6 $07 0A9CFC 2B NEQ.L 0A9CFD 2C AND.L 0A9CFE 19 3F BRZ $13F ; => $0A9E3F 0A9D00 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0A9D09 87 1B READ.F $1B 0A9D0B 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0A9D14 23 DIV.F 0A9D15 30 00 F0 BSR.68K $00F0 ; => $0A9C28 => $002C08 (NATIVE) 0A9D18 22 MUL.F 0A9D19 97 1B WRITE.F $1B 0A9D1B 87 13 READ.F $13 0A9D1D 87 1B READ.F $1B 0A9D1F 21 SUB.F 0A9D20 97 23 WRITE.F $23 0A9D22 87 23 READ.F $23 0A9D24 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 0A9D2D 03 20 NEG.W 0A9D2F 03 21 LT.F 0A9D31 18 0E BRZ $00E ; => $0A9D41 0A9D33 87 23 READ.F $23 0A9D35 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0A9D3E 20 ADD.F 0A9D3F 97 23 WRITE.F $23 0A9D41 86 0B READ.L $0B 0A9D43 E1 5B 61 READ.W $5B61 0A9D46 95 45 WRITE.W $45 0A9D48 3B 3F 94 7A E1 47 AE 14 7B PUSH.F $3F947AE147AE147B ; float = 0.020000 0A9D51 85 45 READ.W $45 0A9D53 3C 80 00 PUSH.W $8000 0A9D56 2C AND.L 0A9D57 40 PUSH.6 $00 0A9D58 2A EQ.L 0A9D59 18 06 BRZ $006 ; => $0A9D61 0A9D5B 85 45 READ.W $45 0A9D5D 03 2A LONG2FLOAT 0A9D5F 10 0C BR $00C ; => $0A9D6D 0A9D61 3D 00 01 00 00 PUSH.L $00010000 0A9D66 85 45 READ.W $45 0A9D68 28 SUB.L 0A9D69 03 2A LONG2FLOAT 0A9D6B 03 20 NEG.W 0A9D6D 22 MUL.F 0A9D6E 97 33 WRITE.F $33 0A9D70 86 0B READ.L $0B 0A9D72 E0 5B 83 READ.B $5B83 0A9D75 94 46 WRITE.B $46 0A9D77 3B 3F 60 62 4D D2 F1 A9 FC PUSH.F $3F60624DD2F1A9FC ; float = 0.002000 0A9D80 84 46 READ.B $46 0A9D82 04 80 PUSH.10 $080 0A9D84 2C AND.L 0A9D85 18 0B BRZ $00B ; => $0A9D92 0A9D87 05 00 PUSH.10 $100 0A9D89 84 46 READ.B $46 0A9D8B 28 SUB.L 0A9D8C 03 2A LONG2FLOAT 0A9D8E 03 20 NEG.W 0A9D90 10 04 BR $004 ; => $0A9D96 0A9D92 84 46 READ.B $46 0A9D94 03 2A LONG2FLOAT 0A9D96 22 MUL.F 0A9D97 97 3B WRITE.F $3B 0A9D99 3E PUSH.W $0000 0A9D9A 97 43 WRITE.F $43 0A9D9C 87 33 READ.F $33 0A9D9E 87 23 READ.F $23 0A9DA0 87 3B READ.F $3B 0A9DA2 22 MUL.F 0A9DA3 20 ADD.F 0A9DA4 97 2B WRITE.F $2B 0A9DA6 86 0B READ.L $0B 0A9DA8 E2 08 3B READ.L $083B 0A9DAB 94 47 WRITE.B $47 0A9DAD 86 0B READ.L $0B 0A9DAF E0 5B 1F READ.B $5B1F 0A9DB2 84 47 READ.B $47 0A9DB4 2B NEQ.L 0A9DB5 18 49 BRZ $049 ; => $0A9E00 0A9DB7 86 0B READ.L $0B 0A9DB9 E0 5C F1 READ.B $5CF1 0A9DBC 84 47 READ.B $47 0A9DBE 2A EQ.L 0A9DBF C0 5C F2 READ.B $5CF2 0A9DC2 2C AND.L 0A9DC3 18 38 BRZ $038 ; => $0A9DFD 0A9DC5 86 0B READ.L $0B 0A9DC7 E1 5B C5 READ.W $5BC5 0A9DCA 95 45 WRITE.W $45 0A9DCC 3B 3F 94 7A E1 47 AE 14 7B PUSH.F $3F947AE147AE147B ; float = 0.020000 0A9DD5 85 45 READ.W $45 0A9DD7 3C 80 00 PUSH.W $8000 0A9DDA 2C AND.L 0A9DDB 40 PUSH.6 $00 0A9DDC 2A EQ.L 0A9DDD 18 06 BRZ $006 ; => $0A9DE5 0A9DDF 85 45 READ.W $45 0A9DE1 03 2A LONG2FLOAT 0A9DE3 10 0C BR $00C ; => $0A9DF1 0A9DE5 3D 00 01 00 00 PUSH.L $00010000 0A9DEA 85 45 READ.W $45 0A9DEC 28 SUB.L 0A9DED 03 2A LONG2FLOAT 0A9DEF 03 20 NEG.W 0A9DF1 22 MUL.F 0A9DF2 97 43 WRITE.F $43 0A9DF4 87 2B READ.F $2B 0A9DF6 87 43 READ.F $43 0A9DF8 20 ADD.F 0A9DF9 97 2B WRITE.F $2B 0A9DFB 10 03 BR $003 ; => $0A9E00 0A9DFD 3E PUSH.W $0000 0A9DFE 97 2B WRITE.F $2B 0A9E00 87 2B READ.F $2B 0A9E02 86 0B READ.L $0B 0A9E04 E0 5A FD READ.B $5AFD 0A9E07 30 01 DC BSR.68K $01DC ; => $0A9C2E => $002BAE (NATIVE) 0A9E0A 97 2B WRITE.F $2B 0A9E0C 86 0B READ.L $0B 0A9E0E 87 23 READ.F $23 0A9E10 F3 5D 63 WRITE.F $5D63 0A9E13 86 0B READ.L $0B 0A9E15 87 33 READ.F $33 0A9E17 86 0B READ.L $0B 0A9E19 E0 5A FD READ.B $5AFD 0A9E1C 30 01 F1 BSR.68K $01F1 ; => $0A9C2E => $002BAE (NATIVE) 0A9E1F F3 5D D3 WRITE.F $5DD3 0A9E22 86 0B READ.L $0B 0A9E24 87 3B READ.F $3B 0A9E26 86 0B READ.L $0B 0A9E28 E0 5A FD READ.B $5AFD 0A9E2B 30 02 00 BSR.68K $0200 ; => $0A9C2E => $002BAE (NATIVE) 0A9E2E F3 5E 43 WRITE.F $5E43 0A9E31 86 0B READ.L $0B 0A9E33 87 2B READ.F $2B 0A9E35 F3 5E B3 WRITE.F $5EB3 0A9E38 86 0B READ.L $0B 0A9E3A 87 43 READ.F $43 0A9E3C F3 5F BB WRITE.F $5FBB 0A9E3F 40 PUSH.6 $00 0A9E40 D0 5C CE WRITE.B $5CCE 0A9E43 87 2B READ.F $2B 0A9E45 97 07 WRITE.F $07 0A9E47 32 40 ADDSP.B $40 0A9E49 34 RETURN ; ---------------- End Function $0A9CBC ---------------- ; ---------------- Begin 2144 Function $0A9E4A ---------------- ; A0 = $004004; (A0) = SP + $57 ; called from $0A2E20:$0A2F3C ; called from $0A34CE:$0A353E ; called from $0A3DBE:$0A3E4D ; addr bytes opcode operands comment 0A9E51 31 02 SUBSP.B $02 0A9E53 C0 29 73 READ.B $2973 0A9E56 18 41 BRZ $041 ; => $0A9E99 0A9E58 40 PUSH.6 $00 0A9E59 36 10 58 _2362 $0058 ; A0 = $004000; (A0) = A6 + $0 0A9E5C 86 03 READ.L $03 0A9E5E 38 00 38 BLS.B $0038 ; => $0A9E99 0A9E61 84 58 READ.B $58 0A9E63 E0 47 6B READ.B $476B 0A9E66 94 59 WRITE.B $59 0A9E68 84 59 READ.B $59 0A9E6A 84 59 READ.B $59 0A9E6C A7 53 READ.F $53 0A9E6E 84 59 READ.B $59 0A9E70 E3 47 07 READ.F $4707 0A9E73 20 ADD.F 0A9E74 84 59 READ.B $59 0A9E76 E3 44 C3 READ.F $44C3 0A9E79 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 0A9E82 22 MUL.F 0A9E83 20 ADD.F 0A9E84 84 59 READ.B $59 0A9E86 E0 40 09 READ.B $4009 0A9E89 84 59 READ.B $59 0A9E8B E3 40 59 READ.F $4059 0A9E8E 30 01 D5 BSR.68K $01D5 ; => $0A9CBC 0A9E91 20 ADD.F 0A9E92 B7 53 WRITE.F $53 0A9E94 37 10 58 00 3D _23d2 $0058, $003D 0A9E99 32 02 ADDSP.B $02 0A9E9B 33 _2300 0A9E9C 32 04 ADDSP.B $04 0A9E9E 34 RETURN ; ---------------- End Function $0A9E4A ---------------- ; ---------------- Begin 2144 Function $0A9EA0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; addr bytes opcode operands comment 0A9EA7 31 2A SUBSP.B $2A 0A9EA9 C0 35 91 READ.B $3591 0A9EAC 18 06 BRZ $006 ; => $0A9EB4 0A9EAE C0 35 91 READ.B $3591 0A9EB1 D0 4E 51 WRITE.B $4E51 0A9EB4 C0 5A 5A READ.B $5A5A 0A9EB7 50 PUSH.6 $10 0A9EB8 2F MOD.L 0A9EB9 05 00 PUSH.10 $100 0A9EBB 29 MUL.L 0A9EBC C0 5A 59 READ.B $5A59 0A9EBF 27 ADD.L 0A9EC0 95 29 WRITE.W $29 0A9EC2 85 29 READ.W $29 0A9EC4 C1 35 95 READ.W $3595 0A9EC7 2B NEQ.L 0A9EC8 C1 35 95 READ.W $3595 0A9ECB 3C FF FF PUSH.W $FFFF 0A9ECE 2B NEQ.L 0A9ECF 2C AND.L 0A9ED0 18 02 BRZ $002 ; => $0A9ED4 0A9ED2 11 E1 BR $1E1 ; => $0AA0B5 0A9ED4 85 29 READ.W $29 0A9ED6 D1 5A CD WRITE.W $5ACD 0A9ED9 C0 5A 56 READ.B $5A56 0A9EDC 48 PUSH.6 $08 0A9EDD 2F MOD.L 0A9EDE D0 5A CA WRITE.B $5ACA 0A9EE1 C0 5A 5A READ.B $5A5A 0A9EE4 50 PUSH.6 $10 0A9EE5 03 24 DIV.L 0A9EE7 94 26 WRITE.B $26 0A9EE9 C0 5A 56 READ.B $5A56 0A9EEC 48 PUSH.6 $08 0A9EED 03 24 DIV.L 0A9EEF 94 03 WRITE.B $03 0A9EF1 C0 55 A2 READ.B $55A2 0A9EF4 19 BF BRZ $1BF ; => $0AA0B5 0A9EF6 84 26 READ.B $26 0A9EF8 35 SWITCH 0A9EF9 21 72 01 09 CASE $01, $09 ; SWITCH $0A9EF8 0A9EFD 84 26 READ.B $26 0A9EFF 41 PUSH.6 $01 0A9F00 2A EQ.L 0A9F01 18 13 BRZ $013 ; => $0A9F16 0A9F03 41 PUSH.6 $01 0A9F04 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0A9F07 60 PUSH.6 $20 0A9F08 38 00 0B BLS.B $000B ; => $0A9F16 0A9F0B 84 01 READ.B $01 0A9F0D 3E PUSH.W $0000 0A9F0E F3 5C CD WRITE.F $5CCD 0A9F11 37 10 01 00 0F _23d2 $0001, $000F 0A9F16 43 PUSH.6 $03 0A9F17 84 03 READ.B $03 0A9F19 29 MUL.L 0A9F1A 45 PUSH.6 $05 0A9F1B 03 24 DIV.L 0A9F1D 94 02 WRITE.B $02 0A9F1F 84 26 READ.B $26 0A9F21 41 PUSH.6 $01 0A9F22 2A EQ.L 0A9F23 18 11 BRZ $011 ; => $0A9F36 0A9F25 C0 5A DB READ.B $5ADB 0A9F28 84 02 READ.B $02 0A9F2A 2B NEQ.L 0A9F2B 18 09 BRZ $009 ; => $0A9F36 0A9F2D 84 02 READ.B $02 0A9F2F D0 5A DB WRITE.B $5ADB 0A9F32 40 PUSH.6 $00 0A9F33 D0 5C F2 WRITE.B $5CF2 0A9F36 3B 3F E3 33 33 33 33 33 33 PUSH.F $3FE3333333333333 ; float = 0.600000 0A9F3F C0 5A 58 READ.B $5A58 0A9F42 60 PUSH.6 $20 0A9F43 29 MUL.L 0A9F44 C0 5A 57 READ.B $5A57 0A9F47 48 PUSH.6 $08 0A9F48 03 24 DIV.L 0A9F4A 27 ADD.L 0A9F4B 03 2A LONG2FLOAT 0A9F4D 22 MUL.F 0A9F4E 97 0D WRITE.F $0D 0A9F50 C3 60 3B READ.F $603B 0A9F53 97 25 WRITE.F $25 0A9F55 87 25 READ.F $25 0A9F57 3B 40 AC 20 00 00 00 00 00 PUSH.F $40AC200000000000 ; float = 3600.000000 0A9F60 23 DIV.F 0A9F61 30 03 42 BSR.68K $0342 ; => $0A9C22 => $002CA6 (NATIVE) 0A9F64 97 1D WRITE.F $1D 0A9F66 87 25 READ.F $25 0A9F68 3B 40 AC 20 00 00 00 00 00 PUSH.F $40AC200000000000 ; float = 3600.000000 0A9F71 87 1D READ.F $1D 0A9F73 22 MUL.F 0A9F74 21 SUB.F 0A9F75 97 25 WRITE.F $25 0A9F77 87 0D READ.F $0D 0A9F79 87 25 READ.F $25 0A9F7B 21 SUB.F 0A9F7C 3B 40 9C 20 00 00 00 00 00 PUSH.F $409C200000000000 ; float = 1800.000000 0A9F85 24 GT.F 0A9F86 18 10 BRZ $010 ; => $0A9F98 0A9F88 87 1D READ.F $1D 0A9F8A 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A9F93 21 SUB.F 0A9F94 97 1D WRITE.F $1D 0A9F96 10 1F BR $01F ; => $0A9FB7 0A9F98 87 25 READ.F $25 0A9F9A 87 0D READ.F $0D 0A9F9C 21 SUB.F 0A9F9D 3B 40 9C 20 00 00 00 00 00 PUSH.F $409C200000000000 ; float = 1800.000000 0A9FA6 24 GT.F 0A9FA7 18 0E BRZ $00E ; => $0A9FB7 0A9FA9 87 1D READ.F $1D 0A9FAB 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0A9FB4 20 ADD.F 0A9FB5 97 1D WRITE.F $1D 0A9FB7 87 0D READ.F $0D 0A9FB9 3B 40 AC 20 00 00 00 00 00 PUSH.F $40AC200000000000 ; float = 3600.000000 0A9FC2 87 1D READ.F $1D 0A9FC4 22 MUL.F 0A9FC5 20 ADD.F 0A9FC6 97 15 WRITE.F $15 0A9FC8 41 PUSH.6 $01 0A9FC9 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0A9FCC 84 02 READ.B $02 0A9FCE 38 00 9A BLS.B $009A ; => $0AA06B 0A9FD1 45 PUSH.6 $05 0A9FD2 84 01 READ.B $01 0A9FD4 29 MUL.L 0A9FD5 41 PUSH.6 $01 0A9FD6 27 ADD.L 0A9FD7 94 04 WRITE.B $04 0A9FD9 84 04 READ.B $04 0A9FDB E0 5A 5B READ.B $5A5B 0A9FDE 60 PUSH.6 $20 0A9FDF 2F MOD.L 0A9FE0 94 00 WRITE.B $00 0A9FE2 84 00 READ.B $00 0A9FE4 40 PUSH.6 $00 0A9FE5 2A EQ.L 0A9FE6 18 03 BRZ $003 ; => $0A9FEB 0A9FE8 60 PUSH.6 $20 0A9FE9 94 00 WRITE.B $00 0A9FEB 84 26 READ.B $26 0A9FED 41 PUSH.6 $01 0A9FEE 2A EQ.L 0A9FEF 18 07 BRZ $007 ; => $0A9FF8 0A9FF1 84 01 READ.B $01 0A9FF3 84 00 READ.B $00 0A9FF5 F0 5A DB WRITE.B $5ADB 0A9FF8 84 26 READ.B $26 0A9FFA 41 PUSH.6 $01 0A9FFB 2A EQ.L 0A9FFC 84 00 READ.B $00 0A9FFE E3 5C CD READ.F $5CCD 0AA001 3E PUSH.W $0000 0AA002 03 23 NEQ.F 0AA004 2D OR.L 0AA005 18 5F BRZ $05F ; => $0AA066 0AA007 84 00 READ.B $00 0AA009 87 15 READ.F $15 0AA00B F3 5C CD WRITE.F $5CCD 0AA00E 84 00 READ.B $00 0AA010 84 04 READ.B $04 0AA012 E0 5A 5B READ.B $5A5B 0AA015 60 PUSH.6 $20 0AA016 03 24 DIV.L 0AA018 F0 5A FD WRITE.B $5AFD 0AA01B 84 00 READ.B $00 0AA01D 05 00 PUSH.10 $100 0AA01F 84 04 READ.B $04 0AA021 41 PUSH.6 $01 0AA022 27 ADD.L 0AA023 E0 5A 5B READ.B $5A5B 0AA026 29 MUL.L 0AA027 84 04 READ.B $04 0AA029 42 PUSH.6 $02 0AA02A 27 ADD.L 0AA02B E0 5A 5B READ.B $5A5B 0AA02E 27 ADD.L 0AA02F F1 5B 61 WRITE.W $5B61 0AA032 84 00 READ.B $00 0AA034 84 04 READ.B $04 0AA036 43 PUSH.6 $03 0AA037 27 ADD.L 0AA038 E0 5A 5B READ.B $5A5B 0AA03B F0 5B 83 WRITE.B $5B83 0AA03E 84 04 READ.B $04 0AA040 44 PUSH.6 $04 0AA041 27 ADD.L 0AA042 E0 5A 5B READ.B $5A5B 0AA045 94 05 WRITE.B $05 0AA047 84 00 READ.B $00 0AA049 E0 5B 1F READ.B $5B1F 0AA04C 84 05 READ.B $05 0AA04E 2B NEQ.L 0AA04F 18 15 BRZ $015 ; => $0AA066 0AA051 40 PUSH.6 $00 0AA052 D0 5C F2 WRITE.B $5CF2 0AA055 84 00 READ.B $00 0AA057 84 00 READ.B $00 0AA059 E0 5B 1F READ.B $5B1F 0AA05C F0 5C F1 WRITE.B $5CF1 0AA05F 84 00 READ.B $00 0AA061 84 05 READ.B $05 0AA063 F0 5B 1F WRITE.B $5B1F 0AA066 37 10 01 00 9F _23d2 $0001, $009F 0AA06B 10 48 BR $048 ; => $0AA0B5 0AA06D 10 45 02 CASE $02 ; SWITCH $0A9EF8 0AA070 43 PUSH.6 $03 0AA071 84 03 READ.B $03 0AA073 29 MUL.L 0AA074 42 PUSH.6 $02 0AA075 03 24 DIV.L 0AA077 94 02 WRITE.B $02 0AA079 84 02 READ.B $02 0AA07B C0 5A DB READ.B $5ADB 0AA07E 2A EQ.L 0AA07F 18 31 BRZ $031 ; => $0AA0B2 0AA081 41 PUSH.6 $01 0AA082 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0AA085 84 02 READ.B $02 0AA087 38 00 23 BLS.B $0023 ; => $0AA0AD 0AA08A 84 01 READ.B $01 0AA08C E0 5A DB READ.B $5ADB 0AA08F 05 00 PUSH.10 $100 0AA091 42 PUSH.6 $02 0AA092 84 01 READ.B $01 0AA094 29 MUL.L 0AA095 44 PUSH.6 $04 0AA096 27 ADD.L 0AA097 E0 5A 5B READ.B $5A5B 0AA09A 29 MUL.L 0AA09B 42 PUSH.6 $02 0AA09C 84 01 READ.B $01 0AA09E 29 MUL.L 0AA09F 45 PUSH.6 $05 0AA0A0 27 ADD.L 0AA0A1 E0 5A 5B READ.B $5A5B 0AA0A4 27 ADD.L 0AA0A5 F1 5B C5 WRITE.W $5BC5 0AA0A8 37 10 01 00 28 _23d2 $0001, $0028 0AA0AD 04 FF PUSH.10 $0FF 0AA0AF D0 5C F2 WRITE.B $5CF2 0AA0B2 10 01 BR $001 ; => $0AA0B5 0AA0B4 00 DEFAULT ; SWITCH $0A9EF8 0AA0B5 32 2A ADDSP.B $2A 0AA0B7 34 RETURN ; ---------------- End Function $0A9EA0 ---------------- ; ---------------- Begin 2144 Function $0AA0B8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09A458:$09A4F3 ; called from $0AA1C6:$0AA23D ; called from $0AA1C6:$0AA253 ; called from $0AA1C6:$0AA2E4 ; addr bytes opcode operands comment 0AA0BF 30 04 A6 BSR.68K $04A6 ; => $0A9C1C => $0034AA (CLEARSCREEN) (NATIVE) 0AA0C2 30 04 B5 BSR.68K $04B5 ; => $0A9C10 => $099642 0AA0C5 80 22 READ.B $22 0AA0C7 35 SWITCH 0AA0C8 10 32 00 CASE $00 ; SWITCH $0AA0C7 0AA0CB 40 PUSH.6 $00 0AA0CC 3F 20 52 54 43 4D 31 30 34 DISP "RTCM104-DIFF GPSPORT BEEP STAT'N" 2D 44 49 46 46 20 47 50 53 50 4F 52 54 20 42 45 45 50 20 53 54 41 54 27 4E 0AA0EE 4E PUSH.6 $0E 0AA0EF 90 2B WRITE.B $2B 0AA0F1 47 PUSH.6 $07 0AA0F2 90 2C WRITE.B $2C 0AA0F4 43 PUSH.6 $03 0AA0F5 90 2D WRITE.B $2D 0AA0F7 4E PUSH.6 $0E 0AA0F8 90 2E WRITE.B $2E 0AA0FA 10 C8 BR $0C8 ; => $0AA1C4 0AA0FC 10 47 01 CASE $01 ; SWITCH $0AA0C7 0AA0FF 40 PUSH.6 $00 0AA100 3F 20 20 44 49 46 46 20 47 DISP " DIFF GPS PORT 1 2 OFF " 50 53 20 50 4F 52 54 20 20 20 20 31 20 20 20 32 20 20 20 20 20 4F 46 46 20 0AA122 46 PUSH.6 $06 0AA123 90 2B WRITE.B $2B 0AA125 46 PUSH.6 $06 0AA126 90 2C WRITE.B $2C 0AA128 4E PUSH.6 $0E 0AA129 90 2E WRITE.B $2E 0AA12B C0 29 73 READ.B $2973 0AA12E 41 PUSH.6 $01 0AA12F 2A EQ.L 0AA130 18 03 BRZ $003 ; => $0AA135 0AA132 51 PUSH.6 $11 0AA133 10 0B BR $00B ; => $0AA140 0AA135 C0 29 73 READ.B $2973 0AA138 42 PUSH.6 $02 0AA139 2A EQ.L 0AA13A 18 03 BRZ $003 ; => $0AA13F 0AA13C 55 PUSH.6 $15 0AA13D 10 01 BR $001 ; => $0AA140 0AA13F 5B PUSH.6 $1B 0AA140 6A PUSH.6 $2A 0AA141 B0 1F WRITE.B $1F 0AA143 10 7F BR $07F ; => $0AA1C4 0AA145 10 44 02 CASE $02 ; SWITCH $0AA0C7 0AA148 40 PUSH.6 $00 0AA149 3F 20 52 54 43 4D 20 52 45 DISP "RTCM REF STATIONALL 0000" 46 20 53 54 41 54 49 4F 4E 41 4C 4C 20 20 20 20 20 20 20 20 20 30 30 30 30 0AA16B C1 35 95 READ.W $3595 0AA16E 3C FF FF PUSH.W $FFFF 0AA171 2A EQ.L 0AA172 18 05 BRZ $005 ; => $0AA179 0AA174 6A PUSH.6 $2A 0AA175 90 0C WRITE.B $0C 0AA177 10 0A BR $00A ; => $0AA183 0AA179 5C PUSH.6 $1C 0AA17A 44 PUSH.6 $04 0AA17B C1 35 95 READ.W $3595 0AA17E 03 2A LONG2FLOAT 0AA180 30 05 49 BSR.68K $0549 ; => $0A9C3A => $097AD2 0AA183 5C PUSH.6 $1C 0AA184 90 26 WRITE.B $26 0AA186 4E PUSH.6 $0E 0AA187 90 2B WRITE.B $2B 0AA189 10 39 BR $039 ; => $0AA1C4 0AA18B 10 36 03 CASE $03 ; SWITCH $0AA0C7 0AA18E 40 PUSH.6 $00 0AA18F 3F 20 52 54 43 4D 31 30 34 DISP "RTCM104 BEEPER= LESS MORE" 20 42 45 45 50 45 52 3D 20 4C 45 53 53 20 20 20 20 20 20 20 20 4D 4F 52 45 0AA1B1 70 PUSH.6 $30 0AA1B2 C0 35 91 READ.B $3591 0AA1B5 42 PUSH.6 $02 0AA1B6 03 24 DIV.L 0AA1B8 27 ADD.L 0AA1B9 90 10 WRITE.B $10 0AA1BB 4E PUSH.6 $0E 0AA1BC 90 2B WRITE.B $2B 0AA1BE 4E PUSH.6 $0E 0AA1BF 90 2E WRITE.B $2E 0AA1C1 10 01 BR $001 ; => $0AA1C4 0AA1C3 00 DEFAULT ; SWITCH $0AA0C7 0AA1C4 34 RETURN ; ---------------- End Function $0AA0B8 ---------------- ; ---------------- Begin 2144 Function $0AA1C6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB77 ; addr bytes opcode operands comment 0AA1CD 31 02 SUBSP.B $02 0AA1CF 80 22 READ.B $22 0AA1D1 35 SWITCH 0AA1D2 10 23 00 CASE $00 ; SWITCH $0AA1D1 0AA1D5 80 20 READ.B $20 0AA1D7 35 SWITCH 0AA1D8 10 06 10 CASE $10 ; SWITCH $0AA1D7 0AA1DB 41 PUSH.6 $01 0AA1DC 90 22 WRITE.B $22 0AA1DE 10 15 BR $015 ; => $0AA1F5 0AA1E0 20 07 50 90 CASE $50, $90 ; SWITCH $0AA1D7 0AA1E4 43 PUSH.6 $03 0AA1E5 90 22 WRITE.B $22 0AA1E7 10 0C BR $00C ; => $0AA1F5 0AA1E9 10 06 D0 CASE $D0 ; SWITCH $0AA1D7 0AA1EC 42 PUSH.6 $02 0AA1ED 90 22 WRITE.B $22 0AA1EF 10 04 BR $004 ; => $0AA1F5 0AA1F1 00 DEFAULT ; SWITCH $0AA1D7 0AA1F2 30 05 DF BSR.68K $05DF ; => $0A9C16 => $09D9DE 0AA1F5 10 E7 BR $0E7 ; => $0AA2DE 0AA1F7 10 32 01 CASE $01 ; SWITCH $0AA1D1 0AA1FA 80 20 READ.B $20 0AA1FC 35 SWITCH 0AA1FD 10 06 02 CASE $02 ; SWITCH $0AA1FC 0AA200 40 PUSH.6 $00 0AA201 90 22 WRITE.B $22 0AA203 10 24 BR $024 ; => $0AA229 0AA205 10 07 10 CASE $10 ; SWITCH $0AA1FC 0AA208 41 PUSH.6 $01 0AA209 D0 29 73 WRITE.B $2973 0AA20C 10 1B BR $01B ; => $0AA229 0AA20E 10 07 50 CASE $50 ; SWITCH $0AA1FC 0AA211 42 PUSH.6 $02 0AA212 D0 29 73 WRITE.B $2973 0AA215 10 12 BR $012 ; => $0AA229 0AA217 10 07 D0 CASE $D0 ; SWITCH $0AA1FC 0AA21A 40 PUSH.6 $00 0AA21B D0 29 73 WRITE.B $2973 0AA21E 10 09 BR $009 ; => $0AA229 0AA220 10 03 90 CASE $90 ; SWITCH $0AA1FC 0AA223 10 04 BR $004 ; => $0AA229 0AA225 00 DEFAULT ; SWITCH $0AA1FC 0AA226 30 06 13 BSR.68K $0613 ; => $0A9C16 => $09D9DE 0AA229 10 B3 BR $0B3 ; => $0AA2DE 0AA22B 10 65 02 CASE $02 ; SWITCH $0AA1D1 0AA22E 80 20 READ.B $20 0AA230 35 SWITCH 0AA231 10 17 02 CASE $02 ; SWITCH $0AA230 0AA234 80 26 READ.B $26 0AA236 5C PUSH.6 $1C 0AA237 2A EQ.L 0AA238 18 0B BRZ $00B ; => $0AA245 0AA23A 40 PUSH.6 $00 0AA23B 90 22 WRITE.B $22 0AA23D 30 01 88 BSR.68K $0188 ; => $0AA0B8 0AA240 60 PUSH.6 $20 0AA241 90 26 WRITE.B $26 0AA243 10 03 BR $003 ; => $0AA248 0AA245 5C PUSH.6 $1C 0AA246 90 26 WRITE.B $26 0AA248 10 23 BR $023 ; => $0AA26D 0AA24A 10 0C 10 CASE $10 ; SWITCH $0AA230 0AA24D 3C FF FF PUSH.W $FFFF 0AA250 D1 35 95 WRITE.W $3595 0AA253 30 01 9E BSR.68K $019E ; => $0AA0B8 0AA256 10 15 BR $015 ; => $0AA26D 0AA258 30 05 50 90 D0 CASE $50, $90, $D0 ; SWITCH $0AA230 0AA25D 10 0E BR $00E ; => $0AA26D 0AA25F 10 06 04 CASE $04 ; SWITCH $0AA230 0AA262 61 PUSH.6 $21 0AA263 90 26 WRITE.B $26 0AA265 10 06 BR $006 ; => $0AA26D 0AA267 00 DEFAULT ; SWITCH $0AA230 0AA268 30 06 2B BSR.68K $062B ; => $0A9C40 => $09DFB4 0AA26B 94 00 WRITE.B $00 0AA26D 80 26 READ.B $26 0AA26F 35 SWITCH 0AA270 10 13 21 CASE $21 ; SWITCH $0AA26F 0AA273 80 0C READ.B $0C 0AA275 6A PUSH.6 $2A 0AA276 2B NEQ.L 0AA277 18 08 BRZ $008 ; => $0AA281 0AA279 5C PUSH.6 $1C 0AA27A 5F PUSH.6 $1F 0AA27B 30 06 4A BSR.68K $064A ; => $0A9C34 => $09E0C4 0AA27E D1 35 95 WRITE.W $3595 0AA281 17 B7 BR $-49 ; => $0AA23A 0AA283 10 09 BR $009 ; => $0AA28E 0AA285 10 06 1D CASE $1D ; SWITCH $0AA26F 0AA288 60 PUSH.6 $20 0AA289 90 0C WRITE.B $0C 0AA28B 10 01 BR $001 ; => $0AA28E 0AA28D 00 DEFAULT ; SWITCH $0AA26F 0AA28E 10 57 BR $057 ; => $0AA2E7 0AA290 10 4C BR $04C ; => $0AA2DE 0AA292 10 49 03 CASE $03 ; SWITCH $0AA1D1 0AA295 80 20 READ.B $20 0AA297 35 SWITCH 0AA298 10 06 02 CASE $02 ; SWITCH $0AA297 0AA29B 40 PUSH.6 $00 0AA29C 90 22 WRITE.B $22 0AA29E 10 3B BR $03B ; => $0AA2DB 0AA2A0 10 16 10 CASE $10 ; SWITCH $0AA297 0AA2A3 C0 35 91 READ.B $3591 0AA2A6 18 0E BRZ $00E ; => $0AA2B6 0AA2A8 C0 35 91 READ.B $3591 0AA2AB 42 PUSH.6 $02 0AA2AC 28 SUB.L 0AA2AD D0 35 91 WRITE.B $3591 0AA2B0 C0 35 91 READ.B $3591 0AA2B3 D0 4E 51 WRITE.B $4E51 0AA2B6 10 23 BR $023 ; => $0AA2DB 0AA2B8 10 15 D0 CASE $D0 ; SWITCH $0AA297 0AA2BB C0 35 91 READ.B $3591 0AA2BE 52 PUSH.6 $12 0AA2BF 03 26 GT.L 0AA2C1 18 08 BRZ $008 ; => $0AA2CB 0AA2C3 C0 35 91 READ.B $3591 0AA2C6 42 PUSH.6 $02 0AA2C7 27 ADD.L 0AA2C8 D0 35 91 WRITE.B $3591 0AA2CB 17 E3 BR $-1D ; => $0AA2B0 0AA2CD 10 0C BR $00C ; => $0AA2DB 0AA2CF 20 06 50 90 CASE $50, $90 ; SWITCH $0AA297 0AA2D3 17 DB BR $-25 ; => $0AA2B0 0AA2D5 10 04 BR $004 ; => $0AA2DB 0AA2D7 00 DEFAULT ; SWITCH $0AA297 0AA2D8 30 06 C5 BSR.68K $06C5 ; => $0A9C16 => $09D9DE 0AA2DB 10 01 BR $001 ; => $0AA2DE 0AA2DD 00 DEFAULT ; SWITCH $0AA1D1 0AA2DE 80 21 READ.B $21 0AA2E0 76 PUSH.6 $36 0AA2E1 2A EQ.L 0AA2E2 18 03 BRZ $003 ; => $0AA2E7 0AA2E4 30 02 2F BSR.68K $022F ; => $0AA0B8 0AA2E7 32 02 ADDSP.B $02 0AA2E9 34 RETURN ; ---------------- End Function $0AA1C6 ---------------- ; ---------------- Begin 2164 Function $0AA32C ---------------- ; P0 = $0030; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $2F; D1 = $000008 ; called from $0909E2:$090A95 ; called from $090C30:$090DC4 ; called from $094A10:$094A70 ; called from $0986B2:$0986FE ; called from $0986B2:$09871C ; called from $0986B2:$098739 ; called from $0986B2:$09875D ; called from $098A2C:$098A62 ; called from $098A2C:$098A83 ; called from $098B98:$098C0E ; called from $098B98:$098CA1 ; called from $098B98:$09900C ; called from $098B98:$099056 ; called from $0A2C0A:$0A2D3C ; called from $0A3310:$0A343D ; called from $0A3BE6:$0A3D13 ; addr bytes opcode operands comment 0AA335 87 0F READ.F $0F 0AA337 87 27 READ.F $27 0AA339 21 SUB.F 0AA33A 30 00 3B BSR.68K $003B ; => $0AA302 => $002B72 (NATIVE) 0AA33D 87 17 READ.F $17 0AA33F 87 2F READ.F $2F 0AA341 21 SUB.F 0AA342 30 00 43 BSR.68K $0043 ; => $0AA302 => $002B72 (NATIVE) 0AA345 20 ADD.F 0AA346 87 1F READ.F $1F 0AA348 87 37 READ.F $37 0AA34A 21 SUB.F 0AA34B 30 00 4C BSR.68K $004C ; => $0AA302 => $002B72 (NATIVE) 0AA34E 20 ADD.F 0AA34F 30 00 4A BSR.68K $004A ; => $0AA308 => $002682 (NATIVE) 0AA352 97 07 WRITE.F $07 0AA354 32 30 ADDSP.B $30 0AA356 34 RETURN ; ---------------- End Function $0AA32C ---------------- ; ---------------- Begin 2144 Function $0AA358 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $091BC4:$091BE6 ; called from $0A6E44:$0A7076 ; called from $0AA3C0:$0AA3E6 ; called from $0AA56C:$0AA587 ; called from $0AA56C:$0AA5AA ; addr bytes opcode operands comment 0AA35F 31 30 SUBSP.B $30 0AA361 C3 4E 1B READ.F $4E1B 0AA364 30 00 65 BSR.68K $0065 ; => $0AA302 => $002B72 (NATIVE) 0AA367 C3 4E 23 READ.F $4E23 0AA36A 30 00 6B BSR.68K $006B ; => $0AA302 => $002B72 (NATIVE) 0AA36D 20 ADD.F 0AA36E C3 4E 2B READ.F $4E2B 0AA371 30 00 72 BSR.68K $0072 ; => $0AA302 => $002B72 (NATIVE) 0AA374 20 ADD.F 0AA375 30 00 70 BSR.68K $0070 ; => $0AA308 => $002682 (NATIVE) 0AA378 97 07 WRITE.F $07 0AA37A 83 C7 READ.F $C7 0AA37C 83 CF READ.F $CF 0AA37E 20 ADD.F 0AA37F 87 07 READ.F $07 0AA381 20 ADD.F 0AA382 41 PUSH.6 $01 0AA383 30 00 6C BSR.68K $006C ; => $0AA31A => $002BEA (NATIVE) 0AA386 97 0F WRITE.F $0F 0AA388 87 0F READ.F $0F 0AA38A 83 C7 READ.F $C7 0AA38C 21 SUB.F 0AA38D 87 0F READ.F $0F 0AA38F 83 CF READ.F $CF 0AA391 21 SUB.F 0AA392 22 MUL.F 0AA393 87 0F READ.F $0F 0AA395 87 07 READ.F $07 0AA397 21 SUB.F 0AA398 22 MUL.F 0AA399 87 0F READ.F $0F 0AA39B 23 DIV.F 0AA39C 30 00 97 BSR.68K $0097 ; => $0AA308 => $002682 (NATIVE) 0AA39F 97 17 WRITE.F $17 0AA3A1 87 17 READ.F $17 0AA3A3 87 0F READ.F $0F 0AA3A5 87 07 READ.F $07 0AA3A7 21 SUB.F 0AA3A8 30 00 9D BSR.68K $009D ; => $0AA30E => $0032A8 (NATIVE) 0AA3AB 41 PUSH.6 $01 0AA3AC 30 00 9B BSR.68K $009B ; => $0AA314 => $002BAE (NATIVE) 0AA3AF 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0AA3B8 21 SUB.F 0AA3B9 D3 56 15 WRITE.F $5615 0AA3BC 32 30 ADDSP.B $30 0AA3BE 34 RETURN ; ---------------- End Function $0AA358 ---------------- ; ---------------- Begin 2164 Function $0AA3C0 ---------------- ; P0 = $0008; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $7; D1 = $000008 ; called from $0ABAD2:$0ABB19 ; called from $0ABAD2:$0ABB2A ; addr bytes opcode operands comment 0AA3C9 86 0F READ.L $0F 0AA3CB 18 0E BRZ $00E ; => $0AA3DB 0AA3CD 86 0B READ.L $0B 0AA3CF C1 29 FD READ.W $29FD 0AA3D2 30 00 EB BSR.68K $00EB ; => $0AA2EA => $094DD8 0AA3D5 40 PUSH.6 $00 0AA3D6 30 00 B9 BSR.68K $00B9 ; => $0AA320 => $0AD08A 0AA3D9 10 0B BR $00B ; => $0AA3E6 0AA3DB 86 0B READ.L $0B 0AA3DD C1 29 FD READ.W $29FD 0AA3E0 30 00 F9 BSR.68K $00F9 ; => $0AA2EA => $094DD8 0AA3E3 30 00 C0 BSR.68K $00C0 ; => $0AA326 => $0AD3AC 0AA3E6 30 00 91 BSR.68K $0091 ; => $0AA358 0AA3E9 C3 56 15 READ.F $5615 0AA3EC 97 07 WRITE.F $07 0AA3EE 32 08 ADDSP.B $08 0AA3F0 34 RETURN ; ---------------- End Function $0AA3C0 ---------------- ; ---------------- Begin 2164 Function $0AA3F2 ---------------- ; P0 = $0014; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $13; D1 = $000008 ; called from $096572:$09658D ; addr bytes opcode operands comment 0AA3FB 86 1B READ.L $1B 0AA3FD 05 00 PUSH.10 $100 0AA3FF 86 17 READ.L $17 0AA401 05 00 PUSH.10 $100 0AA403 86 13 READ.L $13 0AA405 05 00 PUSH.10 $100 0AA407 86 0F READ.L $0F 0AA409 29 MUL.L 0AA40A 27 ADD.L 0AA40B 29 MUL.L 0AA40C 27 ADD.L 0AA40D 29 MUL.L 0AA40E 27 ADD.L 0AA40F 03 2A LONG2FLOAT 0AA411 86 0B READ.L $0B 0AA413 03 2A LONG2FLOAT 0AA415 60 PUSH.6 $20 0AA416 30 01 05 BSR.68K $0105 ; => $0AA314 => $002BAE (NATIVE) 0AA419 20 ADD.F 0AA41A 97 07 WRITE.F $07 0AA41C 32 14 ADDSP.B $14 0AA41E 34 RETURN ; ---------------- End Function $0AA3F2 ---------------- ; ---------------- Begin 2164 Function $0AA420 ---------------- ; P0 = $0018; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $17; D1 = $000008 ; called from $0A1C82:$0A1DFC ; called from $0A6E44:$0A7070 ; called from $0AA56C:$0AA590 ; called from $0AA56C:$0AA5B3 ; addr bytes opcode operands comment 0AA429 31 4A SUBSP.B $4A 0AA42B 83 4F READ.F $4F 0AA42D 3E PUSH.W $0000 0AA42E 26 EQ.F 0AA42F 83 57 READ.F $57 0AA431 3E PUSH.W $0000 0AA432 26 EQ.F 0AA433 2C AND.L 0AA434 94 50 WRITE.B $50 0AA436 84 50 READ.B $50 0AA438 18 27 BRZ $027 ; => $0AA461 0AA43A C3 4E 23 READ.F $4E23 0AA43D C3 4E 1B READ.F $4E1B 0AA440 30 01 35 BSR.68K $0135 ; => $0AA30E => $0032A8 (NATIVE) 0AA443 97 07 WRITE.F $07 0AA445 87 07 READ.F $07 0AA447 3E PUSH.W $0000 0AA448 03 21 LT.F 0AA44A 18 08 BRZ $008 ; => $0AA454 0AA44C 87 07 READ.F $07 0AA44E 42 PUSH.6 $02 0AA44F 03 2A LONG2FLOAT 0AA451 20 ADD.F 0AA452 97 07 WRITE.F $07 0AA454 87 07 READ.F $07 0AA456 87 0F 00 READ.F $0F 0AA459 87 1B 00 READ.F $1B 0AA45C 30 01 63 BSR.68K $0163 ; => $0AA2FC => $002E62 (NATIVE) 0AA45F 11 06 BR $106 ; => $0AA567 0AA461 83 5F READ.F $5F 0AA463 3E PUSH.W $0000 0AA464 03 23 NEQ.F 0AA466 18 1E BRZ $01E ; => $0AA486 0AA468 83 4F READ.F $4F 0AA46A 03 20 NEG.W 0AA46C 97 37 WRITE.F $37 0AA46E 83 57 READ.F $57 0AA470 03 20 NEG.W 0AA472 97 2F WRITE.F $2F 0AA474 83 4F READ.F $4F 0AA476 30 01 77 BSR.68K $0177 ; => $0AA302 => $002B72 (NATIVE) 0AA479 83 57 READ.F $57 0AA47B 30 01 7C BSR.68K $017C ; => $0AA302 => $002B72 (NATIVE) 0AA47E 20 ADD.F 0AA47F 83 5F READ.F $5F 0AA481 23 DIV.F 0AA482 97 27 WRITE.F $27 0AA484 10 0B BR $00B ; => $0AA491 0AA486 3E PUSH.W $0000 0AA487 97 37 WRITE.F $37 0AA489 3E PUSH.W $0000 0AA48A 97 2F WRITE.F $2F 0AA48C 41 PUSH.6 $01 0AA48D 03 2A LONG2FLOAT 0AA48F 97 27 WRITE.F $27 0AA491 87 37 READ.F $37 0AA493 30 01 94 BSR.68K $0194 ; => $0AA302 => $002B72 (NATIVE) 0AA496 87 2F READ.F $2F 0AA498 30 01 99 BSR.68K $0199 ; => $0AA302 => $002B72 (NATIVE) 0AA49B 20 ADD.F 0AA49C 87 27 READ.F $27 0AA49E 30 01 9F BSR.68K $019F ; => $0AA302 => $002B72 (NATIVE) 0AA4A1 20 ADD.F 0AA4A2 30 01 9D BSR.68K $019D ; => $0AA308 => $002682 (NATIVE) 0AA4A5 97 69 WRITE.F $69 0AA4A7 83 4F READ.F $4F 0AA4A9 C3 4E 1B READ.F $4E1B 0AA4AC 22 MUL.F 0AA4AD 83 57 READ.F $57 0AA4AF C3 4E 23 READ.F $4E23 0AA4B2 22 MUL.F 0AA4B3 20 ADD.F 0AA4B4 83 5F READ.F $5F 0AA4B6 C3 4E 2B READ.F $4E2B 0AA4B9 22 MUL.F 0AA4BA 20 ADD.F 0AA4BB 83 BF READ.F $BF 0AA4BD 23 DIV.F 0AA4BE 03 20 NEG.W 0AA4C0 97 59 WRITE.F $59 0AA4C2 C3 4E 1B READ.F $4E1B 0AA4C5 87 59 READ.F $59 0AA4C7 83 4F READ.F $4F 0AA4C9 22 MUL.F 0AA4CA 20 ADD.F 0AA4CB 97 4F WRITE.F $4F 0AA4CD C3 4E 23 READ.F $4E23 0AA4D0 87 59 READ.F $59 0AA4D2 83 57 READ.F $57 0AA4D4 22 MUL.F 0AA4D5 20 ADD.F 0AA4D6 97 47 WRITE.F $47 0AA4D8 C3 4E 2B READ.F $4E2B 0AA4DB 87 59 READ.F $59 0AA4DD 83 5F READ.F $5F 0AA4DF 22 MUL.F 0AA4E0 20 ADD.F 0AA4E1 97 3F WRITE.F $3F 0AA4E3 87 4F READ.F $4F 0AA4E5 30 01 E6 BSR.68K $01E6 ; => $0AA302 => $002B72 (NATIVE) 0AA4E8 87 47 READ.F $47 0AA4EA 30 01 EB BSR.68K $01EB ; => $0AA302 => $002B72 (NATIVE) 0AA4ED 20 ADD.F 0AA4EE 87 3F READ.F $3F 0AA4F0 30 01 F1 BSR.68K $01F1 ; => $0AA302 => $002B72 (NATIVE) 0AA4F3 20 ADD.F 0AA4F4 30 01 EF BSR.68K $01EF ; => $0AA308 => $002682 (NATIVE) 0AA4F7 97 61 WRITE.F $61 0AA4F9 87 37 READ.F $37 0AA4FB 87 4F READ.F $4F 0AA4FD 22 MUL.F 0AA4FE 87 2F READ.F $2F 0AA500 87 47 READ.F $47 0AA502 22 MUL.F 0AA503 20 ADD.F 0AA504 87 27 READ.F $27 0AA506 87 3F READ.F $3F 0AA508 22 MUL.F 0AA509 20 ADD.F 0AA50A 87 69 READ.F $69 0AA50C 87 61 READ.F $61 0AA50E 22 MUL.F 0AA50F 23 DIV.F 0AA510 97 1B WRITE.F $1B 0AA512 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AA51B 87 1B READ.F $1B 0AA51D 30 02 1E BSR.68K $021E ; => $0AA302 => $002B72 (NATIVE) 0AA520 21 SUB.F 0AA521 30 02 1C BSR.68K $021C ; => $0AA308 => $002682 (NATIVE) 0AA524 97 0F WRITE.F $0F 0AA526 83 4F READ.F $4F 0AA528 C3 4E 23 READ.F $4E23 0AA52B 22 MUL.F 0AA52C 83 57 READ.F $57 0AA52E C3 4E 1B READ.F $4E1B 0AA531 22 MUL.F 0AA532 03 21 LT.F 0AA534 18 06 BRZ $006 ; => $0AA53C 0AA536 87 0F READ.F $0F 0AA538 03 20 NEG.W 0AA53A 97 0F WRITE.F $0F 0AA53C 83 5F READ.F $5F 0AA53E 3E PUSH.W $0000 0AA53F 03 21 LT.F 0AA541 18 06 BRZ $006 ; => $0AA549 0AA543 87 1B READ.F $1B 0AA545 03 20 NEG.W 0AA547 97 1B WRITE.F $1B 0AA549 87 0F READ.F $0F 0AA54B 87 1B READ.F $1B 0AA54D 30 02 42 BSR.68K $0242 ; => $0AA30E => $0032A8 (NATIVE) 0AA550 97 07 WRITE.F $07 0AA552 87 07 READ.F $07 0AA554 3E PUSH.W $0000 0AA555 03 21 LT.F 0AA557 18 0E BRZ $00E ; => $0AA567 0AA559 3B 40 00 00 00 00 00 00 00 PUSH.F $4000000000000000 ; float = 2.000000 0AA562 87 07 READ.F $07 0AA564 20 ADD.F 0AA565 97 07 WRITE.F $07 0AA567 32 4A ADDSP.B $4A 0AA569 33 _2300 0AA56A 33 _2300 0AA56B 34 RETURN ; ---------------- End Function $0AA420 ---------------- ; ---------------- Begin 2144 Function $0AA56C ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AA64A:$0AA678 ; addr bytes opcode operands comment 0AA573 84 00 READ.B $00 0AA575 E1 18 9B READ.W $189B 0AA578 40 PUSH.6 $00 0AA579 2B NEQ.L 0AA57A 18 1B BRZ $01B ; => $0AA597 0AA57C 84 00 READ.B $00 0AA57E C1 29 FD READ.W $29FD 0AA581 87 09 READ.F $09 0AA583 40 PUSH.6 $00 0AA584 30 02 67 BSR.68K $0267 ; => $0AA320 => $0AD08A 0AA587 30 02 32 BSR.68K $0232 ; => $0AA358 0AA58A 87 11 00 READ.F $11 0AA58D 87 11 00 READ.F $11 0AA590 30 01 73 BSR.68K $0173 ; => $0AA420 0AA593 97 19 WRITE.F $19 0AA595 10 4B BR $04B ; => $0AA5E2 0AA597 84 00 READ.B $00 0AA599 E1 01 61 READ.W $0161 0AA59C 40 PUSH.6 $00 0AA59D 2B NEQ.L 0AA59E 18 1A BRZ $01A ; => $0AA5BA 0AA5A0 84 00 READ.B $00 0AA5A2 C1 29 FD READ.W $29FD 0AA5A5 87 09 READ.F $09 0AA5A7 30 02 84 BSR.68K $0284 ; => $0AA326 => $0AD3AC 0AA5AA 30 02 55 BSR.68K $0255 ; => $0AA358 0AA5AD 87 11 00 READ.F $11 0AA5B0 87 11 00 READ.F $11 0AA5B3 30 01 96 BSR.68K $0196 ; => $0AA420 0AA5B6 97 19 WRITE.F $19 0AA5B8 10 28 BR $028 ; => $0AA5E2 0AA5BA 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0AA5C3 03 20 NEG.W 0AA5C5 D3 56 15 WRITE.F $5615 0AA5C8 3E PUSH.W $0000 0AA5C9 97 19 WRITE.F $19 0AA5CB 3E PUSH.W $0000 0AA5CC D3 4E 1B WRITE.F $4E1B 0AA5CF 3E PUSH.W $0000 0AA5D0 D3 4E 23 WRITE.F $4E23 0AA5D3 3E PUSH.W $0000 0AA5D4 D3 4E 2B WRITE.F $4E2B 0AA5D7 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AA5E0 93 CF WRITE.F $CF 0AA5E2 84 00 READ.B $00 0AA5E4 C3 56 15 READ.F $5615 0AA5E7 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0AA5F0 22 MUL.F 0AA5F1 F3 23 FF WRITE.F $23FF 0AA5F4 84 00 READ.B $00 0AA5F6 87 19 READ.F $19 0AA5F8 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0AA601 22 MUL.F 0AA602 F3 25 07 WRITE.F $2507 0AA605 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AA60E 83 CF READ.F $CF 0AA610 23 DIV.F 0AA611 97 21 WRITE.F $21 0AA613 84 00 READ.B $00 0AA615 43 PUSH.6 $03 0AA616 29 MUL.L 0AA617 40 PUSH.6 $00 0AA618 27 ADD.L 0AA619 C3 4E 1B READ.F $4E1B 0AA61C 83 4F READ.F $4F 0AA61E 21 SUB.F 0AA61F 87 21 READ.F $21 0AA621 22 MUL.F 0AA622 F3 28 1F WRITE.F $281F 0AA625 84 00 READ.B $00 0AA627 43 PUSH.6 $03 0AA628 29 MUL.L 0AA629 41 PUSH.6 $01 0AA62A 27 ADD.L 0AA62B C3 4E 23 READ.F $4E23 0AA62E 83 57 READ.F $57 0AA630 21 SUB.F 0AA631 87 21 READ.F $21 0AA633 22 MUL.F 0AA634 F3 28 1F WRITE.F $281F 0AA637 84 00 READ.B $00 0AA639 43 PUSH.6 $03 0AA63A 29 MUL.L 0AA63B 42 PUSH.6 $02 0AA63C 27 ADD.L 0AA63D C3 4E 2B READ.F $4E2B 0AA640 83 5F READ.F $5F 0AA642 21 SUB.F 0AA643 87 21 READ.F $21 0AA645 22 MUL.F 0AA646 F3 28 1F WRITE.F $281F 0AA649 34 RETURN ; ---------------- End Function $0AA56C ---------------- ; ---------------- Begin 2144 Function $0AA64A ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AA682:$0AA6A0 ; called from $0AA682:$0AA6B3 ; called from $0AA682:$0AA6B6 ; called from $0AA682:$0AA6BB ; addr bytes opcode operands comment 0AA651 C0 22 F7 READ.B $22F7 0AA654 94 00 WRITE.B $00 0AA656 84 00 READ.B $00 0AA658 41 PUSH.6 $01 0AA659 27 ADD.L 0AA65A 61 PUSH.6 $21 0AA65B 2F MOD.L 0AA65C 94 00 WRITE.B $00 0AA65E 84 00 READ.B $00 0AA660 E1 01 61 READ.W $0161 0AA663 40 PUSH.6 $00 0AA664 2B NEQ.L 0AA665 84 00 READ.B $00 0AA667 E1 18 9B READ.W $189B 0AA66A 40 PUSH.6 $00 0AA66B 2B NEQ.L 0AA66C 2D OR.L 0AA66D 84 00 READ.B $00 0AA66F 40 PUSH.6 $00 0AA670 2A EQ.L 0AA671 2D OR.L 0AA672 1F E2 BRZ $-1E ; => $0AA656 0AA674 84 00 READ.B $00 0AA676 18 03 BRZ $003 ; => $0AA67B 0AA678 30 01 0F BSR.68K $010F ; => $0AA56C 0AA67B 84 00 READ.B $00 0AA67D D0 22 F7 WRITE.B $22F7 0AA680 34 RETURN ; ---------------- End Function $0AA64A ---------------- ; ---------------- Begin 2144 Function $0AA682 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7BA ; called from $09DD4E:$09DDCC ; called from $09DD4E:$09DF91 ; called from $0AF21A:$0AF2AD ; addr bytes opcode operands comment 0AA689 31 22 SUBSP.B $22 0AA68B 30 03 A4 BSR.68K $03A4 ; => $0AA2EA => $094DD8 0AA68E 97 09 WRITE.F $09 0AA690 C0 22 F6 READ.B $22F6 0AA693 C1 29 0F READ.W $290F 0AA696 7C PUSH.6 $3C 0AA697 03 25 LT.L 0AA699 2D OR.L 0AA69A 18 10 BRZ $010 ; => $0AA6AC 0AA69C 40 PUSH.6 $00 0AA69D D0 22 F7 WRITE.B $22F7 0AA6A0 30 00 59 BSR.68K $0059 ; => $0AA64A 0AA6A3 C0 22 F7 READ.B $22F7 0AA6A6 40 PUSH.6 $00 0AA6A7 2A EQ.L 0AA6A8 1F F6 BRZ $-0A ; => $0AA6A0 0AA6AA 10 12 BR $012 ; => $0AA6BE 0AA6AC C1 29 0F READ.W $290F 0AA6AF 40 PUSH.6 $00 0AA6B0 2B NEQ.L 0AA6B1 18 08 BRZ $008 ; => $0AA6BB 0AA6B3 30 00 6C BSR.68K $006C ; => $0AA64A 0AA6B6 30 00 6F BSR.68K $006F ; => $0AA64A 0AA6B9 10 03 BR $003 ; => $0AA6BE 0AA6BB 30 00 74 BSR.68K $0074 ; => $0AA64A 0AA6BE 40 PUSH.6 $00 0AA6BF D0 22 F6 WRITE.B $22F6 0AA6C2 04 FF PUSH.10 $0FF 0AA6C4 D0 4E 66 WRITE.B $4E66 0AA6C7 80 21 READ.B $21 0AA6C9 41 PUSH.6 $01 0AA6CA 2A EQ.L 0AA6CB 18 05 BRZ $005 ; => $0AA6D2 0AA6CD 04 FF PUSH.10 $0FF 0AA6CF D0 4E 63 WRITE.B $4E63 0AA6D2 40 PUSH.6 $00 0AA6D3 D0 4E 66 WRITE.B $4E66 0AA6D6 32 22 ADDSP.B $22 0AA6D8 34 RETURN ; ---------------- End Function $0AA682 ---------------- ; ---------------- Begin 2144 Function $0AA6E6 ---------------- ; A0 = $004004; (A0) = SP + $17 ; called from $0A6E44:$0A6FFE ; called from $0AD08A:$0AD28E ; called from $0AD3AC:$0AD4C6 ; called from $0AD4F0:$0AD842 ; addr bytes opcode operands comment 0AA6ED 87 07 READ.F $07 0AA6EF D3 4E 1B WRITE.F $4E1B 0AA6F2 87 0F READ.F $0F 0AA6F4 D3 4E 23 WRITE.F $4E23 0AA6F7 87 17 READ.F $17 0AA6F9 D3 4E 2B WRITE.F $4E2B 0AA6FC C3 4E 1B READ.F $4E1B 0AA6FF 83 4F READ.F $4F 0AA701 21 SUB.F 0AA702 30 00 2B BSR.68K $002B ; => $0AA6DA => $002B72 (NATIVE) 0AA705 C3 4E 23 READ.F $4E23 0AA708 83 57 READ.F $57 0AA70A 21 SUB.F 0AA70B 30 00 34 BSR.68K $0034 ; => $0AA6DA => $002B72 (NATIVE) 0AA70E 20 ADD.F 0AA70F C3 4E 2B READ.F $4E2B 0AA712 83 5F READ.F $5F 0AA714 21 SUB.F 0AA715 30 00 3E BSR.68K $003E ; => $0AA6DA => $002B72 (NATIVE) 0AA718 20 ADD.F 0AA719 30 00 3C BSR.68K $003C ; => $0AA6E0 => $002682 (NATIVE) 0AA71C 93 CF WRITE.F $CF 0AA71E 32 18 ADDSP.B $18 0AA720 34 RETURN ; ---------------- End Function $0AA6E6 ---------------- ; ---------------- Begin 2144 Function $0AA734 ---------------- ; A0 = $004004; (A0) = SP + $17 ; called from $09097E:$0909A7 ; called from $0A0A50:$0A0A86 ; called from $0A0D2E:$0A0D89 ; called from $0A0D2E:$0A0E15 ; called from $0A947A:$0A94B6 ; called from $0A96E2:$0A9790 ; called from $0A96E2:$0A97E3 ; addr bytes opcode operands comment 0AA73B 31 10 SUBSP.B $10 0AA73D 87 07 READ.F $07 0AA73F 93 37 WRITE.F $37 0AA741 87 0F READ.F $0F 0AA743 93 3F WRITE.F $3F 0AA745 87 17 READ.F $17 0AA747 93 47 WRITE.F $47 0AA749 83 37 READ.F $37 0AA74B 83 87 00 READ.F $87 0AA74E 83 8F 00 READ.F $8F 0AA751 30 00 26 BSR.68K $0026 ; => $0AA72E => $002E62 (NATIVE) 0AA754 83 3F READ.F $3F 0AA756 83 97 00 READ.F $97 0AA759 83 9F 00 READ.F $9F 0AA75C 30 00 31 BSR.68K $0031 ; => $0AA72E => $002E62 (NATIVE) 0AA75F C3 29 C7 READ.F $29C7 0AA762 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AA76B C3 29 CF READ.F $29CF 0AA76E 83 87 READ.F $87 0AA770 30 00 51 BSR.68K $0051 ; => $0AA722 => $002B72 (NATIVE) 0AA773 22 MUL.F 0AA774 21 SUB.F 0AA775 30 00 50 BSR.68K $0050 ; => $0AA728 => $002682 (NATIVE) 0AA778 23 DIV.F 0AA779 97 1F WRITE.F $1F 0AA77B 87 1F READ.F $1F 0AA77D 83 47 READ.F $47 0AA77F 20 ADD.F 0AA780 83 8F READ.F $8F 0AA782 22 MUL.F 0AA783 97 27 WRITE.F $27 0AA785 87 27 READ.F $27 0AA787 83 9F READ.F $9F 0AA789 22 MUL.F 0AA78A 93 4F WRITE.F $4F 0AA78C 87 27 READ.F $27 0AA78E 83 97 READ.F $97 0AA790 22 MUL.F 0AA791 93 57 WRITE.F $57 0AA793 87 1F READ.F $1F 0AA795 83 47 READ.F $47 0AA797 20 ADD.F 0AA798 87 1F READ.F $1F 0AA79A C3 29 CF READ.F $29CF 0AA79D 22 MUL.F 0AA79E 21 SUB.F 0AA79F 83 87 READ.F $87 0AA7A1 22 MUL.F 0AA7A2 93 5F WRITE.F $5F 0AA7A4 83 4F READ.F $4F 0AA7A6 30 00 87 BSR.68K $0087 ; => $0AA722 => $002B72 (NATIVE) 0AA7A9 93 A7 WRITE.F $A7 0AA7AB 83 57 READ.F $57 0AA7AD 30 00 8E BSR.68K $008E ; => $0AA722 => $002B72 (NATIVE) 0AA7B0 93 AF WRITE.F $AF 0AA7B2 83 5F READ.F $5F 0AA7B4 30 00 95 BSR.68K $0095 ; => $0AA722 => $002B72 (NATIVE) 0AA7B7 93 B7 WRITE.F $B7 0AA7B9 83 A7 READ.F $A7 0AA7BB 83 AF READ.F $AF 0AA7BD 20 ADD.F 0AA7BE 83 B7 READ.F $B7 0AA7C0 20 ADD.F 0AA7C1 93 BF WRITE.F $BF 0AA7C3 83 BF READ.F $BF 0AA7C5 30 00 A0 BSR.68K $00A0 ; => $0AA728 => $002682 (NATIVE) 0AA7C8 93 C7 WRITE.F $C7 0AA7CA 32 28 ADDSP.B $28 0AA7CC 34 RETURN ; ---------------- End Function $0AA734 ---------------- ; ---------------- Begin 2144 Function $0AA80A ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AA8CC:$0AA9EB ; addr bytes opcode operands comment 0AA811 31 02 SUBSP.B $02 0AA813 87 23 READ.F $23 0AA815 3E PUSH.W $0000 0AA816 03 23 NEQ.F 0AA818 18 A0 BRZ $0A0 ; => $0AA8BA 0AA81A C0 4E 69 READ.B $4E69 0AA81D 18 51 BRZ $051 ; => $0AA870 0AA81F 04 FF PUSH.10 $0FF 0AA821 D0 4E 94 WRITE.B $4E94 0AA824 03 30 1A 2A 2A 2A 20 54 45 TRAP1 "*** TEST MODE ENABLED *** " 53 54 20 4D 4F 44 45 20 45 4E 41 42 4C 45 44 20 2A 2A 2A 20 0AA841 30 00 58 BSR.68K $0058 ; => $0AA7EC => $094E22 0AA844 30 00 67 BSR.68K $0067 ; => $0AA7E0 => $0A03BC 0AA847 03 30 09 20 43 48 41 4E 4E TRAP1 " CHANNEL " 45 4C 20 0AA853 C0 51 00 READ.B $5100 0AA856 42 PUSH.6 $02 0AA857 30 00 62 BSR.68K $0062 ; => $0AA7F8 => $0A0036 0AA85A 03 30 0B 20 53 45 54 20 54 TRAP1 " SET TIME: " 49 4D 45 3A 20 0AA868 87 23 READ.F $23 0AA86A 30 00 6F BSR.68K $006F ; => $0AA7FE => $0A57D4 0AA86D 30 00 7E BSR.68K $007E ; => $0AA7F2 => $0A05A4 (NATIVE) 0AA870 C0 29 E0 READ.B $29E0 0AA873 43 PUSH.6 $03 0AA874 2A EQ.L 0AA875 18 1E BRZ $01E ; => $0AA895 0AA877 87 23 READ.F $23 0AA879 3E PUSH.W $0000 0AA87A 24 GT.F 0AA87B 18 06 BRZ $006 ; => $0AA883 0AA87D 87 23 READ.F $23 0AA87F 03 29 FLOAT2LONG 0AA881 10 08 BR $008 ; => $0AA88B 0AA883 40 PUSH.6 $00 0AA884 87 23 READ.F $23 0AA886 03 20 NEG.W 0AA888 03 29 FLOAT2LONG 0AA88A 28 SUB.L 0AA88B D2 56 2D WRITE.L $562D 0AA88E 04 FF PUSH.10 $0FF 0AA890 D0 6B CE WRITE.B $6BCE 0AA893 10 25 BR $025 ; => $0AA8BA 0AA895 C0 51 00 READ.B $5100 0AA898 98 00 WRITE.B $00 0AA89A 30 00 99 BSR.68K $0099 ; => $0AA804 => $094E42 0AA89D C0 35 4C READ.B $354C 0AA8A0 D0 51 00 WRITE.B $5100 0AA8A3 87 23 READ.F $23 0AA8A5 88 00 READ.B $00 0AA8A7 E3 47 C7 READ.F $47C7 0AA8AA 20 ADD.F 0AA8AB C0 51 00 READ.B $5100 0AA8AE E3 47 C7 READ.F $47C7 0AA8B1 21 SUB.F 0AA8B2 30 00 CF BSR.68K $00CF ; => $0AA7E6 => $095216 0AA8B5 88 00 READ.B $00 0AA8B7 D0 51 00 WRITE.B $5100 0AA8BA C0 29 2C READ.B $292C 0AA8BD C0 67 EC READ.B $67EC 0AA8C0 2D OR.L 0AA8C1 18 05 BRZ $005 ; => $0AA8C8 0AA8C3 04 FF PUSH.10 $0FF 0AA8C5 D0 55 A2 WRITE.B $55A2 0AA8C8 32 02 ADDSP.B $02 0AA8CA 34 RETURN ; ---------------- End Function $0AA80A ---------------- ; ---------------- Begin 2144 Function $0AA8CC ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0018F8:$00197B ; addr bytes opcode operands comment 0AA8D3 31 30 SUBSP.B $30 0AA8D5 C0 52 05 READ.B $5205 0AA8D8 04 96 PUSH.10 $096 0AA8DA 03 26 GT.L 0AA8DC C2 56 2D READ.L $562D 0AA8DF 40 PUSH.6 $00 0AA8E0 2A EQ.L 0AA8E1 2C AND.L 0AA8E2 19 0A BRZ $10A ; => $0AA9EE 0AA8E4 C0 52 05 READ.B $5205 0AA8E7 05 00 PUSH.10 $100 0AA8E9 29 MUL.L 0AA8EA C0 52 04 READ.B $5204 0AA8ED 27 ADD.L 0AA8EE 05 00 PUSH.10 $100 0AA8F0 29 MUL.L 0AA8F1 C0 52 03 READ.B $5203 0AA8F4 27 ADD.L 0AA8F5 05 00 PUSH.10 $100 0AA8F7 29 MUL.L 0AA8F8 C0 52 02 READ.B $5202 0AA8FB 27 ADD.L 0AA8FC 03 2A LONG2FLOAT 0AA8FE 97 0B WRITE.F $0B 0AA900 C0 52 01 READ.B $5201 0AA903 05 00 PUSH.10 $100 0AA905 29 MUL.L 0AA906 C0 52 00 READ.B $5200 0AA909 27 ADD.L 0AA90A 03 2A LONG2FLOAT 0AA90C 3B 40 CF F8 00 00 00 00 00 PUSH.F $40CFF80000000000 ; float = 16368.000000 0AA915 23 DIV.F 0AA916 97 33 WRITE.F $33 0AA918 86 03 READ.L $03 0AA91A E2 01 E5 READ.L $01E5 0AA91D 03 2A LONG2FLOAT 0AA91F 86 03 READ.L $03 0AA921 E2 07 B7 READ.L $07B7 0AA924 03 2A LONG2FLOAT 0AA926 21 SUB.F 0AA927 97 13 WRITE.F $13 0AA929 87 13 READ.F $13 0AA92B 3B 41 12 75 00 00 00 00 00 PUSH.F $4112750000000000 ; float = 302400.000000 0AA934 24 GT.F 0AA935 18 0E BRZ $00E ; => $0AA945 0AA937 87 13 READ.F $13 0AA939 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0AA942 21 SUB.F 0AA943 97 13 WRITE.F $13 0AA945 87 13 READ.F $13 0AA947 3B 41 12 75 00 00 00 00 00 PUSH.F $4112750000000000 ; float = 302400.000000 0AA950 03 20 NEG.W 0AA952 03 21 LT.F 0AA954 18 0E BRZ $00E ; => $0AA964 0AA956 87 13 READ.F $13 0AA958 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0AA961 20 ADD.F 0AA962 97 13 WRITE.F $13 0AA964 86 03 READ.L $03 0AA966 E3 07 33 READ.F $0733 0AA969 86 03 READ.L $03 0AA96B E3 06 2B READ.F $062B 0AA96E 87 13 READ.F $13 0AA970 22 MUL.F 0AA971 20 ADD.F 0AA972 86 03 READ.L $03 0AA974 E3 05 23 READ.F $0523 0AA977 87 13 READ.F $13 0AA979 22 MUL.F 0AA97A 87 13 READ.F $13 0AA97C 22 MUL.F 0AA97D 20 ADD.F 0AA97E D3 55 AD WRITE.F $55AD 0AA981 86 03 READ.L $03 0AA983 E2 01 E5 READ.L $01E5 0AA986 03 2A LONG2FLOAT 0AA988 C3 55 AD READ.F $55AD 0AA98B 21 SUB.F 0AA98C 97 1B WRITE.F $1B 0AA98E 86 03 READ.L $03 0AA990 C1 29 FD READ.W $29FD 0AA993 87 1B READ.F $1B 0AA995 40 PUSH.6 $00 0AA996 40 PUSH.6 $00 0AA997 30 01 C0 BSR.68K $01C0 ; => $0AA7DA => $0AD4F0 0AA99A 87 0B READ.F $0B 0AA99C 87 33 READ.F $33 0AA99E 20 ADD.F 0AA99F 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 0AA9A8 87 1B READ.F $1B 0AA9AA 22 MUL.F 0AA9AB 21 SUB.F 0AA9AC C0 67 EC READ.B $67EC 0AA9AF C0 29 2C READ.B $292C 0AA9B2 40 PUSH.6 $00 0AA9B3 2A EQ.L 0AA9B4 2C AND.L 0AA9B5 C0 56 6E READ.B $566E 0AA9B8 C0 56 C6 READ.B $56C6 0AA9BB 2C AND.L 0AA9BC 2E NOT.L 0AA9BD 2C AND.L 0AA9BE 18 0B BRZ $00B ; => $0AA9CB 0AA9C0 3B 40 53 26 66 66 66 66 66 PUSH.F $4053266666666666 ; float = 76.600000 0AA9C9 10 0C BR $00C ; => $0AA9D7 0AA9CB 83 CF READ.F $CF 0AA9CD 3B 3E CB FB 3C 01 A3 07 FA PUSH.F $3ECBFB3C01A307FA ; float = 0.000003 0AA9D6 22 MUL.F 0AA9D7 21 SUB.F 0AA9D8 97 2B WRITE.F $2B 0AA9DA 87 2B READ.F $2B 0AA9DC 30 02 11 BSR.68K $0211 ; => $0AA7CE => $002C08 (NATIVE) 0AA9DF D3 56 5D WRITE.F $565D 0AA9E2 87 2B READ.F $2B 0AA9E4 30 02 13 BSR.68K $0213 ; => $0AA7D4 => $002CA6 (NATIVE) 0AA9E7 03 20 NEG.W 0AA9E9 97 23 WRITE.F $23 0AA9EB 30 01 E4 BSR.68K $01E4 ; => $0AA80A 0AA9EE 32 34 ADDSP.B $34 0AA9F0 34 RETURN ; ---------------- End Function $0AA8CC ---------------- ; ---------------- Begin 2144 Function $0AAA16 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DBCF ; addr bytes opcode operands comment 0AAA1D 80 20 READ.B $20 0AAA1F 35 SWITCH 0AAA20 40 12 10 50 90 D0 CASE $10, $50, $90, $D0 ; SWITCH $0AAA1F 0AAA26 80 22 READ.B $22 0AAA28 41 PUSH.6 $01 0AAA29 27 ADD.L 0AAA2A C0 5A DB READ.B $5ADB 0AAA2D 41 PUSH.6 $01 0AAA2E 27 ADD.L 0AAA2F 2F MOD.L 0AAA30 90 22 WRITE.B $22 0AAA32 10 04 BR $004 ; => $0AAA38 0AAA34 00 DEFAULT ; SWITCH $0AAA1F 0AAA35 30 00 34 BSR.68K $0034 ; => $0AAA04 => $09D9DE 0AAA38 34 RETURN ; ---------------- End Function $0AAA16 ---------------- ; ---------------- Begin 2144 Function $0AAA3A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $097420:$09745F ; called from $0976BA:$097775 ; addr bytes opcode operands comment 0AAA41 31 18 SUBSP.B $18 0AAA43 80 21 READ.B $21 0AAA45 77 PUSH.6 $37 0AAA46 2A EQ.L 0AAA47 19 DF BRZ $1DF ; => $0AAC28 0AAA49 80 22 READ.B $22 0AAA4B 19 79 BRZ $179 ; => $0AABC6 0AAA4D 40 PUSH.6 $00 0AAA4E 3F 20 50 52 43 2B 30 30 30 DISP "PRC+0000 $T 234RRC+0000 Hx SV " 30 20 20 24 54 20 32 33 34 52 52 43 2B 30 30 30 30 20 48 78 20 53 56 20 20 0AAA70 80 22 READ.B $22 0AAA72 E0 5A DB READ.B $5ADB 0AAA75 94 00 WRITE.B $00 0AAA77 84 00 READ.B $00 0AAA79 E0 5A FD READ.B $5AFD 0AAA7C 94 01 WRITE.B $01 0AAA7E 84 01 READ.B $01 0AAA80 45 PUSH.6 $05 0AAA81 03 26 GT.L 0AAA83 18 06 BRZ $006 ; => $0AAA8B 0AAA85 84 01 READ.B $01 0AAA87 41 PUSH.6 $01 0AAA88 27 ADD.L 0AAA89 10 01 BR $001 ; => $0AAA8C 0AAA8B 46 PUSH.6 $06 0AAA8C 94 02 WRITE.B $02 0AAA8E 84 00 READ.B $00 0AAA90 E1 5B 61 READ.W $5B61 0AAA93 95 07 WRITE.W $07 0AAA95 85 07 READ.W $07 0AAA97 3C 80 00 PUSH.W $8000 0AAA9A 2C AND.L 0AAA9B 40 PUSH.6 $00 0AAA9C 2A EQ.L 0AAA9D 18 08 BRZ $008 ; => $0AAAA7 0AAA9F 85 07 READ.W $07 0AAAA1 03 2A LONG2FLOAT 0AAAA3 03 20 NEG.W 0AAAA5 10 0A BR $00A ; => $0AAAB1 0AAAA7 3D 00 01 00 00 PUSH.L $00010000 0AAAAC 85 07 READ.W $07 0AAAAE 28 SUB.L 0AAAAF 03 2A LONG2FLOAT 0AAAB1 84 02 READ.B $02 0AAAB3 30 00 AC BSR.68K $00AC ; => $0AAA0A => $002BAE (NATIVE) 0AAAB6 97 0F WRITE.F $0F 0AAAB8 87 0F READ.F $0F 0AAABA 3E PUSH.W $0000 0AAABB 03 21 LT.F 0AAABD 18 09 BRZ $009 ; => $0AAAC8 0AAABF 6D PUSH.6 $2D 0AAAC0 90 1C WRITE.B $1C 0AAAC2 87 0F READ.F $0F 0AAAC4 03 20 NEG.W 0AAAC6 97 0F WRITE.F $0F 0AAAC8 45 PUSH.6 $05 0AAAC9 94 04 WRITE.B $04 0AAACB 87 0F READ.F $0F 0AAACD 3B 40 C3 88 00 00 00 00 00 PUSH.F $40C3880000000000 ; float = 10000.000000 0AAAD6 25 GTE.F 0AAAD7 18 2B BRZ $02B ; => $0AAB04 0AAAD9 84 04 READ.B $04 0AAADB 41 PUSH.6 $01 0AAADC 27 ADD.L 0AAADD 94 04 WRITE.B $04 0AAADF 87 0F READ.F $0F 0AAAE1 3B 3F B9 99 99 99 99 99 9A PUSH.F $3FB999999999999A ; float = 0.100000 0AAAEA 22 MUL.F 0AAAEB 97 0F WRITE.F $0F 0AAAED 84 04 READ.B $04 0AAAEF 47 PUSH.6 $07 0AAAF0 03 25 LT.L 0AAAF2 18 0E BRZ $00E ; => $0AAB02 0AAAF4 47 PUSH.6 $07 0AAAF5 94 04 WRITE.B $04 0AAAF7 3B 40 C3 87 80 00 00 00 00 PUSH.F $40C3878000000000 ; float = 9999.000000 0AAB00 97 0F WRITE.F $0F 0AAB02 17 C7 BR $-39 ; => $0AAACB 0AAB04 44 PUSH.6 $04 0AAB05 44 PUSH.6 $04 0AAB06 87 0F READ.F $0F 0AAB08 30 01 19 BSR.68K $0119 ; => $0AA9F2 => $097AD2 0AAB0B 84 04 READ.B $04 0AAB0D 30 01 12 BSR.68K $0112 ; => $0AA9FE => $097B5C 0AAB10 C3 60 3B READ.F $603B 0AAB13 84 00 READ.B $00 0AAB15 E3 5C CD READ.F $5CCD 0AAB18 21 SUB.F 0AAB19 30 01 0C BSR.68K $010C ; => $0AAA10 => $002CA6 (NATIVE) 0AAB1C 97 17 WRITE.F $17 0AAB1E 87 17 READ.F $17 0AAB20 3E PUSH.W $0000 0AAB21 03 21 LT.F 0AAB23 18 28 BRZ $028 ; => $0AAB4D 0AAB25 6D PUSH.6 $2D 0AAB26 90 12 WRITE.B $12 0AAB28 87 17 READ.F $17 0AAB2A 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 0AAB33 03 20 NEG.W 0AAB35 03 22 LTE.F 0AAB37 18 0B BRZ $00B ; => $0AAB44 0AAB39 3B 40 58 C0 00 00 00 00 00 PUSH.F $4058C00000000000 ; float = 99.000000 0AAB42 97 17 WRITE.F $17 0AAB44 4E PUSH.6 $0E 0AAB45 42 PUSH.6 $02 0AAB46 87 17 READ.F $17 0AAB48 30 01 59 BSR.68K $0159 ; => $0AA9F2 => $097AD2 0AAB4B 10 32 BR $032 ; => $0AAB7F 0AAB4D 87 17 READ.F $17 0AAB4F 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 0AAB58 25 GTE.F 0AAB59 18 0B BRZ $00B ; => $0AAB66 0AAB5B 3B 40 8F 38 00 00 00 00 00 PUSH.F $408F380000000000 ; float = 999.000000 0AAB64 97 17 WRITE.F $17 0AAB66 4D PUSH.6 $0D 0AAB67 43 PUSH.6 $03 0AAB68 87 17 READ.F $17 0AAB6A 30 01 7B BSR.68K $017B ; => $0AA9F2 => $097AD2 0AAB6D 80 12 READ.B $12 0AAB6F 70 PUSH.6 $30 0AAB70 2A EQ.L 0AAB71 18 0C BRZ $00C ; => $0AAB7F 0AAB73 60 PUSH.6 $20 0AAB74 90 12 WRITE.B $12 0AAB76 80 11 READ.B $11 0AAB78 70 PUSH.6 $30 0AAB79 2A EQ.L 0AAB7A 18 03 BRZ $003 ; => $0AAB7F 0AAB7C 60 PUSH.6 $20 0AAB7D 90 11 WRITE.B $11 0AAB7F 84 00 READ.B $00 0AAB81 E0 5B 83 READ.B $5B83 0AAB84 94 03 WRITE.B $03 0AAB86 84 03 READ.B $03 0AAB88 04 80 PUSH.10 $080 0AAB8A 2C AND.L 0AAB8B 18 09 BRZ $009 ; => $0AAB96 0AAB8D 05 00 PUSH.10 $100 0AAB8F 84 03 READ.B $03 0AAB91 28 SUB.L 0AAB92 03 2A LONG2FLOAT 0AAB94 10 06 BR $006 ; => $0AAB9C 0AAB96 84 03 READ.B $03 0AAB98 03 2A LONG2FLOAT 0AAB9A 03 20 NEG.W 0AAB9C 84 02 READ.B $02 0AAB9E 30 01 97 BSR.68K $0197 ; => $0AAA0A => $002BAE (NATIVE) 0AABA1 97 0F WRITE.F $0F 0AABA3 87 0F READ.F $0F 0AABA5 3E PUSH.W $0000 0AABA6 03 21 LT.F 0AABA8 18 03 BRZ $003 ; => $0AABAD 0AABAA 6D PUSH.6 $2D 0AABAB 90 0C WRITE.B $0C 0AABAD 54 PUSH.6 $14 0AABAE 44 PUSH.6 $04 0AABAF 87 0F READ.F $0F 0AABB1 30 01 C2 BSR.68K $01C2 ; => $0AA9F2 => $097AD2 0AABB4 54 PUSH.6 $14 0AABB5 30 01 BA BSR.68K $01BA ; => $0AA9FE => $097B5C 0AABB8 70 PUSH.6 $30 0AABB9 84 01 READ.B $01 0AABBB 27 ADD.L 0AABBC 90 05 WRITE.B $05 0AABBE 5E PUSH.6 $1E 0AABBF 84 00 READ.B $00 0AABC1 30 01 CC BSR.68K $01CC ; => $0AA9F8 => $097B0A 0AABC4 10 44 BR $044 ; => $0AAC0A 0AABC6 40 PUSH.6 $00 0AABC7 3F 20 53 54 4E 20 78 78 78 DISP "STN xxxx xx SVSHEALTH x MORE" 78 20 20 78 78 20 53 56 53 48 45 41 4C 54 48 20 78 20 20 20 20 4D 4F 52 45 0AABE9 44 PUSH.6 $04 0AABEA 44 PUSH.6 $04 0AABEB C1 5A CD READ.W $5ACD 0AABEE 03 2A LONG2FLOAT 0AABF0 30 02 01 BSR.68K $0201 ; => $0AA9F2 => $097AD2 0AABF3 4A PUSH.6 $0A 0AABF4 C0 5A DB READ.B $5ADB 0AABF7 30 02 02 BSR.68K $0202 ; => $0AA9F8 => $097B0A 0AABFA 80 15 READ.B $15 0AABFC 70 PUSH.6 $30 0AABFD 2A EQ.L 0AABFE 18 03 BRZ $003 ; => $0AAC03 0AAC00 60 PUSH.6 $20 0AAC01 90 15 WRITE.B $15 0AAC03 70 PUSH.6 $30 0AAC04 C0 5A CA READ.B $5ACA 0AAC07 27 ADD.L 0AAC08 90 08 WRITE.B $08 0AAC0A 44 PUSH.6 $04 0AAC0B D0 4E 64 WRITE.B $4E64 0AAC0E C0 4E 65 READ.B $4E65 0AAC11 4A PUSH.6 $0A 0AAC12 2F MOD.L 0AAC13 45 PUSH.6 $05 0AAC14 03 25 LT.L 0AAC16 18 10 BRZ $010 ; => $0AAC28 0AAC18 5C PUSH.6 $1C 0AAC19 30 02 1E BSR.68K $021E ; => $0AA9FE => $097B5C 0AAC1C 5D PUSH.6 $1D 0AAC1D 30 02 22 BSR.68K $0222 ; => $0AA9FE => $097B5C 0AAC20 5E PUSH.6 $1E 0AAC21 30 02 26 BSR.68K $0226 ; => $0AA9FE => $097B5C 0AAC24 5F PUSH.6 $1F 0AAC25 30 02 2A BSR.68K $022A ; => $0AA9FE => $097B5C 0AAC28 32 18 ADDSP.B $18 0AAC2A 34 RETURN ; ---------------- End Function $0AAA3A ---------------- ; ---------------- Begin 2144 Function $0AAC62 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AACE2:$0AAD0F ; addr bytes opcode operands comment 0AAC69 C0 60 AC READ.B $60AC 0AAC6C 18 5F BRZ $05F ; => $0AACCD 0AAC6E C0 60 B3 READ.B $60B3 0AAC71 18 07 BRZ $007 ; => $0AAC7A 0AAC73 04 FF PUSH.10 $0FF 0AAC75 D0 60 B5 WRITE.B $60B5 0AAC78 10 16 BR $016 ; => $0AAC90 0AAC7A 40 PUSH.6 $00 0AAC7B D0 60 B5 WRITE.B $60B5 0AAC7E C1 60 A9 READ.W $60A9 0AAC81 41 PUSH.6 $01 0AAC82 27 ADD.L 0AAC83 D1 60 A9 WRITE.W $60A9 0AAC86 C1 60 A5 READ.W $60A5 0AAC89 3C 7F FF PUSH.W $7FFF 0AAC8C 2C AND.L 0AAC8D D1 60 A5 WRITE.W $60A5 0AAC90 40 PUSH.6 $00 0AAC91 D0 60 B3 WRITE.B $60B3 0AAC94 04 FF PUSH.10 $0FF 0AAC96 D0 60 B4 WRITE.B $60B4 0AAC99 40 PUSH.6 $00 0AAC9A 90 25 WRITE.B $25 0AAC9C C1 60 A5 READ.W $60A5 0AAC9F 41 PUSH.6 $01 0AACA0 27 ADD.L 0AACA1 D1 60 A5 WRITE.W $60A5 0AACA4 C1 60 A5 READ.W $60A5 0AACA7 3C 7F FF PUSH.W $7FFF 0AACAA 2C AND.L 0AACAB 07 E7 PUSH.10 $3E7 0AACAD 03 25 LT.L 0AACAF 18 09 BRZ $009 ; => $0AACBA 0AACB1 C1 60 A5 READ.W $60A5 0AACB4 07 E7 PUSH.10 $3E7 0AACB6 28 SUB.L 0AACB7 D1 60 A5 WRITE.W $60A5 0AACBA 40 PUSH.6 $00 0AACBB D1 60 B1 WRITE.W $60B1 0AACBE 40 PUSH.6 $00 0AACBF D0 60 B2 WRITE.B $60B2 0AACC2 50 PUSH.6 $10 0AACC3 D0 4E 51 WRITE.B $4E51 0AACC6 04 FD PUSH.10 $0FD 0AACC8 D0 60 AD WRITE.B $60AD 0AACCB 10 0C BR $00C ; => $0AACD9 0AACCD 40 PUSH.6 $00 0AACCE D0 60 AE WRITE.B $60AE 0AACD1 40 PUSH.6 $00 0AACD2 D1 60 A7 WRITE.W $60A7 0AACD5 4D PUSH.6 $0D 0AACD6 D0 4E 51 WRITE.B $4E51 0AACD9 C0 60 AC READ.B $60AC 0AACDC 2E NOT.L 0AACDD D0 60 AC WRITE.B $60AC 0AACE0 34 RETURN ; ---------------- End Function $0AAC62 ---------------- ; ---------------- Begin 2144 Function $0AACE2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA36:$09DA50 ; called from $0AAEC4:$0AAEF7 ; called from $0AAEC4:$0AAF1C ; called from $0AAEC4:$0AAF24 ; called from $0AC9D0:$0ACAFC ; addr bytes opcode operands comment 0AACE9 C0 35 4D READ.B $354D 0AACEC 45 PUSH.6 $05 0AACED 2A EQ.L 0AACEE 18 27 BRZ $027 ; => $0AAD17 0AACF0 C0 60 B2 READ.B $60B2 0AACF3 C1 60 B1 READ.W $60B1 0AACF6 40 PUSH.6 $00 0AACF7 2B NEQ.L 0AACF8 2C AND.L 0AACF9 C1 60 A7 READ.W $60A7 0AACFC 40 PUSH.6 $00 0AACFD 2B NEQ.L 0AACFE C1 60 A5 READ.W $60A5 0AAD01 40 PUSH.6 $00 0AAD02 2A EQ.L 0AAD03 2D OR.L 0AAD04 C0 60 AC READ.B $60AC 0AAD07 2D OR.L 0AAD08 2C AND.L 0AAD09 C0 60 B3 READ.B $60B3 0AAD0C 2D OR.L 0AAD0D 18 03 BRZ $003 ; => $0AAD12 0AAD0F 30 00 B0 BSR.68K $00B0 ; => $0AAC62 0AAD12 30 00 C5 BSR.68K $00C5 ; => $0AAC50 => $0AC94C 0AAD15 10 0C BR $00C ; => $0AAD23 0AAD17 42 PUSH.6 $02 0AAD18 90 23 WRITE.B $23 0AAD1A 30 00 C7 BSR.68K $00C7 ; => $0AAC56 => $0ACB00 0AAD1D 30 00 C4 BSR.68K $00C4 ; => $0AAC5C => $0034C8 (SETSEGMENTS) (NATIVE) 0AAD20 4C PUSH.6 $0C 0AAD21 90 21 WRITE.B $21 0AAD23 34 RETURN ; ---------------- End Function $0AACE2 ---------------- ; ---------------- Begin 2144 Function $0AAD24 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AAD48:$0AAE42 ; called from $0AAE48:$0AAEBF ; addr bytes opcode operands comment 0AAD2B 40 PUSH.6 $00 0AAD2C 3F 08 20 52 45 54 55 52 4E DISP " RETURN " 20 0AAD36 4D PUSH.6 $0D 0AAD37 3F 03 3E 20 3C DISP "> <" 0AAD3C 4E PUSH.6 $0E 0AAD3D 41 PUSH.6 $01 0AAD3E C0 60 B4 READ.B $60B4 0AAD41 03 2A LONG2FLOAT 0AAD43 30 01 0E BSR.68K $010E ; => $0AAC38 => $097AD2 0AAD46 34 RETURN ; ---------------- End Function $0AAD24 ---------------- ; ---------------- Begin 2144 Function $0AAD48 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AAEC4:$0AAEE2 ; called from $0AAEC4:$0AAFA6 ; called from $0AC94C:$0AC966 ; called from $0AC9D0:$0ACAE7 ; addr bytes opcode operands comment 0AAD4F 31 02 SUBSP.B $02 0AAD51 30 01 16 BSR.68K $0116 ; => $0AAC3E => $0034AA (CLEARSCREEN) (NATIVE) 0AAD54 C1 60 A5 READ.W $60A5 0AAD57 3C 80 00 PUSH.W $8000 0AAD5A 2C AND.L 0AAD5B 40 PUSH.6 $00 0AAD5C 2B NEQ.L 0AAD5D 18 0D BRZ $00D ; => $0AAD6C 0AAD5F 40 PUSH.6 $00 0AAD60 3F 08 53 57 41 50 20 20 20 DISP "SWAP -" 2D 0AAD6A 10 0B BR $00B ; => $0AAD77 0AAD6C 40 PUSH.6 $00 0AAD6D 3F 08 4D 41 52 4B 20 20 20 DISP "MARK -" 2D 0AAD77 50 PUSH.6 $10 0AAD78 3F 07 20 53 54 41 54 49 43 DISP " STATIC" 0AAD81 C0 60 B2 READ.B $60B2 0AAD84 C1 60 B1 READ.W $60B1 0AAD87 40 PUSH.6 $00 0AAD88 2B NEQ.L 0AAD89 2C AND.L 0AAD8A C1 60 A7 READ.W $60A7 0AAD8D 40 PUSH.6 $00 0AAD8E 2B NEQ.L 0AAD8F C1 60 A5 READ.W $60A5 0AAD92 40 PUSH.6 $00 0AAD93 2A EQ.L 0AAD94 2D OR.L 0AAD95 C0 60 AC READ.B $60AC 0AAD98 2D OR.L 0AAD99 2C AND.L 0AAD9A C0 60 B3 READ.B $60B3 0AAD9D 2D OR.L 0AAD9E 18 14 BRZ $014 ; => $0AADB4 0AADA0 59 PUSH.6 $19 0AADA1 3F 04 4D 4F 56 45 DISP "MOVE" 0AADA7 67 PUSH.6 $27 0AADA8 6E PUSH.6 $2E 0AADA9 67 PUSH.6 $27 0AADAA 6B PUSH.6 $2B 0AADAB 40 PUSH.6 $00 0AADAC 40 PUSH.6 $00 0AADAD 40 PUSH.6 $00 0AADAE 40 PUSH.6 $00 0AADAF 30 01 80 BSR.68K $0180 ; => $0AAC32 => $099614 0AADB2 10 12 BR $012 ; => $0AADC6 0AADB4 59 PUSH.6 $19 0AADB5 3F 04 57 41 49 54 DISP "WAIT" 0AADBB 67 PUSH.6 $27 0AADBC 6E PUSH.6 $2E 0AADBD 40 PUSH.6 $00 0AADBE 63 PUSH.6 $23 0AADBF 40 PUSH.6 $00 0AADC0 40 PUSH.6 $00 0AADC1 40 PUSH.6 $00 0AADC2 40 PUSH.6 $00 0AADC3 30 01 94 BSR.68K $0194 ; => $0AAC32 => $099614 0AADC6 80 25 READ.B $25 0AADC8 C1 60 A9 READ.W $60A9 0AADCB 40 PUSH.6 $00 0AADCC 2B NEQ.L 0AADCD 2C AND.L 0AADCE 18 03 BRZ $003 ; => $0AADD3 0AADD0 7E PUSH.6 $3E 0AADD1 90 18 WRITE.B $18 0AADD3 C0 60 AC READ.B $60AC 0AADD6 18 05 BRZ $005 ; => $0AADDD 0AADD8 6A PUSH.6 $2A 0AADD9 90 07 WRITE.B $07 0AADDB 10 03 BR $003 ; => $0AADE0 0AADDD 6A PUSH.6 $2A 0AADDE 90 0F WRITE.B $0F 0AADE0 C1 60 A5 READ.W $60A5 0AADE3 3C 7F FF PUSH.W $7FFF 0AADE6 2C AND.L 0AADE7 95 01 WRITE.W $01 0AADE9 85 01 READ.W $01 0AADEB 04 63 PUSH.10 $063 0AADED 03 25 LT.L 0AADEF 18 26 BRZ $026 ; => $0AAE17 0AADF1 C1 60 A5 READ.W $60A5 0AADF4 3C 80 00 PUSH.W $8000 0AADF7 2C AND.L 0AADF8 40 PUSH.6 $00 0AADF9 2B NEQ.L 0AADFA 18 09 BRZ $009 ; => $0AAE05 0AADFC 40 PUSH.6 $00 0AADFD 3F 04 53 57 50 20 DISP "SWP " 0AAE03 10 07 BR $007 ; => $0AAE0C 0AAE05 40 PUSH.6 $00 0AAE06 3F 04 4D 52 4B 20 DISP "MRK " 0AAE0C 44 PUSH.6 $04 0AAE0D 43 PUSH.6 $03 0AAE0E 85 01 READ.W $01 0AAE10 03 2A LONG2FLOAT 0AAE12 30 01 DD BSR.68K $01DD ; => $0AAC38 => $097AD2 0AAE15 10 09 BR $009 ; => $0AAE20 0AAE17 45 PUSH.6 $05 0AAE18 42 PUSH.6 $02 0AAE19 85 01 READ.W $01 0AAE1B 03 2A LONG2FLOAT 0AAE1D 30 01 E8 BSR.68K $01E8 ; => $0AAC38 => $097AD2 0AAE20 48 PUSH.6 $08 0AAE21 44 PUSH.6 $04 0AAE22 C1 60 A9 READ.W $60A9 0AAE25 03 2A LONG2FLOAT 0AAE27 30 01 F2 BSR.68K $01F2 ; => $0AAC38 => $097AD2 0AAE2A C0 60 AC READ.B $60AC 0AAE2D 2E NOT.L 0AAE2E 18 0D BRZ $00D ; => $0AAE3D 0AAE30 4D PUSH.6 $0D 0AAE31 43 PUSH.6 $03 0AAE32 C1 60 B1 READ.W $60B1 0AAE35 03 2A LONG2FLOAT 0AAE37 30 02 02 BSR.68K $0202 ; => $0AAC38 => $097AD2 0AAE3A 48 PUSH.6 $08 0AAE3B 90 26 WRITE.B $26 0AAE3D C0 60 B3 READ.B $60B3 0AAE40 18 03 BRZ $003 ; => $0AAE45 0AAE42 30 01 21 BSR.68K $0121 ; => $0AAD24 0AAE45 32 02 ADDSP.B $02 0AAE47 34 RETURN ; ---------------- End Function $0AAD48 ---------------- ; ---------------- Begin 2144 Function $0AAE48 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ACB00:$0ACB36 ; addr bytes opcode operands comment 0AAE4F C0 60 AC READ.B $60AC 0AAE52 2E NOT.L 0AAE53 18 55 BRZ $055 ; => $0AAEAA 0AAE55 C0 60 B2 READ.B $60B2 0AAE58 C1 60 B1 READ.W $60B1 0AAE5B 40 PUSH.6 $00 0AAE5C 2B NEQ.L 0AAE5D 2C AND.L 0AAE5E C1 60 A7 READ.W $60A7 0AAE61 40 PUSH.6 $00 0AAE62 2B NEQ.L 0AAE63 C1 60 A5 READ.W $60A5 0AAE66 40 PUSH.6 $00 0AAE67 2A EQ.L 0AAE68 2D OR.L 0AAE69 2C AND.L 0AAE6A C0 60 B3 READ.B $60B3 0AAE6D 2D OR.L 0AAE6E 18 1E BRZ $01E ; => $0AAE8E 0AAE70 80 06 READ.B $06 0AAE72 04 57 PUSH.10 $057 0AAE74 2A EQ.L 0AAE75 18 15 BRZ $015 ; => $0AAE8C 0AAE77 59 PUSH.6 $19 0AAE78 3F 04 4D 4F 56 45 DISP "MOVE" 0AAE7E 67 PUSH.6 $27 0AAE7F 6E PUSH.6 $2E 0AAE80 67 PUSH.6 $27 0AAE81 6B PUSH.6 $2B 0AAE82 40 PUSH.6 $00 0AAE83 40 PUSH.6 $00 0AAE84 40 PUSH.6 $00 0AAE85 40 PUSH.6 $00 0AAE86 30 02 57 BSR.68K $0257 ; => $0AAC32 => $099614 0AAE89 48 PUSH.6 $08 0AAE8A 90 26 WRITE.B $26 0AAE8C 10 1C BR $01C ; => $0AAEAA 0AAE8E 80 06 READ.B $06 0AAE90 04 4D PUSH.10 $04D 0AAE92 2A EQ.L 0AAE93 18 15 BRZ $015 ; => $0AAEAA 0AAE95 59 PUSH.6 $19 0AAE96 3F 04 57 41 49 54 DISP "WAIT" 0AAE9C 67 PUSH.6 $27 0AAE9D 6E PUSH.6 $2E 0AAE9E 40 PUSH.6 $00 0AAE9F 63 PUSH.6 $23 0AAEA0 40 PUSH.6 $00 0AAEA1 40 PUSH.6 $00 0AAEA2 40 PUSH.6 $00 0AAEA3 40 PUSH.6 $00 0AAEA4 30 02 75 BSR.68K $0275 ; => $0AAC32 => $099614 0AAEA7 48 PUSH.6 $08 0AAEA8 90 26 WRITE.B $26 0AAEAA C0 60 AC READ.B $60AC 0AAEAD 2E NOT.L 0AAEAE 18 0A BRZ $00A ; => $0AAEBA 0AAEB0 4D PUSH.6 $0D 0AAEB1 43 PUSH.6 $03 0AAEB2 C1 60 B1 READ.W $60B1 0AAEB5 03 2A LONG2FLOAT 0AAEB7 30 02 82 BSR.68K $0282 ; => $0AAC38 => $097AD2 0AAEBA C0 60 B3 READ.B $60B3 0AAEBD 18 03 BRZ $003 ; => $0AAEC2 0AAEBF 30 01 9E BSR.68K $019E ; => $0AAD24 0AAEC2 34 RETURN ; ---------------- End Function $0AAE48 ---------------- ; ---------------- Begin 2144 Function $0AAEC4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AC9D0:$0AC9E7 ; addr bytes opcode operands comment 0AAECB 31 04 SUBSP.B $04 0AAECD 80 20 READ.B $20 0AAECF 35 SWITCH 0AAED0 10 15 02 CASE $02 ; SWITCH $0AAECF 0AAED3 80 26 READ.B $26 0AAED5 48 PUSH.6 $08 0AAED6 2A EQ.L 0AAED7 C0 60 AC READ.B $60AC 0AAEDA 2D OR.L 0AAEDB 18 05 BRZ $005 ; => $0AAEE2 0AAEDD 40 PUSH.6 $00 0AAEDE 90 21 WRITE.B $21 0AAEE0 10 03 BR $003 ; => $0AAEE5 0AAEE2 30 01 9D BSR.68K $019D ; => $0AAD48 0AAEE5 10 4C BR $04C ; => $0AAF33 0AAEE7 10 06 04 CASE $04 ; SWITCH $0AAECF 0AAEEA 61 PUSH.6 $21 0AAEEB 90 26 WRITE.B $26 0AAEED 10 44 BR $044 ; => $0AAF33 0AAEEF 10 10 10 CASE $10 ; SWITCH $0AAECF 0AAEF2 C0 60 AC READ.B $60AC 0AAEF5 18 05 BRZ $005 ; => $0AAEFC 0AAEF7 30 02 18 BSR.68K $0218 ; => $0AACE2 0AAEFA 10 03 BR $003 ; => $0AAEFF 0AAEFC 61 PUSH.6 $21 0AAEFD 90 26 WRITE.B $26 0AAEFF 10 32 BR $032 ; => $0AAF33 0AAF01 10 1E 90 CASE $90 ; SWITCH $0AAECF 0AAF04 80 06 READ.B $06 0AAF06 04 53 PUSH.10 $053 0AAF08 2A EQ.L 0AAF09 18 05 BRZ $005 ; => $0AAF10 0AAF0B 61 PUSH.6 $21 0AAF0C 90 26 WRITE.B $26 0AAF0E 10 0F BR $00F ; => $0AAF1F 0AAF10 C0 60 AC READ.B $60AC 0AAF13 2E NOT.L 0AAF14 80 06 READ.B $06 0AAF16 04 4D PUSH.10 $04D 0AAF18 2A EQ.L 0AAF19 2C AND.L 0AAF1A 18 03 BRZ $003 ; => $0AAF1F 0AAF1C 30 02 3D BSR.68K $023D ; => $0AACE2 0AAF1F 10 12 BR $012 ; => $0AAF33 0AAF21 10 06 F4 CASE $F4 ; SWITCH $0AAECF 0AAF24 30 02 45 BSR.68K $0245 ; => $0AACE2 0AAF27 10 0A BR $00A ; => $0AAF33 0AAF29 20 07 D0 F2 CASE $D0, $F2 ; SWITCH $0AAECF 0AAF2D 41 PUSH.6 $01 0AAF2E 90 23 WRITE.B $23 0AAF30 10 01 BR $001 ; => $0AAF33 0AAF32 00 DEFAULT ; SWITCH $0AAECF 0AAF33 80 26 READ.B $26 0AAF35 60 PUSH.6 $20 0AAF36 03 26 GT.L 0AAF38 18 05 BRZ $005 ; => $0AAF3F 0AAF3A 30 02 F9 BSR.68K $02F9 ; => $0AAC44 => $09DFB4 0AAF3D 94 00 WRITE.B $00 0AAF3F 80 26 READ.B $26 0AAF41 49 PUSH.6 $09 0AAF42 2A EQ.L 0AAF43 18 15 BRZ $015 ; => $0AAF5A 0AAF45 59 PUSH.6 $19 0AAF46 3F 04 53 57 41 50 DISP "SWAP" 0AAF4C 67 PUSH.6 $27 0AAF4D 6E PUSH.6 $2E 0AAF4E 67 PUSH.6 $27 0AAF4F 6B PUSH.6 $2B 0AAF50 40 PUSH.6 $00 0AAF51 40 PUSH.6 $00 0AAF52 40 PUSH.6 $00 0AAF53 40 PUSH.6 $00 0AAF54 30 03 25 BSR.68K $0325 ; => $0AAC32 => $099614 0AAF57 49 PUSH.6 $09 0AAF58 90 26 WRITE.B $26 0AAF5A 80 26 READ.B $26 0AAF5C 35 SWITCH 0AAF5D 10 06 0C CASE $0C ; SWITCH $0AAF5C 0AAF60 60 PUSH.6 $20 0AAF61 90 26 WRITE.B $26 0AAF63 10 47 BR $047 ; => $0AAFAC 0AAF65 10 44 21 CASE $21 ; SWITCH $0AAF5C 0AAF68 C0 60 AC READ.B $60AC 0AAF6B 2E NOT.L 0AAF6C 18 3B BRZ $03B ; => $0AAFA9 0AAF6E 48 PUSH.6 $08 0AAF6F 4B PUSH.6 $0B 0AAF70 30 03 29 BSR.68K $0329 ; => $0AAC4A => $09E02C 0AAF73 03 29 FLOAT2LONG 0AAF75 95 03 WRITE.W $03 0AAF77 85 03 READ.W $03 0AAF79 40 PUSH.6 $00 0AAF7A 2B NEQ.L 0AAF7B 18 29 BRZ $029 ; => $0AAFA6 0AAF7D 85 03 READ.W $03 0AAF7F D1 60 A9 WRITE.W $60A9 0AAF82 41 PUSH.6 $01 0AAF83 90 25 WRITE.B $25 0AAF85 80 20 READ.B $20 0AAF87 04 90 PUSH.10 $090 0AAF89 2A EQ.L 0AAF8A 18 0C BRZ $00C ; => $0AAF98 0AAF8C C1 60 A5 READ.W $60A5 0AAF8F 3C 80 00 PUSH.W $8000 0AAF92 2D OR.L 0AAF93 D1 60 A5 WRITE.W $60A5 0AAF96 10 0A BR $00A ; => $0AAFA2 0AAF98 C1 60 A5 READ.W $60A5 0AAF9B 3C 7F FF PUSH.W $7FFF 0AAF9E 2C AND.L 0AAF9F D1 60 A5 WRITE.W $60A5 0AAFA2 40 PUSH.6 $00 0AAFA3 D1 60 A7 WRITE.W $60A7 0AAFA6 30 02 61 BSR.68K $0261 ; => $0AAD48 0AAFA9 10 01 BR $001 ; => $0AAFAC 0AAFAB 00 DEFAULT ; SWITCH $0AAF5C 0AAFAC 32 04 ADDSP.B $04 0AAFAE 34 RETURN ; ---------------- End Function $0AAEC4 ---------------- ; ---------------- Begin 2164 Function $0AAFB6 ---------------- ; P0 = $0000; P1 = $0004; P2 = $02 ; A0 = $004008; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0AB022:$0AB0C5 ; addr bytes opcode operands comment 0AAFBF 31 02 SUBSP.B $02 0AAFC1 C0 67 ED READ.B $67ED 0AAFC4 98 04 WRITE.B $04 0AAFC6 88 04 READ.B $04 0AAFC8 41 PUSH.6 $01 0AAFC9 27 ADD.L 0AAFCA 98 04 WRITE.B $04 0AAFCC 88 04 READ.B $04 0AAFCE 61 PUSH.6 $21 0AAFCF 2A EQ.L 0AAFD0 18 03 BRZ $003 ; => $0AAFD5 0AAFD2 41 PUSH.6 $01 0AAFD3 98 04 WRITE.B $04 0AAFD5 88 04 READ.B $04 0AAFD7 E0 55 A1 READ.B $55A1 0AAFDA 40 PUSH.6 $00 0AAFDB 2A EQ.L 0AAFDC 88 04 READ.B $04 0AAFDE E0 22 D3 READ.B $22D3 0AAFE1 2E NOT.L 0AAFE2 2C AND.L 0AAFE3 88 04 READ.B $04 0AAFE5 E0 02 29 READ.B $0229 0AAFE8 40 PUSH.6 $00 0AAFE9 2A EQ.L 0AAFEA 88 04 READ.B $04 0AAFEC E0 22 F5 READ.B $22F5 0AAFEF 2D OR.L 0AAFF0 C0 56 6E READ.B $566E 0AAFF3 88 04 READ.B $04 0AAFF5 E0 35 B7 READ.B $35B7 0AAFF8 2C AND.L 0AAFF9 C0 54 2C READ.B $542C 0AAFFC 40 PUSH.6 $00 0AAFFD 2A EQ.L 0AAFFE 2C AND.L 0AAFFF 2D OR.L 0AB000 2C AND.L 0AB001 18 11 BRZ $011 ; => $0AB014 0AB003 88 04 READ.B $04 0AB005 41 PUSH.6 $01 0AB006 F0 55 A1 WRITE.B $55A1 0AB009 88 04 READ.B $04 0AB00B 9A 03 WRITE.L $03 0AB00D 88 04 READ.B $04 0AB00F D0 67 ED WRITE.B $67ED 0AB012 10 0B BR $00B ; => $0AB01F 0AB014 88 04 READ.B $04 0AB016 C0 67 ED READ.B $67ED 0AB019 2A EQ.L 0AB01A 1F AA BRZ $-56 ; => $0AAFC6 0AB01C 40 PUSH.6 $00 0AB01D 9A 03 WRITE.L $03 0AB01F 32 02 ADDSP.B $02 0AB021 34 RETURN ; ---------------- End Function $0AAFB6 ---------------- ; ---------------- Begin 2144 Function $0AB022 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AE864:$0AE888 ; addr bytes opcode operands comment 0AB029 31 04 SUBSP.B $04 0AB02B 40 PUSH.6 $00 0AB02C 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0AB02F C0 29 9B READ.B $299B 0AB032 38 00 BB BLS.B $00BB ; => $0AB0F0 0AB035 84 01 READ.B $01 0AB037 E0 60 29 READ.B $6029 0AB03A 18 AF BRZ $0AF ; => $0AB0EB 0AB03C 84 01 READ.B $01 0AB03E D0 51 00 WRITE.B $5100 0AB041 84 01 READ.B $01 0AB043 E0 40 09 READ.B $4009 0AB046 94 02 WRITE.B $02 0AB048 30 00 9B BSR.68K $009B ; => $0AAFB0 => $094F08 0AB04B 94 03 WRITE.B $03 0AB04D 84 01 READ.B $01 0AB04F 41 PUSH.6 $01 0AB050 27 ADD.L 0AB051 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AB054 C0 29 9B READ.B $299B 0AB057 38 00 1E BLS.B $001E ; => $0AB078 0AB05A 84 00 READ.B $00 0AB05C E0 40 09 READ.B $4009 0AB05F 84 02 READ.B $02 0AB061 2A EQ.L 0AB062 18 0F BRZ $00F ; => $0AB073 0AB064 84 03 READ.B $03 0AB066 18 08 BRZ $008 ; => $0AB070 0AB068 84 00 READ.B $00 0AB06A 40 PUSH.6 $00 0AB06B F0 40 09 WRITE.B $4009 0AB06E 10 03 BR $003 ; => $0AB073 0AB070 40 PUSH.6 $00 0AB071 94 02 WRITE.B $02 0AB073 37 10 00 00 24 _23d2 $0000, $0024 0AB078 84 02 READ.B $02 0AB07A E0 22 D3 READ.B $22D3 0AB07D 84 02 READ.B $02 0AB07F E0 02 29 READ.B $0229 0AB082 40 PUSH.6 $00 0AB083 2B NEQ.L 0AB084 84 02 READ.B $02 0AB086 E0 22 F5 READ.B $22F5 0AB089 2E NOT.L 0AB08A 2C AND.L 0AB08B C0 56 6E READ.B $566E 0AB08E 84 02 READ.B $02 0AB090 E0 35 B7 READ.B $35B7 0AB093 2C AND.L 0AB094 C0 54 2C READ.B $542C 0AB097 40 PUSH.6 $00 0AB098 2A EQ.L 0AB099 2C AND.L 0AB09A 2E NOT.L 0AB09B 2C AND.L 0AB09C 2D OR.L 0AB09D 84 02 READ.B $02 0AB09F 40 PUSH.6 $00 0AB0A0 2A EQ.L 0AB0A1 2D OR.L 0AB0A2 84 03 READ.B $03 0AB0A4 2E NOT.L 0AB0A5 84 02 READ.B $02 0AB0A7 E0 55 A1 READ.B $55A1 0AB0AA 84 01 READ.B $01 0AB0AC E3 41 49 READ.F $4149 0AB0AF 3E PUSH.W $0000 0AB0B0 26 EQ.F 0AB0B1 18 03 BRZ $003 ; => $0AB0B6 0AB0B3 41 PUSH.6 $01 0AB0B4 10 01 BR $001 ; => $0AB0B7 0AB0B6 43 PUSH.6 $03 0AB0B7 03 25 LT.L 0AB0B9 2C AND.L 0AB0BA 2D OR.L 0AB0BB 18 0E BRZ $00E ; => $0AB0CB 0AB0BD 84 02 READ.B $02 0AB0BF 40 PUSH.6 $00 0AB0C0 F0 55 A1 WRITE.B $55A1 0AB0C3 84 01 READ.B $01 0AB0C5 30 01 12 BSR.68K $0112 ; => $0AAFB6 0AB0C8 F0 40 09 WRITE.B $4009 0AB0CB C0 29 9C READ.B $299C 0AB0CE 18 0E BRZ $00E ; => $0AB0DE 0AB0D0 84 01 READ.B $01 0AB0D2 C0 29 A0 READ.B $29A0 0AB0D5 27 ADD.L 0AB0D6 84 01 READ.B $01 0AB0D8 E0 40 09 READ.B $4009 0AB0DB F0 40 09 WRITE.B $4009 0AB0DE 84 03 READ.B $03 0AB0E0 18 09 BRZ $009 ; => $0AB0EB 0AB0E2 84 01 READ.B $01 0AB0E4 E0 40 09 READ.B $4009 0AB0E7 41 PUSH.6 $01 0AB0E8 F0 55 A1 WRITE.B $55A1 0AB0EB 37 10 01 00 C1 _23d2 $0001, $00C1 0AB0F0 32 04 ADDSP.B $04 0AB0F2 34 RETURN ; ---------------- End Function $0AB022 ---------------- ; ---------------- Begin 2144 Function $0AB136 ---------------- ; A0 = $004004; (A0) = SP + $B ; called from $0AB1DA:$0AB270 ; called from $0AB1DA:$0AB279 ; called from $0AB1DA:$0AB285 ; called from $0AB1DA:$0AB290 ; called from $0AB1DA:$0AB2CE ; called from $0AB1DA:$0AB2D7 ; called from $0AB1DA:$0AB2E0 ; called from $0AB1DA:$0AB3AA ; called from $0AB1DA:$0AB3B3 ; called from $0AB1DA:$0AB3BF ; called from $0AB1DA:$0AB3CA ; called from $0AB468:$0AB4A7 ; called from $0AB468:$0AB4B5 ; called from $0AB514:$0AB52D ; called from $0AB514:$0AB534 ; called from $0AB514:$0AB53B ; called from $0AB514:$0AB553 ; called from $0AB514:$0AB55A ; called from $0AB514:$0AB567 ; called from $0AB514:$0AB56E ; called from $0AB514:$0AB575 ; called from $0AB5D4:$0AB63F ; called from $0AB5D4:$0AB657 ; addr bytes opcode operands comment 0AB13D 31 04 SUBSP.B $04 0AB13F 87 07 READ.F $07 0AB141 86 0B READ.L $0B 0AB143 30 00 28 BSR.68K $0028 ; => $0AB11E => $002BAE (NATIVE) 0AB146 97 07 WRITE.F $07 0AB148 87 07 READ.F $07 0AB14A 3E PUSH.W $0000 0AB14B 03 21 LT.F 0AB14D 18 1E BRZ $01E ; => $0AB16D 0AB14F 87 07 READ.F $07 0AB151 03 20 NEG.W 0AB153 97 07 WRITE.F $07 0AB155 87 07 READ.F $07 0AB157 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0AB160 20 ADD.F 0AB161 03 29 FLOAT2LONG 0AB163 96 0F WRITE.L $0F 0AB165 40 PUSH.6 $00 0AB166 86 0F READ.L $0F 0AB168 28 SUB.L 0AB169 96 0F WRITE.L $0F 0AB16B 10 10 BR $010 ; => $0AB17D 0AB16D 87 07 READ.F $07 0AB16F 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0AB178 20 ADD.F 0AB179 03 29 FLOAT2LONG 0AB17B 96 0F WRITE.L $0F 0AB17D 86 0F READ.L $0F 0AB17F 30 00 82 BSR.68K $0082 ; => $0AB100 => $09F744 (NATIVE) 0AB182 32 10 ADDSP.B $10 0AB184 34 RETURN ; ---------------- End Function $0AB136 ---------------- ; ---------------- Begin 2144 Function $0AB186 ---------------- ; A0 = $004004; (A0) = SP + $B ; called from $0AB1DA:$0AB299 ; called from $0AB1DA:$0AB3A1 ; called from $0AB514:$0AB560 ; called from $0AB5D4:$0AB66A ; called from $0AB5D4:$0AB673 ; addr bytes opcode operands comment 0AB18D 31 02 SUBSP.B $02 0AB18F 87 07 READ.F $07 0AB191 86 0B READ.L $0B 0AB193 30 00 78 BSR.68K $0078 ; => $0AB11E => $002BAE (NATIVE) 0AB196 97 07 WRITE.F $07 0AB198 87 07 READ.F $07 0AB19A 3E PUSH.W $0000 0AB19B 03 21 LT.F 0AB19D 18 23 BRZ $023 ; => $0AB1C2 0AB19F 87 07 READ.F $07 0AB1A1 03 20 NEG.W 0AB1A3 97 07 WRITE.F $07 0AB1A5 87 07 READ.F $07 0AB1A7 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0AB1B0 20 ADD.F 0AB1B1 03 29 FLOAT2LONG 0AB1B3 95 0D WRITE.W $0D 0AB1B5 40 PUSH.6 $00 0AB1B6 85 0D READ.W $0D 0AB1B8 28 SUB.L 0AB1B9 95 0D WRITE.W $0D 0AB1BB 85 0D READ.W $0D 0AB1BD 30 00 C6 BSR.68K $00C6 ; => $0AB0FA => $09F770 (NATIVE) 0AB1C0 10 15 BR $015 ; => $0AB1D7 0AB1C2 87 07 READ.F $07 0AB1C4 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0AB1CD 20 ADD.F 0AB1CE 03 29 FLOAT2LONG 0AB1D0 95 0D WRITE.W $0D 0AB1D2 85 0D READ.W $0D 0AB1D4 30 00 DD BSR.68K $00DD ; => $0AB0FA => $09F770 (NATIVE) 0AB1D7 32 0E ADDSP.B $0E 0AB1D9 34 RETURN ; ---------------- End Function $0AB186 ---------------- ; ---------------- Begin 2144 Function $0AB1DA ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $0ABFB6:$0AC2DC ; addr bytes opcode operands comment 0AB1E1 31 08 SUBSP.B $08 0AB1E3 86 03 READ.L $03 0AB1E5 C0 29 A0 READ.B $29A0 0AB1E8 27 ADD.L 0AB1E9 94 0B WRITE.B $0B 0AB1EB C0 29 9C READ.B $299C 0AB1EE 84 0B READ.B $0B 0AB1F0 E0 44 23 READ.B $4423 0AB1F3 2C AND.L 0AB1F4 84 0B READ.B $0B 0AB1F6 E3 4A 0B READ.F $4A0B 0AB1F9 3B 40 DD 4C 00 00 00 00 00 PUSH.F $40DD4C0000000000 ; float = 30000.000000 0AB202 24 GT.F 0AB203 2C AND.L 0AB204 94 0A WRITE.B $0A 0AB206 04 FF PUSH.10 $0FF 0AB208 D0 4E 67 WRITE.B $4E67 0AB20B 30 01 02 BSR.68K $0102 ; => $0AB10C => $09FC38 0AB20E 47 PUSH.6 $07 0AB20F 30 01 0C BSR.68K $010C ; => $0AB106 => $09FC1E 0AB212 86 07 READ.L $07 0AB214 30 01 11 BSR.68K $0111 ; => $0AB106 => $09FC1E 0AB217 86 03 READ.L $03 0AB219 E3 43 29 READ.F $4329 0AB21C 3B 40 D1 94 00 00 00 00 00 PUSH.F $40D1940000000000 ; float = 18000.000000 0AB225 22 MUL.F 0AB226 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0AB22F 20 ADD.F 0AB230 03 29 FLOAT2LONG 0AB232 30 01 3B BSR.68K $013B ; => $0AB0FA => $09F770 (NATIVE) 0AB235 86 03 READ.L $03 0AB237 E3 46 03 READ.F $4603 0AB23A 3B 40 CC 20 00 00 00 00 00 PUSH.F $40CC200000000000 ; float = 14400.000000 0AB243 22 MUL.F 0AB244 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0AB24D 20 ADD.F 0AB24E 03 29 FLOAT2LONG 0AB250 30 01 59 BSR.68K $0159 ; => $0AB0FA => $09F770 (NATIVE) 0AB253 C0 55 63 READ.B $5563 0AB256 18 16 BRZ $016 ; => $0AB26E 0AB258 C3 55 19 READ.F $5519 0AB25B C2 6B CD READ.L $6BCD 0AB25E 30 01 31 BSR.68K $0131 ; => $0AB130 => $09515C 0AB261 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0AB26A 22 MUL.F 0AB26B 21 SUB.F 0AB26C 10 01 BR $001 ; => $0AB26F 0AB26E 3E PUSH.W $0000 0AB26F 49 PUSH.6 $09 0AB270 30 01 3D BSR.68K $013D ; => $0AB136 0AB273 86 03 READ.L $03 0AB275 E3 42 D9 READ.F $42D9 0AB278 47 PUSH.6 $07 0AB279 30 01 46 BSR.68K $0146 ; => $0AB136 0AB27C 86 03 READ.L $03 0AB27E E0 57 4B READ.B $574B 0AB281 18 07 BRZ $007 ; => $0AB28A 0AB283 3E PUSH.W $0000 0AB284 40 PUSH.6 $00 0AB285 30 01 52 BSR.68K $0152 ; => $0AB136 0AB288 10 09 BR $009 ; => $0AB293 0AB28A 86 03 READ.L $03 0AB28C E3 4A 0B READ.F $4A0B 0AB28F 40 PUSH.6 $00 0AB290 30 01 5D BSR.68K $015D ; => $0AB136 0AB293 86 03 READ.L $03 0AB295 E3 4B 73 READ.F $4B73 0AB298 52 PUSH.6 $12 0AB299 30 01 16 BSR.68K $0116 ; => $0AB186 0AB29C 86 03 READ.L $03 0AB29E E3 4C 45 READ.F $4C45 0AB2A1 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 0AB2AA 86 03 READ.L $03 0AB2AC E3 47 61 READ.F $4761 0AB2AF 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0AB2B8 21 SUB.F 0AB2B9 22 MUL.F 0AB2BA 3B 3F C8 5B 8B 06 A7 E6 99 PUSH.F $3FC85B8B06A7E699 ; float = 0.190294 0AB2C3 22 MUL.F 0AB2C4 21 SUB.F 0AB2C5 30 01 D4 BSR.68K $01D4 ; => $0AB0F4 => $09F6F0 (NATIVE) 0AB2C8 86 03 READ.L $03 0AB2CA E3 46 B7 READ.F $46B7 0AB2CD 40 PUSH.6 $00 0AB2CE 30 01 9B BSR.68K $019B ; => $0AB136 0AB2D1 86 03 READ.L $03 0AB2D3 E3 46 53 READ.F $4653 0AB2D6 4D PUSH.6 $0D 0AB2D7 30 01 A4 BSR.68K $01A4 ; => $0AB136 0AB2DA 86 03 READ.L $03 0AB2DC E3 47 61 READ.F $4761 0AB2DF 4A PUSH.6 $0A 0AB2E0 30 01 AD BSR.68K $01AD ; => $0AB136 0AB2E3 C0 29 71 READ.B $2971 0AB2E6 94 09 WRITE.B $09 0AB2E8 04 FF PUSH.10 $0FF 0AB2EA D0 29 71 WRITE.B $2971 0AB2ED 86 03 READ.L $03 0AB2EF E0 40 09 READ.B $4009 0AB2F2 30 01 D1 BSR.68K $01D1 ; => $0AB124 => $0A7F2C 0AB2F5 30 01 F2 BSR.68K $01F2 ; => $0AB106 => $09FC1E 0AB2F8 84 09 READ.B $09 0AB2FA D0 29 71 WRITE.B $2971 0AB2FD 86 03 READ.L $03 0AB2FF E3 41 49 READ.F $4149 0AB302 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0AB30B 20 ADD.F 0AB30C 03 29 FLOAT2LONG 0AB30E 30 02 0B BSR.68K $020B ; => $0AB106 => $09FC1E 0AB311 84 0A READ.B $0A 0AB313 18 39 BRZ $039 ; => $0AB34E 0AB315 84 0B READ.B $0B 0AB317 E3 41 49 READ.F $4149 0AB31A 3B 40 50 00 00 00 00 00 00 PUSH.F $4050000000000000 ; float = 64.000000 0AB323 22 MUL.F 0AB324 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0AB32D 20 ADD.F 0AB32E 03 29 FLOAT2LONG 0AB330 96 0F WRITE.L $0F 0AB332 86 0F READ.L $0F 0AB334 40 PUSH.6 $00 0AB335 2A EQ.L 0AB336 18 03 BRZ $003 ; => $0AB33B 0AB338 41 PUSH.6 $01 0AB339 96 0F WRITE.L $0F 0AB33B 86 0F READ.L $0F 0AB33D 04 FF PUSH.10 $0FF 0AB33F 03 25 LT.L 0AB341 18 04 BRZ $004 ; => $0AB347 0AB343 04 FF PUSH.10 $0FF 0AB345 10 02 BR $002 ; => $0AB349 0AB347 86 0F READ.L $0F 0AB349 30 02 46 BSR.68K $0246 ; => $0AB106 => $09FC1E 0AB34C 10 04 BR $004 ; => $0AB352 0AB34E 40 PUSH.6 $00 0AB34F 30 02 4C BSR.68K $024C ; => $0AB106 => $09FC1E 0AB352 86 03 READ.L $03 0AB354 E0 49 6B READ.B $496B 0AB357 94 08 WRITE.B $08 0AB359 86 03 READ.L $03 0AB35B E0 49 11 READ.B $4911 0AB35E 41 PUSH.6 $01 0AB35F 2C AND.L 0AB360 18 07 BRZ $007 ; => $0AB369 0AB362 84 08 READ.B $08 0AB364 04 80 PUSH.10 $080 0AB366 2D OR.L 0AB367 94 08 WRITE.B $08 0AB369 86 03 READ.L $03 0AB36B E0 57 4B READ.B $574B 0AB36E 18 07 BRZ $007 ; => $0AB377 0AB370 84 08 READ.B $08 0AB372 04 40 PUSH.10 $040 0AB374 2D OR.L 0AB375 94 08 WRITE.B $08 0AB377 C0 55 62 READ.B $5562 0AB37A 18 06 BRZ $006 ; => $0AB382 0AB37C 84 08 READ.B $08 0AB37E 50 PUSH.6 $10 0AB37F 2D OR.L 0AB380 94 08 WRITE.B $08 0AB382 84 08 READ.B $08 0AB384 30 02 81 BSR.68K $0281 ; => $0AB106 => $09FC1E 0AB387 86 03 READ.L $03 0AB389 E0 4B 7D READ.B $4B7D 0AB38C 30 02 89 BSR.68K $0289 ; => $0AB106 => $09FC1E 0AB38F 86 03 READ.L $03 0AB391 E0 40 09 READ.B $4009 0AB394 30 02 91 BSR.68K $0291 ; => $0AB106 => $09FC1E 0AB397 84 0A READ.B $0A 0AB399 18 BD BRZ $0BD ; => $0AB458 0AB39B 84 0B READ.B $0B 0AB39D E3 4B 73 READ.F $4B73 0AB3A0 52 PUSH.6 $12 0AB3A1 30 02 1E BSR.68K $021E ; => $0AB186 0AB3A4 84 0B READ.B $0B 0AB3A6 E3 47 61 READ.F $4761 0AB3A9 4A PUSH.6 $0A 0AB3AA 30 02 77 BSR.68K $0277 ; => $0AB136 0AB3AD 84 0B READ.B $0B 0AB3AF E3 46 B7 READ.F $46B7 0AB3B2 40 PUSH.6 $00 0AB3B3 30 02 80 BSR.68K $0280 ; => $0AB136 0AB3B6 84 0B READ.B $0B 0AB3B8 E0 57 4B READ.B $574B 0AB3BB 18 07 BRZ $007 ; => $0AB3C4 0AB3BD 3E PUSH.W $0000 0AB3BE 40 PUSH.6 $00 0AB3BF 30 02 8C BSR.68K $028C ; => $0AB136 0AB3C2 10 09 BR $009 ; => $0AB3CD 0AB3C4 84 0B READ.B $0B 0AB3C6 E3 4A 0B READ.F $4A0B 0AB3C9 40 PUSH.6 $00 0AB3CA 30 02 97 BSR.68K $0297 ; => $0AB136 0AB3CD C0 35 92 READ.B $3592 0AB3D0 18 54 BRZ $054 ; => $0AB426 0AB3D2 84 0B READ.B $0B 0AB3D4 E3 4C 45 READ.F $4C45 0AB3D7 86 03 READ.L $03 0AB3D9 E3 46 53 READ.F $4653 0AB3DC 3B 3D FB FD 46 B2 DD 3C 65 PUSH.F $3DFBFD46B2DD3C65 ; float = 0.000000 0AB3E5 22 MUL.F 0AB3E6 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AB3EF 86 03 READ.L $03 0AB3F1 E3 46 B7 READ.F $46B7 0AB3F4 20 ADD.F 0AB3F5 84 0B READ.B $0B 0AB3F7 E3 46 B7 READ.F $46B7 0AB3FA 21 SUB.F 0AB3FB 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 0AB404 22 MUL.F 0AB405 3B 3F BF 42 47 BC F1 D2 2F PUSH.F $3FBF4247BCF1D22F ; float = 0.122105 0AB40E 22 MUL.F 0AB40F 20 ADD.F 0AB410 84 0B READ.B $0B 0AB412 E3 47 61 READ.F $4761 0AB415 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0AB41E 21 SUB.F 0AB41F 22 MUL.F 0AB420 21 SUB.F 0AB421 30 03 30 BSR.68K $0330 ; => $0AB0F4 => $09F6F0 (NATIVE) 0AB424 10 2C BR $02C ; => $0AB452 0AB426 84 0B READ.B $0B 0AB428 E3 4C 45 READ.F $4C45 0AB42B 3B 3F 50 62 4D D2 F1 A9 FC PUSH.F $3F50624DD2F1A9FC ; float = 0.001000 0AB434 84 0B READ.B $0B 0AB436 E3 47 61 READ.F $4761 0AB439 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0AB442 21 SUB.F 0AB443 22 MUL.F 0AB444 3B 3F BF 42 47 BC F1 D2 2F PUSH.F $3FBF4247BCF1D22F ; float = 0.122105 0AB44D 22 MUL.F 0AB44E 21 SUB.F 0AB44F 30 03 5E BSR.68K $035E ; => $0AB0F4 => $09F6F0 (NATIVE) 0AB452 84 0B READ.B $0B 0AB454 40 PUSH.6 $00 0AB455 F0 57 4B WRITE.B $574B 0AB458 86 03 READ.L $03 0AB45A 40 PUSH.6 $00 0AB45B F0 57 4B WRITE.B $574B 0AB45E 30 03 4F BSR.68K $034F ; => $0AB112 => $09FC48 0AB461 40 PUSH.6 $00 0AB462 D0 4E 67 WRITE.B $4E67 0AB465 32 10 ADDSP.B $10 0AB467 34 RETURN ; ---------------- End Function $0AB1DA ---------------- ; ---------------- Begin 2144 Function $0AB468 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ABFB6:$0AC2AC ; addr bytes opcode operands comment 0AB46F 31 04 SUBSP.B $04 0AB471 04 FF PUSH.10 $0FF 0AB473 D0 4E 67 WRITE.B $4E67 0AB476 30 03 6D BSR.68K $036D ; => $0AB10C => $09FC38 0AB479 48 PUSH.6 $08 0AB47A 30 03 77 BSR.68K $0377 ; => $0AB106 => $09FC1E 0AB47D C0 60 AC READ.B $60AC 0AB480 18 03 BRZ $003 ; => $0AB485 0AB482 40 PUSH.6 $00 0AB483 10 03 BR $003 ; => $0AB488 0AB485 C1 60 A5 READ.W $60A5 0AB488 95 01 WRITE.W $01 0AB48A 40 PUSH.6 $00 0AB48B 36 10 02 _2362 $0002 ; A0 = $004000; (A0) = A6 + $0 0AB48E C0 29 9A READ.B $299A 0AB491 38 00 1D BLS.B $001D ; => $0AB4B1 0AB494 84 02 READ.B $02 0AB496 E0 60 29 READ.B $6029 0AB499 84 02 READ.B $02 0AB49B 30 03 74 BSR.68K $0374 ; => $0AB12A => $0ABEE2 0AB49E 2C AND.L 0AB49F 18 0B BRZ $00B ; => $0AB4AC 0AB4A1 84 02 READ.B $02 0AB4A3 E3 46 B7 READ.F $46B7 0AB4A6 40 PUSH.6 $00 0AB4A7 30 03 74 BSR.68K $0374 ; => $0AB136 0AB4AA 10 05 BR $005 ; => $0AB4B1 0AB4AC 37 10 02 00 23 _23d2 $0002, $0023 0AB4B1 C3 35 55 READ.F $3555 0AB4B4 56 PUSH.6 $16 0AB4B5 30 03 82 BSR.68K $0382 ; => $0AB136 0AB4B8 85 01 READ.W $01 0AB4BA 05 00 PUSH.10 $100 0AB4BC 03 24 DIV.L 0AB4BE 30 03 BB BSR.68K $03BB ; => $0AB106 => $09FC1E 0AB4C1 85 01 READ.W $01 0AB4C3 30 03 C0 BSR.68K $03C0 ; => $0AB106 => $09FC1E 0AB4C6 C1 60 A9 READ.W $60A9 0AB4C9 05 00 PUSH.10 $100 0AB4CB 03 24 DIV.L 0AB4CD 30 03 CA BSR.68K $03CA ; => $0AB106 => $09FC1E 0AB4D0 C1 60 A9 READ.W $60A9 0AB4D3 30 03 D0 BSR.68K $03D0 ; => $0AB106 => $09FC1E 0AB4D6 30 03 C7 BSR.68K $03C7 ; => $0AB112 => $09FC48 0AB4D9 40 PUSH.6 $00 0AB4DA D0 4E 67 WRITE.B $4E67 0AB4DD 32 04 ADDSP.B $04 0AB4DF 34 RETURN ; ---------------- End Function $0AB468 ---------------- ; ---------------- Begin 2144 Function $0AB4E0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ABFB6:$0AC39E ; addr bytes opcode operands comment 0AB4E7 04 FF PUSH.10 $0FF 0AB4E9 D0 4E 67 WRITE.B $4E67 0AB4EC 30 03 E3 BSR.68K $03E3 ; => $0AB10C => $09FC38 0AB4EF 49 PUSH.6 $09 0AB4F0 30 03 ED BSR.68K $03ED ; => $0AB106 => $09FC1E 0AB4F3 C1 60 B9 READ.W $60B9 0AB4F6 30 03 FF BSR.68K $03FF ; => $0AB0FA => $09F770 (NATIVE) 0AB4F9 C0 60 B6 READ.B $60B6 0AB4FC 30 03 F9 BSR.68K $03F9 ; => $0AB106 => $09FC1E 0AB4FF C0 60 B7 READ.B $60B7 0AB502 30 03 FF BSR.68K $03FF ; => $0AB106 => $09FC1E 0AB505 C0 60 BA READ.B $60BA 0AB508 30 04 05 BSR.68K $0405 ; => $0AB106 => $09FC1E 0AB50B 30 03 FC BSR.68K $03FC ; => $0AB112 => $09FC48 0AB50E 40 PUSH.6 $00 0AB50F D0 4E 67 WRITE.B $4E67 0AB512 34 RETURN ; ---------------- End Function $0AB4E0 ---------------- ; ---------------- Begin 2144 Function $0AB514 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ABFB6:$0AC370 ; addr bytes opcode operands comment 0AB51B 31 06 SUBSP.B $06 0AB51D 04 FF PUSH.10 $0FF 0AB51F D0 4E 67 WRITE.B $4E67 0AB522 30 04 19 BSR.68K $0419 ; => $0AB10C => $09FC38 0AB525 4B PUSH.6 $0B 0AB526 30 04 23 BSR.68K $0423 ; => $0AB106 => $09FC1E 0AB529 C3 54 E9 READ.F $54E9 0AB52C 5F PUSH.6 $1F 0AB52D 30 03 FA BSR.68K $03FA ; => $0AB136 0AB530 C3 54 F1 READ.F $54F1 0AB533 5E PUSH.6 $1E 0AB534 30 04 01 BSR.68K $0401 ; => $0AB136 0AB537 C3 54 F9 READ.F $54F9 0AB53A 4C PUSH.6 $0C 0AB53B 30 04 08 BSR.68K $0408 ; => $0AB136 0AB53E C3 55 19 READ.F $5519 0AB541 C2 6B CD READ.L $6BCD 0AB544 30 04 17 BSR.68K $0417 ; => $0AB130 => $09515C 0AB547 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0AB550 22 MUL.F 0AB551 21 SUB.F 0AB552 49 PUSH.6 $09 0AB553 30 04 20 BSR.68K $0420 ; => $0AB136 0AB556 C3 56 1D READ.F $561D 0AB559 51 PUSH.6 $11 0AB55A 30 04 27 BSR.68K $0427 ; => $0AB136 0AB55D 83 67 READ.F $67 0AB55F 43 PUSH.6 $03 0AB560 30 03 DD BSR.68K $03DD ; => $0AB186 0AB563 C3 55 21 READ.F $5521 0AB566 6C PUSH.6 $2C 0AB567 30 04 34 BSR.68K $0434 ; => $0AB136 0AB56A C3 55 29 READ.F $5529 0AB56D 60 PUSH.6 $20 0AB56E 30 04 3B BSR.68K $043B ; => $0AB136 0AB571 C3 55 31 READ.F $5531 0AB574 55 PUSH.6 $15 0AB575 30 04 42 BSR.68K $0442 ; => $0AB136 0AB578 C0 47 6B READ.B $476B 0AB57B E3 46 B7 READ.F $46B7 0AB57E 03 29 FLOAT2LONG 0AB580 30 04 83 BSR.68K $0483 ; => $0AB100 => $09F744 (NATIVE) 0AB583 C0 55 62 READ.B $5562 0AB586 30 04 83 BSR.68K $0483 ; => $0AB106 => $09FC1E 0AB589 C0 55 63 READ.B $5563 0AB58C 30 04 89 BSR.68K $0489 ; => $0AB106 => $09FC1E 0AB58F C0 55 63 READ.B $5563 0AB592 18 35 BRZ $035 ; => $0AB5C9 0AB594 40 PUSH.6 $00 0AB595 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0AB598 C0 55 63 READ.B $5563 0AB59B 41 PUSH.6 $01 0AB59C 28 SUB.L 0AB59D 38 00 0D BLS.B $000D ; => $0AB5AD 0AB5A0 84 04 READ.B $04 0AB5A2 E0 47 6B READ.B $476B 0AB5A5 30 04 A2 BSR.68K $04A2 ; => $0AB106 => $09FC1E 0AB5A8 37 10 04 00 15 _23d2 $0004, $0015 0AB5AD 40 PUSH.6 $00 0AB5AE 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0AB5B1 C0 55 63 READ.B $5563 0AB5B4 41 PUSH.6 $01 0AB5B5 28 SUB.L 0AB5B6 38 00 10 BLS.B $0010 ; => $0AB5C9 0AB5B9 84 04 READ.B $04 0AB5BB E0 47 6B READ.B $476B 0AB5BE E0 40 09 READ.B $4009 0AB5C1 30 04 BE BSR.68K $04BE ; => $0AB106 => $09FC1E 0AB5C4 37 10 04 00 18 _23d2 $0004, $0018 0AB5C9 30 04 BA BSR.68K $04BA ; => $0AB112 => $09FC48 0AB5CC 40 PUSH.6 $00 0AB5CD D0 4E 67 WRITE.B $4E67 0AB5D0 32 06 ADDSP.B $06 0AB5D2 34 RETURN ; ---------------- End Function $0AB514 ---------------- ; ---------------- Begin 2144 Function $0AB5D4 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ABCF4:$0ABD57 ; called from $0ABFB6:$0AC38A ; addr bytes opcode operands comment 0AB5DB 31 02 SUBSP.B $02 0AB5DD 30 04 D4 BSR.68K $04D4 ; => $0AB10C => $09FC38 0AB5E0 4C PUSH.6 $0C 0AB5E1 30 04 DE BSR.68K $04DE ; => $0AB106 => $09FC1E 0AB5E4 C0 29 9A READ.B $299A 0AB5E7 41 PUSH.6 $01 0AB5E8 27 ADD.L 0AB5E9 30 04 E6 BSR.68K $04E6 ; => $0AB106 => $09FC1E 0AB5EC C0 29 9C READ.B $299C 0AB5EF 30 04 EC BSR.68K $04EC ; => $0AB106 => $09FC1E 0AB5F2 C1 29 85 READ.W $2985 0AB5F5 30 04 FE BSR.68K $04FE ; => $0AB0FA => $09F770 (NATIVE) 0AB5F8 C1 29 95 READ.W $2995 0AB5FB 3C 07 FF PUSH.W $07FF 0AB5FE 2C AND.L 0AB5FF 30 05 08 BSR.68K $0508 ; => $0AB0FA => $09F770 (NATIVE) 0AB602 C0 29 92 READ.B $2992 0AB605 18 03 BRZ $003 ; => $0AB60A 0AB607 41 PUSH.6 $01 0AB608 10 01 BR $001 ; => $0AB60B 0AB60A 40 PUSH.6 $00 0AB60B 30 05 08 BSR.68K $0508 ; => $0AB106 => $09FC1E 0AB60E 41 PUSH.6 $01 0AB60F 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AB612 47 PUSH.6 $07 0AB613 38 00 09 BLS.B $0009 ; => $0AB61F 0AB616 40 PUSH.6 $00 0AB617 30 05 14 BSR.68K $0514 ; => $0AB106 => $09FC1E 0AB61A 37 10 00 00 0D _23d2 $0000, $000D 0AB61F C1 29 FD READ.W $29FD 0AB622 30 05 2B BSR.68K $052B ; => $0AB0FA => $09F770 (NATIVE) 0AB625 C3 60 3B READ.F $603B 0AB628 C1 29 FD READ.W $29FD 0AB62B 3D 00 09 3A 80 PUSH.L $00093A80 0AB630 29 MUL.L 0AB631 03 2A LONG2FLOAT 0AB633 21 SUB.F 0AB634 3B 40 8F 40 00 00 00 00 00 PUSH.F $408F400000000000 ; float = 1000.000000 0AB63D 22 MUL.F 0AB63E 40 PUSH.6 $00 0AB63F 30 05 0C BSR.68K $050C ; => $0AB136 0AB642 41 PUSH.6 $01 0AB643 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AB646 60 PUSH.6 $20 0AB647 38 00 09 BLS.B $0009 ; => $0AB653 0AB64A 40 PUSH.6 $00 0AB64B 30 05 48 BSR.68K $0548 ; => $0AB106 => $09FC1E 0AB64E 37 10 00 00 0D _23d2 $0000, $000D 0AB653 C3 35 55 READ.F $3555 0AB656 56 PUSH.6 $16 0AB657 30 05 24 BSR.68K $0524 ; => $0AB136 0AB65A 41 PUSH.6 $01 0AB65B 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AB65E C0 29 9A READ.B $299A 0AB661 38 00 17 BLS.B $0017 ; => $0AB67B 0AB664 84 00 READ.B $00 0AB666 E3 34 2B READ.F $342B 0AB669 4B PUSH.6 $0B 0AB66A 30 04 E7 BSR.68K $04E7 ; => $0AB186 0AB66D 84 00 READ.B $00 0AB66F E3 34 7B READ.F $347B 0AB672 55 PUSH.6 $15 0AB673 30 04 F0 BSR.68K $04F0 ; => $0AB186 0AB676 37 10 00 00 1D _23d2 $0000, $001D 0AB67B 30 05 6C BSR.68K $056C ; => $0AB112 => $09FC48 0AB67E 32 02 ADDSP.B $02 0AB680 34 RETURN ; ---------------- End Function $0AB5D4 ---------------- ; ---------------- Begin 2144 Function $0AB6B2 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0AB998:$0AB9FC ; addr bytes opcode operands comment 0AB6B9 04 FF PUSH.10 $0FF 0AB6BB D0 4E 67 WRITE.B $4E67 0AB6BE 30 00 27 BSR.68K $0027 ; => $0AB69A => $09FC38 0AB6C1 43 PUSH.6 $03 0AB6C2 30 00 3D BSR.68K $003D ; => $0AB688 => $09FC1E 0AB6C5 86 03 READ.L $03 0AB6C7 30 00 42 BSR.68K $0042 ; => $0AB688 => $09FC1E 0AB6CA 86 03 READ.L $03 0AB6CC E1 01 61 READ.W $0161 0AB6CF 03 2A LONG2FLOAT 0AB6D1 30 00 52 BSR.68K $0052 ; => $0AB682 => $09F6F0 (NATIVE) 0AB6D4 86 03 READ.L $03 0AB6D6 E2 01 E5 READ.L $01E5 0AB6D9 03 2A LONG2FLOAT 0AB6DB 30 00 5C BSR.68K $005C ; => $0AB682 => $09F6F0 (NATIVE) 0AB6DE 86 03 READ.L $03 0AB6E0 E3 03 97 READ.F $0397 0AB6E3 30 00 64 BSR.68K $0064 ; => $0AB682 => $09F6F0 (NATIVE) 0AB6E6 86 03 READ.L $03 0AB6E8 E2 04 1B READ.L $041B 0AB6EB 03 2A LONG2FLOAT 0AB6ED 30 00 6E BSR.68K $006E ; => $0AB682 => $09F6F0 (NATIVE) 0AB6F0 86 03 READ.L $03 0AB6F2 E2 07 B7 READ.L $07B7 0AB6F5 03 2A LONG2FLOAT 0AB6F7 30 00 78 BSR.68K $0078 ; => $0AB682 => $09F6F0 (NATIVE) 0AB6FA 86 03 READ.L $03 0AB6FC E3 05 23 READ.F $0523 0AB6FF 30 00 80 BSR.68K $0080 ; => $0AB682 => $09F6F0 (NATIVE) 0AB702 86 03 READ.L $03 0AB704 E3 06 2B READ.F $062B 0AB707 30 00 88 BSR.68K $0088 ; => $0AB682 => $09F6F0 (NATIVE) 0AB70A 86 03 READ.L $03 0AB70C E3 07 33 READ.F $0733 0AB70F 30 00 90 BSR.68K $0090 ; => $0AB682 => $09F6F0 (NATIVE) 0AB712 86 03 READ.L $03 0AB714 E2 08 3B READ.L $083B 0AB717 03 2A LONG2FLOAT 0AB719 30 00 9A BSR.68K $009A ; => $0AB682 => $09F6F0 (NATIVE) 0AB71C 86 03 READ.L $03 0AB71E E3 15 A3 READ.F $15A3 0AB721 30 00 A2 BSR.68K $00A2 ; => $0AB682 => $09F6F0 (NATIVE) 0AB724 86 03 READ.L $03 0AB726 E3 0A 4B READ.F $0A4B 0AB729 30 00 AA BSR.68K $00AA ; => $0AB682 => $09F6F0 (NATIVE) 0AB72C 86 03 READ.L $03 0AB72E E3 09 43 READ.F $0943 0AB731 30 00 B2 BSR.68K $00B2 ; => $0AB682 => $09F6F0 (NATIVE) 0AB734 86 03 READ.L $03 0AB736 E3 12 8B READ.F $128B 0AB739 30 00 BA BSR.68K $00BA ; => $0AB682 => $09F6F0 (NATIVE) 0AB73C 86 03 READ.L $03 0AB73E E3 0B 53 READ.F $0B53 0AB741 30 00 C2 BSR.68K $00C2 ; => $0AB682 => $09F6F0 (NATIVE) 0AB744 86 03 READ.L $03 0AB746 E3 13 93 READ.F $1393 0AB749 30 00 CA BSR.68K $00CA ; => $0AB682 => $09F6F0 (NATIVE) 0AB74C 86 03 READ.L $03 0AB74E E3 0C 5B READ.F $0C5B 0AB751 30 00 D2 BSR.68K $00D2 ; => $0AB682 => $09F6F0 (NATIVE) 0AB754 86 03 READ.L $03 0AB756 E2 18 37 READ.L $1837 0AB759 03 2A LONG2FLOAT 0AB75B 30 00 DC BSR.68K $00DC ; => $0AB682 => $09F6F0 (NATIVE) 0AB75E 86 03 READ.L $03 0AB760 E3 16 AB READ.F $16AB 0AB763 30 00 E4 BSR.68K $00E4 ; => $0AB682 => $09F6F0 (NATIVE) 0AB766 86 03 READ.L $03 0AB768 E3 0D 63 READ.F $0D63 0AB76B 30 00 EC BSR.68K $00EC ; => $0AB682 => $09F6F0 (NATIVE) 0AB76E 86 03 READ.L $03 0AB770 E3 17 B3 READ.F $17B3 0AB773 30 00 F4 BSR.68K $00F4 ; => $0AB682 => $09F6F0 (NATIVE) 0AB776 86 03 READ.L $03 0AB778 E3 10 7B READ.F $107B 0AB77B 30 00 FC BSR.68K $00FC ; => $0AB682 => $09F6F0 (NATIVE) 0AB77E 86 03 READ.L $03 0AB780 E3 14 9B READ.F $149B 0AB783 30 01 04 BSR.68K $0104 ; => $0AB682 => $09F6F0 (NATIVE) 0AB786 86 03 READ.L $03 0AB788 E3 0E 6B READ.F $0E6B 0AB78B 30 01 0C BSR.68K $010C ; => $0AB682 => $09F6F0 (NATIVE) 0AB78E 86 03 READ.L $03 0AB790 E3 0F 73 READ.F $0F73 0AB793 30 01 14 BSR.68K $0114 ; => $0AB682 => $09F6F0 (NATIVE) 0AB796 86 03 READ.L $03 0AB798 E3 11 83 READ.F $1183 0AB79B 30 01 1C BSR.68K $011C ; => $0AB682 => $09F6F0 (NATIVE) 0AB79E 30 01 01 BSR.68K $0101 ; => $0AB6A0 => $09FC48 0AB7A1 40 PUSH.6 $00 0AB7A2 D0 4E 67 WRITE.B $4E67 0AB7A5 32 04 ADDSP.B $04 0AB7A7 34 RETURN ; ---------------- End Function $0AB6B2 ---------------- ; ---------------- Begin 2144 Function $0AB7A8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ABCF4:$0ABD4A ; called from $0ABFB6:$0AC0A8 ; called from $0ABFB6:$0AC392 ; addr bytes opcode operands comment 0AB7AF 31 02 SUBSP.B $02 0AB7B1 04 FF PUSH.10 $0FF 0AB7B3 D0 4E 67 WRITE.B $4E67 0AB7B6 30 01 1F BSR.68K $011F ; => $0AB69A => $09FC38 0AB7B9 44 PUSH.6 $04 0AB7BA 30 01 35 BSR.68K $0135 ; => $0AB688 => $09FC1E 0AB7BD 49 PUSH.6 $09 0AB7BE 30 01 39 BSR.68K $0139 ; => $0AB688 => $09FC1E 0AB7C1 C0 32 D4 READ.B $32D4 0AB7C4 E3 2B 57 READ.F $2B57 0AB7C7 30 01 48 BSR.68K $0148 ; => $0AB682 => $09F6F0 (NATIVE) 0AB7CA C0 32 D4 READ.B $32D4 0AB7CD E3 2C 47 READ.F $2C47 0AB7D0 30 01 51 BSR.68K $0151 ; => $0AB682 => $09F6F0 (NATIVE) 0AB7D3 C0 32 D4 READ.B $32D4 0AB7D6 E3 2D 37 READ.F $2D37 0AB7D9 30 01 5A BSR.68K $015A ; => $0AB682 => $09F6F0 (NATIVE) 0AB7DC C3 35 55 READ.F $3555 0AB7DF 30 01 60 BSR.68K $0160 ; => $0AB682 => $09F6F0 (NATIVE) 0AB7E2 C0 29 9A READ.B $299A 0AB7E5 30 01 60 BSR.68K $0160 ; => $0AB688 => $09FC1E 0AB7E8 C0 29 9C READ.B $299C 0AB7EB 30 01 66 BSR.68K $0166 ; => $0AB688 => $09FC1E 0AB7EE C0 4E 69 READ.B $4E69 0AB7F1 30 01 6C BSR.68K $016C ; => $0AB688 => $09FC1E 0AB7F4 C0 32 D4 READ.B $32D4 0AB7F7 E0 2D 55 READ.B $2D55 0AB7FA 30 01 75 BSR.68K $0175 ; => $0AB688 => $09FC1E 0AB7FD C0 32 D5 READ.B $32D5 0AB800 E0 2E 1D READ.B $2E1D 0AB803 30 01 7E BSR.68K $017E ; => $0AB688 => $09FC1E 0AB806 C0 32 D5 READ.B $32D5 0AB809 E0 2F 17 READ.B $2F17 0AB80C 30 01 87 BSR.68K $0187 ; => $0AB688 => $09FC1E 0AB80F C0 32 D5 READ.B $32D5 0AB812 E0 2F 49 READ.B $2F49 0AB815 30 01 90 BSR.68K $0190 ; => $0AB688 => $09FC1E 0AB818 C0 32 D5 READ.B $32D5 0AB81B E0 2F 7B READ.B $2F7B 0AB81E 30 01 99 BSR.68K $0199 ; => $0AB688 => $09FC1E 0AB821 40 PUSH.6 $00 0AB822 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AB825 49 PUSH.6 $09 0AB826 38 00 13 BLS.B $0013 ; => $0AB83C 0AB829 C0 32 D5 READ.B $32D5 0AB82C 4A PUSH.6 $0A 0AB82D 29 MUL.L 0AB82E 84 00 READ.B $00 0AB830 27 ADD.L 0AB831 E0 31 6F READ.B $316F 0AB834 30 01 AF BSR.68K $01AF ; => $0AB688 => $09FC1E 0AB837 37 10 00 00 17 _23d2 $0000, $0017 0AB83C 40 PUSH.6 $00 0AB83D 30 01 B8 BSR.68K $01B8 ; => $0AB688 => $09FC1E 0AB840 C0 32 D5 READ.B $32D5 0AB843 E0 31 D3 READ.B $31D3 0AB846 30 01 C1 BSR.68K $01C1 ; => $0AB688 => $09FC1E 0AB849 C0 32 D3 READ.B $32D3 0AB84C 30 01 C7 BSR.68K $01C7 ; => $0AB688 => $09FC1E 0AB84F C0 32 D5 READ.B $32D5 0AB852 E0 33 6F READ.B $336F 0AB855 30 01 D0 BSR.68K $01D0 ; => $0AB688 => $09FC1E 0AB858 C0 32 D5 READ.B $32D5 0AB85B E0 33 0B READ.B $330B 0AB85E 30 01 D9 BSR.68K $01D9 ; => $0AB688 => $09FC1E 0AB861 C0 32 D5 READ.B $32D5 0AB864 E0 33 3D READ.B $333D 0AB867 30 01 E2 BSR.68K $01E2 ; => $0AB688 => $09FC1E 0AB86A 40 PUSH.6 $00 0AB86B 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AB86E 49 PUSH.6 $09 0AB86F 38 00 0D BLS.B $000D ; => $0AB87F 0AB872 84 00 READ.B $00 0AB874 E0 29 AB READ.B $29AB 0AB877 30 01 F2 BSR.68K $01F2 ; => $0AB688 => $09FC1E 0AB87A 37 10 00 00 11 _23d2 $0000, $0011 0AB87F C0 32 D5 READ.B $32D5 0AB882 E1 2E 81 READ.W $2E81 0AB885 30 01 FA BSR.68K $01FA ; => $0AB68E => $09F770 (NATIVE) 0AB888 C0 32 D5 READ.B $32D5 0AB88B E1 2E E5 READ.W $2EE5 0AB88E 30 02 03 BSR.68K $0203 ; => $0AB68E => $09F770 (NATIVE) 0AB891 C1 56 AB READ.W $56AB 0AB894 30 02 09 BSR.68K $0209 ; => $0AB68E => $09F770 (NATIVE) 0AB897 C1 56 AD READ.W $56AD 0AB89A 30 02 0F BSR.68K $020F ; => $0AB68E => $09F770 (NATIVE) 0AB89D 40 PUSH.6 $00 0AB89E 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AB8A1 49 PUSH.6 $09 0AB8A2 38 00 0D BLS.B $000D ; => $0AB8B2 0AB8A5 84 00 READ.B $00 0AB8A7 E1 56 DB READ.W $56DB 0AB8AA 30 02 1F BSR.68K $021F ; => $0AB68E => $09F770 (NATIVE) 0AB8AD 37 10 00 00 11 _23d2 $0000, $0011 0AB8B2 40 PUSH.6 $00 0AB8B3 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AB8B6 49 PUSH.6 $09 0AB8B7 38 00 0D BLS.B $000D ; => $0AB8C7 0AB8BA 84 00 READ.B $00 0AB8BC E1 57 2B READ.W $572B 0AB8BF 30 02 34 BSR.68K $0234 ; => $0AB68E => $09F770 (NATIVE) 0AB8C2 37 10 00 00 11 _23d2 $0000, $0011 0AB8C7 40 PUSH.6 $00 0AB8C8 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AB8CB 49 PUSH.6 $09 0AB8CC 38 00 0D BLS.B $000D ; => $0AB8DC 0AB8CF 84 00 READ.B $00 0AB8D1 E1 56 EF READ.W $56EF 0AB8D4 30 02 49 BSR.68K $0249 ; => $0AB68E => $09F770 (NATIVE) 0AB8D7 37 10 00 00 11 _23d2 $0000, $0011 0AB8DC 40 PUSH.6 $00 0AB8DD 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AB8E0 49 PUSH.6 $09 0AB8E1 38 00 0D BLS.B $000D ; => $0AB8F1 0AB8E4 84 00 READ.B $00 0AB8E6 E1 57 3F READ.W $573F 0AB8E9 30 02 5E BSR.68K $025E ; => $0AB68E => $09F770 (NATIVE) 0AB8EC 37 10 00 00 11 _23d2 $0000, $0011 0AB8F1 C0 32 D5 READ.B $32D5 0AB8F4 E1 33 D5 READ.W $33D5 0AB8F7 30 02 6C BSR.68K $026C ; => $0AB68E => $09F770 (NATIVE) 0AB8FA C0 32 D5 READ.B $32D5 0AB8FD E2 32 9B READ.L $329B 0AB900 30 02 6F BSR.68K $026F ; => $0AB694 => $09F744 (NATIVE) 0AB903 C2 32 D1 READ.L $32D1 0AB906 30 02 75 BSR.68K $0275 ; => $0AB694 => $09F744 (NATIVE) 0AB909 C1 29 85 READ.W $2985 0AB90C 30 02 81 BSR.68K $0281 ; => $0AB68E => $09F770 (NATIVE) 0AB90F C1 29 95 READ.W $2995 0AB912 3C 07 FF PUSH.W $07FF 0AB915 2C AND.L 0AB916 30 02 8B BSR.68K $028B ; => $0AB68E => $09F770 (NATIVE) 0AB919 30 02 7C BSR.68K $027C ; => $0AB6A0 => $09FC48 0AB91C 40 PUSH.6 $00 0AB91D D0 4E 67 WRITE.B $4E67 0AB920 32 02 ADDSP.B $02 0AB922 34 RETURN ; ---------------- End Function $0AB7A8 ---------------- ; ---------------- Begin 2144 Function $0AB924 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ABCF4:$0ABD4D ; addr bytes opcode operands comment 0AB92B 31 02 SUBSP.B $02 0AB92D 04 FF PUSH.10 $0FF 0AB92F D0 4E 67 WRITE.B $4E67 0AB932 30 02 9B BSR.68K $029B ; => $0AB69A => $09FC38 0AB935 45 PUSH.6 $05 0AB936 30 02 B1 BSR.68K $02B1 ; => $0AB688 => $09FC1E 0AB939 C3 5F C3 READ.F $5FC3 0AB93C 30 02 BD BSR.68K $02BD ; => $0AB682 => $09F6F0 (NATIVE) 0AB93F C3 5F CB READ.F $5FCB 0AB942 30 02 C3 BSR.68K $02C3 ; => $0AB682 => $09F6F0 (NATIVE) 0AB945 C3 5F D3 READ.F $5FD3 0AB948 30 02 C9 BSR.68K $02C9 ; => $0AB682 => $09F6F0 (NATIVE) 0AB94B C3 5F DB READ.F $5FDB 0AB94E 30 02 CF BSR.68K $02CF ; => $0AB682 => $09F6F0 (NATIVE) 0AB951 C3 5F E3 READ.F $5FE3 0AB954 30 02 D5 BSR.68K $02D5 ; => $0AB682 => $09F6F0 (NATIVE) 0AB957 C3 5F EB READ.F $5FEB 0AB95A 30 02 DB BSR.68K $02DB ; => $0AB682 => $09F6F0 (NATIVE) 0AB95D C3 5F F3 READ.F $5FF3 0AB960 30 02 E1 BSR.68K $02E1 ; => $0AB682 => $09F6F0 (NATIVE) 0AB963 C3 5F FB READ.F $5FFB 0AB966 30 02 E7 BSR.68K $02E7 ; => $0AB682 => $09F6F0 (NATIVE) 0AB969 C3 60 03 READ.F $6003 0AB96C 30 02 ED BSR.68K $02ED ; => $0AB682 => $09F6F0 (NATIVE) 0AB96F C3 60 0B READ.F $600B 0AB972 30 02 F3 BSR.68K $02F3 ; => $0AB682 => $09F6F0 (NATIVE) 0AB975 C3 60 15 READ.F $6015 0AB978 30 02 F9 BSR.68K $02F9 ; => $0AB682 => $09F6F0 (NATIVE) 0AB97B C3 60 1D READ.F $601D 0AB97E 30 02 FF BSR.68K $02FF ; => $0AB682 => $09F6F0 (NATIVE) 0AB981 C1 60 0D READ.W $600D 0AB984 30 02 F9 BSR.68K $02F9 ; => $0AB68E => $09F770 (NATIVE) 0AB987 C1 60 1F READ.W $601F 0AB98A 30 02 FF BSR.68K $02FF ; => $0AB68E => $09F770 (NATIVE) 0AB98D 30 02 F0 BSR.68K $02F0 ; => $0AB6A0 => $09FC48 0AB990 40 PUSH.6 $00 0AB991 D0 4E 67 WRITE.B $4E67 0AB994 32 02 ADDSP.B $02 0AB996 34 RETURN ; ---------------- End Function $0AB924 ---------------- ; ---------------- Begin 2144 Function $0AB998 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0ABA80:$0ABAB1 ; called from $0ABB50:$0ABBC7 ; addr bytes opcode operands comment 0AB99F C3 60 3B READ.F $603B 0AB9A2 86 03 READ.L $03 0AB9A4 E2 01 E5 READ.L $01E5 0AB9A7 03 2A LONG2FLOAT 0AB9A9 21 SUB.F 0AB9AA 86 03 READ.L $03 0AB9AC E1 01 61 READ.W $0161 0AB9AF 3D 00 09 3A 80 PUSH.L $00093A80 0AB9B4 29 MUL.L 0AB9B5 03 2A LONG2FLOAT 0AB9B7 21 SUB.F 0AB9B8 3B 40 82 C0 00 00 00 00 00 PUSH.F $4082C00000000000 ; float = 600.000000 0AB9C1 03 21 LT.F 0AB9C3 18 3A BRZ $03A ; => $0AB9FF 0AB9C5 86 03 READ.L $03 0AB9C7 04 FF PUSH.10 $0FF 0AB9C9 F0 56 93 WRITE.B $5693 0AB9CC C0 58 66 READ.B $5866 0AB9CF 2E NOT.L 0AB9D0 18 19 BRZ $019 ; => $0AB9EB 0AB9D2 04 FF PUSH.10 $0FF 0AB9D4 D0 58 66 WRITE.B $5866 0AB9D7 C0 32 D4 READ.B $32D4 0AB9DA E1 2A 49 READ.W $2A49 0AB9DD 3C 27 10 PUSH.W $2710 0AB9E0 29 MUL.L 0AB9E1 C0 32 D5 READ.B $32D5 0AB9E4 E1 2D B9 READ.W $2DB9 0AB9E7 27 ADD.L 0AB9E8 30 03 45 BSR.68K $0345 ; => $0AB6A6 => $09FA9E 0AB9EB 30 03 42 BSR.68K $0342 ; => $0AB6AC => $09F7D6 0AB9EE 42 PUSH.6 $02 0AB9EF 03 27 LTE.L 0AB9F1 C0 35 4D READ.B $354D 0AB9F4 44 PUSH.6 $04 0AB9F5 03 27 LTE.L 0AB9F7 2C AND.L 0AB9F8 18 05 BRZ $005 ; => $0AB9FF 0AB9FA 86 03 READ.L $03 0AB9FC 30 03 4D BSR.68K $034D ; => $0AB6B2 0AB9FF 32 04 ADDSP.B $04 0ABA01 34 RETURN ; ---------------- End Function $0AB998 ---------------- ; ---------------- Begin 2144 Function $0ABA80 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ABFB6:$0ABFD3 ; called from $0ABFB6:$0ABFEE ; called from $0ABFB6:$0AC0EC ; addr bytes opcode operands comment 0ABA87 31 04 SUBSP.B $04 0ABA89 40 PUSH.6 $00 0ABA8A 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0ABA8D C0 29 9B READ.B $299B 0ABA90 38 00 3B BLS.B $003B ; => $0ABACE 0ABA93 84 00 READ.B $00 0ABA95 E0 60 29 READ.B $6029 0ABA98 18 2F BRZ $02F ; => $0ABAC9 0ABA9A 84 00 READ.B $00 0ABA9C E0 40 09 READ.B $4009 0ABA9F 94 01 WRITE.B $01 0ABAA1 84 00 READ.B $00 0ABAA3 E0 44 23 READ.B $4423 0ABAA6 84 01 READ.B $01 0ABAA8 E0 56 93 READ.B $5693 0ABAAB 2E NOT.L 0ABAAC 2C AND.L 0ABAAD 18 1A BRZ $01A ; => $0ABAC9 0ABAAF 84 01 READ.B $01 0ABAB1 30 00 8E BSR.68K $008E ; => $0ABA26 => $0AB998 0ABAB4 84 01 READ.B $01 0ABAB6 E0 56 93 READ.B $5693 0ABAB9 2E NOT.L 0ABABA C0 29 73 READ.B $2973 0ABABD 40 PUSH.6 $00 0ABABE 2A EQ.L 0ABABF 2C AND.L 0ABAC0 18 07 BRZ $007 ; => $0ABAC9 0ABAC2 84 01 READ.B $01 0ABAC4 04 FF PUSH.10 $0FF 0ABAC6 F0 28 D3 WRITE.B $28D3 0ABAC9 37 10 00 00 41 _23d2 $0000, $0041 0ABACE 32 04 ADDSP.B $04 0ABAD0 34 RETURN ; ---------------- End Function $0ABA80 ---------------- ; ---------------- Begin 2164 Function $0ABAD2 ---------------- ; P0 = $0004; P1 = $0008; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000008 ; called from $0ABB50:$0ABB7D ; called from $0ABB50:$0ABBE1 ; called from $0ABB50:$0ABC6E ; addr bytes opcode operands comment 0ABADB 31 0A SUBSP.B $0A 0ABADD 86 0B READ.L $0B 0ABADF E0 40 09 READ.B $4009 0ABAE2 94 14 WRITE.B $14 0ABAE4 86 0B READ.L $0B 0ABAE6 E0 44 23 READ.B $4423 0ABAE9 84 14 READ.B $14 0ABAEB 30 00 DA BSR.68K $00DA ; => $0ABA14 => $095184 0ABAEE 2C AND.L 0ABAEF 18 09 BRZ $009 ; => $0ABAFA 0ABAF1 86 0B READ.L $0B 0ABAF3 E3 43 29 READ.F $4329 0ABAF6 97 13 WRITE.F $13 0ABAF8 10 44 BR $044 ; => $0ABB3E 0ABAFA 84 14 READ.B $14 0ABAFC 40 PUSH.6 $00 0ABAFD 2A EQ.L 0ABAFE 18 0F BRZ $00F ; => $0ABB0F 0ABB00 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0ABB09 03 20 NEG.W 0ABB0B 97 13 WRITE.F $13 0ABB0D 10 2F BR $02F ; => $0ABB3E 0ABB0F 84 14 READ.B $14 0ABB11 30 01 00 BSR.68K $0100 ; => $0ABA14 => $095184 0ABB14 18 0A BRZ $00A ; => $0ABB20 0ABB16 84 14 READ.B $14 0ABB18 40 PUSH.6 $00 0ABB19 30 00 FC BSR.68K $00FC ; => $0ABA20 => $0AA3C0 0ABB1C 97 13 WRITE.F $13 0ABB1E 10 1E BR $01E ; => $0ABB3E 0ABB20 84 14 READ.B $14 0ABB22 30 01 0B BSR.68K $010B ; => $0ABA1A => $09519A 0ABB25 18 0A BRZ $00A ; => $0ABB31 0ABB27 84 14 READ.B $14 0ABB29 41 PUSH.6 $01 0ABB2A 30 01 0D BSR.68K $010D ; => $0ABA20 => $0AA3C0 0ABB2D 97 13 WRITE.F $13 0ABB2F 10 0D BR $00D ; => $0ABB3E 0ABB31 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0ABB3A 03 20 NEG.W 0ABB3C 97 13 WRITE.F $13 0ABB3E 87 13 READ.F $13 0ABB40 3B 40 66 80 00 00 00 00 00 PUSH.F $4066800000000000 ; float = 180.000000 0ABB49 22 MUL.F 0ABB4A 97 07 WRITE.F $07 0ABB4C 32 0E ADDSP.B $0E 0ABB4E 34 RETURN ; ---------------- End Function $0ABAD2 ---------------- ; ---------------- Begin 2144 Function $0ABB50 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ABFB6:$0ABFCE ; called from $0ABFB6:$0ABFE9 ; called from $0ABFB6:$0AC0BB ; called from $0ABFB6:$0AC0E7 ; addr bytes opcode operands comment 0ABB57 31 04 SUBSP.B $04 0ABB59 04 FF PUSH.10 $0FF 0ABB5B 94 02 WRITE.B $02 0ABB5D 40 PUSH.6 $00 0ABB5E 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0ABB61 C0 29 9B READ.B $299B 0ABB64 38 01 3C BLS.B $013C ; => $0ABCA3 0ABB67 84 00 READ.B $00 0ABB69 E0 60 29 READ.B $6029 0ABB6C 19 30 BRZ $130 ; => $0ABC9E 0ABB6E 84 02 READ.B $02 0ABB70 41 PUSH.6 $01 0ABB71 27 ADD.L 0ABB72 94 02 WRITE.B $02 0ABB74 84 00 READ.B $00 0ABB76 E0 40 09 READ.B $4009 0ABB79 94 01 WRITE.B $01 0ABB7B 84 00 READ.B $00 0ABB7D 30 00 AE BSR.68K $00AE ; => $0ABAD2 0ABB80 C3 28 DB READ.F $28DB 0ABB83 24 GT.F 0ABB84 C0 4E 70 READ.B $4E70 0ABB87 2D OR.L 0ABB88 84 00 READ.B $00 0ABB8A E0 56 9D READ.B $569D 0ABB8D 2E NOT.L 0ABB8E 2C AND.L 0ABB8F 84 01 READ.B $01 0ABB91 E0 22 D3 READ.B $22D3 0ABB94 2E NOT.L 0ABB95 2C AND.L 0ABB96 18 1F BRZ $01F ; => $0ABBB7 0ABB98 84 00 READ.B $00 0ABB9A 04 FF PUSH.10 $0FF 0ABB9C F0 56 9D WRITE.B $569D 0ABB9F C0 29 9C READ.B $299C 0ABBA2 18 0B BRZ $00B ; => $0ABBAF 0ABBA4 84 00 READ.B $00 0ABBA6 C0 29 A0 READ.B $29A0 0ABBA9 27 ADD.L 0ABBAA 04 FF PUSH.10 $0FF 0ABBAC F0 56 9D WRITE.B $569D 0ABBAF C0 56 9E READ.B $569E 0ABBB2 41 PUSH.6 $01 0ABBB3 27 ADD.L 0ABBB4 D0 56 9E WRITE.B $569E 0ABBB7 84 00 READ.B $00 0ABBB9 E0 56 9D READ.B $569D 0ABBBC 84 01 READ.B $01 0ABBBE E0 56 93 READ.B $5693 0ABBC1 2E NOT.L 0ABBC2 2C AND.L 0ABBC3 18 1A BRZ $01A ; => $0ABBDF 0ABBC5 84 01 READ.B $01 0ABBC7 30 01 A4 BSR.68K $01A4 ; => $0ABA26 => $0AB998 0ABBCA 84 01 READ.B $01 0ABBCC E0 56 93 READ.B $5693 0ABBCF 2E NOT.L 0ABBD0 C0 29 73 READ.B $2973 0ABBD3 40 PUSH.6 $00 0ABBD4 2A EQ.L 0ABBD5 2C AND.L 0ABBD6 18 07 BRZ $007 ; => $0ABBDF 0ABBD8 84 01 READ.B $01 0ABBDA 04 FF PUSH.10 $0FF 0ABBDC F0 28 D3 WRITE.B $28D3 0ABBDF 84 00 READ.B $00 0ABBE1 30 01 12 BSR.68K $0112 ; => $0ABAD2 0ABBE4 C3 28 DB READ.F $28DB 0ABBE7 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0ABBF0 21 SUB.F 0ABBF1 03 22 LTE.F 0ABBF3 C0 4E 70 READ.B $4E70 0ABBF6 2E NOT.L 0ABBF7 2C AND.L 0ABBF8 84 01 READ.B $01 0ABBFA E0 22 D3 READ.B $22D3 0ABBFD 2D OR.L 0ABBFE 84 00 READ.B $00 0ABC00 E0 56 9D READ.B $569D 0ABC03 2C AND.L 0ABC04 18 98 BRZ $098 ; => $0ABC9E 0ABC06 C0 57 40 READ.B $5740 0ABC09 18 61 BRZ $061 ; => $0ABC6C 0ABC0B C0 35 4D READ.B $354D 0ABC0E 45 PUSH.6 $05 0ABC0F 2A EQ.L 0ABC10 C0 32 D5 READ.B $32D5 0ABC13 4A PUSH.6 $0A 0ABC14 29 MUL.L 0ABC15 84 02 READ.B $02 0ABC17 C0 29 A0 READ.B $29A0 0ABC1A 27 ADD.L 0ABC1B 27 ADD.L 0ABC1C E0 31 6F READ.B $316F 0ABC1F 2C AND.L 0ABC20 84 02 READ.B $02 0ABC22 E0 29 0B READ.B $290B 0ABC25 C0 32 D5 READ.B $32D5 0ABC28 4A PUSH.6 $0A 0ABC29 29 MUL.L 0ABC2A 84 02 READ.B $02 0ABC2C C0 29 A0 READ.B $29A0 0ABC2F 27 ADD.L 0ABC30 27 ADD.L 0ABC31 E0 31 6F READ.B $316F 0ABC34 2B NEQ.L 0ABC35 2C AND.L 0ABC36 18 34 BRZ $034 ; => $0ABC6C 0ABC38 84 02 READ.B $02 0ABC3A C0 32 D5 READ.B $32D5 0ABC3D 4A PUSH.6 $0A 0ABC3E 29 MUL.L 0ABC3F 84 02 READ.B $02 0ABC41 C0 29 A0 READ.B $29A0 0ABC44 27 ADD.L 0ABC45 27 ADD.L 0ABC46 E0 31 6F READ.B $316F 0ABC49 F0 29 0B WRITE.B $290B 0ABC4C 84 02 READ.B $02 0ABC4E E0 29 0B READ.B $290B 0ABC51 40 PUSH.6 $00 0ABC52 F0 56 93 WRITE.B $5693 0ABC55 84 00 READ.B $00 0ABC57 04 FF PUSH.10 $0FF 0ABC59 F0 35 C3 WRITE.B $35C3 0ABC5C 84 00 READ.B $00 0ABC5E 84 02 READ.B $02 0ABC60 E0 29 0B READ.B $290B 0ABC63 F0 40 09 WRITE.B $4009 0ABC66 84 00 READ.B $00 0ABC68 40 PUSH.6 $00 0ABC69 F0 44 23 WRITE.B $4423 0ABC6C 84 00 READ.B $00 0ABC6E 30 01 9F BSR.68K $019F ; => $0ABAD2 0ABC71 C3 28 DB READ.F $28DB 0ABC74 03 22 LTE.F 0ABC76 84 00 READ.B $00 0ABC78 E0 40 09 READ.B $4009 0ABC7B E0 22 D3 READ.B $22D3 0ABC7E 2D OR.L 0ABC7F 18 1D BRZ $01D ; => $0ABC9E 0ABC81 84 00 READ.B $00 0ABC83 40 PUSH.6 $00 0ABC84 F0 56 9D WRITE.B $569D 0ABC87 C0 29 9C READ.B $299C 0ABC8A 18 0A BRZ $00A ; => $0ABC96 0ABC8C 84 00 READ.B $00 0ABC8E C0 29 A0 READ.B $29A0 0ABC91 27 ADD.L 0ABC92 40 PUSH.6 $00 0ABC93 F0 56 9D WRITE.B $569D 0ABC96 C0 56 9E READ.B $569E 0ABC99 41 PUSH.6 $01 0ABC9A 28 SUB.L 0ABC9B D0 56 9E WRITE.B $569E 0ABC9E 37 10 00 01 42 _23d2 $0000, $0142 0ABCA3 32 04 ADDSP.B $04 0ABCA5 34 RETURN ; ---------------- End Function $0ABB50 ---------------- ; ---------------- Begin 2164 Function $0ABCA6 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0ABFB6:$0AC056 ; addr bytes opcode operands comment 0ABCAF C0 55 62 READ.B $5562 0ABCB2 44 PUSH.6 $04 0ABCB3 2A EQ.L 0ABCB4 C3 56 1D READ.F $561D 0ABCB7 30 02 B8 BSR.68K $02B8 ; => $0ABA02 => $002B7E (NATIVE) 0ABCBA 3B 3F C4 7A E1 47 AE 14 7B PUSH.F $3FC47AE147AE147B ; float = 0.160000 0ABCC3 03 21 LT.F 0ABCC5 2C AND.L 0ABCC6 C0 4E 70 READ.B $4E70 0ABCC9 2D OR.L 0ABCCA 18 06 BRZ $006 ; => $0ABCD2 0ABCCC 04 FF PUSH.10 $0FF 0ABCCE 96 03 WRITE.L $03 0ABCD0 10 20 BR $020 ; => $0ABCF2 0ABCD2 C3 56 A7 READ.F $56A7 0ABCD5 3E PUSH.W $0000 0ABCD6 26 EQ.F 0ABCD7 18 06 BRZ $006 ; => $0ABCDF 0ABCD9 C3 60 3B READ.F $603B 0ABCDC D3 56 A7 WRITE.F $56A7 0ABCDF C3 60 3B READ.F $603B 0ABCE2 C3 56 A7 READ.F $56A7 0ABCE5 3B 40 4E 00 00 00 00 00 00 PUSH.F $404E000000000000 ; float = 60.000000 0ABCEE 20 ADD.F 0ABCEF 24 GT.F 0ABCF0 96 03 WRITE.L $03 0ABCF2 34 RETURN ; ---------------- End Function $0ABCA6 ---------------- ; ---------------- Begin 2144 Function $0ABCF4 ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $09B0DA:$09B0F2 ; called from $0A77DA:$0A7803 ; called from $0ABFB6:$0AC032 ; called from $0ABFB6:$0AC051 ; called from $0ABFB6:$0AC159 ; addr bytes opcode operands comment 0ABCFB 31 04 SUBSP.B $04 0ABCFD 40 PUSH.6 $00 0ABCFE 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0ABD01 49 PUSH.6 $09 0ABD02 38 00 35 BLS.B $0035 ; => $0ABD3A 0ABD05 84 04 READ.B $04 0ABD07 E1 57 03 READ.W $5703 0ABD0A 84 04 READ.B $04 0ABD0C E1 57 2B READ.W $572B 0ABD0F 03 25 LT.L 0ABD11 18 0A BRZ $00A ; => $0ABD1D 0ABD13 84 04 READ.B $04 0ABD15 84 04 READ.B $04 0ABD17 E1 57 03 READ.W $5703 0ABD1A F1 57 2B WRITE.W $572B 0ABD1D 84 04 READ.B $04 0ABD1F E1 57 17 READ.W $5717 0ABD22 84 04 READ.B $04 0ABD24 E1 57 3F READ.W $573F 0ABD27 03 25 LT.L 0ABD29 18 0A BRZ $00A ; => $0ABD35 0ABD2B 84 04 READ.B $04 0ABD2D 84 04 READ.B $04 0ABD2F E1 57 17 READ.W $5717 0ABD32 F1 57 3F WRITE.W $573F 0ABD35 37 10 04 00 39 _23d2 $0004, $0039 0ABD3A C0 55 A2 READ.B $55A2 0ABD3D 18 06 BRZ $006 ; => $0ABD45 0ABD3F C1 56 AF READ.W $56AF 0ABD42 D1 56 AD WRITE.W $56AD 0ABD45 C0 58 66 READ.B $5866 0ABD48 18 10 BRZ $010 ; => $0ABD5A 0ABD4A 30 02 EB BSR.68K $02EB ; => $0ABA62 => $0AB7A8 0ABD4D 30 02 E8 BSR.68K $02E8 ; => $0ABA68 => $0AB924 0ABD50 C3 56 BF READ.F $56BF 0ABD53 3E PUSH.W $0000 0ABD54 26 EQ.F 0ABD55 18 03 BRZ $003 ; => $0ABD5A 0ABD57 30 02 FE BSR.68K $02FE ; => $0ABA5C => $0AB5D4 0ABD5A 46 PUSH.6 $06 0ABD5B D0 35 4D WRITE.B $354D 0ABD5E 86 03 READ.L $03 0ABD60 2E NOT.L 0ABD61 C0 32 D5 READ.B $32D5 0ABD64 E0 32 CD READ.B $32CD 0ABD67 2C AND.L 0ABD68 30 02 F7 BSR.68K $02F7 ; => $0ABA74 => $09F7D6 0ABD6B 42 PUSH.6 $02 0ABD6C 03 27 LTE.L 0ABD6E 2C AND.L 0ABD6F 18 2F BRZ $02F ; => $0ABDA0 0ABD71 C0 56 C6 READ.B $56C6 0ABD74 94 05 WRITE.B $05 0ABD76 C0 56 C5 READ.B $56C5 0ABD79 94 06 WRITE.B $06 0ABD7B C0 32 D5 READ.B $32D5 0ABD7E E0 32 CD READ.B $32CD 0ABD81 04 7F PUSH.10 $07F 0ABD83 2C AND.L 0ABD84 D0 32 D5 WRITE.B $32D5 0ABD87 30 03 4C BSR.68K $034C ; => $0ABA3E => $09B16A 0ABD8A 84 05 READ.B $05 0ABD8C D0 56 C6 WRITE.B $56C6 0ABD8F 84 06 READ.B $06 0ABD91 D0 56 C5 WRITE.B $56C5 0ABD94 30 03 6B BSR.68K $036B ; => $0ABA2C => $09B500 0ABD97 30 03 68 BSR.68K $0368 ; => $0ABA32 => $09B386 0ABD9A 41 PUSH.6 $01 0ABD9B D0 56 6F WRITE.B $566F 0ABD9E 10 13 BR $013 ; => $0ABDB3 0ABDA0 40 PUSH.6 $00 0ABDA1 D0 56 6E WRITE.B $566E 0ABDA4 40 PUSH.6 $00 0ABDA5 D0 56 6D WRITE.B $566D 0ABDA8 30 03 7F BSR.68K $037F ; => $0ABA2C => $09B500 0ABDAB 3E PUSH.W $0000 0ABDAC D3 35 55 WRITE.F $3555 0ABDAF 40 PUSH.6 $00 0ABDB0 D0 56 6F WRITE.B $566F 0ABDB3 32 08 ADDSP.B $08 0ABDB5 34 RETURN ; ---------------- End Function $0ABCF4 ---------------- ; ---------------- Begin 2144 Function $0ABDB6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ABFB6:$0AC296 ; called from $0ABFB6:$0AC35E ; addr bytes opcode operands comment 0ABDBD C0 35 90 READ.B $3590 0ABDC0 C0 29 72 READ.B $2972 0ABDC3 40 PUSH.6 $00 0ABDC4 2A EQ.L 0ABDC5 C0 60 AC READ.B $60AC 0ABDC8 2E NOT.L 0ABDC9 2D OR.L 0ABDCA 2C AND.L 0ABDCB C0 4E 51 READ.B $4E51 0ABDCE 40 PUSH.6 $00 0ABDCF 2A EQ.L 0ABDD0 2C AND.L 0ABDD1 18 16 BRZ $016 ; => $0ABDE9 0ABDD3 C0 29 5A READ.B $295A 0ABDD6 40 PUSH.6 $00 0ABDD7 03 25 LT.L 0ABDD9 18 0A BRZ $00A ; => $0ABDE5 0ABDDB C0 29 5A READ.B $295A 0ABDDE 41 PUSH.6 $01 0ABDDF 27 ADD.L 0ABDE0 D0 4E 51 WRITE.B $4E51 0ABDE3 10 04 BR $004 ; => $0ABDE9 0ABDE5 43 PUSH.6 $03 0ABDE6 D0 4E 51 WRITE.B $4E51 0ABDE9 34 RETURN ; ---------------- End Function $0ABDB6 ---------------- ; ---------------- Begin 2144 Function $0ABDEA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ABFB6:$0ABFBF ; addr bytes opcode operands comment 0ABDF1 C0 55 62 READ.B $5562 0ABDF4 18 EA BRZ $0EA ; => $0ABEE0 0ABDF6 C0 55 62 READ.B $5562 0ABDF9 44 PUSH.6 $04 0ABDFA 2A EQ.L 0ABDFB 18 80 BRZ $080 ; => $0ABE7D 0ABDFD 83 67 READ.F $67 0ABDFF C3 5F DB READ.F $5FDB 0ABE02 03 21 LT.F 0ABE04 18 17 BRZ $017 ; => $0ABE1D 0ABE06 83 67 READ.F $67 0ABE08 D3 5F DB WRITE.F $5FDB 0ABE0B C3 54 E9 READ.F $54E9 0ABE0E D3 5F C3 WRITE.F $5FC3 0ABE11 C3 54 F1 READ.F $54F1 0ABE14 D3 5F CB WRITE.F $5FCB 0ABE17 C3 54 F9 READ.F $54F9 0ABE1A D3 5F D3 WRITE.F $5FD3 0ABE1D C3 5F FB READ.F $5FFB 0ABE20 C1 60 0D READ.W $600D 0ABE23 03 2A LONG2FLOAT 0ABE25 22 MUL.F 0ABE26 C3 54 E9 READ.F $54E9 0ABE29 20 ADD.F 0ABE2A C1 60 0D READ.W $600D 0ABE2D 41 PUSH.6 $01 0ABE2E 27 ADD.L 0ABE2F 03 2A LONG2FLOAT 0ABE31 23 DIV.F 0ABE32 D3 5F FB WRITE.F $5FFB 0ABE35 C3 60 03 READ.F $6003 0ABE38 C1 60 0D READ.W $600D 0ABE3B 03 2A LONG2FLOAT 0ABE3D 22 MUL.F 0ABE3E C3 54 F1 READ.F $54F1 0ABE41 20 ADD.F 0ABE42 C1 60 0D READ.W $600D 0ABE45 41 PUSH.6 $01 0ABE46 27 ADD.L 0ABE47 03 2A LONG2FLOAT 0ABE49 23 DIV.F 0ABE4A D3 60 03 WRITE.F $6003 0ABE4D C3 60 0B READ.F $600B 0ABE50 C1 60 0D READ.W $600D 0ABE53 03 2A LONG2FLOAT 0ABE55 22 MUL.F 0ABE56 C3 54 F9 READ.F $54F9 0ABE59 20 ADD.F 0ABE5A C1 60 0D READ.W $600D 0ABE5D 41 PUSH.6 $01 0ABE5E 27 ADD.L 0ABE5F 03 2A LONG2FLOAT 0ABE61 23 DIV.F 0ABE62 D3 60 0B WRITE.F $600B 0ABE65 C1 60 0D READ.W $600D 0ABE68 41 PUSH.6 $01 0ABE69 27 ADD.L 0ABE6A D1 60 0D WRITE.W $600D 0ABE6D 83 67 READ.F $67 0ABE6F C3 28 ED READ.F $28ED 0ABE72 03 22 LTE.F 0ABE74 18 05 BRZ $005 ; => $0ABE7B 0ABE76 04 FF PUSH.10 $0FF 0ABE78 D0 56 C5 WRITE.B $56C5 0ABE7B 10 59 BR $059 ; => $0ABED6 0ABE7D C0 55 62 READ.B $5562 0ABE80 43 PUSH.6 $03 0ABE81 2A EQ.L 0ABE82 18 52 BRZ $052 ; => $0ABED6 0ABE84 83 67 READ.F $67 0ABE86 C3 5F F3 READ.F $5FF3 0ABE89 03 21 LT.F 0ABE8B 18 11 BRZ $011 ; => $0ABE9E 0ABE8D 83 67 READ.F $67 0ABE8F D3 5F F3 WRITE.F $5FF3 0ABE92 C3 54 E9 READ.F $54E9 0ABE95 D3 5F E3 WRITE.F $5FE3 0ABE98 C3 54 F1 READ.F $54F1 0ABE9B D3 5F EB WRITE.F $5FEB 0ABE9E C3 60 15 READ.F $6015 0ABEA1 C1 60 1F READ.W $601F 0ABEA4 03 2A LONG2FLOAT 0ABEA6 22 MUL.F 0ABEA7 C3 54 E9 READ.F $54E9 0ABEAA 20 ADD.F 0ABEAB C1 60 1F READ.W $601F 0ABEAE 41 PUSH.6 $01 0ABEAF 27 ADD.L 0ABEB0 03 2A LONG2FLOAT 0ABEB2 23 DIV.F 0ABEB3 D3 60 15 WRITE.F $6015 0ABEB6 C3 60 1D READ.F $601D 0ABEB9 C1 60 1F READ.W $601F 0ABEBC 03 2A LONG2FLOAT 0ABEBE 22 MUL.F 0ABEBF C3 54 F1 READ.F $54F1 0ABEC2 20 ADD.F 0ABEC3 C1 60 1F READ.W $601F 0ABEC6 41 PUSH.6 $01 0ABEC7 27 ADD.L 0ABEC8 03 2A LONG2FLOAT 0ABECA 23 DIV.F 0ABECB D3 60 1D WRITE.F $601D 0ABECE C1 60 1F READ.W $601F 0ABED1 41 PUSH.6 $01 0ABED2 27 ADD.L 0ABED3 D1 60 1F WRITE.W $601F 0ABED6 C0 56 C6 READ.B $56C6 0ABED9 2E NOT.L 0ABEDA 18 04 BRZ $004 ; => $0ABEE0 0ABEDC 4B PUSH.6 $0B 0ABEDD D0 55 70 WRITE.B $5570 0ABEE0 34 RETURN ; ---------------- End Function $0ABDEA ---------------- ; ---------------- Begin 2164 Function $0ABEE2 ---------------- ; P0 = $0004; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $3; D1 = $000004 ; called from $0AB468:$0AB49B ; called from $0ABFB6:$0AC170 ; called from $0ABFB6:$0AC24D ; called from $0ABFB6:$0AC2C8 ; called from $0ABFB6:$0AC2E9 ; addr bytes opcode operands comment 0ABEEB 86 07 READ.L $07 0ABEED E0 44 23 READ.B $4423 0ABEF0 86 07 READ.L $07 0ABEF2 E0 40 09 READ.B $4009 0ABEF5 30 04 E4 BSR.68K $04E4 ; => $0ABA14 => $095184 0ABEF8 2C AND.L 0ABEF9 86 07 READ.L $07 0ABEFB E0 56 9D READ.B $569D 0ABEFE C0 56 C6 READ.B $56C6 0ABF01 2E NOT.L 0ABF02 2D OR.L 0ABF03 2C AND.L 0ABF04 96 03 WRITE.L $03 0ABF06 32 04 ADDSP.B $04 0ABF08 34 RETURN ; ---------------- End Function $0ABEE2 ---------------- ; ---------------- Begin 2164 Function $0ABF0A ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0ABFB6:$0ABFD6 ; called from $0ABFB6:$0AC026 ; called from $0ABFB6:$0AC045 ; called from $0ABFB6:$0AC136 ; addr bytes opcode operands comment 0ABF13 C0 32 D5 READ.B $32D5 0ABF16 E1 2E E5 READ.W $2EE5 0ABF19 C0 32 D5 READ.B $32D5 0ABF1C E1 2E 81 READ.W $2E81 0ABF1F 03 27 LTE.L 0ABF21 18 1B BRZ $01B ; => $0ABF3E 0ABF23 C1 56 AF READ.W $56AF 0ABF26 C0 32 D5 READ.B $32D5 0ABF29 E1 2E 81 READ.W $2E81 0ABF2C 03 27 LTE.L 0ABF2E C1 56 AF READ.W $56AF 0ABF31 C0 32 D5 READ.B $32D5 0ABF34 E1 2E E5 READ.W $2EE5 0ABF37 03 26 GT.L 0ABF39 2C AND.L 0ABF3A 96 03 WRITE.L $03 0ABF3C 10 19 BR $019 ; => $0ABF57 0ABF3E C1 56 AF READ.W $56AF 0ABF41 C0 32 D5 READ.B $32D5 0ABF44 E1 2E 81 READ.W $2E81 0ABF47 03 27 LTE.L 0ABF49 C1 56 AF READ.W $56AF 0ABF4C C0 32 D5 READ.B $32D5 0ABF4F E1 2E E5 READ.W $2EE5 0ABF52 03 26 GT.L 0ABF54 2D OR.L 0ABF55 96 03 WRITE.L $03 0ABF57 34 RETURN ; ---------------- End Function $0ABF0A ---------------- ; ---------------- Begin 2164 Function $0ABF58 ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0ABFB6:$0AC006 ; called from $0ABFB6:$0AC222 ; addr bytes opcode operands comment 0ABF61 31 04 SUBSP.B $04 0ABF63 40 PUSH.6 $00 0ABF64 94 06 WRITE.B $06 0ABF66 40 PUSH.6 $00 0ABF67 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0ABF6A C0 29 9B READ.B $299B 0ABF6D 38 00 37 BLS.B $0037 ; => $0ABFA7 0ABF70 84 04 READ.B $04 0ABF72 E0 40 09 READ.B $4009 0ABF75 94 05 WRITE.B $05 0ABF77 84 04 READ.B $04 0ABF79 E0 44 23 READ.B $4423 0ABF7C 84 05 READ.B $05 0ABF7E E0 56 93 READ.B $5693 0ABF81 C0 4E 70 READ.B $4E70 0ABF84 2D OR.L 0ABF85 2C AND.L 0ABF86 84 04 READ.B $04 0ABF88 30 05 11 BSR.68K $0511 ; => $0ABA7A => $090B50 0ABF8B 2C AND.L 0ABF8C 84 05 READ.B $05 0ABF8E E0 02 29 READ.B $0229 0ABF91 40 PUSH.6 $00 0ABF92 2A EQ.L 0ABF93 84 05 READ.B $05 0ABF95 E0 22 F5 READ.B $22F5 0ABF98 2D OR.L 0ABF99 2C AND.L 0ABF9A 18 06 BRZ $006 ; => $0ABFA2 0ABF9C 84 06 READ.B $06 0ABF9E 41 PUSH.6 $01 0ABF9F 27 ADD.L 0ABFA0 94 06 WRITE.B $06 0ABFA2 37 10 04 00 3D _23d2 $0004, $003D 0ABFA7 84 06 READ.B $06 0ABFA9 C0 32 D5 READ.B $32D5 0ABFAC E0 2F 49 READ.B $2F49 0ABFAF 03 27 LTE.L 0ABFB1 96 03 WRITE.L $03 0ABFB3 32 04 ADDSP.B $04 0ABFB5 34 RETURN ; ---------------- End Function $0ABF58 ---------------- ; ---------------- Begin 2144 Function $0ABFB6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D814 ; called from $09D7A0:$09D824 ; addr bytes opcode operands comment 0ABFBD 31 0E SUBSP.B $0E 0ABFBF 30 01 D8 BSR.68K $01D8 ; => $0ABDEA 0ABFC2 C0 35 4D READ.B $354D 0ABFC5 35 SWITCH 0ABFC6 10 19 01 CASE $01 ; SWITCH $0ABFC5 0ABFC9 C0 56 C6 READ.B $56C6 0ABFCC 18 05 BRZ $005 ; => $0ABFD3 0ABFCE 30 04 81 BSR.68K $0481 ; => $0ABB50 0ABFD1 10 03 BR $003 ; => $0ABFD6 0ABFD3 30 05 56 BSR.68K $0556 ; => $0ABA80 0ABFD6 30 00 CF BSR.68K $00CF ; => $0ABF0A 0ABFD9 18 04 BRZ $004 ; => $0ABFDF 0ABFDB 42 PUSH.6 $02 0ABFDC D0 35 4D WRITE.B $354D 0ABFDF 13 C7 BR $3C7 ; => $0AC3A8 0ABFE1 10 54 02 CASE $02 ; SWITCH $0ABFC5 0ABFE4 C0 56 C6 READ.B $56C6 0ABFE7 18 05 BRZ $005 ; => $0ABFEE 0ABFE9 30 04 9C BSR.68K $049C ; => $0ABB50 0ABFEC 10 03 BR $003 ; => $0ABFF1 0ABFEE 30 05 71 BSR.68K $0571 ; => $0ABA80 0ABFF1 C0 56 9E READ.B $569E 0ABFF4 C0 32 D5 READ.B $32D5 0ABFF7 E0 2F 49 READ.B $2F49 0ABFFA 03 27 LTE.L 0ABFFC C0 56 C6 READ.B $56C6 0ABFFF C0 55 70 READ.B $5570 0AC002 4B PUSH.6 $0B 0AC003 2A EQ.L 0AC004 2D OR.L 0AC005 2E NOT.L 0AC006 30 00 B1 BSR.68K $00B1 ; => $0ABF58 0AC009 2C AND.L 0AC00A 2D OR.L 0AC00B 18 13 BRZ $013 ; => $0AC020 0AC00D 49 PUSH.6 $09 0AC00E D0 55 70 WRITE.B $5570 0AC011 30 06 06 BSR.68K $0606 ; => $0ABA0E => $09B4E2 0AC014 C0 56 C6 READ.B $56C6 0AC017 D0 56 C7 WRITE.B $56C7 0AC01A 43 PUSH.6 $03 0AC01B D0 35 4D WRITE.B $354D 0AC01E 10 15 BR $015 ; => $0AC035 0AC020 C0 32 D5 READ.B $32D5 0AC023 E0 2E 1D READ.B $2E1D 0AC026 30 01 1F BSR.68K $011F ; => $0ABF0A 0AC029 2E NOT.L 0AC02A 2C AND.L 0AC02B 18 08 BRZ $008 ; => $0AC035 0AC02D 72 PUSH.6 $32 0AC02E D0 4E 51 WRITE.B $4E51 0AC031 40 PUSH.6 $00 0AC032 30 03 41 BSR.68K $0341 ; => $0ABCF4 0AC035 13 71 BR $371 ; => $0AC3A8 0AC037 10 47 03 CASE $03 ; SWITCH $0ABFC5 0AC03A C0 54 2C READ.B $542C 0AC03D 18 17 BRZ $017 ; => $0AC056 0AC03F C0 32 D5 READ.B $32D5 0AC042 E0 2E 1D READ.B $2E1D 0AC045 30 01 3E BSR.68K $013E ; => $0ABF0A 0AC048 2E NOT.L 0AC049 2C AND.L 0AC04A 18 08 BRZ $008 ; => $0AC054 0AC04C 72 PUSH.6 $32 0AC04D D0 4E 51 WRITE.B $4E51 0AC050 40 PUSH.6 $00 0AC051 30 03 60 BSR.68K $0360 ; => $0ABCF4 0AC054 10 28 BR $028 ; => $0AC07E 0AC056 30 03 B3 BSR.68K $03B3 ; => $0ABCA6 0AC059 C0 33 70 READ.B $3370 0AC05C 41 PUSH.6 $01 0AC05D 2A EQ.L 0AC05E 2D OR.L 0AC05F 18 1D BRZ $01D ; => $0AC07E 0AC061 30 06 32 BSR.68K $0632 ; => $0ABA32 => $09B386 0AC064 30 06 2F BSR.68K $062F ; => $0ABA38 => $09B476 0AC067 41 PUSH.6 $01 0AC068 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0AC06B 60 PUSH.6 $20 0AC06C 38 00 0B BLS.B $000B ; => $0AC07A 0AC06F 84 04 READ.B $04 0AC071 40 PUSH.6 $00 0AC072 F0 56 93 WRITE.B $5693 0AC075 37 10 04 00 0F _23d2 $0004, $000F 0AC07A 44 PUSH.6 $04 0AC07B D0 35 4D WRITE.B $354D 0AC07E 13 28 BR $328 ; => $0AC3A8 0AC080 10 58 04 CASE $04 ; SWITCH $0ABFC5 0AC083 C1 56 AF READ.W $56AF 0AC086 D1 56 AB WRITE.W $56AB 0AC089 C0 58 66 READ.B $5866 0AC08C 2E NOT.L 0AC08D 18 19 BRZ $019 ; => $0AC0A8 0AC08F 04 FF PUSH.10 $0FF 0AC091 D0 58 66 WRITE.B $5866 0AC094 C0 32 D4 READ.B $32D4 0AC097 E1 2A 49 READ.W $2A49 0AC09A 3C 27 10 PUSH.W $2710 0AC09D 29 MUL.L 0AC09E C0 32 D5 READ.B $32D5 0AC0A1 E1 2D B9 READ.W $2DB9 0AC0A4 27 ADD.L 0AC0A5 30 06 3A BSR.68K $063A ; => $0ABA6E => $09FA9E 0AC0A8 30 06 49 BSR.68K $0649 ; => $0ABA62 => $0AB7A8 0AC0AB C0 56 C7 READ.B $56C7 0AC0AE C0 56 C6 READ.B $56C6 0AC0B1 2E NOT.L 0AC0B2 2D OR.L 0AC0B3 18 06 BRZ $006 ; => $0AC0BB 0AC0B5 45 PUSH.6 $05 0AC0B6 D0 35 4D WRITE.B $354D 0AC0B9 10 17 BR $017 ; => $0AC0D2 0AC0BB 30 05 6E BSR.68K $056E ; => $0ABB50 0AC0BE C0 56 9E READ.B $569E 0AC0C1 C0 32 D5 READ.B $32D5 0AC0C4 E0 2F 49 READ.B $2F49 0AC0C7 03 27 LTE.L 0AC0C9 18 03 BRZ $003 ; => $0AC0CE 0AC0CB 45 PUSH.6 $05 0AC0CC 10 01 BR $001 ; => $0AC0CF 0AC0CE 42 PUSH.6 $02 0AC0CF D0 35 4D WRITE.B $354D 0AC0D2 C0 56 C6 READ.B $56C6 0AC0D5 D0 56 C7 WRITE.B $56C7 0AC0D8 12 CE BR $2CE ; => $0AC3A8 0AC0DA 12 CB 05 CASE $05 ; SWITCH $0ABFC5 0AC0DD 30 06 D8 BSR.68K $06D8 ; => $0ABA08 => $094E22 0AC0E0 97 0D WRITE.F $0D 0AC0E2 C0 56 C6 READ.B $56C6 0AC0E5 18 05 BRZ $005 ; => $0AC0EC 0AC0E7 30 05 9A BSR.68K $059A ; => $0ABB50 0AC0EA 10 03 BR $003 ; => $0AC0EF 0AC0EC 30 06 6F BSR.68K $066F ; => $0ABA80 0AC0EF C0 56 C7 READ.B $56C7 0AC0F2 2E NOT.L 0AC0F3 C0 56 C6 READ.B $56C6 0AC0F6 2C AND.L 0AC0F7 18 18 BRZ $018 ; => $0AC111 0AC0F9 C0 56 9E READ.B $569E 0AC0FC C0 32 D5 READ.B $32D5 0AC0FF E0 2F 49 READ.B $2F49 0AC102 03 26 GT.L 0AC104 18 06 BRZ $006 ; => $0AC10C 0AC106 42 PUSH.6 $02 0AC107 D0 35 4D WRITE.B $354D 0AC10A 12 9C BR $29C ; => $0AC3A8 0AC10C 04 FF PUSH.10 $0FF 0AC10E D0 56 C7 WRITE.B $56C7 0AC111 C0 32 D5 READ.B $32D5 0AC114 E0 2E 1D READ.B $2E1D 0AC117 2E NOT.L 0AC118 C0 56 9E READ.B $569E 0AC11B C0 32 D5 READ.B $32D5 0AC11E E0 2F 49 READ.B $2F49 0AC121 03 26 GT.L 0AC123 2C AND.L 0AC124 C0 32 D5 READ.B $32D5 0AC127 E0 33 0B READ.B $330B 0AC12A 2E NOT.L 0AC12B 2C AND.L 0AC12C C0 56 C6 READ.B $56C6 0AC12F 2C AND.L 0AC130 C0 32 D5 READ.B $32D5 0AC133 E0 2E 1D READ.B $2E1D 0AC136 30 02 2F BSR.68K $022F ; => $0ABF0A 0AC139 2E NOT.L 0AC13A 2C AND.L 0AC13B 2D OR.L 0AC13C 30 06 CB BSR.68K $06CB ; => $0ABA74 => $09F7D6 0AC13F 42 PUSH.6 $02 0AC140 03 26 GT.L 0AC142 2D OR.L 0AC143 18 19 BRZ $019 ; => $0AC15E 0AC145 30 06 D4 BSR.68K $06D4 ; => $0ABA74 => $09F7D6 0AC148 42 PUSH.6 $02 0AC149 03 26 GT.L 0AC14B 18 07 BRZ $007 ; => $0AC154 0AC14D 04 FA PUSH.10 $0FA 0AC14F D0 4E 51 WRITE.B $4E51 0AC152 10 04 BR $004 ; => $0AC158 0AC154 72 PUSH.6 $32 0AC155 D0 4E 51 WRITE.B $4E51 0AC158 40 PUSH.6 $00 0AC159 30 04 68 BSR.68K $0468 ; => $0ABCF4 0AC15C 12 4A BR $24A ; => $0AC3A8 0AC15E 40 PUSH.6 $00 0AC15F 94 02 WRITE.B $02 0AC161 40 PUSH.6 $00 0AC162 94 03 WRITE.B $03 0AC164 40 PUSH.6 $00 0AC165 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AC168 C0 29 9B READ.B $299B 0AC16B 38 00 2D BLS.B $002D ; => $0AC19B 0AC16E 84 00 READ.B $00 0AC170 30 02 91 BSR.68K $0291 ; => $0ABEE2 0AC173 18 21 BRZ $021 ; => $0AC196 0AC175 84 02 READ.B $02 0AC177 41 PUSH.6 $01 0AC178 27 ADD.L 0AC179 94 02 WRITE.B $02 0AC17B 84 00 READ.B $00 0AC17D E0 49 11 READ.B $4911 0AC180 42 PUSH.6 $02 0AC181 2C AND.L 0AC182 40 PUSH.6 $00 0AC183 84 00 READ.B $00 0AC185 E0 4B 7D READ.B $4B7D 0AC188 48 PUSH.6 $08 0AC189 2C AND.L 0AC18A 48 PUSH.6 $08 0AC18B 2A EQ.L 0AC18C 2C AND.L 0AC18D 2A EQ.L 0AC18E 18 06 BRZ $006 ; => $0AC196 0AC190 84 03 READ.B $03 0AC192 41 PUSH.6 $01 0AC193 27 ADD.L 0AC194 94 03 WRITE.B $03 0AC196 37 10 00 00 33 _23d2 $0000, $0033 0AC19B 84 03 READ.B $03 0AC19D 44 PUSH.6 $04 0AC19E 03 26 GT.L 0AC1A0 18 2B BRZ $02B ; => $0AC1CD 0AC1A2 40 PUSH.6 $00 0AC1A3 D1 60 AB WRITE.W $60AB 0AC1A6 40 PUSH.6 $00 0AC1A7 D1 60 B1 WRITE.W $60B1 0AC1AA C0 60 AC READ.B $60AC 0AC1AD C0 60 B2 READ.B $60B2 0AC1B0 C0 60 B5 READ.B $60B5 0AC1B3 2D OR.L 0AC1B4 2E NOT.L 0AC1B5 2D OR.L 0AC1B6 18 13 BRZ $013 ; => $0AC1CB 0AC1B8 04 FF PUSH.10 $0FF 0AC1BA D0 60 B3 WRITE.B $60B3 0AC1BD C0 60 B4 READ.B $60B4 0AC1C0 84 03 READ.B $03 0AC1C2 03 25 LT.L 0AC1C4 18 05 BRZ $005 ; => $0AC1CB 0AC1C6 84 03 READ.B $03 0AC1C8 D0 60 B4 WRITE.B $60B4 0AC1CB 10 28 BR $028 ; => $0AC1F5 0AC1CD C0 56 70 READ.B $5670 0AC1D0 18 23 BRZ $023 ; => $0AC1F5 0AC1D2 C1 60 AB READ.W $60AB 0AC1D5 41 PUSH.6 $01 0AC1D6 27 ADD.L 0AC1D7 D1 60 AB WRITE.W $60AB 0AC1DA C0 60 AE READ.B $60AE 0AC1DD 42 PUSH.6 $02 0AC1DE 2A EQ.L 0AC1DF 18 08 BRZ $008 ; => $0AC1E9 0AC1E1 C1 60 B1 READ.W $60B1 0AC1E4 41 PUSH.6 $01 0AC1E5 27 ADD.L 0AC1E6 D1 60 B1 WRITE.W $60B1 0AC1E9 C1 60 B1 READ.W $60B1 0AC1EC 42 PUSH.6 $02 0AC1ED 2A EQ.L 0AC1EE 18 05 BRZ $005 ; => $0AC1F5 0AC1F0 04 FF PUSH.10 $0FF 0AC1F2 D0 60 B2 WRITE.B $60B2 0AC1F5 C0 60 B3 READ.B $60B3 0AC1F8 18 09 BRZ $009 ; => $0AC203 0AC1FA 60 PUSH.6 $20 0AC1FB D0 4E 51 WRITE.B $4E51 0AC1FE 04 FB PUSH.10 $0FB 0AC200 D0 60 AD WRITE.B $60AD 0AC203 C0 56 70 READ.B $5670 0AC206 2E NOT.L 0AC207 18 02 BRZ $002 ; => $0AC20B 0AC209 11 9D BR $19D ; => $0AC3A8 0AC20B C0 56 C6 READ.B $56C6 0AC20E 18 12 BRZ $012 ; => $0AC222 0AC210 C0 56 9E READ.B $569E 0AC213 C0 32 D5 READ.B $32D5 0AC216 E0 2F 49 READ.B $2F49 0AC219 03 26 GT.L 0AC21B 18 03 BRZ $003 ; => $0AC220 0AC21D 40 PUSH.6 $00 0AC21E 94 02 WRITE.B $02 0AC220 10 09 BR $009 ; => $0AC22B 0AC222 30 02 CD BSR.68K $02CD ; => $0ABF58 0AC225 2E NOT.L 0AC226 18 03 BRZ $003 ; => $0AC22B 0AC228 40 PUSH.6 $00 0AC229 94 02 WRITE.B $02 0AC22B 84 02 READ.B $02 0AC22D 40 PUSH.6 $00 0AC22E 03 25 LT.L 0AC230 19 00 BRZ $100 ; => $0AC332 0AC232 C0 32 D5 READ.B $32D5 0AC235 E0 33 0B READ.B $330B 0AC238 18 5C BRZ $05C ; => $0AC296 0AC23A 40 PUSH.6 $00 0AC23B 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AC23E C0 29 9A READ.B $299A 0AC241 38 00 50 BLS.B $0050 ; => $0AC294 0AC244 84 00 READ.B $00 0AC246 E0 60 29 READ.B $6029 0AC249 18 44 BRZ $044 ; => $0AC28F 0AC24B 84 00 READ.B $00 0AC24D 30 03 6E BSR.68K $036E ; => $0ABEE2 0AC250 18 3D BRZ $03D ; => $0AC28F 0AC252 84 00 READ.B $00 0AC254 C0 29 A0 READ.B $29A0 0AC257 2F MOD.L 0AC258 E0 35 C3 READ.B $35C3 0AC25B 18 1A BRZ $01A ; => $0AC277 0AC25D 84 00 READ.B $00 0AC25F 84 00 READ.B $00 0AC261 E1 56 EF READ.W $56EF 0AC264 41 PUSH.6 $01 0AC265 27 ADD.L 0AC266 F1 56 EF WRITE.W $56EF 0AC269 84 00 READ.B $00 0AC26B 84 00 READ.B $00 0AC26D E1 57 17 READ.W $5717 0AC270 41 PUSH.6 $01 0AC271 27 ADD.L 0AC272 F1 57 17 WRITE.W $5717 0AC275 10 18 BR $018 ; => $0AC28F 0AC277 84 00 READ.B $00 0AC279 84 00 READ.B $00 0AC27B E1 56 DB READ.W $56DB 0AC27E 41 PUSH.6 $01 0AC27F 27 ADD.L 0AC280 F1 56 DB WRITE.W $56DB 0AC283 84 00 READ.B $00 0AC285 84 00 READ.B $00 0AC287 E1 57 03 READ.W $5703 0AC28A 41 PUSH.6 $01 0AC28B 27 ADD.L 0AC28C F1 57 03 WRITE.W $5703 0AC28F 37 10 00 00 56 _23d2 $0000, $0056 0AC294 10 9C BR $09C ; => $0AC332 0AC296 30 04 E3 BSR.68K $04E3 ; => $0ABDB6 0AC299 C0 60 AE READ.B $60AE 0AC29C 42 PUSH.6 $02 0AC29D 2A EQ.L 0AC29E C0 60 AC READ.B $60AC 0AC2A1 2D OR.L 0AC2A2 C1 60 A5 READ.W $60A5 0AC2A5 C1 60 A7 READ.W $60A7 0AC2A8 2B NEQ.L 0AC2A9 2C AND.L 0AC2AA 18 09 BRZ $009 ; => $0AC2B5 0AC2AC 30 08 65 BSR.68K $0865 ; => $0ABA4A => $0AB468 0AC2AF C1 60 A5 READ.W $60A5 0AC2B2 D1 60 A7 WRITE.W $60A7 0AC2B5 40 PUSH.6 $00 0AC2B6 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AC2B9 C0 29 9A READ.B $299A 0AC2BC 38 00 73 BLS.B $0073 ; => $0AC332 0AC2BF 84 00 READ.B $00 0AC2C1 E0 60 29 READ.B $6029 0AC2C4 18 67 BRZ $067 ; => $0AC32D 0AC2C6 84 00 READ.B $00 0AC2C8 30 03 E9 BSR.68K $03E9 ; => $0ABEE2 0AC2CB 18 60 BRZ $060 ; => $0AC32D 0AC2CD 84 00 READ.B $00 0AC2CF C0 29 A0 READ.B $29A0 0AC2D2 03 26 GT.L 0AC2D4 18 09 BRZ $009 ; => $0AC2DF 0AC2D6 84 00 READ.B $00 0AC2D8 84 02 READ.B $02 0AC2DA 41 PUSH.6 $01 0AC2DB 28 SUB.L 0AC2DC 30 08 9B BSR.68K $089B ; => $0ABA44 => $0AB1DA 0AC2DF 84 00 READ.B $00 0AC2E1 C0 29 A0 READ.B $29A0 0AC2E4 2F MOD.L 0AC2E5 94 01 WRITE.B $01 0AC2E7 84 01 READ.B $01 0AC2E9 30 04 0A BSR.68K $040A ; => $0ABEE2 0AC2EC 18 39 BRZ $039 ; => $0AC327 0AC2EE 84 01 READ.B $01 0AC2F0 E0 35 C3 READ.B $35C3 0AC2F3 18 1A BRZ $01A ; => $0AC30F 0AC2F5 84 00 READ.B $00 0AC2F7 84 00 READ.B $00 0AC2F9 E1 56 EF READ.W $56EF 0AC2FC 41 PUSH.6 $01 0AC2FD 27 ADD.L 0AC2FE F1 56 EF WRITE.W $56EF 0AC301 84 00 READ.B $00 0AC303 84 00 READ.B $00 0AC305 E1 57 17 READ.W $5717 0AC308 41 PUSH.6 $01 0AC309 27 ADD.L 0AC30A F1 57 17 WRITE.W $5717 0AC30D 10 18 BR $018 ; => $0AC327 0AC30F 84 00 READ.B $00 0AC311 84 00 READ.B $00 0AC313 E1 56 DB READ.W $56DB 0AC316 41 PUSH.6 $01 0AC317 27 ADD.L 0AC318 F1 56 DB WRITE.W $56DB 0AC31B 84 00 READ.B $00 0AC31D 84 00 READ.B $00 0AC31F E1 57 03 READ.W $5703 0AC322 41 PUSH.6 $01 0AC323 27 ADD.L 0AC324 F1 57 03 WRITE.W $5703 0AC327 84 02 READ.B $02 0AC329 41 PUSH.6 $01 0AC32A 28 SUB.L 0AC32B 94 02 WRITE.B $02 0AC32D 37 10 00 00 79 _23d2 $0000, $0079 0AC332 C0 32 D5 READ.B $32D5 0AC335 E0 33 3D READ.B $333D 0AC338 C0 32 D5 READ.B $32D5 0AC33B E0 33 0B READ.B $330B 0AC33E C0 55 62 READ.B $5562 0AC341 40 PUSH.6 $00 0AC342 2B NEQ.L 0AC343 2C AND.L 0AC344 2D OR.L 0AC345 87 0D READ.F $0D 0AC347 C3 56 B7 READ.F $56B7 0AC34A 25 GTE.F 0AC34B C0 32 D5 READ.B $32D5 0AC34E E0 33 0B READ.B $330B 0AC351 2E NOT.L 0AC352 2C AND.L 0AC353 2D OR.L 0AC354 18 1D BRZ $01D ; => $0AC373 0AC356 C0 32 D5 READ.B $32D5 0AC359 E0 33 0B READ.B $330B 0AC35C 18 03 BRZ $003 ; => $0AC361 0AC35E 30 05 AB BSR.68K $05AB ; => $0ABDB6 0AC361 87 0D READ.F $0D 0AC363 3B 40 72 C0 00 00 00 00 00 PUSH.F $4072C00000000000 ; float = 300.000000 0AC36C 20 ADD.F 0AC36D D3 56 B7 WRITE.F $56B7 0AC370 30 09 1D BSR.68K $091D ; => $0ABA56 => $0AB514 0AC373 87 0D READ.F $0D 0AC375 C3 56 BF READ.F $56BF 0AC378 25 GTE.F 0AC379 18 12 BRZ $012 ; => $0AC38D 0AC37B 87 0D READ.F $0D 0AC37D 3B 54 7D 42 AE A2 87 9F 2E PUSH.F $547D42AEA2879F2E ; float = 999999999999999967336168804116691273849533185806555472917961779471295845921727862608739868455469056.000000 0AC386 20 ADD.F 0AC387 D3 56 BF WRITE.F $56BF 0AC38A 30 09 31 BSR.68K $0931 ; => $0ABA5C => $0AB5D4 0AC38D C0 60 BD READ.B $60BD 0AC390 18 07 BRZ $007 ; => $0AC399 0AC392 30 09 33 BSR.68K $0933 ; => $0ABA62 => $0AB7A8 0AC395 40 PUSH.6 $00 0AC396 D0 60 BD WRITE.B $60BD 0AC399 C0 60 BB READ.B $60BB 0AC39C 18 07 BRZ $007 ; => $0AC3A5 0AC39E 30 09 51 BSR.68K $0951 ; => $0ABA50 => $0AB4E0 0AC3A1 40 PUSH.6 $00 0AC3A2 D0 60 BB WRITE.B $60BB 0AC3A5 10 01 BR $001 ; => $0AC3A8 0AC3A7 00 DEFAULT ; SWITCH $0ABFC5 0AC3A8 32 0E ADDSP.B $0E 0AC3AA 34 RETURN ; ---------------- End Function $0ABFB6 ---------------- ; ---------------- Begin 2144 Function $0AC406 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ACB00:$0ACB3E ; addr bytes opcode operands comment 0AC40D 31 08 SUBSP.B $08 0AC40F 30 00 66 BSR.68K $0066 ; => $0AC3AC => $099642 0AC412 40 PUSH.6 $00 0AC413 3F 10 53 54 41 54 49 4F 4E DISP "STATION ID XXXX " 20 49 44 20 58 58 58 58 20 0AC425 4B PUSH.6 $0B 0AC426 44 PUSH.6 $04 0AC427 C0 32 D8 READ.B $32D8 0AC42A E1 2A 49 READ.W $2A49 0AC42D 03 2A LONG2FLOAT 0AC42F 30 00 7A BSR.68K $007A ; => $0AC3B8 => $097AD2 0AC432 50 PUSH.6 $10 0AC433 3F 10 53 45 53 53 49 4F 4E DISP "SESSION XXX-X" 20 20 20 20 58 58 58 2D 58 0AC445 5B PUSH.6 $1B 0AC446 43 PUSH.6 $03 0AC447 C0 32 D9 READ.B $32D9 0AC44A E1 2D B9 READ.W $2DB9 0AC44D 4A PUSH.6 $0A 0AC44E 03 24 DIV.L 0AC450 03 2A LONG2FLOAT 0AC452 30 00 9D BSR.68K $009D ; => $0AC3B8 => $097AD2 0AC455 C0 32 D9 READ.B $32D9 0AC458 E1 2D B9 READ.W $2DB9 0AC45B 03 2A LONG2FLOAT 0AC45D 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0AC466 23 DIV.F 0AC467 30 00 9A BSR.68K $009A ; => $0AC3D0 => $002C08 (NATIVE) 0AC46A 3B 40 24 00 00 00 00 00 00 PUSH.F $4024000000000000 ; float = 10.000000 0AC473 22 MUL.F 0AC474 97 07 WRITE.F $07 0AC476 5F PUSH.6 $1F 0AC477 41 PUSH.6 $01 0AC478 87 07 READ.F $07 0AC47A 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0AC483 20 ADD.F 0AC484 30 00 CF BSR.68K $00CF ; => $0AC3B8 => $097AD2 0AC487 32 08 ADDSP.B $08 0AC489 34 RETURN ; ---------------- End Function $0AC406 ---------------- ; ---------------- Begin 2144 Function $0AC48A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ACB00:$0ACB59 ; addr bytes opcode operands comment 0AC491 31 02 SUBSP.B $02 0AC493 30 00 C0 BSR.68K $00C0 ; => $0AC3D6 => $0034AA (CLEARSCREEN) (NATIVE) 0AC496 40 PUSH.6 $00 0AC497 3F 10 57 41 49 54 49 4E 47 DISP "WAITING TO START" 20 54 4F 20 53 54 41 52 54 0AC4A9 C0 33 70 READ.B $3370 0AC4AC 41 PUSH.6 $01 0AC4AD 2A EQ.L 0AC4AE 18 0F BRZ $00F ; => $0AC4BF 0AC4B0 50 PUSH.6 $10 0AC4B1 3F 0A 4C 4F 47 47 49 4E 47 DISP "LOGGING AT" 20 41 54 0AC4BD 10 0D BR $00D ; => $0AC4CC 0AC4BF 50 PUSH.6 $10 0AC4C0 3F 0A 53 55 52 56 45 59 20 DISP "SURVEY AT" 20 41 54 0AC4CC C0 32 D5 READ.B $32D5 0AC4CF E1 2E 81 READ.W $2E81 0AC4D2 7C PUSH.6 $3C 0AC4D3 03 24 DIV.L 0AC4D5 94 00 WRITE.B $00 0AC4D7 5B PUSH.6 $1B 0AC4D8 42 PUSH.6 $02 0AC4D9 84 00 READ.B $00 0AC4DB 03 2A LONG2FLOAT 0AC4DD 30 01 28 BSR.68K $0128 ; => $0AC3B8 => $097AD2 0AC4E0 5D PUSH.6 $1D 0AC4E1 42 PUSH.6 $02 0AC4E2 C0 32 D5 READ.B $32D5 0AC4E5 E1 2E 81 READ.W $2E81 0AC4E8 84 00 READ.B $00 0AC4EA 7C PUSH.6 $3C 0AC4EB 29 MUL.L 0AC4EC 28 SUB.L 0AC4ED 03 2A LONG2FLOAT 0AC4EF 30 01 3A BSR.68K $013A ; => $0AC3B8 => $097AD2 0AC4F2 5C PUSH.6 $1C 0AC4F3 30 01 38 BSR.68K $0138 ; => $0AC3BE => $097B5C 0AC4F6 32 02 ADDSP.B $02 0AC4F8 34 RETURN ; ---------------- End Function $0AC48A ---------------- ; ---------------- Begin 2144 Function $0AC4FA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ACB00:$0ACB65 ; addr bytes opcode operands comment 0AC501 30 01 2E BSR.68K $012E ; => $0AC3D6 => $0034AA (CLEARSCREEN) (NATIVE) 0AC504 40 PUSH.6 $00 0AC505 3F 10 57 41 49 54 49 4E 47 DISP "WAITING FOR SVS" 20 46 4F 52 20 20 53 56 53 0AC517 C0 56 C6 READ.B $56C6 0AC51A 18 13 BRZ $013 ; => $0AC52F 0AC51C 50 PUSH.6 $10 0AC51D 3F 10 54 4F 20 4D 45 45 54 DISP "TO MEET ELV MASK" 20 45 4C 56 20 4D 41 53 4B 0AC52F 4C PUSH.6 $0C 0AC530 41 PUSH.6 $01 0AC531 C0 32 D5 READ.B $32D5 0AC534 E0 2F 49 READ.B $2F49 0AC537 03 2A LONG2FLOAT 0AC539 30 01 84 BSR.68K $0184 ; => $0AC3B8 => $097AD2 0AC53C 34 RETURN ; ---------------- End Function $0AC4FA ---------------- ; ---------------- Begin 2144 Function $0AC53E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ACB00:$0ACB6F ; addr bytes opcode operands comment 0AC545 40 PUSH.6 $00 0AC546 3F 20 20 52 45 43 41 4C 49 DISP " RECALIBRATING RECEIVER " 42 52 41 54 49 4E 47 20 20 20 20 20 20 52 45 43 45 49 56 45 52 20 20 20 20 0AC568 34 RETURN ; ---------------- End Function $0AC53E ---------------- ; ---------------- Begin 2144 Function $0AC56A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ACB00:$0ACB7B ; addr bytes opcode operands comment 0AC571 40 PUSH.6 $00 0AC572 3F 20 20 20 20 50 52 45 2D DISP " PRE-SURVEY POSITIONING " 53 55 52 56 45 59 20 20 20 20 20 20 50 4F 53 49 54 49 4F 4E 49 4E 47 20 20 0AC594 34 RETURN ; ---------------- End Function $0AC56A ---------------- ; ---------------- Begin 2144 Function $0AC596 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ACB00:$0ACB4D ; addr bytes opcode operands comment 0AC59D 31 06 SUBSP.B $06 0AC59F C1 56 AD READ.W $56AD 0AC5A2 3C 27 0F PUSH.W $270F 0AC5A5 2A EQ.L 0AC5A6 18 44 BRZ $044 ; => $0AC5EC 0AC5A8 C0 33 70 READ.B $3370 0AC5AB 41 PUSH.6 $01 0AC5AC 2A EQ.L 0AC5AD 18 15 BRZ $015 ; => $0AC5C4 0AC5AF 40 PUSH.6 $00 0AC5B0 3F 10 4C 4F 47 47 49 4E 47 DISP "LOGGING ABORTED " 20 41 42 4F 52 54 45 44 20 0AC5C2 10 13 BR $013 ; => $0AC5D7 0AC5C4 40 PUSH.6 $00 0AC5C5 3F 10 53 55 52 56 45 59 20 DISP "SURVEY ABORTED " 41 42 4F 52 54 45 44 20 20 0AC5D7 50 PUSH.6 $10 0AC5D8 3F 10 42 45 46 4F 52 45 20 DISP "BEFORE TIME SET " 54 49 4D 45 20 53 45 54 20 0AC5EA 10 95 BR $095 ; => $0AC681 0AC5EC 40 PUSH.6 $00 0AC5ED 3F 20 45 4E 44 45 44 20 20 DISP "ENDED AT LOGGED FOR " 20 41 54 20 20 20 20 20 20 4C 4F 47 47 45 44 20 20 46 4F 52 20 20 20 20 20 0AC60F C1 56 AD READ.W $56AD 0AC612 7C PUSH.6 $3C 0AC613 03 24 DIV.L 0AC615 94 04 WRITE.B $04 0AC617 4C PUSH.6 $0C 0AC618 42 PUSH.6 $02 0AC619 84 04 READ.B $04 0AC61B 03 2A LONG2FLOAT 0AC61D 30 02 68 BSR.68K $0268 ; => $0AC3B8 => $097AD2 0AC620 4E PUSH.6 $0E 0AC621 42 PUSH.6 $02 0AC622 C1 56 AD READ.W $56AD 0AC625 84 04 READ.B $04 0AC627 7C PUSH.6 $3C 0AC628 29 MUL.L 0AC629 28 SUB.L 0AC62A 03 2A LONG2FLOAT 0AC62C 30 02 77 BSR.68K $0277 ; => $0AC3B8 => $097AD2 0AC62F 4D PUSH.6 $0D 0AC630 30 02 75 BSR.68K $0275 ; => $0AC3BE => $097B5C 0AC633 C1 56 AB READ.W $56AB 0AC636 3C 27 0F PUSH.W $270F 0AC639 2A EQ.L 0AC63A 18 05 BRZ $005 ; => $0AC641 0AC63C 40 PUSH.6 $00 0AC63D 95 03 WRITE.W $03 0AC63F 10 1E BR $01E ; => $0AC65F 0AC641 C1 56 AD READ.W $56AD 0AC644 95 01 WRITE.W $01 0AC646 85 01 READ.W $01 0AC648 C1 56 AB READ.W $56AB 0AC64B 03 26 GT.L 0AC64D 18 08 BRZ $008 ; => $0AC657 0AC64F 85 01 READ.W $01 0AC651 3C 05 A0 PUSH.W $05A0 0AC654 27 ADD.L 0AC655 95 01 WRITE.W $01 0AC657 85 01 READ.W $01 0AC659 C1 56 AB READ.W $56AB 0AC65C 28 SUB.L 0AC65D 95 03 WRITE.W $03 0AC65F 85 03 READ.W $03 0AC661 7C PUSH.6 $3C 0AC662 03 24 DIV.L 0AC664 94 04 WRITE.B $04 0AC666 5C PUSH.6 $1C 0AC667 42 PUSH.6 $02 0AC668 84 04 READ.B $04 0AC66A 03 2A LONG2FLOAT 0AC66C 30 02 B7 BSR.68K $02B7 ; => $0AC3B8 => $097AD2 0AC66F 5E PUSH.6 $1E 0AC670 42 PUSH.6 $02 0AC671 85 03 READ.W $03 0AC673 84 04 READ.B $04 0AC675 7C PUSH.6 $3C 0AC676 29 MUL.L 0AC677 28 SUB.L 0AC678 03 2A LONG2FLOAT 0AC67A 30 02 C5 BSR.68K $02C5 ; => $0AC3B8 => $097AD2 0AC67D 5D PUSH.6 $1D 0AC67E 30 02 C3 BSR.68K $02C3 ; => $0AC3BE => $097B5C 0AC681 32 06 ADDSP.B $06 0AC683 34 RETURN ; ---------------- End Function $0AC596 ---------------- ; ---------------- Begin 2144 Function $0AC684 ---------------- ; A0 = $004004; (A0) = SP + $7 ; called from $0ACB00:$0ACBB6 ; called from $0ACB00:$0ACBC0 ; called from $0ACB00:$0ACBCB ; called from $0ACB00:$0ACBD6 ; addr bytes opcode operands comment 0AC68B 31 02 SUBSP.B $02 0AC68D 30 02 BA BSR.68K $02BA ; => $0AC3D6 => $0034AA (CLEARSCREEN) (NATIVE) 0AC690 C0 29 9C READ.B $299C 0AC693 18 77 BRZ $077 ; => $0AC70C 0AC695 C0 57 40 READ.B $5740 0AC698 18 4E BRZ $04E ; => $0AC6E8 0AC69A 86 03 READ.L $03 0AC69C 40 PUSH.6 $00 0AC69D 2A EQ.L 0AC69E 18 24 BRZ $024 ; => $0AC6C4 0AC6A0 86 07 READ.L $07 0AC6A2 18 10 BRZ $010 ; => $0AC6B4 0AC6A4 40 PUSH.6 $00 0AC6A5 3F 0B 20 43 54 20 4C 31 20 DISP " CT L1 SET2" 53 45 54 32 0AC6B2 10 0E BR $00E ; => $0AC6C2 0AC6B4 40 PUSH.6 $00 0AC6B5 3F 0B 20 43 54 20 4C 31 20 DISP " CT L1 SET1" 53 45 54 31 0AC6C2 10 22 BR $022 ; => $0AC6E6 0AC6C4 86 07 READ.L $07 0AC6C6 18 10 BRZ $010 ; => $0AC6D8 0AC6C8 40 PUSH.6 $00 0AC6C9 3F 0B 20 43 54 20 4C 32 20 DISP " CT L2 SET2" 53 45 54 32 0AC6D6 10 0E BR $00E ; => $0AC6E6 0AC6D8 40 PUSH.6 $00 0AC6D9 3F 0B 20 43 54 20 4C 32 20 DISP " CT L2 SET1" 53 45 54 31 0AC6E6 10 22 BR $022 ; => $0AC70A 0AC6E8 86 03 READ.L $03 0AC6EA 40 PUSH.6 $00 0AC6EB 2A EQ.L 0AC6EC 18 0F BRZ $00F ; => $0AC6FD 0AC6EE 40 PUSH.6 $00 0AC6EF 3F 0A 20 43 4F 4E 54 49 4E DISP " CONTIN L1" 20 4C 31 0AC6FB 10 0D BR $00D ; => $0AC70A 0AC6FD 40 PUSH.6 $00 0AC6FE 3F 0A 20 43 4F 4E 54 49 4E DISP " CONTIN L2" 20 4C 32 0AC70A 10 61 BR $061 ; => $0AC76D 0AC70C C0 29 9F READ.B $299F 0AC70F 18 26 BRZ $026 ; => $0AC737 0AC711 86 03 READ.L $03 0AC713 40 PUSH.6 $00 0AC714 2A EQ.L 0AC715 18 10 BRZ $010 ; => $0AC727 0AC717 40 PUSH.6 $00 0AC718 3F 0B 20 43 4F 4E 54 49 4E DISP " CONTIN 0-4" 20 30 2D 34 0AC725 10 0E BR $00E ; => $0AC735 0AC727 40 PUSH.6 $00 0AC728 3F 0B 20 43 4F 4E 54 49 4E DISP " CONTIN 5-9" 20 35 2D 39 0AC735 10 36 BR $036 ; => $0AC76D 0AC737 C0 57 40 READ.B $5740 0AC73A 18 24 BRZ $024 ; => $0AC760 0AC73C 86 07 READ.L $07 0AC73E 18 10 BRZ $010 ; => $0AC750 0AC740 40 PUSH.6 $00 0AC741 3F 0B 20 43 4F 4E 54 20 53 DISP " CONT SET 2" 45 54 20 32 0AC74E 10 0E BR $00E ; => $0AC75E 0AC750 40 PUSH.6 $00 0AC751 3F 0B 20 43 4F 4E 54 20 53 DISP " CONT SET 1" 45 54 20 31 0AC75E 10 0D BR $00D ; => $0AC76D 0AC760 40 PUSH.6 $00 0AC761 3F 0A 43 4F 4E 54 49 4E 55 DISP "CONTINUOUS" 4F 55 53 0AC76D 86 07 READ.L $07 0AC76F 18 6D BRZ $06D ; => $0AC7DE 0AC771 40 PUSH.6 $00 0AC772 36 10 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 0AC775 44 PUSH.6 $04 0AC776 38 00 63 BLS.B $0063 ; => $0AC7DC 0AC779 84 08 READ.B $08 0AC77B 86 03 READ.L $03 0AC77D 27 ADD.L 0AC77E E1 57 17 READ.W $5717 0AC781 07 E7 PUSH.10 $3E7 0AC783 03 25 LT.L 0AC785 18 16 BRZ $016 ; => $0AC79D 0AC787 4C PUSH.6 $0C 0AC788 84 08 READ.B $08 0AC78A 44 PUSH.6 $04 0AC78B 29 MUL.L 0AC78C 27 ADD.L 0AC78D 44 PUSH.6 $04 0AC78E 84 08 READ.B $08 0AC790 86 03 READ.L $03 0AC792 27 ADD.L 0AC793 E1 57 17 READ.W $5717 0AC796 03 2A LONG2FLOAT 0AC798 30 03 E3 BSR.68K $03E3 ; => $0AC3B8 => $097AD2 0AC79B 10 14 BR $014 ; => $0AC7B1 0AC79D 4D PUSH.6 $0D 0AC79E 84 08 READ.B $08 0AC7A0 44 PUSH.6 $04 0AC7A1 29 MUL.L 0AC7A2 27 ADD.L 0AC7A3 43 PUSH.6 $03 0AC7A4 84 08 READ.B $08 0AC7A6 86 03 READ.L $03 0AC7A8 27 ADD.L 0AC7A9 E1 57 17 READ.W $5717 0AC7AC 03 2A LONG2FLOAT 0AC7AE 30 03 F9 BSR.68K $03F9 ; => $0AC3B8 => $097AD2 0AC7B1 84 08 READ.B $08 0AC7B3 40 PUSH.6 $00 0AC7B4 03 25 LT.L 0AC7B6 84 08 READ.B $08 0AC7B8 44 PUSH.6 $04 0AC7B9 03 26 GT.L 0AC7BB 2C AND.L 0AC7BC 18 19 BRZ $019 ; => $0AC7D7 0AC7BE 84 08 READ.B $08 0AC7C0 86 03 READ.L $03 0AC7C2 27 ADD.L 0AC7C3 41 PUSH.6 $01 0AC7C4 27 ADD.L 0AC7C5 E1 57 17 READ.W $5717 0AC7C8 07 E7 PUSH.10 $3E7 0AC7CA 03 25 LT.L 0AC7CC 18 09 BRZ $009 ; => $0AC7D7 0AC7CE 4F PUSH.6 $0F 0AC7CF 84 08 READ.B $08 0AC7D1 44 PUSH.6 $04 0AC7D2 29 MUL.L 0AC7D3 27 ADD.L 0AC7D4 30 03 EF BSR.68K $03EF ; => $0AC3E8 => $097B72 0AC7D7 37 10 08 00 67 _23d2 $0008, $0067 0AC7DC 10 6B BR $06B ; => $0AC849 0AC7DE 40 PUSH.6 $00 0AC7DF 36 10 08 _2362 $0008 ; A0 = $004000; (A0) = A6 + $0 0AC7E2 44 PUSH.6 $04 0AC7E3 38 00 63 BLS.B $0063 ; => $0AC849 0AC7E6 84 08 READ.B $08 0AC7E8 86 03 READ.L $03 0AC7EA 27 ADD.L 0AC7EB E1 57 03 READ.W $5703 0AC7EE 07 E7 PUSH.10 $3E7 0AC7F0 03 25 LT.L 0AC7F2 18 16 BRZ $016 ; => $0AC80A 0AC7F4 4C PUSH.6 $0C 0AC7F5 84 08 READ.B $08 0AC7F7 44 PUSH.6 $04 0AC7F8 29 MUL.L 0AC7F9 27 ADD.L 0AC7FA 44 PUSH.6 $04 0AC7FB 84 08 READ.B $08 0AC7FD 86 03 READ.L $03 0AC7FF 27 ADD.L 0AC800 E1 57 03 READ.W $5703 0AC803 03 2A LONG2FLOAT 0AC805 30 04 50 BSR.68K $0450 ; => $0AC3B8 => $097AD2 0AC808 10 14 BR $014 ; => $0AC81E 0AC80A 4D PUSH.6 $0D 0AC80B 84 08 READ.B $08 0AC80D 44 PUSH.6 $04 0AC80E 29 MUL.L 0AC80F 27 ADD.L 0AC810 43 PUSH.6 $03 0AC811 84 08 READ.B $08 0AC813 86 03 READ.L $03 0AC815 27 ADD.L 0AC816 E1 57 03 READ.W $5703 0AC819 03 2A LONG2FLOAT 0AC81B 30 04 66 BSR.68K $0466 ; => $0AC3B8 => $097AD2 0AC81E 84 08 READ.B $08 0AC820 40 PUSH.6 $00 0AC821 03 25 LT.L 0AC823 84 08 READ.B $08 0AC825 44 PUSH.6 $04 0AC826 03 26 GT.L 0AC828 2C AND.L 0AC829 18 19 BRZ $019 ; => $0AC844 0AC82B 84 08 READ.B $08 0AC82D 86 03 READ.L $03 0AC82F 27 ADD.L 0AC830 41 PUSH.6 $01 0AC831 27 ADD.L 0AC832 E1 57 03 READ.W $5703 0AC835 07 E7 PUSH.10 $3E7 0AC837 03 25 LT.L 0AC839 18 09 BRZ $009 ; => $0AC844 0AC83B 4F PUSH.6 $0F 0AC83C 84 08 READ.B $08 0AC83E 44 PUSH.6 $04 0AC83F 29 MUL.L 0AC840 27 ADD.L 0AC841 30 04 5C BSR.68K $045C ; => $0AC3E8 => $097B72 0AC844 37 10 08 00 67 _23d2 $0008, $0067 0AC849 32 0A ADDSP.B $0A 0AC84B 34 RETURN ; ---------------- End Function $0AC684 ---------------- ; ---------------- Begin 2144 Function $0AC84C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ACB00:$0ACBDE ; addr bytes opcode operands comment 0AC853 31 06 SUBSP.B $06 0AC855 40 PUSH.6 $00 0AC856 3F 20 53 54 41 52 54 45 44 DISP "STARTED AT LOGGING FOR " 20 41 54 20 20 20 20 20 20 4C 4F 47 47 49 4E 47 20 46 4F 52 20 20 20 20 20 0AC878 C1 56 AB READ.W $56AB 0AC87B 7C PUSH.6 $3C 0AC87C 03 24 DIV.L 0AC87E 94 00 WRITE.B $00 0AC880 4C PUSH.6 $0C 0AC881 42 PUSH.6 $02 0AC882 84 00 READ.B $00 0AC884 03 2A LONG2FLOAT 0AC886 30 04 D1 BSR.68K $04D1 ; => $0AC3B8 => $097AD2 0AC889 4E PUSH.6 $0E 0AC88A 42 PUSH.6 $02 0AC88B C1 56 AB READ.W $56AB 0AC88E 84 00 READ.B $00 0AC890 7C PUSH.6 $3C 0AC891 29 MUL.L 0AC892 28 SUB.L 0AC893 03 2A LONG2FLOAT 0AC895 30 04 E0 BSR.68K $04E0 ; => $0AC3B8 => $097AD2 0AC898 4D PUSH.6 $0D 0AC899 30 04 DE BSR.68K $04DE ; => $0AC3BE => $097B5C 0AC89C C1 56 AF READ.W $56AF 0AC89F 95 05 WRITE.W $05 0AC8A1 85 05 READ.W $05 0AC8A3 C1 56 AB READ.W $56AB 0AC8A6 03 26 GT.L 0AC8A8 18 08 BRZ $008 ; => $0AC8B2 0AC8AA 85 05 READ.W $05 0AC8AC 3C 05 A0 PUSH.W $05A0 0AC8AF 27 ADD.L 0AC8B0 95 05 WRITE.W $05 0AC8B2 85 05 READ.W $05 0AC8B4 C1 56 AB READ.W $56AB 0AC8B7 28 SUB.L 0AC8B8 95 03 WRITE.W $03 0AC8BA 85 03 READ.W $03 0AC8BC 7C PUSH.6 $3C 0AC8BD 03 24 DIV.L 0AC8BF 94 00 WRITE.B $00 0AC8C1 5C PUSH.6 $1C 0AC8C2 42 PUSH.6 $02 0AC8C3 84 00 READ.B $00 0AC8C5 03 2A LONG2FLOAT 0AC8C7 30 05 12 BSR.68K $0512 ; => $0AC3B8 => $097AD2 0AC8CA 5E PUSH.6 $1E 0AC8CB 42 PUSH.6 $02 0AC8CC 85 03 READ.W $03 0AC8CE 84 00 READ.B $00 0AC8D0 7C PUSH.6 $3C 0AC8D1 29 MUL.L 0AC8D2 28 SUB.L 0AC8D3 03 2A LONG2FLOAT 0AC8D5 30 05 20 BSR.68K $0520 ; => $0AC3B8 => $097AD2 0AC8D8 5D PUSH.6 $1D 0AC8D9 30 05 1E BSR.68K $051E ; => $0AC3BE => $097B5C 0AC8DC 32 06 ADDSP.B $06 0AC8DE 34 RETURN ; ---------------- End Function $0AC84C ---------------- ; ---------------- Begin 2144 Function $0AC8E0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ACB00:$0ACBEE ; addr bytes opcode operands comment 0AC8E7 31 02 SUBSP.B $02 0AC8E9 30 05 16 BSR.68K $0516 ; => $0AC3D6 => $0034AA (CLEARSCREEN) (NATIVE) 0AC8EC C0 33 70 READ.B $3370 0AC8EF 41 PUSH.6 $01 0AC8F0 2A EQ.L 0AC8F1 18 0C BRZ $00C ; => $0AC8FF 0AC8F3 40 PUSH.6 $00 0AC8F4 3F 07 4C 4F 47 20 20 20 20 DISP "LOG " 0AC8FD 10 0A BR $00A ; => $0AC909 0AC8FF 40 PUSH.6 $00 0AC900 3F 07 53 55 52 56 45 59 20 DISP "SURVEY " 0AC909 47 PUSH.6 $07 0AC90A 3F 13 53 43 48 45 44 55 4C DISP "SCHEDULEDTO STOP AT" 45 44 54 4F 20 53 54 4F 50 20 41 54 0AC91F C0 32 D5 READ.B $32D5 0AC922 E1 2E E5 READ.W $2EE5 0AC925 7C PUSH.6 $3C 0AC926 03 24 DIV.L 0AC928 94 00 WRITE.B $00 0AC92A 5C PUSH.6 $1C 0AC92B 42 PUSH.6 $02 0AC92C 84 00 READ.B $00 0AC92E 03 2A LONG2FLOAT 0AC930 30 05 7B BSR.68K $057B ; => $0AC3B8 => $097AD2 0AC933 5E PUSH.6 $1E 0AC934 42 PUSH.6 $02 0AC935 C0 32 D5 READ.B $32D5 0AC938 E1 2E E5 READ.W $2EE5 0AC93B 84 00 READ.B $00 0AC93D 7C PUSH.6 $3C 0AC93E 29 MUL.L 0AC93F 28 SUB.L 0AC940 03 2A LONG2FLOAT 0AC942 30 05 8D BSR.68K $058D ; => $0AC3B8 => $097AD2 0AC945 5D PUSH.6 $1D 0AC946 30 05 8B BSR.68K $058B ; => $0AC3BE => $097B5C 0AC949 32 02 ADDSP.B $02 0AC94B 34 RETURN ; ---------------- End Function $0AC8E0 ---------------- ; ---------------- Begin 2144 Function $0AC94C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D9DE:$09DA2E ; called from $09DA36:$09DA48 ; called from $0AACE2:$0AAD12 ; addr bytes opcode operands comment 0AC953 C0 35 4D READ.B $354D 0AC956 40 PUSH.6 $00 0AC957 03 25 LT.L 0AC959 18 66 BRZ $066 ; => $0AC9C1 0AC95B C0 29 72 READ.B $2972 0AC95E C0 35 4D READ.B $354D 0AC961 46 PUSH.6 $06 0AC962 2B NEQ.L 0AC963 2C AND.L 0AC964 18 05 BRZ $005 ; => $0AC96B 0AC966 30 05 7B BSR.68K $057B ; => $0AC3EE => $0AAD48 0AC969 10 4D BR $04D ; => $0AC9B8 0AC96B 67 PUSH.6 $27 0AC96C 6D PUSH.6 $2D 0AC96D 6F PUSH.6 $2F 0AC96E 6E PUSH.6 $2E 0AC96F 40 PUSH.6 $00 0AC970 40 PUSH.6 $00 0AC971 40 PUSH.6 $00 0AC972 40 PUSH.6 $00 0AC973 30 05 C4 BSR.68K $05C4 ; => $0AC3B2 => $099614 0AC976 C0 33 70 READ.B $3370 0AC979 41 PUSH.6 $01 0AC97A 2A EQ.L 0AC97B 18 15 BRZ $015 ; => $0AC992 0AC97D 40 PUSH.6 $00 0AC97E 3F 10 20 4C 4F 47 47 49 4E DISP " LOGGING STATUS " 47 20 53 54 41 54 55 53 20 0AC990 10 13 BR $013 ; => $0AC9A5 0AC992 40 PUSH.6 $00 0AC993 3F 10 20 53 55 52 56 45 59 DISP " SURVEY STATUS " 20 53 54 41 54 55 53 20 20 0AC9A5 50 PUSH.6 $10 0AC9A6 3F 10 20 50 52 45 53 53 20 DISP " PRESS SOFTKEYS " 53 4F 46 54 4B 45 59 53 20 0AC9B8 40 PUSH.6 $00 0AC9B9 90 23 WRITE.B $23 0AC9BB 04 55 PUSH.10 $055 0AC9BD 90 21 WRITE.B $21 0AC9BF 10 0D BR $00D ; => $0AC9CE 0AC9C1 30 06 18 BSR.68K $0618 ; => $0AC3AC => $099642 0AC9C4 40 PUSH.6 $00 0AC9C5 40 PUSH.6 $00 0AC9C6 04 96 PUSH.10 $096 0AC9C8 30 06 01 BSR.68K $0601 ; => $0AC3CA => $09A828 0AC9CB 4C PUSH.6 $0C 0AC9CC 90 21 WRITE.B $21 0AC9CE 34 RETURN ; ---------------- End Function $0AC94C ---------------- ; ---------------- Begin 2144 Function $0AC9D0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC6F ; addr bytes opcode operands comment 0AC9D7 C0 29 72 READ.B $2972 0AC9DA 80 23 READ.B $23 0AC9DC 40 PUSH.6 $00 0AC9DD 2A EQ.L 0AC9DE 2C AND.L 0AC9DF C0 35 4D READ.B $354D 0AC9E2 46 PUSH.6 $06 0AC9E3 2B NEQ.L 0AC9E4 2C AND.L 0AC9E5 18 05 BRZ $005 ; => $0AC9EC 0AC9E7 30 05 F0 BSR.68K $05F0 ; => $0AC3FA => $0AAEC4 0AC9EA 11 13 BR $113 ; => $0ACAFF 0AC9EC 80 20 READ.B $20 0AC9EE 35 SWITCH 0AC9EF 51 00 10 50 90 D0 F2 CASE $10, $50, $90, $D0, $F2; SWITCH $0AC9EE 0AC9F6 80 23 READ.B $23 0AC9F8 35 SWITCH 0AC9F9 10 39 02 CASE $02 ; SWITCH $0AC9F8 0AC9FC 4B PUSH.6 $0B 0AC9FD 90 23 WRITE.B $23 0AC9FF C0 35 4D READ.B $354D 0ACA02 46 PUSH.6 $06 0ACA03 2A EQ.L 0ACA04 18 05 BRZ $005 ; => $0ACA0B 0ACA06 42 PUSH.6 $02 0ACA07 90 23 WRITE.B $23 0ACA09 10 27 BR $027 ; => $0ACA32 0ACA0B C0 35 4D READ.B $354D 0ACA0E 44 PUSH.6 $04 0ACA0F 2A EQ.L 0ACA10 C0 35 4D READ.B $354D 0ACA13 45 PUSH.6 $05 0ACA14 2A EQ.L 0ACA15 2D OR.L 0ACA16 18 1A BRZ $01A ; => $0ACA32 0ACA18 C0 29 9A READ.B $299A 0ACA1B 44 PUSH.6 $04 0ACA1C 03 25 LT.L 0ACA1E 18 05 BRZ $005 ; => $0ACA25 0ACA20 43 PUSH.6 $03 0ACA21 90 23 WRITE.B $23 0ACA23 10 0D BR $00D ; => $0ACA32 0ACA25 C0 57 40 READ.B $5740 0ACA28 18 05 BRZ $005 ; => $0ACA2F 0ACA2A 44 PUSH.6 $04 0ACA2B 90 23 WRITE.B $23 0ACA2D 10 03 BR $003 ; => $0ACA32 0ACA2F 46 PUSH.6 $06 0ACA30 90 23 WRITE.B $23 0ACA32 10 99 BR $099 ; => $0ACACD 0ACA34 10 18 03 CASE $03 ; SWITCH $0AC9F8 0ACA37 C0 29 9A READ.B $299A 0ACA3A 46 PUSH.6 $06 0ACA3B 03 26 GT.L 0ACA3D 18 0D BRZ $00D ; => $0ACA4C 0ACA3F C0 57 40 READ.B $5740 0ACA42 18 05 BRZ $005 ; => $0ACA49 0ACA44 44 PUSH.6 $04 0ACA45 90 23 WRITE.B $23 0ACA47 10 03 BR $003 ; => $0ACA4C 0ACA49 4B PUSH.6 $0B 0ACA4A 90 23 WRITE.B $23 0ACA4C 10 7F BR $07F ; => $0ACACD 0ACA4E 10 18 04 CASE $04 ; SWITCH $0AC9F8 0ACA51 C0 57 40 READ.B $5740 0ACA54 2E NOT.L 0ACA55 18 0F BRZ $00F ; => $0ACA66 0ACA57 C0 35 4D READ.B $354D 0ACA5A 46 PUSH.6 $06 0ACA5B 2A EQ.L 0ACA5C 18 05 BRZ $005 ; => $0ACA63 0ACA5E 4B PUSH.6 $0B 0ACA5F 90 23 WRITE.B $23 0ACA61 10 03 BR $003 ; => $0ACA66 0ACA63 46 PUSH.6 $06 0ACA64 90 23 WRITE.B $23 0ACA66 10 65 BR $065 ; => $0ACACD 0ACA68 10 0C 05 CASE $05 ; SWITCH $0AC9F8 0ACA6B C0 29 9C READ.B $299C 0ACA6E 2E NOT.L 0ACA6F 18 03 BRZ $003 ; => $0ACA74 0ACA71 46 PUSH.6 $06 0ACA72 90 23 WRITE.B $23 0ACA74 10 57 BR $057 ; => $0ACACD 0ACA76 10 0D 06 CASE $06 ; SWITCH $0AC9F8 0ACA79 C0 35 4D READ.B $354D 0ACA7C 46 PUSH.6 $06 0ACA7D 2A EQ.L 0ACA7E 18 03 BRZ $003 ; => $0ACA83 0ACA80 4B PUSH.6 $0B 0ACA81 90 23 WRITE.B $23 0ACA83 10 48 BR $048 ; => $0ACACD 0ACA85 10 18 07 CASE $07 ; SWITCH $0AC9F8 0ACA88 C0 29 9A READ.B $299A 0ACA8B 45 PUSH.6 $05 0ACA8C 03 26 GT.L 0ACA8E 18 0D BRZ $00D ; => $0ACA9D 0ACA90 C0 57 40 READ.B $5740 0ACA93 18 05 BRZ $005 ; => $0ACA9A 0ACA95 48 PUSH.6 $08 0ACA96 90 23 WRITE.B $23 0ACA98 10 03 BR $003 ; => $0ACA9D 0ACA9A 4A PUSH.6 $0A 0ACA9B 90 23 WRITE.B $23 0ACA9D 10 2E BR $02E ; => $0ACACD 0ACA9F 10 0C 08 CASE $08 ; SWITCH $0AC9F8 0ACAA2 C0 57 40 READ.B $5740 0ACAA5 2E NOT.L 0ACAA6 18 03 BRZ $003 ; => $0ACAAB 0ACAA8 4A PUSH.6 $0A 0ACAA9 90 23 WRITE.B $23 0ACAAB 10 20 BR $020 ; => $0ACACD 0ACAAD 10 0C 09 CASE $09 ; SWITCH $0AC9F8 0ACAB0 C0 29 9C READ.B $299C 0ACAB3 2E NOT.L 0ACAB4 18 03 BRZ $003 ; => $0ACAB9 0ACAB6 4A PUSH.6 $0A 0ACAB7 90 23 WRITE.B $23 0ACAB9 10 12 BR $012 ; => $0ACACD 0ACABB 10 0F 0C CASE $0C ; SWITCH $0AC9F8 0ACABE C0 32 D5 READ.B $32D5 0ACAC1 E0 2E 1D READ.B $2E1D 0ACAC4 2E NOT.L 0ACAC5 18 03 BRZ $003 ; => $0ACACA 0ACAC7 4D PUSH.6 $0D 0ACAC8 90 23 WRITE.B $23 0ACACA 10 01 BR $001 ; => $0ACACD 0ACACC 00 DEFAULT ; SWITCH $0AC9F8 0ACACD 80 23 READ.B $23 0ACACF 41 PUSH.6 $01 0ACAD0 27 ADD.L 0ACAD1 90 23 WRITE.B $23 0ACAD3 80 23 READ.B $23 0ACAD5 4E PUSH.6 $0E 0ACAD6 2A EQ.L 0ACAD7 18 16 BRZ $016 ; => $0ACAEF 0ACAD9 C0 29 72 READ.B $2972 0ACADC C0 35 4D READ.B $354D 0ACADF 46 PUSH.6 $06 0ACAE0 2B NEQ.L 0ACAE1 2C AND.L 0ACAE2 18 08 BRZ $008 ; => $0ACAEC 0ACAE4 40 PUSH.6 $00 0ACAE5 90 23 WRITE.B $23 0ACAE7 30 06 FC BSR.68K $06FC ; => $0AC3EE => $0AAD48 0ACAEA 10 03 BR $003 ; => $0ACAEF 0ACAEC 41 PUSH.6 $01 0ACAED 90 23 WRITE.B $23 0ACAEF 10 04 BR $004 ; => $0ACAF5 0ACAF1 00 DEFAULT ; SWITCH $0AC9EE 0ACAF2 30 07 13 BSR.68K $0713 ; => $0AC3E2 => $09D9DE 0ACAF5 80 20 READ.B $20 0ACAF7 04 F4 PUSH.10 $0F4 0ACAF9 2A EQ.L 0ACAFA 18 03 BRZ $003 ; => $0ACAFF 0ACAFC 30 06 FF BSR.68K $06FF ; => $0AC400 => $0AACE2 0ACAFF 34 RETURN ; ---------------- End Function $0AC9D0 ---------------- ; ---------------- Begin 2144 Function $0ACB00 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0976BA:$097746 ; called from $0AACE2:$0AAD1A ; addr bytes opcode operands comment 0ACB07 C0 35 4D READ.B $354D 0ACB0A 44 PUSH.6 $04 0ACB0B 03 26 GT.L 0ACB0D C0 35 4D READ.B $354D 0ACB10 46 PUSH.6 $06 0ACB11 2A EQ.L 0ACB12 2D OR.L 0ACB13 18 10 BRZ $010 ; => $0ACB25 0ACB15 80 23 READ.B $23 0ACB17 46 PUSH.6 $06 0ACB18 03 25 LT.L 0ACB1A 80 23 READ.B $23 0ACB1C 4C PUSH.6 $0C 0ACB1D 03 26 GT.L 0ACB1F 2C AND.L 0ACB20 18 03 BRZ $003 ; => $0ACB25 0ACB22 42 PUSH.6 $02 0ACB23 90 23 WRITE.B $23 0ACB25 80 23 READ.B $23 0ACB27 35 SWITCH 0ACB28 10 11 00 CASE $00 ; SWITCH $0ACB27 0ACB2B C0 29 72 READ.B $2972 0ACB2E C0 35 4D READ.B $354D 0ACB31 46 PUSH.6 $06 0ACB32 2B NEQ.L 0ACB33 2C AND.L 0ACB34 18 03 BRZ $003 ; => $0ACB39 0ACB36 30 07 45 BSR.68K $0745 ; => $0AC3F4 => $0AAE48 0ACB39 11 0A BR $10A ; => $0ACC45 0ACB3B 10 06 01 CASE $01 ; SWITCH $0ACB27 0ACB3E 30 07 3B BSR.68K $073B ; => $0AC406 0ACB41 11 02 BR $102 ; => $0ACC45 0ACB43 10 42 02 CASE $02 ; SWITCH $0ACB27 0ACB46 C0 35 4D READ.B $354D 0ACB49 46 PUSH.6 $06 0ACB4A 2A EQ.L 0ACB4B 18 05 BRZ $005 ; => $0ACB52 0ACB4D 30 05 BA BSR.68K $05BA ; => $0AC596 0ACB50 10 33 BR $033 ; => $0ACB85 0ACB52 C0 35 4D READ.B $354D 0ACB55 41 PUSH.6 $01 0ACB56 2A EQ.L 0ACB57 18 05 BRZ $005 ; => $0ACB5E 0ACB59 30 06 D2 BSR.68K $06D2 ; => $0AC48A 0ACB5C 10 27 BR $027 ; => $0ACB85 0ACB5E C0 35 4D READ.B $354D 0ACB61 42 PUSH.6 $02 0ACB62 2A EQ.L 0ACB63 18 05 BRZ $005 ; => $0ACB6A 0ACB65 30 06 6E BSR.68K $066E ; => $0AC4FA 0ACB68 10 1B BR $01B ; => $0ACB85 0ACB6A C0 54 2C READ.B $542C 0ACB6D 18 05 BRZ $005 ; => $0ACB74 0ACB6F 30 06 34 BSR.68K $0634 ; => $0AC53E 0ACB72 10 11 BR $011 ; => $0ACB85 0ACB74 C0 35 4D READ.B $354D 0ACB77 43 PUSH.6 $03 0ACB78 2A EQ.L 0ACB79 18 05 BRZ $005 ; => $0ACB80 0ACB7B 30 06 14 BSR.68K $0614 ; => $0AC56A 0ACB7E 10 05 BR $005 ; => $0ACB85 0ACB80 40 PUSH.6 $00 0ACB81 40 PUSH.6 $00 0ACB82 30 07 C1 BSR.68K $07C1 ; => $0AC3C4 => $09AB22 0ACB85 10 BE BR $0BE ; => $0ACC45 0ACB87 10 08 03 CASE $03 ; SWITCH $0ACB27 0ACB8A 40 PUSH.6 $00 0ACB8B 40 PUSH.6 $00 0ACB8C 30 07 CB BSR.68K $07CB ; => $0AC3C4 => $09AB22 0ACB8F 10 B4 BR $0B4 ; => $0ACC45 0ACB91 10 08 04 CASE $04 ; SWITCH $0ACB27 0ACB94 45 PUSH.6 $05 0ACB95 40 PUSH.6 $00 0ACB96 30 07 D5 BSR.68K $07D5 ; => $0AC3C4 => $09AB22 0ACB99 10 AA BR $0AA ; => $0ACC45 0ACB9B 10 09 05 CASE $05 ; SWITCH $0ACB27 0ACB9E 40 PUSH.6 $00 0ACB9F 04 FF PUSH.10 $0FF 0ACBA1 30 07 E0 BSR.68K $07E0 ; => $0AC3C4 => $09AB22 0ACBA4 10 9F BR $09F ; => $0ACC45 0ACBA6 10 09 06 CASE $06 ; SWITCH $0ACB27 0ACBA9 45 PUSH.6 $05 0ACBAA 04 FF PUSH.10 $0FF 0ACBAC 30 07 EB BSR.68K $07EB ; => $0AC3C4 => $09AB22 0ACBAF 10 94 BR $094 ; => $0ACC45 0ACBB1 10 08 07 CASE $07 ; SWITCH $0ACB27 0ACBB4 40 PUSH.6 $00 0ACBB5 40 PUSH.6 $00 0ACBB6 30 05 35 BSR.68K $0535 ; => $0AC684 0ACBB9 10 8A BR $08A ; => $0ACC45 0ACBBB 10 08 08 CASE $08 ; SWITCH $0ACB27 0ACBBE 45 PUSH.6 $05 0ACBBF 40 PUSH.6 $00 0ACBC0 30 05 3F BSR.68K $053F ; => $0AC684 0ACBC3 10 80 BR $080 ; => $0ACC45 0ACBC5 10 09 09 CASE $09 ; SWITCH $0ACB27 0ACBC8 40 PUSH.6 $00 0ACBC9 04 FF PUSH.10 $0FF 0ACBCB 30 05 4A BSR.68K $054A ; => $0AC684 0ACBCE 10 75 BR $075 ; => $0ACC45 0ACBD0 10 09 0A CASE $0A ; SWITCH $0ACB27 0ACBD3 45 PUSH.6 $05 0ACBD4 04 FF PUSH.10 $0FF 0ACBD6 30 05 55 BSR.68K $0555 ; => $0AC684 0ACBD9 10 6A BR $06A ; => $0ACC45 0ACBDB 10 06 0B CASE $0B ; SWITCH $0ACB27 0ACBDE 30 03 95 BSR.68K $0395 ; => $0AC84C 0ACBE1 10 62 BR $062 ; => $0ACC45 0ACBE3 10 35 0C CASE $0C ; SWITCH $0ACB27 0ACBE6 C0 32 D5 READ.B $32D5 0ACBE9 E0 2E 1D READ.B $2E1D 0ACBEC 18 05 BRZ $005 ; => $0ACBF3 0ACBEE 30 03 11 BSR.68K $0311 ; => $0AC8E0 0ACBF1 10 25 BR $025 ; => $0ACC18 0ACBF3 C0 35 4D READ.B $354D 0ACBF6 46 PUSH.6 $06 0ACBF7 2A EQ.L 0ACBF8 18 09 BRZ $009 ; => $0ACC03 0ACBFA 40 PUSH.6 $00 0ACBFB 40 PUSH.6 $00 0ACBFC 04 96 PUSH.10 $096 0ACBFE 30 08 37 BSR.68K $0837 ; => $0AC3CA => $09A828 0ACC01 10 15 BR $015 ; => $0ACC18 0ACC03 C0 32 D5 READ.B $32D5 0ACC06 E0 33 0B READ.B $330B 0ACC09 C0 32 D5 READ.B $32D5 0ACC0C E0 33 3D READ.B $333D 0ACC0F C0 32 D5 READ.B $32D5 0ACC12 E1 33 D5 READ.W $33D5 0ACC15 30 08 4E BSR.68K $084E ; => $0AC3CA => $09A828 0ACC18 10 2B BR $02B ; => $0ACC45 0ACC1A 10 28 0D CASE $0D ; SWITCH $0ACB27 0ACC1D C0 35 4D READ.B $354D 0ACC20 46 PUSH.6 $06 0ACC21 2A EQ.L 0ACC22 18 09 BRZ $009 ; => $0ACC2D 0ACC24 40 PUSH.6 $00 0ACC25 40 PUSH.6 $00 0ACC26 04 96 PUSH.10 $096 0ACC28 30 08 61 BSR.68K $0861 ; => $0AC3CA => $09A828 0ACC2B 10 15 BR $015 ; => $0ACC42 0ACC2D C0 32 D5 READ.B $32D5 0ACC30 E0 33 0B READ.B $330B 0ACC33 C0 32 D5 READ.B $32D5 0ACC36 E0 33 3D READ.B $333D 0ACC39 C0 32 D5 READ.B $32D5 0ACC3C E1 33 D5 READ.W $33D5 0ACC3F 30 08 78 BSR.68K $0878 ; => $0AC3CA => $09A828 0ACC42 10 01 BR $001 ; => $0ACC45 0ACC44 00 DEFAULT ; SWITCH $0ACB27 0ACC45 34 RETURN ; ---------------- End Function $0ACB00 ---------------- ; ---------------- Begin 2144 Function $0ACC7C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ACCF6:$0ACD41 ; called from $0ACCF6:$0ACD65 ; called from $0ACCF6:$0ACD7E ; called from $0ACCF6:$0ACD90 ; called from $0ACCF6:$0ACD9C ; called from $0ACCF6:$0ACE38 ; called from $0ACE3C:$0ACE4C ; addr bytes opcode operands comment 0ACC83 30 00 3A BSR.68K $003A ; => $0ACC4C => $099642 0ACC86 4F PUSH.6 $0F 0ACC87 90 2E WRITE.B $2E 0ACC89 42 PUSH.6 $02 0ACC8A 90 26 WRITE.B $26 0ACC8C 40 PUSH.6 $00 0ACC8D 3F 20 53 56 58 58 20 45 4E DISP "SVXX ENABLED NEXTSV CHANGE" 41 42 4C 45 44 20 20 20 20 4E 45 58 54 53 56 20 20 20 20 43 48 41 4E 47 45 0ACCAF 42 PUSH.6 $02 0ACCB0 80 22 READ.B $22 0ACCB2 30 00 63 BSR.68K $0063 ; => $0ACC52 => $097B0A 0ACCB5 80 22 READ.B $22 0ACCB7 E0 22 D3 READ.B $22D3 0ACCBA 18 0D BRZ $00D ; => $0ACCC9 0ACCBC 45 PUSH.6 $05 0ACCBD 3F 08 44 49 53 41 42 4C 45 DISP "DISABLED" 44 0ACCC7 10 2C BR $02C ; => $0ACCF5 0ACCC9 80 22 READ.B $22 0ACCCB E0 35 B7 READ.B $35B7 0ACCCE 18 10 BRZ $010 ; => $0ACCE0 0ACCD0 45 PUSH.6 $05 0ACCD1 3F 0B 53 55 52 56 45 59 20 DISP "SURVEY ONLY" 4F 4E 4C 59 0ACCDE 10 15 BR $015 ; => $0ACCF5 0ACCE0 80 22 READ.B $22 0ACCE2 E0 22 F5 READ.B $22F5 0ACCE5 18 0E BRZ $00E ; => $0ACCF5 0ACCE7 45 PUSH.6 $05 0ACCE8 3F 0B 49 47 4E 4F 52 45 20 DISP "IGNORE HLTH" 48 4C 54 48 0ACCF5 34 RETURN ; ---------------- End Function $0ACC7C ---------------- ; ---------------- Begin 2144 Function $0ACCF6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DAAC ; addr bytes opcode operands comment 0ACCFD 80 20 READ.B $20 0ACCFF 35 SWITCH 0ACD00 10 44 10 CASE $10 ; SWITCH $0ACCFF 0ACD03 45 PUSH.6 $05 0ACD04 D0 4E 65 WRITE.B $4E65 0ACD07 80 22 READ.B $22 0ACD09 41 PUSH.6 $01 0ACD0A 27 ADD.L 0ACD0B 90 22 WRITE.B $22 0ACD0D 80 22 READ.B $22 0ACD0F 61 PUSH.6 $21 0ACD10 2A EQ.L 0ACD11 18 03 BRZ $003 ; => $0ACD16 0ACD13 41 PUSH.6 $01 0ACD14 90 22 WRITE.B $22 0ACD16 80 22 READ.B $22 0ACD18 E1 01 61 READ.W $0161 0ACD1B 40 PUSH.6 $00 0ACD1C 2B NEQ.L 0ACD1D 80 22 READ.B $22 0ACD1F E1 18 9B READ.W $189B 0ACD22 40 PUSH.6 $00 0ACD23 2B NEQ.L 0ACD24 2D OR.L 0ACD25 80 22 READ.B $22 0ACD27 E0 02 29 READ.B $0229 0ACD2A 40 PUSH.6 $00 0ACD2B 2A EQ.L 0ACD2C 2D OR.L 0ACD2D 80 22 READ.B $22 0ACD2F E0 22 D3 READ.B $22D3 0ACD32 2D OR.L 0ACD33 80 22 READ.B $22 0ACD35 E0 22 F5 READ.B $22F5 0ACD38 2D OR.L 0ACD39 80 22 READ.B $22 0ACD3B E0 35 B7 READ.B $35B7 0ACD3E 2D OR.L 0ACD3F 1F C6 BRZ $-3A ; => $0ACD07 0ACD41 30 00 C8 BSR.68K $00C8 ; => $0ACC7C 0ACD44 10 F5 BR $0F5 ; => $0ACE3B 0ACD46 10 6C D0 CASE $D0 ; SWITCH $0ACCFF 0ACD49 80 26 READ.B $26 0ACD4B 42 PUSH.6 $02 0ACD4C 2B NEQ.L 0ACD4D 18 02 BRZ $002 ; => $0ACD51 0ACD4F 10 4E BR $04E ; => $0ACD9F 0ACD51 80 22 READ.B $22 0ACD53 E0 22 D3 READ.B $22D3 0ACD56 18 12 BRZ $012 ; => $0ACD6A 0ACD58 80 22 READ.B $22 0ACD5A 40 PUSH.6 $00 0ACD5B F0 22 D3 WRITE.B $22D3 0ACD5E 80 22 READ.B $22 0ACD60 04 FF PUSH.10 $0FF 0ACD62 F0 35 B7 WRITE.B $35B7 0ACD65 30 00 EC BSR.68K $00EC ; => $0ACC7C 0ACD68 10 35 BR $035 ; => $0ACD9F 0ACD6A 80 22 READ.B $22 0ACD6C E0 35 B7 READ.B $35B7 0ACD6F 18 12 BRZ $012 ; => $0ACD83 0ACD71 80 22 READ.B $22 0ACD73 40 PUSH.6 $00 0ACD74 F0 35 B7 WRITE.B $35B7 0ACD77 80 22 READ.B $22 0ACD79 04 FF PUSH.10 $0FF 0ACD7B F0 22 F5 WRITE.B $22F5 0ACD7E 30 01 05 BSR.68K $0105 ; => $0ACC7C 0ACD81 10 1C BR $01C ; => $0ACD9F 0ACD83 80 22 READ.B $22 0ACD85 E0 22 F5 READ.B $22F5 0ACD88 18 0B BRZ $00B ; => $0ACD95 0ACD8A 80 22 READ.B $22 0ACD8C 40 PUSH.6 $00 0ACD8D F0 22 F5 WRITE.B $22F5 0ACD90 30 01 17 BSR.68K $0117 ; => $0ACC7C 0ACD93 10 0A BR $00A ; => $0ACD9F 0ACD95 80 22 READ.B $22 0ACD97 04 FF PUSH.10 $0FF 0ACD99 F0 22 D3 WRITE.B $22D3 0ACD9C 30 01 23 BSR.68K $0123 ; => $0ACC7C 0ACD9F C0 54 2C READ.B $542C 0ACDA2 80 22 READ.B $22 0ACDA4 C0 35 4C READ.B $354C 0ACDA7 E0 40 09 READ.B $4009 0ACDAA 2A EQ.L 0ACDAB 2C AND.L 0ACDAC 18 04 BRZ $004 ; => $0ACDB2 0ACDAE 49 PUSH.6 $09 0ACDAF D0 55 70 WRITE.B $5570 0ACDB2 10 87 BR $087 ; => $0ACE3B 0ACDB4 20 2E 04 02 CASE $04, $02 ; SWITCH $0ACCFF 0ACDB8 4C PUSH.6 $0C 0ACDB9 90 21 WRITE.B $21 0ACDBB 40 PUSH.6 $00 0ACDBC 3F 20 4E 45 57 20 53 56 20 DISP "NEW SV CONTROLS WILL BE USED " 43 4F 4E 54 52 4F 4C 53 20 20 20 57 49 4C 4C 20 42 45 20 55 53 45 44 20 20 0ACDDE 3E PUSH.W $0000 0ACDDF D3 56 55 WRITE.F $5655 0ACDE2 10 57 BR $057 ; => $0ACE3B 0ACDE4 00 DEFAULT ; SWITCH $0ACCFF 0ACDE5 30 01 8A BSR.68K $018A ; => $0ACC5E => $09DFB4 0ACDE8 18 51 BRZ $051 ; => $0ACE3B 0ACDEA 45 PUSH.6 $05 0ACDEB 3F 0B 20 20 20 20 20 20 20 DISP " " 20 20 20 20 0ACDF8 5A PUSH.6 $1A 0ACDF9 3F 06 20 20 20 20 20 20 DISP " " 0ACE01 40 PUSH.6 $00 0ACE02 90 2E WRITE.B $2E 0ACE04 80 26 READ.B $26 0ACE06 43 PUSH.6 $03 0ACE07 2A EQ.L 0ACE08 18 11 BRZ $011 ; => $0ACE1B 0ACE0A 80 1D READ.B $1D 0ACE0C 73 PUSH.6 $33 0ACE0D 03 25 LT.L 0ACE0F 18 0A BRZ $00A ; => $0ACE1B 0ACE11 80 1D READ.B $1D 0ACE13 90 1C WRITE.B $1C 0ACE15 70 PUSH.6 $30 0ACE16 90 1D WRITE.B $1D 0ACE18 44 PUSH.6 $04 0ACE19 90 26 WRITE.B $26 0ACE1B 80 26 READ.B $26 0ACE1D 44 PUSH.6 $04 0ACE1E 2A EQ.L 0ACE1F 18 1A BRZ $01A ; => $0ACE3B 0ACE21 42 PUSH.6 $02 0ACE22 30 01 CD BSR.68K $01CD ; => $0ACC58 => $09E078 0ACE25 90 22 WRITE.B $22 0ACE27 80 22 READ.B $22 0ACE29 60 PUSH.6 $20 0ACE2A 03 25 LT.L 0ACE2C 80 22 READ.B $22 0ACE2E 40 PUSH.6 $00 0ACE2F 2A EQ.L 0ACE30 2D OR.L 0ACE31 18 05 BRZ $005 ; => $0ACE38 0ACE33 30 01 C6 BSR.68K $01C6 ; => $0ACC70 => $097A88 0ACE36 90 22 WRITE.B $22 0ACE38 30 01 BF BSR.68K $01BF ; => $0ACC7C 0ACE3B 34 RETURN ; ---------------- End Function $0ACCF6 ---------------- ; ---------------- Begin 2144 Function $0ACE3C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09530E:$095340 ; addr bytes opcode operands comment 0ACE43 04 52 PUSH.10 $052 0ACE45 90 21 WRITE.B $21 0ACE47 30 01 DA BSR.68K $01DA ; => $0ACC70 => $097A88 0ACE4A 90 22 WRITE.B $22 0ACE4C 30 01 D3 BSR.68K $01D3 ; => $0ACC7C 0ACE4F 34 RETURN ; ---------------- End Function $0ACE3C ---------------- ; ---------------- Begin 2144 Function $0ACE50 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09530E:$09536C ; called from $0ACFC8:$0ACFE2 ; addr bytes opcode operands comment 0ACE57 30 02 14 BSR.68K $0214 ; => $0ACC46 => $0034AA (CLEARSCREEN) (NATIVE) 0ACE5A 40 PUSH.6 $00 0ACE5B 3F 17 43 4F 4C 4C 45 43 54 DISP "COLLECT NAV DATAFROM SV" 20 4E 41 56 20 44 41 54 41 46 52 4F 4D 20 53 56 0ACE74 58 PUSH.6 $18 0ACE75 30 02 08 BSR.68K $0208 ; => $0ACC70 => $097A88 0ACE78 30 02 29 BSR.68K $0229 ; => $0ACC52 => $097B0A 0ACE7B 58 PUSH.6 $18 0ACE7C 90 26 WRITE.B $26 0ACE7E 34 RETURN ; ---------------- End Function $0ACE50 ---------------- ; ---------------- Begin 2144 Function $0ACE80 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0ACEB6:$0ACEF8 ; called from $0ACF08:$0ACF22 ; addr bytes opcode operands comment 0ACE87 40 PUSH.6 $00 0ACE88 3F 20 20 20 20 53 45 4C 45 DISP " SELECT SV FOR SKYSEARCH " 43 54 20 53 56 20 20 20 20 20 20 46 4F 52 20 53 4B 59 53 45 41 52 43 48 20 0ACEAA 4D PUSH.6 $0D 0ACEAB C0 29 12 READ.B $2912 0ACEAE 30 02 5F BSR.68K $025F ; => $0ACC52 => $097B0A 0ACEB1 4D PUSH.6 $0D 0ACEB2 90 26 WRITE.B $26 0ACEB4 34 RETURN ; ---------------- End Function $0ACE80 ---------------- ; ---------------- Begin 2144 Function $0ACEB6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB0D ; addr bytes opcode operands comment 0ACEBD 80 20 READ.B $20 0ACEBF 35 SWITCH 0ACEC0 10 2D 10 CASE $10 ; SWITCH $0ACEBF 0ACEC3 4C PUSH.6 $0C 0ACEC4 90 21 WRITE.B $21 0ACEC6 40 PUSH.6 $00 0ACEC7 3F 20 20 20 53 4B 59 53 45 DISP " SKYSEARCH IS AUTOMATIC " 41 52 43 48 20 49 53 20 20 20 20 20 41 55 54 4F 4D 41 54 49 43 20 20 20 20 0ACEE9 40 PUSH.6 $00 0ACEEA D0 29 11 WRITE.B $2911 0ACEED 10 18 BR $018 ; => $0ACF07 0ACEEF 10 0C 50 CASE $50 ; SWITCH $0ACEBF 0ACEF2 67 PUSH.6 $27 0ACEF3 90 21 WRITE.B $21 0ACEF5 30 02 AC BSR.68K $02AC ; => $0ACC4C => $099642 0ACEF8 30 00 7B BSR.68K $007B ; => $0ACE80 0ACEFB 10 0A BR $00A ; => $0ACF07 0ACEFD 20 04 90 D0 CASE $90, $D0 ; SWITCH $0ACEBF 0ACF01 10 04 BR $004 ; => $0ACF07 0ACF03 00 DEFAULT ; SWITCH $0ACEBF 0ACF04 30 02 9D BSR.68K $029D ; => $0ACC6A => $09D9DE 0ACF07 34 RETURN ; ---------------- End Function $0ACEB6 ---------------- ; ---------------- Begin 2144 Function $0ACF08 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB15 ; addr bytes opcode operands comment 0ACF0F 31 02 SUBSP.B $02 0ACF11 80 20 READ.B $20 0ACF13 35 SWITCH 0ACF14 10 11 02 CASE $02 ; SWITCH $0ACF13 0ACF17 80 26 READ.B $26 0ACF19 4D PUSH.6 $0D 0ACF1A 2A EQ.L 0ACF1B 18 05 BRZ $005 ; => $0ACF22 0ACF1D 40 PUSH.6 $00 0ACF1E 90 21 WRITE.B $21 0ACF20 10 03 BR $003 ; => $0ACF25 0ACF22 30 00 A5 BSR.68K $00A5 ; => $0ACE80 0ACF25 10 15 BR $015 ; => $0ACF3C 0ACF27 10 06 04 CASE $04 ; SWITCH $0ACF13 0ACF2A 61 PUSH.6 $21 0ACF2B 90 26 WRITE.B $26 0ACF2D 10 0D BR $00D ; => $0ACF3C 0ACF2F 00 DEFAULT ; SWITCH $0ACF13 0ACF30 80 26 READ.B $26 0ACF32 4F PUSH.6 $0F 0ACF33 03 26 GT.L 0ACF35 18 05 BRZ $005 ; => $0ACF3C 0ACF37 30 02 DC BSR.68K $02DC ; => $0ACC5E => $09DFB4 0ACF3A 94 00 WRITE.B $00 0ACF3C 80 26 READ.B $26 0ACF3E 35 SWITCH 0ACF3F 10 14 0E CASE $0E ; SWITCH $0ACF3E 0ACF42 80 12 READ.B $12 0ACF44 73 PUSH.6 $33 0ACF45 03 25 LT.L 0ACF47 18 0A BRZ $00A ; => $0ACF53 0ACF49 80 12 READ.B $12 0ACF4B 90 11 WRITE.B $11 0ACF4D 70 PUSH.6 $30 0ACF4E 90 12 WRITE.B $12 0ACF50 60 PUSH.6 $20 0ACF51 90 26 WRITE.B $26 0ACF53 10 70 BR $070 ; => $0ACFC5 0ACF55 10 1B 0F CASE $0F ; SWITCH $0ACF3E 0ACF58 4D PUSH.6 $0D 0ACF59 30 03 04 BSR.68K $0304 ; => $0ACC58 => $09E078 0ACF5C 94 01 WRITE.B $01 0ACF5E 84 01 READ.B $01 0ACF60 40 PUSH.6 $00 0ACF61 2B NEQ.L 0ACF62 84 01 READ.B $01 0ACF64 60 PUSH.6 $20 0ACF65 03 28 GTE.L 0ACF67 2C AND.L 0ACF68 18 03 BRZ $003 ; => $0ACF6D 0ACF6A 60 PUSH.6 $20 0ACF6B 10 01 BR $001 ; => $0ACF6E 0ACF6D 4D PUSH.6 $0D 0ACF6E 90 26 WRITE.B $26 0ACF70 10 53 BR $053 ; => $0ACFC5 0ACF72 10 50 21 CASE $21 ; SWITCH $0ACF3E 0ACF75 4D PUSH.6 $0D 0ACF76 30 03 21 BSR.68K $0321 ; => $0ACC58 => $09E078 0ACF79 94 01 WRITE.B $01 0ACF7B 84 01 READ.B $01 0ACF7D 40 PUSH.6 $00 0ACF7E 2B NEQ.L 0ACF7F 84 01 READ.B $01 0ACF81 60 PUSH.6 $20 0ACF82 03 28 GTE.L 0ACF84 2C AND.L 0ACF85 18 38 BRZ $038 ; => $0ACFBF 0ACF87 4C PUSH.6 $0C 0ACF88 90 21 WRITE.B $21 0ACF8A 04 FF PUSH.10 $0FF 0ACF8C D0 29 11 WRITE.B $2911 0ACF8F 84 01 READ.B $01 0ACF91 D0 29 12 WRITE.B $2912 0ACF94 40 PUSH.6 $00 0ACF95 3F 20 53 56 20 20 20 20 53 DISP "SV SELECTED FOR SKYSEARCH " 45 4C 45 43 54 45 44 20 20 46 4F 52 20 53 4B 59 53 45 41 52 43 48 20 20 20 0ACFB7 43 PUSH.6 $03 0ACFB8 84 01 READ.B $01 0ACFBA 30 03 6B BSR.68K $036B ; => $0ACC52 => $097B0A 0ACFBD 10 03 BR $003 ; => $0ACFC2 0ACFBF 4D PUSH.6 $0D 0ACFC0 90 26 WRITE.B $26 0ACFC2 10 01 BR $001 ; => $0ACFC5 0ACFC4 00 DEFAULT ; SWITCH $0ACF3E 0ACFC5 32 02 ADDSP.B $02 0ACFC7 34 RETURN ; ---------------- End Function $0ACF08 ---------------- ; ---------------- Begin 2144 Function $0ACFC8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DACC ; addr bytes opcode operands comment 0ACFCF 31 02 SUBSP.B $02 0ACFD1 80 20 READ.B $20 0ACFD3 35 SWITCH 0ACFD4 10 11 02 CASE $02 ; SWITCH $0ACFD3 0ACFD7 80 26 READ.B $26 0ACFD9 58 PUSH.6 $18 0ACFDA 2A EQ.L 0ACFDB 18 05 BRZ $005 ; => $0ACFE2 0ACFDD 40 PUSH.6 $00 0ACFDE 90 21 WRITE.B $21 0ACFE0 10 03 BR $003 ; => $0ACFE5 0ACFE2 30 01 95 BSR.68K $0195 ; => $0ACE50 0ACFE5 10 15 BR $015 ; => $0ACFFC 0ACFE7 10 06 04 CASE $04 ; SWITCH $0ACFD3 0ACFEA 61 PUSH.6 $21 0ACFEB 90 26 WRITE.B $26 0ACFED 10 0D BR $00D ; => $0ACFFC 0ACFEF 00 DEFAULT ; SWITCH $0ACFD3 0ACFF0 80 26 READ.B $26 0ACFF2 5A PUSH.6 $1A 0ACFF3 03 26 GT.L 0ACFF5 18 05 BRZ $005 ; => $0ACFFC 0ACFF7 30 03 9C BSR.68K $039C ; => $0ACC5E => $09DFB4 0ACFFA 94 00 WRITE.B $00 0ACFFC 80 26 READ.B $26 0ACFFE 35 SWITCH 0ACFFF 10 13 19 CASE $19 ; SWITCH $0ACFFE 0AD002 80 07 READ.B $07 0AD004 73 PUSH.6 $33 0AD005 03 25 LT.L 0AD007 18 09 BRZ $009 ; => $0AD012 0AD009 80 07 READ.B $07 0AD00B 90 06 WRITE.B $06 0AD00D 70 PUSH.6 $30 0AD00E 90 07 WRITE.B $07 0AD010 10 05 BR $005 ; => $0AD017 0AD012 10 49 BR $049 ; => $0AD05D 0AD014 10 12 1A CASE $1A ; SWITCH $0ACFFE 0AD017 58 PUSH.6 $18 0AD018 30 03 C3 BSR.68K $03C3 ; => $0ACC58 => $09E078 0AD01B 30 03 A8 BSR.68K $03A8 ; => $0ACC76 => $097AA8 0AD01E 18 03 BRZ $003 ; => $0AD023 0AD020 60 PUSH.6 $20 0AD021 10 01 BR $001 ; => $0AD024 0AD023 58 PUSH.6 $18 0AD024 90 26 WRITE.B $26 0AD026 10 35 BR $035 ; => $0AD05D 0AD028 10 32 21 CASE $21 ; SWITCH $0ACFFE 0AD02B 58 PUSH.6 $18 0AD02C 30 03 D7 BSR.68K $03D7 ; => $0ACC58 => $09E078 0AD02F 94 01 WRITE.B $01 0AD031 84 01 READ.B $01 0AD033 30 03 C0 BSR.68K $03C0 ; => $0ACC76 => $097AA8 0AD036 18 1F BRZ $01F ; => $0AD057 0AD038 4C PUSH.6 $0C 0AD039 90 21 WRITE.B $21 0AD03B 84 01 READ.B $01 0AD03D 04 FF PUSH.10 $0FF 0AD03F F0 28 D3 WRITE.B $28D3 0AD042 40 PUSH.6 $00 0AD043 3F 10 57 49 4C 4C 20 43 4F DISP "WILL COLLECT " 4C 4C 45 43 54 20 20 20 20 0AD055 10 03 BR $003 ; => $0AD05A 0AD057 58 PUSH.6 $18 0AD058 90 26 WRITE.B $26 0AD05A 10 01 BR $001 ; => $0AD05D 0AD05C 00 DEFAULT ; SWITCH $0ACFFE 0AD05D 32 02 ADDSP.B $02 0AD05F 34 RETURN ; ---------------- End Function $0ACFC8 ---------------- ; ---------------- Begin 2144 Function $0AD08A ---------------- ; A0 = $004004; (A0) = SP + $13 ; called from $091BC4:$091BD8 ; called from $0AA3C0:$0AA3D6 ; called from $0AA56C:$0AA584 ; called from $0ADCB6:$0ADD44 ; called from $0AEF66:$0AF063 ; addr bytes opcode operands comment 0AD091 03 2D 01 1A SUBSP.W $011A 0AD095 86 03 READ.L $03 0AD097 E3 1D C3 READ.F $1DC3 0AD09A 97 DB WRITE.F $DB 0AD09C 86 03 READ.L $03 0AD09E E3 1A 27 READ.F $1A27 0AD0A1 97 E3 WRITE.F $E3 0AD0A3 87 E3 READ.F $E3 0AD0A5 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 0AD0AE 22 MUL.F 0AD0AF 97 FB WRITE.F $FB 0AD0B1 86 03 READ.L $03 0AD0B3 E3 1F D3 READ.F $1FD3 0AD0B6 97 EB WRITE.F $EB 0AD0B8 86 03 READ.L $03 0AD0BA E2 1A AB READ.L $1AAB 0AD0BD 03 2A LONG2FLOAT 0AD0BF 97 F3 WRITE.F $F3 0AD0C1 87 0F READ.F $0F 0AD0C3 86 07 READ.L $07 0AD0C5 03 2A LONG2FLOAT 0AD0C7 86 03 READ.L $03 0AD0C9 E1 18 9B READ.W $189B 0AD0CC 03 2A LONG2FLOAT 0AD0CE 21 SUB.F 0AD0CF 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0AD0D8 22 MUL.F 0AD0D9 20 ADD.F 0AD0DA 97 1B WRITE.F $1B 0AD0DC C3 29 D7 READ.F $29D7 0AD0DF 87 DB READ.F $DB 0AD0E1 87 DB READ.F $DB 0AD0E3 22 MUL.F 0AD0E4 87 DB READ.F $DB 0AD0E6 22 MUL.F 0AD0E7 23 DIV.F 0AD0E8 97 23 WRITE.F $23 0AD0EA 87 1B READ.F $1B 0AD0EC 87 F3 READ.F $F3 0AD0EE 21 SUB.F 0AD0EF 97 2B WRITE.F $2B 0AD0F1 86 03 READ.L $03 0AD0F3 E3 20 DB READ.F $20DB 0AD0F6 87 23 READ.F $23 0AD0F8 87 2B READ.F $2B 0AD0FA 22 MUL.F 0AD0FB 20 ADD.F 0AD0FC 97 33 WRITE.F $33 0AD0FE 87 33 READ.F $33 0AD100 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD109 87 FB READ.F $FB 0AD10B 21 SUB.F 0AD10C 23 DIV.F 0AD10D 97 43 WRITE.F $43 0AD10F 3B 46 5C 66 24 60 D4 9E 87 PUSH.F $465C662460D49E87 ; float = 8999999999999999897486646837248.000000 0AD118 97 3B WRITE.F $3B 0AD11A 40 PUSH.6 $00 0AD11B D4 01 2C WRITE.B $012C 0AD11E C4 01 2C READ.B $012C 0AD121 41 PUSH.6 $01 0AD122 27 ADD.L 0AD123 D4 01 2C WRITE.B $012C 0AD126 C4 01 2C READ.B $012C 0AD129 54 PUSH.6 $14 0AD12A 03 25 LT.L 0AD12C 18 1C BRZ $01C ; => $0AD14A 0AD12E 40 PUSH.6 $00 0AD12F 3F 10 45 52 52 4F 52 20 34 DISP "ERROR 40 SAT " 30 20 20 53 41 54 20 20 20 0AD141 4E PUSH.6 $0E 0AD142 86 03 READ.L $03 0AD144 30 00 CF BSR.68K $00CF ; => $0AD078 => $097B0A 0AD147 30 00 CC BSR.68K $00CC ; => $0AD07E => $0034C8 (SETSEGMENTS) (NATIVE) 0AD14A 87 3B READ.F $3B 0AD14C 97 4B WRITE.F $4B 0AD14E 87 43 READ.F $43 0AD150 97 3B WRITE.F $3B 0AD152 87 3B READ.F $3B 0AD154 87 5B 00 READ.F $5B 0AD157 87 53 00 READ.F $53 0AD15A 30 00 F1 BSR.68K $00F1 ; => $0AD06C => $002E62 (NATIVE) 0AD15D 87 3B READ.F $3B 0AD15F 87 3B READ.F $3B 0AD161 87 33 READ.F $33 0AD163 21 SUB.F 0AD164 87 FB READ.F $FB 0AD166 87 5B READ.F $5B 0AD168 22 MUL.F 0AD169 21 SUB.F 0AD16A 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD173 87 FB READ.F $FB 0AD175 87 53 READ.F $53 0AD177 22 MUL.F 0AD178 21 SUB.F 0AD179 23 DIV.F 0AD17A 21 SUB.F 0AD17B 97 43 WRITE.F $43 0AD17D 87 43 READ.F $43 0AD17F 87 3B READ.F $3B 0AD181 21 SUB.F 0AD182 30 01 25 BSR.68K $0125 ; => $0AD060 => $002B7E (NATIVE) 0AD185 3B 3D A5 FD 7F E1 79 64 95 PUSH.F $3DA5FD7FE1796495 ; float = 0.000000 0AD18E 03 21 LT.F 0AD190 87 43 READ.F $43 0AD192 87 4B READ.F $4B 0AD194 21 SUB.F 0AD195 30 01 38 BSR.68K $0138 ; => $0AD060 => $002B7E (NATIVE) 0AD198 3B 3D A5 FD 7F E1 79 64 95 PUSH.F $3DA5FD7FE1796495 ; float = 0.000000 0AD1A1 03 21 LT.F 0AD1A3 2D OR.L 0AD1A4 1F 78 BRZ $-88 ; => $0AD11E 0AD1A6 87 43 READ.F $43 0AD1A8 87 5B 00 READ.F $5B 0AD1AB 87 53 00 READ.F $53 0AD1AE 30 01 45 BSR.68K $0145 ; => $0AD06C => $002E62 (NATIVE) 0AD1B1 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD1BA 87 E3 READ.F $E3 0AD1BC 87 E3 READ.F $E3 0AD1BE 22 MUL.F 0AD1BF 21 SUB.F 0AD1C0 30 01 5D BSR.68K $015D ; => $0AD066 => $002682 (NATIVE) 0AD1C3 87 5B READ.F $5B 0AD1C5 22 MUL.F 0AD1C6 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD1CF 87 E3 READ.F $E3 0AD1D1 87 53 READ.F $53 0AD1D3 22 MUL.F 0AD1D4 21 SUB.F 0AD1D5 23 DIV.F 0AD1D6 97 63 WRITE.F $63 0AD1D8 87 53 READ.F $53 0AD1DA 87 E3 READ.F $E3 0AD1DC 21 SUB.F 0AD1DD 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD1E6 87 E3 READ.F $E3 0AD1E8 87 53 READ.F $53 0AD1EA 22 MUL.F 0AD1EB 21 SUB.F 0AD1EC 23 DIV.F 0AD1ED 97 6B WRITE.F $6B 0AD1EF 87 EB READ.F $EB 0AD1F1 87 73 00 READ.F $73 0AD1F4 87 7B 00 READ.F $7B 0AD1F7 30 01 8E BSR.68K $018E ; => $0AD06C => $002E62 (NATIVE) 0AD1FA 87 63 READ.F $63 0AD1FC 87 7B READ.F $7B 0AD1FE 22 MUL.F 0AD1FF 87 6B READ.F $6B 0AD201 87 73 READ.F $73 0AD203 22 MUL.F 0AD204 20 ADD.F 0AD205 97 83 WRITE.F $83 0AD207 87 6B READ.F $6B 0AD209 87 7B READ.F $7B 0AD20B 22 MUL.F 0AD20C 87 63 READ.F $63 0AD20E 87 73 READ.F $73 0AD210 22 MUL.F 0AD211 21 SUB.F 0AD212 97 8B WRITE.F $8B 0AD214 87 DB READ.F $DB 0AD216 87 DB READ.F $DB 0AD218 22 MUL.F 0AD219 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD222 87 E3 READ.F $E3 0AD224 87 53 READ.F $53 0AD226 22 MUL.F 0AD227 21 SUB.F 0AD228 22 MUL.F 0AD229 97 93 WRITE.F $93 0AD22B 86 03 READ.L $03 0AD22D E3 1B B3 READ.F $1BB3 0AD230 97 9B WRITE.F $9B 0AD232 87 93 READ.F $93 0AD234 87 8B READ.F $8B 0AD236 22 MUL.F 0AD237 97 A3 WRITE.F $A3 0AD239 87 93 READ.F $93 0AD23B 87 83 READ.F $83 0AD23D 22 MUL.F 0AD23E 97 AB WRITE.F $AB 0AD240 86 03 READ.L $03 0AD242 E3 1E CB READ.F $1ECB 0AD245 86 03 READ.L $03 0AD247 E3 1C BB READ.F $1CBB 0AD24A 87 2B READ.F $2B 0AD24C 22 MUL.F 0AD24D 20 ADD.F 0AD24E C3 29 DF READ.F $29DF 0AD251 87 1B READ.F $1B 0AD253 22 MUL.F 0AD254 21 SUB.F 0AD255 97 B3 WRITE.F $B3 0AD257 87 B3 READ.F $B3 0AD259 87 BB 00 READ.F $BB 0AD25C 87 C3 00 READ.F $C3 0AD25F 30 01 F6 BSR.68K $01F6 ; => $0AD06C => $002E62 (NATIVE) 0AD262 87 9B READ.F $9B 0AD264 87 CB 00 READ.F $CB 0AD267 87 D3 00 READ.F $D3 0AD26A 30 02 01 BSR.68K $0201 ; => $0AD06C => $002E62 (NATIVE) 0AD26D 87 A3 READ.F $A3 0AD26F 87 C3 READ.F $C3 0AD271 22 MUL.F 0AD272 87 AB READ.F $AB 0AD274 87 D3 READ.F $D3 0AD276 22 MUL.F 0AD277 87 BB READ.F $BB 0AD279 22 MUL.F 0AD27A 21 SUB.F 0AD27B 87 A3 READ.F $A3 0AD27D 87 BB READ.F $BB 0AD27F 22 MUL.F 0AD280 87 AB READ.F $AB 0AD282 87 D3 READ.F $D3 0AD284 22 MUL.F 0AD285 87 C3 READ.F $C3 0AD287 22 MUL.F 0AD288 20 ADD.F 0AD289 87 AB READ.F $AB 0AD28B 87 CB READ.F $CB 0AD28D 22 MUL.F 0AD28E 30 02 0D BSR.68K $020D ; => $0AD084 => $0AA6E6 0AD291 86 13 READ.L $13 0AD293 19 06 BRZ $106 ; => $0AD39B 0AD295 87 23 READ.F $23 0AD297 3B 40 09 21 FB 54 44 2D 28 PUSH.F $400921FB54442D28 ; float = 3.141593 0AD2A0 22 MUL.F 0AD2A1 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD2AA 87 E3 READ.F $E3 0AD2AC 87 53 READ.F $53 0AD2AE 22 MUL.F 0AD2AF 21 SUB.F 0AD2B0 23 DIV.F 0AD2B1 D7 01 03 WRITE.F $0103 0AD2B4 C7 01 03 READ.F $0103 0AD2B7 87 5B READ.F $5B 0AD2B9 22 MUL.F 0AD2BA 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD2C3 87 E3 READ.F $E3 0AD2C5 87 6B READ.F $6B 0AD2C7 22 MUL.F 0AD2C8 20 ADD.F 0AD2C9 22 MUL.F 0AD2CA 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD2D3 87 E3 READ.F $E3 0AD2D5 87 6B READ.F $6B 0AD2D7 22 MUL.F 0AD2D8 20 ADD.F 0AD2D9 22 MUL.F 0AD2DA 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD2E3 87 E3 READ.F $E3 0AD2E5 87 E3 READ.F $E3 0AD2E7 22 MUL.F 0AD2E8 21 SUB.F 0AD2E9 87 63 READ.F $63 0AD2EB 22 MUL.F 0AD2EC 23 DIV.F 0AD2ED D7 01 0B WRITE.F $010B 0AD2F0 C7 01 03 READ.F $0103 0AD2F3 87 DB READ.F $DB 0AD2F5 22 MUL.F 0AD2F6 87 DB READ.F $DB 0AD2F8 22 MUL.F 0AD2F9 87 E3 READ.F $E3 0AD2FB 22 MUL.F 0AD2FC 87 5B READ.F $5B 0AD2FE 22 MUL.F 0AD2FF D7 01 13 WRITE.F $0113 0AD302 C7 01 13 READ.F $0113 0AD305 87 8B READ.F $8B 0AD307 22 MUL.F 0AD308 87 93 READ.F $93 0AD30A C7 01 0B READ.F $010B 0AD30D 22 MUL.F 0AD30E 87 83 READ.F $83 0AD310 22 MUL.F 0AD311 21 SUB.F 0AD312 D7 01 1B WRITE.F $011B 0AD315 C7 01 13 READ.F $0113 0AD318 87 83 READ.F $83 0AD31A 22 MUL.F 0AD31B 87 93 READ.F $93 0AD31D C7 01 0B READ.F $010B 0AD320 22 MUL.F 0AD321 87 8B READ.F $8B 0AD323 22 MUL.F 0AD324 20 ADD.F 0AD325 D7 01 23 WRITE.F $0123 0AD328 86 03 READ.L $03 0AD32A E3 1C BB READ.F $1CBB 0AD32D C3 29 DF READ.F $29DF 0AD330 21 SUB.F 0AD331 3B 40 09 21 FB 54 44 2D 28 PUSH.F $400921FB54442D28 ; float = 3.141593 0AD33A 22 MUL.F 0AD33B D7 01 2B WRITE.F $012B 0AD33E C7 01 1B READ.F $011B 0AD341 87 C3 READ.F $C3 0AD343 22 MUL.F 0AD344 C7 01 2B READ.F $012B 0AD347 87 A3 READ.F $A3 0AD349 22 MUL.F 0AD34A 87 BB READ.F $BB 0AD34C 22 MUL.F 0AD34D 21 SUB.F 0AD34E C7 01 23 READ.F $0123 0AD351 87 D3 READ.F $D3 0AD353 22 MUL.F 0AD354 87 BB READ.F $BB 0AD356 22 MUL.F 0AD357 21 SUB.F 0AD358 87 AB READ.F $AB 0AD35A 87 D3 READ.F $D3 0AD35C 22 MUL.F 0AD35D C7 01 2B READ.F $012B 0AD360 22 MUL.F 0AD361 87 C3 READ.F $C3 0AD363 22 MUL.F 0AD364 21 SUB.F 0AD365 D3 4E 33 WRITE.F $4E33 0AD368 C7 01 1B READ.F $011B 0AD36B 87 BB READ.F $BB 0AD36D 22 MUL.F 0AD36E C7 01 2B READ.F $012B 0AD371 87 A3 READ.F $A3 0AD373 22 MUL.F 0AD374 87 C3 READ.F $C3 0AD376 22 MUL.F 0AD377 20 ADD.F 0AD378 C7 01 23 READ.F $0123 0AD37B 87 D3 READ.F $D3 0AD37D 22 MUL.F 0AD37E 87 C3 READ.F $C3 0AD380 22 MUL.F 0AD381 20 ADD.F 0AD382 87 AB READ.F $AB 0AD384 87 D3 READ.F $D3 0AD386 22 MUL.F 0AD387 C7 01 2B READ.F $012B 0AD38A 22 MUL.F 0AD38B 87 BB READ.F $BB 0AD38D 22 MUL.F 0AD38E 21 SUB.F 0AD38F D3 4E 3B WRITE.F $4E3B 0AD392 C7 01 23 READ.F $0123 0AD395 87 CB READ.F $CB 0AD397 22 MUL.F 0AD398 D3 4E 43 WRITE.F $4E43 0AD39B 03 2E 01 2E ADDSP.W $012E 0AD39F 34 RETURN ; ---------------- End Function $0AD08A ---------------- ; ---------------- Begin 2144 Function $0AD3AC ---------------- ; A0 = $004004; (A0) = SP + $F ; called from $091BC4:$091BE3 ; called from $0AA3C0:$0AA3E3 ; called from $0AA56C:$0AA5A7 ; addr bytes opcode operands comment 0AD3B3 31 60 SUBSP.B $60 0AD3B5 86 03 READ.L $03 0AD3B7 E3 0C 5B READ.F $0C5B 0AD3BA 97 5F WRITE.F $5F 0AD3BC 87 5F READ.F $5F 0AD3BE 87 5F READ.F $5F 0AD3C0 22 MUL.F 0AD3C1 97 27 WRITE.F $27 0AD3C3 C3 29 D7 READ.F $29D7 0AD3C6 87 5F READ.F $5F 0AD3C8 87 27 READ.F $27 0AD3CA 22 MUL.F 0AD3CB 23 DIV.F 0AD3CC 86 03 READ.L $03 0AD3CE E3 0A 4B READ.F $0A4B 0AD3D1 20 ADD.F 0AD3D2 97 17 WRITE.F $17 0AD3D4 86 03 READ.L $03 0AD3D6 E2 18 37 READ.L $1837 0AD3D9 03 2A LONG2FLOAT 0AD3DB 97 67 WRITE.F $67 0AD3DD 87 0F READ.F $0F 0AD3DF 86 07 READ.L $07 0AD3E1 03 2A LONG2FLOAT 0AD3E3 86 03 READ.L $03 0AD3E5 E1 01 61 READ.W $0161 0AD3E8 03 2A LONG2FLOAT 0AD3EA 21 SUB.F 0AD3EB 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0AD3F4 22 MUL.F 0AD3F5 20 ADD.F 0AD3F6 87 67 READ.F $67 0AD3F8 21 SUB.F 0AD3F9 97 1F WRITE.F $1F 0AD3FB 86 03 READ.L $03 0AD3FD E2 01 E5 READ.L $01E5 0AD400 03 2A LONG2FLOAT 0AD402 87 67 READ.F $67 0AD404 21 SUB.F 0AD405 97 6F WRITE.F $6F 0AD407 87 6F READ.F $6F 0AD409 3B 41 12 75 00 00 00 00 00 PUSH.F $4112750000000000 ; float = 302400.000000 0AD412 24 GT.F 0AD413 18 10 BRZ $010 ; => $0AD425 0AD415 87 1F READ.F $1F 0AD417 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0AD420 21 SUB.F 0AD421 97 1F WRITE.F $1F 0AD423 10 1F BR $01F ; => $0AD444 0AD425 87 6F READ.F $6F 0AD427 3B 41 12 75 00 00 00 00 00 PUSH.F $4112750000000000 ; float = 302400.000000 0AD430 03 20 NEG.W 0AD432 03 21 LT.F 0AD434 18 0E BRZ $00E ; => $0AD444 0AD436 87 1F READ.F $1F 0AD438 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0AD441 20 ADD.F 0AD442 97 1F WRITE.F $1F 0AD444 86 03 READ.L $03 0AD446 E3 09 43 READ.F $0943 0AD449 87 17 READ.F $17 0AD44B 87 1F READ.F $1F 0AD44D 22 MUL.F 0AD44E 20 ADD.F 0AD44F 86 03 READ.L $03 0AD451 E3 0E 6B READ.F $0E6B 0AD454 20 ADD.F 0AD455 87 37 00 READ.F $37 0AD458 87 2F 00 READ.F $2F 0AD45B 30 00 BE BSR.68K $00BE ; => $0AD3A0 => $002E62 (NATIVE) 0AD45E 87 27 READ.F $27 0AD460 87 2F READ.F $2F 0AD462 22 MUL.F 0AD463 97 2F WRITE.F $2F 0AD465 87 27 READ.F $27 0AD467 87 37 READ.F $37 0AD469 22 MUL.F 0AD46A 97 37 WRITE.F $37 0AD46C 86 03 READ.L $03 0AD46E E3 10 7B READ.F $107B 0AD471 86 03 READ.L $03 0AD473 E3 11 83 READ.F $1183 0AD476 87 1F READ.F $1F 0AD478 22 MUL.F 0AD479 20 ADD.F 0AD47A 87 4F 00 READ.F $4F 0AD47D 87 57 00 READ.F $57 0AD480 30 00 E3 BSR.68K $00E3 ; => $0AD3A0 => $002E62 (NATIVE) 0AD483 86 03 READ.L $03 0AD485 E3 0D 63 READ.F $0D63 0AD488 86 03 READ.L $03 0AD48A E3 0F 73 READ.F $0F73 0AD48D C3 29 DF READ.F $29DF 0AD490 21 SUB.F 0AD491 87 1F READ.F $1F 0AD493 22 MUL.F 0AD494 20 ADD.F 0AD495 C3 29 DF READ.F $29DF 0AD498 87 67 READ.F $67 0AD49A 22 MUL.F 0AD49B 21 SUB.F 0AD49C 87 3F 00 READ.F $3F 0AD49F 87 47 00 READ.F $47 0AD4A2 30 01 05 BSR.68K $0105 ; => $0AD3A0 => $002E62 (NATIVE) 0AD4A5 87 2F READ.F $2F 0AD4A7 87 47 READ.F $47 0AD4A9 22 MUL.F 0AD4AA 87 37 READ.F $37 0AD4AC 87 57 READ.F $57 0AD4AE 22 MUL.F 0AD4AF 87 3F READ.F $3F 0AD4B1 22 MUL.F 0AD4B2 21 SUB.F 0AD4B3 87 2F READ.F $2F 0AD4B5 87 3F READ.F $3F 0AD4B7 22 MUL.F 0AD4B8 87 37 READ.F $37 0AD4BA 87 57 READ.F $57 0AD4BC 22 MUL.F 0AD4BD 87 47 READ.F $47 0AD4BF 22 MUL.F 0AD4C0 20 ADD.F 0AD4C1 87 37 READ.F $37 0AD4C3 87 4F READ.F $4F 0AD4C5 22 MUL.F 0AD4C6 30 01 23 BSR.68K $0123 ; => $0AD3A6 => $0AA6E6 0AD4C9 32 70 ADDSP.B $70 0AD4CB 34 RETURN ; ---------------- End Function $0AD3AC ---------------- ; ---------------- Begin 2144 Function $0AD4F0 ---------------- ; A0 = $004004; (A0) = SP + $17 ; called from $0A6E44:$0A6E9C ; called from $0A6E44:$0A7029 ; called from $0AA8CC:$0AA997 ; called from $0ADCB6:$0ADD13 ; called from $0AEF66:$0AF053 ; addr bytes opcode operands comment 0AD4F7 03 2D 01 EA SUBSP.W $01EA 0AD4FB 86 03 READ.L $03 0AD4FD E3 0C 5B READ.F $0C5B 0AD500 D7 01 47 WRITE.F $0147 0AD503 C7 01 47 READ.F $0147 0AD506 30 00 37 BSR.68K $0037 ; => $0AD4D2 => $002B72 (NATIVE) 0AD509 D7 01 F1 WRITE.F $01F1 0AD50C 86 03 READ.L $03 0AD50E E3 0B 53 READ.F $0B53 0AD511 D7 01 4F WRITE.F $014F 0AD514 C7 01 4F READ.F $014F 0AD517 3B 3F D4 5F 30 6D C9 C8 77 PUSH.F $3FD45F306DC9C877 ; float = 0.318310 0AD520 22 MUL.F 0AD521 D7 01 67 WRITE.F $0167 0AD524 86 03 READ.L $03 0AD526 E3 0E 6B READ.F $0E6B 0AD529 D7 01 57 WRITE.F $0157 0AD52C 86 03 READ.L $03 0AD52E E2 18 37 READ.L $1837 0AD531 03 2A LONG2FLOAT 0AD533 D7 01 5F WRITE.F $015F 0AD536 87 0F READ.F $0F 0AD538 C7 01 5F READ.F $015F 0AD53B 21 SUB.F 0AD53C 97 2F WRITE.F $2F 0AD53E 86 07 READ.L $07 0AD540 86 03 READ.L $03 0AD542 E1 01 61 READ.W $0161 0AD545 2B NEQ.L 0AD546 18 1B BRZ $01B ; => $0AD563 0AD548 87 2F READ.F $2F 0AD54A 86 07 READ.L $07 0AD54C 03 2A LONG2FLOAT 0AD54E 86 03 READ.L $03 0AD550 E1 01 61 READ.W $0161 0AD553 03 2A LONG2FLOAT 0AD555 21 SUB.F 0AD556 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0AD55F 22 MUL.F 0AD560 20 ADD.F 0AD561 97 2F WRITE.F $2F 0AD563 86 03 READ.L $03 0AD565 E2 01 E5 READ.L $01E5 0AD568 03 2A LONG2FLOAT 0AD56A D7 01 F9 WRITE.F $01F9 0AD56D C7 01 F9 READ.F $01F9 0AD570 C7 01 5F READ.F $015F 0AD573 21 SUB.F 0AD574 3B 41 12 75 00 00 00 00 00 PUSH.F $4112750000000000 ; float = 302400.000000 0AD57D 24 GT.F 0AD57E 18 10 BRZ $010 ; => $0AD590 0AD580 87 2F READ.F $2F 0AD582 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0AD58B 21 SUB.F 0AD58C 97 2F WRITE.F $2F 0AD58E 10 24 BR $024 ; => $0AD5B4 0AD590 C7 01 F9 READ.F $01F9 0AD593 C7 01 5F READ.F $015F 0AD596 21 SUB.F 0AD597 3B 41 12 75 00 00 00 00 00 PUSH.F $4112750000000000 ; float = 302400.000000 0AD5A0 03 20 NEG.W 0AD5A2 03 21 LT.F 0AD5A4 18 0E BRZ $00E ; => $0AD5B4 0AD5A6 87 2F READ.F $2F 0AD5A8 3B 41 22 75 00 00 00 00 00 PUSH.F $4122750000000000 ; float = 604800.000000 0AD5B1 20 ADD.F 0AD5B2 97 2F WRITE.F $2F 0AD5B4 C3 29 D7 READ.F $29D7 0AD5B7 C7 01 47 READ.F $0147 0AD5BA C7 01 F1 READ.F $01F1 0AD5BD 22 MUL.F 0AD5BE 23 DIV.F 0AD5BF 97 27 WRITE.F $27 0AD5C1 87 27 READ.F $27 0AD5C3 86 03 READ.L $03 0AD5C5 E3 0A 4B READ.F $0A4B 0AD5C8 20 ADD.F 0AD5C9 97 1F WRITE.F $1F 0AD5CB 86 17 READ.L $17 0AD5CD 87 1F READ.F $1F 0AD5CF F3 45 B3 WRITE.F $45B3 0AD5D2 86 03 READ.L $03 0AD5D4 E3 09 43 READ.F $0943 0AD5D7 87 1F READ.F $1F 0AD5D9 87 2F READ.F $2F 0AD5DB 22 MUL.F 0AD5DC 20 ADD.F 0AD5DD 97 37 WRITE.F $37 0AD5DF 87 37 READ.F $37 0AD5E1 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD5EA C7 01 67 READ.F $0167 0AD5ED 21 SUB.F 0AD5EE 23 DIV.F 0AD5EF 97 47 WRITE.F $47 0AD5F1 3B 46 5C 66 24 60 D4 9E 87 PUSH.F $465C662460D49E87 ; float = 8999999999999999897486646837248.000000 0AD5FA 97 3F WRITE.F $3F 0AD5FC 40 PUSH.6 $00 0AD5FD D4 01 C0 WRITE.B $01C0 0AD600 87 3F READ.F $3F 0AD602 97 4F WRITE.F $4F 0AD604 87 47 READ.F $47 0AD606 97 3F WRITE.F $3F 0AD608 87 3F READ.F $3F 0AD60A 87 5F 00 READ.F $5F 0AD60D 87 57 00 READ.F $57 0AD610 30 01 35 BSR.68K $0135 ; => $0AD4DE => $002E62 (NATIVE) 0AD613 87 3F READ.F $3F 0AD615 87 37 READ.F $37 0AD617 21 SUB.F 0AD618 C7 01 67 READ.F $0167 0AD61B 87 5F READ.F $5F 0AD61D 22 MUL.F 0AD61E 21 SUB.F 0AD61F 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD628 C7 01 67 READ.F $0167 0AD62B 87 57 READ.F $57 0AD62D 22 MUL.F 0AD62E 21 SUB.F 0AD62F 23 DIV.F 0AD630 D7 02 01 WRITE.F $0201 0AD633 87 3F READ.F $3F 0AD635 C7 02 01 READ.F $0201 0AD638 21 SUB.F 0AD639 97 47 WRITE.F $47 0AD63B C4 01 C0 READ.B $01C0 0AD63E 41 PUSH.6 $01 0AD63F 27 ADD.L 0AD640 D4 01 C0 WRITE.B $01C0 0AD643 C4 01 C0 READ.B $01C0 0AD646 44 PUSH.6 $04 0AD647 03 27 LTE.L 0AD649 1F B5 BRZ $-4B ; => $0AD600 0AD64B C7 02 01 READ.F $0201 0AD64E 30 01 85 BSR.68K $0185 ; => $0AD4CC => $002B7E (NATIVE) 0AD651 3B 3D A5 FD 7F E1 79 64 95 PUSH.F $3DA5FD7FE1796495 ; float = 0.000000 0AD65A 03 21 LT.F 0AD65C 87 47 READ.F $47 0AD65E 87 4F READ.F $4F 0AD660 21 SUB.F 0AD661 30 01 98 BSR.68K $0198 ; => $0AD4CC => $002B7E (NATIVE) 0AD664 3B 3D A5 FD 7F E1 79 64 95 PUSH.F $3DA5FD7FE1796495 ; float = 0.000000 0AD66D 03 21 LT.F 0AD66F 2D OR.L 0AD670 1F 8E BRZ $-72 ; => $0AD600 0AD672 87 47 READ.F $47 0AD674 87 5F 00 READ.F $5F 0AD677 87 57 00 READ.F $57 0AD67A 30 01 9F BSR.68K $019F ; => $0AD4DE => $002E62 (NATIVE) 0AD67D 86 17 READ.L $17 0AD67F 87 5F READ.F $5F 0AD681 F3 45 13 WRITE.F $4513 0AD684 86 17 READ.L $17 0AD686 87 57 READ.F $57 0AD688 F3 45 63 WRITE.F $4563 0AD68B 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD694 C7 01 4F READ.F $014F 0AD697 87 57 READ.F $57 0AD699 22 MUL.F 0AD69A 21 SUB.F 0AD69B D7 01 D1 WRITE.F $01D1 0AD69E 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD6A7 C7 01 D1 READ.F $01D1 0AD6AA 23 DIV.F 0AD6AB D7 01 D9 WRITE.F $01D9 0AD6AE 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD6B7 C7 01 4F READ.F $014F 0AD6BA 30 01 EB BSR.68K $01EB ; => $0AD4D2 => $002B72 (NATIVE) 0AD6BD 21 SUB.F 0AD6BE D7 01 E1 WRITE.F $01E1 0AD6C1 C7 01 E1 READ.F $01E1 0AD6C4 30 01 EF BSR.68K $01EF ; => $0AD4D8 => $002682 (NATIVE) 0AD6C7 87 5F READ.F $5F 0AD6C9 22 MUL.F 0AD6CA C7 01 D9 READ.F $01D9 0AD6CD 22 MUL.F 0AD6CE 97 67 WRITE.F $67 0AD6D0 87 57 READ.F $57 0AD6D2 C7 01 4F READ.F $014F 0AD6D5 21 SUB.F 0AD6D6 C7 01 D9 READ.F $01D9 0AD6D9 22 MUL.F 0AD6DA 97 6F WRITE.F $6F 0AD6DC 87 67 READ.F $67 0AD6DE 41 PUSH.6 $01 0AD6DF 30 01 FE BSR.68K $01FE ; => $0AD4E4 => $002BAE (NATIVE) 0AD6E2 87 6F READ.F $6F 0AD6E4 22 MUL.F 0AD6E5 97 77 WRITE.F $77 0AD6E7 87 6F READ.F $6F 0AD6E9 30 02 1A BSR.68K $021A ; => $0AD4D2 => $002B72 (NATIVE) 0AD6EC 87 67 READ.F $67 0AD6EE 30 02 1F BSR.68K $021F ; => $0AD4D2 => $002B72 (NATIVE) 0AD6F1 21 SUB.F 0AD6F2 97 7F WRITE.F $7F 0AD6F4 C7 01 57 READ.F $0157 0AD6F7 87 87 00 READ.F $87 0AD6FA 87 8F 00 READ.F $8F 0AD6FD 30 02 22 BSR.68K $0222 ; => $0AD4DE => $002E62 (NATIVE) 0AD700 87 87 READ.F $87 0AD702 41 PUSH.6 $01 0AD703 30 02 22 BSR.68K $0222 ; => $0AD4E4 => $002BAE (NATIVE) 0AD706 87 8F READ.F $8F 0AD708 22 MUL.F 0AD709 97 97 WRITE.F $97 0AD70B 87 8F READ.F $8F 0AD70D 30 02 3E BSR.68K $023E ; => $0AD4D2 => $002B72 (NATIVE) 0AD710 87 87 READ.F $87 0AD712 30 02 43 BSR.68K $0243 ; => $0AD4D2 => $002B72 (NATIVE) 0AD715 21 SUB.F 0AD716 97 9F WRITE.F $9F 0AD718 87 77 READ.F $77 0AD71A 87 9F READ.F $9F 0AD71C 22 MUL.F 0AD71D 87 7F READ.F $7F 0AD71F 87 97 READ.F $97 0AD721 22 MUL.F 0AD722 20 ADD.F 0AD723 97 A7 WRITE.F $A7 0AD725 87 7F READ.F $7F 0AD727 87 9F READ.F $9F 0AD729 22 MUL.F 0AD72A 87 77 READ.F $77 0AD72C 87 97 READ.F $97 0AD72E 22 MUL.F 0AD72F 21 SUB.F 0AD730 97 AF WRITE.F $AF 0AD732 86 03 READ.L $03 0AD734 E3 13 93 READ.F $1393 0AD737 87 A7 READ.F $A7 0AD739 22 MUL.F 0AD73A 86 03 READ.L $03 0AD73C E3 12 8B READ.F $128B 0AD73F 87 AF READ.F $AF 0AD741 22 MUL.F 0AD742 20 ADD.F 0AD743 97 B7 WRITE.F $B7 0AD745 86 03 READ.L $03 0AD747 E3 14 9B READ.F $149B 0AD74A 87 AF READ.F $AF 0AD74C 22 MUL.F 0AD74D 86 03 READ.L $03 0AD74F E3 15 A3 READ.F $15A3 0AD752 87 A7 READ.F $A7 0AD754 22 MUL.F 0AD755 20 ADD.F 0AD756 97 BF WRITE.F $BF 0AD758 86 03 READ.L $03 0AD75A E3 16 AB READ.F $16AB 0AD75D 87 AF READ.F $AF 0AD75F 22 MUL.F 0AD760 86 03 READ.L $03 0AD762 E3 17 B3 READ.F $17B3 0AD765 87 A7 READ.F $A7 0AD767 22 MUL.F 0AD768 20 ADD.F 0AD769 97 C7 WRITE.F $C7 0AD76B 87 67 READ.F $67 0AD76D 87 8F READ.F $8F 0AD76F 22 MUL.F 0AD770 87 6F READ.F $6F 0AD772 87 87 READ.F $87 0AD774 22 MUL.F 0AD775 20 ADD.F 0AD776 97 CF WRITE.F $CF 0AD778 87 6F READ.F $6F 0AD77A 87 8F READ.F $8F 0AD77C 22 MUL.F 0AD77D 87 67 READ.F $67 0AD77F 87 87 READ.F $87 0AD781 22 MUL.F 0AD782 21 SUB.F 0AD783 97 D7 WRITE.F $D7 0AD785 87 B7 READ.F $B7 0AD787 87 DF 00 READ.F $DF 0AD78A 87 E7 00 READ.F $E7 0AD78D 30 02 B2 BSR.68K $02B2 ; => $0AD4DE => $002E62 (NATIVE) 0AD790 87 CF READ.F $CF 0AD792 87 E7 READ.F $E7 0AD794 22 MUL.F 0AD795 87 D7 READ.F $D7 0AD797 87 DF READ.F $DF 0AD799 22 MUL.F 0AD79A 20 ADD.F 0AD79B 97 EF WRITE.F $EF 0AD79D 87 D7 READ.F $D7 0AD79F 87 E7 READ.F $E7 0AD7A1 22 MUL.F 0AD7A2 87 CF READ.F $CF 0AD7A4 87 DF READ.F $DF 0AD7A6 22 MUL.F 0AD7A7 21 SUB.F 0AD7A8 97 F7 WRITE.F $F7 0AD7AA C7 01 F1 READ.F $01F1 0AD7AD C7 01 D1 READ.F $01D1 0AD7B0 22 MUL.F 0AD7B1 87 BF READ.F $BF 0AD7B3 20 ADD.F 0AD7B4 97 FF WRITE.F $FF 0AD7B6 86 03 READ.L $03 0AD7B8 E3 10 7B READ.F $107B 0AD7BB 87 C7 READ.F $C7 0AD7BD 20 ADD.F 0AD7BE 86 03 READ.L $03 0AD7C0 E3 11 83 READ.F $1183 0AD7C3 87 2F READ.F $2F 0AD7C5 22 MUL.F 0AD7C6 20 ADD.F 0AD7C7 D7 01 07 WRITE.F $0107 0AD7CA 87 FF READ.F $FF 0AD7CC 87 F7 READ.F $F7 0AD7CE 22 MUL.F 0AD7CF D7 01 0F WRITE.F $010F 0AD7D2 87 FF READ.F $FF 0AD7D4 87 EF READ.F $EF 0AD7D6 22 MUL.F 0AD7D7 D7 01 17 WRITE.F $0117 0AD7DA 86 03 READ.L $03 0AD7DC E3 0D 63 READ.F $0D63 0AD7DF 86 03 READ.L $03 0AD7E1 E3 0F 73 READ.F $0F73 0AD7E4 C3 29 DF READ.F $29DF 0AD7E7 21 SUB.F 0AD7E8 87 2F READ.F $2F 0AD7EA 22 MUL.F 0AD7EB 20 ADD.F 0AD7EC C3 29 DF READ.F $29DF 0AD7EF C7 01 5F READ.F $015F 0AD7F2 22 MUL.F 0AD7F3 21 SUB.F 0AD7F4 D7 01 1F WRITE.F $011F 0AD7F7 C7 01 1F READ.F $011F 0AD7FA C7 01 27 00 READ.F $0127 0AD7FE C7 01 2F 00 READ.F $012F 0AD802 30 03 27 BSR.68K $0327 ; => $0AD4DE => $002E62 (NATIVE) 0AD805 C7 01 07 READ.F $0107 0AD808 C7 01 37 00 READ.F $0137 0AD80C C7 01 3F 00 READ.F $013F 0AD810 30 03 35 BSR.68K $0335 ; => $0AD4DE => $002E62 (NATIVE) 0AD813 C7 01 17 READ.F $0117 0AD816 C7 01 3F READ.F $013F 0AD819 22 MUL.F 0AD81A D7 01 E9 WRITE.F $01E9 0AD81D C7 01 0F READ.F $010F 0AD820 C7 01 2F READ.F $012F 0AD823 22 MUL.F 0AD824 C7 01 E9 READ.F $01E9 0AD827 C7 01 27 READ.F $0127 0AD82A 22 MUL.F 0AD82B 21 SUB.F 0AD82C C7 01 0F READ.F $010F 0AD82F C7 01 27 READ.F $0127 0AD832 22 MUL.F 0AD833 C7 01 E9 READ.F $01E9 0AD836 C7 01 2F READ.F $012F 0AD839 22 MUL.F 0AD83A 20 ADD.F 0AD83B C7 01 17 READ.F $0117 0AD83E C7 01 37 READ.F $0137 0AD841 22 MUL.F 0AD842 30 03 5B BSR.68K $035B ; => $0AD4EA => $0AA6E6 0AD845 86 13 READ.L $13 0AD847 19 75 BRZ $175 ; => $0AD9BE 0AD849 87 1F READ.F $1F 0AD84B 3B 40 09 21 FB 54 44 2D 28 PUSH.F $400921FB54442D28 ; float = 3.141593 0AD854 22 MUL.F 0AD855 C7 01 D9 READ.F $01D9 0AD858 22 MUL.F 0AD859 D7 01 6F WRITE.F $016F 0AD85C C7 01 6F READ.F $016F 0AD85F 87 5F READ.F $5F 0AD861 22 MUL.F 0AD862 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AD86B C7 01 4F READ.F $014F 0AD86E 87 6F READ.F $6F 0AD870 22 MUL.F 0AD871 20 ADD.F 0AD872 30 03 A3 BSR.68K $03A3 ; => $0AD4D2 => $002B72 (NATIVE) 0AD875 22 MUL.F 0AD876 C7 01 E1 READ.F $01E1 0AD879 87 67 READ.F $67 0AD87B 22 MUL.F 0AD87C 23 DIV.F 0AD87D D7 01 77 WRITE.F $0177 0AD880 3B 40 09 21 FB 54 44 2D 28 PUSH.F $400921FB54442D28 ; float = 3.141593 0AD889 C7 01 77 READ.F $0177 0AD88C 86 03 READ.L $03 0AD88E E3 13 93 READ.F $1393 0AD891 87 AF READ.F $AF 0AD893 22 MUL.F 0AD894 86 03 READ.L $03 0AD896 E3 12 8B READ.F $128B 0AD899 87 A7 READ.F $A7 0AD89B 22 MUL.F 0AD89C 21 SUB.F 0AD89D 22 MUL.F 0AD89E 41 PUSH.6 $01 0AD89F 30 03 BE BSR.68K $03BE ; => $0AD4E4 => $002BAE (NATIVE) 0AD8A2 22 MUL.F 0AD8A3 D7 01 7F WRITE.F $017F 0AD8A6 C7 01 77 READ.F $0177 0AD8A9 86 03 READ.L $03 0AD8AB E3 15 A3 READ.F $15A3 0AD8AE 87 AF READ.F $AF 0AD8B0 22 MUL.F 0AD8B1 86 03 READ.L $03 0AD8B3 E3 14 9B READ.F $149B 0AD8B6 87 A7 READ.F $A7 0AD8B8 22 MUL.F 0AD8B9 21 SUB.F 0AD8BA 22 MUL.F 0AD8BB 41 PUSH.6 $01 0AD8BC 30 03 DB BSR.68K $03DB ; => $0AD4E4 => $002BAE (NATIVE) 0AD8BF D7 01 87 WRITE.F $0187 0AD8C2 3B 40 09 21 FB 54 44 2D 28 PUSH.F $400921FB54442D28 ; float = 3.141593 0AD8CB C7 01 77 READ.F $0177 0AD8CE 86 03 READ.L $03 0AD8D0 E3 17 B3 READ.F $17B3 0AD8D3 87 AF READ.F $AF 0AD8D5 22 MUL.F 0AD8D6 86 03 READ.L $03 0AD8D8 E3 16 AB READ.F $16AB 0AD8DB 87 A7 READ.F $A7 0AD8DD 22 MUL.F 0AD8DE 21 SUB.F 0AD8DF 22 MUL.F 0AD8E0 41 PUSH.6 $01 0AD8E1 30 04 00 BSR.68K $0400 ; => $0AD4E4 => $002BAE (NATIVE) 0AD8E4 22 MUL.F 0AD8E5 D7 01 8F WRITE.F $018F 0AD8E8 87 FF READ.F $FF 0AD8EA C7 01 77 READ.F $0177 0AD8ED C7 01 7F READ.F $017F 0AD8F0 20 ADD.F 0AD8F1 22 MUL.F 0AD8F2 D7 01 C9 WRITE.F $01C9 0AD8F5 C7 01 6F READ.F $016F 0AD8F8 C7 01 F1 READ.F $01F1 0AD8FB 22 MUL.F 0AD8FC C7 01 4F READ.F $014F 0AD8FF 22 MUL.F 0AD900 87 5F READ.F $5F 0AD902 22 MUL.F 0AD903 C7 01 87 READ.F $0187 0AD906 20 ADD.F 0AD907 D7 01 9F WRITE.F $019F 0AD90A C7 01 8F READ.F $018F 0AD90D 86 03 READ.L $03 0AD90F E3 11 83 READ.F $1183 0AD912 3B 40 09 21 FB 54 44 2D 28 PUSH.F $400921FB54442D28 ; float = 3.141593 0AD91B 22 MUL.F 0AD91C 20 ADD.F 0AD91D D7 01 A7 WRITE.F $01A7 0AD920 C7 01 9F READ.F $019F 0AD923 87 F7 READ.F $F7 0AD925 22 MUL.F 0AD926 C7 01 C9 READ.F $01C9 0AD929 87 EF READ.F $EF 0AD92B 22 MUL.F 0AD92C 21 SUB.F 0AD92D D7 01 AF WRITE.F $01AF 0AD930 C7 01 9F READ.F $019F 0AD933 87 EF READ.F $EF 0AD935 22 MUL.F 0AD936 C7 01 C9 READ.F $01C9 0AD939 87 F7 READ.F $F7 0AD93B 22 MUL.F 0AD93C 20 ADD.F 0AD93D D7 01 B7 WRITE.F $01B7 0AD940 86 03 READ.L $03 0AD942 E3 0F 73 READ.F $0F73 0AD945 C3 29 DF READ.F $29DF 0AD948 21 SUB.F 0AD949 3B 40 09 21 FB 54 44 2D 28 PUSH.F $400921FB54442D28 ; float = 3.141593 0AD952 22 MUL.F 0AD953 D7 01 BF WRITE.F $01BF 0AD956 C7 01 AF READ.F $01AF 0AD959 C7 01 E9 READ.F $01E9 0AD95C C7 01 BF READ.F $01BF 0AD95F 22 MUL.F 0AD960 21 SUB.F 0AD961 D7 01 D9 WRITE.F $01D9 0AD964 C7 01 17 READ.F $0117 0AD967 C7 01 A7 READ.F $01A7 0AD96A 22 MUL.F 0AD96B D7 01 E1 WRITE.F $01E1 0AD96E C7 01 E1 READ.F $01E1 0AD971 C7 01 37 READ.F $0137 0AD974 22 MUL.F 0AD975 C7 01 BF READ.F $01BF 0AD978 C7 01 0F READ.F $010F 0AD97B 22 MUL.F 0AD97C 21 SUB.F 0AD97D C7 01 B7 READ.F $01B7 0AD980 C7 01 3F READ.F $013F 0AD983 22 MUL.F 0AD984 21 SUB.F 0AD985 D7 01 D1 WRITE.F $01D1 0AD988 C7 01 D9 READ.F $01D9 0AD98B C7 01 2F READ.F $012F 0AD98E 22 MUL.F 0AD98F C7 01 D1 READ.F $01D1 0AD992 C7 01 27 READ.F $0127 0AD995 22 MUL.F 0AD996 20 ADD.F 0AD997 D3 4E 33 WRITE.F $4E33 0AD99A C7 01 D9 READ.F $01D9 0AD99D C7 01 27 READ.F $0127 0AD9A0 22 MUL.F 0AD9A1 C7 01 D1 READ.F $01D1 0AD9A4 C7 01 2F READ.F $012F 0AD9A7 22 MUL.F 0AD9A8 21 SUB.F 0AD9A9 D3 4E 3B WRITE.F $4E3B 0AD9AC C7 01 B7 READ.F $01B7 0AD9AF C7 01 37 READ.F $0137 0AD9B2 22 MUL.F 0AD9B3 C7 01 E1 READ.F $01E1 0AD9B6 C7 01 3F READ.F $013F 0AD9B9 22 MUL.F 0AD9BA 20 ADD.F 0AD9BB D3 4E 43 WRITE.F $4E43 0AD9BE 03 2E 02 02 ADDSP.W $0202 0AD9C2 34 RETURN ; ---------------- End Function $0AD4F0 ---------------- ; ---------------- Begin 2144 Function $0ADA06 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0ADF66:$0AE056 ; addr bytes opcode operands comment 0ADA0D 31 08 SUBSP.B $08 0ADA0F 56 PUSH.6 $16 0ADA10 41 PUSH.6 $01 0ADA11 30 00 14 BSR.68K $0014 ; => $0ADA00 => $094D6E 0ADA14 C0 51 41 READ.B $5141 0ADA17 5E PUSH.6 $1E 0ADA18 2A EQ.L 0ADA19 18 51 BRZ $051 ; => $0ADA6C 0ADA1B 3B 41 4F 3C 18 00 00 00 00 PUSH.F $414F3C1800000000 ; float = 4094000.000000 0ADA24 3B 40 BF 40 00 00 00 00 00 PUSH.F $40BF400000000000 ; float = 8000.000000 0ADA2D C1 54 37 READ.W $5437 0ADA30 03 2A LONG2FLOAT 0ADA32 22 MUL.F 0ADA33 C1 33 DB READ.W $33DB 0ADA36 03 2A LONG2FLOAT 0ADA38 23 DIV.F 0ADA39 20 ADD.F 0ADA3A 9B 07 WRITE.F $07 0ADA3C 3B 41 A4 00 00 00 00 00 00 PUSH.F $41A4000000000000 ; float = 167772160.000000 0ADA45 C3 60 9D READ.F $609D 0ADA48 23 DIV.F 0ADA49 8B 07 READ.F $07 0ADA4B 3B 41 4D F8 80 00 00 00 00 PUSH.F $414DF88000000000 ; float = 3928320.000000 0ADA54 21 SUB.F 0ADA55 22 MUL.F 0ADA56 C0 51 41 00 READ.B $5141 0ADA5A C0 51 40 00 READ.B $5140 0ADA5E C0 51 3F 00 READ.B $513F 0ADA62 30 00 71 BSR.68K $0071 ; => $0AD9F4 => $0950BE 0ADA65 4C PUSH.6 $0C 0ADA66 43 PUSH.6 $03 0ADA67 30 00 70 BSR.68K $0070 ; => $0AD9FA => $094D8E 0ADA6A 10 10 BR $010 ; => $0ADA7C 0ADA6C 84 01 READ.B $01 0ADA6E 3B 41 4F 3C 4F 8C CC CC CD PUSH.F $414F3C4F8CCCCCCD ; float = 4094111.100000 0ADA77 3E PUSH.W $0000 0ADA78 40 PUSH.6 $00 0ADA79 30 00 8E BSR.68K $008E ; => $0AD9EE => $093CC0 0ADA7C 32 08 ADDSP.B $08 0ADA7E 34 RETURN ; ---------------- End Function $0ADA06 ---------------- ; ---------------- Begin 2144 Function $0ADA80 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0ADCB6:$0ADD94 ; called from $0ADD98:$0ADDEF ; addr bytes opcode operands comment 0ADA87 84 01 READ.B $01 0ADA89 84 00 READ.B $00 0ADA8B E3 4C 95 READ.F $4C95 0ADA8E 3E PUSH.W $0000 0ADA8F 40 PUSH.6 $00 0ADA90 30 00 A5 BSR.68K $00A5 ; => $0AD9EE => $093CC0 0ADA93 84 00 READ.B $00 0ADA95 E0 4C B3 READ.B $4CB3 0ADA98 5E PUSH.6 $1E 0ADA99 2A EQ.L 0ADA9A 84 00 READ.B $00 0ADA9C E0 4C BD READ.B $4CBD 0ADA9F 5E PUSH.6 $1E 0ADAA0 2A EQ.L 0ADAA1 2D OR.L 0ADAA2 84 00 READ.B $00 0ADAA4 E0 4C B3 READ.B $4CB3 0ADAA7 64 PUSH.6 $24 0ADAA8 2A EQ.L 0ADAA9 2D OR.L 0ADAAA 84 00 READ.B $00 0ADAAC E0 4C BD READ.B $4CBD 0ADAAF 64 PUSH.6 $24 0ADAB0 2A EQ.L 0ADAB1 2D OR.L 0ADAB2 18 35 BRZ $035 ; => $0ADAE9 0ADAB4 84 00 READ.B $00 0ADAB6 E3 4D 0D READ.F $4D0D 0ADAB9 3B 40 7F 40 00 00 00 00 00 PUSH.F $407F400000000000 ; float = 500.000000 0ADAC2 26 EQ.F 0ADAC3 18 14 BRZ $014 ; => $0ADAD9 0ADAC5 84 00 READ.B $00 0ADAC7 84 00 READ.B $00 0ADAC9 E3 4C 95 READ.F $4C95 0ADACC 3B 40 6F 40 00 00 00 00 00 PUSH.F $406F400000000000 ; float = 250.000000 0ADAD5 21 SUB.F 0ADAD6 F3 4C 95 WRITE.F $4C95 0ADAD9 84 00 READ.B $00 0ADADB 3B 40 49 00 00 00 00 00 00 PUSH.F $4049000000000000 ; float = 50.000000 0ADAE4 F3 4D 0D WRITE.F $4D0D 0ADAE7 10 0E BR $00E ; => $0ADAF7 0ADAE9 84 00 READ.B $00 0ADAEB 3B 40 7F 40 00 00 00 00 00 PUSH.F $407F400000000000 ; float = 500.000000 0ADAF4 F3 4D 0D WRITE.F $4D0D 0ADAF7 84 00 READ.B $00 0ADAF9 84 00 READ.B $00 0ADAFB E3 4C 95 READ.F $4C95 0ADAFE 84 00 READ.B $00 0ADB00 E3 4D 0D READ.F $4D0D 0ADB03 20 ADD.F 0ADB04 F3 4C 95 WRITE.F $4C95 0ADB07 84 00 READ.B $00 0ADB09 E3 4C 95 READ.F $4C95 0ADB0C 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0ADB15 C3 28 E3 READ.F $28E3 0ADB18 3E PUSH.W $0000 0ADB19 26 EQ.F 0ADB1A 18 0B BRZ $00B ; => $0ADB27 0ADB1C 3B 40 CD 4C 00 00 00 00 00 PUSH.F $40CD4C0000000000 ; float = 15000.000000 0ADB25 10 09 BR $009 ; => $0ADB30 0ADB27 3B 40 B7 70 00 00 00 00 00 PUSH.F $40B7700000000000 ; float = 6000.000000 0ADB30 20 ADD.F 0ADB31 24 GT.F 0ADB32 18 12 BRZ $012 ; => $0ADB46 0ADB34 84 00 READ.B $00 0ADB36 40 PUSH.6 $00 0ADB37 F0 4D 17 WRITE.B $4D17 0ADB3A 84 01 READ.B $01 0ADB3C 84 01 READ.B $01 0ADB3E E0 55 A1 READ.B $55A1 0ADB41 41 PUSH.6 $01 0ADB42 27 ADD.L 0ADB43 F0 55 A1 WRITE.B $55A1 0ADB46 34 RETURN ; ---------------- End Function $0ADA80 ---------------- ; ---------------- Begin 2144 Function $0ADB48 ---------------- ; A0 = $004008; (A0) = SP + $B ; called from $0ADCB6:$0ADD2E ; called from $0ADCB6:$0ADD5F ; called from $0ADD98:$0ADDD5 ; called from $0ADD98:$0ADDE7 ; addr bytes opcode operands comment 0ADB4F 31 08 SUBSP.B $08 0ADB51 84 00 READ.B $00 0ADB53 E0 4C A9 READ.B $4CA9 0ADB56 35 SWITCH 0ADB57 10 11 01 CASE $01 ; SWITCH $0ADB56 0ADB5A 84 00 READ.B $00 0ADB5C E0 4C 9F READ.B $4C9F 0ADB5F 4F PUSH.6 $0F 0ADB60 2C AND.L 0ADB61 03 2A LONG2FLOAT 0ADB63 8B 07 READ.F $07 0ADB65 22 MUL.F 0ADB66 9B 13 WRITE.F $13 0ADB68 10 30 BR $030 ; => $0ADB9A 0ADB6A 10 13 02 CASE $02 ; SWITCH $0ADB56 0ADB6D 84 00 READ.B $00 0ADB6F E0 4C 9F READ.B $4C9F 0ADB72 4F PUSH.6 $0F 0ADB73 2C AND.L 0ADB74 03 2A LONG2FLOAT 0ADB76 8B 07 READ.F $07 0ADB78 03 20 NEG.W 0ADB7A 22 MUL.F 0ADB7B 9B 13 WRITE.F $13 0ADB7D 10 1B BR $01B ; => $0ADB9A 0ADB7F 10 18 03 CASE $03 ; SWITCH $0ADB56 0ADB82 3E PUSH.W $0000 0ADB83 9B 13 WRITE.F $13 0ADB85 84 00 READ.B $00 0ADB87 84 00 READ.B $00 0ADB89 E0 4C 9F READ.B $4C9F 0ADB8C 41 PUSH.6 $01 0ADB8D 27 ADD.L 0ADB8E F0 4C 9F WRITE.B $4C9F 0ADB91 84 00 READ.B $00 0ADB93 40 PUSH.6 $00 0ADB94 F0 4C A9 WRITE.B $4CA9 0ADB97 10 01 BR $001 ; => $0ADB9A 0ADB99 00 DEFAULT ; SWITCH $0ADB56 0ADB9A 84 00 READ.B $00 0ADB9C 84 00 READ.B $00 0ADB9E E0 4C A9 READ.B $4CA9 0ADBA1 41 PUSH.6 $01 0ADBA2 27 ADD.L 0ADBA3 F0 4C A9 WRITE.B $4CA9 0ADBA6 84 01 READ.B $01 0ADBA8 84 00 READ.B $00 0ADBAA E3 4C 95 READ.F $4C95 0ADBAD 8B 13 READ.F $13 0ADBAF 20 ADD.F 0ADBB0 3E PUSH.W $0000 0ADBB1 40 PUSH.6 $00 0ADBB2 30 01 C7 BSR.68K $01C7 ; => $0AD9EE => $093CC0 0ADBB5 84 00 READ.B $00 0ADBB7 E0 4C 9F READ.B $4C9F 0ADBBA 8A 0B READ.L $0B 0ADBBC 03 25 LT.L 0ADBBE 18 30 BRZ $030 ; => $0ADBF0 0ADBC0 84 00 READ.B $00 0ADBC2 43 PUSH.6 $03 0ADBC3 F0 4D 17 WRITE.B $4D17 0ADBC6 84 00 READ.B $00 0ADBC8 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0ADBD1 C3 28 E3 READ.F $28E3 0ADBD4 3E PUSH.W $0000 0ADBD5 26 EQ.F 0ADBD6 18 0B BRZ $00B ; => $0ADBE3 0ADBD8 3B 40 CD 4C 00 00 00 00 00 PUSH.F $40CD4C0000000000 ; float = 15000.000000 0ADBE1 10 09 BR $009 ; => $0ADBEC 0ADBE3 3B 40 B7 70 00 00 00 00 00 PUSH.F $40B7700000000000 ; float = 6000.000000 0ADBEC 21 SUB.F 0ADBED F3 4C 95 WRITE.F $4C95 0ADBF0 32 14 ADDSP.B $14 0ADBF2 34 RETURN ; ---------------- End Function $0ADB48 ---------------- ; ---------------- Begin 2144 Function $0ADBF4 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0ADCB6:$0ADCFB ; addr bytes opcode operands comment 0ADBFB 31 18 SUBSP.B $18 0ADBFD 84 00 READ.B $00 0ADBFF E3 47 61 READ.F $4761 0ADC02 9B 0F WRITE.F $0F 0ADC04 84 00 READ.B $00 0ADC06 E3 46 53 READ.F $4653 0ADC09 9B 17 WRITE.F $17 0ADC0B 87 11 READ.F $11 0ADC0D 84 00 READ.B $00 0ADC0F E3 40 59 READ.F $4059 0ADC12 21 SUB.F 0ADC13 9B 07 WRITE.F $07 0ADC15 8B 07 READ.F $07 0ADC17 3B 40 72 C0 00 00 00 00 00 PUSH.F $4072C00000000000 ; float = 300.000000 0ADC20 03 21 LT.F 0ADC22 18 28 BRZ $028 ; => $0ADC4C 0ADC24 8B 17 READ.F $17 0ADC26 8B 0F READ.F $0F 0ADC28 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0ADC31 21 SUB.F 0ADC32 8B 07 READ.F $07 0ADC34 22 MUL.F 0ADC35 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 0ADC3E 22 MUL.F 0ADC3F 3B 3E 05 CF 55 03 0F 15 63 PUSH.F $3E05CF55030F1563 ; float = 0.000000 0ADC48 22 MUL.F 0ADC49 21 SUB.F 0ADC4A 9B 17 WRITE.F $17 0ADC4C 8B 17 READ.F $17 0ADC4E 3E PUSH.W $0000 0ADC4F 03 21 LT.F 0ADC51 18 10 BRZ $010 ; => $0ADC63 0ADC53 8B 17 READ.F $17 0ADC55 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0ADC5E 20 ADD.F 0ADC5F 9B 17 WRITE.F $17 0ADC61 17 E9 BR $-17 ; => $0ADC4C 0ADC63 8B 17 READ.F $17 0ADC65 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0ADC6E 24 GT.F 0ADC6F 18 10 BRZ $010 ; => $0ADC81 0ADC71 8B 17 READ.F $17 0ADC73 3B 41 12 4C 41 D4 FD F3 B6 PUSH.F $41124C41D4FDF3B6 ; float = 299792.458000 0ADC7C 21 SUB.F 0ADC7D 9B 17 WRITE.F $17 0ADC7F 17 E2 BR $-1E ; => $0ADC63 0ADC81 8B 17 READ.F $17 0ADC83 3B 41 2F 38 30 00 00 00 00 PUSH.F $412F383000000000 ; float = 1023000.000000 0ADC8C 22 MUL.F 0ADC8D 3B 41 B1 DE 78 4A 00 00 00 PUSH.F $41B1DE784A000000 ; float = 299792458.000000 0ADC96 23 DIV.F 0ADC97 9B 17 WRITE.F $17 0ADC99 84 01 READ.B $01 0ADC9B 8B 0F READ.F $0F 0ADC9D 8B 17 READ.F $17 0ADC9F 84 00 READ.B $00 0ADCA1 E3 41 49 READ.F $4149 0ADCA4 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0ADCAD 20 ADD.F 0ADCAE 03 29 FLOAT2LONG 0ADCB0 30 02 C5 BSR.68K $02C5 ; => $0AD9EE => $093CC0 0ADCB3 32 18 ADDSP.B $18 0ADCB5 34 RETURN ; ---------------- End Function $0ADBF4 ---------------- ; ---------------- Begin 2144 Function $0ADCB6 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0ADD98:$0ADDC3 ; addr bytes opcode operands comment 0ADCBD 84 00 READ.B $00 0ADCBF 41 PUSH.6 $01 0ADCC0 F0 4C 9F WRITE.B $4C9F 0ADCC3 84 00 READ.B $00 0ADCC5 41 PUSH.6 $01 0ADCC6 F0 4C A9 WRITE.B $4CA9 0ADCC9 87 09 READ.F $09 0ADCCB 84 01 READ.B $01 0ADCCD E3 22 B1 READ.F $22B1 0ADCD0 21 SUB.F 0ADCD1 3B 40 72 C0 00 00 00 00 00 PUSH.F $4072C00000000000 ; float = 300.000000 0ADCDA 03 21 LT.F 0ADCDC C0 56 6A READ.B $566A 0ADCDF 2C AND.L 0ADCE0 84 00 READ.B $00 0ADCE2 E3 47 61 READ.F $4761 0ADCE5 3E PUSH.W $0000 0ADCE6 03 23 NEQ.F 0ADCE8 2C AND.L 0ADCE9 18 15 BRZ $015 ; => $0ADD00 0ADCEB 84 00 READ.B $00 0ADCED 84 00 READ.B $00 0ADCEF E3 47 61 READ.F $4761 0ADCF2 F3 4C 95 WRITE.F $4C95 0ADCF5 84 00 READ.B $00 0ADCF7 41 PUSH.6 $01 0ADCF8 F0 4D 17 WRITE.B $4D17 0ADCFB 30 01 0A BSR.68K $010A ; => $0ADBF4 0ADCFE 10 97 BR $097 ; => $0ADD97 0ADD00 84 01 READ.B $01 0ADD02 30 03 29 BSR.68K $0329 ; => $0AD9DC => $095184 0ADD05 18 2C BRZ $02C ; => $0ADD33 0ADD07 84 01 READ.B $01 0ADD09 C1 29 FD READ.W $29FD 0ADD0C 30 03 2D BSR.68K $032D ; => $0AD9E2 => $094DD8 0ADD0F 04 FF PUSH.10 $0FF 0ADD11 84 00 READ.B $00 0ADD13 30 03 46 BSR.68K $0346 ; => $0AD9D0 => $0AD4F0 0ADD16 84 00 READ.B $00 0ADD18 30 03 33 BSR.68K $0333 ; => $0AD9E8 => $0951BC 0ADD1B F3 4C 95 WRITE.F $4C95 0ADD1E 84 00 READ.B $00 0ADD20 42 PUSH.6 $02 0ADD21 F0 4D 17 WRITE.B $4D17 0ADD24 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 0ADD2D 44 PUSH.6 $04 0ADD2E 30 01 E9 BSR.68K $01E9 ; => $0ADB48 0ADD31 10 64 BR $064 ; => $0ADD97 0ADD33 84 01 READ.B $01 0ADD35 30 03 62 BSR.68K $0362 ; => $0AD9D6 => $09519A 0ADD38 18 2A BRZ $02A ; => $0ADD64 0ADD3A 84 01 READ.B $01 0ADD3C C1 29 FD READ.W $29FD 0ADD3F 30 03 60 BSR.68K $0360 ; => $0AD9E2 => $094DD8 0ADD42 04 FF PUSH.10 $0FF 0ADD44 30 03 7D BSR.68K $037D ; => $0AD9CA => $0AD08A 0ADD47 84 00 READ.B $00 0ADD49 30 03 64 BSR.68K $0364 ; => $0AD9E8 => $0951BC 0ADD4C F3 4C 95 WRITE.F $4C95 0ADD4F 84 00 READ.B $00 0ADD51 42 PUSH.6 $02 0ADD52 F0 4D 17 WRITE.B $4D17 0ADD55 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 0ADD5E 44 PUSH.6 $04 0ADD5F 30 02 1A BSR.68K $021A ; => $0ADB48 0ADD62 10 33 BR $033 ; => $0ADD97 0ADD64 84 00 READ.B $00 0ADD66 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0ADD6F C3 28 E3 READ.F $28E3 0ADD72 3E PUSH.W $0000 0ADD73 26 EQ.F 0ADD74 18 0B BRZ $00B ; => $0ADD81 0ADD76 3B 40 CD 4C 00 00 00 00 00 PUSH.F $40CD4C0000000000 ; float = 15000.000000 0ADD7F 10 09 BR $009 ; => $0ADD8A 0ADD81 3B 40 B7 70 00 00 00 00 00 PUSH.F $40B7700000000000 ; float = 6000.000000 0ADD8A 21 SUB.F 0ADD8B F3 4C 95 WRITE.F $4C95 0ADD8E 84 00 READ.B $00 0ADD90 43 PUSH.6 $03 0ADD91 F0 4D 17 WRITE.B $4D17 0ADD94 30 03 17 BSR.68K $0317 ; => $0ADA80 0ADD97 34 RETURN ; ---------------- End Function $0ADCB6 ---------------- ; ---------------- Begin 2144 Function $0ADD98 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0ADF66:$0AE0D6 ; addr bytes opcode operands comment 0ADD9F 87 09 READ.F $09 0ADDA1 84 00 READ.B $00 0ADDA3 E3 4D 67 READ.F $4D67 0ADDA6 21 SUB.F 0ADDA7 3B 3F F1 99 99 99 99 99 9A PUSH.F $3FF199999999999A ; float = 1.100000 0ADDB0 24 GT.F 0ADDB1 18 42 BRZ $042 ; => $0ADDF5 0ADDB3 84 00 READ.B $00 0ADDB5 87 09 READ.F $09 0ADDB7 F3 4D 67 WRITE.F $4D67 0ADDBA 84 00 READ.B $00 0ADDBC E0 4D 17 READ.B $4D17 0ADDBF 35 SWITCH 0ADDC0 10 06 00 CASE $00 ; SWITCH $0ADDBF 0ADDC3 30 01 10 BSR.68K $0110 ; => $0ADCB6 0ADDC6 10 2D BR $02D ; => $0ADDF5 0ADDC8 10 10 01 CASE $01 ; SWITCH $0ADDBF 0ADDCB 3B 40 6B 00 00 00 00 00 00 PUSH.F $406B000000000000 ; float = 216.000000 0ADDD4 5F PUSH.6 $1F 0ADDD5 30 02 90 BSR.68K $0290 ; => $0ADB48 0ADDD8 10 1B BR $01B ; => $0ADDF5 0ADDDA 10 10 02 CASE $02 ; SWITCH $0ADDBF 0ADDDD 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 0ADDE6 44 PUSH.6 $04 0ADDE7 30 02 A2 BSR.68K $02A2 ; => $0ADB48 0ADDEA 10 09 BR $009 ; => $0ADDF5 0ADDEC 10 06 03 CASE $03 ; SWITCH $0ADDBF 0ADDEF 30 03 72 BSR.68K $0372 ; => $0ADA80 0ADDF2 10 01 BR $001 ; => $0ADDF5 0ADDF4 00 DEFAULT ; SWITCH $0ADDBF 0ADDF5 34 RETURN ; ---------------- End Function $0ADD98 ---------------- ; ---------------- Begin 2144 Function $0ADDF6 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0ADF66:$0AE08E ; addr bytes opcode operands comment 0ADDFD 31 1A SUBSP.B $1A 0ADDFF 87 09 READ.F $09 0ADE01 84 00 READ.B $00 0ADE03 E3 4D 67 READ.F $4D67 0ADE06 21 SUB.F 0ADE07 C0 35 92 READ.B $3592 0ADE0A 18 0B BRZ $00B ; => $0ADE17 0ADE0C 3B 40 3E 00 00 00 00 00 00 PUSH.F $403E000000000000 ; float = 30.000000 0ADE15 10 09 BR $009 ; => $0ADE20 0ADE17 3B 40 08 00 00 00 00 00 00 PUSH.F $4008000000000000 ; float = 3.000000 0ADE20 24 GT.F 0ADE21 84 00 READ.B $00 0ADE23 E0 60 33 READ.B $6033 0ADE26 2D OR.L 0ADE27 19 3A BRZ $13A ; => $0ADF63 0ADE29 84 00 READ.B $00 0ADE2B C0 29 A0 READ.B $29A0 0ADE2E 28 SUB.L 0ADE2F 98 18 WRITE.B $18 0ADE31 88 18 READ.B $18 0ADE33 E0 44 23 READ.B $4423 0ADE36 18 FF BRZ $0FF ; => $0ADF37 0ADE38 84 00 READ.B $00 0ADE3A E0 4D 17 READ.B $4D17 0ADE3D 98 19 WRITE.B $19 0ADE3F 88 19 READ.B $19 0ADE41 40 PUSH.6 $00 0ADE42 2A EQ.L 0ADE43 88 18 READ.B $18 0ADE45 E3 6B 79 READ.F $6B79 0ADE48 3E PUSH.W $0000 0ADE49 03 23 NEQ.F 0ADE4B 2C AND.L 0ADE4C 18 09 BRZ $009 ; => $0ADE57 0ADE4E 88 18 READ.B $18 0ADE50 E3 6B 79 READ.F $6B79 0ADE53 9B 17 WRITE.F $17 0ADE55 10 19 BR $019 ; => $0ADE70 0ADE57 88 19 READ.B $19 0ADE59 40 PUSH.6 $00 0ADE5A 03 27 LTE.L 0ADE5C 88 19 READ.B $19 0ADE5E 42 PUSH.6 $02 0ADE5F 03 28 GTE.L 0ADE61 2C AND.L 0ADE62 18 09 BRZ $009 ; => $0ADE6D 0ADE64 88 18 READ.B $18 0ADE66 E3 6B C9 READ.F $6BC9 0ADE69 9B 17 WRITE.F $17 0ADE6B 10 03 BR $003 ; => $0ADE70 0ADE6D 3E PUSH.W $0000 0ADE6E 9B 17 WRITE.F $17 0ADE70 84 00 READ.B $00 0ADE72 87 09 READ.F $09 0ADE74 F3 4D 67 WRITE.F $4D67 0ADE77 88 19 READ.B $19 0ADE79 41 PUSH.6 $01 0ADE7A 27 ADD.L 0ADE7B 98 19 WRITE.B $19 0ADE7D 88 19 READ.B $19 0ADE7F 44 PUSH.6 $04 0ADE80 03 25 LT.L 0ADE82 18 03 BRZ $003 ; => $0ADE87 0ADE84 41 PUSH.6 $01 0ADE85 98 19 WRITE.B $19 0ADE87 84 00 READ.B $00 0ADE89 88 19 READ.B $19 0ADE8B F0 4D 17 WRITE.B $4D17 0ADE8E C0 35 92 READ.B $3592 0ADE91 18 43 BRZ $043 ; => $0ADED6 0ADE93 8B 17 READ.F $17 0ADE95 3B 3F F0 21 B0 A6 9D DB 6A PUSH.F $3FF021B0A69DDB6A ; float = 1.008225 0ADE9E 22 MUL.F 0ADE9F 3B 3E 9A 98 EF 60 6A 84 52 PUSH.F $3E9A98EF606A8452 ; float = 0.000000 0ADEA8 88 18 READ.B $18 0ADEAA E3 47 61 READ.F $4761 0ADEAD 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0ADEB6 21 SUB.F 0ADEB7 22 MUL.F 0ADEB8 20 ADD.F 0ADEB9 9B 0F WRITE.F $0F 0ADEBB C0 35 C4 READ.B $35C4 0ADEBE 18 06 BRZ $006 ; => $0ADEC6 0ADEC0 8B 0F READ.F $0F 0ADEC2 03 20 NEG.W 0ADEC4 10 02 BR $002 ; => $0ADEC8 0ADEC6 8B 0F READ.F $0F 0ADEC8 3B 40 C1 15 56 66 AA 03 1E PUSH.F $40C1155666AA031E ; float = 8746.675008 0ADED1 22 MUL.F 0ADED2 9B 0F WRITE.F $0F 0ADED4 10 46 BR $046 ; => $0ADF1C 0ADED6 88 18 READ.B $18 0ADED8 E3 47 61 READ.F $4761 0ADEDB 88 18 READ.B $18 0ADEDD E3 59 E7 READ.F $59E7 0ADEE0 87 11 READ.F $11 0ADEE2 88 18 READ.B $18 0ADEE4 E3 40 59 READ.F $4059 0ADEE7 21 SUB.F 0ADEE8 22 MUL.F 0ADEE9 20 ADD.F 0ADEEA 9B 07 WRITE.F $07 0ADEEC 8B 07 READ.F $07 0ADEEE 3B 3F F8 EF 60 6A 63 A2 17 PUSH.F $3FF8EF606A63A217 ; float = 1.558442 0ADEF7 22 MUL.F 0ADEF8 3B 41 41 6F 2B 6D B7 17 59 PUSH.F $41416F2B6DB71759 ; float = 2285142.857150 0ADF01 21 SUB.F 0ADF02 9B 0F WRITE.F $0F 0ADF04 C0 4E 70 READ.B $4E70 0ADF07 2E NOT.L 0ADF08 18 12 BRZ $012 ; => $0ADF1C 0ADF0A 8B 0F READ.F $0F 0ADF0C C3 56 25 READ.F $5625 0ADF0F 3B 41 41 6F 2B 6D B7 17 59 PUSH.F $41416F2B6DB71759 ; float = 2285142.857150 0ADF18 22 MUL.F 0ADF19 21 SUB.F 0ADF1A 9B 0F WRITE.F $0F 0ADF1C 84 01 READ.B $01 0ADF1E 8B 0F READ.F $0F 0ADF20 3E PUSH.W $0000 0ADF21 88 18 READ.B $18 0ADF23 E3 41 49 READ.F $4149 0ADF26 3B 3F E0 00 00 00 00 00 00 PUSH.F $3FE0000000000000 ; float = 0.500000 0ADF2F 20 ADD.F 0ADF30 03 29 FLOAT2LONG 0ADF32 30 05 47 BSR.68K $0547 ; => $0AD9EE => $093CC0 0ADF35 10 2C BR $02C ; => $0ADF63 0ADF37 84 00 READ.B $00 0ADF39 E0 46 5D READ.B $465D 0ADF3C 84 01 READ.B $01 0ADF3E 2B NEQ.L 0ADF3F 18 22 BRZ $022 ; => $0ADF63 0ADF41 84 01 READ.B $01 0ADF43 C0 35 92 READ.B $3592 0ADF46 18 03 BRZ $003 ; => $0ADF4B 0ADF48 3E PUSH.W $0000 0ADF49 10 13 BR $013 ; => $0ADF5E 0ADF4B 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0ADF54 3B 40 C3 88 00 00 00 00 00 PUSH.F $40C3880000000000 ; float = 10000.000000 0ADF5D 20 ADD.F 0ADF5E 3E PUSH.W $0000 0ADF5F 40 PUSH.6 $00 0ADF60 30 05 75 BSR.68K $0575 ; => $0AD9EE => $093CC0 0ADF63 32 1A ADDSP.B $1A 0ADF65 34 RETURN ; ---------------- End Function $0ADDF6 ---------------- ; ---------------- Begin 2144 Function $0ADF66 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7DC ; called from $0AF84E:$0AF956 ; addr bytes opcode operands comment 0ADF6D 31 12 SUBSP.B $12 0ADF6F 30 05 90 BSR.68K $0590 ; => $0AD9E2 => $094DD8 0ADF72 97 11 WRITE.F $11 0ADF74 87 11 READ.F $11 0ADF76 C1 29 FD READ.W $29FD 0ADF79 3D 00 09 3A 80 PUSH.L $00093A80 0ADF7E 29 MUL.L 0ADF7F 03 2A LONG2FLOAT 0ADF81 20 ADD.F 0ADF82 97 09 WRITE.F $09 0ADF84 40 PUSH.6 $00 0ADF85 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0ADF88 C0 29 9A READ.B $299A 0ADF8B 38 01 50 BLS.B $0150 ; => $0AE0DE 0ADF8E 84 00 READ.B $00 0ADF90 E0 60 29 READ.B $6029 0ADF93 84 00 READ.B $00 0ADF95 E0 46 5D READ.B $465D 0ADF98 84 00 READ.B $00 0ADF9A E0 40 09 READ.B $4009 0ADF9D 2D OR.L 0ADF9E 2C AND.L 0ADF9F 19 38 BRZ $138 ; => $0AE0D9 0ADFA1 84 00 READ.B $00 0ADFA3 D0 51 00 WRITE.B $5100 0ADFA6 84 00 READ.B $00 0ADFA8 E0 40 09 READ.B $4009 0ADFAB 94 01 WRITE.B $01 0ADFAD 84 00 READ.B $00 0ADFAF E0 46 5D READ.B $465D 0ADFB2 84 01 READ.B $01 0ADFB4 2A EQ.L 0ADFB5 D0 56 6A WRITE.B $566A 0ADFB8 C0 56 6A READ.B $566A 0ADFBB 2E NOT.L 0ADFBC 18 88 BRZ $088 ; => $0AE046 0ADFBE 84 00 READ.B $00 0ADFC0 E0 46 5D READ.B $465D 0ADFC3 04 63 PUSH.10 $063 0ADFC5 2A EQ.L 0ADFC6 18 07 BRZ $007 ; => $0ADFCF 0ADFC8 04 FF PUSH.10 $0FF 0ADFCA D0 56 6A WRITE.B $566A 0ADFCD 10 0C BR $00C ; => $0ADFDB 0ADFCF 84 00 READ.B $00 0ADFD1 3E PUSH.W $0000 0ADFD2 F3 47 61 WRITE.F $4761 0ADFD5 84 00 READ.B $00 0ADFD7 3E PUSH.W $0000 0ADFD8 F3 40 59 WRITE.F $4059 0ADFDB 84 00 READ.B $00 0ADFDD 3B 54 B2 49 AD 25 94 C3 7D PUSH.F $54B249AD2594C37D ; float = 10000000000000000159028911097599180468360808563945281389781327557747838772170381060813469985856815104.000000 0ADFE6 03 20 NEG.W 0ADFE8 F3 44 73 WRITE.F $4473 0ADFEB 84 00 READ.B $00 0ADFED 3E PUSH.W $0000 0ADFEE F3 40 F9 WRITE.F $40F9 0ADFF1 84 00 READ.B $00 0ADFF3 3E PUSH.W $0000 0ADFF4 F3 59 E7 WRITE.F $59E7 0ADFF7 84 00 READ.B $00 0ADFF9 3E PUSH.W $0000 0ADFFA F3 44 C3 WRITE.F $44C3 0ADFFD 84 00 READ.B $00 0ADFFF 3E PUSH.W $0000 0AE000 F3 6B 79 WRITE.F $6B79 0AE003 84 00 READ.B $00 0AE005 3E PUSH.W $0000 0AE006 F3 41 99 WRITE.F $4199 0AE009 84 00 READ.B $00 0AE00B 3E PUSH.W $0000 0AE00C F3 41 49 WRITE.F $4149 0AE00F 84 00 READ.B $00 0AE011 3E PUSH.W $0000 0AE012 F3 43 29 WRITE.F $4329 0AE015 84 00 READ.B $00 0AE017 3E PUSH.W $0000 0AE018 F3 46 03 WRITE.F $4603 0AE01B 84 00 READ.B $00 0AE01D 3E PUSH.W $0000 0AE01E F3 48 17 WRITE.F $4817 0AE021 84 00 READ.B $00 0AE023 3E PUSH.W $0000 0AE024 F3 47 07 WRITE.F $4707 0AE027 84 00 READ.B $00 0AE029 40 PUSH.6 $00 0AE02A F0 4D 17 WRITE.B $4D17 0AE02D 84 00 READ.B $00 0AE02F 3E PUSH.W $0000 0AE030 F3 4D 67 WRITE.F $4D67 0AE033 84 00 READ.B $00 0AE035 40 PUSH.6 $00 0AE036 F0 47 75 WRITE.B $4775 0AE039 84 00 READ.B $00 0AE03B 3E PUSH.W $0000 0AE03C F3 4C 45 WRITE.F $4C45 0AE03F 84 00 READ.B $00 0AE041 04 FF PUSH.10 $0FF 0AE043 F0 57 4B WRITE.B $574B 0AE046 84 00 READ.B $00 0AE048 C0 29 9B READ.B $299B 0AE04B 03 25 LT.L 0AE04D 18 6D BRZ $06D ; => $0AE0BC 0AE04F C0 54 2C READ.B $542C 0AE052 41 PUSH.6 $01 0AE053 2A EQ.L 0AE054 18 05 BRZ $005 ; => $0AE05B 0AE056 30 06 53 BSR.68K $0653 ; => $0ADA06 0AE059 10 5F BR $05F ; => $0AE0BA 0AE05B 30 06 9A BSR.68K $069A ; => $0AD9C4 => $094F08 0AE05E C0 56 6A READ.B $566A 0AE061 2C AND.L 0AE062 84 00 READ.B $00 0AE064 E0 60 33 READ.B $6033 0AE067 2E NOT.L 0AE068 2C AND.L 0AE069 18 08 BRZ $008 ; => $0AE073 0AE06B 84 00 READ.B $00 0AE06D 40 PUSH.6 $00 0AE06E F0 4D 17 WRITE.B $4D17 0AE071 10 47 BR $047 ; => $0AE0BA 0AE073 C0 6B 28 READ.B $6B28 0AE076 40 PUSH.6 $00 0AE077 2A EQ.L 0AE078 18 40 BRZ $040 ; => $0AE0BA 0AE07A 84 00 READ.B $00 0AE07C C0 29 A0 READ.B $29A0 0AE07F 28 SUB.L 0AE080 40 PUSH.6 $00 0AE081 F0 6C 29 WRITE.B $6C29 0AE084 84 00 READ.B $00 0AE086 C0 29 A0 READ.B $29A0 0AE089 28 SUB.L 0AE08A 3E PUSH.W $0000 0AE08B F3 6C 1F WRITE.F $6C1F 0AE08E 30 02 9B BSR.68K $029B ; => $0ADDF6 0AE091 84 00 READ.B $00 0AE093 40 PUSH.6 $00 0AE094 F0 60 33 WRITE.B $6033 0AE097 84 00 READ.B $00 0AE099 E0 44 23 READ.B $4423 0AE09C 87 09 READ.F $09 0AE09E C3 59 89 READ.F $5989 0AE0A1 21 SUB.F 0AE0A2 C3 28 F5 READ.F $28F5 0AE0A5 21 SUB.F 0AE0A6 3B 40 08 00 00 00 00 00 00 PUSH.F $4008000000000000 ; float = 3.000000 0AE0AF 03 21 LT.F 0AE0B1 2C AND.L 0AE0B2 18 06 BRZ $006 ; => $0AE0BA 0AE0B4 84 00 READ.B $00 0AE0B6 40 PUSH.6 $00 0AE0B7 F0 44 23 WRITE.B $4423 0AE0BA 10 1D BR $01D ; => $0AE0D9 0AE0BC 30 06 FB BSR.68K $06FB ; => $0AD9C4 => $094F08 0AE0BF C0 56 6A READ.B $566A 0AE0C2 2C AND.L 0AE0C3 84 00 READ.B $00 0AE0C5 E0 46 5D READ.B $465D 0AE0C8 04 63 PUSH.10 $063 0AE0CA 2B NEQ.L 0AE0CB 2C AND.L 0AE0CC 18 08 BRZ $008 ; => $0AE0D6 0AE0CE 84 00 READ.B $00 0AE0D0 40 PUSH.6 $00 0AE0D1 F0 4D 17 WRITE.B $4D17 0AE0D4 10 03 BR $003 ; => $0AE0D9 0AE0D6 30 03 41 BSR.68K $0341 ; => $0ADD98 0AE0D9 37 10 00 01 56 _23d2 $0000, $0156 0AE0DE 32 12 ADDSP.B $12 0AE0E0 34 RETURN ; ---------------- End Function $0ADF66 ---------------- ; ---------------- Begin 2144 Function $0AE118 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AE766:$0AE76F ; addr bytes opcode operands comment 0AE11F 31 02 SUBSP.B $02 0AE121 40 PUSH.6 $00 0AE122 D0 55 65 WRITE.B $5565 0AE125 41 PUSH.6 $01 0AE126 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AE129 60 PUSH.6 $20 0AE12A 38 00 48 BLS.B $0048 ; => $0AE175 0AE12D 84 00 READ.B $00 0AE12F E0 22 D3 READ.B $22D3 0AE132 2E NOT.L 0AE133 84 00 READ.B $00 0AE135 E0 02 29 READ.B $0229 0AE138 40 PUSH.6 $00 0AE139 2A EQ.L 0AE13A 84 00 READ.B $00 0AE13C E0 22 F5 READ.B $22F5 0AE13F 2D OR.L 0AE140 2C AND.L 0AE141 C0 56 6E READ.B $566E 0AE144 84 00 READ.B $00 0AE146 E0 35 B7 READ.B $35B7 0AE149 2C AND.L 0AE14A 2D OR.L 0AE14B 84 00 READ.B $00 0AE14D E3 23 FF READ.F $23FF 0AE150 C3 28 DB READ.F $28DB 0AE153 25 GTE.F 0AE154 2C AND.L 0AE155 18 19 BRZ $019 ; => $0AE170 0AE157 C0 55 65 READ.B $5565 0AE15A 84 00 READ.B $00 0AE15C F0 55 6F WRITE.B $556F 0AE15F C0 55 65 READ.B $5565 0AE162 41 PUSH.6 $01 0AE163 27 ADD.L 0AE164 D0 55 65 WRITE.B $5565 0AE167 C0 55 65 READ.B $5565 0AE16A 4A PUSH.6 $0A 0AE16B 2A EQ.L 0AE16C 18 02 BRZ $002 ; => $0AE170 0AE16E 10 05 BR $005 ; => $0AE175 0AE170 37 10 00 00 4C _23d2 $0000, $004C 0AE175 32 02 ADDSP.B $02 0AE177 34 RETURN ; ---------------- End Function $0AE118 ---------------- ; ---------------- Begin 2144 Function $0AE178 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE766:$0AE7FB ; addr bytes opcode operands comment 0AE17F 31 0C SUBSP.B $0C 0AE181 08 40 09 00 0A ?_$08 $4009, $000A 0AE186 0E 00 0B 00 0A ?_$0E $000B, $000A 0AE18B 40 PUSH.6 $00 0AE18C 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0AE18F C0 29 9B READ.B $299B 0AE192 38 00 34 BLS.B $0034 ; => $0AE1C9 0AE195 88 01 READ.B $01 0AE197 E0 60 29 READ.B $6029 0AE19A 18 28 BRZ $028 ; => $0AE1C4 0AE19C 40 PUSH.6 $00 0AE19D 36 20 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AE1A0 C0 29 9B READ.B $299B 0AE1A3 38 00 18 BLS.B $0018 ; => $0AE1BE 0AE1A6 88 00 READ.B $00 0AE1A8 A4 57 READ.B $57 0AE1AA 88 01 READ.B $01 0AE1AC A8 0B READ.B $0B 0AE1AE 2A EQ.L 0AE1AF 18 08 BRZ $008 ; => $0AE1B9 0AE1B1 88 00 READ.B $00 0AE1B3 04 63 PUSH.10 $063 0AE1B5 B4 57 WRITE.B $57 0AE1B7 10 0B BR $00B ; => $0AE1C4 0AE1B9 37 20 00 00 1E _23d2 $0000, $001E 0AE1BE 88 01 READ.B $01 0AE1C0 04 63 PUSH.10 $063 0AE1C2 B8 0B WRITE.B $0B 0AE1C4 37 20 01 00 3A _23d2 $0001, $003A 0AE1C9 40 PUSH.6 $00 0AE1CA 98 00 WRITE.B $00 0AE1CC 40 PUSH.6 $00 0AE1CD 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0AE1D0 C0 29 9B READ.B $299B 0AE1D3 38 00 5D BLS.B $005D ; => $0AE233 0AE1D6 88 01 READ.B $01 0AE1D8 E0 60 29 READ.B $6029 0AE1DB 18 51 BRZ $051 ; => $0AE22E 0AE1DD 88 01 READ.B $01 0AE1DF A8 0B READ.B $0B 0AE1E1 04 63 PUSH.10 $063 0AE1E3 2A EQ.L 0AE1E4 18 27 BRZ $027 ; => $0AE20D 0AE1E6 88 00 READ.B $00 0AE1E8 A4 57 READ.B $57 0AE1EA 04 63 PUSH.10 $063 0AE1EC 2A EQ.L 0AE1ED 88 00 READ.B $00 0AE1EF C0 29 9B READ.B $299B 0AE1F2 03 26 GT.L 0AE1F4 2C AND.L 0AE1F5 18 08 BRZ $008 ; => $0AE1FF 0AE1F7 88 00 READ.B $00 0AE1F9 41 PUSH.6 $01 0AE1FA 27 ADD.L 0AE1FB 98 00 WRITE.B $00 0AE1FD 17 E7 BR $-19 ; => $0AE1E6 0AE1FF 88 01 READ.B $01 0AE201 88 00 READ.B $00 0AE203 A4 57 READ.B $57 0AE205 B8 0B WRITE.B $0B 0AE207 88 00 READ.B $00 0AE209 04 63 PUSH.10 $063 0AE20B B4 57 WRITE.B $57 0AE20D 88 01 READ.B $01 0AE20F E0 40 09 READ.B $4009 0AE212 40 PUSH.6 $00 0AE213 F0 55 A1 WRITE.B $55A1 0AE216 88 01 READ.B $01 0AE218 A8 0B READ.B $0B 0AE21A 04 63 PUSH.10 $063 0AE21C 2A EQ.L 0AE21D 18 07 BRZ $007 ; => $0AE226 0AE21F 88 01 READ.B $01 0AE221 40 PUSH.6 $00 0AE222 B8 0B WRITE.B $0B 0AE224 10 08 BR $008 ; => $0AE22E 0AE226 88 01 READ.B $01 0AE228 A8 0B READ.B $0B 0AE22A 41 PUSH.6 $01 0AE22B F0 55 A1 WRITE.B $55A1 0AE22E 37 20 01 00 63 _23d2 $0001, $0063 0AE233 0A 00 0B 00 0A ?_$0A $000B, $000A 0AE238 0C 40 09 00 0A ?_$0C $4009, $000A 0AE23D C0 29 9C READ.B $299C 0AE240 18 1D BRZ $01D ; => $0AE25F 0AE242 40 PUSH.6 $00 0AE243 36 20 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0AE246 C0 29 9B READ.B $299B 0AE249 38 00 13 BLS.B $0013 ; => $0AE25F 0AE24C 88 01 READ.B $01 0AE24E C0 29 A0 READ.B $29A0 0AE251 27 ADD.L 0AE252 88 01 READ.B $01 0AE254 E0 40 09 READ.B $4009 0AE257 F0 40 09 WRITE.B $4009 0AE25A 37 20 01 00 19 _23d2 $0001, $0019 0AE25F 32 0C ADDSP.B $0C 0AE261 34 RETURN ; ---------------- End Function $0AE178 ---------------- ; ---------------- Begin 2144 Function $0AE262 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE684:$0AE68B ; called from $0AE692:$0AE699 ; called from $0AE6BE:$0AE6C5 ; addr bytes opcode operands comment 0AE269 31 80 SUBSP.B $80 0AE26B 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AE274 3E PUSH.W $0000 0AE275 23 DIV.F 0AE276 97 25 WRITE.F $25 0AE278 40 PUSH.6 $00 0AE279 36 10 02 _2362 $0002 ; A0 = $004000; (A0) = A6 + $0 0AE27C C0 55 65 READ.B $5565 0AE27F 44 PUSH.6 $04 0AE280 28 SUB.L 0AE281 38 00 E4 BLS.B $00E4 ; => $0AE368 0AE284 84 02 READ.B $02 0AE286 41 PUSH.6 $01 0AE287 27 ADD.L 0AE288 36 10 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 0AE28B C0 55 65 READ.B $5565 0AE28E 43 PUSH.6 $03 0AE28F 28 SUB.L 0AE290 38 00 D0 BLS.B $00D0 ; => $0AE363 0AE293 84 03 READ.B $03 0AE295 41 PUSH.6 $01 0AE296 27 ADD.L 0AE297 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0AE29A C0 55 65 READ.B $5565 0AE29D 42 PUSH.6 $02 0AE29E 28 SUB.L 0AE29F 38 00 BC BLS.B $00BC ; => $0AE35E 0AE2A2 84 04 READ.B $04 0AE2A4 41 PUSH.6 $01 0AE2A5 27 ADD.L 0AE2A6 36 10 05 _2362 $0005 ; A0 = $004000; (A0) = A6 + $0 0AE2A9 C0 55 65 READ.B $5565 0AE2AC 41 PUSH.6 $01 0AE2AD 28 SUB.L 0AE2AE 38 00 A8 BLS.B $00A8 ; => $0AE359 0AE2B1 84 02 READ.B $02 0AE2B3 E0 55 6F READ.B $556F 0AE2B6 94 4D WRITE.B $4D 0AE2B8 84 03 READ.B $03 0AE2BA E0 55 6F READ.B $556F 0AE2BD 94 4C WRITE.B $4C 0AE2BF 84 04 READ.B $04 0AE2C1 E0 55 6F READ.B $556F 0AE2C4 94 4B WRITE.B $4B 0AE2C6 84 05 READ.B $05 0AE2C8 E0 55 6F READ.B $556F 0AE2CB 94 4A WRITE.B $4A 0AE2CD 40 PUSH.6 $00 0AE2CE 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AE2D1 43 PUSH.6 $03 0AE2D2 38 00 38 BLS.B $0038 ; => $0AE30D 0AE2D5 40 PUSH.6 $00 0AE2D6 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0AE2D9 42 PUSH.6 $02 0AE2DA 38 00 1A BLS.B $001A ; => $0AE2F7 0AE2DD 84 00 READ.B $00 0AE2DF 44 PUSH.6 $04 0AE2E0 29 MUL.L 0AE2E1 84 01 READ.B $01 0AE2E3 27 ADD.L 0AE2E4 84 00 READ.B $00 0AE2E6 A4 4D READ.B $4D 0AE2E8 43 PUSH.6 $03 0AE2E9 29 MUL.L 0AE2EA 84 01 READ.B $01 0AE2EC 27 ADD.L 0AE2ED E3 28 1F READ.F $281F 0AE2F0 BB 7F WRITE.F $7F 0AE2F2 37 10 01 00 1E _23d2 $0001, $001E 0AE2F7 84 00 READ.B $00 0AE2F9 44 PUSH.6 $04 0AE2FA 29 MUL.L 0AE2FB 43 PUSH.6 $03 0AE2FC 27 ADD.L 0AE2FD 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AE306 BB 7F WRITE.F $7F 0AE308 37 10 00 00 3C _23d2 $0000, $003C 0AE30D 0A 00 7F 00 80 ?_$0A $007F, $0080 0AE312 30 02 21 BSR.68K $0221 ; => $0AE0F4 => $003E8A (NATIVE) 0AE315 0A 00 7F 00 80 ?_$0A $007F, $0080 0AE31A 30 02 2F BSR.68K $022F ; => $0AE0EE => $003766 0AE31D 30 02 1A BSR.68K $021A ; => $0AE106 => $09788A 0AE320 0E 00 7F 00 80 ?_$0E $007F, $0080 0AE325 40 PUSH.6 $00 0AE326 44 PUSH.6 $04 0AE327 29 MUL.L 0AE328 40 PUSH.6 $00 0AE329 27 ADD.L 0AE32A AB 7F READ.F $7F 0AE32C 41 PUSH.6 $01 0AE32D 44 PUSH.6 $04 0AE32E 29 MUL.L 0AE32F 41 PUSH.6 $01 0AE330 27 ADD.L 0AE331 AB 7F READ.F $7F 0AE333 20 ADD.F 0AE334 42 PUSH.6 $02 0AE335 44 PUSH.6 $04 0AE336 29 MUL.L 0AE337 42 PUSH.6 $02 0AE338 27 ADD.L 0AE339 AB 7F READ.F $7F 0AE33B 20 ADD.F 0AE33C 97 0D WRITE.F $0D 0AE33E 87 0D READ.F $0D 0AE340 87 25 READ.F $25 0AE342 03 21 LT.F 0AE344 18 0E BRZ $00E ; => $0AE354 0AE346 09 00 4D 00 0A ?_$09 $004D, $000A 0AE34B 0D 00 43 00 0A ?_$0D $0043, $000A 0AE350 87 0D READ.F $0D 0AE352 97 25 WRITE.F $25 0AE354 37 10 05 00 B0 _23d2 $0005, $00B0 0AE359 37 10 04 00 C4 _23d2 $0004, $00C4 0AE35E 37 10 03 00 D8 _23d2 $0003, $00D8 0AE363 37 10 02 00 EC _23d2 $0002, $00EC 0AE368 87 25 READ.F $25 0AE36A 30 02 8B BSR.68K $028B ; => $0AE0E2 => $002682 (NATIVE) 0AE36D 97 25 WRITE.F $25 0AE36F 32 80 ADDSP.B $80 0AE371 34 RETURN ; ---------------- End Function $0AE262 ---------------- ; ---------------- Begin 2144 Function $0AE372 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE692:$0AE6AA ; called from $0AE6BE:$0AE6D6 ; called from $0AE71E:$0AE725 ; called from $0AE72C:$0AE733 ; addr bytes opcode operands comment 0AE379 03 2D 01 00 SUBSP.W $0100 0AE37D 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AE386 3E PUSH.W $0000 0AE387 23 DIV.F 0AE388 97 1D WRITE.F $1D 0AE38A 43 PUSH.6 $03 0AE38B 44 PUSH.6 $04 0AE38C 29 MUL.L 0AE38D 40 PUSH.6 $00 0AE38E 27 ADD.L 0AE38F 83 4F READ.F $4F 0AE391 83 C7 READ.F $C7 0AE393 23 DIV.F 0AE394 BB 7F WRITE.F $7F 0AE396 43 PUSH.6 $03 0AE397 44 PUSH.6 $04 0AE398 29 MUL.L 0AE399 41 PUSH.6 $01 0AE39A 27 ADD.L 0AE39B 83 57 READ.F $57 0AE39D 83 C7 READ.F $C7 0AE39F 23 DIV.F 0AE3A0 BB 7F WRITE.F $7F 0AE3A2 43 PUSH.6 $03 0AE3A3 44 PUSH.6 $04 0AE3A4 29 MUL.L 0AE3A5 42 PUSH.6 $02 0AE3A6 27 ADD.L 0AE3A7 83 5F READ.F $5F 0AE3A9 83 C7 READ.F $C7 0AE3AB 23 DIV.F 0AE3AC BB 7F WRITE.F $7F 0AE3AE 43 PUSH.6 $03 0AE3AF 44 PUSH.6 $04 0AE3B0 29 MUL.L 0AE3B1 43 PUSH.6 $03 0AE3B2 27 ADD.L 0AE3B3 3E PUSH.W $0000 0AE3B4 BB 7F WRITE.F $7F 0AE3B6 40 PUSH.6 $00 0AE3B7 36 10 02 _2362 $0002 ; A0 = $004000; (A0) = A6 + $0 0AE3BA C0 55 65 READ.B $5565 0AE3BD 43 PUSH.6 $03 0AE3BE 28 SUB.L 0AE3BF 38 00 D3 BLS.B $00D3 ; => $0AE495 0AE3C2 84 02 READ.B $02 0AE3C4 41 PUSH.6 $01 0AE3C5 27 ADD.L 0AE3C6 36 10 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 0AE3C9 C0 55 65 READ.B $5565 0AE3CC 42 PUSH.6 $02 0AE3CD 28 SUB.L 0AE3CE 38 00 BF BLS.B $00BF ; => $0AE490 0AE3D1 84 03 READ.B $03 0AE3D3 41 PUSH.6 $01 0AE3D4 27 ADD.L 0AE3D5 36 10 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0AE3D8 C0 55 65 READ.B $5565 0AE3DB 41 PUSH.6 $01 0AE3DC 28 SUB.L 0AE3DD 38 00 AB BLS.B $00AB ; => $0AE48B 0AE3E0 84 02 READ.B $02 0AE3E2 E0 55 6F READ.B $556F 0AE3E5 94 4D WRITE.B $4D 0AE3E7 84 03 READ.B $03 0AE3E9 E0 55 6F READ.B $556F 0AE3EC 94 4C WRITE.B $4C 0AE3EE 84 04 READ.B $04 0AE3F0 E0 55 6F READ.B $556F 0AE3F3 94 4B WRITE.B $4B 0AE3F5 40 PUSH.6 $00 0AE3F6 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AE3F9 42 PUSH.6 $02 0AE3FA 38 00 38 BLS.B $0038 ; => $0AE435 0AE3FD 40 PUSH.6 $00 0AE3FE 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0AE401 42 PUSH.6 $02 0AE402 38 00 1A BLS.B $001A ; => $0AE41F 0AE405 84 00 READ.B $00 0AE407 44 PUSH.6 $04 0AE408 29 MUL.L 0AE409 84 01 READ.B $01 0AE40B 27 ADD.L 0AE40C 84 00 READ.B $00 0AE40E A4 4D READ.B $4D 0AE410 43 PUSH.6 $03 0AE411 29 MUL.L 0AE412 84 01 READ.B $01 0AE414 27 ADD.L 0AE415 E3 28 1F READ.F $281F 0AE418 BB 7F WRITE.F $7F 0AE41A 37 10 01 00 1E _23d2 $0001, $001E 0AE41F 84 00 READ.B $00 0AE421 44 PUSH.6 $04 0AE422 29 MUL.L 0AE423 43 PUSH.6 $03 0AE424 27 ADD.L 0AE425 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AE42E BB 7F WRITE.F $7F 0AE430 37 10 00 00 3C _23d2 $0000, $003C 0AE435 0A 00 7F 00 80 ?_$0A $007F, $0080 0AE43A 30 03 3D BSR.68K $033D ; => $0AE100 => $003AA2 0AE43D 0E 00 FF 00 80 ?_$0E $00FF, $0080 0AE442 3E PUSH.W $0000 0AE443 97 0D WRITE.F $0D 0AE445 40 PUSH.6 $00 0AE446 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AE449 42 PUSH.6 $02 0AE44A 38 00 23 BLS.B $0023 ; => $0AE470 0AE44D 40 PUSH.6 $00 0AE44E 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0AE451 42 PUSH.6 $02 0AE452 38 00 16 BLS.B $0016 ; => $0AE46B 0AE455 87 0D READ.F $0D 0AE457 84 00 READ.B $00 0AE459 44 PUSH.6 $04 0AE45A 29 MUL.L 0AE45B 84 01 READ.B $01 0AE45D 27 ADD.L 0AE45E AB FF READ.F $FF 0AE460 30 03 7B BSR.68K $037B ; => $0AE0E8 => $002B72 (NATIVE) 0AE463 20 ADD.F 0AE464 97 0D WRITE.F $0D 0AE466 37 10 01 00 1A _23d2 $0001, $001A 0AE46B 37 10 00 00 27 _23d2 $0000, $0027 0AE470 87 0D READ.F $0D 0AE472 87 1D READ.F $1D 0AE474 03 21 LT.F 0AE476 18 0E BRZ $00E ; => $0AE486 0AE478 09 00 4D 00 0A ?_$09 $004D, $000A 0AE47D 0D 00 39 00 0A ?_$0D $0039, $000A 0AE482 87 0D READ.F $0D 0AE484 97 1D WRITE.F $1D 0AE486 37 10 04 00 B3 _23d2 $0004, $00B3 0AE48B 37 10 03 00 C7 _23d2 $0003, $00C7 0AE490 37 10 02 00 DB _23d2 $0002, $00DB 0AE495 87 1D READ.F $1D 0AE497 30 03 B8 BSR.68K $03B8 ; => $0AE0E2 => $002682 (NATIVE) 0AE49A 97 1D WRITE.F $1D 0AE49C 04 63 PUSH.10 $063 0AE49E 94 4A WRITE.B $4A 0AE4A0 03 2E 01 00 ADDSP.W $0100 0AE4A4 34 RETURN ; ---------------- End Function $0AE372 ---------------- ; ---------------- Begin 2144 Function $0AE4A6 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE6BE:$0AE6E7 ; called from $0AE72C:$0AE744 ; called from $0AE758:$0AE75F ; addr bytes opcode operands comment 0AE4AD 31 90 SUBSP.B $90 0AE4AF 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AE4B8 3E PUSH.W $0000 0AE4B9 23 DIV.F 0AE4BA 97 15 WRITE.F $15 0AE4BC 43 PUSH.6 $03 0AE4BD 43 PUSH.6 $03 0AE4BE 29 MUL.L 0AE4BF 40 PUSH.6 $00 0AE4C0 27 ADD.L 0AE4C1 83 4F READ.F $4F 0AE4C3 83 C7 READ.F $C7 0AE4C5 23 DIV.F 0AE4C6 BB 47 WRITE.F $47 0AE4C8 43 PUSH.6 $03 0AE4C9 43 PUSH.6 $03 0AE4CA 29 MUL.L 0AE4CB 41 PUSH.6 $01 0AE4CC 27 ADD.L 0AE4CD 83 57 READ.F $57 0AE4CF 83 C7 READ.F $C7 0AE4D1 23 DIV.F 0AE4D2 BB 47 WRITE.F $47 0AE4D4 43 PUSH.6 $03 0AE4D5 43 PUSH.6 $03 0AE4D6 29 MUL.L 0AE4D7 42 PUSH.6 $02 0AE4D8 27 ADD.L 0AE4D9 83 5F READ.F $5F 0AE4DB 83 C7 READ.F $C7 0AE4DD 23 DIV.F 0AE4DE BB 47 WRITE.F $47 0AE4E0 40 PUSH.6 $00 0AE4E1 36 10 02 _2362 $0002 ; A0 = $004000; (A0) = A6 + $0 0AE4E4 C0 55 65 READ.B $5565 0AE4E7 42 PUSH.6 $02 0AE4E8 28 SUB.L 0AE4E9 38 00 AB BLS.B $00AB ; => $0AE597 0AE4EC 84 02 READ.B $02 0AE4EE 41 PUSH.6 $01 0AE4EF 27 ADD.L 0AE4F0 36 10 03 _2362 $0003 ; A0 = $004000; (A0) = A6 + $0 0AE4F3 C0 55 65 READ.B $5565 0AE4F6 41 PUSH.6 $01 0AE4F7 28 SUB.L 0AE4F8 38 00 97 BLS.B $0097 ; => $0AE592 0AE4FB 84 02 READ.B $02 0AE4FD E0 55 6F READ.B $556F 0AE500 94 4D WRITE.B $4D 0AE502 84 03 READ.B $03 0AE504 E0 55 6F READ.B $556F 0AE507 94 4C WRITE.B $4C 0AE509 40 PUSH.6 $00 0AE50A 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AE50D 41 PUSH.6 $01 0AE50E 38 00 27 BLS.B $0027 ; => $0AE538 0AE511 40 PUSH.6 $00 0AE512 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0AE515 42 PUSH.6 $02 0AE516 38 00 1A BLS.B $001A ; => $0AE533 0AE519 84 00 READ.B $00 0AE51B 43 PUSH.6 $03 0AE51C 29 MUL.L 0AE51D 84 01 READ.B $01 0AE51F 27 ADD.L 0AE520 84 00 READ.B $00 0AE522 A4 4D READ.B $4D 0AE524 43 PUSH.6 $03 0AE525 29 MUL.L 0AE526 84 01 READ.B $01 0AE528 27 ADD.L 0AE529 E3 28 1F READ.F $281F 0AE52C BB 47 WRITE.F $47 0AE52E 37 10 01 00 1E _23d2 $0001, $001E 0AE533 37 10 00 00 2B _23d2 $0000, $002B 0AE538 0A 00 47 00 48 ?_$0A $0047, $0048 0AE53D 30 04 46 BSR.68K $0446 ; => $0AE0FA => $00398A 0AE540 0E 00 8F 00 48 ?_$0E $008F, $0048 0AE545 3E PUSH.W $0000 0AE546 97 0D WRITE.F $0D 0AE548 40 PUSH.6 $00 0AE549 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AE54C 42 PUSH.6 $02 0AE54D 38 00 23 BLS.B $0023 ; => $0AE573 0AE550 40 PUSH.6 $00 0AE551 36 10 01 _2362 $0001 ; A0 = $004000; (A0) = A6 + $0 0AE554 41 PUSH.6 $01 0AE555 38 00 16 BLS.B $0016 ; => $0AE56E 0AE558 87 0D READ.F $0D 0AE55A 84 00 READ.B $00 0AE55C 43 PUSH.6 $03 0AE55D 29 MUL.L 0AE55E 84 01 READ.B $01 0AE560 27 ADD.L 0AE561 AB 8F READ.F $8F 0AE563 30 04 7E BSR.68K $047E ; => $0AE0E8 => $002B72 (NATIVE) 0AE566 20 ADD.F 0AE567 97 0D WRITE.F $0D 0AE569 37 10 01 00 1A _23d2 $0001, $001A 0AE56E 37 10 00 00 27 _23d2 $0000, $0027 0AE573 87 0D READ.F $0D 0AE575 87 15 READ.F $15 0AE577 03 21 LT.F 0AE579 18 12 BRZ $012 ; => $0AE58D 0AE57B 84 02 READ.B $02 0AE57D E0 55 6F READ.B $556F 0AE580 94 2F WRITE.B $2F 0AE582 84 03 READ.B $03 0AE584 E0 55 6F READ.B $556F 0AE587 94 2E WRITE.B $2E 0AE589 87 0D READ.F $0D 0AE58B 97 15 WRITE.F $15 0AE58D 37 10 03 00 9F _23d2 $0003, $009F 0AE592 37 10 02 00 B3 _23d2 $0002, $00B3 0AE597 87 15 READ.F $15 0AE599 30 04 BA BSR.68K $04BA ; => $0AE0E2 => $002682 (NATIVE) 0AE59C 97 15 WRITE.F $15 0AE59E 04 63 PUSH.10 $063 0AE5A0 94 4B WRITE.B $4B 0AE5A2 04 63 PUSH.10 $063 0AE5A4 94 4A WRITE.B $4A 0AE5A6 32 90 ADDSP.B $90 0AE5A8 34 RETURN ; ---------------- End Function $0AE4A6 ---------------- ; ---------------- Begin 2164 Function $0AE5AA ---------------- ; P0 = $0000; P1 = $0004; P2 = $02 ; A0 = $004008; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $0AE616:$0AE62F ; called from $0AE636:$0AE647 ; called from $0AE636:$0AE654 ; called from $0AE65A:$0AE66B ; called from $0AE65A:$0AE670 ; called from $0AE65A:$0AE67D ; addr bytes opcode operands comment 0AE5B3 31 02 SUBSP.B $02 0AE5B5 08 55 6F 00 0A ?_$08 $556F, $000A 0AE5BA 0D 00 61 00 0A ?_$0D $0061, $000A 0AE5BF 04 63 PUSH.10 $063 0AE5C1 9A 03 WRITE.L $03 0AE5C3 40 PUSH.6 $00 0AE5C4 36 20 04 _2362 $0004 ; A0 = $004000; (A0) = A6 + $0 0AE5C7 C0 29 9B READ.B $299B 0AE5CA 38 00 26 BLS.B $0026 ; => $0AE5F3 0AE5CD 40 PUSH.6 $00 0AE5CE 36 20 05 _2362 $0005 ; A0 = $004000; (A0) = A6 + $0 0AE5D1 C0 55 65 READ.B $5565 0AE5D4 41 PUSH.6 $01 0AE5D5 28 SUB.L 0AE5D6 38 00 15 BLS.B $0015 ; => $0AE5EE 0AE5D9 88 04 READ.B $04 0AE5DB A4 57 READ.B $57 0AE5DD 88 05 READ.B $05 0AE5DF A4 61 READ.B $61 0AE5E1 2A EQ.L 0AE5E2 18 05 BRZ $005 ; => $0AE5E9 0AE5E4 88 05 READ.B $05 0AE5E6 40 PUSH.6 $00 0AE5E7 B4 61 WRITE.B $61 0AE5E9 37 20 05 00 1D _23d2 $0005, $001D 0AE5EE 37 20 04 00 2C _23d2 $0004, $002C 0AE5F3 40 PUSH.6 $00 0AE5F4 36 20 05 _2362 $0005 ; A0 = $004000; (A0) = A6 + $0 0AE5F7 C0 55 65 READ.B $5565 0AE5FA 41 PUSH.6 $01 0AE5FB 28 SUB.L 0AE5FC 38 00 13 BLS.B $0013 ; => $0AE612 0AE5FF 88 05 READ.B $05 0AE601 A4 61 READ.B $61 0AE603 18 08 BRZ $008 ; => $0AE60D 0AE605 88 05 READ.B $05 0AE607 A4 61 READ.B $61 0AE609 9A 03 WRITE.L $03 0AE60B 10 05 BR $005 ; => $0AE612 0AE60D 37 20 05 00 1B _23d2 $0005, $001B 0AE612 32 02 ADDSP.B $02 0AE614 34 RETURN ; ---------------- End Function $0AE5AA ---------------- ; ---------------- Begin 2144 Function $0AE616 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE684:$0AE68E ; called from $0AE692:$0AE6A5 ; called from $0AE692:$0AE6B5 ; called from $0AE6BE:$0AE6D1 ; called from $0AE6BE:$0AE707 ; addr bytes opcode operands comment 0AE61D 09 00 43 00 0A ?_$09 $0043, $000A 0AE622 0D 00 57 00 0A ?_$0D $0057, $000A 0AE627 C0 29 9B READ.B $299B 0AE62A 43 PUSH.6 $03 0AE62B 03 25 LT.L 0AE62D 18 05 BRZ $005 ; => $0AE634 0AE62F 30 00 88 BSR.68K $0088 ; => $0AE5AA 0AE632 94 53 WRITE.B $53 0AE634 34 RETURN ; ---------------- End Function $0AE616 ---------------- ; ---------------- Begin 2144 Function $0AE636 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE692:$0AE6BA ; called from $0AE6BE:$0AE6E2 ; called from $0AE6BE:$0AE714 ; called from $0AE71E:$0AE728 ; called from $0AE72C:$0AE73F ; called from $0AE72C:$0AE74F ; addr bytes opcode operands comment 0AE63D 09 00 39 00 0A ?_$09 $0039, $000A 0AE642 0D 00 57 00 0A ?_$0D $0057, $000A 0AE647 30 00 A0 BSR.68K $00A0 ; => $0AE5AA 0AE64A 94 54 WRITE.B $54 0AE64C C0 29 9B READ.B $299B 0AE64F 43 PUSH.6 $03 0AE650 03 25 LT.L 0AE652 18 05 BRZ $005 ; => $0AE659 0AE654 30 00 AD BSR.68K $00AD ; => $0AE5AA 0AE657 94 53 WRITE.B $53 0AE659 34 RETURN ; ---------------- End Function $0AE636 ---------------- ; ---------------- Begin 2144 Function $0AE65A ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE6BE:$0AE6F3 ; called from $0AE6BE:$0AE719 ; called from $0AE72C:$0AE754 ; called from $0AE758:$0AE762 ; addr bytes opcode operands comment 0AE661 09 00 2F 00 0A ?_$09 $002F, $000A 0AE666 0D 00 57 00 0A ?_$0D $0057, $000A 0AE66B 30 00 C4 BSR.68K $00C4 ; => $0AE5AA 0AE66E 94 55 WRITE.B $55 0AE670 30 00 C9 BSR.68K $00C9 ; => $0AE5AA 0AE673 94 54 WRITE.B $54 0AE675 C0 29 9B READ.B $299B 0AE678 43 PUSH.6 $03 0AE679 03 25 LT.L 0AE67B 18 05 BRZ $005 ; => $0AE682 0AE67D 30 00 D6 BSR.68K $00D6 ; => $0AE5AA 0AE680 94 53 WRITE.B $53 0AE682 34 RETURN ; ---------------- End Function $0AE65A ---------------- ; ---------------- Begin 2144 Function $0AE684 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE766:$0AE7CD ; addr bytes opcode operands comment 0AE68B 30 04 2C BSR.68K $042C ; => $0AE262 0AE68E 30 00 7B BSR.68K $007B ; => $0AE616 0AE691 34 RETURN ; ---------------- End Function $0AE684 ---------------- ; ---------------- Begin 2144 Function $0AE692 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE766:$0AE7D5 ; addr bytes opcode operands comment 0AE699 30 04 3A BSR.68K $043A ; => $0AE262 0AE69C 87 25 READ.F $25 0AE69E C3 28 ED READ.F $28ED 0AE6A1 03 22 LTE.F 0AE6A3 18 05 BRZ $005 ; => $0AE6AA 0AE6A5 30 00 92 BSR.68K $0092 ; => $0AE616 0AE6A8 10 13 BR $013 ; => $0AE6BD 0AE6AA 30 03 3B BSR.68K $033B ; => $0AE372 0AE6AD 87 25 READ.F $25 0AE6AF 87 1D READ.F $1D 0AE6B1 03 22 LTE.F 0AE6B3 18 05 BRZ $005 ; => $0AE6BA 0AE6B5 30 00 A2 BSR.68K $00A2 ; => $0AE616 0AE6B8 10 03 BR $003 ; => $0AE6BD 0AE6BA 30 00 87 BSR.68K $0087 ; => $0AE636 0AE6BD 34 RETURN ; ---------------- End Function $0AE692 ---------------- ; ---------------- Begin 2144 Function $0AE6BE ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE766:$0AE7DD ; addr bytes opcode operands comment 0AE6C5 30 04 66 BSR.68K $0466 ; => $0AE262 0AE6C8 87 25 READ.F $25 0AE6CA C3 28 ED READ.F $28ED 0AE6CD 03 22 LTE.F 0AE6CF 18 05 BRZ $005 ; => $0AE6D6 0AE6D1 30 00 BE BSR.68K $00BE ; => $0AE616 0AE6D4 10 46 BR $046 ; => $0AE71C 0AE6D6 30 03 67 BSR.68K $0367 ; => $0AE372 0AE6D9 87 1D READ.F $1D 0AE6DB C3 28 ED READ.F $28ED 0AE6DE 03 22 LTE.F 0AE6E0 18 05 BRZ $005 ; => $0AE6E7 0AE6E2 30 00 AF BSR.68K $00AF ; => $0AE636 0AE6E5 10 35 BR $035 ; => $0AE71C 0AE6E7 30 02 44 BSR.68K $0244 ; => $0AE4A6 0AE6EA 87 15 READ.F $15 0AE6EC C3 28 ED READ.F $28ED 0AE6EF 03 22 LTE.F 0AE6F1 18 05 BRZ $005 ; => $0AE6F8 0AE6F3 30 00 9C BSR.68K $009C ; => $0AE65A 0AE6F6 10 24 BR $024 ; => $0AE71C 0AE6F8 87 25 READ.F $25 0AE6FA 87 1D READ.F $1D 0AE6FC 03 22 LTE.F 0AE6FE 87 25 READ.F $25 0AE700 87 15 READ.F $15 0AE702 03 22 LTE.F 0AE704 2C AND.L 0AE705 18 05 BRZ $005 ; => $0AE70C 0AE707 30 00 F4 BSR.68K $00F4 ; => $0AE616 0AE70A 10 10 BR $010 ; => $0AE71C 0AE70C 87 1D READ.F $1D 0AE70E 87 15 READ.F $15 0AE710 03 22 LTE.F 0AE712 18 05 BRZ $005 ; => $0AE719 0AE714 30 00 E1 BSR.68K $00E1 ; => $0AE636 0AE717 10 03 BR $003 ; => $0AE71C 0AE719 30 00 C2 BSR.68K $00C2 ; => $0AE65A 0AE71C 34 RETURN ; ---------------- End Function $0AE6BE ---------------- ; ---------------- Begin 2144 Function $0AE71E ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE766:$0AE7E5 ; addr bytes opcode operands comment 0AE725 30 03 B6 BSR.68K $03B6 ; => $0AE372 0AE728 30 00 F5 BSR.68K $00F5 ; => $0AE636 0AE72B 34 RETURN ; ---------------- End Function $0AE71E ---------------- ; ---------------- Begin 2144 Function $0AE72C ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE766:$0AE7ED ; addr bytes opcode operands comment 0AE733 30 03 C4 BSR.68K $03C4 ; => $0AE372 0AE736 87 1D READ.F $1D 0AE738 C3 28 ED READ.F $28ED 0AE73B 03 22 LTE.F 0AE73D 18 05 BRZ $005 ; => $0AE744 0AE73F 30 01 0C BSR.68K $010C ; => $0AE636 0AE742 10 13 BR $013 ; => $0AE757 0AE744 30 02 A1 BSR.68K $02A1 ; => $0AE4A6 0AE747 87 1D READ.F $1D 0AE749 87 15 READ.F $15 0AE74B 03 22 LTE.F 0AE74D 18 05 BRZ $005 ; => $0AE754 0AE74F 30 01 1C BSR.68K $011C ; => $0AE636 0AE752 10 03 BR $003 ; => $0AE757 0AE754 30 00 FD BSR.68K $00FD ; => $0AE65A 0AE757 34 RETURN ; ---------------- End Function $0AE72C ---------------- ; ---------------- Begin 2144 Function $0AE758 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AE766:$0AE7F5 ; addr bytes opcode operands comment 0AE75F 30 02 BC BSR.68K $02BC ; => $0AE4A6 0AE762 30 01 0B BSR.68K $010B ; => $0AE65A 0AE765 34 RETURN ; ---------------- End Function $0AE758 ---------------- ; ---------------- Begin 2144 Function $0AE766 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AE864:$0AE8AD ; addr bytes opcode operands comment 0AE76D 31 62 SUBSP.B $62 0AE76F 30 06 5A BSR.68K $065A ; => $0AE118 0AE772 40 PUSH.6 $00 0AE773 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AE776 C0 29 9B READ.B $299B 0AE779 38 00 0B BLS.B $000B ; => $0AE787 0AE77C 84 00 READ.B $00 0AE77E 04 63 PUSH.10 $063 0AE780 B4 57 WRITE.B $57 0AE782 37 10 00 00 11 _23d2 $0000, $0011 0AE787 09 00 57 00 0A ?_$09 $0057, $000A 0AE78C 0D 00 4D 00 0A ?_$0D $004D, $000A 0AE791 C0 55 65 READ.B $5565 0AE794 40 PUSH.6 $00 0AE795 2B NEQ.L 0AE796 18 63 BRZ $063 ; => $0AE7FB 0AE798 C0 55 65 READ.B $5565 0AE79B C0 29 9B READ.B $299B 0AE79E 41 PUSH.6 $01 0AE79F 27 ADD.L 0AE7A0 03 28 GTE.L 0AE7A2 18 1C BRZ $01C ; => $0AE7C0 0AE7A4 40 PUSH.6 $00 0AE7A5 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AE7A8 C0 55 65 READ.B $5565 0AE7AB 41 PUSH.6 $01 0AE7AC 28 SUB.L 0AE7AD 38 00 0E BLS.B $000E ; => $0AE7BE 0AE7B0 84 00 READ.B $00 0AE7B2 84 00 READ.B $00 0AE7B4 E0 55 6F READ.B $556F 0AE7B7 B4 57 WRITE.B $57 0AE7B9 37 10 00 00 16 _23d2 $0000, $0016 0AE7BE 10 3B BR $03B ; => $0AE7FB 0AE7C0 C0 29 0D READ.B $290D 0AE7C3 4A PUSH.6 $0A 0AE7C4 29 MUL.L 0AE7C5 C0 29 0C READ.B $290C 0AE7C8 27 ADD.L 0AE7C9 35 SWITCH 0AE7CA 10 06 2C CASE $2C ; SWITCH $0AE7C9 0AE7CD 30 01 4C BSR.68K $014C ; => $0AE684 0AE7D0 10 29 BR $029 ; => $0AE7FB 0AE7D2 10 06 22 CASE $22 ; SWITCH $0AE7C9 0AE7D5 30 01 46 BSR.68K $0146 ; => $0AE692 0AE7D8 10 21 BR $021 ; => $0AE7FB 0AE7DA 10 06 18 CASE $18 ; SWITCH $0AE7C9 0AE7DD 30 01 22 BSR.68K $0122 ; => $0AE6BE 0AE7E0 10 19 BR $019 ; => $0AE7FB 0AE7E2 10 06 21 CASE $21 ; SWITCH $0AE7C9 0AE7E5 30 00 CA BSR.68K $00CA ; => $0AE71E 0AE7E8 10 11 BR $011 ; => $0AE7FB 0AE7EA 10 06 17 CASE $17 ; SWITCH $0AE7C9 0AE7ED 30 00 C4 BSR.68K $00C4 ; => $0AE72C 0AE7F0 10 09 BR $009 ; => $0AE7FB 0AE7F2 10 06 16 CASE $16 ; SWITCH $0AE7C9 0AE7F5 30 00 A0 BSR.68K $00A0 ; => $0AE758 0AE7F8 10 01 BR $001 ; => $0AE7FB 0AE7FA 00 DEFAULT ; SWITCH $0AE7C9 0AE7FB 30 06 86 BSR.68K $0686 ; => $0AE178 0AE7FE 32 62 ADDSP.B $62 0AE800 34 RETURN ; ---------------- End Function $0AE766 ---------------- ; ---------------- Begin 2144 Function $0AE802 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AE864:$0AE8B2 ; addr bytes opcode operands comment 0AE809 31 02 SUBSP.B $02 0AE80B 40 PUSH.6 $00 0AE80C 94 01 WRITE.B $01 0AE80E 40 PUSH.6 $00 0AE80F 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AE812 C0 29 9B READ.B $299B 0AE815 38 00 48 BLS.B $0048 ; => $0AE860 0AE818 84 00 READ.B $00 0AE81A E0 60 29 READ.B $6029 0AE81D 18 3C BRZ $03C ; => $0AE85B 0AE81F 84 00 READ.B $00 0AE821 E0 40 09 READ.B $4009 0AE824 40 PUSH.6 $00 0AE825 F0 55 A1 WRITE.B $55A1 0AE828 84 00 READ.B $00 0AE82A 84 01 READ.B $01 0AE82C E0 29 0B READ.B $290B 0AE82F F0 40 09 WRITE.B $4009 0AE832 C0 29 9C READ.B $299C 0AE835 18 0E BRZ $00E ; => $0AE845 0AE837 84 00 READ.B $00 0AE839 C0 29 A0 READ.B $29A0 0AE83C 27 ADD.L 0AE83D 84 01 READ.B $01 0AE83F E0 29 0B READ.B $290B 0AE842 F0 40 09 WRITE.B $4009 0AE845 84 01 READ.B $01 0AE847 41 PUSH.6 $01 0AE848 27 ADD.L 0AE849 94 01 WRITE.B $01 0AE84B 84 00 READ.B $00 0AE84D E0 40 09 READ.B $4009 0AE850 18 09 BRZ $009 ; => $0AE85B 0AE852 84 00 READ.B $00 0AE854 E0 40 09 READ.B $4009 0AE857 41 PUSH.6 $01 0AE858 F0 55 A1 WRITE.B $55A1 0AE85B 37 10 00 00 4E _23d2 $0000, $004E 0AE860 32 02 ADDSP.B $02 0AE862 34 RETURN ; ---------------- End Function $0AE802 ---------------- ; ---------------- Begin 2144 Function $0AE864 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7D3 ; addr bytes opcode operands comment 0AE86B 31 08 SUBSP.B $08 0AE86D 30 07 64 BSR.68K $0764 ; => $0AE10C => $094E22 0AE870 97 07 WRITE.F $07 0AE872 C0 67 EC READ.B $67EC 0AE875 C0 54 2C READ.B $542C 0AE878 C0 28 FF READ.B $28FF 0AE87B C0 56 6E READ.B $566E 0AE87E C0 56 C6 READ.B $56C6 0AE881 2C AND.L 0AE882 2E NOT.L 0AE883 2C AND.L 0AE884 2D OR.L 0AE885 2C AND.L 0AE886 18 0A BRZ $00A ; => $0AE892 0AE888 30 07 79 BSR.68K $0779 ; => $0AE112 => $0AB022 0AE88B 87 07 READ.F $07 0AE88D D3 56 55 WRITE.F $5655 0AE890 10 2D BR $02D ; => $0AE8BF 0AE892 87 07 READ.F $07 0AE894 C3 56 55 READ.F $5655 0AE897 21 SUB.F 0AE898 3B 40 3E 00 00 00 00 00 00 PUSH.F $403E000000000000 ; float = 30.000000 0AE8A1 24 GT.F 0AE8A2 18 1B BRZ $01B ; => $0AE8BF 0AE8A4 C0 28 FF READ.B $28FF 0AE8A7 C0 54 2C READ.B $542C 0AE8AA 2D OR.L 0AE8AB 18 05 BRZ $005 ; => $0AE8B2 0AE8AD 30 01 4A BSR.68K $014A ; => $0AE766 0AE8B0 10 03 BR $003 ; => $0AE8B5 0AE8B2 30 00 B3 BSR.68K $00B3 ; => $0AE802 0AE8B5 04 FF PUSH.10 $0FF 0AE8B7 D0 59 EA WRITE.B $59EA 0AE8BA 87 07 READ.F $07 0AE8BC D3 56 55 WRITE.F $5655 0AE8BF 32 08 ADDSP.B $08 0AE8C1 34 RETURN ; ---------------- End Function $0AE864 ---------------- ; ---------------- Begin 2144 Function $0AE8F8 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $093246:$09356A ; called from $0AEC48:$0AEC6C ; called from $0AEC74:$0AECD0 ; addr bytes opcode operands comment 0AE8FF 30 00 40 BSR.68K $0040 ; => $0AE8C2 => $0034AA (CLEARSCREEN) (NATIVE) 0AE902 40 PUSH.6 $00 0AE903 3F 20 4E 50 20 31 32 30 20 DISP "NP 120 10-OCT-87SP 101 26-JUL-87" 31 30 2D 4F 43 54 2D 38 37 53 50 20 31 30 31 20 32 36 2D 4A 55 4C 2D 38 37 0AE925 43 PUSH.6 $03 0AE926 43 PUSH.6 $03 0AE927 C1 29 85 READ.W $2985 0AE92A 03 2A LONG2FLOAT 0AE92C 30 00 61 BSR.68K $0061 ; => $0AE8CE => $097AD2 0AE92F 43 PUSH.6 $03 0AE930 30 00 5F BSR.68K $005F ; => $0AE8D4 => $097B5C 0AE933 4E PUSH.6 $0E 0AE934 C2 29 89 READ.L $2989 0AE937 04 64 PUSH.10 $064 0AE939 2F MOD.L 0AE93A 30 00 4B BSR.68K $004B ; => $0AE8F2 => $097B0A 0AE93D 4A PUSH.6 $0A 0AE93E C2 29 89 READ.L $2989 0AE941 3C 27 10 PUSH.W $2710 0AE944 03 24 DIV.L 0AE946 41 PUSH.6 $01 0AE947 28 SUB.L 0AE948 30 00 5F BSR.68K $005F ; => $0AE8EC => $097D4A 0AE94B 47 PUSH.6 $07 0AE94C C2 29 89 READ.L $2989 0AE94F 04 64 PUSH.10 $064 0AE951 03 24 DIV.L 0AE953 04 64 PUSH.10 $064 0AE955 2F MOD.L 0AE956 30 00 67 BSR.68K $0067 ; => $0AE8F2 => $097B0A 0AE959 C0 67 F2 READ.B $67F2 0AE95C 18 04 BRZ $004 ; => $0AE962 0AE95E 04 58 PUSH.10 $058 0AE960 90 1A WRITE.B $1A 0AE962 53 PUSH.6 $13 0AE963 43 PUSH.6 $03 0AE964 C1 29 95 READ.W $2995 0AE967 3C 07 FF PUSH.W $07FF 0AE96A 2C AND.L 0AE96B 03 2A LONG2FLOAT 0AE96D 30 00 A2 BSR.68K $00A2 ; => $0AE8CE => $097AD2 0AE970 53 PUSH.6 $13 0AE971 30 00 A0 BSR.68K $00A0 ; => $0AE8D4 => $097B5C 0AE974 57 PUSH.6 $17 0AE975 C0 29 98 READ.B $2998 0AE978 30 00 89 BSR.68K $0089 ; => $0AE8F2 => $097B0A 0AE97B 5A PUSH.6 $1A 0AE97C C0 29 99 READ.B $2999 0AE97F 41 PUSH.6 $01 0AE980 28 SUB.L 0AE981 30 00 98 BSR.68K $0098 ; => $0AE8EC => $097D4A 0AE984 5E PUSH.6 $1E 0AE985 C0 29 97 READ.B $2997 0AE988 30 00 99 BSR.68K $0099 ; => $0AE8F2 => $097B0A 0AE98B C0 4E 69 READ.B $4E69 0AE98E 18 15 BRZ $015 ; => $0AE9A5 0AE990 C0 29 91 READ.B $2991 0AE993 18 0D BRZ $00D ; => $0AE9A2 0AE995 C0 29 92 READ.B $2992 0AE998 18 04 BRZ $004 ; => $0AE99E 0AE99A 04 41 PUSH.10 $041 0AE99C 10 02 BR $002 ; => $0AE9A0 0AE99E 04 53 PUSH.10 $053 0AE9A0 10 01 BR $001 ; => $0AE9A3 0AE9A2 6A PUSH.6 $2A 0AE9A3 90 1D WRITE.B $1D 0AE9A5 4C PUSH.6 $0C 0AE9A6 90 21 WRITE.B $21 0AE9A8 34 RETURN ; ---------------- End Function $0AE8F8 ---------------- ; ---------------- Begin 2144 Function $0AE9AA ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AEA4C:$0AEA70 ; called from $0AEA78:$0AEA97 ; called from $0AEAC6:$0AEB23 ; called from $0AEAC6:$0AEB7C ; called from $0AEB8C:$0AEBBC ; called from $0AEB8C:$0AEBE4 ; called from $0AEB8C:$0AEC0D ; addr bytes opcode operands comment 0AE9B1 31 0C SUBSP.B $0C 0AE9B3 C1 29 7F READ.W $297F 0AE9B6 95 03 WRITE.W $03 0AE9B8 4F PUSH.6 $0F 0AE9B9 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AE9BC 40 PUSH.6 $00 0AE9BD 3A 00 18 BGT.B $0018 ; => $0AE9D8 0AE9C0 84 00 READ.B $00 0AE9C2 41 PUSH.6 $01 0AE9C3 85 03 READ.W $03 0AE9C5 41 PUSH.6 $01 0AE9C6 2C AND.L 0AE9C7 03 2A LONG2FLOAT 0AE9C9 30 00 FE BSR.68K $00FE ; => $0AE8CE => $097AD2 0AE9CC 85 03 READ.W $03 0AE9CE 42 PUSH.6 $02 0AE9CF 03 24 DIV.L 0AE9D1 95 03 WRITE.W $03 0AE9D3 39 10 00 00 1C _23fc $1000, $001C 0AE9D8 3B 40 14 00 00 00 00 00 00 PUSH.F $4014000000000000 ; float = 5.000000 0AE9E1 C1 29 7F READ.W $297F 0AE9E4 03 2A LONG2FLOAT 0AE9E6 3B 40 B9 99 80 00 00 00 00 PUSH.F $40B9998000000000 ; float = 6553.500000 0AE9EF 23 DIV.F 0AE9F0 21 SUB.F 0AE9F1 97 0B WRITE.F $0B 0AE9F3 87 0B READ.F $0B 0AE9F5 3E PUSH.W $0000 0AE9F6 03 21 LT.F 0AE9F8 18 05 BRZ $005 ; => $0AE9FF 0AE9FA 6D PUSH.6 $2D 0AE9FB 90 0F WRITE.B $0F 0AE9FD 10 03 BR $003 ; => $0AEA02 0AE9FF 60 PUSH.6 $20 0AEA00 90 0F WRITE.B $0F 0AEA02 51 PUSH.6 $11 0AEA03 45 PUSH.6 $05 0AEA04 87 0B READ.F $0B 0AEA06 3B 40 C3 88 00 00 00 00 00 PUSH.F $40C3880000000000 ; float = 10000.000000 0AEA0F 22 MUL.F 0AEA10 30 01 45 BSR.68K $0145 ; => $0AE8CE => $097AD2 0AEA13 51 PUSH.6 $11 0AEA14 30 01 43 BSR.68K $0143 ; => $0AE8D4 => $097B5C 0AEA17 C1 29 7F READ.W $297F 0AEA1A D1 4E 53 WRITE.W $4E53 0AEA1D C1 4E 53 READ.W $4E53 0AEA20 03 2A LONG2FLOAT 0AEA22 D3 29 7D WRITE.F $297D 0AEA25 41 PUSH.6 $01 0AEA26 D0 4E 54 WRITE.B $4E54 0AEA29 32 0C ADDSP.B $0C 0AEA2B 34 RETURN ; ---------------- End Function $0AE9AA ---------------- ; ---------------- Begin 2144 Function $0AEA2C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AEC74:$0AECE0 ; addr bytes opcode operands comment 0AEA33 30 01 74 BSR.68K $0174 ; => $0AE8C2 => $0034AA (CLEARSCREEN) (NATIVE) 0AEA36 50 PUSH.6 $10 0AEA37 3F 0D 20 41 55 54 4F 20 20 DISP " AUTO TOGGLE" 54 4F 47 47 4C 45 0AEA46 04 4E PUSH.10 $04E 0AEA48 90 21 WRITE.B $21 0AEA4A 34 RETURN ; ---------------- End Function $0AEA2C ---------------- ; ---------------- Begin 2144 Function $0AEA4C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AEAA0:$0AEAAD ; addr bytes opcode operands comment 0AEA53 3C 80 00 PUSH.W $8000 0AEA56 D1 29 7F WRITE.W $297F 0AEA59 60 PUSH.6 $20 0AEA5A 90 26 WRITE.B $26 0AEA5C 30 01 9D BSR.68K $019D ; => $0AE8C2 => $0034AA (CLEARSCREEN) (NATIVE) 0AEA5F 50 PUSH.6 $10 0AEA60 3F 0E 2D 58 58 58 58 58 20 DISP "-XXXXX < >" 20 20 3C 20 20 20 3E 0AEA70 30 00 C9 BSR.68K $00C9 ; => $0AE9AA 0AEA73 04 4F PUSH.10 $04F 0AEA75 90 21 WRITE.B $21 0AEA77 34 RETURN ; ---------------- End Function $0AEA4C ---------------- ; ---------------- Begin 2144 Function $0AEA78 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AEAA0:$0AEAB5 ; addr bytes opcode operands comment 0AEA7F 40 PUSH.6 $00 0AEA80 D1 29 7F WRITE.W $297F 0AEA83 41 PUSH.6 $01 0AEA84 D1 29 81 WRITE.W $2981 0AEA87 4F PUSH.6 $0F 0AEA88 90 26 WRITE.B $26 0AEA8A 30 01 CB BSR.68K $01CB ; => $0AE8C2 => $0034AA (CLEARSCREEN) (NATIVE) 0AEA8D 57 PUSH.6 $17 0AEA8E 3F 07 54 20 3C 20 20 20 3E DISP "T < >" 0AEA97 30 00 F0 BSR.68K $00F0 ; => $0AE9AA 0AEA9A 04 50 PUSH.10 $050 0AEA9C 90 21 WRITE.B $21 0AEA9E 34 RETURN ; ---------------- End Function $0AEA78 ---------------- ; ---------------- Begin 2144 Function $0AEAA0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC47 ; addr bytes opcode operands comment 0AEAA7 80 20 READ.B $20 0AEAA9 35 SWITCH 0AEAAA 10 06 10 CASE $10 ; SWITCH $0AEAA9 0AEAAD 30 00 64 BSR.68K $0064 ; => $0AEA4C 0AEAB0 10 12 BR $012 ; => $0AEAC4 0AEAB2 10 06 90 CASE $90 ; SWITCH $0AEAA9 0AEAB5 30 00 40 BSR.68K $0040 ; => $0AEA78 0AEAB8 10 0A BR $00A ; => $0AEAC4 0AEABA 20 04 50 D0 CASE $50, $D0 ; SWITCH $0AEAA9 0AEABE 10 04 BR $004 ; => $0AEAC4 0AEAC0 00 DEFAULT ; SWITCH $0AEAA9 0AEAC1 30 01 EA BSR.68K $01EA ; => $0AE8DA => $09D9DE 0AEAC4 34 RETURN ; ---------------- End Function $0AEAA0 ---------------- ; ---------------- Begin 2144 Function $0AEAC6 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC4F ; addr bytes opcode operands comment 0AEACD 80 20 READ.B $20 0AEACF 35 SWITCH 0AEAD0 10 56 90 CASE $90 ; SWITCH $0AEACF 0AEAD3 C1 29 7F READ.W $297F 0AEAD6 3C 80 00 PUSH.W $8000 0AEAD9 2A EQ.L 0AEADA 18 08 BRZ $008 ; => $0AEAE4 0AEADC 3C 80 01 PUSH.W $8001 0AEADF D1 29 7F WRITE.W $297F 0AEAE2 10 3F BR $03F ; => $0AEB23 0AEAE4 C1 29 7F READ.W $297F 0AEAE7 3C C0 00 PUSH.W $C000 0AEAEA 2A EQ.L 0AEAEB 18 08 BRZ $008 ; => $0AEAF5 0AEAED 3C FF FF PUSH.W $FFFF 0AEAF0 D1 29 7F WRITE.W $297F 0AEAF3 10 2E BR $02E ; => $0AEB23 0AEAF5 C1 29 7F READ.W $297F 0AEAF8 3C FF FF PUSH.W $FFFF 0AEAFB 2A EQ.L 0AEAFC 18 06 BRZ $006 ; => $0AEB04 0AEAFE 40 PUSH.6 $00 0AEAFF D1 29 7F WRITE.W $297F 0AEB02 10 1F BR $01F ; => $0AEB23 0AEB04 C1 29 7F READ.W $297F 0AEB07 40 PUSH.6 $00 0AEB08 2A EQ.L 0AEB09 18 08 BRZ $008 ; => $0AEB13 0AEB0B 3C 80 00 PUSH.W $8000 0AEB0E D1 29 7F WRITE.W $297F 0AEB11 10 10 BR $010 ; => $0AEB23 0AEB13 C1 29 7F READ.W $297F 0AEB16 3C 80 00 PUSH.W $8000 0AEB19 28 SUB.L 0AEB1A 42 PUSH.6 $02 0AEB1B 29 MUL.L 0AEB1C 3C 80 00 PUSH.W $8000 0AEB1F 27 ADD.L 0AEB20 D1 29 7F WRITE.W $297F 0AEB23 30 01 7C BSR.68K $017C ; => $0AE9AA 0AEB26 10 63 BR $063 ; => $0AEB8B 0AEB28 10 57 D0 CASE $D0 ; SWITCH $0AEACF 0AEB2B C1 29 7F READ.W $297F 0AEB2E 3C 80 00 PUSH.W $8000 0AEB31 2A EQ.L 0AEB32 18 06 BRZ $006 ; => $0AEB3A 0AEB34 40 PUSH.6 $00 0AEB35 D1 29 7F WRITE.W $297F 0AEB38 10 42 BR $042 ; => $0AEB7C 0AEB3A C1 29 7F READ.W $297F 0AEB3D 3C 80 01 PUSH.W $8001 0AEB40 2A EQ.L 0AEB41 18 08 BRZ $008 ; => $0AEB4B 0AEB43 3C 80 00 PUSH.W $8000 0AEB46 D1 29 7F WRITE.W $297F 0AEB49 10 31 BR $031 ; => $0AEB7C 0AEB4B C1 29 7F READ.W $297F 0AEB4E 3C FF FF PUSH.W $FFFF 0AEB51 2A EQ.L 0AEB52 18 08 BRZ $008 ; => $0AEB5C 0AEB54 3C C0 00 PUSH.W $C000 0AEB57 D1 29 7F WRITE.W $297F 0AEB5A 10 20 BR $020 ; => $0AEB7C 0AEB5C C1 29 7F READ.W $297F 0AEB5F 40 PUSH.6 $00 0AEB60 2A EQ.L 0AEB61 18 08 BRZ $008 ; => $0AEB6B 0AEB63 3C FF FF PUSH.W $FFFF 0AEB66 D1 29 7F WRITE.W $297F 0AEB69 10 11 BR $011 ; => $0AEB7C 0AEB6B C1 29 7F READ.W $297F 0AEB6E 3C 80 00 PUSH.W $8000 0AEB71 28 SUB.L 0AEB72 42 PUSH.6 $02 0AEB73 03 24 DIV.L 0AEB75 3C 80 00 PUSH.W $8000 0AEB78 27 ADD.L 0AEB79 D1 29 7F WRITE.W $297F 0AEB7C 30 01 D5 BSR.68K $01D5 ; => $0AE9AA 0AEB7F 10 0A BR $00A ; => $0AEB8B 0AEB81 20 04 10 50 CASE $10, $50 ; SWITCH $0AEACF 0AEB85 10 04 BR $004 ; => $0AEB8B 0AEB87 00 DEFAULT ; SWITCH $0AEACF 0AEB88 30 02 B1 BSR.68K $02B1 ; => $0AE8DA => $09D9DE 0AEB8B 34 RETURN ; ---------------- End Function $0AEAC6 ---------------- ; ---------------- Begin 2144 Function $0AEB8C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC57 ; addr bytes opcode operands comment 0AEB93 80 20 READ.B $20 0AEB95 35 SWITCH 0AEB96 10 29 50 CASE $50 ; SWITCH $0AEB95 0AEB99 C1 29 81 READ.W $2981 0AEB9C C1 29 7F READ.W $297F 0AEB9F 2C AND.L 0AEBA0 C1 29 81 READ.W $2981 0AEBA3 2A EQ.L 0AEBA4 18 0C BRZ $00C ; => $0AEBB2 0AEBA6 C1 29 7F READ.W $297F 0AEBA9 C1 29 81 READ.W $2981 0AEBAC 28 SUB.L 0AEBAD D1 29 7F WRITE.W $297F 0AEBB0 10 0A BR $00A ; => $0AEBBC 0AEBB2 C1 29 7F READ.W $297F 0AEBB5 C1 29 81 READ.W $2981 0AEBB8 27 ADD.L 0AEBB9 D1 29 7F WRITE.W $297F 0AEBBC 30 02 15 BSR.68K $0215 ; => $0AE9AA 0AEBBF 10 5A BR $05A ; => $0AEC1B 0AEBC1 10 26 90 CASE $90 ; SWITCH $0AEB95 0AEBC4 C1 29 81 READ.W $2981 0AEBC7 3C 80 00 PUSH.W $8000 0AEBCA 2A EQ.L 0AEBCB 18 09 BRZ $009 ; => $0AEBD6 0AEBCD 41 PUSH.6 $01 0AEBCE D1 29 81 WRITE.W $2981 0AEBD1 4F PUSH.6 $0F 0AEBD2 90 26 WRITE.B $26 0AEBD4 10 0E BR $00E ; => $0AEBE4 0AEBD6 C1 29 81 READ.W $2981 0AEBD9 42 PUSH.6 $02 0AEBDA 29 MUL.L 0AEBDB D1 29 81 WRITE.W $2981 0AEBDE 80 26 READ.B $26 0AEBE0 41 PUSH.6 $01 0AEBE1 28 SUB.L 0AEBE2 90 26 WRITE.B $26 0AEBE4 30 02 3D BSR.68K $023D ; => $0AE9AA 0AEBE7 10 32 BR $032 ; => $0AEC1B 0AEBE9 10 27 D0 CASE $D0 ; SWITCH $0AEB95 0AEBEC C1 29 81 READ.W $2981 0AEBEF 41 PUSH.6 $01 0AEBF0 2A EQ.L 0AEBF1 18 0B BRZ $00B ; => $0AEBFE 0AEBF3 3C 80 00 PUSH.W $8000 0AEBF6 D1 29 81 WRITE.W $2981 0AEBF9 40 PUSH.6 $00 0AEBFA 90 26 WRITE.B $26 0AEBFC 10 0F BR $00F ; => $0AEC0D 0AEBFE C1 29 81 READ.W $2981 0AEC01 42 PUSH.6 $02 0AEC02 03 24 DIV.L 0AEC04 D1 29 81 WRITE.W $2981 0AEC07 80 26 READ.B $26 0AEC09 41 PUSH.6 $01 0AEC0A 27 ADD.L 0AEC0B 90 26 WRITE.B $26 0AEC0D 30 02 66 BSR.68K $0266 ; => $0AE9AA 0AEC10 10 09 BR $009 ; => $0AEC1B 0AEC12 10 03 10 CASE $10 ; SWITCH $0AEB95 0AEC15 10 04 BR $004 ; => $0AEC1B 0AEC17 00 DEFAULT ; SWITCH $0AEB95 0AEC18 30 03 41 BSR.68K $0341 ; => $0AE8DA => $09D9DE 0AEC1B 34 RETURN ; ---------------- End Function $0AEB8C ---------------- ; ---------------- Begin 2144 Function $0AEC1C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AEC48:$0AEC67 ; called from $0AEC74:$0AECC2 ; addr bytes opcode operands comment 0AEC23 30 03 64 BSR.68K $0364 ; => $0AE8C2 => $0034AA (CLEARSCREEN) (NATIVE) 0AEC26 40 PUSH.6 $00 0AEC27 3F 1D 20 20 53 4F 46 54 57 DISP " SOFTWARE DAC MEMORY CALIB" 41 52 45 20 20 44 41 43 20 4D 45 4D 4F 52 59 20 20 43 41 4C 49 42 0AEC46 34 RETURN ; ---------------- End Function $0AEC1C ---------------- ; ---------------- Begin 2144 Function $0AEC48 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D9DE:$09DA16 ; addr bytes opcode operands comment 0AEC4F 80 1F READ.B $1F 0AEC51 04 4E PUSH.10 $04E 0AEC53 2B NEQ.L 0AEC54 80 1E READ.B $1E 0AEC56 04 50 PUSH.10 $050 0AEC58 2B NEQ.L 0AEC59 2D OR.L 0AEC5A 18 03 BRZ $003 ; => $0AEC5F 0AEC5C 40 PUSH.6 $00 0AEC5D 90 22 WRITE.B $22 0AEC5F 30 03 9A BSR.68K $039A ; => $0AE8C8 => $099642 0AEC62 C0 4E 69 READ.B $4E69 0AEC65 18 05 BRZ $005 ; => $0AEC6C 0AEC67 30 00 4E BSR.68K $004E ; => $0AEC1C 0AEC6A 10 03 BR $003 ; => $0AEC6F 0AEC6C 30 03 77 BSR.68K $0377 ; => $0AE8F8 0AEC6F 04 4D PUSH.10 $04D 0AEC71 90 21 WRITE.B $21 0AEC73 34 RETURN ; ---------------- End Function $0AEC48 ---------------- ; ---------------- Begin 2144 Function $0AEC74 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DC37 ; addr bytes opcode operands comment 0AEC7B 80 22 READ.B $22 0AEC7D 43 PUSH.6 $03 0AEC7E 03 26 GT.L 0AEC80 80 20 READ.B $20 0AEC82 04 44 PUSH.10 $044 0AEC84 2A EQ.L 0AEC85 2C AND.L 0AEC86 80 22 READ.B $22 0AEC88 43 PUSH.6 $03 0AEC89 03 27 LTE.L 0AEC8B 80 22 READ.B $22 0AEC8D 48 PUSH.6 $08 0AEC8E 03 26 GT.L 0AEC90 2C AND.L 0AEC91 80 20 READ.B $20 0AEC93 04 84 PUSH.10 $084 0AEC95 2A EQ.L 0AEC96 2C AND.L 0AEC97 2D OR.L 0AEC98 80 22 READ.B $22 0AEC9A 48 PUSH.6 $08 0AEC9B 03 27 LTE.L 0AEC9D 80 22 READ.B $22 0AEC9F 4E PUSH.6 $0E 0AECA0 03 26 GT.L 0AECA2 2C AND.L 0AECA3 80 20 READ.B $20 0AECA5 04 C4 PUSH.10 $0C4 0AECA7 2A EQ.L 0AECA8 2C AND.L 0AECA9 2D OR.L 0AECAA 18 08 BRZ $008 ; => $0AECB4 0AECAC 80 22 READ.B $22 0AECAE 41 PUSH.6 $01 0AECAF 27 ADD.L 0AECB0 90 22 WRITE.B $22 0AECB2 10 03 BR $003 ; => $0AECB7 0AECB4 40 PUSH.6 $00 0AECB5 90 22 WRITE.B $22 0AECB7 80 22 READ.B $22 0AECB9 4E PUSH.6 $0E 0AECBA 2A EQ.L 0AECBB 18 08 BRZ $008 ; => $0AECC5 0AECBD 04 FF PUSH.10 $0FF 0AECBF D0 4E 69 WRITE.B $4E69 0AECC2 30 00 A9 BSR.68K $00A9 ; => $0AEC1C 0AECC5 C0 4E 69 READ.B $4E69 0AECC8 18 2F BRZ $02F ; => $0AECF9 0AECCA 80 20 READ.B $20 0AECCC 35 SWITCH 0AECCD 10 06 50 CASE $50 ; SWITCH $0AECCC 0AECD0 30 03 DB BSR.68K $03DB ; => $0AE8F8 0AECD3 10 22 BR $022 ; => $0AECF7 0AECD5 10 06 90 CASE $90 ; SWITCH $0AECCC 0AECD8 30 03 F5 BSR.68K $03F5 ; => $0AE8E6 => $092608 0AECDB 10 1A BR $01A ; => $0AECF7 0AECDD 10 06 D0 CASE $D0 ; SWITCH $0AECCC 0AECE0 30 02 B7 BSR.68K $02B7 ; => $0AEA2C 0AECE3 10 12 BR $012 ; => $0AECF7 0AECE5 10 0C 10 CASE $10 ; SWITCH $0AECCC 0AECE8 C0 56 6D READ.B $566D 0AECEB 2E NOT.L 0AECEC 18 03 BRZ $003 ; => $0AECF1 0AECEE 30 04 11 BSR.68K $0411 ; => $0AE8E0 => $09EE20 0AECF1 10 04 BR $004 ; => $0AECF7 0AECF3 00 DEFAULT ; SWITCH $0AECCC 0AECF4 30 04 1D BSR.68K $041D ; => $0AE8DA => $09D9DE 0AECF7 10 03 BR $003 ; => $0AECFC 0AECF9 30 04 22 BSR.68K $0422 ; => $0AE8DA => $09D9DE 0AECFC 34 RETURN ; ---------------- End Function $0AEC74 ---------------- ; ---------------- Begin 2144 Function $0AED10 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AED56:$0AED60 ; called from $0AED64:$0AED79 ; addr bytes opcode operands comment 0AED17 40 PUSH.6 $00 0AED18 3F 20 4C 41 54 4C 4F 4E 20 DISP "LATLON DD^MMMMM' CHANGE" 44 44 5E 4D 4D 4D 4D 4D 27 20 20 20 20 20 20 20 20 20 20 43 48 41 4E 47 45 0AED3A 4B PUSH.6 $0B 0AED3B 30 00 34 BSR.68K $0034 ; => $0AED0A => $097B5C 0AED3E C0 35 46 READ.B $3546 0AED41 18 0C BRZ $00C ; => $0AED4F 0AED43 4B PUSH.6 $0B 0AED44 3F 05 4D 27 53 53 53 DISP "M'SSS" 0AED4B 4E PUSH.6 $0E 0AED4C 30 00 45 BSR.68K $0045 ; => $0AED0A => $097B5C 0AED4F 30 00 54 BSR.68K $0054 ; => $0AECFE => $099642 0AED52 4F PUSH.6 $0F 0AED53 90 2E WRITE.B $2E 0AED55 34 RETURN ; ---------------- End Function $0AED10 ---------------- ; ---------------- Begin 2144 Function $0AED56 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09A458:$09A58F ; addr bytes opcode operands comment 0AED5D 68 PUSH.6 $28 0AED5E 90 21 WRITE.B $21 0AED60 30 00 53 BSR.68K $0053 ; => $0AED10 0AED63 34 RETURN ; ---------------- End Function $0AED56 ---------------- ; ---------------- Begin 2144 Function $0AED64 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09DA58:$09DB6F ; addr bytes opcode operands comment 0AED6B 80 20 READ.B $20 0AED6D 35 SWITCH 0AED6E 10 0E D0 CASE $D0 ; SWITCH $0AED6D 0AED71 C0 35 46 READ.B $3546 0AED74 40 PUSH.6 $00 0AED75 2A EQ.L 0AED76 D0 35 46 WRITE.B $3546 0AED79 30 00 6C BSR.68K $006C ; => $0AED10 0AED7C 10 0B BR $00B ; => $0AED89 0AED7E 30 05 90 50 10 CASE $90, $50, $10 ; SWITCH $0AED6D 0AED83 10 04 BR $004 ; => $0AED89 0AED85 00 DEFAULT ; SWITCH $0AED6D 0AED86 30 00 85 BSR.68K $0085 ; => $0AED04 => $09D9DE 0AED89 34 RETURN ; ---------------- End Function $0AED64 ---------------- ; ---------------- Begin 2144 Function $0AEDF0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000E66:$000F0C ; addr bytes opcode operands comment 0AEDF7 31 02 SUBSP.B $02 0AEDF9 30 00 18 BSR.68K $0018 ; => $0AEDE4 => $09FDFE 0AEDFC C0 28 90 READ.B $2890 0AEDFF 2B NEQ.L 0AEE00 18 05 BRZ $005 ; => $0AEE07 0AEE02 04 FF PUSH.10 $0FF 0AEE04 D0 28 B0 WRITE.B $28B0 0AEE07 41 PUSH.6 $01 0AEE08 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AEE0B 60 PUSH.6 $20 0AEE0C 38 00 68 BLS.B $0068 ; => $0AEE77 0AEE0F 84 00 READ.B $00 0AEE11 E0 21 A9 READ.B $21A9 0AEE14 41 PUSH.6 $01 0AEE15 2A EQ.L 0AEE16 84 00 READ.B $00 0AEE18 E0 02 29 READ.B $0229 0AEE1B 7F PUSH.6 $3F 0AEE1C 2A EQ.L 0AEE1D 2C AND.L 0AEE1E 94 01 WRITE.B $01 0AEE20 84 00 READ.B $00 0AEE22 30 00 4D BSR.68K $004D ; => $0AEDD8 => $09FEDC 0AEE25 84 00 READ.B $00 0AEE27 E0 18 59 READ.B $1859 0AEE2A 2B NEQ.L 0AEE2B 84 01 READ.B $01 0AEE2D C1 29 FD READ.W $29FD 0AEE30 84 00 READ.B $00 0AEE32 E1 01 61 READ.W $0161 0AEE35 28 SUB.L 0AEE36 41 PUSH.6 $01 0AEE37 03 25 LT.L 0AEE39 2C AND.L 0AEE3A 2D OR.L 0AEE3B 18 0C BRZ $00C ; => $0AEE49 0AEE3D 84 00 READ.B $00 0AEE3F 40 PUSH.6 $00 0AEE40 F1 01 61 WRITE.W $0161 0AEE43 84 00 READ.B $00 0AEE45 40 PUSH.6 $00 0AEE46 F2 01 E5 WRITE.L $01E5 0AEE49 84 00 READ.B $00 0AEE4B 30 00 70 BSR.68K $0070 ; => $0AEDDE => $09FE70 0AEE4E 84 00 READ.B $00 0AEE50 E0 20 FD READ.B $20FD 0AEE53 2B NEQ.L 0AEE54 84 01 READ.B $01 0AEE56 C1 29 FD READ.W $29FD 0AEE59 84 00 READ.B $00 0AEE5B E1 18 9B READ.W $189B 0AEE5E 28 SUB.L 0AEE5F 41 PUSH.6 $01 0AEE60 03 25 LT.L 0AEE62 2C AND.L 0AEE63 2D OR.L 0AEE64 18 0C BRZ $00C ; => $0AEE72 0AEE66 84 00 READ.B $00 0AEE68 40 PUSH.6 $00 0AEE69 F1 18 9B WRITE.W $189B 0AEE6C 84 00 READ.B $00 0AEE6E 40 PUSH.6 $00 0AEE6F F2 19 1F WRITE.L $191F 0AEE72 37 10 00 00 6C _23d2 $0000, $006C 0AEE77 32 02 ADDSP.B $02 0AEE79 34 RETURN ; ---------------- End Function $0AEDF0 ---------------- ; ---------------- Begin 2164 Function $0AEE7A ---------------- ; P0 = $0000; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $FFFFFFFF; D1 = $000004 ; called from $000FF4:$001019 ; called from $0AF21A:$0AF3E3 ; addr bytes opcode operands comment 0AEE83 31 1A SUBSP.B $1A 0AEE85 30 00 EC BSR.68K $00EC ; => $0AED9C => $094E22 0AEE88 97 0B WRITE.F $0B 0AEE8A 87 0B READ.F $0B 0AEE8C C2 21 03 READ.L $2103 0AEE8F 03 2A LONG2FLOAT 0AEE91 21 SUB.F 0AEE92 97 13 WRITE.F $13 0AEE94 87 13 READ.F $13 0AEE96 3B 41 44 6F 40 00 00 00 00 PUSH.F $41446F4000000000 ; float = 2678400.000000 0AEE9F 24 GT.F 0AEEA0 87 13 READ.F $13 0AEEA2 3E PUSH.W $0000 0AEEA3 03 21 LT.F 0AEEA5 2D OR.L 0AEEA6 C0 28 A8 READ.B $28A8 0AEEA9 2C AND.L 0AEEAA C0 28 AF READ.B $28AF 0AEEAD 2D OR.L 0AEEAE 2E NOT.L 0AEEAF D0 28 AC WRITE.B $28AC 0AEEB2 87 0B READ.F $0B 0AEEB4 C2 28 8F READ.L $288F 0AEEB7 03 2A LONG2FLOAT 0AEEB9 21 SUB.F 0AEEBA 97 1B WRITE.F $1B 0AEEBC 87 1B READ.F $1B 0AEEBE 3B 41 44 6F 40 00 00 00 00 PUSH.F $41446F4000000000 ; float = 2678400.000000 0AEEC7 24 GT.F 0AEEC8 87 1B READ.F $1B 0AEECA 3E PUSH.W $0000 0AEECB 03 21 LT.F 0AEECD 2D OR.L 0AEECE C0 28 AA READ.B $28AA 0AEED1 2C AND.L 0AEED2 C0 28 B0 READ.B $28B0 0AEED5 2D OR.L 0AEED6 2E NOT.L 0AEED7 D0 28 AE WRITE.B $28AE 0AEEDA 04 FF PUSH.10 $0FF 0AEEDC 94 1D WRITE.B $1D 0AEEDE C0 29 00 READ.B $2900 0AEEE1 18 6F BRZ $06F ; => $0AEF52 0AEEE3 41 PUSH.6 $01 0AEEE4 36 10 1C _2362 $001C ; A0 = $004000; (A0) = A6 + $0 0AEEE7 60 PUSH.6 $20 0AEEE8 38 00 67 BLS.B $0067 ; => $0AEF52 0AEEEB 84 1C READ.B $1C 0AEEED E0 02 29 READ.B $0229 0AEEF0 40 PUSH.6 $00 0AEEF1 2A EQ.L 0AEEF2 18 59 BRZ $059 ; => $0AEF4D 0AEEF4 84 1C READ.B $1C 0AEEF6 E0 22 D3 READ.B $22D3 0AEEF9 40 PUSH.6 $00 0AEEFA 2A EQ.L 0AEEFB 84 1C READ.B $1C 0AEEFD E1 01 61 READ.W $0161 0AEF00 40 PUSH.6 $00 0AEF01 2A EQ.L 0AEF02 87 0B READ.F $0B 0AEF04 84 1C READ.B $1C 0AEF06 E1 01 61 READ.W $0161 0AEF09 3D 00 09 3A 80 PUSH.L $00093A80 0AEF0E 29 MUL.L 0AEF0F 84 1C READ.B $1C 0AEF11 E2 01 E5 READ.L $01E5 0AEF14 27 ADD.L 0AEF15 03 2A LONG2FLOAT 0AEF17 21 SUB.F 0AEF18 3B 41 44 6F 40 00 00 00 00 PUSH.F $41446F4000000000 ; float = 2678400.000000 0AEF21 24 GT.F 0AEF22 2D OR.L 0AEF23 2C AND.L 0AEF24 84 1C READ.B $1C 0AEF26 E1 18 9B READ.W $189B 0AEF29 40 PUSH.6 $00 0AEF2A 2A EQ.L 0AEF2B 87 0B READ.F $0B 0AEF2D 84 1C READ.B $1C 0AEF2F E2 19 1F READ.L $191F 0AEF32 03 2A LONG2FLOAT 0AEF34 21 SUB.F 0AEF35 3B 41 44 6F 40 00 00 00 00 PUSH.F $41446F4000000000 ; float = 2678400.000000 0AEF3E 24 GT.F 0AEF3F 2D OR.L 0AEF40 2C AND.L 0AEF41 84 1C READ.B $1C 0AEF43 E0 35 7B READ.B $357B 0AEF46 2E NOT.L 0AEF47 2C AND.L 0AEF48 18 03 BRZ $003 ; => $0AEF4D 0AEF4A 40 PUSH.6 $00 0AEF4B 94 1D WRITE.B $1D 0AEF4D 37 10 1C 00 6B _23d2 $001C, $006B 0AEF52 84 1D READ.B $1D 0AEF54 D0 28 AB WRITE.B $28AB 0AEF57 84 1D READ.B $1D 0AEF59 C0 28 AC READ.B $28AC 0AEF5C 2C AND.L 0AEF5D C0 28 AE READ.B $28AE 0AEF60 2C AND.L 0AEF61 96 03 WRITE.L $03 0AEF63 32 1A ADDSP.B $1A 0AEF65 34 RETURN ; ---------------- End Function $0AEE7A ---------------- ; ---------------- Begin 2144 Function $0AEF66 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AF0C0:$0AF0CF ; addr bytes opcode operands comment 0AEF6D 40 PUSH.6 $00 0AEF6E D4 01 34 WRITE.B $0134 0AEF71 3B 40 59 00 00 00 00 00 00 PUSH.F $4059000000000000 ; float = 100.000000 0AEF7A 03 20 NEG.W 0AEF7C D7 01 3D WRITE.F $013D 0AEF7F 41 PUSH.6 $01 0AEF80 36 11 0D _2362 $010D ; A0 = $004000; (A0) = A6 + $0 0AEF83 60 PUSH.6 $20 0AEF84 38 00 50 BLS.B $0050 ; => $0AEFD7 0AEF87 C4 01 0D READ.B $010D 0AEF8A E4 01 33 READ.B $0133 0AEF8D 2E NOT.L 0AEF8E C4 01 0D READ.B $010D 0AEF91 E0 22 D3 READ.B $22D3 0AEF94 2E NOT.L 0AEF95 2C AND.L 0AEF96 C4 01 0D READ.B $010D 0AEF99 E0 02 29 READ.B $0229 0AEF9C 40 PUSH.6 $00 0AEF9D 2A EQ.L 0AEF9E C4 01 0D READ.B $010D 0AEFA1 E0 22 F5 READ.B $22F5 0AEFA4 2D OR.L 0AEFA5 2C AND.L 0AEFA6 18 2A BRZ $02A ; => $0AEFD2 0AEFA8 C4 01 0D READ.B $010D 0AEFAB E3 23 FF READ.F $23FF 0AEFAE D7 01 45 WRITE.F $0145 0AEFB1 C7 01 45 READ.F $0145 0AEFB4 3E PUSH.W $0000 0AEFB5 03 21 LT.F 0AEFB7 18 04 BRZ $004 ; => $0AEFBD 0AEFB9 3E PUSH.W $0000 0AEFBA D7 01 45 WRITE.F $0145 0AEFBD C7 01 45 READ.F $0145 0AEFC0 C7 01 3D READ.F $013D 0AEFC3 24 GT.F 0AEFC4 18 0C BRZ $00C ; => $0AEFD2 0AEFC6 C4 01 0D READ.B $010D 0AEFC9 D4 01 34 WRITE.B $0134 0AEFCC C7 01 45 READ.F $0145 0AEFCF D7 01 3D WRITE.F $013D 0AEFD2 37 11 0D 00 54 _23d2 $010D, $0054 0AEFD7 C4 01 34 READ.B $0134 0AEFDA 40 PUSH.6 $00 0AEFDB 2A EQ.L 0AEFDC 18 34 BRZ $034 ; => $0AF012 0AEFDE 04 FF PUSH.10 $0FF 0AEFE0 D4 01 46 WRITE.B $0146 0AEFE3 41 PUSH.6 $01 0AEFE4 36 11 0D _2362 $010D ; A0 = $004000; (A0) = A6 + $0 0AEFE7 60 PUSH.6 $20 0AEFE8 38 00 18 BLS.B $0018 ; => $0AF003 0AEFEB C4 01 0D READ.B $010D 0AEFEE E4 01 33 READ.B $0133 0AEFF1 18 04 BRZ $004 ; => $0AEFF7 0AEFF3 40 PUSH.6 $00 0AEFF4 D4 01 46 WRITE.B $0146 0AEFF7 C4 01 0D READ.B $010D 0AEFFA 40 PUSH.6 $00 0AEFFB F4 01 33 WRITE.B $0133 0AEFFE 37 11 0D 00 1C _23d2 $010D, $001C 0AF003 C4 01 46 READ.B $0146 0AF006 18 0A BRZ $00A ; => $0AF012 0AF008 C4 01 35 READ.B $0135 0AF00B 60 PUSH.6 $20 0AF00C 2F MOD.L 0AF00D 41 PUSH.6 $01 0AF00E 27 ADD.L 0AF00F D4 01 34 WRITE.B $0134 0AF012 C4 01 34 READ.B $0134 0AF015 1F 56 BRZ $-AA ; => $0AEF6D 0AF017 C4 01 0E READ.B $010E 0AF01A C4 01 34 READ.B $0134 0AF01D F0 40 09 WRITE.B $4009 0AF020 C4 01 34 READ.B $0134 0AF023 04 FF PUSH.10 $0FF 0AF025 F4 01 33 WRITE.B $0133 0AF028 C4 01 34 READ.B $0134 0AF02B D4 01 35 WRITE.B $0135 0AF02E C4 01 34 READ.B $0134 0AF031 D4 01 0F WRITE.B $010F 0AF034 C7 01 3D READ.F $013D 0AF037 3E PUSH.W $0000 0AF038 24 GT.F 0AF039 18 3F BRZ $03F ; => $0AF07A 0AF03B C4 01 34 READ.B $0134 0AF03E E1 01 61 READ.W $0161 0AF041 40 PUSH.6 $00 0AF042 2B NEQ.L 0AF043 18 13 BRZ $013 ; => $0AF058 0AF045 C4 01 34 READ.B $0134 0AF048 C1 29 FD READ.W $29FD 0AF04B 30 02 AC BSR.68K $02AC ; => $0AEDA2 => $094DD8 0AF04E 04 FF PUSH.10 $0FF 0AF050 C4 01 0E READ.B $010E 0AF053 30 02 96 BSR.68K $0296 ; => $0AEDC0 => $0AD4F0 0AF056 10 0E BR $00E ; => $0AF066 0AF058 C4 01 34 READ.B $0134 0AF05B C1 29 FD READ.W $29FD 0AF05E 30 02 BF BSR.68K $02BF ; => $0AEDA2 => $094DD8 0AF061 04 FF PUSH.10 $0FF 0AF063 30 02 AC BSR.68K $02AC ; => $0AEDBA => $0AD08A 0AF066 40 PUSH.6 $00 0AF067 D4 01 0C WRITE.B $010C 0AF06A C4 01 0E READ.B $010E 0AF06D 30 02 AA BSR.68K $02AA ; => $0AEDC6 => $0951BC 0AF070 B7 61 WRITE.F $61 0AF072 C4 01 0E READ.B $010E 0AF075 3E PUSH.W $0000 0AF076 B7 B1 WRITE.F $B1 0AF078 10 45 BR $045 ; => $0AF0BF 0AF07A 4B PUSH.6 $0B 0AF07B D4 01 0C WRITE.B $010C 0AF07E C4 01 0E READ.B $010E 0AF081 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0AF08A B7 61 WRITE.F $61 0AF08C C4 01 0E READ.B $010E 0AF08F C3 28 E3 READ.F $28E3 0AF092 3E PUSH.W $0000 0AF093 26 EQ.F 0AF094 18 0D BRZ $00D ; => $0AF0A3 0AF096 3B 40 CD 4C 00 00 00 00 00 PUSH.F $40CD4C0000000000 ; float = 15000.000000 0AF09F 03 20 NEG.W 0AF0A1 10 0B BR $00B ; => $0AF0AE 0AF0A3 3B 40 B3 88 00 00 00 00 00 PUSH.F $40B3880000000000 ; float = 5000.000000 0AF0AC 03 20 NEG.W 0AF0AE B7 B1 WRITE.F $B1 0AF0B0 C4 01 0E READ.B $010E 0AF0B3 3B 40 7F 40 00 00 00 00 00 PUSH.F $407F400000000000 ; float = 500.000000 0AF0BC F7 01 01 WRITE.F $0101 0AF0BF 34 RETURN ; ---------------- End Function $0AEF66 ---------------- ; ---------------- Begin 2144 Function $0AF0C0 ---------------- ; A0 = $004008; (A0) = SP - $1 ; called from $0AF21A:$0AF348 ; addr bytes opcode operands comment 0AF0C7 C4 01 0C READ.B $010C 0AF0CA 04 FF PUSH.10 $0FF 0AF0CC 2A EQ.L 0AF0CD 18 05 BRZ $005 ; => $0AF0D4 0AF0CF 30 01 6C BSR.68K $016C ; => $0AEF66 0AF0D2 11 28 BR $128 ; => $0AF1FC 0AF0D4 C4 01 0C READ.B $010C 0AF0D7 4B PUSH.6 $0B 0AF0D8 2A EQ.L 0AF0D9 18 A6 BRZ $0A6 ; => $0AF181 0AF0DB C4 01 0E READ.B $010E 0AF0DE E0 4C B3 READ.B $4CB3 0AF0E1 5E PUSH.6 $1E 0AF0E2 2A EQ.L 0AF0E3 C4 01 0E READ.B $010E 0AF0E6 E0 4C BD READ.B $4CBD 0AF0E9 5E PUSH.6 $1E 0AF0EA 2A EQ.L 0AF0EB 2D OR.L 0AF0EC C4 01 0E READ.B $010E 0AF0EF E0 4C B3 READ.B $4CB3 0AF0F2 64 PUSH.6 $24 0AF0F3 2A EQ.L 0AF0F4 2D OR.L 0AF0F5 C4 01 0E READ.B $010E 0AF0F8 E0 4C BD READ.B $4CBD 0AF0FB 64 PUSH.6 $24 0AF0FC 2A EQ.L 0AF0FD 2D OR.L 0AF0FE 18 37 BRZ $037 ; => $0AF137 0AF100 C4 01 0E READ.B $010E 0AF103 E7 01 01 READ.F $0101 0AF106 3B 40 7F 40 00 00 00 00 00 PUSH.F $407F400000000000 ; float = 500.000000 0AF10F 26 EQ.F 0AF110 18 14 BRZ $014 ; => $0AF126 0AF112 C4 01 0E READ.B $010E 0AF115 C4 01 0E READ.B $010E 0AF118 A7 B1 READ.F $B1 0AF11A 3B 40 6F 40 00 00 00 00 00 PUSH.F $406F400000000000 ; float = 250.000000 0AF123 21 SUB.F 0AF124 B7 B1 WRITE.F $B1 0AF126 C4 01 0E READ.B $010E 0AF129 3B 40 49 00 00 00 00 00 00 PUSH.F $4049000000000000 ; float = 50.000000 0AF132 F7 01 01 WRITE.F $0101 0AF135 10 0F BR $00F ; => $0AF146 0AF137 C4 01 0E READ.B $010E 0AF13A 3B 40 7F 40 00 00 00 00 00 PUSH.F $407F400000000000 ; float = 500.000000 0AF143 F7 01 01 WRITE.F $0101 0AF146 C4 01 0E READ.B $010E 0AF149 C4 01 0E READ.B $010E 0AF14C A7 B1 READ.F $B1 0AF14E C4 01 0E READ.B $010E 0AF151 E7 01 01 READ.F $0101 0AF154 20 ADD.F 0AF155 B7 B1 WRITE.F $B1 0AF157 C4 01 0E READ.B $010E 0AF15A A7 B1 READ.F $B1 0AF15C C3 28 E3 READ.F $28E3 0AF15F 3E PUSH.W $0000 0AF160 26 EQ.F 0AF161 18 0B BRZ $00B ; => $0AF16E 0AF163 3B 40 CD 4C 00 00 00 00 00 PUSH.F $40CD4C0000000000 ; float = 15000.000000 0AF16C 10 09 BR $009 ; => $0AF177 0AF16E 3B 40 B3 88 00 00 00 00 00 PUSH.F $40B3880000000000 ; float = 5000.000000 0AF177 25 GTE.F 0AF178 18 05 BRZ $005 ; => $0AF17F 0AF17A 04 FF PUSH.10 $0FF 0AF17C D4 01 0C WRITE.B $010C 0AF17F 10 7B BR $07B ; => $0AF1FC 0AF181 C4 01 0C READ.B $010C 0AF184 4A PUSH.6 $0A 0AF185 2A EQ.L 0AF186 18 47 BRZ $047 ; => $0AF1CF 0AF188 4B PUSH.6 $0B 0AF189 D4 01 0C WRITE.B $010C 0AF18C C4 01 0E READ.B $010E 0AF18F 3B 41 4F 38 30 00 00 00 00 PUSH.F $414F383000000000 ; float = 4092000.000000 0AF198 B7 61 WRITE.F $61 0AF19A C4 01 0E READ.B $010E 0AF19D C3 28 E3 READ.F $28E3 0AF1A0 3E PUSH.W $0000 0AF1A1 26 EQ.F 0AF1A2 18 0D BRZ $00D ; => $0AF1B1 0AF1A4 3B 40 CD 4C 00 00 00 00 00 PUSH.F $40CD4C0000000000 ; float = 15000.000000 0AF1AD 03 20 NEG.W 0AF1AF 10 0B BR $00B ; => $0AF1BC 0AF1B1 3B 40 B3 88 00 00 00 00 00 PUSH.F $40B3880000000000 ; float = 5000.000000 0AF1BA 03 20 NEG.W 0AF1BC B7 B1 WRITE.F $B1 0AF1BE C4 01 0E READ.B $010E 0AF1C1 3B 40 7F 40 00 00 00 00 00 PUSH.F $407F400000000000 ; float = 500.000000 0AF1CA F7 01 01 WRITE.F $0101 0AF1CD 10 2D BR $02D ; => $0AF1FC 0AF1CF C4 01 0C READ.B $010C 0AF1D2 41 PUSH.6 $01 0AF1D3 27 ADD.L 0AF1D4 D4 01 0C WRITE.B $010C 0AF1D7 C4 01 0E READ.B $010E 0AF1DA 04 64 PUSH.10 $064 0AF1DC C4 01 0C READ.B $010C 0AF1DF 41 PUSH.6 $01 0AF1E0 27 ADD.L 0AF1E1 42 PUSH.6 $02 0AF1E2 03 24 DIV.L 0AF1E4 29 MUL.L 0AF1E5 03 2A LONG2FLOAT 0AF1E7 B7 B1 WRITE.F $B1 0AF1E9 C4 01 0C READ.B $010C 0AF1EC 41 PUSH.6 $01 0AF1ED 2C AND.L 0AF1EE 18 0C BRZ $00C ; => $0AF1FC 0AF1F0 C4 01 0E READ.B $010E 0AF1F3 C4 01 0E READ.B $010E 0AF1F6 A7 B1 READ.F $B1 0AF1F8 03 20 NEG.W 0AF1FA B7 B1 WRITE.F $B1 0AF1FC C4 01 0E READ.B $010E 0AF1FF C4 01 0C READ.B $010C 0AF202 F4 01 0B WRITE.B $010B 0AF205 C4 01 0F READ.B $010F 0AF208 C4 01 0E READ.B $010E 0AF20B A7 61 READ.F $61 0AF20D C4 01 0E READ.B $010E 0AF210 A7 B1 READ.F $B1 0AF212 20 ADD.F 0AF213 3E PUSH.W $0000 0AF214 40 PUSH.6 $00 0AF215 30 04 70 BSR.68K $0470 ; => $0AEDA8 => $093CC0 0AF218 34 RETURN ; ---------------- End Function $0AF0C0 ---------------- ; ---------------- Begin 2144 Function $0AF21A ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $000FF4:$00101F ; addr bytes opcode operands comment 0AF221 03 2D 01 48 SUBSP.W $0148 0AF225 42 PUSH.6 $02 0AF226 D0 29 E0 WRITE.B $29E0 0AF229 40 PUSH.6 $00 0AF22A D4 01 35 WRITE.B $0135 0AF22D 3E PUSH.W $0000 0AF22E 97 07 WRITE.F $07 0AF230 40 PUSH.6 $00 0AF231 D0 29 E1 WRITE.B $29E1 0AF234 40 PUSH.6 $00 0AF235 D0 29 E2 WRITE.B $29E2 0AF238 41 PUSH.6 $01 0AF239 36 11 0D _2362 $010D ; A0 = $004000; (A0) = A6 + $0 0AF23C 60 PUSH.6 $20 0AF23D 38 00 0C BLS.B $000C ; => $0AF24C 0AF240 C4 01 0D READ.B $010D 0AF243 40 PUSH.6 $00 0AF244 F4 01 33 WRITE.B $0133 0AF247 37 11 0D 00 10 _23d2 $010D, $0010 0AF24C 40 PUSH.6 $00 0AF24D 36 11 0E _2362 $010E ; A0 = $004000; (A0) = A6 + $0 0AF250 C0 29 9B READ.B $299B 0AF253 38 00 41 BLS.B $0041 ; => $0AF297 0AF256 C4 01 0E READ.B $010E 0AF259 E0 60 29 READ.B $6029 0AF25C 18 34 BRZ $034 ; => $0AF292 0AF25E C4 01 0E READ.B $010E 0AF261 D0 51 00 WRITE.B $5100 0AF264 C4 01 0E READ.B $010E 0AF267 04 FF PUSH.10 $0FF 0AF269 F4 01 0B WRITE.B $010B 0AF26C 30 04 D9 BSR.68K $04D9 ; => $0AED96 => $094F08 0AF26F 18 21 BRZ $021 ; => $0AF292 0AF271 C4 01 0E READ.B $010E 0AF274 E0 40 09 READ.B $4009 0AF277 D4 01 0F WRITE.B $010F 0AF27A C4 01 0F READ.B $010F 0AF27D E4 01 33 READ.B $0133 0AF280 2E NOT.L 0AF281 18 0F BRZ $00F ; => $0AF292 0AF283 C4 01 0F READ.B $010F 0AF286 04 FF PUSH.10 $0FF 0AF288 F4 01 33 WRITE.B $0133 0AF28B C4 01 0E READ.B $010E 0AF28E 4A PUSH.6 $0A 0AF28F F4 01 0B WRITE.B $010B 0AF292 37 11 0E 00 47 _23d2 $010E, $0047 0AF297 C0 35 4C READ.B $354C 0AF29A D0 51 00 WRITE.B $5100 0AF29D 30 05 04 BSR.68K $0504 ; => $0AED9C => $094E22 0AF2A0 97 0F WRITE.F $0F 0AF2A2 87 0F READ.F $0F 0AF2A4 87 07 READ.F $07 0AF2A6 25 GTE.F 0AF2A7 94 10 WRITE.B $10 0AF2A9 84 10 READ.B $10 0AF2AB 18 11 BRZ $011 ; => $0AF2BE 0AF2AD 30 04 E4 BSR.68K $04E4 ; => $0AEDCC => $0AA682 0AF2B0 87 0F READ.F $0F 0AF2B2 3B 3F F1 99 99 99 99 99 9A PUSH.F $3FF199999999999A ; float = 1.100000 0AF2BB 20 ADD.F 0AF2BC 97 07 WRITE.F $07 0AF2BE 04 FF PUSH.10 $0FF 0AF2C0 D0 59 F5 WRITE.B $59F5 0AF2C3 40 PUSH.6 $00 0AF2C4 36 11 0E _2362 $010E ; A0 = $004000; (A0) = A6 + $0 0AF2C7 C0 29 9B READ.B $299B 0AF2CA 38 00 ED BLS.B $00ED ; => $0AF3BA 0AF2CD C4 01 0E READ.B $010E 0AF2D0 E0 60 29 READ.B $6029 0AF2D3 18 E0 BRZ $0E0 ; => $0AF3B5 0AF2D5 C4 01 0E READ.B $010E 0AF2D8 D0 51 00 WRITE.B $5100 0AF2DB C4 01 0E READ.B $010E 0AF2DE E4 01 0B READ.B $010B 0AF2E1 D4 01 0C WRITE.B $010C 0AF2E4 C4 01 0E READ.B $010E 0AF2E7 E0 40 09 READ.B $4009 0AF2EA D4 01 0F WRITE.B $010F 0AF2ED C4 01 0F READ.B $010F 0AF2F0 E0 22 D3 READ.B $22D3 0AF2F3 C4 01 0F READ.B $010F 0AF2F6 E0 02 29 READ.B $0229 0AF2F9 40 PUSH.6 $00 0AF2FA 2B NEQ.L 0AF2FB C4 01 0F READ.B $010F 0AF2FE E0 22 F5 READ.B $22F5 0AF301 2E NOT.L 0AF302 2C AND.L 0AF303 2D OR.L 0AF304 18 05 BRZ $005 ; => $0AF30B 0AF306 04 FF PUSH.10 $0FF 0AF308 D4 01 0C WRITE.B $010C 0AF30B 30 05 78 BSR.68K $0578 ; => $0AED96 => $094F08 0AF30E 2E NOT.L 0AF30F C4 01 0C READ.B $010C 0AF312 04 FF PUSH.10 $0FF 0AF314 2A EQ.L 0AF315 2D OR.L 0AF316 18 35 BRZ $035 ; => $0AF34D 0AF318 C4 01 0E READ.B $010E 0AF31B 40 PUSH.6 $00 0AF31C F0 44 23 WRITE.B $4423 0AF31F C0 29 9C READ.B $299C 0AF322 18 0B BRZ $00B ; => $0AF32F 0AF324 C4 01 0E READ.B $010E 0AF327 C0 29 A0 READ.B $29A0 0AF32A 27 ADD.L 0AF32B 40 PUSH.6 $00 0AF32C F0 44 23 WRITE.B $4423 0AF32F C4 01 0F READ.B $010F 0AF332 C0 29 E1 READ.B $29E1 0AF335 2A EQ.L 0AF336 C4 01 11 READ.B $0111 0AF339 C4 01 0E READ.B $010E 0AF33C 2A EQ.L 0AF33D 2C AND.L 0AF33E 18 04 BRZ $004 ; => $0AF344 0AF340 40 PUSH.6 $00 0AF341 D0 29 E1 WRITE.B $29E1 0AF344 84 10 READ.B $10 0AF346 18 03 BRZ $003 ; => $0AF34B 0AF348 30 02 8B BSR.68K $028B ; => $0AF0C0 0AF34B 10 68 BR $068 ; => $0AF3B5 0AF34D C4 01 0E READ.B $010E 0AF350 04 FF PUSH.10 $0FF 0AF352 F0 44 23 WRITE.B $4423 0AF355 C0 29 9C READ.B $299C 0AF358 18 0B BRZ $00B ; => $0AF365 0AF35A C4 01 0E READ.B $010E 0AF35D C0 29 A0 READ.B $29A0 0AF360 27 ADD.L 0AF361 40 PUSH.6 $00 0AF362 F0 44 23 WRITE.B $4423 0AF365 C0 29 E1 READ.B $29E1 0AF368 40 PUSH.6 $00 0AF369 2A EQ.L 0AF36A 18 0C BRZ $00C ; => $0AF378 0AF36C C4 01 0F READ.B $010F 0AF36F D0 29 E1 WRITE.B $29E1 0AF372 C4 01 0E READ.B $010E 0AF375 D4 01 11 WRITE.B $0111 0AF378 30 05 CD BSR.68K $05CD ; => $0AEDAE => $094ED4 0AF37B 18 0E BRZ $00E ; => $0AF38B 0AF37D 30 05 CC BSR.68K $05CC ; => $0AEDB4 => $0018F8 0AF380 C4 01 0F READ.B $010F 0AF383 30 05 EA BSR.68K $05EA ; => $0AED9C => $094E22 0AF386 F3 22 B1 WRITE.F $22B1 0AF389 10 2A BR $02A ; => $0AF3B5 0AF38B C4 01 0F READ.B $010F 0AF38E C0 29 E1 READ.B $29E1 0AF391 2A EQ.L 0AF392 C4 01 0E READ.B $010E 0AF395 C4 01 11 READ.B $0111 0AF398 2A EQ.L 0AF399 2C AND.L 0AF39A 18 19 BRZ $019 ; => $0AF3B5 0AF39C C0 29 E2 READ.B $29E2 0AF39F D4 01 10 WRITE.B $0110 0AF3A2 C0 55 A4 READ.B $55A4 0AF3A5 D0 29 E2 WRITE.B $29E2 0AF3A8 C4 01 10 READ.B $0110 0AF3AB C0 29 E2 READ.B $29E2 0AF3AE 2B NEQ.L 0AF3AF 18 04 BRZ $004 ; => $0AF3B5 0AF3B1 40 PUSH.6 $00 0AF3B2 D1 29 E7 WRITE.W $29E7 0AF3B5 37 11 0E 00 F3 _23d2 $010E, $00F3 0AF3BA C0 50 BA READ.B $50BA 0AF3BD 18 03 BRZ $003 ; => $0AF3C2 0AF3BF 30 06 38 BSR.68K $0638 ; => $0AED8A => $0A7E94 0AF3C2 C0 55 70 READ.B $5570 0AF3C5 C1 56 27 READ.W $5627 0AF3C8 40 PUSH.6 $00 0AF3C9 2B NEQ.L 0AF3CA 2D OR.L 0AF3CB 18 03 BRZ $003 ; => $0AF3D0 0AF3CD 30 06 40 BSR.68K $0640 ; => $0AED90 => $0A96E2 0AF3D0 C0 29 5B READ.B $295B 0AF3D3 C0 29 64 READ.B $2964 0AF3D6 2D OR.L 0AF3D7 04 80 PUSH.10 $080 0AF3D9 48 PUSH.6 $08 0AF3DA 27 ADD.L 0AF3DB 44 PUSH.6 $04 0AF3DC 27 ADD.L 0AF3DD 2C AND.L 0AF3DE 18 03 BRZ $003 ; => $0AF3E3 0AF3E0 30 06 11 BSR.68K $0611 ; => $0AEDD2 => $0A4E0C 0AF3E3 30 05 6C BSR.68K $056C ; => $0AEE7A 0AF3E6 C0 55 A2 READ.B $55A2 0AF3E9 2E NOT.L 0AF3EA 2D OR.L 0AF3EB 1E AA BRZ $-156 ; => $0AF297 0AF3ED 40 PUSH.6 $00 0AF3EE 36 11 0E _2362 $010E ; A0 = $004000; (A0) = A6 + $0 0AF3F1 49 PUSH.6 $09 0AF3F2 38 00 16 BLS.B $0016 ; => $0AF40B 0AF3F5 C4 01 0E READ.B $010E 0AF3F8 3B 54 B2 49 AD 25 94 C3 7D PUSH.F $54B249AD2594C37D ; float = 10000000000000000159028911097599180468360808563945281389781327557747838772170381060813469985856815104.000000 0AF401 03 20 NEG.W 0AF403 F3 44 73 WRITE.F $4473 0AF406 37 11 0E 00 1A _23d2 $010E, $001A 0AF40B 41 PUSH.6 $01 0AF40C 36 11 0F _2362 $010F ; A0 = $004000; (A0) = A6 + $0 0AF40F 60 PUSH.6 $20 0AF410 38 00 0C BLS.B $000C ; => $0AF41F 0AF413 C4 01 0F READ.B $010F 0AF416 40 PUSH.6 $00 0AF417 F0 55 A1 WRITE.B $55A1 0AF41A 37 11 0F 00 10 _23d2 $010F, $0010 0AF41F 40 PUSH.6 $00 0AF420 36 11 0E _2362 $010E ; A0 = $004000; (A0) = A6 + $0 0AF423 C0 29 9B READ.B $299B 0AF426 38 00 17 BLS.B $0017 ; => $0AF440 0AF429 C4 01 0E READ.B $010E 0AF42C E0 40 09 READ.B $4009 0AF42F 18 0A BRZ $00A ; => $0AF43B 0AF431 C4 01 0E READ.B $010E 0AF434 E0 40 09 READ.B $4009 0AF437 41 PUSH.6 $01 0AF438 F0 55 A1 WRITE.B $55A1 0AF43B 37 11 0E 00 1D _23d2 $010E, $001D 0AF440 3E PUSH.W $0000 0AF441 D3 54 35 WRITE.F $5435 0AF444 30 06 5D BSR.68K $065D ; => $0AEDEA => $000C28 (NATIVE) 0AF447 03 2E 01 48 ADDSP.W $0148 0AF44B 34 RETURN ; ---------------- End Function $0AF21A ---------------- ; ---------------- Begin 2144 Function $0AF50C ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7B7 ; addr bytes opcode operands comment 0AF513 31 0A SUBSP.B $0A 0AF515 40 PUSH.6 $00 0AF516 D0 59 92 WRITE.B $5992 0AF519 30 00 5E BSR.68K $005E ; => $0AF4BE => $094E42 0AF51C C0 35 4C READ.B $354C 0AF51F E3 47 C7 READ.F $47C7 0AF522 3B 41 C2 06 42 00 00 00 00 PUSH.F $41C2064200000000 ; float = 604800000.000000 0AF52B 24 GT.F 0AF52C 18 37 BRZ $037 ; => $0AF565 0AF52E 04 FF PUSH.10 $0FF 0AF530 D0 59 92 WRITE.B $5992 0AF533 C0 35 4C READ.B $354C 0AF536 D0 51 00 WRITE.B $5100 0AF539 3B 41 C2 06 42 00 00 00 00 PUSH.F $41C2064200000000 ; float = 604800000.000000 0AF542 03 20 NEG.W 0AF544 30 00 83 BSR.68K $0083 ; => $0AF4C4 => $095216 0AF547 C0 35 4C READ.B $354C 0AF54A C0 35 4C READ.B $354C 0AF54D E3 47 C7 READ.F $47C7 0AF550 3B 41 C2 06 42 00 00 00 00 PUSH.F $41C2064200000000 ; float = 604800000.000000 0AF559 21 SUB.F 0AF55A F3 47 C7 WRITE.F $47C7 0AF55D C1 29 FD READ.W $29FD 0AF560 41 PUSH.6 $01 0AF561 27 ADD.L 0AF562 D1 29 FD WRITE.W $29FD 0AF565 C0 35 92 READ.B $3592 0AF568 18 07 BRZ $007 ; => $0AF571 0AF56A C0 35 92 READ.B $3592 0AF56D 41 PUSH.6 $01 0AF56E 28 SUB.L 0AF56F 10 03 BR $003 ; => $0AF574 0AF571 C0 29 9A READ.B $299A 0AF574 94 01 WRITE.B $01 0AF576 41 PUSH.6 $01 0AF577 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AF57A 84 01 READ.B $01 0AF57C 38 00 B1 BLS.B $00B1 ; => $0AF630 0AF57F 84 00 READ.B $00 0AF581 E0 60 29 READ.B $6029 0AF584 18 A5 BRZ $0A5 ; => $0AF62B 0AF586 C0 35 4C READ.B $354C 0AF589 E3 47 C7 READ.F $47C7 0AF58C 84 00 READ.B $00 0AF58E E3 47 C7 READ.F $47C7 0AF591 21 SUB.F 0AF592 97 09 WRITE.F $09 0AF594 87 09 READ.F $09 0AF596 3E PUSH.W $0000 0AF597 03 23 NEQ.F 0AF599 18 8A BRZ $08A ; => $0AF625 0AF59B C0 4E 69 READ.B $4E69 0AF59E 18 52 BRZ $052 ; => $0AF5F2 0AF5A0 04 FF PUSH.10 $0FF 0AF5A2 D0 4E 94 WRITE.B $4E94 0AF5A5 03 30 1A 2A 2A 2A 20 54 45 TRAP1 "*** TEST MODE ENABLED *** " 53 54 20 4D 4F 44 45 20 45 4E 41 42 4C 45 44 20 2A 2A 2A 20 0AF5C2 30 01 67 BSR.68K $0167 ; => $0AF45E => $094E22 0AF5C5 30 00 E6 BSR.68K $00E6 ; => $0AF4E2 => $0A03BC 0AF5C8 03 30 09 20 43 48 41 4E 4E TRAP1 " CHANNEL " 45 4C 20 0AF5D4 84 00 READ.B $00 0AF5D6 42 PUSH.6 $02 0AF5D7 30 01 04 BSR.68K $0104 ; => $0AF4D6 => $0A0036 0AF5DA 03 30 0D 20 53 48 49 46 54 TRAP1 " SHIFT TIME: " 20 54 49 4D 45 3A 20 0AF5EA 87 09 READ.F $09 0AF5EC 30 01 13 BSR.68K $0113 ; => $0AF4DC => $0A57D4 0AF5EF 30 01 22 BSR.68K $0122 ; => $0AF4D0 => $0A05A4 (NATIVE) 0AF5F2 87 09 READ.F $09 0AF5F4 30 01 A5 BSR.68K $01A5 ; => $0AF452 => $002B7E (NATIVE) 0AF5F7 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AF600 03 23 NEQ.F 0AF602 84 00 READ.B $00 0AF604 E0 4B A5 READ.B $4BA5 0AF607 2D OR.L 0AF608 18 12 BRZ $012 ; => $0AF61C 0AF60A 84 00 READ.B $00 0AF60C D0 51 00 WRITE.B $5100 0AF60F 87 09 READ.F $09 0AF611 30 01 50 BSR.68K $0150 ; => $0AF4C4 => $095216 0AF614 84 00 READ.B $00 0AF616 40 PUSH.6 $00 0AF617 F0 4B A5 WRITE.B $4BA5 0AF61A 10 07 BR $007 ; => $0AF623 0AF61C 84 00 READ.B $00 0AF61E 04 FF PUSH.10 $0FF 0AF620 F0 4B A5 WRITE.B $4BA5 0AF623 10 06 BR $006 ; => $0AF62B 0AF625 84 00 READ.B $00 0AF627 40 PUSH.6 $00 0AF628 F0 4B A5 WRITE.B $4BA5 0AF62B 37 10 00 00 B6 _23d2 $0000, $00B6 0AF630 32 0A ADDSP.B $0A 0AF632 34 RETURN ; ---------------- End Function $0AF50C ---------------- ; ---------------- Begin 2144 Function $0AF634 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7D6 ; addr bytes opcode operands comment 0AF63B 31 02 SUBSP.B $02 0AF63D C0 54 2C READ.B $542C 0AF640 18 03 BRZ $003 ; => $0AF645 0AF642 44 PUSH.6 $04 0AF643 10 0F BR $00F ; => $0AF654 0AF645 C3 28 F5 READ.F $28F5 0AF648 3B 40 0F 40 00 00 00 00 00 PUSH.F $400F400000000000 ; float = 3.906250 0AF651 22 MUL.F 0AF652 03 29 FLOAT2LONG 0AF654 94 00 WRITE.B $00 0AF656 84 00 READ.B $00 0AF658 40 PUSH.6 $00 0AF659 2B NEQ.L 0AF65A 84 00 READ.B $00 0AF65C C0 29 10 READ.B $2910 0AF65F 2B NEQ.L 0AF660 2C AND.L 0AF661 18 3A BRZ $03A ; => $0AF69D 0AF663 84 00 READ.B $00 0AF665 D0 29 10 WRITE.B $2910 0AF668 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AF671 C0 29 10 READ.B $2910 0AF674 05 00 PUSH.10 $100 0AF676 29 MUL.L 0AF677 03 2A LONG2FLOAT 0AF679 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AF682 20 ADD.F 0AF683 23 DIV.F 0AF684 D3 60 45 WRITE.F $6045 0AF687 30 01 D2 BSR.68K $01D2 ; => $0AF4B8 => $0A0648 0AF68A 30 02 2F BSR.68K $022F ; => $0AF45E => $094E22 0AF68D 3B 3F D0 62 4D D2 F1 A9 FC PUSH.F $3FD0624DD2F1A9FC ; float = 0.256000 0AF696 20 ADD.F 0AF697 D3 59 89 WRITE.F $5989 0AF69A 30 01 97 BSR.68K $0197 ; => $0AF506 => $095C50 0AF69D 32 02 ADDSP.B $02 0AF69F 34 RETURN ; ---------------- End Function $0AF634 ---------------- ; ---------------- Begin 2144 Function $0AF6A0 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7E5 ; addr bytes opcode operands comment 0AF6A7 31 02 SUBSP.B $02 0AF6A9 40 PUSH.6 $00 0AF6AA 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AF6AD C0 29 9A READ.B $299A 0AF6B0 38 00 47 BLS.B $0047 ; => $0AF6FA 0AF6B3 41 PUSH.6 $01 0AF6B4 4A PUSH.6 $0A 0AF6B5 29 MUL.L 0AF6B6 84 00 READ.B $00 0AF6B8 27 ADD.L 0AF6B9 40 PUSH.6 $00 0AF6BA 4A PUSH.6 $0A 0AF6BB 29 MUL.L 0AF6BC 84 00 READ.B $00 0AF6BE 27 ADD.L 0AF6BF E0 63 A1 READ.B $63A1 0AF6C2 F0 63 A1 WRITE.B $63A1 0AF6C5 40 PUSH.6 $00 0AF6C6 4A PUSH.6 $0A 0AF6C7 29 MUL.L 0AF6C8 84 00 READ.B $00 0AF6CA 27 ADD.L 0AF6CB 84 00 READ.B $00 0AF6CD E0 44 23 READ.B $4423 0AF6D0 F0 63 A1 WRITE.B $63A1 0AF6D3 84 00 READ.B $00 0AF6D5 E0 60 29 READ.B $6029 0AF6D8 84 00 READ.B $00 0AF6DA E0 40 09 READ.B $4009 0AF6DD 2C AND.L 0AF6DE 18 0F BRZ $00F ; => $0AF6EF 0AF6E0 84 00 READ.B $00 0AF6E2 D0 51 00 WRITE.B $5100 0AF6E5 84 00 READ.B $00 0AF6E7 30 02 38 BSR.68K $0238 ; => $0AF4B2 => $094F62 0AF6EA F0 44 23 WRITE.B $4423 0AF6ED 10 06 BR $006 ; => $0AF6F5 0AF6EF 84 00 READ.B $00 0AF6F1 40 PUSH.6 $00 0AF6F2 F0 44 23 WRITE.B $4423 0AF6F5 37 10 00 00 4D _23d2 $0000, $004D 0AF6FA 32 02 ADDSP.B $02 0AF6FC 34 RETURN ; ---------------- End Function $0AF6A0 ---------------- ; ---------------- Begin 2144 Function $0AF6FE ---------------- ; A0 = $004004; (A0) = SP + $3 ; called from $0AF722:$0AF7DD ; addr bytes opcode operands comment 0AF705 60 PUSH.6 $20 0AF706 4C PUSH.6 $0C 0AF707 30 02 A0 BSR.68K $02A0 ; => $0AF46A => $094D6E 0AF70A 86 03 READ.L $03 0AF70C C0 51 41 READ.B $5141 0AF70F C0 51 40 READ.B $5140 0AF712 C0 51 3F READ.B $513F 0AF715 C0 51 3E READ.B $513E 0AF718 30 02 1B BSR.68K $021B ; => $0AF500 => $095BF8 (NATIVE) 0AF71B F2 67 65 WRITE.L $6765 0AF71E 32 04 ADDSP.B $04 0AF720 34 RETURN ; ---------------- End Function $0AF6FE ---------------- ; ---------------- Begin 2144 Function $0AF722 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7E8 ; addr bytes opcode operands comment 0AF729 31 02 SUBSP.B $02 0AF72B 40 PUSH.6 $00 0AF72C 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AF72F C0 29 9A READ.B $299A 0AF732 38 00 B4 BLS.B $00B4 ; => $0AF7E9 0AF735 84 00 READ.B $00 0AF737 E0 60 29 READ.B $6029 0AF73A 18 A8 BRZ $0A8 ; => $0AF7E4 0AF73C 84 00 READ.B $00 0AF73E E0 44 23 READ.B $4423 0AF741 18 A1 BRZ $0A1 ; => $0AF7E4 0AF743 04 FF PUSH.10 $0FF 0AF745 D0 4E 73 WRITE.B $4E73 0AF748 84 00 READ.B $00 0AF74A D0 51 00 WRITE.B $5100 0AF74D 46 PUSH.6 $06 0AF74E 30 02 ED BSR.68K $02ED ; => $0AF464 => $094D12 0AF751 84 00 READ.B $00 0AF753 35 SWITCH 0AF754 10 06 00 CASE $00 ; SWITCH $0AF753 0AF757 30 02 EA BSR.68K $02EA ; => $0AF470 => $095B9C (NATIVE) 0AF75A 10 49 BR $049 ; => $0AF7A5 0AF75C 10 06 01 CASE $01 ; SWITCH $0AF753 0AF75F 30 02 EC BSR.68K $02EC ; => $0AF476 => $095BA2 (NATIVE) 0AF762 10 41 BR $041 ; => $0AF7A5 0AF764 10 06 02 CASE $02 ; SWITCH $0AF753 0AF767 30 02 EE BSR.68K $02EE ; => $0AF47C => $095BA8 (NATIVE) 0AF76A 10 39 BR $039 ; => $0AF7A5 0AF76C 10 06 03 CASE $03 ; SWITCH $0AF753 0AF76F 30 02 F0 BSR.68K $02F0 ; => $0AF482 => $095BAE (NATIVE) 0AF772 10 31 BR $031 ; => $0AF7A5 0AF774 10 06 04 CASE $04 ; SWITCH $0AF753 0AF777 30 02 F2 BSR.68K $02F2 ; => $0AF488 => $095BB4 (NATIVE) 0AF77A 10 29 BR $029 ; => $0AF7A5 0AF77C 10 06 05 CASE $05 ; SWITCH $0AF753 0AF77F 30 02 F4 BSR.68K $02F4 ; => $0AF48E => $095BBA (NATIVE) 0AF782 10 21 BR $021 ; => $0AF7A5 0AF784 10 06 06 CASE $06 ; SWITCH $0AF753 0AF787 30 02 F6 BSR.68K $02F6 ; => $0AF494 => $095BC0 (NATIVE) 0AF78A 10 19 BR $019 ; => $0AF7A5 0AF78C 10 06 07 CASE $07 ; SWITCH $0AF753 0AF78F 30 02 F8 BSR.68K $02F8 ; => $0AF49A => $095BC6 (NATIVE) 0AF792 10 11 BR $011 ; => $0AF7A5 0AF794 10 06 08 CASE $08 ; SWITCH $0AF753 0AF797 30 02 FA BSR.68K $02FA ; => $0AF4A0 => $095BCC (NATIVE) 0AF79A 10 09 BR $009 ; => $0AF7A5 0AF79C 10 06 09 CASE $09 ; SWITCH $0AF753 0AF79F 30 02 FC BSR.68K $02FC ; => $0AF4A6 => $095BD2 (NATIVE) 0AF7A2 10 01 BR $001 ; => $0AF7A5 0AF7A4 00 DEFAULT ; SWITCH $0AF753 0AF7A5 84 00 READ.B $00 0AF7A7 C0 29 9B READ.B $299B 0AF7AA 03 25 LT.L 0AF7AC C0 4E 72 READ.B $4E72 0AF7AF 2D OR.L 0AF7B0 18 1B BRZ $01B ; => $0AF7CD 0AF7B2 C0 29 10 READ.B $2910 0AF7B5 44 PUSH.6 $04 0AF7B6 03 25 LT.L 0AF7B8 C0 29 10 READ.B $2910 0AF7BB 4D PUSH.6 $0D 0AF7BC 03 28 GTE.L 0AF7BE 2C AND.L 0AF7BF 18 0C BRZ $00C ; => $0AF7CD 0AF7C1 4F PUSH.6 $0F 0AF7C2 30 03 61 BSR.68K $0361 ; => $0AF464 => $094D12 0AF7C5 30 03 1C BSR.68K $031C ; => $0AF4AC => $095B40 (NATIVE) 0AF7C8 84 00 READ.B $00 0AF7CA 30 02 DF BSR.68K $02DF ; => $0AF4EE => $095D08 0AF7CD C0 67 EC READ.B $67EC 0AF7D0 18 0E BRZ $00E ; => $0AF7E0 0AF7D2 84 00 READ.B $00 0AF7D4 C0 29 A0 READ.B $29A0 0AF7D7 03 26 GT.L 0AF7D9 18 05 BRZ $005 ; => $0AF7E0 0AF7DB 84 00 READ.B $00 0AF7DD 30 00 E2 BSR.68K $00E2 ; => $0AF6FE 0AF7E0 40 PUSH.6 $00 0AF7E1 D0 4E 73 WRITE.B $4E73 0AF7E4 37 10 00 00 BA _23d2 $0000, $00BA 0AF7E9 32 02 ADDSP.B $02 0AF7EB 34 RETURN ; ---------------- End Function $0AF722 ---------------- ; ---------------- Begin 2144 Function $0AF7EC ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7EE ; addr bytes opcode operands comment 0AF7F3 31 02 SUBSP.B $02 0AF7F5 C0 29 9C READ.B $299C 0AF7F8 18 36 BRZ $036 ; => $0AF830 0AF7FA C0 54 2C READ.B $542C 0AF7FD 40 PUSH.6 $00 0AF7FE 2A EQ.L 0AF7FF C0 35 92 READ.B $3592 0AF802 40 PUSH.6 $00 0AF803 2A EQ.L 0AF804 2C AND.L 0AF805 18 29 BRZ $029 ; => $0AF830 0AF807 C0 29 A0 READ.B $29A0 0AF80A 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AF80D C0 29 9A READ.B $299A 0AF810 38 00 1D BLS.B $001D ; => $0AF830 0AF813 84 00 READ.B $00 0AF815 E0 60 29 READ.B $6029 0AF818 18 11 BRZ $011 ; => $0AF82B 0AF81A 84 00 READ.B $00 0AF81C D0 51 00 WRITE.B $5100 0AF81F 30 03 28 BSR.68K $0328 ; => $0AF4FA => $094F08 0AF822 2E NOT.L 0AF823 18 06 BRZ $006 ; => $0AF82B 0AF825 84 00 READ.B $00 0AF827 40 PUSH.6 $00 0AF828 F0 44 23 WRITE.B $4423 0AF82B 37 10 00 00 23 _23d2 $0000, $0023 0AF830 32 02 ADDSP.B $02 0AF832 34 RETURN ; ---------------- End Function $0AF7EC ---------------- ; ---------------- Begin 2144 Function $0AF834 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $0AF84E:$0AF984 ; called from $0AF84E:$0AF9A7 ; addr bytes opcode operands comment 0AF83B 30 03 E0 BSR.68K $03E0 ; => $0AF45E => $094E22 0AF83E D3 59 89 WRITE.F $5989 0AF841 04 FF PUSH.10 $0FF 0AF843 D0 4E 73 WRITE.B $4E73 0AF846 30 03 55 BSR.68K $0355 ; => $0AF4F4 => $000C28 (NATIVE) 0AF849 40 PUSH.6 $00 0AF84A D0 4E 73 WRITE.B $4E73 0AF84D 34 RETURN ; ---------------- End Function $0AF834 ---------------- ; ---------------- Begin 2144 Function $0AF84E ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7F4 ; addr bytes opcode operands comment 0AF855 31 1C SUBSP.B $1C 0AF857 C1 29 0F READ.W $290F 0AF85A 40 PUSH.6 $00 0AF85B 03 25 LT.L 0AF85D C0 54 2C READ.B $542C 0AF860 40 PUSH.6 $00 0AF861 2A EQ.L 0AF862 2C AND.L 0AF863 19 3D BRZ $13D ; => $0AF9A2 0AF865 C1 29 0F READ.W $290F 0AF868 95 13 WRITE.W $13 0AF86A C0 29 10 READ.B $2910 0AF86D 03 2A LONG2FLOAT 0AF86F 3B 3F C0 62 4D D2 F1 A9 FC PUSH.F $3FC0624DD2F1A9FC ; float = 0.128000 0AF878 22 MUL.F 0AF879 97 09 WRITE.F $09 0AF87B 3B 3F B9 99 99 99 99 99 9A PUSH.F $3FB999999999999A ; float = 0.100000 0AF884 C1 29 0F READ.W $290F 0AF887 03 2A LONG2FLOAT 0AF889 22 MUL.F 0AF88A 97 11 WRITE.F $11 0AF88C 04 FF PUSH.10 $0FF 0AF88E D0 4E 12 WRITE.B $4E12 0AF891 04 FF PUSH.10 $0FF 0AF893 D0 4E 66 WRITE.B $4E66 0AF896 30 04 3B BSR.68K $043B ; => $0AF45E => $094E22 0AF899 97 1B WRITE.F $1B 0AF89B 87 1B READ.F $1B 0AF89D 87 09 READ.F $09 0AF89F 20 ADD.F 0AF8A0 3B 3F C0 62 4D D2 F1 A9 FC PUSH.F $3FC0624DD2F1A9FC ; float = 0.128000 0AF8A9 20 ADD.F 0AF8AA 87 11 READ.F $11 0AF8AC 23 DIV.F 0AF8AD 30 04 58 BSR.68K $0458 ; => $0AF458 => $002CA6 (NATIVE) 0AF8B0 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AF8B9 20 ADD.F 0AF8BA 87 11 READ.F $11 0AF8BC 22 MUL.F 0AF8BD D3 59 89 WRITE.F $5989 0AF8C0 C1 67 F1 READ.W $67F1 0AF8C3 40 PUSH.6 $00 0AF8C4 2B NEQ.L 0AF8C5 18 1D BRZ $01D ; => $0AF8E4 0AF8C7 C3 55 61 READ.F $5561 0AF8CA C1 67 F1 READ.W $67F1 0AF8CD 03 2A LONG2FLOAT 0AF8CF 3B 3F B9 99 99 99 99 99 9A PUSH.F $3FB999999999999A ; float = 0.100000 0AF8D8 22 MUL.F 0AF8D9 23 DIV.F 0AF8DA 30 04 91 BSR.68K $0491 ; => $0AF44C => $002C08 (NATIVE) 0AF8DD 3E PUSH.W $0000 0AF8DE 26 EQ.F 0AF8DF D0 56 70 WRITE.B $5670 0AF8E2 10 05 BR $005 ; => $0AF8E9 0AF8E4 04 FF PUSH.10 $0FF 0AF8E6 D0 56 70 WRITE.B $5670 0AF8E9 C3 59 89 READ.F $5989 0AF8EC D3 55 61 WRITE.F $5561 0AF8EF C3 59 89 READ.F $5989 0AF8F2 87 09 READ.F $09 0AF8F4 21 SUB.F 0AF8F5 3B 40 0F 40 00 00 00 00 00 PUSH.F $400F400000000000 ; float = 3.906250 0AF8FE 22 MUL.F 0AF8FF 3B 3F F0 00 00 00 00 00 00 PUSH.F $3FF0000000000000 ; float = 1.000000 0AF908 20 ADD.F 0AF909 30 04 B4 BSR.68K $04B4 ; => $0AF458 => $002CA6 (NATIVE) 0AF90C 3B 3F D0 62 4D D2 F1 A9 FC PUSH.F $3FD0624DD2F1A9FC ; float = 0.256000 0AF915 22 MUL.F 0AF916 D3 59 89 WRITE.F $5989 0AF919 C3 59 89 READ.F $5989 0AF91C 3B 3F C0 62 4D D2 F1 A9 FC PUSH.F $3FC0624DD2F1A9FC ; float = 0.128000 0AF925 21 SUB.F 0AF926 87 1B READ.F $1B 0AF928 21 SUB.F 0AF929 3B 40 49 00 00 00 00 00 00 PUSH.F $4049000000000000 ; float = 50.000000 0AF932 22 MUL.F 0AF933 03 29 FLOAT2LONG 0AF935 D1 60 3D WRITE.W $603D 0AF938 40 PUSH.6 $00 0AF939 D0 4E 66 WRITE.B $4E66 0AF93C C1 60 3D READ.W $603D 0AF93F 40 PUSH.6 $00 0AF940 2A EQ.L 0AF941 18 04 BRZ $004 ; => $0AF947 0AF943 41 PUSH.6 $01 0AF944 D1 60 3D WRITE.W $603D 0AF947 C1 60 3D READ.W $603D 0AF94A 59 PUSH.6 $19 0AF94B 03 25 LT.L 0AF94D 85 13 READ.W $13 0AF94F C1 29 0F READ.W $290F 0AF952 2A EQ.L 0AF953 2C AND.L 0AF954 18 05 BRZ $005 ; => $0AF95B 0AF956 30 04 8F BSR.68K $048F ; => $0AF4CA => $0ADF66 0AF959 17 EC BR $-14 ; => $0AF947 0AF95B 40 PUSH.6 $00 0AF95C D0 4E 12 WRITE.B $4E12 0AF95F 85 13 READ.W $13 0AF961 C1 29 0F READ.W $290F 0AF964 2A EQ.L 0AF965 C1 29 0F READ.W $290F 0AF968 40 PUSH.6 $00 0AF969 2A EQ.L 0AF96A 2D OR.L 0AF96B 1E F8 BRZ $-108 ; => $0AF865 0AF96D C1 29 0F READ.W $290F 0AF970 40 PUSH.6 $00 0AF971 03 25 LT.L 0AF973 18 0B BRZ $00B ; => $0AF980 0AF975 C1 60 3D READ.W $603D 0AF978 40 PUSH.6 $00 0AF979 2B NEQ.L 0AF97A 18 02 BRZ $002 ; => $0AF97E 0AF97C 17 F7 BR $-09 ; => $0AF975 0AF97E 10 07 BR $007 ; => $0AF987 0AF980 40 PUSH.6 $00 0AF981 D1 60 3D WRITE.W $603D 0AF984 30 01 53 BSR.68K $0153 ; => $0AF834 0AF987 C0 29 72 READ.B $2972 0AF98A C0 60 AC READ.B $60AC 0AF98D 2E NOT.L 0AF98E 2C AND.L 0AF98F C0 60 AE READ.B $60AE 0AF992 42 PUSH.6 $02 0AF993 03 26 GT.L 0AF995 2C AND.L 0AF996 18 08 BRZ $008 ; => $0AF9A0 0AF998 C0 60 AE READ.B $60AE 0AF99B 41 PUSH.6 $01 0AF99C 27 ADD.L 0AF99D D0 60 AE WRITE.B $60AE 0AF9A0 10 08 BR $008 ; => $0AF9AA 0AF9A2 04 FF PUSH.10 $0FF 0AF9A4 D0 56 70 WRITE.B $5670 0AF9A7 30 01 76 BSR.68K $0176 ; => $0AF834 0AF9AA C0 29 9D READ.B $299D 0AF9AD 2E NOT.L 0AF9AE 18 2E BRZ $02E ; => $0AF9DE 0AF9B0 40 PUSH.6 $00 0AF9B1 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AF9B4 C0 29 9A READ.B $299A 0AF9B7 38 00 24 BLS.B $0024 ; => $0AF9DE 0AF9BA 84 00 READ.B $00 0AF9BC E0 60 29 READ.B $6029 0AF9BF 84 00 READ.B $00 0AF9C1 E0 4E 11 READ.B $4E11 0AF9C4 2C AND.L 0AF9C5 18 12 BRZ $012 ; => $0AF9D9 0AF9C7 84 00 READ.B $00 0AF9C9 D0 51 00 WRITE.B $5100 0AF9CC 04 FF PUSH.10 $0FF 0AF9CE D0 4E 73 WRITE.B $4E73 0AF9D1 57 PUSH.6 $17 0AF9D2 30 05 71 BSR.68K $0571 ; => $0AF464 => $094D12 0AF9D5 40 PUSH.6 $00 0AF9D6 D0 4E 73 WRITE.B $4E73 0AF9D9 37 10 00 00 2A _23d2 $0000, $002A 0AF9DE 32 1C ADDSP.B $1C 0AF9E0 34 RETURN ; ---------------- End Function $0AF84E ---------------- ; ---------------- Begin 2144 Function $0AF9E2 ---------------- ; A0 = $004004; (A0) = SP - $1 ; called from $09D7A0:$09D7DF ; addr bytes opcode operands comment 0AF9E9 31 02 SUBSP.B $02 0AF9EB 40 PUSH.6 $00 0AF9EC 36 10 00 _2362 $0000 ; A0 = $004000; (A0) = A6 + $0 0AF9EF C0 29 9A READ.B $299A 0AF9F2 38 00 1D BLS.B $001D ; => $0AFA12 0AF9F5 84 00 READ.B $00 0AF9F7 E0 60 29 READ.B $6029 0AF9FA 84 00 READ.B $00 0AF9FC E0 4E 11 READ.B $4E11 0AF9FF 2C AND.L 0AFA00 18 0B BRZ $00B ; => $0AFA0D 0AFA02 84 00 READ.B $00 0AFA04 40 PUSH.6 $00 0AFA05 F0 4E 11 WRITE.B $4E11 0AFA08 84 00 READ.B $00 0AFA0A 30 05 25 BSR.68K $0525 ; => $0AF4E8 => $09CF34 0AFA0D 37 10 00 00 23 _23d2 $0000, $0023 0AFA12 32 02 ADDSP.B $02 0AFA14 34 RETURN ; ---------------- End Function $0AF9E2 ---------------- ; ---------------- Begin 2164 Function $0AFA16 ---------------- ; P0 = $0008; P1 = $0004; P2 = $01 ; A0 = $004004; (A0) = A6 + $7; D1 = $000004 ; called from $095D08:$095F70 ; called from $095D08:$095F76 ; called from $09CF68:$09CF85 ; addr bytes opcode operands comment 0AFA1F 86 07 READ.L $07 0AFA21 35 SWITCH 0AFA22 10 0A 00 CASE $00 ; SWITCH $0AFA21 0AFA25 86 0B READ.L $0B 0AFA27 E0 52 69 READ.B $5269 0AFA2A 96 03 WRITE.L $03 0AFA2C 10 6D BR $06D ; => $0AFA9B 0AFA2E 10 0A 01 CASE $01 ; SWITCH $0AFA21 0AFA31 86 0B READ.L $0B 0AFA33 E0 52 9B READ.B $529B 0AFA36 96 03 WRITE.L $03 0AFA38 10 61 BR $061 ; => $0AFA9B 0AFA3A 10 0A 02 CASE $02 ; SWITCH $0AFA21 0AFA3D 86 0B READ.L $0B 0AFA3F E0 52 CD READ.B $52CD 0AFA42 96 03 WRITE.L $03 0AFA44 10 55 BR $055 ; => $0AFA9B 0AFA46 10 0A 03 CASE $03 ; SWITCH $0AFA21 0AFA49 86 0B READ.L $0B 0AFA4B E0 52 FF READ.B $52FF 0AFA4E 96 03 WRITE.L $03 0AFA50 10 49 BR $049 ; => $0AFA9B 0AFA52 10 0A 04 CASE $04 ; SWITCH $0AFA21 0AFA55 86 0B READ.L $0B 0AFA57 E0 53 31 READ.B $5331 0AFA5A 96 03 WRITE.L $03 0AFA5C 10 3D BR $03D ; => $0AFA9B 0AFA5E 10 0A 05 CASE $05 ; SWITCH $0AFA21 0AFA61 86 0B READ.L $0B 0AFA63 E0 53 63 READ.B $5363 0AFA66 96 03 WRITE.L $03 0AFA68 10 31 BR $031 ; => $0AFA9B 0AFA6A 10 0A 06 CASE $06 ; SWITCH $0AFA21 0AFA6D 86 0B READ.L $0B 0AFA6F E0 53 95 READ.B $5395 0AFA72 96 03 WRITE.L $03 0AFA74 10 25 BR $025 ; => $0AFA9B 0AFA76 10 0A 07 CASE $07 ; SWITCH $0AFA21 0AFA79 86 0B READ.L $0B 0AFA7B E0 53 C7 READ.B $53C7 0AFA7E 96 03 WRITE.L $03 0AFA80 10 19 BR $019 ; => $0AFA9B 0AFA82 10 0A 08 CASE $08 ; SWITCH $0AFA21 0AFA85 86 0B READ.L $0B 0AFA87 E0 53 F9 READ.B $53F9 0AFA8A 96 03 WRITE.L $03 0AFA8C 10 0D BR $00D ; => $0AFA9B 0AFA8E 10 0A 09 CASE $09 ; SWITCH $0AFA21 0AFA91 86 0B READ.L $0B 0AFA93 E0 54 2B READ.B $542B 0AFA96 96 03 WRITE.L $03 0AFA98 10 01 BR $001 ; => $0AFA9B 0AFA9A 00 DEFAULT ; SWITCH $0AFA21 0AFA9B 32 08 ADDSP.B $08 0AFA9D 34 RETURN ; ---------------- End Function $0AFA16 ----------------