home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1995-04-04 | 4.7 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 04 0d 00 05 09 5b 6f |:.......|......[o|
|00000020| 70 74 30 0d 00 06 04 0d | 00 07 3c 3b 20 54 68 69 |pt0.....|..<; Thi|
|00000030| 73 20 69 73 20 61 20 73 | 69 6d 70 6c 65 20 64 65 |s is a s|imple de|
|00000040| 6d 6f 20 6f 66 20 77 68 | 61 74 20 70 72 69 76 61 |mo of wh|at priva|
|00000050| 74 65 20 6d 65 73 73 61 | 67 65 73 20 63 61 6e 20 |te messa|ges can |
|00000060| 64 6f 2e 0d 00 08 4a 3b | 20 54 68 65 20 66 6f 6c |do....J;| The fol|
|00000070| 6c 6f 77 69 6e 67 20 57 | 54 20 6d 6f 64 75 6c 65 |lowing W|T module|
|00000080| 20 70 72 6f 76 69 64 65 | 73 20 61 20 6e 65 77 20 | provide|s a new |
|00000090| 42 41 53 49 43 27 73 20 | 61 73 73 65 6d 62 6c 65 |BASIC's |assemble|
|000000a0| 72 20 69 6e 73 74 72 75 | 63 74 69 6f 6e 0d 00 09 |r instru|ction...|
|000000b0| 3d 3b 20 74 68 65 20 27 | 3f 27 20 77 68 69 63 68 |=; the '|?' which|
|000000c0| 20 70 72 69 6e 74 73 20 | 69 6e 66 6f 72 6d 61 74 | prints |informat|
|000000d0| 69 6f 6e 20 77 68 69 6c | 65 20 42 41 53 49 43 20 |ion whil|e BASIC |
|000000e0| 61 73 73 65 6d 62 6c 65 | 73 2e 0d 00 0a 0e 3b 20 |assemble|s.....; |
|000000f0| 65 78 61 6d 70 6c 65 3a | 0d 00 0b 17 3b 20 3f 20 |example:|....; ? |
|00000100| 53 6f 20 66 61 72 20 73 | 6f 20 67 6f 6f 64 21 0d |So far s|o good!.|
|00000110| 00 0c 04 0d 00 0d 05 5d | 0d 00 0e 04 0d 00 0f 13 |.......]|........|
|00000120| 76 65 72 73 69 6f 6e 24 | 3d 22 30 2e 30 36 22 0d |version$|="0.06".|
|00000130| 00 10 04 0d 00 11 2f de | 63 6f 64 65 25 35 2a 31 |....../.|code%5*1|
|00000140| 30 32 34 3a e3 70 25 3d | 34 b8 36 88 32 3a 4f 25 |024:.p%=|4.6.2:O%|
|00000150| 3d 63 6f 64 65 25 3a 50 | 25 3d 30 3a 5b 4f 50 54 |=code%:P|%=0:[OPT|
|00000160| 70 25 0d 00 12 04 0d 00 | 13 4d 2e 77 74 6f 68 20 |p%......|.M.wtoh |
|00000170| 20 20 20 20 20 20 20 20 | 64 63 64 20 65 6e 64 2d | |dcd end-|
|00000180| 50 25 20 3c 3c 38 20 84 | 20 77 74 6f 68 5f 2d 50 |P% <<8 .| wtoh_-P|
|00000190| 25 20 20 20 3b 20 68 65 | 61 64 65 72 27 73 20 61 |% ; he|ader's a|
|000001a0| 6e 64 20 6d 6f 64 75 6c | 65 27 73 20 6c 65 6e 67 |nd modul|e's leng|
|000001b0| 74 68 73 0d 00 14 40 20 | 20 20 20 20 20 20 20 20 |ths...@ | |
|000001c0| 20 20 20 20 20 3d 22 57 | 54 6d 64 22 20 20 20 20 | ="W|Tmd" |
|000001d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001e0| 20 20 3b 20 66 69 6c 65 | 74 79 70 65 20 6d 61 72 | ; file|type mar|
|000001f0| 6b 65 72 0d 00 15 4b 20 | 20 20 20 20 20 20 20 20 |ker...K | |
|00000200| 20 20 20 20 20 64 63 64 | 20 77 74 6f 6e 61 6d 65 | dcd| wtoname|
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000220| 20 20 3b 20 6f 66 66 73 | 65 74 20 74 6f 20 66 75 | ; offs|et to fu|
|00000230| 6c 6c 20 6d 6f 64 75 6c | 65 20 6e 61 6d 65 0d 00 |ll modul|e name..|
|00000240| 16 04 0d 00 17 43 20 20 | 20 20 20 20 20 20 20 20 |.....C | |
|00000250| 20 20 20 20 64 63 64 20 | 57 54 53 65 72 76 69 63 | dcd |WTServic|
|00000260| 65 20 20 20 3b 20 6f 66 | 66 73 65 74 20 74 6f 20 |e ; of|fset to |
|00000270| 57 54 53 65 72 76 69 63 | 65 20 6d 73 67 20 68 61 |WTServic|e msg ha|
|00000280| 6e 64 6c 65 72 0d 00 18 | 4b 20 20 20 20 20 20 20 |ndler...|K |
|00000290| 20 20 20 20 20 20 20 64 | 63 64 20 30 20 20 20 20 | d|cd 0 |
|000002a0| 20 20 20 20 20 20 20 3b | 20 6e 6f 20 6f 66 66 73 | ;| no offs|
|000002b0| 65 74 20 74 6f 20 53 79 | 73 74 65 6d 20 73 65 72 |et to Sy|stem ser|
|000002c0| 76 69 63 65 20 6d 73 67 | 20 68 61 6e 64 6c 65 72 |vice msg| handler|
|000002d0| 0d 00 19 46 20 20 20 20 | 20 20 20 20 20 20 20 20 |...F | |
|000002e0| 20 20 64 63 64 20 30 20 | 20 20 20 20 20 20 20 20 | dcd 0 | |
|000002f0| 20 20 3b 20 6e 6f 20 6f | 66 66 73 65 74 20 74 6f | ; no o|ffset to|
|00000300| 20 42 72 6f 61 64 63 61 | 73 74 20 6d 73 67 20 68 | Broadca|st msg h|
|00000310| 61 6e 64 6c 65 72 0d 00 | 1a 49 20 20 20 20 20 20 |andler..|.I |
|00000320| 20 20 20 20 20 20 20 20 | 64 63 64 20 30 20 20 20 | |dcd 0 |
|00000330| 20 20 20 20 20 20 20 20 | 3b 20 6e 6f 20 6f 66 66 | |; no off|
|00000340| 73 65 74 20 74 6f 20 75 | 73 65 72 20 74 61 62 6c |set to u|ser tabl|
|00000350| 65 20 6f 66 20 57 54 20 | 76 65 63 74 6f 72 73 0d |e of WT |vectors.|
|00000360| 00 1b 04 0d 00 1c 4a 20 | 20 20 20 20 20 20 20 20 |......J | |
|00000370| 20 20 20 20 20 64 63 64 | 20 a4 69 64 28 22 57 54 | dcd| .id("WT|
|00000380| 2b 5f 30 22 29 20 84 20 | 31 20 20 3b 20 70 72 69 |+_0") . |1 ; pri|
|00000390| 76 61 74 65 20 6d 65 73 | 73 61 67 65 20 63 68 75 |vate mes|sage chu|
|000003a0| 6e 6b 20 61 6e 64 20 6e | 75 6d 62 65 72 0d 00 1d |nk and n|umber...|
|000003b0| 52 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |R | |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000003d0| 20 20 20 20 20 20 20 3b | 20 6f 66 20 6d 65 73 73 | ;| of mess|
|000003e0| 61 67 65 73 20 77 69 74 | 68 20 74 68 61 74 20 63 |ages wit|h that c|
|000003f0| 68 75 6e 6b 20 77 65 20 | 73 75 70 70 6f 72 74 0d |hunk we |support.|
|00000400| 00 1e 4d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..M | |
|00000410| 20 64 63 64 20 70 6d 68 | 20 20 20 20 20 20 20 20 | dcd pmh| |
|00000420| 20 20 20 20 20 20 20 20 | 20 3b 20 6f 66 66 73 65 | | ; offse|
|00000430| 74 20 74 6f 20 70 72 69 | 76 61 74 65 20 6d 65 73 |t to pri|vate mes|
|00000440| 73 61 67 65 20 68 61 6e | 64 6c 65 72 0d 00 1f 0a |sage han|dler....|
|00000450| 2e 77 74 6f 68 5f 0d 00 | 20 04 0d 00 21 1f 2e 77 |.wtoh_..| ...!..w|
|00000460| 74 6f 6e 61 6d 65 20 20 | 20 20 20 3a 3d 22 42 41 |toname | :="BA|
|00000470| 53 61 73 6d 44 65 6d 6f | 22 0d 00 22 14 20 20 20 |SasmDemo|"..". |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 3d 39 0d 00 23 | | =9..#|
|00000490| 37 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3d |7 | =|
|000004a0| 76 65 72 73 69 6f 6e 24 | 2b 22 20 28 22 2b c1 91 |version$|+" ("+..|
|000004b0| 24 2c 35 2c 31 31 29 2b | 22 29 22 3a 3d 30 3a 61 |$,5,11)+|")":=0:a|
|000004c0| 6c 69 67 6e 0d 00 24 04 | 0d 00 25 49 3b 5f 5f 5f |lign..$.|..%I;___|
|000004d0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000004e0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000004f0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000500| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000510| 5f 0d 00 26 04 0d 00 27 | 4c 2e 57 54 53 65 72 76 |_..&...'|L.WTServ|
|00000520| 69 63 65 20 20 20 20 74 | 65 71 20 20 20 20 20 31 |ice t|eq 1|
|00000530| 2c 23 a4 69 64 28 22 57 | 54 53 65 72 76 69 63 65 |,#.id("W|TService|
|00000540| 5f 49 6e 69 74 69 61 6c | 69 73 61 74 69 6f 6e 22 |_Initial|isation"|
|00000550| 29 20 3b 20 69 6e 69 74 | 20 6d 6f 64 75 6c 65 20 |) ; init| module |
|00000560| 3f 0d 00 28 1f 20 20 20 | 20 20 20 20 20 20 20 20 |?..(. | |
|00000570| 20 20 20 6d 6f 76 6e 65 | 73 20 20 31 35 2c 31 34 | movne|s 15,14|
|00000580| 0d 00 29 26 20 20 20 20 | 20 20 20 20 20 20 20 20 |..)& | |
|00000590| 20 20 73 74 6d 66 64 20 | 20 20 31 33 21 2c 7b 31 | stmfd | 13!,{1|
|000005a0| 2d 34 2c 31 34 7d 0d 00 | 2a 46 20 20 20 20 20 20 |-4,14}..|*F |
|000005b0| 20 20 20 20 20 20 20 20 | 61 64 72 20 20 20 20 20 | |adr |
|000005c0| 30 2c 6e 65 65 64 65 64 | 20 20 20 20 20 20 20 20 |0,needed| |
|000005d0| 20 20 20 20 20 20 3b 20 | 6e 65 65 64 65 64 20 6d | ; |needed m|
|000005e0| 6f 64 75 6c 65 73 20 74 | 61 62 6c 65 0d 00 2b 46 |odules t|able..+F|
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f | | mo|
|00000600| 76 20 20 20 20 20 31 2c | 23 31 20 20 20 20 20 20 |v 1,|#1 |
|00000610| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 69 6e | | ; in|
|00000620| 66 6f 72 6d 20 75 73 65 | 72 20 6f 6e 20 65 72 72 |form use|r on err|
|00000630| 6f 72 0d 00 2c 4d 20 20 | 20 20 20 20 20 20 20 20 |or..,M | |
|00000640| 20 20 20 20 6d 6f 76 20 | 20 20 20 20 32 2c 23 31 | mov | 2,#1|
|00000650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000660| 20 20 3b 20 70 65 72 6d | 61 6e 65 6e 74 20 63 68 | ; perm|anent ch|
|00000670| 65 6e 6e 65 6c 20 6f 6e | 20 72 65 73 65 74 73 0d |ennel on| resets.|
|00000680| 00 2d 3c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.-< | |
|00000690| 20 61 64 72 20 20 20 20 | 20 33 2c 77 74 6f 6e 61 | adr | 3,wtona|
|000006a0| 6d 65 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |me | ;|
|000006b0| 20 2d 3e 20 6d 79 20 6e | 61 6d 65 0d 00 2e 40 20 | -> my n|ame...@ |
|000006c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 6f 76 | | mov|
|000006d0| 20 20 20 20 20 34 2c 23 | 30 20 20 20 20 20 20 20 | 4,#|0 |
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 49 27 6d | | ; I'm|
|000006f0| 20 6e 6f 74 20 61 20 74 | 61 73 6b 0d 00 2f 4c 20 | not a t|ask../L |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 73 77 69 | | swi|
|00000710| 20 20 20 20 20 22 58 57 | 54 5f 52 65 67 69 73 74 | "XW|T_Regist|
|00000720| 65 72 22 20 20 20 20 20 | 20 20 20 3b 20 72 65 67 |er" | ; reg|
|00000730| 69 73 74 65 72 20 6e 65 | 65 64 65 64 20 57 54 20 |ister ne|eded WT |
|00000740| 6d 6f 64 75 6c 65 73 0d | 00 30 41 20 20 20 20 20 |modules.|.0A |
|00000750| 20 20 20 20 20 20 20 20 | 20 73 74 72 76 63 20 20 | | strvc |
|00000760| 20 32 2c 5b 31 32 2c 23 | 34 5d 20 20 20 20 20 20 | 2,[12,#|4] |
|00000770| 20 20 20 20 20 20 20 3b | 20 6b 65 65 70 20 6d 79 | ;| keep my|
|00000780| 20 63 68 61 6e 6e 65 6c | 0d 00 31 26 20 20 20 20 | channel|..1& |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 6c 64 6d 66 64 20 | | ldmfd |
|000007a0| 20 20 31 33 21 2c 7b 31 | 2d 34 2c 31 35 7d 0d 00 | 13!,{1|-4,15}..|
|000007b0| 32 04 0d 00 33 48 2e 6e | 65 65 64 65 64 20 20 20 |2...3H.n|eeded |
|000007c0| 20 20 20 3a 3d 22 57 54 | 44 4c 52 73 22 3a 3d 30 | :="WT|DLRs":=0|
|000007d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007e0| 20 20 3b 20 6e 65 65 64 | 65 64 20 57 54 20 6d 6f | ; need|ed WT mo|
|000007f0| 64 75 6c 65 20 74 69 74 | 6c 65 0d 00 34 4b 20 20 |dule tit|le..4K |
|00000800| 20 20 20 20 20 20 20 20 | 20 20 20 20 3d 22 2a 57 | | ="*W|
|00000810| 54 44 4c 52 73 5f 49 6e | 73 74 61 6c 6c 22 3a 3d |TDLRs_In|stall":=|
|00000820| 30 20 20 20 20 20 20 20 | 20 20 3b 20 75 73 65 20 |0 | ; use |
|00000830| 2a 63 6f 6d 6d 61 6e 64 | 20 69 66 20 6e 6f 74 20 |*command| if not |
|00000840| 6b 6e 6f 77 6e 0d 00 35 | 04 0d 00 36 48 20 20 20 |known..5|...6H |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 3d 22 57 54 2b | | ="WT+|
|00000860| 22 3a 3d 30 20 20 20 20 | 20 20 20 20 20 20 20 20 |":=0 | |
|00000870| 20 20 20 20 20 20 20 20 | 20 3b 20 6e 65 65 64 65 | | ; neede|
|00000880| 64 20 57 54 20 6d 6f 64 | 75 6c 65 20 74 69 74 6c |d WT mod|ule titl|
|00000890| 65 0d 00 37 48 20 20 20 | 20 20 20 20 20 20 20 20 |e..7H | |
|000008a0| 20 20 20 3d 22 57 54 4d | 6f 64 75 6c 65 73 3a 57 | ="WTM|odules:W|
|000008b0| 54 2b 22 3a 3d 30 20 20 | 20 20 20 20 20 20 20 20 |T+":=0 | |
|000008c0| 20 3b 20 75 73 65 20 6c | 6f 61 64 20 69 74 20 66 | ; use l|oad it f|
|000008d0| 72 6f 6d 20 74 68 65 72 | 65 0d 00 38 04 0d 00 39 |rom ther|e..8...9|
|000008e0| 50 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3d |P | =|
|000008f0| 30 3a 61 6c 69 67 6e 20 | 20 20 20 20 20 20 20 20 |0:align | |
|00000900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 74 | | ; t|
|00000910| 68 61 6e 78 2c 20 6e 6f | 20 6d 6f 72 65 20 6d 6f |hanx, no| more mo|
|00000920| 64 75 6c 65 73 20 6e 65 | 65 64 65 64 21 0d 00 3a |dules ne|eded!..:|
|00000930| 49 3b 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |I;______|________|
|00000940| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000950| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000960| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000970| 5f 5f 5f 5f 5f 5f 0d 00 | 3b 04 0d 00 3c 43 20 20 |______..|;...<C |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 54 68 | | ; Th|
|00000990| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 63 6f 64 65 |e follow|ing code|
|000009a0| 20 77 69 6c 6c 20 62 65 | 20 63 61 6c 6c 65 64 20 | will be| called |
|000009b0| 65 61 63 68 20 74 69 6d | 65 20 74 68 65 0d 00 3d |each tim|e the..=|
|000009c0| 45 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |E | ;|
|000009d0| 20 42 41 53 49 43 20 61 | 73 73 65 6d 62 6c 65 72 | BASIC a|ssembler|
|000009e0| 20 73 74 61 72 74 73 20 | 74 6f 20 61 73 73 65 6d | starts |to assem|
|000009f0| 62 6c 65 20 61 20 6e 65 | 77 20 6d 6e 65 6d 6f 6e |ble a ne|w mnemon|
|00000a00| 69 63 0d 00 3e 04 0d 00 | 3f 4c 20 20 20 20 20 20 |ic..>...|?L |
|00000a10| 20 20 20 20 20 20 20 20 | 3b 20 3d 3e 20 72 30 20 | |; => r0 |
|00000a20| 20 3d 20 74 68 65 20 66 | 69 72 73 74 20 63 68 61 | = the f|irst cha|
|00000a30| 72 61 63 74 65 72 20 6f | 66 20 74 68 65 20 6d 6e |racter o|f the mn|
|00000a40| 65 6d 6f 6e 69 63 20 74 | 6f 20 61 73 73 65 6d 62 |emonic t|o assemb|
|00000a50| 6c 65 0d 00 40 2f 20 20 | 20 20 20 20 20 20 20 20 |le..@/ | |
|00000a60| 20 20 20 20 3b 20 20 20 | 20 72 31 20 20 3d 20 70 | ; | r1 = p|
|00000a70| 72 69 76 61 74 65 20 6d | 65 73 73 61 67 65 20 49 |rivate m|essage I|
|00000a80| 44 0d 00 41 33 20 20 20 | 20 20 20 20 20 20 20 20 |D..A3 | |
|00000a90| 20 20 20 3b 20 20 20 20 | 72 31 31 20 3d 20 70 72 | ; |r11 = pr|
|00000aa0| 69 76 61 74 65 20 6d 65 | 73 73 61 67 65 20 6e 75 |ivate me|ssage nu|
|00000ab0| 6d 62 65 72 0d 00 42 3b | 20 20 20 20 20 20 20 20 |mber..B;| |
|00000ac0| 20 20 20 20 20 20 3b 20 | 20 20 20 72 31 32 20 3d | ; | r12 =|
|00000ad0| 20 6f 75 72 20 6d 6f 64 | 75 6c 65 27 73 20 77 6f | our mod|ule's wo|
|00000ae0| 72 6b 73 70 61 63 65 20 | 70 6f 69 6e 74 65 72 0d |rkspace |pointer.|
|00000af0| 00 43 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C* | |
|00000b00| 20 3b 20 20 20 20 72 31 | 33 20 3d 20 74 68 65 20 | ; r1|3 = the |
|00000b10| 53 56 43 20 73 74 61 63 | 6b 0d 00 44 2b 20 20 20 |SVC stac|k..D+ |
|00000b20| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 20 20 20 | | ; |
|00000b30| 72 31 34 20 3d 20 72 65 | 74 75 72 6e 20 61 64 64 |r14 = re|turn add|
|00000b40| 72 65 73 73 0d 00 45 25 | 20 20 20 20 20 20 20 20 |ress..E%| |
|00000b50| 20 20 20 20 20 20 3b 20 | 20 20 20 50 43 20 69 6e | ; | PC in|
|00000b60| 20 53 56 43 20 6d 6f 64 | 65 0d 00 46 04 0d 00 47 | SVC mod|e..F...G|
|00000b70| 46 2e 70 6d 68 20 20 20 | 20 20 20 20 20 20 20 74 |F.pmh | t|
|00000b80| 65 71 20 20 20 20 20 31 | 31 2c 23 a4 6e 75 6d 28 |eq 1|1,#.num(|
|00000b90| 22 57 54 2b 5f 41 73 73 | 65 6d 62 6c 65 22 29 20 |"WT+_Ass|emble") |
|00000ba0| 3b 20 69 73 20 69 74 20 | 42 41 53 49 43 70 61 74 |; is it |BASICpat|
|00000bb0| 63 68 3f 0d 00 48 1f 20 | 20 20 20 20 20 20 20 20 |ch?..H. | |
|00000bc0| 20 20 20 20 20 6d 6f 76 | 6e 65 73 20 20 31 35 2c | mov|nes 15,|
|00000bd0| 31 34 0d 00 49 4c 20 20 | 20 20 20 20 20 20 20 20 |14..IL | |
|00000be0| 20 20 20 20 74 65 71 20 | 20 20 20 20 30 2c 23 97 | teq | 0,#.|
|00000bf0| 22 3f 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |"?" | |
|00000c00| 20 20 3b 20 69 73 20 69 | 74 20 6f 75 72 20 73 74 | ; is i|t our st|
|00000c10| 61 72 74 20 63 68 61 72 | 61 63 74 65 72 3f 0d 00 |art char|acter?..|
|00000c20| 4a 1f 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |J. | |
|00000c30| 6d 6f 76 6e 65 73 20 20 | 31 35 2c 31 34 0d 00 4b |movnes |15,14..K|
|00000c40| 04 0d 00 4c 26 20 20 20 | 20 20 20 20 20 20 20 20 |...L& | |
|00000c50| 20 20 20 73 74 6d 66 64 | 20 20 20 31 33 21 2c 7b | stmfd| 13!,{|
|00000c60| 32 2d 35 2c 31 34 7d 0d | 00 4d 43 20 20 20 20 20 |2-5,14}.|.MC |
|00000c70| 20 20 20 20 20 20 20 20 | 20 2a 62 6c 20 20 20 20 | | *bl |
|00000c80| 20 57 54 2b 5f 47 65 74 | 42 41 53 49 43 53 74 61 | WT+_Get|BASICSta|
|00000c90| 74 75 73 20 20 20 20 20 | 20 3b 20 63 61 6c 6c 69 |tus | ; calli|
|00000ca0| 6e 67 20 44 4c 52 73 2e | 2e 2e 0d 00 4e 04 0d 00 |ng DLRs.|....N...|
|00000cb0| 4f 44 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |OD | |
|00000cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000cd0| 20 20 20 20 20 20 20 3b | 20 3c 3d 20 72 30 20 20 | ;| <= r0 |
|00000ce0| 3d 20 42 41 53 49 43 27 | 73 20 4f 50 54 20 63 6f |= BASIC'|s OPT co|
|00000cf0| 64 65 0d 00 50 51 20 20 | 20 20 20 20 20 20 20 20 |de..PQ | |
|00000d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d10| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 20 20 20 | | ; |
|00000d20| 72 31 20 20 3d 20 70 6f | 69 6e 74 65 72 20 74 6f |r1 = po|inter to|
|00000d30| 20 73 74 72 69 6e 67 20 | 74 6f 20 61 73 73 65 6d | string |to assem|
|00000d40| 62 6c 65 0d 00 51 4c 20 | 20 20 20 20 20 20 20 20 |ble..QL | |
|00000d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 20 20 | | ; |
|00000d70| 20 72 32 20 20 3d 20 63 | 75 72 72 65 6e 74 20 42 | r2 = c|urrent B|
|00000d80| 41 53 49 43 27 73 20 50 | 25 20 76 61 6c 75 65 0d |ASIC's P|% value.|
|00000d90| 00 52 4c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.RL | |
|00000da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000db0| 20 20 20 20 20 20 20 20 | 3b 20 20 20 20 72 33 20 | |; r3 |
|00000dc0| 20 3d 20 63 75 72 72 65 | 6e 74 20 42 41 53 49 43 | = curre|nt BASIC|
|00000dd0| 27 73 20 4f 25 20 76 61 | 6c 75 65 0d 00 53 4c 20 |'s O% va|lue..SL |
|00000de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e00| 20 20 20 20 3b 20 20 20 | 20 72 34 20 20 3d 20 63 | ; | r4 = c|
|00000e10| 75 72 72 65 6e 74 20 42 | 41 53 49 43 27 73 20 4c |urrent B|ASIC's L|
|00000e20| 25 20 76 61 6c 75 65 0d | 00 54 4e 20 20 20 20 20 |% value.|.TN |
|00000e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e50| 3b 20 20 20 20 72 35 20 | 20 3d 20 63 75 72 72 65 |; r5 | = curre|
|00000e60| 6e 74 20 73 6f 75 72 63 | 65 20 6c 69 6e 65 20 6e |nt sourc|e line n|
|00000e70| 75 6d 62 65 72 0d 00 55 | 04 0d 00 56 4f 20 20 20 |umber..U|...VO |
|00000e80| 20 20 20 20 20 20 20 20 | 20 20 20 74 73 74 20 20 | | tst |
|00000e90| 20 20 20 30 2c 23 32 20 | 20 20 20 20 20 20 20 20 | 0,#2 | |
|00000ea0| 20 20 3b 20 69 66 20 69 | 74 20 74 68 65 20 27 73 | ; if i|t the 's|
|00000eb0| 65 63 6f 6e 64 27 20 70 | 61 73 73 20 70 72 69 6e |econd' p|ass prin|
|00000ec0| 74 20 73 74 72 69 6e 67 | 0d 00 57 1d 20 20 20 20 |t string|..W. |
|00000ed0| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 76 6e 65 20 | | movne |
|00000ee0| 20 20 30 2c 31 0d 00 58 | 20 20 20 20 20 20 20 20 | 0,1..X| |
|00000ef0| 20 20 20 20 20 20 20 73 | 77 69 6e 65 20 20 20 26 | s|wine &|
|00000f00| 32 30 30 30 32 0d 00 59 | 20 20 20 20 20 20 20 20 |20002..Y| |
|00000f10| 20 20 20 20 20 20 20 73 | 77 69 6e 65 20 20 20 26 | s|wine &|
|00000f20| 32 30 30 30 33 0d 00 5a | 3c 20 20 20 20 20 20 20 |20003..Z|< |
|00000f30| 20 20 20 20 20 20 20 6d | 6f 76 20 20 20 20 20 31 | m|ov 1|
|00000f40| 2c 23 30 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |,#0 | ; |
|00000f50| 63 6c 61 69 6d 20 74 68 | 65 20 6d 65 73 73 61 67 |claim th|e messag|
|00000f60| 65 0d 00 5b 4a 20 20 20 | 20 20 20 20 20 20 20 20 |e..[J | |
|00000f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f80| 20 20 20 20 20 20 20 20 | 20 20 3b 20 69 66 20 77 | | ; if w|
|00000f90| 65 20 64 6f 6e 27 74 20 | 63 6c 61 69 6d 20 69 74 |e don't |claim it|
|00000fa0| 20 6f 74 68 65 72 73 20 | 61 6e 64 0d 00 5c 4c 20 | others |and..\L |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000fd0| 20 20 20 20 3b 20 66 69 | 6e 61 6c 79 20 42 41 53 | ; fi|naly BAS|
|00000fe0| 49 43 20 77 69 6c 6c 20 | 74 72 79 20 74 6f 20 61 |IC will |try to a|
|00000ff0| 73 73 65 6d 62 6c 65 0d | 00 5d 35 20 20 20 20 20 |ssemble.|.]5 |
|00001000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001020| 3b 20 6f 75 72 20 73 74 | 72 69 6e 67 0d 00 5e 27 |; our st|ring..^'|
|00001030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6c 64 | | ld|
|00001040| 6d 66 64 20 20 20 31 33 | 21 2c 7b 32 2d 35 2c 31 |mfd 13|!,{2-5,1|
|00001050| 35 7d 5e 0d 00 5f 04 0d | 00 60 0c 2e 65 6e 64 3a |5}^.._..|.`..end:|
|00001060| 5d 3a ed 0d 00 61 04 0d | 00 62 04 0d 00 63 18 c8 |]:...a..|.b...c..|
|00001070| 99 22 57 54 5f 49 6e 73 | 74 61 6c 6c 22 2c 63 6f |."WT_Ins|tall",co|
|00001080| 64 65 25 0d 00 64 3c c8 | 99 38 2c 31 30 2c 22 57 |de%..d<.|.8,10,"W|
|00001090| 54 65 78 61 6d 70 6c 65 | 73 3a 50 72 69 76 61 74 |Texample|s:Privat|
|000010a0| 65 4d 73 67 2e 42 41 53 | 61 73 6d 44 65 6d 6f 22 |eMsg.BAS|asmDemo"|
|000010b0| 2c 26 62 36 66 2c 2c 63 | 6f 64 65 25 2c 4f 25 0d |,&b6f,,c|ode%,O%.|
|000010c0| 00 65 04 0d 00 66 48 f2 | 73 69 6d 70 6c 65 5f 64 |.e...fH.|simple_d|
|000010d0| 75 6d 70 28 22 57 54 65 | 78 61 6d 70 6c 65 73 3a |ump("WTe|xamples:|
|000010e0| 50 72 69 76 61 74 65 4d | 73 67 2e 44 75 6d 70 22 |PrivateM|sg.Dump"|
|000010f0| 2c 22 59 6f 75 20 63 61 | 6e 20 6e 6f 77 20 72 75 |,"You ca|n now ru|
|00001100| 6e 20 27 7e 44 65 6d 6f | 27 22 29 0d 00 67 04 0d |n '~Demo|'")..g..|
|00001110| 00 68 05 e0 0d 00 69 04 | 0d 00 6a 04 0d 00 6b 29 |.h....i.|..j...k)|
|00001120| dd a4 69 64 28 73 24 29 | 3a c8 99 22 57 54 5f 54 |..id(s$)|:.."WT_T|
|00001130| 6f 6b 65 6e 69 73 65 22 | 2c 2c 73 24 20 b8 2c 74 |okenise"|,,s$ .,t|
|00001140| 25 3a 3d 74 25 0d 00 6c | 1b dd a4 6e 75 6d 28 73 |%:=t%..l|...num(s|
|00001150| 24 29 3a 3d a4 69 64 28 | 73 24 29 20 80 32 35 35 |$):=.id(|s$) .255|
|00001160| 0d 00 6d 04 0d 00 6e 18 | dd f2 73 69 6d 70 6c 65 |..m...n.|..simple|
|00001170| 5f 64 75 6d 70 28 66 24 | 2c 65 24 29 0d 00 6f 47 |_dump(f$|,e$)..oG|
|00001180| ff 28 22 3e 45 63 68 6f | 20 53 69 6d 70 6c 65 20 |.(">Echo| Simple |
|00001190| 64 75 6d 70 20 6a 75 73 | 74 20 74 6f 20 63 68 65 |dump jus|t to che|
|000011a0| 63 6b 20 74 68 65 20 6f | 75 74 70 75 74 20 63 6f |ck the o|utput co|
|000011b0| 64 65 2e 20 20 7b 20 3e | 20 22 2b 66 24 2b 22 20 |de. { >| "+f$+" |
|000011c0| 7d 22 29 0d 00 70 48 ff | 28 22 3e 45 63 68 6f 20 |}")..pH.|(">Echo |
|000011d0| 7e 7e 7e 7e 7e 7e 7e 7e | 7e 7e 7e 7e 7e 7e 7e 7e |~~~~~~~~|~~~~~~~~|
|000011e0| 7e 7e 7e 7e 7e 7e 7e 7e | 7e 7e 7e 7e 7e 7e 7e 7e |~~~~~~~~|~~~~~~~~|
|000011f0| 7e 7e 7e 7e 7e 7e 7e 7e | 7e 7e 20 20 7b 20 3e 3e |~~~~~~~~|~~ { >>|
|00001200| 20 22 2b 66 24 2b 22 20 | 7d 22 29 0d 00 71 34 ff | "+f$+" |}")..q4.|
|00001210| 28 22 3e 4d 65 6d 6f 72 | 79 49 20 22 2b c3 7e 63 |(">Memor|yI "+.~c|
|00001220| 6f 64 65 25 2b 22 20 22 | 2b c3 7e 4f 25 2b 22 20 |ode%+" "|+.~O%+" |
|00001230| 7b 20 3e 3e 20 22 2b 66 | 24 2b 22 20 7d 22 29 0d |{ >> "+f|$+" }").|
|00001240| 00 72 1c ff 28 22 3e 45 | 63 68 6f 20 7b 20 3e 3e |.r..(">E|cho { >>|
|00001250| 20 22 2b 66 24 2b 22 20 | 7d 22 29 0d 00 73 24 ff | "+f$+" |}")..s$.|
|00001260| 28 22 3e 45 63 68 6f 20 | 22 2b 65 24 2b 22 20 7b |(">Echo |"+e$+" {|
|00001270| 20 3e 3e 20 22 2b 66 24 | 2b 22 20 7d 22 29 20 0d | >> "+f$|+" }") .|
|00001280| 00 74 1d ff 28 22 3e 53 | 65 74 54 79 70 65 20 22 |.t..(">S|etType "|
|00001290| 2b 66 24 2b 22 20 54 65 | 78 74 22 29 0d 00 75 17 |+f$+" Te|xt")..u.|
|000012a0| ff 28 22 3e 46 69 6c 65 | 72 5f 52 75 6e 20 22 2b |.(">File|r_Run "+|
|000012b0| 66 24 29 0d 00 76 05 e1 | 0d ff |f$)..v..|.. |
+--------+-------------------------+-------------------------+--------+--------+
