/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / utilities / organisers / fasttask / !FastTask / AsmSource

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 23 f4 20 41 73 | 73 65 6d 62 6c 65 72 20 |...#. As|sembler |
|00000010| 73 6f 75 72 63 65 20 66 | 6f 72 20 46 61 73 74 54 |source f|or FastT|
|00000020| 61 73 6b 0d 00 14 3c f4 | 20 53 65 70 61 72 61 74 |ask...<.| Separat|
|00000030| 65 64 20 66 72 6f 6d 20 | 74 68 65 20 6d 61 69 6e |ed from |the main|
|00000040| 20 63 6f 64 65 20 69 6e | 20 61 20 64 65 73 70 61 | code in| a despa|
|00000050| 72 61 74 65 20 61 74 74 | 65 6d 70 74 20 74 6f 0d |rate att|empt to.|
|00000060| 00 1e 15 f4 20 73 61 76 | 65 20 6d 65 6d 6f 72 79 |.... sav|e memory|
|00000070| 20 3a 2d 28 0d 00 1f 42 | f4 20 52 69 70 70 65 64 | :-(...B|. Ripped|
|00000080| 20 66 72 6f 6d 20 43 4c | 49 20 47 75 61 72 64 69 | from CL|I Guardi|
|00000090| 61 6e 20 62 75 74 20 74 | 68 61 74 27 73 20 4f 4b |an but t|hat's OK|
|000000a0| 20 27 63 6f 73 20 49 20 | 77 72 6f 74 65 20 74 68 | 'cos I |wrote th|
|000000b0| 61 74 20 74 6f 6f 0d 00 | 28 04 0d 00 32 2e ee 20 |at too..|(...2.. |
|000000c0| 85 20 ee 20 85 20 87 20 | 3a 20 85 20 a2 20 9f 2c |. . . . |: . . .,|
|000000d0| 20 f6 24 2b 22 20 61 74 | 20 6c 69 6e 65 20 22 2b | .$+" at| line "+|
|000000e0| c3 28 9e 29 20 3a 20 e0 | 0d 00 3c 04 0d 00 46 0e |.(.) : .|..<...F.|
|000000f0| de 20 63 6f 64 65 20 32 | 30 30 0d 00 50 09 73 70 |. code 2|00..P.sp|
|00000100| 3d 31 33 0d 00 5a 0b 6c | 69 6e 6b 3d 31 34 0d 00 |=13..Z.l|ink=14..|
|00000110| 64 09 70 63 3d 31 35 0d | 00 6e 0b 57 72 63 68 56 |d.pc=15.|.n.WrchV|
|00000120| 3d 33 0d 00 78 0b 52 64 | 63 68 56 3d 34 0d 00 82 |=3..x.Rd|chV=4...|
|00000130| 0c 45 72 72 6f 72 56 3d | 31 0d 00 8c 1a 43 68 61 |.ErrorV=|1....Cha|
|00000140| 6e 67 65 45 6e 76 69 72 | 6f 6e 6d 65 6e 74 56 3d |ngeEnvir|onmentV=|
|00000150| 26 31 45 0d 00 96 04 0d | 00 a0 14 e3 20 70 61 73 |&1E.....|.... pas|
|00000160| 73 3d 30 20 b8 20 32 20 | 88 20 32 0d 00 aa 0b 50 |s=0 . 2 |. 2....P|
|00000170| 25 3d 63 6f 64 65 0d 00 | b4 0d 5b 4f 50 54 20 70 |%=code..|..[OPT p|
|00000180| 61 73 73 0d 00 be 4a f4 | 20 70 61 73 73 20 62 61 |ass...J.| pass ba|
|00000190| 63 6b 20 61 6c 6c 20 74 | 68 65 20 61 64 64 72 65 |ck all t|he addre|
|000001a0| 73 73 65 73 20 46 61 73 | 74 54 61 73 6b 20 6e 65 |sses Fas|tTask ne|
|000001b0| 65 64 73 20 69 6e 20 62 | 6c 6f 63 6b 20 70 6f 69 |eds in b|lock poi|
|000001c0| 6e 74 65 64 20 74 6f 20 | 69 6e 20 72 30 0d 00 c8 |nted to |in r0...|
|000001d0| 0a 2e 73 74 61 72 74 0d | 00 d2 11 42 20 20 20 20 |..start.|...B    |
|000001e0| 20 20 20 73 65 74 75 70 | 0d 00 dc 04 0d 00 e6 0f |   setup|........|
|000001f0| 2e 73 74 72 69 6e 67 72 | 65 61 64 0d 00 f0 20 53 |.stringr|ead... S|
|00000200| 54 4d 46 44 20 20 20 28 | 73 70 29 21 2c 20 7b 72 |TMFD   (|sp)!, {r|
|00000210| 30 2d 72 33 2c 20 6c 69 | 6e 6b 7d 0d 00 fa 42 f4 |0-r3, li|nk}...B.|
|00000220| 20 65 6e 74 65 72 20 77 | 69 74 68 20 70 6f 69 6e | enter w|ith poin|
|00000230| 74 65 72 20 74 6f 20 6f | 72 69 67 69 6e 61 6c 20 |ter to o|riginal |
|00000240| 69 6e 20 72 30 20 61 6e | 64 20 6f 75 74 70 75 74 |in r0 an|d output|
|00000250| 20 62 75 66 66 65 72 20 | 69 6e 20 72 31 0d 01 04 | buffer |in r1...|
|00000260| 27 f4 20 72 32 20 68 6f | 6c 64 73 20 63 6f 75 6e |'. r2 ho|lds coun|
|00000270| 74 65 72 2c 20 72 33 20 | 61 63 74 75 61 6c 20 76 |ter, r3 |actual v|
|00000280| 61 6c 75 65 0d 01 0e 12 | 4d 4f 56 20 20 20 20 20 |alue....|MOV     |
|00000290| 72 32 2c 20 23 30 0d 01 | 18 0c 2e 73 72 73 74 61 |r2, #0..|...srsta|
|000002a0| 72 74 0d 01 22 26 4c 44 | 52 42 20 20 20 20 72 33 |rt.."&LD|RB    r3|
|000002b0| 2c 20 5b 72 30 2c 20 72 | 32 5d 20 20 20 3b 20 6c |, [r0, r|2]   ; l|
|000002c0| 6f 61 64 20 62 79 74 65 | 0d 01 2c 2a 43 4d 50 20 |oad byte|..,*CMP |
|000002d0| 20 20 20 20 72 33 2c 20 | 23 30 20 20 20 20 20 20 |    r3, |#0      |
|000002e0| 20 20 20 3b 20 69 73 20 | 69 74 20 61 20 6e 75 6c |   ; is |it a nul|
|000002f0| 6c 3f 0d 01 36 2d 43 4d | 50 4e 45 20 20 20 72 33 |l?..6-CM|PNE   r3|
|00000300| 2c 20 23 31 33 20 20 20 | 20 20 20 20 20 3b 20 69 |, #13   |     ; i|
|00000310| 73 20 69 74 20 61 20 43 | 52 20 74 68 65 6e 3f 0d |s it a C|R then?.|
|00000320| 01 40 35 ec 51 20 20 20 | 72 33 2c 20 23 31 33 20 |.@5.Q   |r3, #13 |
|00000330| 20 20 20 20 20 20 20 3b | 20 69 66 20 69 74 20 69 |       ;| if it i|
|00000340| 73 2c 20 72 65 70 6c 61 | 63 65 20 62 79 20 61 20 |s, repla|ce by a |
|00000350| 3c 43 52 3e 0d 01 4a 3e | 53 54 52 42 20 20 20 20 |<CR>..J>|STRB    |
|00000360| 72 33 2c 20 5b 72 31 2c | 20 72 32 5d 20 20 20 3b |r3, [r1,| r2]   ;|
|00000370| 20 73 74 6f 72 65 20 69 | 74 20 62 61 63 6b 20 77 | store i|t back w|
|00000380| 68 61 74 65 76 65 72 20 | 74 68 65 20 72 65 73 75 |hatever |the resu|
|00000390| 6c 74 0d 01 54 3e 41 44 | 44 4e 45 20 20 20 72 32 |lt..T>AD|DNE   r2|
|000003a0| 2c 20 72 32 2c 20 23 31 | 20 20 20 20 20 3b 20 69 |, r2, #1|     ; i|
|000003b0| 66 20 69 74 27 73 20 4f | 4b 2c 20 69 6e 63 72 65 |f it's O|K, incre|
|000003c0| 6d 65 6e 74 20 74 68 65 | 20 70 6f 69 6e 74 65 72 |ment the| pointer|
|000003d0| 0d 01 5e 38 42 4e 45 20 | 20 20 20 20 73 72 73 74 |..^8BNE |    srst|
|000003e0| 61 72 74 20 20 20 20 20 | 20 20 20 3b 20 61 6e 64 |art     |   ; and|
|000003f0| 20 73 74 61 72 74 20 61 | 67 61 69 6e 20 2d 20 65 | start a|gain - e|
|00000400| 6c 73 65 20 65 78 69 74 | 0d 01 68 1f 4c 44 4d 49 |lse exit|..h.LDMI|
|00000410| 41 20 20 20 28 73 70 29 | 21 2c 20 7b 72 30 2d 72 |A   (sp)|!, {r0-r|
|00000420| 33 2c 20 70 63 7d 5e 0d | 01 72 04 0d 01 7c 0d 2e |3, pc}^.|.r...|..|
|00000430| 63 61 73 65 6c 65 73 73 | 0d 01 86 21 53 54 4d 46 |caseless|...!STMF|
|00000440| 44 20 20 20 28 73 70 29 | 21 2c 20 7b 72 30 2c 20 |D   (sp)|!, {r0, |
|00000450| 72 31 2c 20 6c 69 6e 6b | 7d 0d 01 90 12 2e 63 61 |r1, link|}.....ca|
|00000460| 73 65 6c 65 73 73 73 74 | 61 72 74 0d 01 9a 14 4c |selessst|art....L|
|00000470| 44 52 42 20 20 20 20 72 | 31 2c 20 5b 72 30 5d 0d |DRB    r|1, [r0].|
|00000480| 01 a4 13 43 4d 50 20 20 | 20 20 20 72 31 2c 20 23 |...CMP  |   r1, #|
|00000490| 31 33 0d 01 ae 10 42 45 | 51 20 20 20 20 20 71 75 |13....BE|Q     qu|
|000004a0| 69 74 0d 01 b8 13 43 4d | 50 20 20 20 20 20 72 31 |it....CM|P     r1|
|000004b0| 2c 20 23 36 35 0d 01 c2 | 16 41 44 44 4c 54 20 20 |, #65...|.ADDLT  |
|000004c0| 20 72 30 2c 20 72 30 2c | 20 23 31 0d 01 cc 19 42 | r0, r0,| #1....B|
|000004d0| 4c 54 20 20 20 20 20 63 | 61 73 65 6c 65 73 73 73 |LT     c|aselesss|
|000004e0| 74 61 72 74 0d 01 d6 13 | 43 4d 50 20 20 20 20 20 |tart....|CMP     |
|000004f0| 72 31 2c 20 23 39 30 0d | 01 e0 17 41 44 44 4c 45 |r1, #90.|...ADDLE|
|00000500| 20 20 20 72 31 2c 20 72 | 31 2c 20 23 33 32 0d 01 |   r1, r|1, #32..|
|00000510| ea 14 53 54 52 4c 45 42 | 20 20 72 31 2c 20 5b 72 |..STRLEB|  r1, [r|
|00000520| 30 5d 0d 01 f4 16 41 44 | 44 20 20 20 20 20 72 30 |0]....AD|D     r0|
|00000530| 2c 20 72 30 2c 20 23 31 | 0d 01 fe 19 42 20 20 20 |, r0, #1|....B   |
|00000540| 20 20 20 20 63 61 73 65 | 6c 65 73 73 73 74 61 72 |    case|lessstar|
|00000550| 74 0d 02 08 09 2e 71 75 | 69 74 0d 02 12 1f 4c 44 |t.....qu|it....LD|
|00000560| 4d 49 41 20 20 20 28 73 | 70 29 21 2c 20 7b 72 30 |MIA   (s|p)!, {r0|
|00000570| 2c 20 72 31 2c 20 70 63 | 7d 0d 02 1c 04 0d 02 26 |, r1, pc|}......&|
|00000580| 0a 2e 73 65 74 75 70 0d | 02 30 20 4d 4f 56 20 20 |..setup.|.0 MOV  |
|00000590| 20 20 20 72 31 2c 20 23 | 73 74 72 69 6e 67 72 65 |   r1, #|stringre|
|000005a0| 61 64 2d 63 6f 64 65 0d | 02 3a 14 53 54 52 20 20 |ad-code.|.:.STR  |
|000005b0| 20 20 20 72 31 2c 20 5b | 72 30 5d 0d 02 bc 1e 4d |   r1, [|r0]....M|
|000005c0| 4f 56 20 20 20 20 20 72 | 31 2c 20 23 63 61 73 65 |OV     r|1, #case|
|000005d0| 6c 65 73 73 2d 63 6f 64 | 65 0d 02 c6 17 53 54 52 |less-cod|e....STR|
|000005e0| 20 20 20 20 20 72 31 2c | 20 5b 72 30 2c 23 34 5d |     r1,| [r0,#4]|
|000005f0| 0d 03 34 14 4d 4f 56 20 | 20 20 20 20 70 63 2c 20 |..4.MOV |    pc, |
|00000600| 6c 69 6e 6b 0d 03 3e 05 | 5d 0d 03 48 05 ed 0d 03 |link..>.|]..H....|
|00000610| 52 04 0d 03 5c 40 c8 99 | 20 22 4f 53 5f 46 69 6c |R...\@..| "OS_Fil|
|00000620| 65 22 2c 20 31 30 2c 20 | 22 3c 46 61 73 74 54 61 |e", 10, |"<FastTa|
|00000630| 73 6b 24 44 69 72 3e 2e | 41 73 73 65 6d 62 6c 65 |sk$Dir>.|Assemble|
|00000640| 72 22 2c 20 26 46 46 44 | 2c 2c 63 6f 64 65 2c 20 |r", &FFD|,,code, |
|00000650| 50 25 0d ff             |                         |P%..    |        |
+--------+-------------------------+-------------------------+--------+--------+