/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / cs15.d81 / utility

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 55 74 69 6c 69 74 79 | 00 3b 3d 3d 3d 3d 3d 3d |;Utility|.;======|
|00000010| 3d 3d 00 44 69 76 69 64 | 65 00 20 6c 64 61 20 23 |==.Divid|e. lda #|
|00000020| 34 37 00 20 6a 6d 70 20 | 44 4f 4d 41 54 48 00 4d |47. jmp |DOMATH.M|
|00000030| 75 6c 74 69 70 6c 79 00 | 20 6c 64 61 20 23 34 32 |ultiply.| lda #42|
|00000040| 00 20 6a 6d 70 20 44 4f | 4d 41 54 48 00 41 64 64 |. jmp DO|MATH.Add|
|00000050| 00 20 6c 64 61 20 23 34 | 33 00 20 6a 6d 70 20 44 |. lda #4|3. jmp D|
|00000060| 4f 4d 41 54 48 00 53 75 | 62 74 72 61 63 74 00 20 |OMATH.Su|btract. |
|00000070| 6c 64 61 20 23 34 35 00 | 20 6a 6d 70 20 44 4f 4d |lda #45.| jmp DOM|
|00000080| 41 54 48 00 45 71 75 61 | 6c 00 20 6c 64 61 20 23 |ATH.Equa|l. lda #|
|00000090| 36 31 00 3b 6a 6d 70 00 | 44 4f 4d 41 54 48 00 20 |61.;jmp.|DOMATH. |
|000000a0| 4a 53 52 20 4d 41 54 48 | 00 20 4a 53 52 20 53 57 |JSR MATH|. JSR SW|
|000000b0| 43 48 4d 4f 44 45 32 00 | 20 4c 44 41 20 23 30 00 |CHMODE2.| LDA #0.|
|000000c0| 20 73 74 61 20 4b 65 79 | 69 6e 6c 65 6e 00 20 52 | sta Key|inlen. R|
|000000d0| 54 53 00 44 4f 41 4e 44 | 00 20 6c 64 61 20 23 27 |TS.DOAND|. lda #'|
|000000e0| 26 00 20 4a 4d 50 20 44 | 4f 4d 41 54 48 00 3b 00 |&. JMP D|OMATH.;.|
|000000f0| 44 4f 4f 52 41 00 20 6c | 64 61 20 23 27 7c 00 20 |DOORA. l|da #'|. |
|00000100| 4a 4d 50 20 44 4f 4d 41 | 54 48 00 44 4f 45 4f 52 |JMP DOMA|TH.DOEOR|
|00000110| 00 20 6c 64 61 20 23 27 | 5e 00 20 4a 4d 50 20 44 |. lda #'|^. JMP D|
|00000120| 4f 4d 41 54 48 00 3b 2d | 2d 2d 3d 3d 3d 3d 2d 2d |OMATH.;-|--====--|
|00000130| 2d 3d 3d 3d 2d 2d 2d 2d | 2d 00 4f 75 72 47 65 74 |-===----|-.OurGet|
|00000140| 53 74 72 69 6e 67 00 6c | 64 61 20 24 38 35 30 34 |String.l|da $8504|
|00000150| 00 45 78 69 74 31 00 73 | 74 61 20 4b 65 79 00 6a |.Exit1.s|ta Key.j|
|00000160| 73 72 20 46 69 6e 64 49 | 63 6f 6e 4e 75 6d 62 65 |sr FindI|conNumbe|
|00000170| 72 00 20 6c 64 61 20 6b | 65 79 70 72 65 73 73 00 |r. lda k|eypress.|
|00000180| 20 62 6d 69 20 45 78 69 | 74 31 63 00 20 4a 73 72 | bmi Exi|t1c. Jsr|
|00000190| 20 44 6f 49 63 6f 6e 43 | 61 6c 6c 00 20 45 78 69 | DoIconC|all. Exi|
|000001a0| 74 31 63 00 20 6a 73 72 | 20 47 65 74 4e 65 78 74 |t1c. jsr| GetNext|
|000001b0| 43 68 61 72 00 20 74 61 | 78 00 20 62 6e 65 20 45 |Char. ta|x. bne E|
|000001c0| 78 69 74 31 00 52 54 53 | 00 46 69 6e 64 49 63 6f |xit1.RTS|.FindIco|
|000001d0| 6e 4e 75 6d 62 65 72 00 | 20 6c 64 61 20 23 24 46 |nNumber.| lda #$F|
|000001e0| 46 00 20 73 74 61 20 6b | 65 79 70 72 65 73 73 00 |F. sta k|eypress.|
|000001f0| 20 6c 64 78 20 23 30 00 | 20 4c 70 00 20 6c 64 61 | ldx #0.| Lp. lda|
|00000200| 20 54 61 62 6c 65 31 2c | 78 00 20 62 65 71 20 45 | Table1,|x. beq E|
|00000210| 78 69 74 32 00 20 63 6d | 70 20 4b 65 79 00 20 62 |xit2. cm|p Key. b|
|00000220| 65 71 20 4f 4b 00 20 69 | 6e 78 00 20 62 6e 65 20 |eq OK. i|nx. bne |
|00000230| 4c 70 00 4f 4b 00 20 6c | 64 61 20 54 61 62 6c 65 |Lp.OK. l|da Table|
|00000240| 32 2c 58 00 20 73 74 61 | 20 6b 65 79 70 72 65 73 |2,X. sta| keypres|
|00000250| 73 00 20 45 78 69 74 32 | 00 20 52 54 53 00 54 61 |s. Exit2|. RTS.Ta|
|00000260| 62 6c 65 31 20 2e 42 79 | 74 65 20 34 38 2c 34 39 |ble1 .By|te 48,49|
|00000270| 2c 35 30 2c 35 31 2c 35 | 32 2c 35 33 2c 35 34 2c |,50,51,5|2,53,54,|
|00000280| 35 35 2c 35 36 2c 35 37 | 00 20 2e 42 79 74 65 20 |55,56,57|. .Byte |
|00000290| 39 37 2c 39 38 2c 39 39 | 2c 31 30 30 2c 31 30 31 |97,98,99|,100,101|
|000002a0| 2c 31 30 32 00 20 2e 42 | 79 74 65 20 34 33 2c 34 |,102. .B|yte 43,4|
|000002b0| 35 2c 34 37 2c 34 32 2c | 36 31 2c 33 38 2c 39 34 |5,47,42,|61,38,94|
|000002c0| 2c 31 32 34 2c 31 38 2c | 31 39 2c 32 39 2c 31 2c |,124,18,|19,29,1,|
|000002d0| 33 2c 35 2c 33 37 2c 33 | 35 2c 33 36 2c 30 00 54 |3,5,37,3|5,36,0.T|
|000002e0| 61 62 6c 65 32 20 2e 42 | 79 74 65 20 30 2c 31 2c |able2 .B|yte 0,1,|
|000002f0| 32 2c 33 2c 34 2c 35 2c | 36 2c 37 2c 38 2c 39 00 |2,3,4,5,|6,7,8,9.|
|00000300| 20 2e 42 79 74 65 20 31 | 30 2c 31 31 2c 31 32 2c | .Byte 1|0,11,12,|
|00000310| 31 33 2c 31 34 2c 31 35 | 2c 32 33 2c 32 32 2c 32 |13,14,15|,23,22,2|
|00000320| 30 2c 32 31 2c 32 34 2c | 32 38 2c 32 39 2c 33 30 |0,21,24,|28,29,30|
|00000330| 2c 31 36 2c 31 37 00 20 | 2e 42 79 74 65 20 31 38 |,16,17. |.Byte 18|
|00000340| 2c 32 35 2c 32 36 2c 32 | 37 2c 33 35 2c 33 36 2c |,25,26,2|7,35,36,|
|00000350| 33 37 00 4b 65 79 20 2e | 42 79 74 65 20 30 00 3b |37.Key .|Byte 0.;|
|00000360| 2d 2d 2d 2d 00 44 6f 49 | 63 6f 6e 43 61 6c 6c 00 |----.DoI|conCall.|
|00000370| 20 6a 73 72 20 49 6e 76 | 65 72 74 00 20 6c 64 61 | jsr Inv|ert. lda|
|00000380| 20 6b 65 79 70 72 65 73 | 73 00 20 63 6d 70 20 23 | keypres|s. cmp #|
|00000390| 31 36 00 20 62 63 73 20 | 53 6b 69 70 32 32 00 20 |16. bcs |Skip22. |
|000003a0| 6c 64 61 20 6b 65 79 70 | 72 65 73 73 00 20 6a 73 |lda keyp|ress. js|
|000003b0| 72 20 49 63 6f 6e 43 61 | 6c 6c 32 00 20 52 54 53 |r IconCa|ll2. RTS|
|000003c0| 00 53 6b 69 70 32 32 00 | 20 63 6d 70 20 23 31 36 |.Skip22.| cmp #16|
|000003d0| 00 20 62 6e 65 20 73 31 | 00 20 6a 6d 70 20 43 6c |. bne s1|. jmp Cl|
|000003e0| 65 61 72 00 73 31 00 20 | 63 6d 70 20 23 31 37 00 |ear.s1. |cmp #17.|
|000003f0| 20 62 6e 65 20 73 32 00 | 20 6a 6d 70 20 43 6c 65 | bne s2.| jmp Cle|
|00000400| 61 72 41 6c 6c 00 73 32 | 00 20 63 6d 70 20 23 31 |arAll.s2|. cmp #1|
|00000410| 38 00 20 62 6e 65 20 73 | 33 00 20 6a 6d 70 20 44 |8. bne s|3. jmp D|
|00000420| 65 6c 65 74 65 00 73 33 | 00 20 63 6d 70 20 23 32 |elete.s3|. cmp #2|
|00000430| 30 00 20 62 6e 65 20 73 | 34 00 20 6a 6d 70 20 44 |0. bne s|4. jmp D|
|00000440| 69 76 69 64 65 00 73 34 | 00 20 63 6d 70 20 23 32 |ivide.s4|. cmp #2|
|00000450| 31 00 20 62 6e 65 20 73 | 35 00 20 6a 6d 70 20 4d |1. bne s|5. jmp M|
|00000460| 75 6c 74 69 70 6c 79 00 | 73 35 00 20 63 6d 70 20 |ultiply.|s5. cmp |
|00000470| 23 32 32 00 20 62 6e 65 | 20 73 36 00 20 6a 6d 70 |#22. bne| s6. jmp|
|00000480| 20 53 75 62 74 72 61 63 | 74 00 73 36 00 20 63 6d | Subtrac|t.s6. cm|
|00000490| 70 20 23 32 33 00 20 62 | 6e 65 20 73 37 00 20 6a |p #23. b|ne s7. j|
|000004a0| 6d 70 20 41 64 64 00 73 | 37 00 20 63 6d 70 20 23 |mp Add.s|7. cmp #|
|000004b0| 32 34 00 20 62 6e 65 20 | 73 38 00 20 6a 6d 70 20 |24. bne |s8. jmp |
|000004c0| 45 71 75 61 6c 00 73 38 | 00 20 63 6d 70 20 23 32 |Equal.s8|. cmp #2|
|000004d0| 35 00 20 62 6e 65 20 73 | 39 00 20 6a 6d 70 20 53 |5. bne s|9. jmp S|
|000004e0| 57 49 54 43 48 4d 4f 44 | 45 32 00 73 39 00 20 63 |WITCHMOD|E2.s9. c|
|000004f0| 6d 70 20 23 32 36 00 20 | 62 6e 65 20 73 31 30 00 |mp #26. |bne s10.|
|00000500| 20 6a 6d 70 20 53 57 49 | 54 43 48 4d 4f 44 45 32 | jmp SWI|TCHMODE2|
|00000510| 00 73 31 30 00 20 63 6d | 70 20 23 32 37 00 20 62 |.s10. cm|p #27. b|
|00000520| 6e 65 20 73 31 31 00 20 | 6a 6d 70 20 53 57 49 54 |ne s11. |jmp SWIT|
|00000530| 43 48 4d 4f 44 45 32 00 | 73 31 31 00 20 63 6d 70 |CHMODE2.|s11. cmp|
|00000540| 20 23 32 38 00 20 62 6e | 65 20 73 31 32 00 20 6a | #28. bn|e s12. j|
|00000550| 6d 70 20 44 4f 41 4e 44 | 00 73 31 32 00 20 63 6d |mp DOAND|.s12. cm|
|00000560| 70 20 23 32 39 00 20 62 | 6e 65 20 73 31 33 00 20 |p #29. b|ne s13. |
|00000570| 6a 6d 70 20 44 4f 45 4f | 52 00 73 31 33 00 20 63 |jmp DOEO|R.s13. c|
|00000580| 6d 70 20 23 33 30 00 20 | 62 6e 65 20 73 31 34 00 |mp #30. |bne s14.|
|00000590| 20 6a 6d 70 20 44 4f 4f | 52 41 00 73 31 34 00 20 | jmp DOO|RA.s14. |
|000005a0| 63 6d 70 20 23 33 35 00 | 20 62 63 63 20 73 32 32 |cmp #35.| bcc s22|
|000005b0| 00 20 63 6d 70 20 23 33 | 38 00 20 62 63 73 20 73 |. cmp #3|8. bcs s|
|000005c0| 32 32 00 20 73 65 63 00 | 20 73 62 63 20 23 31 30 |22. sec.| sbc #10|
|000005d0| 00 20 73 74 61 20 6b 65 | 79 70 72 65 73 73 00 20 |. sta ke|ypress. |
|000005e0| 6a 73 72 20 53 57 49 54 | 43 48 4d 4f 44 45 32 00 |jsr SWIT|CHMODE2.|
|000005f0| 20 6c 64 78 20 23 30 00 | 20 73 74 78 20 4b 65 79 | ldx #0.| stx Key|
|00000600| 69 6e 6c 65 6e 00 20 52 | 54 53 00 73 32 32 00 72 |inlen. R|TS.s22.r|
|00000610| 74 73 00 3b 00 49 6e 76 | 65 72 74 00 20 6a 73 72 |ts.;.Inv|ert. jsr|
|00000620| 20 49 6e 76 65 72 74 32 | 00 20 6c 64 79 20 23 35 | Invert2|. ldy #5|
|00000630| 38 00 69 6e 76 32 00 20 | 6c 64 78 20 23 32 35 35 |8.inv2. |ldx #255|
|00000640| 00 69 6e 76 31 00 20 4e | 4f 50 00 20 6e 6f 70 00 |.inv1. N|OP. nop.|
|00000650| 20 64 65 78 00 20 62 6e | 65 20 69 6e 76 31 00 20 | dex. bn|e inv1. |
|00000660| 4e 4f 50 00 20 64 65 79 | 00 20 62 6e 65 20 69 6e |NOP. dey|. bne in|
|00000670| 76 32 00 20 6a 73 72 20 | 49 6e 76 65 72 74 33 00 |v2. jsr |Invert3.|
|00000680| 20 52 54 53 00 3b 2d 2d | 2d 00 78 62 79 74 65 20 | RTS.;--|-.xbyte |
|00000690| 2e 42 79 74 65 20 30 00 | 79 62 79 74 65 20 2e 42 |.Byte 0.|ybyte .B|
|000006a0| 79 74 65 20 30 00 49 6e | 76 65 72 74 32 00 20 6c |yte 0.In|vert2. l|
|000006b0| 64 61 20 6b 65 79 70 72 | 65 73 73 00 20 63 6d 70 |da keypr|ess. cmp|
|000006c0| 20 23 33 35 00 20 62 63 | 63 20 69 6e 76 33 34 00 | #35. bc|c inv34.|
|000006d0| 20 73 65 63 00 20 73 62 | 63 20 23 31 30 00 69 6e | sec. sb|c #10.in|
|000006e0| 76 33 34 00 20 61 73 6c | 00 20 74 61 78 00 20 6c |v34. asl|. tax. l|
|000006f0| 64 61 20 74 61 62 6c 65 | 75 2c 58 00 20 73 74 61 |da table|u,X. sta|
|00000700| 20 78 62 79 74 65 00 20 | 69 6e 78 00 20 6c 64 61 | xbyte. |inx. lda|
|00000710| 20 74 61 62 6c 65 75 2c | 58 00 20 73 74 61 20 79 | tableu,|X. sta y|
|00000720| 62 79 74 65 00 49 6e 76 | 65 72 74 33 00 20 6c 64 |byte.Inv|ert3. ld|
|00000730| 61 20 23 30 00 20 73 74 | 61 20 52 33 2b 31 00 20 |a #0. st|a R3+1. |
|00000740| 6c 64 61 20 78 62 79 74 | 65 00 20 61 73 6c 00 20 |lda xbyt|e. asl. |
|00000750| 61 73 6c 00 20 61 73 6c | 00 20 73 74 61 20 52 33 |asl. asl|. sta R3|
|00000760| 00 20 63 6c 63 00 20 61 | 64 63 20 23 32 33 00 20 |. clc. a|dc #23. |
|00000770| 73 74 61 20 52 34 00 20 | 6c 64 61 20 52 33 2b 31 |sta R4. |lda R3+1|
|00000780| 00 20 61 64 63 20 23 30 | 00 20 73 74 61 20 52 34 |. adc #0|. sta R4|
|00000790| 2b 31 00 20 6c 64 61 20 | 79 62 79 74 65 00 20 73 |+1. lda |ybyte. s|
|000007a0| 74 61 20 52 32 00 20 63 | 6c 63 00 20 61 64 63 20 |ta R2. c|lc. adc |
|000007b0| 23 31 35 00 20 73 74 61 | 20 52 32 2b 31 00 20 6a |#15. sta| R2+1. j|
|000007c0| 73 72 20 49 6e 76 65 72 | 74 52 65 63 74 61 6e 67 |sr Inver|tRectang|
|000007d0| 6c 65 00 20 52 54 53 00 | 74 61 62 6c 65 75 00 2e |le. RTS.|tableu..|
|000007e0| 49 6e 63 6c 75 64 65 20 | 54 41 42 4c 45 55 00 3b |Include |TABLEU.;|
|000007f0| 00 3b 00 3b 00 3b 00 00 |                         |.;.;.;..|        |
+--------+-------------------------+-------------------------+--------+--------+