home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1995-12-15 | 14.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 04 0d 00 02 0e | ee 20 85 20 f6 3a f1 9e |........|. . .:..|
|00000010| 3a e0 0d 00 03 04 0d 00 | 04 09 5b 6f 70 74 30 0d |:.......|..[opt0.|
|00000020| 00 05 04 0d 00 06 3c 3b | 20 54 68 69 73 20 69 73 |......<;| This is|
|00000030| 20 61 20 73 69 6d 70 6c | 65 20 64 65 6d 6f 20 6f | a simpl|e demo o|
|00000040| 66 20 77 68 61 74 20 70 | 72 69 76 61 74 65 20 6d |f what p|rivate m|
|00000050| 65 73 73 61 67 65 73 20 | 63 61 6e 20 64 6f 2e 0d |essages |can do..|
|00000060| 00 07 48 3b 20 54 68 69 | 73 20 57 54 20 6d 6f 64 |..H; Thi|s WT mod|
|00000070| 75 6c 65 20 70 72 6f 76 | 69 64 65 73 20 74 68 65 |ule prov|ides the|
|00000080| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 42 41 53 49 43 | followi|ng BASIC|
|00000090| 20 61 73 73 65 6d 62 6c | 65 72 27 73 20 6d 6e 65 | assembl|er's mne|
|000000a0| 6d 6f 6e 69 63 73 3a 0d | 00 08 05 3b 0d 00 09 43 |monics:.|...;...C|
|000000b0| 3b 20 66 61 64 72 5b 3c | 63 6f 6e 64 3e 5d 20 3c |; fadr[<|cond>] <|
|000000c0| 72 65 67 3e 2c 3c 61 64 | 64 72 65 73 73 3e 20 20 |reg>,<ad|dress> |
|000000d0| 20 20 20 20 3b 20 2b 2f | 2d 20 36 34 4b 20 61 64 | ; +/|- 64K ad|
|000000e0| 72 20 28 38 20 62 79 74 | 65 20 63 6f 64 65 29 0d |r (8 byt|e code).|
|000000f0| 00 0a 44 3b 20 74 66 61 | 64 72 5b 3c 63 6f 6e 64 |..D; tfa|dr[<cond|
|00000100| 3e 5d 20 3c 72 65 67 3e | 2c 3c 61 64 64 72 65 73 |>] <reg>|,<addres|
|00000110| 73 3e 20 20 20 20 20 3b | 20 74 6f 6f 20 66 61 72 |s> ;| too far|
|00000120| 20 61 64 72 20 28 31 32 | 20 62 79 74 65 20 63 6f | adr (12| byte co|
|00000130| 64 65 29 0d 00 0b 05 3b | 0d 00 0c 47 3b 20 66 6c |de)....;|...G; fl|
|00000140| 64 72 5b 3c 63 6f 6e 64 | 3e 5d 5b 62 5d 20 3c 72 |dr[<cond|>][b] <r|
|00000150| 65 67 3e 2c 3c 61 64 64 | 72 65 73 73 3e 20 20 20 |eg>,<add|ress> |
|00000160| 3b 20 2b 2f 2d 20 31 4d | 62 20 6c 64 72 28 62 29 |; +/- 1M|b ldr(b)|
|00000170| 20 28 38 20 62 79 74 65 | 73 20 63 6f 64 65 29 0d | (8 byte|s code).|
|00000180| 00 0d 48 3b 20 74 66 6c | 64 72 5b 3c 63 6f 6e 64 |..H; tfl|dr[<cond|
|00000190| 3e 5d 5b 62 5d 20 3c 72 | 65 67 3e 2c 3c 61 64 64 |>][b] <r|eg>,<add|
|000001a0| 72 65 73 73 3e 20 20 3b | 20 74 6f 6f 20 66 61 72 |ress> ;| too far|
|000001b0| 20 6c 64 72 28 62 29 20 | 28 31 32 20 62 79 74 65 | ldr(b) |(12 byte|
|000001c0| 73 20 63 6f 64 65 29 0d | 00 0e 05 3b 0d 00 0f 51 |s code).|...;...Q|
|000001d0| 3b 20 66 73 74 72 5b 3c | 63 6f 6e 64 3e 5d 5b 62 |; fstr[<|cond>][b|
|000001e0| 5d 20 3c 72 65 67 3e 2c | 3c 74 65 6d 70 20 72 65 |] <reg>,|<temp re|
|000001f0| 67 3e 2c 3c 61 64 64 72 | 65 73 73 3e 20 20 3b 20 |g>,<addr|ess> ; |
|00000200| 2b 2f 2d 20 31 4d 62 20 | 73 74 72 28 62 29 20 28 |+/- 1Mb |str(b) (|
|00000210| 38 20 62 79 74 65 73 20 | 63 6f 64 65 29 0d 00 10 |8 bytes |code)...|
|00000220| 52 3b 20 74 66 73 74 72 | 5b 3c 63 6f 6e 64 3e 5d |R; tfstr|[<cond>]|
|00000230| 5b 62 5d 20 3c 72 65 67 | 3e 2c 3c 74 65 6d 70 20 |[b] <reg|>,<temp |
|00000240| 72 65 67 3e 2c 3c 61 64 | 64 72 65 73 73 3e 20 3b |reg>,<ad|dress> ;|
|00000250| 20 74 6f 6f 20 66 61 72 | 20 73 74 72 28 62 29 20 | too far| str(b) |
|00000260| 28 31 32 20 62 79 74 65 | 73 20 63 6f 64 65 29 0d |(12 byte|s code).|
|00000270| 00 11 05 3b 0d 00 12 05 | 3b 0d 00 13 25 3b 20 4c |...;....|;...%; L|
|00000280| 6f 74 73 20 6f 66 20 73 | 6f 72 72 79 20 66 6f 72 |ots of s|orry for|
|00000290| 20 74 68 65 20 63 6f 6d | 6d 65 6e 74 73 2c 0d 00 | the com|ments,..|
|000002a0| 14 3e 3b 20 49 20 6e 65 | 76 65 72 20 75 73 65 64 |.>; I ne|ver used|
|000002b0| 20 74 6f 20 74 68 65 6d | 2c 20 73 69 6e 63 65 20 | to them|, since |
|000002c0| 49 20 64 6f 6e 27 74 20 | 75 73 65 20 74 68 65 6d |I don't |use them|
|000002d0| 20 66 6f 72 20 6d 79 73 | 65 6c 66 2e 0d 00 15 05 | for mys|elf.....|
|000002e0| 3b 0d 00 16 05 5d 0d 00 | 17 04 0d 00 18 13 76 65 |;....]..|......ve|
|000002f0| 72 73 69 6f 6e 24 3d 22 | 30 2e 30 36 22 0d 00 19 |rsion$="|0.06"...|
|00000300| 17 74 69 74 6c 65 24 3d | 22 46 61 72 41 64 64 72 |.title$=|"FarAddr|
|00000310| 65 73 73 22 0d 00 1a 10 | 66 69 6c 65 24 3d 74 69 |ess"....|file$=ti|
|00000320| 74 6c 65 24 0d 00 1b 28 | 70 61 74 68 24 3d 22 3c |tle$...(|path$="<|
|00000330| 57 54 45 78 61 6d 70 6c | 65 73 24 44 69 72 3e 2e |WTExampl|es$Dir>.|
|00000340| 50 72 69 76 61 74 65 4d | 73 67 2e 22 0d 00 1c 04 |PrivateM|sg."....|
|00000350| 0d 00 1d 04 0d 00 1e 2f | de 63 6f 64 65 25 35 2a |......./|.code%5*|
|00000360| 31 30 32 34 3a e3 70 25 | 3d 34 b8 36 88 32 3a 4f |1024:.p%|=4.6.2:O|
|00000370| 25 3d 63 6f 64 65 25 3a | 50 25 3d 30 3a 5b 4f 50 |%=code%:|P%=0:[OP|
|00000380| 54 70 25 0d 00 1f 04 0d | 00 20 4d 2e 77 74 6f 68 |Tp%.....|. M.wtoh|
|00000390| 20 20 20 20 20 20 20 20 | 20 64 63 64 20 65 6e 64 | | dcd end|
|000003a0| 2d 50 25 20 3c 3c 38 20 | 84 20 77 74 6f 68 5f 2d |-P% <<8 |. wtoh_-|
|000003b0| 50 25 20 20 20 3b 20 68 | 65 61 64 65 72 27 73 20 |P% ; h|eader's |
|000003c0| 61 6e 64 20 6d 6f 64 75 | 6c 65 27 73 20 6c 65 6e |and modu|le's len|
|000003d0| 67 74 68 73 0d 00 21 40 | 20 20 20 20 20 20 20 20 |gths..!@| |
|000003e0| 20 20 20 20 20 20 3d 22 | 57 54 6d 64 22 20 20 20 | ="|WTmd" |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000400| 20 20 20 3b 20 66 69 6c | 65 74 79 70 65 20 6d 61 | ; fil|etype ma|
|00000410| 72 6b 65 72 0d 00 22 4b | 20 20 20 20 20 20 20 20 |rker.."K| |
|00000420| 20 20 20 20 20 20 64 63 | 64 20 68 65 6c 70 20 20 | dc|d help |
|00000430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000440| 20 20 20 3b 20 6f 66 66 | 73 65 74 20 74 6f 20 66 | ; off|set to f|
|00000450| 75 6c 6c 20 6d 6f 64 75 | 6c 65 20 6e 61 6d 65 0d |ull modu|le name.|
|00000460| 00 23 04 0d 00 24 41 20 | 20 20 20 20 20 20 20 20 |.#...$A | |
|00000470| 20 20 20 20 20 64 63 64 | 20 57 54 53 65 72 76 69 | dcd| WTServi|
|00000480| 63 65 20 3b 20 6f 66 66 | 73 65 74 20 74 6f 20 57 |ce ; off|set to W|
|00000490| 54 53 65 72 76 69 63 65 | 20 6d 73 67 20 68 61 6e |TService| msg han|
|000004a0| 64 6c 65 72 0d 00 25 49 | 20 20 20 20 20 20 20 20 |dler..%I| |
|000004b0| 20 20 20 20 20 20 64 63 | 64 20 30 20 20 20 20 20 | dc|d 0 |
|000004c0| 20 20 20 20 3b 20 6e 6f | 20 6f 66 66 73 65 74 20 | ; no| offset |
|000004d0| 74 6f 20 53 79 73 74 65 | 6d 20 73 65 72 76 69 63 |to Syste|m servic|
|000004e0| 65 20 6d 73 67 20 68 61 | 6e 64 6c 65 72 0d 00 26 |e msg ha|ndler..&|
|000004f0| 44 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 64 |D | d|
|00000500| 63 64 20 30 20 20 20 20 | 20 20 20 20 20 3b 20 6e |cd 0 | ; n|
|00000510| 6f 20 6f 66 66 73 65 74 | 20 74 6f 20 42 72 6f 61 |o offset| to Broa|
|00000520| 64 63 61 73 74 20 6d 73 | 67 20 68 61 6e 64 6c 65 |dcast ms|g handle|
|00000530| 72 0d 00 27 47 20 20 20 | 20 20 20 20 20 20 20 20 |r..'G | |
|00000540| 20 20 20 64 63 64 20 30 | 20 20 20 20 20 20 20 20 | dcd 0| |
|00000550| 20 3b 20 6e 6f 20 6f 66 | 66 73 65 74 20 74 6f 20 | ; no of|fset to |
|00000560| 75 73 65 72 20 74 61 62 | 6c 65 20 6f 66 20 57 54 |user tab|le of WT|
|00000570| 20 76 65 63 74 6f 72 73 | 0d 00 28 04 0d 00 29 4a | vectors|..(...)J|
|00000580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 64 63 | | dc|
|00000590| 64 20 a4 69 64 28 22 57 | 54 2b 5f 30 22 29 20 84 |d .id("W|T+_0") .|
|000005a0| 20 31 20 20 3b 20 70 72 | 69 76 61 74 65 20 6d 65 | 1 ; pr|ivate me|
|000005b0| 73 73 61 67 65 20 63 68 | 75 6e 6b 20 61 6e 64 20 |ssage ch|unk and |
|000005c0| 6e 75 6d 62 65 72 0d 00 | 2a 52 20 20 20 20 20 20 |number..|*R |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000005f0| 3b 20 6f 66 20 6d 65 73 | 73 61 67 65 73 20 77 69 |; of mes|sages wi|
|00000600| 74 68 20 74 68 61 74 20 | 63 68 75 6e 6b 20 77 65 |th that |chunk we|
|00000610| 20 73 75 70 70 6f 72 74 | 0d 00 2b 4d 20 20 20 20 | support|..+M |
|00000620| 20 20 20 20 20 20 20 20 | 20 20 64 63 64 20 70 6d | | dcd pm|
|00000630| 68 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |h | |
|00000640| 20 20 3b 20 6f 66 66 73 | 65 74 20 74 6f 20 70 72 | ; offs|et to pr|
|00000650| 69 76 61 74 65 20 6d 65 | 73 73 61 67 65 20 68 61 |ivate me|ssage ha|
|00000660| 6e 64 6c 65 72 0d 00 2c | 0a 2e 77 74 6f 68 5f 0d |ndler..,|..wtoh_.|
|00000670| 00 2d 04 0d 00 2e 19 2e | 68 65 6c 70 20 20 20 20 |.-......|help |
|00000680| 20 20 20 20 3a 3d 74 69 | 74 6c 65 24 0d 00 2f 14 | :=ti|tle$../.|
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3d 39 | | =9|
|000006a0| 0d 00 30 37 20 20 20 20 | 20 20 20 20 20 20 20 20 |..07 | |
|000006b0| 20 20 3d 76 65 72 73 69 | 6f 6e 24 2b 22 20 28 22 | =versi|on$+" ("|
|000006c0| 2b c1 91 24 2c 35 2c 31 | 31 29 2b 22 29 22 3a 3d |+..$,5,1|1)+")":=|
|000006d0| 30 3a 61 6c 69 67 6e 0d | 00 31 04 0d 00 32 49 5c |0:align.|.1...2I\|
|000006e0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000006f0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000700| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000710| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000720| 5f 5f 5f 5f 0d 00 33 04 | 0d 00 34 4c 2e 57 54 53 |____..3.|..4L.WTS|
|00000730| 65 72 76 69 63 65 20 20 | 20 20 74 65 71 20 20 20 |ervice | teq |
|00000740| 20 20 31 2c 23 a4 69 64 | 28 22 57 54 53 65 72 76 | 1,#.id|("WTServ|
|00000750| 69 63 65 5f 49 6e 69 74 | 69 61 6c 69 73 61 74 69 |ice_Init|ialisati|
|00000760| 6f 6e 22 29 20 3b 20 69 | 6e 69 74 20 6d 6f 64 75 |on") ; i|nit modu|
|00000770| 6c 65 20 3f 0d 00 35 1f | 20 20 20 20 20 20 20 20 |le ?..5.| |
|00000780| 20 20 20 20 20 20 6d 6f | 76 6e 65 73 20 20 31 35 | mo|vnes 15|
|00000790| 2c 31 34 0d 00 36 26 20 | 20 20 20 20 20 20 20 20 |,14..6& | |
|000007a0| 20 20 20 20 20 73 74 6d | 66 64 20 20 20 31 33 21 | stm|fd 13!|
|000007b0| 2c 7b 31 2d 34 2c 31 34 | 7d 0d 00 37 46 20 20 20 |,{1-4,14|}..7F |
|000007c0| 20 20 20 20 20 20 20 20 | 20 20 20 61 64 72 20 20 | | adr |
|000007d0| 20 20 20 30 2c 6e 65 65 | 64 65 64 20 20 20 20 20 | 0,nee|ded |
|000007e0| 20 20 20 20 20 20 20 20 | 20 3b 20 6e 65 65 64 65 | | ; neede|
|000007f0| 64 20 6d 6f 64 75 6c 65 | 73 20 74 61 62 6c 65 0d |d module|s table.|
|00000800| 00 38 46 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.8F | |
|00000810| 20 6d 6f 76 20 20 20 20 | 20 31 2c 23 31 20 20 20 | mov | 1,#1 |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000830| 20 69 6e 66 6f 72 6d 20 | 75 73 65 72 20 6f 6e 20 | inform |user on |
|00000840| 65 72 72 6f 72 0d 00 39 | 4d 20 20 20 20 20 20 20 |error..9|M |
|00000850| 20 20 20 20 20 20 20 6d | 6f 76 20 20 20 20 20 32 | m|ov 2|
|00000860| 2c 23 31 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,#1 | |
|00000870| 20 20 20 20 20 3b 20 70 | 65 72 6d 61 6e 65 6e 74 | ; p|ermanent|
|00000880| 20 63 68 65 6e 6e 65 6c | 20 6f 6e 20 72 65 73 65 | chennel| on rese|
|00000890| 74 73 0d 00 3a 3c 20 20 | 20 20 20 20 20 20 20 20 |ts..:< | |
|000008a0| 20 20 20 20 61 64 72 20 | 20 20 20 20 33 2c 68 65 | adr | 3,he|
|000008b0| 6c 70 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |lp | |
|000008c0| 20 20 3b 20 2d 3e 20 6d | 79 20 6e 61 6d 65 0d 00 | ; -> m|y name..|
|000008d0| 3b 40 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;@ | |
|000008e0| 6d 6f 76 20 20 20 20 20 | 34 2c 23 30 20 20 20 20 |mov |4,#0 |
|000008f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00000900| 49 27 6d 20 6e 6f 74 20 | 61 20 74 61 73 6b 0d 00 |I'm not |a task..|
|00000910| 3c 4c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |<L | |
|00000920| 73 77 69 20 20 20 20 20 | 22 58 57 54 5f 52 65 67 |swi |"XWT_Reg|
|00000930| 69 73 74 65 72 22 20 20 | 20 20 20 20 20 20 3b 20 |ister" | ; |
|00000940| 72 65 67 69 73 74 65 72 | 20 6e 65 65 64 65 64 20 |register| needed |
|00000950| 57 54 20 6d 6f 64 75 6c | 65 73 0d 00 3d 41 20 20 |WT modul|es..=A |
|00000960| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 74 72 76 | | strv|
|00000970| 63 20 20 20 32 2c 5b 31 | 32 2c 23 34 5d 20 20 20 |c 2,[1|2,#4] |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 3b 20 6b 65 65 70 | | ; keep|
|00000990| 20 6d 79 20 63 68 61 6e | 6e 65 6c 0d 00 3e 26 20 | my chan|nel..>& |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6c 64 6d | | ldm|
|000009b0| 66 64 20 20 20 31 33 21 | 2c 7b 31 2d 34 2c 31 35 |fd 13!|,{1-4,15|
|000009c0| 7d 0d 00 3f 04 0d 00 40 | 48 2e 6e 65 65 64 65 64 |}..?...@|H.needed|
|000009d0| 20 20 20 20 20 20 3a 3d | 22 57 54 44 4c 52 73 22 | :=|"WTDLRs"|
|000009e0| 3a 3d 30 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:=0 | |
|000009f0| 20 20 20 20 20 3b 20 6e | 65 65 64 65 64 20 57 54 | ; n|eeded WT|
|00000a00| 20 6d 6f 64 75 6c 65 20 | 74 69 74 6c 65 0d 00 41 | module |title..A|
|00000a10| 4b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3d |K | =|
|00000a20| 22 2a 57 54 44 4c 52 73 | 5f 49 6e 73 74 61 6c 6c |"*WTDLRs|_Install|
|00000a30| 22 3a 3d 30 20 20 20 20 | 20 20 20 20 20 3b 20 75 |":=0 | ; u|
|00000a40| 73 65 20 2a 63 6f 6d 6d | 61 6e 64 20 69 66 20 6e |se *comm|and if n|
|00000a50| 6f 74 20 6b 6e 6f 77 6e | 0d 00 42 04 0d 00 43 48 |ot known|..B...CH|
|00000a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3d 22 | | ="|
|00000a70| 57 54 2b 22 3a 3d 30 20 | 20 20 20 20 20 20 20 20 |WT+":=0 | |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 6e 65 | | ; ne|
|00000a90| 65 64 65 64 20 57 54 20 | 6d 6f 64 75 6c 65 20 74 |eded WT |module t|
|00000aa0| 69 74 6c 65 0d 00 44 48 | 20 20 20 20 20 20 20 20 |itle..DH| |
|00000ab0| 20 20 20 20 20 20 3d 22 | 57 54 4d 6f 64 75 6c 65 | ="|WTModule|
|00000ac0| 73 3a 57 54 2b 22 3a 3d | 30 20 20 20 20 20 20 20 |s:WT+":=|0 |
|00000ad0| 20 20 20 20 3b 20 75 73 | 65 20 6c 6f 61 64 20 69 | ; us|e load i|
|00000ae0| 74 20 66 72 6f 6d 20 74 | 68 65 72 65 0d 00 45 04 |t from t|here..E.|
|00000af0| 0d 00 46 50 20 20 20 20 | 20 20 20 20 20 20 20 20 |..FP | |
|00000b00| 20 20 3d 30 3a 61 6c 69 | 67 6e 20 20 20 20 20 20 | =0:ali|gn |
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b20| 3b 20 74 68 61 6e 78 2c | 20 6e 6f 20 6d 6f 72 65 |; thanx,| no more|
|00000b30| 20 6d 6f 64 75 6c 65 73 | 20 6e 65 65 64 65 64 21 | modules| needed!|
|00000b40| 0d 00 47 04 0d 00 48 49 | 5c 5f 5f 5f 5f 5f 5f 5f |..G...HI|\_______|
|00000b50| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000b60| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000b70| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000b80| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 0d 00 49 |________|_____..I|
|00000b90| 04 0d 00 4a 43 20 20 20 | 20 20 20 20 20 20 20 20 |...JC | |
|00000ba0| 20 20 20 3b 20 54 68 65 | 20 66 6f 6c 6c 6f 77 69 | ; The| followi|
|00000bb0| 6e 67 20 63 6f 64 65 20 | 77 69 6c 6c 20 62 65 20 |ng code |will be |
|00000bc0| 63 61 6c 6c 65 64 20 65 | 61 63 68 20 74 69 6d 65 |called e|ach time|
|00000bd0| 20 74 68 65 0d 00 4b 45 | 20 20 20 20 20 20 20 20 | the..KE| |
|00000be0| 20 20 20 20 20 20 3b 20 | 42 41 53 49 43 20 61 73 | ; |BASIC as|
|00000bf0| 73 65 6d 62 6c 65 72 20 | 73 74 61 72 74 73 20 74 |sembler |starts t|
|00000c00| 6f 20 61 73 73 65 6d 62 | 6c 65 20 61 20 6e 65 77 |o assemb|le a new|
|00000c10| 20 6d 6e 65 6d 6f 6e 69 | 63 0d 00 4c 04 0d 00 4d | mnemoni|c..L...M|
|00000c20| 4c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |L | ;|
|00000c30| 20 3d 3e 20 72 30 20 20 | 3d 20 74 68 65 20 66 69 | => r0 |= the fi|
|00000c40| 72 73 74 20 63 68 61 72 | 61 63 74 65 72 20 6f 66 |rst char|acter of|
|00000c50| 20 74 68 65 20 6d 6e 65 | 6d 6f 6e 69 63 20 74 6f | the mne|monic to|
|00000c60| 20 61 73 73 65 6d 62 6c | 65 0d 00 4e 2f 20 20 20 | assembl|e..N/ |
|00000c70| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 20 20 20 | | ; |
|00000c80| 72 31 20 20 3d 20 70 72 | 69 76 61 74 65 20 6d 65 |r1 = pr|ivate me|
|00000c90| 73 73 61 67 65 20 49 44 | 0d 00 4f 33 20 20 20 20 |ssage ID|..O3 |
|00000ca0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 20 20 20 72 | | ; r|
|00000cb0| 31 31 20 3d 20 70 72 69 | 76 61 74 65 20 6d 65 73 |11 = pri|vate mes|
|00000cc0| 73 61 67 65 20 6e 75 6d | 62 65 72 0d 00 50 3b 20 |sage num|ber..P; |
|00000cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 20 | | ; |
|00000ce0| 20 20 72 31 32 20 3d 20 | 6f 75 72 20 6d 6f 64 75 | r12 = |our modu|
|00000cf0| 6c 65 27 73 20 77 6f 72 | 6b 73 70 61 63 65 20 70 |le's wor|kspace p|
|00000d00| 6f 69 6e 74 65 72 0d 00 | 51 2a 20 20 20 20 20 20 |ointer..|Q* |
|00000d10| 20 20 20 20 20 20 20 20 | 3b 20 20 20 20 72 31 33 | |; r13|
|00000d20| 20 3d 20 74 68 65 20 53 | 56 43 20 73 74 61 63 6b | = the S|VC stack|
|00000d30| 0d 00 52 2b 20 20 20 20 | 20 20 20 20 20 20 20 20 |..R+ | |
|00000d40| 20 20 3b 20 20 20 20 72 | 31 34 20 3d 20 72 65 74 | ; r|14 = ret|
|00000d50| 75 72 6e 20 61 64 64 72 | 65 73 73 0d 00 53 25 20 |urn addr|ess..S% |
|00000d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 20 | | ; |
|00000d70| 20 20 50 43 20 69 6e 20 | 53 56 43 20 6d 6f 64 65 | PC in |SVC mode|
|00000d80| 0d 00 54 04 0d 00 55 46 | 2e 70 6d 68 20 20 20 20 |..T...UF|.pmh |
|00000d90| 20 20 20 20 20 20 74 65 | 71 20 20 20 20 20 31 31 | te|q 11|
|00000da0| 2c 23 a4 6e 75 6d 28 22 | 57 54 2b 5f 41 73 73 65 |,#.num("|WT+_Asse|
|00000db0| 6d 62 6c 65 22 29 20 3b | 20 69 73 20 69 74 20 42 |mble") ;| is it B|
|00000dc0| 41 53 49 43 70 61 74 63 | 68 3f 0d 00 56 1f 20 20 |ASICpatc|h?..V. |
|00000dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6d 6f 76 6e | | movn|
|00000de0| 65 73 20 20 31 35 2c 31 | 34 0d 00 57 4b 20 20 20 |es 15,1|4..WK |
|00000df0| 20 20 20 20 20 20 20 20 | 20 20 20 74 65 71 20 20 | | teq |
|00000e00| 20 20 20 30 2c 23 97 22 | 54 22 20 20 20 20 20 20 | 0,#."|T" |
|00000e10| 20 20 20 20 20 20 20 20 | 20 3b 20 69 73 20 69 74 | | ; is it|
|00000e20| 20 74 66 61 64 72 2f 74 | 66 6c 64 72 2f 74 66 73 | tfadr/t|fldr/tfs|
|00000e30| 74 72 20 3f 0d 00 58 1e | 20 20 20 20 20 20 20 20 |tr ?..X.| |
|00000e40| 20 20 20 20 20 20 62 65 | 71 20 20 20 20 20 74 66 | be|q tf|
|00000e50| 61 72 0d 00 59 48 20 20 | 20 20 20 20 20 20 20 20 |ar..YH | |
|00000e60| 20 20 20 20 74 65 71 20 | 20 20 20 20 30 2c 23 97 | teq | 0,#.|
|00000e70| 22 46 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |"F" | |
|00000e80| 20 20 3b 20 69 73 20 69 | 74 20 66 61 64 72 2f 66 | ; is i|t fadr/f|
|00000e90| 6c 64 72 2f 66 73 74 72 | 20 3f 0d 00 5a 1f 20 20 |ldr/fstr| ?..Z. |
|00000ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6d 6f 76 6e | | movn|
|00000eb0| 65 73 20 20 31 35 2c 31 | 34 0d 00 5b 04 0d 00 5c |es 15,1|4..[...\|
|00000ec0| 1a 3b 20 66 61 72 20 28 | 66 61 64 72 2f 66 6c 64 |.; far (|fadr/fld|
|00000ed0| 72 2f 66 73 74 72 29 0d | 00 5d 04 0d 00 5e 26 20 |r/fstr).|.]...^& |
|00000ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 73 74 6d | | stm|
|00000ef0| 66 64 20 20 20 31 33 21 | 2c 7b 30 2d 38 2c 31 34 |fd 13!|,{0-8,14|
|00000f00| 7d 0d 00 5f 4c 20 20 20 | 20 20 20 20 20 20 20 20 |}.._L | |
|00000f10| 20 20 20 2a 62 6c 20 20 | 20 20 20 57 54 2b 5f 47 | *bl | WT+_G|
|00000f20| 65 74 42 41 53 49 43 53 | 74 61 74 75 73 20 20 3b |etBASICS|tatus ;|
|00000f30| 20 63 61 6c 6c 20 44 4c | 52 20 74 6f 20 67 65 74 | call DL|R to get|
|00000f40| 20 42 41 53 49 43 20 73 | 74 61 74 75 73 0d 00 60 | BASIC s|tatus..`|
|00000f50| 44 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |D | |
|00000f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f70| 20 20 20 20 20 20 3b 20 | 3c 3d 20 72 30 20 20 3d | ; |<= r0 =|
|00000f80| 20 42 41 53 49 43 27 73 | 20 4f 50 54 20 63 6f 64 | BASIC's| OPT cod|
|00000f90| 65 0d 00 61 51 20 20 20 | 20 20 20 20 20 20 20 20 |e..aQ | |
|00000fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 20 20 20 72 | | ; r|
|00000fc0| 31 20 20 3d 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |1 = poi|nter to |
|00000fd0| 73 74 72 69 6e 67 20 74 | 6f 20 61 73 73 65 6d 62 |string t|o assemb|
|00000fe0| 6c 65 0d 00 62 4c 20 20 | 20 20 20 20 20 20 20 20 |le..bL | |
|00000ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001000| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 20 20 20 | | ; |
|00001010| 72 32 20 20 3d 20 63 75 | 72 72 65 6e 74 20 42 41 |r2 = cu|rrent BA|
|00001020| 53 49 43 27 73 20 50 25 | 20 76 61 6c 75 65 0d 00 |SIC's P%| value..|
|00001030| 63 4c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |cL | |
|00001040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001050| 20 20 20 20 20 20 20 3b | 20 20 20 20 72 33 20 20 | ;| r3 |
|00001060| 3d 20 63 75 72 72 65 6e | 74 20 42 41 53 49 43 27 |= curren|t BASIC'|
|00001070| 73 20 4f 25 20 76 61 6c | 75 65 0d 00 64 4c 20 20 |s O% val|ue..dL |
|00001080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000010a0| 20 20 20 3b 20 20 20 20 | 72 34 20 20 3d 20 63 75 | ; |r4 = cu|
|000010b0| 72 72 65 6e 74 20 42 41 | 53 49 43 27 73 20 4c 25 |rrent BA|SIC's L%|
|000010c0| 20 76 61 6c 75 65 0d 00 | 65 4e 20 20 20 20 20 20 | value..|eN |
|000010d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000010e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|000010f0| 20 20 20 20 72 35 20 20 | 3d 20 63 75 72 72 65 6e | r5 |= curren|
|00001100| 74 20 73 6f 75 72 63 65 | 20 6c 69 6e 65 20 6e 75 |t source| line nu|
|00001110| 6d 62 65 72 0d 00 66 3d | 20 20 20 20 20 20 20 20 |mber..f=| |
|00001120| 20 20 20 20 20 20 2a 62 | 6c 20 20 20 20 20 57 54 | *b|l WT|
|00001130| 2b 5f 41 6c 69 67 6e 20 | 20 20 20 20 20 20 20 20 |+_Align | |
|00001140| 20 20 3b 20 61 6c 69 67 | 6e 20 52 32 20 26 20 52 | ; alig|n R2 & R|
|00001150| 33 0d 00 67 3e 20 20 20 | 20 20 20 20 20 20 20 20 |3..g> | |
|00001160| 20 20 20 6d 6f 76 20 20 | 20 20 20 31 30 2c 30 20 | mov | 10,0 |
|00001170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00001180| 20 6b 65 65 70 20 72 65 | 67 69 73 74 65 72 73 0d | keep re|gisters.|
|00001190| 00 68 2f 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.h/ | |
|000011a0| 20 6d 6f 76 20 20 20 20 | 20 31 31 2c 31 20 20 20 | mov | 11,1 |
|000011b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 0d 00 | | ;..|
|000011c0| 69 46 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |iF | |
|000011d0| 62 6c 20 20 20 20 20 20 | 77 68 69 63 68 6d 6e 65 |bl |whichmne|
|000011e0| 6d 6f 6e 69 63 20 20 20 | 20 20 20 20 3b 20 64 65 |monic | ; de|
|000011f0| 63 6f 64 65 20 6d 6e 65 | 6d 6f 6e 69 63 20 73 74 |code mne|monic st|
|00001200| 72 69 6e 67 0d 00 6a 20 | 20 20 20 20 20 20 20 20 |ring..j | |
|00001210| 20 20 20 20 20 20 73 74 | 72 76 73 20 20 20 30 2c | st|rvs 0,|
|00001220| 5b 31 33 5d 0d 00 6b 26 | 20 20 20 20 20 20 20 20 |[13]..k&| |
|00001230| 20 20 20 20 20 20 6c 64 | 6d 63 73 66 64 20 31 33 | ld|mcsfd 13|
|00001240| 21 2c 7b 30 2d 38 2c 31 | 35 7d 0d 00 6c 4e 20 20 |!,{0-8,1|5}..lN |
|00001250| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 64 72 20 | | adr |
|00001260| 20 20 20 20 31 34 2c 63 | 6c 61 69 6d 5f 6d 65 73 | 14,c|laim_mes|
|00001270| 73 61 67 65 5f 61 73 73 | 65 6d 62 6c 65 2b 33 20 |sage_ass|emble+3 |
|00001280| 3b 20 73 65 74 20 53 56 | 43 20 72 65 74 75 72 6e |; set SV|C return|
|00001290| 20 61 64 64 72 65 73 73 | 0d 00 6d 44 20 20 20 20 | address|..mD |
|000012a0| 20 20 20 20 20 20 20 20 | 20 20 74 65 71 20 20 20 | | teq |
|000012b0| 20 20 39 2c 23 32 20 20 | 20 20 20 20 20 20 20 20 | 9,#2 | |
|000012c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|000012d0| 69 73 20 69 74 20 66 61 | 64 72 20 3f 0d 00 6e 21 |is it fa|dr ?..n!|
|000012e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 62 6e | | bn|
|000012f0| 65 20 20 20 20 20 66 6c | 64 72 73 74 72 0d 00 6f |e fl|drstr..o|
|00001300| 04 0d 00 70 42 2e 66 61 | 64 72 20 20 20 20 20 20 |...pB.fa|dr |
|00001310| 20 20 20 6d 6f 76 20 20 | 20 20 20 36 2c 23 32 20 | mov | 6,#2 |
|00001320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001330| 20 20 3b 20 62 75 69 6c | 64 20 74 77 6f 20 77 6f | ; buil|d two wo|
|00001340| 72 64 73 0d 00 71 43 2e | 66 72 6f 6d 30 20 20 20 |rds..qC.|from0 |
|00001350| 20 20 20 20 20 6d 6f 76 | 20 20 20 20 20 35 2c 23 | mov| 5,#|
|00001360| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0 | |
|00001370| 20 20 20 20 3b 20 66 72 | 6f 6d 20 62 69 74 20 30 | ; fr|om bit 0|
|00001380| 20 6f 66 20 52 31 0d 00 | 72 26 2e 62 75 69 6c 64 | of R1..|r&.build|
|00001390| 66 61 72 20 20 20 20 20 | 73 74 6d 66 64 20 20 20 |far |stmfd |
|000013a0| 31 33 21 2c 7b 32 2c 33 | 2c 31 34 7d 0d 00 73 20 |13!,{2,3|,14}..s |
|000013b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f | | mo|
|000013c0| 76 20 20 20 20 20 37 2c | 23 26 66 66 0d 00 74 52 |v 7,|#&ff..tR|
|000013d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f | | mo|
|000013e0| 76 20 20 20 20 20 32 2c | 23 26 32 34 3c 3c 32 30 |v 2,|#&24<<20|
|000013f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 52 | | ; R|
|00001400| 32 20 3d 20 27 53 55 42 | 20 52 30 2c 52 30 2c 23 |2 = 'SUB| R0,R0,#|
|00001410| 30 27 20 28 62 61 73 65 | 20 77 6f 72 64 29 0d 00 |0' (base| word)..|
|00001420| 75 4b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |uK | |
|00001430| 61 6e 64 20 20 20 20 20 | 31 34 2c 38 2c 23 26 66 |and |14,8,#&f|
|00001440| 3c 3c 31 36 20 20 20 20 | 20 20 20 20 20 20 20 3b |<<16 | ;|
|00001450| 20 67 65 74 20 64 65 73 | 74 69 6e 61 74 69 6f 6e | get des|tination|
|00001460| 20 72 65 67 69 73 74 65 | 72 0d 00 76 32 20 20 20 | registe|r..v2 |
|00001470| 20 20 20 20 20 20 20 20 | 20 20 20 6f 72 72 20 20 | | orr |
|00001480| 20 20 20 32 2c 32 2c 31 | 34 2c 6c 73 72 23 34 20 | 2,2,1|4,lsr#4 |
|00001490| 20 20 20 20 20 20 20 20 | 20 20 3b 0d 00 77 40 20 | | ;..w@ |
|000014a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 61 6e 64 | | and|
|000014b0| 20 20 20 20 20 31 34 2c | 38 2c 23 26 66 3c 3c 32 | 14,|8,#&f<<2|
|000014c0| 38 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 67 65 |8 | ; ge|
|000014d0| 74 20 63 6f 6e 64 69 74 | 69 6f 6e 0d 00 78 32 20 |t condit|ion..x2 |
|000014e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6f 72 72 | | orr|
|000014f0| 20 20 20 20 20 32 2c 32 | 2c 31 34 20 20 20 20 20 | 2,2|,14 |
|00001500| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 0d 00 79 | | ;..y|
|00001510| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 74 |C | t|
|00001520| 73 74 20 20 20 20 20 38 | 2c 23 31 3c 3c 32 33 20 |st 8|,#1<<23 |
|00001530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00001540| 69 73 20 69 74 20 6e 65 | 67 61 74 69 76 65 20 3f |is it ne|gative ?|
|00001550| 0d 00 7a 45 20 20 20 20 | 20 20 20 20 20 20 20 20 |..zE | |
|00001560| 20 20 65 6f 72 6e 65 20 | 20 20 32 2c 32 2c 23 33 | eorne | 2,2,#3|
|00001570| 3c 3c 32 32 20 20 20 20 | 20 20 20 20 20 20 20 20 |<<22 | |
|00001580| 20 3b 20 6d 61 6b 65 20 | 69 74 20 41 44 44 20 69 | ; make |it ADD i|
|00001590| 66 20 6e 6f 74 0d 00 7b | 04 0d 00 7c 47 2e 6c 6f |f not..{|...|G.lo|
|000015a0| 6f 70 20 20 20 20 20 20 | 20 20 20 61 6e 64 73 20 |op | ands |
|000015b0| 20 20 20 33 2c 31 2c 37 | 2c 6c 73 6c 20 35 20 20 | 3,1,7|,lsl 5 |
|000015c0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 67 65 74 20 | | ; get |
|000015d0| 76 61 6c 75 65 20 74 6f | 20 61 64 64 2f 73 75 62 |value to| add/sub|
|000015e0| 0d 00 7d 32 20 20 20 20 | 20 20 20 20 20 20 20 20 |..}2 | |
|000015f0| 20 20 6f 72 72 20 20 20 | 20 20 31 34 2c 32 2c 33 | orr | 14,2,3|
|00001600| 2c 6c 73 72 20 35 20 20 | 20 20 20 20 20 20 20 20 |,lsr 5 | |
|00001610| 20 3b 0d 00 7e 42 20 20 | 20 20 20 20 20 20 20 20 | ;..~B | |
|00001620| 20 20 20 20 72 73 62 6e | 65 20 20 20 33 2c 35 2c | rsbn|e 3,5,|
|00001630| 23 33 32 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |#32 | |
|00001640| 20 20 20 3b 20 67 65 74 | 20 72 6f 74 61 74 65 20 | ; get| rotate |
|00001650| 62 69 74 73 0d 00 7f 32 | 20 20 20 20 20 20 20 20 |bits...2| |
|00001660| 20 20 20 20 20 20 6d 6f | 76 6e 65 20 20 20 33 2c | mo|vne 3,|
|00001670| 33 2c 6c 73 72 23 31 20 | 20 20 20 20 20 20 20 20 |3,lsr#1 | |
|00001680| 20 20 20 20 20 3b 0d 00 | 80 32 20 20 20 20 20 20 | ;..|.2 |
|00001690| 20 20 20 20 20 20 20 20 | 61 6e 64 6e 65 20 20 20 | |andne |
|000016a0| 33 2c 33 2c 23 26 66 20 | 20 20 20 20 20 20 20 20 |3,3,#&f | |
|000016b0| 20 20 20 20 20 20 20 3b | 0d 00 81 32 20 20 20 20 | ;|...2 |
|000016c0| 20 20 20 20 20 20 20 20 | 20 20 6f 72 72 6e 65 20 | | orrne |
|000016d0| 20 20 31 34 2c 31 34 2c | 33 2c 6c 73 6c 23 38 20 | 14,14,|3,lsl#8 |
|000016e0| 20 20 20 20 20 20 20 20 | 20 3b 0d 00 82 52 20 20 | | ;...R |
|000016f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 74 73 74 20 | | tst |
|00001700| 20 20 20 20 38 2c 23 31 | 3c 3c 32 36 20 20 20 20 | 8,#1|<<26 |
|00001710| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 69 73 20 | | ; is |
|00001720| 69 74 20 66 69 72 73 74 | 20 74 69 6d 65 20 28 66 |it first| time (f|
|00001730| 69 72 73 74 20 77 6f 72 | 64 29 20 3f 0d 00 83 48 |irst wor|d) ?...H|
|00001740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6f 72 | | or|
|00001750| 72 65 71 20 20 20 31 34 | 2c 31 34 2c 23 26 66 3c |req 14|,14,#&f<|
|00001760| 3c 31 36 20 20 20 20 20 | 20 20 20 20 20 3b 20 75 |<16 | ; u|
|00001770| 73 65 20 50 43 20 66 6f | 72 20 66 69 72 73 74 20 |se PC fo|r first |
|00001780| 74 69 6d 65 0d 00 84 50 | 20 20 20 20 20 20 20 20 |time...P| |
|00001790| 20 20 20 20 20 20 61 6e | 64 6e 65 20 20 20 33 2c | an|dne 3,|
|000017a0| 38 2c 23 26 66 3c 3c 31 | 36 20 20 20 20 20 20 20 |8,#&f<<1|6 |
|000017b0| 20 20 20 20 20 3b 20 75 | 73 65 20 75 73 65 72 27 | ; u|se user'|
|000017c0| 73 20 72 65 67 69 73 74 | 65 72 20 6f 74 68 65 72 |s regist|er other|
|000017d0| 77 69 73 65 0d 00 85 32 | 20 20 20 20 20 20 20 20 |wise...2| |
|000017e0| 20 20 20 20 20 20 6f 72 | 72 6e 65 20 20 20 31 34 | or|rne 14|
|000017f0| 2c 31 34 2c 33 20 20 20 | 20 20 20 20 20 20 20 20 |,14,3 | |
|00001800| 20 20 20 20 20 3b 0d 00 | 86 45 20 20 20 20 20 20 | ;..|.E |
|00001810| 20 20 20 20 20 20 20 20 | 6f 72 72 20 20 20 20 20 | |orr |
|00001820| 38 2c 38 2c 23 31 3c 3c | 32 36 20 20 20 20 20 20 |8,8,#1<<|26 |
|00001830| 20 20 20 20 20 20 20 3b | 20 6d 61 72 6b 20 6c 64 | ;| mark ld|
|00001840| 72 2f 73 74 72 20 74 6f | 20 52 38 0d 00 87 3d 20 |r/str to| R8...= |
|00001850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 73 74 72 | | str|
|00001860| 20 20 20 20 20 31 34 2c | 5b 30 5d 2c 23 34 20 20 | 14,|[0],#4 |
|00001870| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 62 75 | | ; bu|
|00001880| 69 6c 64 20 77 6f 72 64 | 0d 00 88 3f 20 20 20 20 |ild word|...? |
|00001890| 20 20 20 20 20 20 20 20 | 20 20 73 75 62 73 20 20 | | subs |
|000018a0| 20 20 36 2c 36 2c 23 31 | 20 20 20 20 20 20 20 20 | 6,6,#1| |
|000018b0| 20 20 20 20 20 20 20 20 | 20 3b 20 6d 6f 72 65 20 | | ; more |
|000018c0| 74 6f 20 67 6f 20 3f 0d | 00 89 43 20 20 20 20 20 |to go ?.|..C |
|000018d0| 20 20 20 20 20 20 20 20 | 20 61 64 64 20 20 20 20 | | add |
|000018e0| 20 35 2c 35 2c 23 38 20 | 20 20 20 20 20 20 20 20 | 5,5,#8 | |
|000018f0| 20 20 20 20 20 20 20 20 | 3b 20 75 70 64 61 74 65 | |; update|
|00001900| 20 6d 61 73 6b 20 62 69 | 74 73 0d 00 8a 3b 20 20 | mask bi|ts...; |
|00001910| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 67 74 20 | | bgt |
|00001920| 20 20 20 20 6c 6f 6f 70 | 20 20 20 20 20 20 20 20 | loop| |
|00001930| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 61 6c 6c | | ; all|
|00001940| 20 6f 76 65 72 0d 00 8b | 04 0d 00 8c 4b 20 20 20 | over...|....K |
|00001950| 20 20 20 20 20 20 20 20 | 20 20 20 74 73 74 20 20 | | tst |
|00001960| 20 20 20 31 2c 37 2c 6c | 73 6c 20 35 20 20 20 20 | 1,7,l|sl 5 |
|00001970| 20 20 20 20 20 20 20 20 | 20 20 3b 20 69 73 20 74 | | ; is t|
|00001980| 68 65 72 65 20 61 6e 79 | 74 68 69 6e 67 20 6c 65 |here any|thing le|
|00001990| 66 74 20 3f 0d 00 8d 32 | 20 20 20 20 20 20 20 20 |ft ?...2| |
|000019a0| 20 20 20 20 20 20 61 64 | 64 65 71 20 20 20 35 2c | ad|deq 5,|
|000019b0| 35 2c 23 38 20 20 20 20 | 20 20 20 20 20 20 20 20 |5,#8 | |
|000019c0| 20 20 20 20 20 3b 0d 00 | 8e 40 20 20 20 20 20 20 | ;..|.@ |
|000019d0| 20 20 20 20 20 20 20 20 | 74 73 74 65 71 20 20 20 | |tsteq |
|000019e0| 31 2c 37 2c 6c 73 6c 20 | 35 20 20 20 20 20 20 20 |1,7,lsl |5 |
|000019f0| 20 20 20 20 20 20 20 3b | 20 61 72 65 20 77 65 20 | ;| are we |
|00001a00| 73 75 72 65 20 3f 0d 00 | 8f 3f 20 20 20 20 20 20 |sure ?..|.? |
|00001a10| 20 20 20 20 20 20 20 20 | 6c 64 6d 65 71 66 64 20 | |ldmeqfd |
|00001a20| 31 33 21 2c 7b 32 2c 33 | 2c 31 35 7d 5e 20 20 20 |13!,{2,3|,15}^ |
|00001a30| 20 20 20 20 20 20 20 3b | 20 69 66 20 6f 6b 20 72 | ;| if ok r|
|00001a40| 65 74 75 72 6e 0d 00 90 | 46 20 20 20 20 20 20 20 |eturn...|F |
|00001a50| 20 20 20 20 20 20 20 62 | 6c 20 20 20 20 20 20 74 | b|l t|
|00001a60| 6f 6f 5f 66 61 72 20 20 | 20 20 20 20 20 20 20 20 |oo_far | |
|00001a70| 20 20 20 20 20 20 3b 20 | 73 65 74 20 27 54 6f 6f | ; |set 'Too|
|00001a80| 20 66 61 72 27 20 65 72 | 72 6f 72 0d 00 91 39 20 | far' er|ror...9 |
|00001a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6c 64 6d | | ldm|
|00001aa0| 66 64 20 20 20 31 33 21 | 2c 7b 32 2c 33 2c 31 35 |fd 13!|,{2,3,15|
|00001ab0| 7d 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 72 65 |} | ; re|
|00001ac0| 74 75 72 6e 0d 00 92 04 | 0d 00 93 49 5c 5f 5f 5f |turn....|...I\___|
|00001ad0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001ae0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001af0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001b00| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001b10| 5f 0d 00 94 04 0d 00 95 | 1b 2e 63 6c 61 69 6d 5f |_.......|..claim_|
|00001b20| 6d 65 73 73 61 67 65 5f | 61 73 73 65 6d 62 6c 65 |message_|assemble|
|00001b30| 0d 00 96 4a 20 20 20 20 | 20 20 20 20 20 20 20 20 |...J | |
|00001b40| 20 20 61 64 64 76 73 20 | 20 20 31 33 2c 31 33 2c | addvs | 13,13,|
|00001b50| 23 34 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |#4 | |
|00001b60| 20 3b 20 69 66 20 65 72 | 72 6f 72 2c 20 73 6d 61 | ; if er|ror, sma|
|00001b70| 73 68 20 6d 65 73 73 61 | 67 65 0d 00 97 32 20 20 |sh messa|ge...2 |
|00001b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 6c 64 6d 76 | | ldmv|
|00001b90| 73 66 64 20 31 33 21 2c | 7b 31 2d 38 2c 31 35 7d |sfd 13!,|{1-8,15}|
|00001ba0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 0d 00 98 45 | | ;...E|
|00001bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 61 64 | | ad|
|00001bc0| 64 20 20 20 20 20 32 2c | 32 2c 23 38 20 20 20 20 |d 2,|2,#8 |
|00001bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 75 | | ; u|
|00001be0| 70 64 61 74 65 20 50 25 | 20 76 61 72 69 61 62 6c |pdate P%| variabl|
|00001bf0| 65 0d 00 99 45 20 20 20 | 20 20 20 20 20 20 20 20 |e...E | |
|00001c00| 20 20 20 61 64 64 20 20 | 20 20 20 33 2c 33 2c 23 | add | 3,3,#|
|00001c10| 38 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |8 | |
|00001c20| 20 20 3b 20 75 70 64 61 | 74 65 20 4f 25 20 76 61 | ; upda|te O% va|
|00001c30| 72 69 61 62 6c 65 0d 00 | 9a 51 20 20 20 20 20 20 |riable..|.Q |
|00001c40| 20 20 20 20 20 20 20 20 | 2a 62 6c 20 20 20 20 20 | |*bl |
|00001c50| 57 54 2b 5f 53 65 74 42 | 41 53 49 43 53 74 61 74 |WT+_SetB|ASICStat|
|00001c60| 75 73 20 20 20 20 20 3b | 20 69 6e 66 6f 72 6d 20 |us ;| inform |
|00001c70| 42 41 53 49 43 20 61 62 | 6f 75 74 20 6e 65 77 20 |BASIC ab|out new |
|00001c80| 50 25 20 26 20 4f 25 0d | 00 9b 46 20 20 20 20 20 |P% & O%.|..F |
|00001c90| 20 20 20 20 20 20 20 20 | 20 6c 64 6d 66 64 20 20 | | ldmfd |
|00001ca0| 20 31 33 21 2c 7b 30 2d | 38 2c 31 34 7d 20 20 20 | 13!,{0-|8,14} |
|00001cb0| 20 20 20 20 20 20 20 20 | 3b 20 67 65 74 20 72 65 | |; get re|
|00001cc0| 67 73 20 66 72 6f 6d 20 | 73 74 61 63 6b 0d 00 9c |gs from |stack...|
|00001cd0| 40 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |@ | m|
|00001ce0| 6f 76 20 20 20 20 20 31 | 2c 23 30 20 20 20 20 20 |ov 1|,#0 |
|00001cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00001d00| 63 6c 61 69 6d 20 6d 65 | 73 73 61 67 65 0d 00 9d |claim me|ssage...|
|00001d10| 1f 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |. | m|
|00001d20| 6f 76 73 20 20 20 20 31 | 35 2c 31 34 0d 00 9e 4a |ovs 1|5,14...J|
|00001d30| 5c 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |\_______|________|
|00001d40| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001d50| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001d60| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001d70| 5f 5f 5f 5f 5f 5f 0d 00 | 9f 04 0d 00 a0 41 2e 66 |______..|.....A.f|
|00001d80| 6c 64 72 73 74 72 20 20 | 20 20 20 20 6d 6f 76 20 |ldrstr | mov |
|00001d90| 20 20 20 20 36 2c 23 31 | 20 20 20 20 20 20 20 20 | 6,#1| |
|00001da0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 62 75 69 | | ; bui|
|00001db0| 6c 64 20 6f 6e 65 20 77 | 6f 72 64 0d 00 a1 22 2e |ld one w|ord...".|
|00001dc0| 6c 64 72 73 74 72 20 20 | 20 20 20 20 20 73 74 6d |ldrstr | stm|
|00001dd0| 66 64 20 20 20 31 33 21 | 2c 7b 31 34 7d 0d 00 a2 |fd 13!|,{14}...|
|00001de0| 4c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |L | m|
|00001df0| 6f 76 20 20 20 20 20 35 | 2c 23 31 32 20 20 20 20 |ov 5|,#12 |
|00001e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00001e10| 73 74 61 72 74 20 66 72 | 6f 6d 20 31 32 74 68 20 |start fr|om 12th |
|00001e20| 62 69 74 20 6f 66 20 52 | 31 0d 00 a3 43 20 20 20 |bit of R|1...C |
|00001e30| 20 20 20 20 20 20 20 20 | 20 20 20 62 6c 20 20 20 | | bl |
|00001e40| 20 20 20 62 75 69 6c 64 | 66 61 72 20 20 20 20 20 | build|far |
|00001e50| 20 20 20 20 20 20 20 20 | 20 20 3b 20 62 75 69 6c | | ; buil|
|00001e60| 64 20 41 44 44 2f 53 55 | 42 28 73 29 0d 00 a4 41 |d ADD/SU|B(s)...A|
|00001e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f | | mo|
|00001e80| 76 76 63 20 20 20 31 34 | 2c 31 2c 6c 73 6c 23 32 |vvc 14|,1,lsl#2|
|00001e90| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 63 |0 | ; c|
|00001ea0| 6c 65 61 72 20 6c 6f 77 | 20 62 69 74 73 0d 00 a5 |lear low| bits...|
|00001eb0| 4d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6f |M | o|
|00001ec0| 72 72 76 63 20 20 20 31 | 34 2c 38 2c 31 34 2c 6c |rrvc 1|4,8,14,l|
|00001ed0| 73 72 23 32 30 20 20 20 | 20 20 20 20 20 20 3b 20 |sr#20 | ; |
|00001ee0| 6d 65 72 67 65 20 74 68 | 65 6d 20 69 6e 20 4c 44 |merge th|em in LD|
|00001ef0| 52 2f 53 54 52 20 77 6f | 72 64 0d 00 a6 45 20 20 |R/STR wo|rd...E |
|00001f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 74 72 76 | | strv|
|00001f10| 63 20 20 20 31 34 2c 5b | 30 5d 2c 23 34 20 20 20 |c 14,[|0],#4 |
|00001f20| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 62 75 69 | | ; bui|
|00001f30| 6c 64 20 4c 44 52 2f 53 | 54 52 20 77 6f 72 64 0d |ld LDR/S|TR word.|
|00001f40| 00 a7 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.." | |
|00001f50| 20 6c 64 6d 66 64 20 20 | 20 31 33 21 2c 7b 31 35 | ldmfd | 13!,{15|
|00001f60| 7d 0d 00 a8 4a 5c 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |}...J\__|________|
|00001f70| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001f80| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001f90| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001fa0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 0d 00 a9 04 0d |________|___.....|
|00001fb0| 00 aa 22 3b 20 76 65 72 | 79 20 66 61 72 20 28 74 |.."; ver|y far (t|
|00001fc0| 66 61 64 72 2f 74 66 6c | 64 72 2f 74 66 73 74 72 |fadr/tfl|dr/tfstr|
|00001fd0| 29 0d 00 ab 09 2e 74 66 | 61 72 0d 00 ac 26 20 20 |).....tf|ar...& |
|00001fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 74 6d 66 | | stmf|
|00001ff0| 64 20 20 20 31 33 21 2c | 7b 30 2d 38 2c 31 34 7d |d 13!,|{0-8,14}|
|00002000| 0d 00 ad 4b 20 20 20 20 | 20 20 20 20 20 20 20 20 |...K | |
|00002010| 20 20 2a 62 6c 20 20 20 | 20 20 57 54 2b 5f 47 65 | *bl | WT+_Ge|
|00002020| 74 42 41 53 49 43 53 74 | 61 74 75 73 20 20 3b 20 |tBASICSt|atus ; |
|00002030| 63 61 6c 6c 20 44 4c 52 | 20 57 54 2b 5f 47 65 74 |call DLR| WT+_Get|
|00002040| 42 41 53 49 43 53 74 61 | 74 75 73 0d 00 ae 44 20 |BASICSta|tus...D |
|00002050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002070| 20 20 20 20 3b 20 3c 3d | 20 72 30 20 20 3d 20 42 | ; <=| r0 = B|
|00002080| 41 53 49 43 27 73 20 4f | 50 54 20 63 6f 64 65 0d |ASIC's O|PT code.|
|00002090| 00 af 51 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..Q | |
|000020a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000020b0| 20 20 20 20 20 20 20 20 | 3b 20 20 20 20 72 31 20 | |; r1 |
|000020c0| 20 3d 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 73 74 | = point|er to st|
|000020d0| 72 69 6e 67 20 74 6f 20 | 61 73 73 65 6d 62 6c 65 |ring to |assemble|
|000020e0| 0d 00 b0 4c 20 20 20 20 | 20 20 20 20 20 20 20 20 |...L | |
|000020f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002100| 20 20 20 20 20 20 20 20 | 20 3b 20 20 20 20 72 32 | | ; r2|
|00002110| 20 20 3d 20 63 75 72 72 | 65 6e 74 20 42 41 53 49 | = curr|ent BASI|
|00002120| 43 27 73 20 50 25 20 76 | 61 6c 75 65 0d 00 b1 4c |C's P% v|alue...L|
|00002130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002150| 20 20 20 20 20 3b 20 20 | 20 20 72 33 20 20 3d 20 | ; | r3 = |
|00002160| 63 75 72 72 65 6e 74 20 | 42 41 53 49 43 27 73 20 |current |BASIC's |
|00002170| 4f 25 20 76 61 6c 75 65 | 0d 00 b2 4c 20 20 20 20 |O% value|...L |
|00002180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000021a0| 20 3b 20 20 20 20 72 34 | 20 20 3d 20 63 75 72 72 | ; r4| = curr|
|000021b0| 65 6e 74 20 42 41 53 49 | 43 27 73 20 4c 25 20 76 |ent BASI|C's L% v|
|000021c0| 61 6c 75 65 0d 00 b3 4e | 20 20 20 20 20 20 20 20 |alue...N| |
|000021d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000021e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 20 | | ; |
|000021f0| 20 20 72 35 20 20 3d 20 | 63 75 72 72 65 6e 74 20 | r5 = |current |
|00002200| 73 6f 75 72 63 65 20 6c | 69 6e 65 20 6e 75 6d 62 |source l|ine numb|
|00002210| 65 72 0d 00 b4 3d 20 20 | 20 20 20 20 20 20 20 20 |er...= | |
|00002220| 20 20 20 20 2a 62 6c 20 | 20 20 20 20 57 54 2b 5f | *bl | WT+_|
|00002230| 41 6c 69 67 6e 20 20 20 | 20 20 20 20 20 20 20 20 |Align | |
|00002240| 3b 20 61 6c 69 67 6e 20 | 52 32 20 26 20 52 33 0d |; align |R2 & R3.|
|00002250| 00 b5 3e 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..> | |
|00002260| 20 6d 6f 76 20 20 20 20 | 20 31 30 2c 30 20 20 20 | mov | 10,0 |
|00002270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 6b | | ; k|
|00002280| 65 65 70 20 72 65 67 69 | 73 74 65 72 73 0d 00 b6 |eep regi|sters...|
|00002290| 2f 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |/ | m|
|000022a0| 6f 76 20 20 20 20 20 31 | 31 2c 31 20 20 20 20 20 |ov 1|1,1 |
|000022b0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 0d 00 b7 3d | | ;...=|
|000022c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6c 64 | | ld|
|000022d0| 72 62 20 20 20 20 31 34 | 2c 5b 31 5d 2c 23 31 20 |rb 14|,[1],#1 |
|000022e0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 63 68 65 63 | | ; chec|
|000022f0| 6b 20 66 6f 72 20 27 66 | 27 0d 00 b8 2f 20 20 20 |k for 'f|'.../ |
|00002300| 20 20 20 20 20 20 20 20 | 20 20 20 6f 72 72 20 20 | | orr |
|00002310| 20 20 20 31 34 2c 31 34 | 2c 23 33 32 20 20 20 20 | 14,14|,#32 |
|00002320| 20 20 20 20 20 20 20 3b | 0d 00 b9 2d 20 20 20 20 | ;|...- |
|00002330| 20 20 20 20 20 20 20 20 | 20 20 74 65 71 20 20 20 | | teq |
|00002340| 20 20 31 34 2c 23 97 22 | 66 22 20 20 20 20 20 20 | 14,#."|f" |
|00002350| 20 20 20 20 3b 0d 00 ba | 2f 20 20 20 20 20 20 20 | ;...|/ |
|00002360| 20 20 20 20 20 20 20 6c | 64 6d 6e 65 66 64 20 31 | l|dmnefd 1|
|00002370| 33 21 2c 7b 30 2d 38 2c | 31 35 7d 5e 20 20 20 20 |3!,{0-8,|15}^ |
|00002380| 20 20 20 3b 0d 00 bb 04 | 0d 00 bc 46 20 20 20 20 | ;....|...F |
|00002390| 20 20 20 20 20 20 20 20 | 20 20 62 6c 20 20 20 20 | | bl |
|000023a0| 20 20 77 68 69 63 68 6d | 6e 65 6d 6f 6e 69 63 20 | whichm|nemonic |
|000023b0| 20 20 20 20 20 20 3b 20 | 64 65 63 6f 64 65 20 6d | ; |decode m|
|000023c0| 6e 65 6d 6f 6e 69 63 20 | 73 74 72 69 6e 67 0d 00 |nemonic |string..|
|000023d0| bd 42 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.B | |
|000023e0| 61 64 64 63 63 20 20 20 | 32 2c 32 2c 23 34 20 20 |addcc |2,2,#4 |
|000023f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 75 70 | | ; up|
|00002400| 64 61 74 65 20 50 25 20 | 76 61 72 69 61 62 6c 65 |date P% |variable|
|00002410| 0d 00 be 42 20 20 20 20 | 20 20 20 20 20 20 20 20 |...B | |
|00002420| 20 20 61 64 64 63 63 20 | 20 20 33 2c 33 2c 23 34 | addcc | 3,3,#4|
|00002430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00002440| 75 70 64 61 74 65 20 4f | 25 20 76 61 72 69 61 62 |update O|% variab|
|00002450| 6c 65 0d 00 bf 40 20 20 | 20 20 20 20 20 20 20 20 |le...@ | |
|00002460| 20 20 20 20 73 74 72 76 | 73 20 20 20 30 2c 5b 31 | strv|s 0,[1|
|00002470| 33 5d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |3] | |
|00002480| 3b 20 77 61 73 20 64 65 | 63 6f 64 65 64 20 6f 6b |; was de|coded ok|
|00002490| 20 3f 0d 00 c0 2f 20 20 | 20 20 20 20 20 20 20 20 | ?.../ | |
|000024a0| 20 20 20 20 6c 64 6d 63 | 73 66 64 20 31 33 21 2c | ldmc|sfd 13!,|
|000024b0| 7b 30 2d 38 2c 31 35 7d | 20 20 20 20 20 20 20 20 |{0-8,15}| |
|000024c0| 3b 0d 00 c1 3d 20 20 20 | 20 20 20 20 20 20 20 20 |;...= | |
|000024d0| 20 20 20 74 65 71 20 20 | 20 20 20 39 2c 23 32 3a | teq | 9,#2:|
|000024e0| 62 6e 65 20 74 66 6c 64 | 72 73 74 72 20 20 20 3b |bne tfld|rstr ;|
|000024f0| 20 69 73 20 69 74 20 76 | 66 61 64 72 20 3f 0d 00 | is it v|fadr ?..|
|00002500| c2 04 0d 00 c3 45 20 20 | 20 20 20 20 20 20 20 20 |.....E | |
|00002510| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 36 2c 23 33 | mov | 6,#3|
|00002520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002530| 20 20 20 20 20 20 20 20 | 3b 20 62 75 69 6c 64 20 | |; build |
|00002540| 33 20 77 6f 72 64 73 0d | 00 c4 46 20 20 20 20 20 |3 words.|..F |
|00002550| 20 20 20 20 20 20 20 20 | 20 62 6c 20 20 20 20 20 | | bl |
|00002560| 20 66 72 6f 6d 30 20 20 | 20 20 20 20 20 20 20 20 | from0 | |
|00002570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 62 | | ; b|
|00002580| 75 69 6c 64 20 74 68 65 | 6d 20 6e 6f 77 0d 00 c5 |uild the|m now...|
|00002590| 45 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 62 |E | b|
|000025a0| 20 20 20 20 20 20 20 63 | 6c 61 69 6d 5f 6d 65 73 | c|laim_mes|
|000025b0| 73 61 67 65 5f 61 73 73 | 65 6d 62 6c 65 20 20 20 |sage_ass|emble |
|000025c0| 20 20 20 3b 20 63 6c 61 | 69 6d 20 6d 65 73 73 61 | ; cla|im messa|
|000025d0| 67 65 0d 00 c6 04 0d 00 | c7 47 2e 74 66 6c 64 72 |ge......|.G.tfldr|
|000025e0| 73 74 72 20 20 20 20 20 | 6d 6f 76 20 20 20 20 20 |str |mov |
|000025f0| 36 2c 23 32 20 20 20 20 | 20 20 20 20 20 20 20 20 |6,#2 | |
|00002600| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 62 75 | | ; bu|
|00002610| 69 6c 64 20 74 77 6f 20 | 77 6f 72 64 73 0d 00 c8 |ild two |words...|
|00002620| 46 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 62 |F | b|
|00002630| 6c 20 20 20 20 20 20 6c | 64 72 73 74 72 20 20 20 |l l|drstr |
|00002640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002650| 20 20 20 3b 20 62 75 69 | 6c 64 20 74 68 65 6d 20 | ; bui|ld them |
|00002660| 6e 6f 77 0d 00 c9 45 20 | 20 20 20 20 20 20 20 20 |now...E | |
|00002670| 20 20 20 20 20 62 20 20 | 20 20 20 20 20 63 6c 61 | b | cla|
|00002680| 69 6d 5f 6d 65 73 73 61 | 67 65 5f 61 73 73 65 6d |im_messa|ge_assem|
|00002690| 62 6c 65 20 20 20 20 20 | 20 3b 20 63 6c 61 69 6d |ble | ; claim|
|000026a0| 20 6d 65 73 73 61 67 65 | 0d 00 ca 04 0d 00 cb 49 | message|.......I|
|000026b0| 5c 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |\_______|________|
|000026c0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000026d0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000026e0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000026f0| 5f 5f 5f 5f 5f 0d 00 cc | 04 0d 00 cd 12 2e 77 68 |_____...|......wh|
|00002700| 69 63 68 6d 6e 65 6d 6f | 6e 69 63 0d 00 ce 24 20 |ichmnemo|nic...$ |
|00002710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 73 74 6d | | stm|
|00002720| 66 64 20 31 33 21 2c 7b | 32 2d 33 2c 31 34 7d 0d |fd 13!,{|2-3,14}.|
|00002730| 00 cf 4d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..M | |
|00002740| 20 6d 6f 76 20 20 20 20 | 20 30 2c 31 20 20 20 20 | mov | 0,1 |
|00002750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002760| 20 20 20 3b 20 52 30 20 | 3d 20 2d 3e 20 6d 6e 65 | ; R0 |= -> mne|
|00002770| 6d 6f 6e 69 63 20 73 74 | 72 69 6e 67 0d 00 d0 4f |monic st|ring...O|
|00002780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 61 64 | | ad|
|00002790| 72 20 20 20 20 20 32 2c | 6d 6e 65 6d 6f 6e 69 63 |r 2,|mnemonic|
|000027a0| 73 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s | |
|000027b0| 3b 20 70 6f 73 73 69 62 | 6c 65 20 6d 6e 65 6d 6f |; possib|le mnemo|
|000027c0| 6e 69 63 73 20 73 74 72 | 69 6e 67 0d 00 d1 45 20 |nics str|ing...E |
|000027d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 | | mov|
|000027e0| 20 20 20 20 20 33 2c 23 | 33 20 20 20 20 20 20 20 | 3,#|3 |
|000027f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00002800| 20 6c 65 6e 67 74 68 20 | 74 6f 20 63 68 65 63 6b | length |to check|
|00002810| 0d 00 d2 42 20 20 20 20 | 20 20 20 20 20 20 20 20 |...B | |
|00002820| 20 20 6d 6f 76 20 20 20 | 20 20 39 2c 23 32 20 20 | mov | 9,#2 |
|00002830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002840| 20 20 20 20 3b 20 6c 6f | 6f 70 20 63 6f 75 6e 74 | ; lo|op count|
|00002850| 65 72 0d 00 d3 53 2e 6c | 6f 6f 70 20 20 20 20 20 |er...S.l|oop |
|00002860| 20 20 20 20 2a 62 6c 20 | 20 20 20 20 57 54 2b 5f | *bl | WT+_|
|00002870| 43 6f 6d 70 61 72 65 43 | 68 61 72 73 20 20 20 20 |CompareC|hars |
|00002880| 20 20 20 20 20 20 3b 20 | 63 68 65 63 6b 20 66 69 | ; |check fi|
|00002890| 72 73 74 20 70 6f 73 73 | 69 62 6c 65 20 6d 6e 65 |rst poss|ible mne|
|000028a0| 6d 6f 6e 69 63 0d 00 d4 | 40 20 20 20 20 20 20 20 |monic...|@ |
|000028b0| 20 20 20 20 20 20 20 73 | 75 62 63 73 73 20 20 39 | s|ubcss 9|
|000028c0| 2c 39 2c 23 31 20 20 20 | 20 20 20 20 20 20 20 20 |,9,#1 | |
|000028d0| 20 20 20 20 20 20 20 20 | 20 3b 20 63 68 65 63 6b | | ; check|
|000028e0| 20 6c 6f 6f 70 0d 00 d5 | 35 20 20 20 20 20 20 20 | loop...|5 |
|000028f0| 20 20 20 20 20 20 20 62 | 63 73 20 20 20 20 20 6c | b|cs l|
|00002900| 6f 6f 70 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |oop | |
|00002910| 20 20 20 20 20 20 20 20 | 20 3b 0d 00 d6 42 20 20 | | ;...B |
|00002920| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 6d 6e 20 | | cmn |
|00002930| 20 20 20 20 39 2c 23 31 | 20 20 20 20 20 20 20 20 | 9,#1| |
|00002940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00002950| 69 66 20 6e 6f 74 20 66 | 6f 75 6e 64 0d 00 d7 44 |if not f|ound...D|
|00002960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6c 64 | | ld|
|00002970| 6d 65 71 66 64 20 31 33 | 21 2c 7b 32 2d 33 2c 31 |meqfd 13|!,{2-3,1|
|00002980| 35 7d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |5} | |
|00002990| 3b 20 20 20 65 78 69 74 | 20 77 69 74 68 20 43 53 |; exit| with CS|
|000029a0| 0d 00 d8 04 0d 00 d9 43 | 20 20 20 20 20 20 20 20 |.......C| |
|000029b0| 20 20 20 20 20 20 2a 62 | 6c 20 20 20 20 20 57 54 | *b|l WT|
|000029c0| 2b 5f 47 65 74 43 6f 6e | 64 69 74 69 6f 6e 20 20 |+_GetCon|dition |
|000029d0| 20 20 20 20 20 20 20 20 | 3b 20 67 65 74 20 63 6f | |; get co|
|000029e0| 6e 64 69 74 69 6f 6e 0d | 00 da 44 20 20 20 20 20 |ndition.|..D |
|000029f0| 20 20 20 20 20 20 20 20 | 20 6d 6f 76 20 20 20 20 | | mov |
|00002a00| 20 38 2c 31 2c 6c 73 6c | 23 32 38 20 20 20 20 20 | 8,1,lsl|#28 |
|00002a10| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 6b 65 65 | | ; kee|
|00002a20| 70 20 63 6f 6e 64 69 74 | 69 6f 6e 0d 00 db 04 0d |p condit|ion.....|
|00002a30| 00 dc 49 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..I | |
|00002a40| 20 6f 72 72 20 20 20 20 | 20 38 2c 38 2c 23 31 3c | orr | 8,8,#1<|
|00002a50| 3c 32 34 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |<24 | |
|00002a60| 20 20 20 3b 20 70 72 65 | 20 69 6e 64 65 78 65 64 | ; pre| indexed|
|00002a70| 20 4c 44 52 2f 53 54 52 | 0d 00 dd 45 20 20 20 20 | LDR/STR|...E |
|00002a80| 20 20 20 20 20 20 20 20 | 20 20 63 6d 70 20 20 20 | | cmp |
|00002a90| 20 20 39 2c 23 31 20 20 | 20 20 20 20 20 20 20 20 | 9,#1 | |
|00002aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 69 73 | | ; is|
|00002ab0| 20 69 74 20 4c 44 52 2f | 53 54 52 20 3f 0d 00 de | it LDR/|STR ?...|
|00002ac0| 4c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6f |L | o|
|00002ad0| 72 72 65 71 20 20 20 38 | 2c 38 2c 23 31 3c 3c 32 |rreq 8|,8,#1<<2|
|00002ae0| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0 | |
|00002af0| 20 3b 20 72 65 6d 65 6d | 62 65 72 20 69 66 20 69 | ; remem|ber if i|
|00002b00| 74 20 77 61 73 20 4c 44 | 52 0d 00 df 4a 20 20 20 |t was LD|R...J |
|00002b10| 20 20 20 20 20 20 20 20 | 20 20 20 6c 64 72 6c 65 | | ldrle|
|00002b20| 62 20 20 31 34 2c 5b 30 | 5d 20 20 20 20 20 20 20 |b 14,[0|] |
|00002b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 63 | | ; c|
|00002b40| 68 65 63 6b 20 66 6f 72 | 20 27 62 27 20 28 62 79 |heck for| 'b' (by|
|00002b50| 74 65 29 0d 00 e0 35 20 | 20 20 20 20 20 20 20 20 |te)...5 | |
|00002b60| 20 20 20 20 20 6f 72 72 | 6c 65 20 20 20 31 34 2c | orr|le 14,|
|00002b70| 31 34 2c 23 33 32 20 20 | 20 20 20 20 20 20 20 20 |14,#32 | |
|00002b80| 20 20 20 20 20 20 20 3b | 0d 00 e1 33 20 20 20 20 | ;|...3 |
|00002b90| 20 20 20 20 20 20 20 20 | 20 20 74 65 71 6c 65 20 | | teqle |
|00002ba0| 20 20 31 34 2c 23 97 22 | 62 22 20 20 20 20 20 20 | 14,#."|b" |
|00002bb0| 20 20 20 20 20 20 20 20 | 20 20 3b 0d 00 e2 35 20 | | ;...5 |
|00002bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 61 64 64 | | add|
|00002bd0| 65 71 20 20 20 30 2c 30 | 2c 23 31 20 20 20 20 20 |eq 0,0|,#1 |
|00002be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00002bf0| 0d 00 e3 35 20 20 20 20 | 20 20 20 20 20 20 20 20 |...5 | |
|00002c00| 20 20 6f 72 72 65 71 20 | 20 20 38 2c 38 2c 23 31 | orreq | 8,8,#1|
|00002c10| 3c 3c 32 32 20 20 20 20 | 20 20 20 20 20 20 20 20 |<<22 | |
|00002c20| 20 20 20 20 3b 0d 00 e4 | 04 0d 00 e5 42 20 20 20 | ;...|....B |
|00002c30| 20 20 20 20 20 20 20 20 | 20 20 20 62 6c 20 20 20 | | bl |
|00002c40| 20 20 20 67 65 74 72 65 | 67 69 73 74 65 72 20 20 | getre|gister |
|00002c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 67 | | ; g|
|00002c60| 65 74 20 72 65 67 69 73 | 74 65 72 0d 00 e6 43 20 |et regis|ter...C |
|00002c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6f 72 72 | | orr|
|00002c80| 20 20 20 20 20 38 2c 38 | 2c 31 2c 6c 73 6c 23 31 | 8,8|,1,lsl#1|
|00002c90| 32 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |2 | ;|
|00002ca0| 20 6b 65 65 70 20 72 65 | 67 69 73 74 65 72 0d 00 | keep re|gister..|
|00002cb0| e7 04 0d 00 e8 41 20 20 | 20 20 20 20 20 20 20 20 |.....A | |
|00002cc0| 20 20 20 20 74 65 71 20 | 20 20 20 20 39 2c 23 30 | teq | 9,#0|
|00002cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002ce0| 20 20 20 20 20 20 3b 20 | 69 73 20 69 74 20 53 54 | ; |is it ST|
|00002cf0| 52 20 3f 0d 00 e9 51 20 | 20 20 20 20 20 20 20 20 |R ?...Q | |
|00002d00| 20 20 20 20 20 6d 6f 76 | 65 71 20 20 20 36 2c 31 | mov|eq 6,1|
|00002d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d20| 20 20 20 20 20 20 20 3b | 20 20 20 6b 65 65 70 20 | ;| keep |
|00002d30| 64 65 73 74 69 6e 61 74 | 69 6f 6e 20 72 65 67 69 |destinat|ion regi|
|00002d40| 73 74 65 72 0d 00 ea 49 | 20 20 20 20 20 20 20 20 |ster...I| |
|00002d50| 20 20 20 20 20 20 62 6c | 65 71 20 20 20 20 67 65 | bl|eq ge|
|00002d60| 74 72 65 67 69 73 74 65 | 72 20 20 20 20 20 20 20 |tregiste|r |
|00002d70| 20 20 20 20 20 20 20 20 | 3b 20 20 20 67 65 74 20 | |; get |
|00002d80| 74 65 6d 70 20 72 65 67 | 69 73 74 65 72 0d 00 eb |temp reg|ister...|
|00002d90| 46 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 74 |F | t|
|00002da0| 65 71 65 71 20 20 20 36 | 2c 31 20 20 20 20 20 20 |eqeq 6|,1 |
|00002db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002dc0| 20 3b 20 20 20 61 72 65 | 20 74 68 65 79 20 65 71 | ; are| they eq|
|00002dd0| 75 61 6c 0d 00 ec 53 20 | 20 20 20 20 20 20 20 20 |ual...S | |
|00002de0| 20 20 20 20 20 62 6c 65 | 71 20 20 20 20 62 61 64 | ble|q bad|
|00002df0| 5f 74 65 6d 70 20 20 20 | 20 20 20 20 20 20 20 20 |_temp | |
|00002e00| 20 20 20 20 20 20 20 3b | 20 20 20 77 65 20 64 6f | ;| we do|
|00002e10| 6e 27 74 20 61 6c 6c 6f | 77 20 73 75 63 68 20 74 |n't allo|w such t|
|00002e20| 68 69 6e 67 20 21 0d 00 | ed 35 20 20 20 20 20 20 |hing !..|.5 |
|00002e30| 20 20 20 20 20 20 20 20 | 62 76 73 20 20 20 20 20 | |bvs |
|00002e40| 61 73 6d 65 72 72 6f 72 | 32 20 20 20 20 20 20 20 |asmerror|2 |
|00002e50| 20 20 20 20 20 20 20 20 | 20 20 3b 0d 00 ee 48 20 | | ;...H |
|00002e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6f 72 72 | | orr|
|00002e70| 20 20 20 20 20 38 2c 38 | 2c 31 2c 6c 73 6c 23 31 | 8,8|,1,lsl#1|
|00002e80| 36 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |6 | ;|
|00002e90| 20 6b 65 65 70 20 62 61 | 73 65 20 72 65 67 69 73 | keep ba|se regis|
|00002ea0| 74 65 72 0d 00 ef 04 0d | 00 f0 41 20 20 20 20 20 |ter.....|..A |
|00002eb0| 20 20 20 20 20 20 20 20 | 20 2a 62 6c 20 20 20 20 | | *bl |
|00002ec0| 20 57 54 2b 5f 47 65 74 | 56 61 6c 75 65 20 20 20 | WT+_Get|Value |
|00002ed0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 67 65 74 | | ; get|
|00002ee0| 20 61 64 64 72 65 73 73 | 0d 00 f1 4e 20 20 20 20 | address|...N |
|00002ef0| 20 20 20 20 20 20 20 20 | 20 20 6c 64 72 62 20 20 | | ldrb |
|00002f00| 20 20 31 34 2c 5b 30 5d | 20 20 20 20 20 20 20 20 | 14,[0]| |
|00002f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 69 73 | | ; is|
|00002f20| 20 74 68 65 72 65 20 61 | 6e 79 74 68 69 6e 67 20 | there a|nything |
|00002f30| 6d 6f 72 65 20 3f 0d 00 | f2 35 20 20 20 20 20 20 |more ?..|.5 |
|00002f40| 20 20 20 20 20 20 20 20 | 63 6d 70 20 20 20 20 20 | |cmp |
|00002f50| 31 34 2c 23 33 32 20 20 | 20 20 20 20 20 20 20 20 |14,#32 | |
|00002f60| 20 20 20 20 20 20 20 20 | 20 20 3b 0d 00 f3 54 20 | | ;...T |
|00002f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 62 67 65 | | bge|
|00002f80| 20 20 20 20 20 61 73 6d | 65 72 72 6f 72 20 20 20 | asm|error |
|00002f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00002fa0| 20 69 66 20 74 68 65 72 | 65 20 69 73 20 69 74 20 | if ther|e is it |
|00002fb0| 69 73 20 73 79 6e 74 61 | 78 20 65 72 72 6f 72 0d |is synta|x error.|
|00002fc0| 00 f4 04 0d 00 f5 4f 20 | 20 20 20 20 20 20 20 20 |......O | |
|00002fd0| 20 20 20 20 20 6c 64 6d | 66 64 20 20 20 31 33 21 | ldm|fd 13!|
|00002fe0| 2c 7b 32 2d 33 2c 31 34 | 7d 20 20 20 20 20 20 20 |,{2-3,14|} |
|00002ff0| 20 20 20 20 20 20 20 3b | 20 6f 75 61 6f 75 21 20 | ;| ouaou! |
|00003000| 6d 79 20 6f 72 69 67 69 | 6e 61 6c 20 72 65 67 73 |my origi|nal regs|
|00003010| 20 21 0d 00 f6 4d 20 20 | 20 20 20 20 20 20 20 20 | !...M | |
|00003020| 20 20 20 20 74 73 74 20 | 20 20 20 20 31 30 2c 23 | tst | 10,#|
|00003030| 34 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4 | |
|00003040| 20 20 20 20 20 20 3b 20 | 69 73 20 69 74 20 6f 66 | ; |is it of|
|00003050| 66 73 65 74 20 61 73 73 | 65 6d 62 6c 79 20 3f 0d |fset ass|embly ?.|
|00003060| 00 f7 45 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..E | |
|00003070| 20 6d 6f 76 65 71 20 20 | 20 30 2c 32 20 20 20 20 | moveq | 0,2 |
|00003080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003090| 20 20 20 3b 20 20 20 69 | 66 20 6e 6f 74 20 75 73 | ; i|f not us|
|000030a0| 65 20 50 25 0d 00 f8 42 | 20 20 20 20 20 20 20 20 |e P%...B| |
|000030b0| 20 20 20 20 20 20 6d 6f | 76 6e 65 20 20 20 30 2c | mo|vne 0,|
|000030c0| 33 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |3 | |
|000030d0| 20 20 20 20 20 20 20 20 | 3b 20 65 6c 73 65 20 75 | |; else u|
|000030e0| 73 65 20 4f 25 20 0d 00 | f9 4b 20 20 20 20 20 20 |se O% ..|.K |
|000030f0| 20 20 20 20 20 20 20 20 | 73 75 62 20 20 20 20 20 | |sub |
|00003100| 31 2c 31 2c 32 20 20 20 | 20 20 20 20 20 20 20 20 |1,1,2 | |
|00003110| 20 20 20 20 20 20 20 20 | 20 20 3b 20 6f 66 66 73 | | ; offs|
|00003120| 65 74 20 74 6f 20 66 61 | 72 20 61 64 64 72 65 73 |et to fa|r addres|
|00003130| 73 0d 00 fa 43 20 20 20 | 20 20 20 20 20 20 20 20 |s...C | |
|00003140| 20 20 20 73 75 62 73 20 | 20 20 20 31 2c 31 2c 23 | subs | 1,1,#|
|00003150| 38 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |8 | |
|00003160| 20 20 20 20 20 3b 20 28 | 72 65 61 6c 20 6f 66 66 | ; (|real off|
|00003170| 73 65 74 29 0d 00 fb 3d | 20 20 20 20 20 20 20 20 |set)...=| |
|00003180| 20 20 20 20 20 20 72 73 | 62 6d 69 20 20 20 31 2c | rs|bmi 1,|
|00003190| 31 2c 23 30 20 20 20 20 | 20 20 20 20 20 20 20 20 |1,#0 | |
|000031a0| 20 20 20 20 20 20 20 20 | 3b 20 41 53 42 28 72 31 | |; ASB(r1|
|000031b0| 29 0d 00 fc 51 20 20 20 | 20 20 20 20 20 20 20 20 |)...Q | |
|000031c0| 20 20 20 6f 72 72 70 6c | 20 20 20 38 2c 38 2c 23 | orrpl| 8,8,#|
|000031d0| 31 3c 3c 32 33 20 20 20 | 20 20 20 20 20 20 20 20 |1<<23 | |
|000031e0| 20 20 20 20 20 3b 20 72 | 65 6d 65 6d 62 65 72 20 | ; r|emember |
|000031f0| 69 66 20 69 74 20 77 61 | 73 20 6e 65 67 61 74 69 |if it wa|s negati|
|00003200| 76 65 0d 00 fd 3a 20 20 | 20 20 20 20 20 20 20 20 |ve...: | |
|00003210| 20 20 20 20 62 69 63 73 | 20 20 20 20 31 35 2c 31 | bics| 15,1|
|00003220| 34 2c 23 31 3c 3c 32 39 | 20 20 20 20 20 20 20 20 |4,#1<<29| |
|00003230| 20 20 20 20 20 20 3b 20 | 62 79 65 21 0d 00 fe 04 | ; |bye!....|
|00003240| 0d 00 ff 04 0d 01 00 4d | 2e 67 65 74 72 65 67 69 |.......M|.getregi|
|00003250| 73 74 65 72 20 20 6d 6f | 76 20 20 20 20 20 35 2c |ster mo|v 5,|
|00003260| 31 34 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |14 | |
|00003270| 20 20 20 20 20 20 20 20 | 3b 20 72 65 6d 65 6d 62 | |; rememb|
|00003280| 65 72 20 72 65 74 75 72 | 6e 20 61 64 64 72 65 73 |er retur|n addres|
|00003290| 73 0d 01 01 42 20 20 20 | 20 20 20 20 20 20 20 20 |s...B | |
|000032a0| 20 20 20 2a 62 6c 20 20 | 20 20 20 57 54 2b 5f 47 | *bl | WT+_G|
|000032b0| 65 74 52 65 67 69 73 74 | 65 72 20 20 20 20 20 20 |etRegist|er |
|000032c0| 20 20 20 20 20 3b 20 67 | 65 74 20 72 65 67 69 73 | ; g|et regis|
|000032d0| 74 65 72 0d 01 02 46 20 | 20 20 20 20 20 20 20 20 |ter...F | |
|000032e0| 20 20 20 20 20 74 65 71 | 20 20 20 20 20 31 2c 23 | teq| 1,#|
|000032f0| 31 35 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |15 | |
|00003300| 20 20 20 20 20 20 20 3b | 20 69 73 20 72 65 67 69 | ;| is regi|
|00003310| 73 74 65 72 20 50 43 20 | 3f 0d 01 03 4a 20 20 20 |ster PC |?...J |
|00003320| 20 20 20 20 20 20 20 20 | 20 20 20 62 65 71 20 20 | | beq |
|00003330| 20 20 20 6e 6f 5f 70 63 | 20 20 20 20 20 20 20 20 | no_pc| |
|00003340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 77 | | ; w|
|00003350| 65 20 64 6f 6e 27 74 20 | 77 61 6e 74 20 74 68 61 |e don't |want tha|
|00003360| 74 20 21 0d 01 04 46 20 | 20 20 20 20 20 20 20 20 |t !...F | |
|00003370| 20 20 20 20 20 74 65 71 | 20 20 20 20 20 31 34 2c | teq| 14,|
|00003380| 23 97 22 2c 22 20 20 20 | 20 20 20 20 20 20 20 20 |#."," | |
|00003390| 20 20 20 20 20 3b 20 69 | 73 20 74 68 65 72 65 20 | ; i|s there |
|000033a0| 61 20 63 6f 6d 6d 61 20 | 3f 0d 01 05 42 20 20 20 |a comma |?...B |
|000033b0| 20 20 20 20 20 20 20 20 | 20 20 20 61 64 64 65 71 | | addeq|
|000033c0| 20 20 20 30 2c 30 2c 23 | 31 20 20 20 20 20 20 20 | 0,0,#|1 |
|000033d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 79 | | ; y|
|000033e0| 65 73 20 74 68 65 72 65 | 20 69 73 0d 01 06 35 20 |es there| is...5 |
|000033f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 | | mov|
|00003400| 65 71 73 20 20 31 35 2c | 35 20 20 20 20 20 20 20 |eqs 15,|5 |
|00003410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00003420| 0d 01 07 4c 20 20 20 20 | 20 20 20 20 20 20 20 20 |...L | |
|00003430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003450| 20 20 20 20 3b 20 6e 6f | 20 3f 20 53 79 6e 74 61 | ; no| ? Synta|
|00003460| 78 20 65 72 72 6f 72 20 | 74 68 65 6e 0d 01 08 1c |x error |then....|
|00003470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 66 | | ;f|
|00003480| 6f 6c 6c 6f 77 65 64 21 | 0d 01 09 12 20 20 20 20 |ollowed!|.... |
|00003490| 20 20 20 20 20 20 20 20 | 20 20 0d 01 0a 20 2e 61 | | ... .a|
|000034a0| 73 6d 65 72 72 6f 72 20 | 20 20 20 20 62 6c 20 20 |smerror | bl |
|000034b0| 20 20 20 20 73 79 6e 74 | 61 78 0d 01 0b 26 2e 61 | synt|ax...&.a|
|000034c0| 73 6d 65 72 72 6f 72 32 | 20 20 20 20 6c 64 6d 66 |smerror2| ldmf|
|000034d0| 64 20 20 20 31 33 21 2c | 7b 32 2d 33 2c 31 34 7d |d 13!,|{2-3,14}|
|000034e0| 0d 01 0c 28 20 20 20 20 | 20 20 20 20 20 20 20 20 |...( | |
|000034f0| 20 20 6f 72 72 73 20 20 | 20 20 31 35 2c 31 34 2c | orrs | 15,14,|
|00003500| 23 25 31 31 3c 3c 32 38 | 0d 01 0d 04 0d 01 0e 1e |#%11<<28|........|
|00003510| 2e 6d 6e 65 6d 6f 6e 69 | 63 73 20 20 20 3a 3d 22 |.mnemoni|cs :="|
|00003520| 41 44 52 4c 44 52 53 54 | 52 22 0d 01 0f 17 20 20 |ADRLDRST|R".... |
|00003530| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 6c 69 67 | | alig|
|00003540| 6e 0d 01 10 04 0d 01 11 | 49 5c 5f 5f 5f 5f 5f 5f |n.......|I\______|
|00003550| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003560| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003570| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003580| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 0d 01 |________|______..|
|00003590| 12 04 0d 01 13 28 2e 62 | 61 64 5f 74 65 6d 70 20 |.....(.b|ad_temp |
|000035a0| 20 20 20 20 61 64 72 20 | 20 20 20 20 33 2c 62 61 | adr | 3,ba|
|000035b0| 64 5f 74 65 6d 70 5f 65 | 72 72 0d 01 14 1f 20 20 |d_temp_e|rr.... |
|000035c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 20 20 20 | | b |
|000035d0| 20 20 20 20 65 72 72 6f | 72 0d 01 15 25 2e 6e 6f | erro|r...%.no|
|000035e0| 5f 70 63 20 20 20 20 20 | 20 20 20 61 64 72 20 20 |_pc | adr |
|000035f0| 20 20 20 33 2c 6e 6f 5f | 70 63 5f 65 72 72 0d 01 | 3,no_|pc_err..|
|00003600| 16 1f 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00003610| 62 20 20 20 20 20 20 20 | 65 72 72 6f 72 0d 01 17 |b |error...|
|00003620| 27 2e 74 6f 6f 5f 66 61 | 72 20 20 20 20 20 20 61 |'.too_fa|r a|
|00003630| 64 72 20 20 20 20 20 33 | 2c 74 6f 6f 5f 66 61 72 |dr 3|,too_far|
|00003640| 5f 65 72 72 0d 01 18 1f | 20 20 20 20 20 20 20 20 |_err....| |
|00003650| 20 20 20 20 20 20 62 20 | 20 20 20 20 20 20 65 72 | b | er|
|00003660| 72 6f 72 0d 01 19 26 2e | 73 79 6e 74 61 78 20 20 |ror...&.|syntax |
|00003670| 20 20 20 20 20 61 64 72 | 20 20 20 20 20 33 2c 73 | adr| 3,s|
|00003680| 79 6e 74 61 78 5f 65 72 | 72 0d 01 1a 1e 2e 65 72 |yntax_er|r.....er|
|00003690| 72 6f 72 20 20 20 20 20 | 20 20 20 6d 6f 76 20 20 |ror | mov |
|000036a0| 20 20 20 34 2c 31 34 0d | 01 1b 21 20 20 20 20 20 | 4,14.|..! |
|000036b0| 20 20 20 20 20 20 20 20 | 20 73 75 62 20 20 20 20 | | sub |
|000036c0| 20 30 2c 31 31 2c 23 31 | 0d 01 1c 1e 20 20 20 20 | 0,11,#1|.... |
|000036d0| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 20 20 20 | | mov |
|000036e0| 20 20 32 2c 23 30 0d 01 | 1d 2b 20 20 20 20 20 20 | 2,#0..|.+ |
|000036f0| 20 20 20 20 20 20 20 20 | 2a 62 6c 20 20 20 20 20 | |*bl |
|00003700| 57 54 5f 4d 61 6b 65 45 | 72 72 6f 72 42 6c 6f 63 |WT_MakeE|rrorBloc|
|00003710| 6b 0d 01 1e 1e 20 20 20 | 20 20 20 20 20 20 20 20 |k.... | |
|00003720| 20 20 20 6d 6f 76 20 20 | 20 20 20 31 35 2c 34 0d | mov | 15,4.|
|00003730| 01 1f 04 0d 01 20 42 2e | 6e 6f 5f 70 63 5f 65 72 |..... B.|no_pc_er|
|00003740| 72 20 20 20 20 a4 65 72 | 72 28 26 63 61 66 65 2c |r .er|r(&cafe,|
|00003750| 22 50 41 4e 49 43 21 20 | 59 6f 75 20 63 61 6e 6e |"PANIC! |You cann|
|00003760| 6f 74 20 75 73 65 20 50 | 43 20 6f 6e 3a 20 27 25 |ot use P|C on: '%|
|00003770| 2a 30 27 22 29 0d 01 21 | 3d 2e 73 79 6e 74 61 78 |*0'")..!|=.syntax|
|00003780| 5f 65 72 72 20 20 20 a4 | 65 72 72 28 26 63 61 66 |_err .|err(&caf|
|00003790| 65 2c 22 50 41 4e 49 43 | 21 20 53 79 6e 74 61 78 |e,"PANIC|! Syntax|
|000037a0| 20 65 72 72 6f 72 20 6f | 6e 3a 20 27 25 2a 30 27 | error o|n: '%*0'|
|000037b0| 22 29 0d 01 22 40 2e 74 | 6f 6f 5f 66 61 72 5f 65 |").."@.t|oo_far_e|
|000037c0| 72 72 20 20 a4 65 72 72 | 28 26 63 61 66 65 2c 22 |rr .err|(&cafe,"|
|000037d0| 50 41 4e 49 43 21 20 54 | 6f 6f 20 66 61 72 20 61 |PANIC! T|oo far a|
|000037e0| 64 64 72 65 73 73 20 6f | 6e 3a 20 27 25 2a 30 27 |ddress o|n: '%*0'|
|000037f0| 22 29 0d 01 23 42 2e 62 | 61 64 5f 74 65 6d 70 5f |")..#B.b|ad_temp_|
|00003800| 65 72 72 20 a4 65 72 72 | 28 26 63 61 66 65 2c 22 |err .err|(&cafe,"|
|00003810| 50 41 4e 49 43 21 20 42 | 61 64 20 74 65 6d 70 20 |PANIC! B|ad temp |
|00003820| 72 65 67 69 73 74 65 72 | 20 6f 6e 3a 20 27 25 2a |register| on: '%*|
|00003830| 30 27 22 29 0d 01 24 04 | 0d 01 25 4a 5c 5f 5f 5f |0'")..$.|..%J\___|
|00003840| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003850| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003860| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003870| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003880| 5f 5f 0d 01 26 04 0d 01 | 27 04 0d 01 28 0c 2e 65 |__..&...|'...(..e|
|00003890| 6e 64 3a 5d 3a ed 0d 01 | 29 04 0d 01 2a 04 0d 01 |nd:]:...|)...*...|
|000038a0| 2b 18 c8 99 22 57 54 5f | 49 6e 73 74 61 6c 6c 22 |+..."WT_|Install"|
|000038b0| 2c 63 6f 64 65 25 0d 01 | 2c 25 c8 99 38 2c 31 30 |,code%..|,%..8,10|
|000038c0| 2c 70 61 74 68 24 2b 66 | 69 6c 65 24 2c 26 62 36 |,path$+f|ile$,&b6|
|000038d0| 66 2c 2c 63 6f 64 65 25 | 2c 4f 25 0d 01 2d 39 f4 |f,,code%|,O%..-9.|
|000038e0| 4c 49 42 52 41 52 59 22 | 47 4c 69 62 3a 47 4c 69 |LIBRARY"|GLib:GLi|
|000038f0| 62 22 3a 50 52 4f 43 73 | 61 76 65 63 6f 64 65 28 |b":PROCs|avecode(|
|00003900| 66 69 6c 65 24 2c 26 62 | 36 66 2c 63 6f 64 65 25 |file$,&b|6f,code%|
|00003910| 2c 4f 25 29 0d 01 2e 04 | 0d 01 2f 51 f2 73 69 6d |,O%)....|../Q.sim|
|00003920| 70 6c 65 5f 64 75 6d 70 | 28 22 3c 57 54 45 78 61 |ple_dump|("<WTExa|
|00003930| 6d 70 6c 65 73 24 44 69 | 72 3e 2e 50 72 69 76 61 |mples$Di|r>.Priva|
|00003940| 74 65 4d 73 67 2e 44 75 | 6d 70 22 2c 22 59 6f 75 |teMsg.Du|mp","You|
|00003950| 20 63 61 6e 20 6e 6f 77 | 20 72 75 6e 20 27 7e 46 | can now| run '~F|
|00003960| 61 72 41 64 72 44 27 22 | 29 0d 01 30 04 0d 01 31 |arAdrD'"|)..0...1|
|00003970| 05 e0 0d 01 32 04 0d 01 | 33 04 0d 01 34 29 dd a4 |....2...|3...4)..|
|00003980| 69 64 28 73 24 29 3a c8 | 99 22 57 54 5f 54 6f 6b |id(s$):.|."WT_Tok|
|00003990| 65 6e 69 73 65 22 2c 2c | 73 24 20 b8 2c 74 25 3a |enise",,|s$ .,t%:|
|000039a0| 3d 74 25 0d 01 35 1a dd | a4 6e 75 6d 28 73 24 29 |=t%..5..|.num(s$)|
|000039b0| 3a 3d a4 69 64 28 73 24 | 29 80 32 35 35 0d 01 36 |:=.id(s$|).255..6|
|000039c0| 36 dd a4 65 72 72 28 65 | 72 72 25 2c 74 24 29 3a |6..err(e|rr%,t$):|
|000039d0| 5b 6f 70 74 70 25 3a 64 | 63 64 20 65 72 72 25 3a |[optp%:d|cd err%:|
|000039e0| 3d a9 74 24 3a 3d 74 24 | 3a 61 6c 69 67 6e 3a 5d |=.t$:=t$|:align:]|
|000039f0| 3a 3d 30 0d 01 37 04 0d | 01 38 04 0d 01 39 18 dd |:=0..7..|.8...9..|
|00003a00| f2 73 69 6d 70 6c 65 5f | 64 75 6d 70 28 66 24 2c |.simple_|dump(f$,|
|00003a10| 65 24 29 0d 01 3a 47 ff | 28 22 3e 45 63 68 6f 20 |e$)..:G.|(">Echo |
|00003a20| 53 69 6d 70 6c 65 20 64 | 75 6d 70 20 6a 75 73 74 |Simple d|ump just|
|00003a30| 20 74 6f 20 63 68 65 63 | 6b 20 74 68 65 20 6f 75 | to chec|k the ou|
|00003a40| 74 70 75 74 20 63 6f 64 | 65 2e 20 20 7b 20 3e 20 |tput cod|e. { > |
|00003a50| 22 2b 66 24 2b 22 20 7d | 22 29 0d 01 3b 48 ff 28 |"+f$+" }|")..;H.(|
|00003a60| 22 3e 45 63 68 6f 20 7e | 7e 7e 7e 7e 7e 7e 7e 7e |">Echo ~|~~~~~~~~|
|00003a70| 7e 7e 7e 7e 7e 7e 7e 7e | 7e 7e 7e 7e 7e 7e 7e 7e |~~~~~~~~|~~~~~~~~|
|00003a80| 7e 7e 7e 7e 7e 7e 7e 7e | 7e 7e 7e 7e 7e 7e 7e 7e |~~~~~~~~|~~~~~~~~|
|00003a90| 7e 20 20 7b 20 3e 3e 20 | 22 2b 66 24 2b 22 20 7d |~ { >> |"+f$+" }|
|00003aa0| 22 29 0d 01 3c 34 ff 28 | 22 3e 4d 65 6d 6f 72 79 |")..<4.(|">Memory|
|00003ab0| 49 20 22 2b c3 7e 63 6f | 64 65 25 2b 22 20 22 2b |I "+.~co|de%+" "+|
|00003ac0| c3 7e 4f 25 2b 22 20 7b | 20 3e 3e 20 22 2b 66 24 |.~O%+" {| >> "+f$|
|00003ad0| 2b 22 20 7d 22 29 0d 01 | 3d 1c ff 28 22 3e 45 63 |+" }")..|=..(">Ec|
|00003ae0| 68 6f 20 7b 20 3e 3e 20 | 22 2b 66 24 2b 22 20 7d |ho { >> |"+f$+" }|
|00003af0| 22 29 0d 01 3e 24 ff 28 | 22 3e 45 63 68 6f 20 22 |")..>$.(|">Echo "|
|00003b00| 2b 65 24 2b 22 20 7b 20 | 3e 3e 20 22 2b 66 24 2b |+e$+" { |>> "+f$+|
|00003b10| 22 20 7d 22 29 20 0d 01 | 3f 1d ff 28 22 3e 53 65 |" }") ..|?..(">Se|
|00003b20| 74 54 79 70 65 20 22 2b | 66 24 2b 22 20 54 65 78 |tType "+|f$+" Tex|
|00003b30| 74 22 29 0d 01 40 17 ff | 28 22 3e 46 69 6c 65 72 |t")..@..|(">Filer|
|00003b40| 5f 52 75 6e 20 22 2b 66 | 24 29 0d 01 41 05 e1 0d |_Run "+f|$)..A...|
|00003b50| ff | |. | |
+--------+-------------------------+-------------------------+--------+--------+
