/ Il CD di internet / CD.iso / SOURCE / EXTRA-ST / APPLE-II / APPLE2-V.TAR / apple2 / disks / disk_s6d1 / HGRROUTINES

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 70 08 06 64 00 81 3b 00 | 1b 6e 00 81 3b 81 4d 4f |p..d..;.|.n..;.MO|
|00000010| 44 55 4c 45 81 3a 81 48 | 47 52 52 4f 55 54 49 4e |DULE.:.H|GRROUTIN|
|00000020| 45 53 00 06 78 00 81 3b | 00 05 82 00 81 00 08 e8 |ES..x..;|........|
|00000030| 03 3b c0 21 2d 00 17 f2 | 03 3b 81 46 55 4e 43 54 |.;.!-...|.;.FUNCT|
|00000040| 49 4f 4e 3a 81 46 49 4c | 4c 53 43 52 00 1c fc 03 |ION:.FIL|LSCR....|
|00000050| 3b 81 49 4e 50 55 54 83 | 3a 81 41 81 3d 81 46 49 |;.INPUT.|:.A.=.FI|
|00000060| 4c 4c 81 56 41 4c 55 45 | 00 19 06 04 3b 8b 58 81 |LL.VALUE|....;.X.|
|00000070| 3d 81 53 43 52 45 45 4e | 81 28 30 81 4f 52 81 31 |=.SCREEN|.(0.OR.1|
|00000080| 29 00 23 10 04 3b 81 4f | 55 54 50 55 54 82 3a 81 |).#..;.O|UTPUT.:.|
|00000090| 46 49 4c 4c 81 48 49 47 | 48 81 52 45 53 4f 4c 55 |FILL.HIG|H.RESOLU|
|000000a0| 54 49 4f 4e 00 1a 1a 04 | 3b 8b 50 41 47 45 81 58 |TION....|;.PAGE.X|
|000000b0| 81 57 49 54 48 81 56 41 | 4c 55 45 81 41 2e 00 20 |.WITH.VA|LUE.A.. |
|000000c0| 24 04 3b 81 52 45 51 55 | 49 52 45 53 3a 81 4d 4f |$.;.REQU|IRES:.MO|
|000000d0| 44 55 4c 45 81 22 59 4f | 46 46 54 41 42 22 00 08 |DULE."YO|FFTAB"..|
|000000e0| 2e 04 3b c0 21 2d 00 05 | 38 04 81 00 12 42 04 41 |..;.!-..|8....B.A|
|000000f0| 44 44 52 2e 50 82 45 51 | 55 81 24 30 30 00 12 4c |DDR.P.EQ|U.$00..L|
|00000100| 04 41 44 44 52 2e 4c 82 | 45 51 55 81 24 30 31 00 |.ADDR.L.|EQU.$01.|
|00000110| 12 56 04 41 44 44 52 2e | 48 82 45 51 55 81 24 30 |.V.ADDR.|H.EQU.$0|
|00000120| 32 00 10 60 04 53 45 45 | 44 84 45 51 55 81 24 30 |2..`.SEE|D.EQU.$0|
|00000130| 33 00 14 6a 04 46 49 4c | 4c 53 43 52 81 43 50 58 |3..j.FIL|LSCR.CPX|
|00000140| 81 23 24 30 30 00 0b 74 | 04 88 42 45 51 81 2e 30 |.#$00..t|..BEQ..0|
|00000150| 00 0d 7e 04 88 4c 44 58 | 81 23 24 34 30 00 0b 88 |..~..LDX|.#$40...|
|00000160| 04 88 4a 4d 50 81 2e 31 | 00 0f 92 04 2e 30 86 4c |..JMP..1|.....0.L|
|00000170| 44 58 81 23 24 32 30 00 | 11 9c 04 2e 31 86 53 54 |DX.#$20.|....1.ST|
|00000180| 58 81 41 44 44 52 2e 50 | 00 0d a6 04 88 4c 44 58 |X.ADDR.P|.....LDX|
|00000190| 81 23 24 30 30 00 0a b0 | 04 2e 33 86 50 48 41 00 |.#$00...|..3.PHA.|
|000001a0| 12 ba 04 88 4c 44 41 81 | 48 59 4f 46 46 2e 4c 2c |....LDA.|HYOFF.L,|
|000001b0| 58 00 0f c4 04 88 53 54 | 41 81 41 44 44 52 2e 4c |X.....ST|A.ADDR.L|
|000001c0| 00 12 ce 04 88 4c 44 41 | 81 48 59 4f 46 46 2e 48 |.....LDA|.HYOFF.H|
|000001d0| 2c 58 00 08 d8 04 88 43 | 4c 43 00 0f e2 04 88 41 |,X.....C|LC.....A|
|000001e0| 44 43 81 41 44 44 52 2e | 50 00 0f ec 04 88 53 54 |DC.ADDR.|P.....ST|
|000001f0| 41 81 41 44 44 52 2e 48 | 00 08 f6 04 88 50 4c 41 |A.ADDR.H|.....PLA|
|00000200| 00 0d 00 05 88 4c 44 59 | 81 23 24 32 37 00 15 0a |.....LDY|.#$27...|
|00000210| 05 2e 32 86 53 54 41 81 | 28 41 44 44 52 2e 4c 29 |..2.STA.|(ADDR.L)|
|00000220| 2c 59 00 08 14 05 88 44 | 45 59 00 0b 1e 05 88 42 |,Y.....D|EY.....B|
|00000230| 50 4c 81 2e 32 00 08 28 | 05 88 49 4e 58 00 0d 32 |PL..2..(|..INX..2|
|00000240| 05 88 43 50 58 81 23 24 | 43 30 00 0b 3c 05 88 42 |..CPX.#$|C0..<..B|
|00000250| 4e 45 81 2e 33 00 08 46 | 05 88 52 54 53 00 05 50 |NE..3..F|..RTS..P|
|00000260| 05 81 00 08 5a 05 3b c0 | 21 2d 00 13 64 05 3b 81 |....Z.;.|!-..d.;.|
|00000270| 4d 41 43 52 4f 84 3a 81 | 48 50 4c 4f 54 00 1e 6e |MACRO.:.|HPLOT..n|
|00000280| 05 3b 81 49 4e 50 55 54 | 84 3a 81 58 81 3d 81 58 |.;.INPUT|.:.X.=.X|
|00000290| 81 43 4f 4f 52 44 49 4e | 41 54 45 00 16 78 05 3b |.COORDIN|ATE..x.;|
|000002a0| 8c 59 81 3d 81 59 81 43 | 4f 4f 52 44 49 4e 41 54 |.Y.=.Y.C|OORDINAT|
|000002b0| 45 00 23 82 05 3b 81 4f | 55 54 50 55 54 83 3a 81 |E.#..;.O|UTPUT.:.|
|000002c0| 50 4c 4f 54 81 50 49 58 | 45 4c 81 41 54 81 43 4f |PLOT.PIX|EL.AT.CO|
|000002d0| 4f 52 44 2e 00 1b 8c 05 | 3b 8c 28 58 2c 59 29 81 |ORD.....|;.(X,Y).|
|000002e0| 4f 4e 81 43 55 52 52 45 | 4e 54 81 50 41 47 45 00 |ON.CURRE|NT.PAGE.|
|000002f0| 0c 96 05 3b 8c 41 44 44 | 52 2e 50 00 08 a0 05 3b |...;.ADD|R.P....;|
|00000300| c0 21 2d 00 0f aa 05 48 | 50 4c 4f 54 83 4d 41 43 |.!-....H|PLOT.MAC|
|00000310| 52 4f 00 12 b4 05 88 4c | 44 41 81 48 59 4f 46 46 |RO.....L|DA.HYOFF|
|00000320| 2e 48 2c 59 00 08 be 05 | 88 43 4c 43 00 0f c8 05 |.H,Y....|.CLC....|
|00000330| 88 41 44 43 81 41 44 44 | 52 2e 50 00 0f d2 05 88 |.ADC.ADD|R.P.....|
|00000340| 53 54 41 81 41 44 44 52 | 2e 48 00 12 dc 05 88 4c |STA.ADDR|.H.....L|
|00000350| 44 41 81 48 59 4f 46 46 | 2e 4c 2c 59 00 0f e6 05 |DA.HYOFF|.L,Y....|
|00000360| 88 53 54 41 81 41 44 44 | 52 2e 4c 00 11 f0 05 88 |.STA.ADD|R.L.....|
|00000370| 4c 44 59 81 58 4f 46 46 | 2e 42 2c 58 00 13 fa 05 |LDY.XOFF|.B,X....|
|00000380| 88 4c 44 41 81 28 41 44 | 44 52 2e 4c 29 2c 59 00 |.LDA.(AD|DR.L),Y.|
|00000390| 11 04 06 88 4f 52 41 81 | 58 4f 46 46 2e 50 2c 58 |....ORA.|XOFF.P,X|
|000003a0| 00 13 0e 06 88 53 54 41 | 81 28 41 44 44 52 2e 4c |.....STA|.(ADDR.L|
|000003b0| 29 2c 59 00 09 18 06 88 | 45 4e 44 4d 00 05 22 06 |),Y.....|ENDM..".|
|000003c0| 81 00 08 2c 06 3b c0 21 | 2d 00 12 36 06 3b 81 4d |...,.;.!|-..6.;.M|
|000003d0| 41 43 52 4f 85 3a 81 48 | 43 4c 52 00 1e 40 06 3b |ACRO.:.H|CLR..@.;|
|000003e0| 81 49 4e 50 55 54 85 3a | 81 58 81 3d 81 58 81 43 |.INPUT.:|.X.=.X.C|
|000003f0| 4f 4f 52 44 49 4e 41 54 | 45 00 16 4a 06 3b 8d 59 |OORDINAT|E..J.;.Y|
|00000400| 81 3d 81 59 81 43 4f 4f | 52 44 49 4e 41 54 45 00 |.=.Y.COO|RDINATE.|
|00000410| 1d 54 06 3b 81 4f 55 54 | 50 55 54 84 3a 81 43 4c |.T.;.OUT|PUT.:.CL|
|00000420| 45 41 52 81 50 49 58 45 | 4c 81 41 54 00 14 5e 06 |EAR.PIXE|L.AT..^.|
|00000430| 3b 8d 43 4f 4f 52 44 81 | 28 58 2c 59 29 81 4f 4e |;.COORD.|(X,Y).ON|
|00000440| 00 19 68 06 3b 8d 43 55 | 52 52 45 4e 54 81 50 41 |..h.;.CU|RRENT.PA|
|00000450| 47 45 81 41 44 44 52 2e | 50 00 08 72 06 3b c0 21 |GE.ADDR.|P..r.;.!|
|00000460| 2d 00 0e 7c 06 48 43 4c | 52 84 4d 41 43 52 4f 00 |-..|.HCL|R.MACRO.|
|00000470| 12 86 06 88 4c 44 41 81 | 48 59 4f 46 46 2e 48 2c |....LDA.|HYOFF.H,|
|00000480| 59 00 08 90 06 88 43 4c | 43 00 0f 9a 06 88 41 44 |Y.....CL|C.....AD|
|00000490| 43 81 41 44 44 52 2e 50 | 00 0f a4 06 88 53 54 41 |C.ADDR.P|.....STA|
|000004a0| 81 41 44 44 52 2e 48 00 | 12 ae 06 88 4c 44 41 81 |.ADDR.H.|....LDA.|
|000004b0| 48 59 4f 46 46 2e 4c 2c | 59 00 0f b8 06 88 53 54 |HYOFF.L,|Y.....ST|
|000004c0| 41 81 41 44 44 52 2e 4c | 00 11 c2 06 88 4c 44 59 |A.ADDR.L|.....LDY|
|000004d0| 81 58 4f 46 46 2e 42 2c | 58 00 13 cc 06 88 4c 44 |.XOFF.B,|X.....LD|
|000004e0| 41 81 28 41 44 44 52 2e | 4c 29 2c 59 00 12 d6 06 |A.(ADDR.|L),Y....|
|000004f0| 88 41 4e 44 81 4e 58 4f | 46 46 2e 50 2c 58 00 13 |.AND.NXO|FF.P,X..|
|00000500| e0 06 88 53 54 41 81 28 | 41 44 44 52 2e 4c 29 2c |...STA.(|ADDR.L),|
|00000510| 59 00 09 ea 06 88 45 4e | 44 4d 00 05 f4 06 81 00 |Y.....EN|DM......|
|00000520| 08 fe 06 3b c0 20 2d 00 | 12 08 07 3b 81 4d 41 43 |...;. -.|...;.MAC|
|00000530| 52 4f 85 3a 81 48 58 4f | 52 00 1e 12 07 3b 81 49 |RO.:.HXO|R....;.I|
|00000540| 4e 50 55 54 85 3a 81 58 | 81 3d 81 58 81 43 4f 4f |NPUT.:.X|.=.X.COO|
|00000550| 52 44 49 4e 41 54 45 00 | 16 1c 07 3b 8d 59 81 3d |RDINATE.|...;.Y.=|
|00000560| 81 59 81 43 4f 4f 52 44 | 49 4e 41 54 45 00 1b 26 |.Y.COORD|INATE..&|
|00000570| 07 3b 81 4f 55 54 50 55 | 54 84 3a 81 58 4f 52 81 |.;.OUTPU|T.:.XOR.|
|00000580| 50 49 58 45 4c 81 41 54 | 00 15 30 07 3b 8d 43 4f |PIXEL.AT|..0.;.CO|
|00000590| 4f 52 44 2e 81 28 58 2c | 59 29 81 4f 4e 00 19 3a |ORD..(X,|Y).ON..:|
|000005a0| 07 3b 8d 43 55 52 52 45 | 4e 54 81 50 41 47 45 81 |.;.CURRE|NT.PAGE.|
|000005b0| 41 44 44 52 2e 50 00 08 | 44 07 3b c0 21 2d 00 0e |ADDR.P..|D.;.!-..|
|000005c0| 4e 07 48 58 4f 52 84 4d | 41 43 52 4f 00 12 58 07 |N.HXOR.M|ACRO..X.|
|000005d0| 88 4c 44 41 81 48 59 4f | 46 46 2e 48 2c 59 00 08 |.LDA.HYO|FF.H,Y..|
|000005e0| 62 07 88 43 4c 43 00 0f | 6c 07 88 41 44 43 81 41 |b..CLC..|l..ADC.A|
|000005f0| 44 44 52 2e 50 00 0f 76 | 07 88 53 54 41 81 41 44 |DDR.P..v|..STA.AD|
|00000600| 44 52 2e 48 00 12 80 07 | 88 4c 44 41 81 48 59 4f |DR.H....|.LDA.HYO|
|00000610| 46 46 2e 4c 2c 59 00 0f | 8a 07 88 53 54 41 81 41 |FF.L,Y..|...STA.A|
|00000620| 44 44 52 2e 4c 00 11 94 | 07 88 4c 44 59 81 58 4f |DDR.L...|..LDY.XO|
|00000630| 46 46 2e 42 2c 58 00 13 | 9e 07 88 4c 44 41 81 28 |FF.B,X..|...LDA.(|
|00000640| 41 44 44 52 2e 4c 29 2c | 59 00 11 a8 07 88 45 4f |ADDR.L),|Y.....EO|
|00000650| 52 81 58 4f 46 46 2e 50 | 2c 58 00 13 b2 07 88 53 |R.XOFF.P|,X.....S|
|00000660| 54 41 81 28 41 44 44 52 | 2e 4c 29 2c 59 00 09 bc |TA.(ADDR|.L),Y...|
|00000670| 07 88 45 4e 44 4d 00 05 | c6 07 81 00 08 d0 07 3b |..ENDM..|.......;|
|00000680| c0 20 2d 00 15 da 07 3b | 81 4d 41 43 52 4f 84 3a |. -....;|.MACRO.:|
|00000690| 81 4f 55 54 53 49 44 45 | 00 1e e4 07 3b 81 49 4e |.OUTSIDE|....;.IN|
|000006a0| 50 55 54 84 3a 81 58 81 | 3d 81 58 81 43 4f 4f 52 |PUT.:.X.|=.X.COOR|
|000006b0| 44 49 4e 41 54 45 00 16 | ee 07 3b 8c 59 81 3d 81 |DINATE..|..;.Y.=.|
|000006c0| 59 81 43 4f 4f 52 44 49 | 4e 41 54 45 00 1e f8 07 |Y.COORDI|NATE....|
|000006d0| 3b 81 4f 55 54 50 55 54 | 83 3a 81 43 41 52 52 59 |;.OUTPUT|.:.CARRY|
|000006e0| 81 49 53 81 53 45 54 81 | 49 46 00 16 02 08 3b 8c |.IS.SET.|IF....;.|
|000006f0| 50 49 58 45 4c 81 49 53 | 81 4f 55 54 53 49 44 45 |PIXEL.IS|.OUTSIDE|
|00000700| 00 15 0c 08 3b 8c 53 43 | 52 45 45 4e 3b 81 43 4c |....;.SC|REEN;.CL|
|00000710| 45 41 52 45 44 00 10 16 | 08 3b 8c 4f 54 48 45 52 |EARED...|.;.OTHER|
|00000720| 57 49 53 45 2e 00 08 20 | 08 3b c0 20 2d 00 11 2a |WISE... |.;. -..*|
|00000730| 08 4f 55 54 53 49 44 45 | 81 4d 41 43 52 4f 00 0d |.OUTSIDE|.MACRO..|
|00000740| 34 08 88 43 50 58 81 23 | 31 34 30 00 0b 3e 08 88 |4..CPX.#|140..>..|
|00000750| 42 43 53 81 3a 31 00 0d | 48 08 88 43 50 59 81 23 |BCS.:1..|H..CPY.#|
|00000760| 31 39 32 00 0b 52 08 88 | 42 43 53 81 3a 31 00 06 |192..R..|BCS.:1..|
|00000770| 5c 08 3a 31 00 09 66 08 | 88 45 4e 44 4d 00 05 70 |\.:1..f.|.ENDM..p|
|00000780| 08 81 00 08 7a 08 3b c0 | 21 2d 00 14 84 08 3b 81 |....z.;.|!-....;.|
|00000790| 4d 41 43 52 4f 84 3a 81 | 52 41 4e 44 4f 4d 00 1c |MACRO.:.|RANDOM..|
|000007a0| 8e 08 3b 81 49 4e 50 55 | 54 84 3a 81 41 81 3d 81 |..;.INPU|T.:.A.=.|
|000007b0| 4d 41 53 4b 81 56 41 4c | 55 45 00 1f 98 08 3b 81 |MASK.VAL|UE....;.|
|000007c0| 4f 55 54 50 55 54 83 3a | 81 41 81 3d 81 52 41 4e |OUTPUT.:|.A.=.RAN|
|000007d0| 44 4f 4d 81 56 41 4c 55 | 45 00 18 a2 08 3b 8c 4e |DOM.VALU|E....;.N|
|000007e0| 4f 81 4f 54 48 45 52 81 | 52 45 47 49 53 54 45 52 |O.OTHER.|REGISTER|
|000007f0| 53 00 14 ac 08 3b 8c 41 | 52 45 81 44 45 53 54 52 |S....;.A|RE.DESTR|
|00000800| 4f 59 45 44 2e 00 08 b6 | 08 3b c0 21 2d 00 10 c0 |OYED....|.;.!-...|
|00000810| 08 52 41 4e 44 4f 4d 82 | 4d 41 43 52 4f 00 0c ca |.RANDOM.|MACRO...|
|00000820| 08 88 53 54 59 81 24 46 | 46 00 0d d4 08 88 4c 44 |..STY.$F|F.....LD|
|00000830| 59 81 53 45 45 44 00 11 | de 08 88 41 4e 44 81 52 |Y.SEED..|...AND.R|
|00000840| 4e 44 54 41 42 2c 59 00 | 08 e8 08 88 49 4e 59 00 |NDTAB,Y.|....INY.|
|00000850| 0d f2 08 88 53 54 59 81 | 53 45 45 44 00 0c fc 08 |....STY.|SEED....|
|00000860| 88 4c 44 59 81 24 46 46 | 00 09 06 09 88 45 4e 44 |.LDY.$FF|.....END|
|00000870| 4d 00 4f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |M.O.....|........|
|00000880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+