/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / general / progs / mindimage / Programs / BasMod

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 20 de 20 63 | 6f 64 65 20 32 30 34 38 |.... . c|ode 2048|
|00000010| 0d 00 14 15 ee 20 85 20 | f1 f6 24 2b 22 20 3a 20 |..... . |..$+" : |
|00000020| 22 3b 9e 3a e0 0d 00 1e | 13 e3 20 6f 70 74 3d 34 |";.:....|.. opt=4|
|00000030| 20 b8 20 36 20 88 20 32 | 0d 00 28 10 4f 25 3d 63 | . 6 . 2|..(.O%=c|
|00000040| 6f 64 65 3a 50 25 3d 30 | 0d 00 32 0c 5b 4f 50 54 |ode:P%=0|..2.[OPT|
|00000050| 20 6f 70 74 0d 00 3c 0a | 45 51 55 44 20 30 0d 00 | opt..<.|EQUD 0..|
|00000060| 46 18 45 51 55 44 20 69 | 6e 69 74 20 20 20 20 5c |F.EQUD i|nit    \|
|00000070| 5c 20 49 6e 69 74 0d 00 | 50 19 45 51 55 44 20 73 |\ Init..|P.EQUD s|
|00000080| 74 6f 70 20 20 20 20 5c | 5c 20 46 69 6e 61 6c 0d |top    \|\ Final.|
|00000090| 00 5a 21 45 51 55 44 20 | 30 20 20 20 20 20 20 20 |.Z!EQUD |0       |
|000000a0| 5c 5c 20 53 65 72 76 69 | 63 65 20 63 61 6c 6c 73 |\\ Servi|ce calls|
|000000b0| 0d 00 64 0e 45 51 55 44 | 20 74 69 74 6c 65 0d 00 |..d.EQUD| title..|
|000000c0| 6e 0d 45 51 55 44 20 68 | 65 6c 70 0d 00 78 11 45 |n.EQUD h|elp..x.E|
|000000d0| 51 55 44 20 63 6f 6d 6d | 61 6e 64 73 0d 00 82 04 |QUD comm|ands....|
|000000e0| 0d 00 8c 0d 2e 63 6f 6d | 6d 61 6e 64 73 0d 00 96 |.....com|mands...|
|000000f0| 4f 45 51 55 53 20 22 50 | 72 53 74 61 72 74 22 3a |OEQUS "P|rStart":|
|00000100| 45 51 55 42 20 30 3a 41 | 4c 49 47 4e 3a 45 51 55 |EQUB 0:A|LIGN:EQU|
|00000110| 44 20 73 74 61 72 74 3a | 45 51 55 44 20 26 30 30 |D start:|EQUD &00|
|00000120| 30 31 30 30 30 30 3a 45 | 51 55 44 20 30 3a 45 51 |010000:E|QUD 0:EQ|
|00000130| 55 44 20 73 74 61 72 74 | 68 65 6c 70 0d 00 a0 44 |UD start|help...D|
|00000140| 45 51 55 53 20 22 50 72 | 53 74 6f 70 22 3a 45 51 |EQUS "Pr|Stop":EQ|
|00000150| 55 42 20 30 3a 41 4c 49 | 47 4e 3a 45 51 55 44 20 |UB 0:ALI|GN:EQUD |
|00000160| 73 74 6f 70 3a 45 51 55 | 44 20 30 3a 45 51 55 44 |stop:EQU|D 0:EQUD|
|00000170| 20 30 3a 45 51 55 44 20 | 73 74 6f 70 68 65 6c 70 | 0:EQUD |stophelp|
|00000180| 0d 00 aa 0a 45 51 55 44 | 20 30 0d 00 b4 25 2e 74 |....EQUD| 0...%.t|
|00000190| 69 74 6c 65 20 45 51 55 | 53 20 22 50 72 42 75 66 |itle EQU|S "PrBuf|
|000001a0| 66 22 3a 45 51 55 42 20 | 30 3a 41 4c 49 47 4e 0d |f":EQUB |0:ALIGN.|
|000001b0| 00 be 41 2e 68 65 6c 70 | 20 45 51 55 53 20 22 50 |..A.help| EQUS "P|
|000001c0| 72 69 6e 74 65 72 20 62 | 75 66 66 65 72 22 2b bd |rinter b|uffer"+.|
|000001d0| 28 39 29 2b 22 30 2e 30 | 30 20 28 22 2b c1 91 24 |(9)+"0.0|0 ("+..$|
|000001e0| 2c 35 2c 31 31 29 2b 22 | 29 20 62 79 20 43 54 22 |,5,11)+"|) by CT"|
|000001f0| 0d 00 c8 16 20 20 20 20 | 20 20 45 51 55 42 20 30 |....    |  EQUB 0|
|00000200| 3a 41 4c 49 47 4e 0d 00 | d2 7d 2e 73 74 61 72 74 |:ALIGN..|.}.start|
|00000210| 68 65 6c 70 20 45 51 55 | 53 20 22 50 72 53 74 61 |help EQU|S "PrSta|
|00000220| 72 74 20 6f 70 65 6e 73 | 20 61 20 70 69 70 65 2c |rt opens| a pipe,|
|00000230| 20 61 6e 64 20 62 65 67 | 69 6e 73 20 74 6f 20 72 | and beg|ins to r|
|00000240| 65 6d 6f 76 65 20 69 6e | 66 6f 20 66 72 6f 6d 20 |emove in|fo from |
|00000250| 69 74 2c 20 65 78 70 6f | 72 74 69 6e 67 20 69 74 |it, expo|rting it|
|00000260| 20 74 6f 20 74 68 65 20 | 70 61 72 61 6c 6c 65 6c | to the |parallel|
|00000270| 20 70 6f 72 74 22 3a 45 | 51 55 42 20 30 3a 41 4c | port":E|QUB 0:AL|
|00000280| 49 47 4e 0d 00 dc 46 2e | 73 74 6f 70 68 65 6c 70 |IGN...F.|stophelp|
|00000290| 20 45 51 55 53 20 22 47 | 6f 64 20 6b 6e 6f 77 73 | EQUS "G|od knows|
|000002a0| 20 77 68 61 74 20 74 68 | 69 73 20 63 6f 6d 6d 61 | what th|is comma|
|000002b0| 6e 64 20 77 69 6c 6c 20 | 64 6f 21 22 3a 45 51 55 |nd will |do!":EQU|
|000002c0| 42 20 30 3a 41 4c 49 47 | 4e 0d 00 e6 04 0d 00 f0 |B 0:ALIG|N.......|
|000002d0| 28 2e 65 72 72 20 4c 44 | 4d 46 44 20 52 31 33 21 |(.err LD|MFD R13!|
|000002e0| 2c 7b 52 31 7d 3a 84 52 | 20 50 43 2c 52 31 2c 23 |,{R1}:.R| PC,R1,#|
|000002f0| 31 3c 3c 32 38 0d 00 fa | 04 0d 01 04 21 2e 69 6e |1<<28...|....!.in|
|00000300| 69 74 20 53 54 4d 46 44 | 20 52 31 33 21 2c 7b 52 |it STMFD| R13!,{R|
|00000310| 37 2d 52 31 31 2c 52 31 | 34 7d 0d 01 0e 2f 4d 4f |7-R11,R1|4}.../MO|
|00000320| 56 20 52 30 2c 23 36 3a | 4d 4f 56 20 52 33 2c 23 |V R0,#6:|MOV R3,#|
|00000330| 36 34 3a 53 57 49 20 26 | 31 45 3a 53 54 52 56 43 |64:SWI &|1E:STRVC|
|00000340| 20 52 32 2c 5b 52 31 32 | 5d 0d 01 18 28 4d 4f 56 | R2,[R12|]...(MOV|
|00000350| 20 52 30 2c 23 30 3a 53 | 54 52 20 52 30 2c 5b 52 | R0,#0:S|TR R0,[R|
|00000360| 32 5d 3a 53 54 52 20 52 | 30 2c 5b 52 32 2c 23 34 |2]:STR R|0,[R2,#4|
|00000370| 5d 0d 01 22 1a 4c 44 4d | 46 44 20 52 31 33 21 2c |]..".LDM|FD R13!,|
|00000380| 7b 52 37 2d 52 31 31 2c | 50 43 7d 0d 01 2c 04 0d |{R7-R11,|PC}..,..|
|00000390| 01 36 29 2e 73 74 61 72 | 74 20 53 54 4d 46 44 20 |.6).star|t STMFD |
|000003a0| 52 31 33 21 2c 7b 52 31 | 34 7d 3a 4c 44 52 20 52 |R13!,{R1|4}:LDR R|
|000003b0| 31 30 2c 5b 52 31 32 5d | 0d 01 40 31 4d 4f 56 20 |10,[R12]|..@1MOV |
|000003c0| 52 30 2c 23 36 34 3a 41 | 44 52 20 52 31 2c 70 69 |R0,#64:A|DR R1,pi|
|000003d0| 70 65 3a 53 57 49 20 22 | 58 4f 53 5f 46 69 6e 64 |pe:SWI "|XOS_Find|
|000003e0| 22 3a 42 56 53 20 65 72 | 72 0d 01 4a 11 53 54 52 |":BVS er|r..J.STR|
|000003f0| 42 20 52 30 2c 5b 52 31 | 30 5d 0d 01 54 36 4d 4f |B R0,[R1|0]..T6MO|
|00000400| 56 20 52 30 2c 23 26 43 | 30 3a 41 44 52 20 52 31 |V R0,#&C|0:ADR R1|
|00000410| 2c 70 61 72 61 6c 6c 65 | 6c 3a 53 57 49 20 22 58 |,paralle|l:SWI "X|
|00000420| 4f 53 5f 46 69 6e 64 22 | 3a 42 56 53 20 65 72 72 |OS_Find"|:BVS err|
|00000430| 0d 01 5e 14 53 54 52 42 | 20 52 30 2c 5b 52 31 30 |..^.STRB| R0,[R10|
|00000440| 2c 23 31 5d 0d 01 68 30 | 4d 4f 56 20 52 30 2c 23 |,#1]..h0|MOV R0,#|
|00000450| 35 3a 4d 4f 56 20 52 31 | 2c 52 30 3a 4d 4f 56 20 |5:MOV R1|,R0:MOV |
|00000460| 52 32 2c 23 30 3a 53 57 | 49 20 22 58 4f 53 5f 42 |R2,#0:SW|I "XOS_B|
|00000470| 79 74 65 22 0d 01 72 3a | 41 44 52 20 52 30 2c 6e |yte"..r:|ADR R0,n|
|00000480| 61 6d 65 3a 41 44 52 20 | 52 31 2c 70 69 70 65 3a |ame:ADR |R1,pipe:|
|00000490| 4d 4f 56 20 52 32 2c 23 | 31 31 3a 4d 4f 56 20 52 |MOV R2,#|11:MOV R|
|000004a0| 33 2c 23 30 3a 4d 4f 56 | 20 52 34 2c 23 30 0d 01 |3,#0:MOV| R4,#0..|
|000004b0| 7c 17 53 57 49 20 22 58 | 4f 53 5f 53 65 74 56 61 ||.SWI "X|OS_SetVa|
|000004c0| 72 56 61 6c 22 0d 01 86 | 39 4d 4f 56 20 52 30 2c |rVal"...|9MOV R0,|
|000004d0| 23 31 3a 41 44 52 20 52 | 31 2c 70 72 69 6e 74 3a |#1:ADR R|1,print:|
|000004e0| 4d 4f 56 20 52 32 2c 52 | 31 30 3a 53 57 49 20 22 |MOV R2,R|10:SWI "|
|000004f0| 58 4f 53 5f 43 61 6c 6c | 45 76 65 72 79 22 0d 01 |XOS_Call|Every"..|
|00000500| 90 13 4c 44 4d 46 44 20 | 52 31 33 21 2c 7b 50 43 |..LDMFD |R13!,{PC|
|00000510| 7d 0d 01 9a 04 0d 01 a4 | 28 2e 73 74 6f 70 20 53 |}.......|(.stop S|
|00000520| 54 4d 46 44 20 52 31 33 | 21 2c 7b 52 31 34 7d 3a |TMFD R13|!,{R14}:|
|00000530| 4c 44 52 20 52 31 30 2c | 5b 52 31 32 5d 0d 01 ae |LDR R10,|[R12]...|
|00000540| 41 41 44 52 20 52 30 2c | 70 72 69 6e 74 3a 4d 4f |AADR R0,|print:MO|
|00000550| 56 20 52 31 2c 52 31 30 | 3a 4d 4f 56 20 52 37 2c |V R1,R10|:MOV R7,|
|00000560| 52 31 3a 53 57 49 20 22 | 58 4f 53 5f 52 65 6d 6f |R1:SWI "|XOS_Remo|
|00000570| 76 65 54 69 63 6b 65 72 | 45 76 65 6e 74 22 0d 01 |veTicker|Event"..|
|00000580| b8 38 4d 4f 56 20 52 30 | 2c 23 30 3a 4c 44 52 42 |.8MOV R0|,#0:LDRB|
|00000590| 20 52 31 2c 5b 52 31 30 | 5d 3a 53 57 49 20 22 58 | R1,[R10|]:SWI "X|
|000005a0| 4f 53 5f 46 69 6e 64 22 | 3a 53 54 52 42 20 52 30 |OS_Find"|:STRB R0|
|000005b0| 2c 5b 52 31 30 5d 0d 01 | c2 3e 4d 4f 56 20 52 30 |,[R10]..|.>MOV R0|
|000005c0| 2c 23 30 3a 4c 44 52 42 | 20 52 31 2c 5b 52 31 30 |,#0:LDRB| R1,[R10|
|000005d0| 2c 23 31 5d 3a 53 57 49 | 20 22 58 4f 53 5f 46 69 |,#1]:SWI| "XOS_Fi|
|000005e0| 6e 64 22 3a 53 54 52 42 | 20 52 30 2c 5b 52 31 30 |nd":STRB| R0,[R10|
|000005f0| 2c 23 31 5d 0d 01 cc 13 | 4c 44 4d 46 44 20 52 31 |,#1]....|LDMFD R1|
|00000600| 33 21 2c 7b 50 43 7d 0d | 01 d6 04 0d 01 e0 42 2e |3!,{PC}.|......B.|
|00000610| 70 72 69 6e 74 20 53 54 | 4d 46 44 20 52 31 33 21 |print ST|MFD R13!|
|00000620| 2c 7b 52 30 2d 52 31 2c | 52 31 34 7d 3a 41 44 52 |,{R0-R1,|R14}:ADR|
|00000630| 20 52 30 2c 70 72 69 6e | 74 32 3a 4d 4f 56 20 52 | R0,prin|t2:MOV R|
|00000640| 31 2c 52 31 32 3a 53 57 | 49 20 26 35 34 0d 01 ea |1,R12:SW|I &54...|
|00000650| 19 4c 44 4d 46 44 20 52 | 31 33 21 2c 7b 52 30 2d |.LDMFD R|13!,{R0-|
|00000660| 52 31 2c 50 43 7d 0d 01 | f4 04 0d 01 fe 3d 2e 70 |R1,PC}..|.....=.p|
|00000670| 72 69 6e 74 32 20 53 54 | 4d 46 44 20 52 31 33 21 |rint2 ST|MFD R13!|
|00000680| 2c 7b 52 30 2d 52 35 2c | 52 31 34 7d 3a 4c 44 52 |,{R0-R5,|R14}:LDR|
|00000690| 42 20 52 30 2c 5b 52 31 | 32 2c 23 32 5d 3a 43 4d |B R0,[R1|2,#2]:CM|
|000006a0| 50 20 52 30 2c 23 30 0d | 02 08 36 4c 44 4d 4e 45 |P R0,#0.|..6LDMNE|
|000006b0| 46 44 20 52 31 33 21 2c | 7b 52 30 2d 52 35 2c 50 |FD R13!,|{R0-R5,P|
|000006c0| 43 7d 3a 4d 56 4e 20 52 | 30 2c 23 30 3a 53 54 52 |C}:MVN R|0,#0:STR|
|000006d0| 42 20 52 30 2c 5b 52 31 | 32 2c 23 32 5d 0d 02 12 |B R0,[R1|2,#2]...|
|000006e0| 3c 4d 4f 56 20 52 30 2c | 23 32 3a 4c 44 52 42 20 |<MOV R0,|#2:LDRB |
|000006f0| 52 31 2c 5b 52 31 32 5d | 3a 53 57 49 20 22 58 4f |R1,[R12]|:SWI "XO|
|00000700| 53 5f 41 72 67 73 22 3a | 42 56 53 20 65 72 72 3a |S_Args":|BVS err:|
|00000710| 4d 4f 56 20 52 35 2c 52 | 32 0d 02 1c 3f 4d 4f 56 |MOV R5,R|2...?MOV|
|00000720| 20 52 31 2c 23 37 3a 4d | 4f 56 20 52 31 2c 52 31 | R1,#7:M|OV R1,R1|
|00000730| 2c 52 4f 52 23 31 3a 4d | 4f 56 20 52 39 2c 23 26 |,ROR#1:M|OV R9,#&|
|00000740| 31 36 3a 53 57 49 20 22 | 58 4f 53 5f 43 61 6c 6c |16:SWI "|XOS_Call|
|00000750| 41 56 65 63 74 6f 72 22 | 0d 02 26 27 84 52 20 52 |AVector"|..&'.R R|
|00000760| 32 2c 52 31 2c 52 32 2c | 4c 53 4c 23 38 3a 53 54 |2,R1,R2,|LSL#8:ST|
|00000770| 52 4e 56 20 52 35 2c 5b | 52 31 32 2c 23 34 5d 0d |RNV R5,[|R12,#4].|
|00000780| 02 30 2b 43 4d 50 20 52 | 32 2c 52 35 3a 4d 4f 56 |.0+CMP R|2,R5:MOV|
|00000790| 47 54 20 52 32 2c 52 35 | 3a 43 4d 50 20 52 32 2c |GT R2,R5|:CMP R2,|
|000007a0| 23 30 3a 42 45 51 20 6f | 75 74 0d 02 3a 04 0d 02 |#0:BEQ o|ut..:...|
|000007b0| 44 09 2e 70 72 6c 20 0d | 02 4e 28 80 20 52 31 2c |D..prl .|.N(. R1,|
|000007c0| 52 31 32 2c 23 26 46 46 | 3a 53 57 49 20 22 58 4f |R12,#&FF|:SWI "XO|
|000007d0| 53 5f 42 47 65 74 22 3a | 42 56 53 20 65 72 72 0d |S_BGet":|BVS err.|
|000007e0| 02 58 26 4d 4f 56 20 52 | 31 2c 52 31 32 2c 4c 53 |.X&MOV R|1,R12,LS|
|000007f0| 52 20 23 38 3a 53 57 49 | 4e 56 20 22 58 4f 53 5f |R #8:SWI|NV "XOS_|
|00000800| 42 50 75 74 22 0d 02 62 | 19 53 55 42 53 20 52 32 |BPut"..b|.SUBS R2|
|00000810| 2c 52 32 2c 23 31 3a 42 | 4e 45 20 70 72 6c 0d 02 |,R2,#1:B|NE prl..|
|00000820| 6c 08 2e 6f 75 74 0d 02 | 76 1e 4d 4f 56 20 52 30 |l..out..|v.MOV R0|
|00000830| 2c 23 30 3a 53 54 52 42 | 20 52 30 2c 5b 52 31 32 |,#0:STRB| R0,[R12|
|00000840| 2c 23 32 5d 0d 02 80 19 | 4c 44 4d 46 44 20 52 31 |,#2]....|LDMFD R1|
|00000850| 33 21 2c 7b 52 30 2d 52 | 35 2c 50 43 7d 0d 02 8a |3!,{R0-R|5,PC}...|
|00000860| 04 0d 02 94 09 2e 62 79 | 74 65 0d 02 9e 2b 2e 6e |......by|te...+.n|
|00000870| 61 6d 65 20 45 51 55 53 | 20 22 50 72 69 6e 74 65 |ame EQUS| "Printe|
|00000880| 72 54 79 70 65 24 35 22 | 3a 45 51 55 42 20 30 3a |rType$5"|:EQUB 0:|
|00000890| 41 4c 49 47 4e 0d 02 a8 | 28 2e 70 69 70 65 20 45 |ALIGN...|(.pipe E|
|000008a0| 51 55 53 20 22 50 69 70 | 65 3a 24 2e 4f 4e 45 22 |QUS "Pip|e:$.ONE"|
|000008b0| 3a 45 51 55 42 20 30 3a | 41 4c 49 47 4e 0d 02 b2 |:EQUB 0:|ALIGN...|
|000008c0| 2b 2e 70 61 72 61 6c 6c | 65 6c 20 45 51 55 53 20 |+.parall|el EQUS |
|000008d0| 22 50 61 72 61 6c 6c 65 | 6c 3a 22 3a 45 51 55 42 |"Paralle|l:":EQUB|
|000008e0| 20 30 3a 41 4c 49 47 4e | 0d 02 bc 05 5d 0d 02 c6 | 0:ALIGN|....]...|
|000008f0| 05 ed 0d 02 d0 2d c8 99 | 38 2c 31 30 2c 22 53 43 |.....-..|8,10,"SC|
|00000900| 53 49 3a 3a 48 44 2e 24 | 2e 4f 55 54 2e 4d 6f 64 |SI::HD.$|.OUT.Mod|
|00000910| 22 2c 26 46 46 41 2c 2c | 63 6f 64 65 2c 4f 25 0d |",&FFA,,|code,O%.|
|00000920| 02 da 1b ff 20 22 2f 53 | 43 53 49 3a 3a 48 44 2e |.... "/S|CSI::HD.|
|00000930| 24 2e 4f 55 54 2e 4d 6f | 64 22 0d 02 e4 04 0d ff |$.OUT.Mo|d"......|
+--------+-------------------------+-------------------------+--------+--------+