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

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 9a 08 05 64 00 3b 00 18 | 6e 00 3b 81 4d 4f 44 55 |...d.;..|n.;.MODU|
|00000010| 4c 45 3a 81 41 52 49 54 | 48 4d 45 54 49 43 00 05 |LE:.ARIT|HMETIC..|
|00000020| 78 00 3b 00 12 f4 01 54 | 45 4d 50 2e 4c 83 45 51 |x.;....T|EMP.L.EQ|
|00000030| 55 81 24 46 45 00 12 fe | 01 54 45 4d 50 2e 48 83 |U.$FE...|.TEMP.H.|
|00000040| 45 51 55 81 24 46 46 00 | 11 08 02 4d 55 4c 2e 4c |EQU.$FF.|...MUL.L|
|00000050| 84 45 51 55 81 24 46 43 | 00 11 12 02 4d 55 4c 2e |.EQU.$FC|....MUL.|
|00000060| 48 84 45 51 55 81 24 46 | 44 00 08 e8 03 3b c0 21 |H.EQU.$F|D....;.!|
|00000070| 2d 00 1a f2 03 3b 81 4d | 41 43 52 4f 83 3a 81 41 |-....;.M|ACRO.:.A|
|00000080| 44 44 57 81 41 2c 42 2c | 58 2c 59 00 1f fc 03 3b |DDW.A,B,|X,Y....;|
|00000090| 81 49 4e 50 55 54 83 3a | 81 3f 31 81 3d 81 53 52 |.INPUT.:|.?1.=.SR|
|000000a0| 43 81 4c 4f 57 81 42 59 | 54 45 00 18 06 04 3b 8b |C.LOW.BY|TE....;.|
|000000b0| 3f 32 81 3d 81 53 52 43 | 81 48 49 47 48 81 42 59 |?2.=.SRC|.HIGH.BY|
|000000c0| 54 45 00 18 10 04 3b 8b | 3f 33 81 3d 81 44 45 53 |TE....;.|?3.=.DES|
|000000d0| 54 81 4c 4f 57 81 42 59 | 54 45 00 19 1a 04 3b 8b |T.LOW.BY|TE....;.|
|000000e0| 3f 34 81 3d 81 44 45 53 | 54 81 48 49 47 48 81 42 |?4.=.DES|T.HIGH.B|
|000000f0| 59 54 45 00 23 24 04 3b | 81 4f 55 54 50 55 54 82 |YTE.#$.;|.OUTPUT.|
|00000100| 3a 81 41 44 44 81 57 4f | 52 44 81 53 52 43 81 54 |:.ADD.WO|RD.SRC.T|
|00000110| 4f 81 44 45 53 54 00 08 | 2e 04 3b c0 21 2d 00 0e |O.DEST..|..;.!-..|
|00000120| 38 04 41 44 44 57 84 4d | 41 43 52 4f 00 0b 42 04 |8.ADDW.M|ACRO..B.|
|00000130| 88 4c 44 41 81 3f 33 00 | 08 4c 04 88 43 4c 43 00 |.LDA.?3.|.L..CLC.|
|00000140| 0b 56 04 88 41 44 43 81 | 3f 31 00 0b 60 04 88 53 |.V..ADC.|?1..`..S|
|00000150| 54 41 81 3f 33 00 0b 6a | 04 88 4c 44 41 81 3f 32 |TA.?3..j|..LDA.?2|
|00000160| 00 0b 74 04 88 41 44 43 | 81 3f 34 00 0b 7e 04 88 |..t..ADC|.?4..~..|
|00000170| 53 54 41 81 3f 34 00 09 | 88 04 88 45 4e 44 4d 00 |STA.?4..|...ENDM.|
|00000180| 05 92 04 81 00 08 9c 04 | 3b c0 21 2d 00 18 a6 04 |........|;.!-....|
|00000190| 3b 81 4d 41 43 52 4f 83 | 3a 81 53 48 49 46 54 4c |;.MACRO.|:.SHIFTL|
|000001a0| 81 41 2c 42 00 1b b0 04 | 3b 81 49 4e 50 55 54 83 |.A,B....|;.INPUT.|
|000001b0| 3a 81 3f 31 81 3d 81 4c | 4f 57 81 42 59 54 45 00 |:.?1.=.L|OW.BYTE.|
|000001c0| 14 ba 04 3b 8b 3f 32 81 | 3d 81 48 49 47 48 81 42 |...;.?2.|=.HIGH.B|
|000001d0| 59 54 45 00 20 c4 04 3b | 81 4f 55 54 50 55 54 82 |YTE. ..;|.OUTPUT.|
|000001e0| 3a 81 57 4f 52 44 81 53 | 48 49 46 54 45 44 81 4c |:.WORD.S|HIFTED.L|
|000001f0| 45 46 54 00 0f ce 04 3b | 8b 28 4f 4e 45 81 42 49 |EFT....;|.(ONE.BI|
|00000200| 54 29 00 08 d8 04 3b c0 | 21 2d 00 10 e2 04 53 48 |T)....;.|!-....SH|
|00000210| 49 46 54 4c 82 4d 41 43 | 52 4f 00 08 ec 04 88 43 |IFTL.MAC|RO.....C|
|00000220| 4c 43 00 0b f6 04 88 52 | 4f 4c 81 3f 31 00 0b 00 |LC.....R|OL.?1...|
|00000230| 05 88 52 4f 4c 81 3f 32 | 00 09 0a 05 88 45 4e 44 |..ROL.?2|.....END|
|00000240| 4d 00 05 14 05 81 00 08 | 1e 05 3b c0 21 2d 00 17 |M.......|..;.!-..|
|00000250| 28 05 3b 81 46 55 4e 43 | 54 49 4f 4e 3a 81 4d 55 |(.;.FUNC|TION:.MU|
|00000260| 4c 81 41 2c 42 00 20 32 | 05 3b 81 49 4e 50 55 54 |L.A,B. 2|.;.INPUT|
|00000270| 83 3a 81 3f 31 81 3d 81 | 44 45 53 54 81 4c 4f 57 |.:.?1.=.|DEST.LOW|
|00000280| 81 42 59 54 45 00 19 3c | 05 3b 8b 3f 32 81 3d 81 |.BYTE..<|.;.?2.=.|
|00000290| 44 45 53 54 81 48 49 47 | 48 81 42 59 54 45 00 1a |DEST.HIG|H.BYTE..|
|000002a0| 46 05 3b 8b 58 2c 59 81 | 3d 81 56 41 4c 55 45 53 |F.;.X,Y.|=.VALUES|
|000002b0| 81 54 4f 81 4d 55 4c 54 | 00 08 50 05 3b c0 21 2d |.TO.MULT|..P.;.!-|
|000002c0| 00 07 6e 05 4d 55 4c 00 | 0d 78 05 88 4c 44 41 81 |..n.MUL.|.x..LDA.|
|000002d0| 23 24 30 30 00 0e 82 05 | 88 53 54 41 81 4d 55 4c |#$00....|.STA.MUL|
|000002e0| 2e 4c 00 0e 8c 05 88 53 | 54 41 81 4d 55 4c 2e 48 |.L.....S|TA.MUL.H|
|000002f0| 00 0f 96 05 88 53 54 58 | 81 54 45 4d 50 2e 4c 00 |.....STX|.TEMP.L.|
|00000300| 08 97 05 88 54 58 41 00 | 0b 98 05 88 42 50 4c 81 |....TXA.|....BPL.|
|00000310| 2e 31 00 0d 99 05 88 4c | 44 41 81 23 24 46 46 00 |.1.....L|DA.#$FF.|
|00000320| 0b 9a 05 88 4a 4d 50 81 | 2e 32 00 0f 9b 05 2e 31 |....JMP.|.2.....1|
|00000330| 86 4c 44 41 81 23 24 30 | 30 00 11 9c 05 2e 32 86 |.LDA.#$0|0.....2.|
|00000340| 53 54 41 81 54 45 4d 50 | 2e 48 00 08 aa 05 88 54 |STA.TEMP|.H.....T|
|00000350| 59 41 00 08 b4 05 88 4c | 53 52 00 08 be 05 88 54 |YA.....L|SR.....T|
|00000360| 41 59 00 0b c8 05 88 42 | 43 43 81 2e 33 00 23 d2 |AY.....B|CC..3.#.|
|00000370| 05 88 41 44 44 57 81 54 | 45 4d 50 2e 4c 2c 54 45 |..ADDW.T|EMP.L,TE|
|00000380| 4d 50 2e 48 2c 4d 55 4c | 2e 4c 2c 4d 55 4c 2e 48 |MP.H,MUL|.L,MUL.H|
|00000390| 00 1b dc 05 2e 33 86 53 | 48 49 46 54 4c 81 54 45 |.....3.S|HIFTL.TE|
|000003a0| 4d 50 2e 4c 2c 54 45 4d | 50 2e 48 00 08 e6 05 88 |MP.L,TEM|P.H.....|
|000003b0| 54 59 41 00 08 f0 05 88 | 4c 53 52 00 08 fa 05 88 |TYA.....|LSR.....|
|000003c0| 54 41 59 00 0b 04 06 88 | 42 43 43 81 2e 34 00 23 |TAY.....|BCC..4.#|
|000003d0| 0e 06 88 41 44 44 57 81 | 54 45 4d 50 2e 4c 2c 54 |...ADDW.|TEMP.L,T|
|000003e0| 45 4d 50 2e 48 2c 4d 55 | 4c 2e 4c 2c 4d 55 4c 2e |EMP.H,MU|L.L,MUL.|
|000003f0| 48 00 1b 18 06 2e 34 86 | 53 48 49 46 54 4c 81 54 |H.....4.|SHIFTL.T|
|00000400| 45 4d 50 2e 4c 2c 54 45 | 4d 50 2e 48 00 08 22 06 |EMP.L,TE|MP.H..".|
|00000410| 88 54 59 41 00 08 2c 06 | 88 4c 53 52 00 08 36 06 |.TYA..,.|.LSR..6.|
|00000420| 88 54 41 59 00 0b 40 06 | 88 42 43 43 81 2e 35 00 |.TAY..@.|.BCC..5.|
|00000430| 23 4a 06 88 41 44 44 57 | 81 54 45 4d 50 2e 4c 2c |#J..ADDW|.TEMP.L,|
|00000440| 54 45 4d 50 2e 48 2c 4d | 55 4c 2e 4c 2c 4d 55 4c |TEMP.H,M|UL.L,MUL|
|00000450| 2e 48 00 1b 54 06 2e 35 | 86 53 48 49 46 54 4c 81 |.H..T..5|.SHIFTL.|
|00000460| 54 45 4d 50 2e 4c 2c 54 | 45 4d 50 2e 48 00 08 5e |TEMP.L,T|EMP.H..^|
|00000470| 06 88 54 59 41 00 08 68 | 06 88 4c 53 52 00 08 72 |..TYA..h|..LSR..r|
|00000480| 06 88 54 41 59 00 0b 7c | 06 88 42 43 43 81 2e 36 |..TAY..||..BCC..6|
|00000490| 00 23 86 06 88 41 44 44 | 57 81 54 45 4d 50 2e 4c |.#...ADD|W.TEMP.L|
|000004a0| 2c 54 45 4d 50 2e 48 2c | 4d 55 4c 2e 4c 2c 4d 55 |,TEMP.H,|MUL.L,MU|
|000004b0| 4c 2e 48 00 1b 90 06 2e | 36 86 53 48 49 46 54 4c |L.H.....|6.SHIFTL|
|000004c0| 81 54 45 4d 50 2e 4c 2c | 54 45 4d 50 2e 48 00 08 |.TEMP.L,|TEMP.H..|
|000004d0| 9a 06 88 54 59 41 00 08 | a4 06 88 4c 53 52 00 08 |...TYA..|...LSR..|
|000004e0| ae 06 88 54 41 59 00 0b | b8 06 88 42 43 43 81 2e |...TAY..|...BCC..|
|000004f0| 37 00 23 c2 06 88 41 44 | 44 57 81 54 45 4d 50 2e |7.#...AD|DW.TEMP.|
|00000500| 4c 2c 54 45 4d 50 2e 48 | 2c 4d 55 4c 2e 4c 2c 4d |L,TEMP.H|,MUL.L,M|
|00000510| 55 4c 2e 48 00 1b cc 06 | 2e 37 86 53 48 49 46 54 |UL.H....|.7.SHIFT|
|00000520| 4c 81 54 45 4d 50 2e 4c | 2c 54 45 4d 50 2e 48 00 |L.TEMP.L|,TEMP.H.|
|00000530| 08 d6 06 88 54 59 41 00 | 08 e0 06 88 4c 53 52 00 |....TYA.|....LSR.|
|00000540| 08 ea 06 88 54 41 59 00 | 0b f4 06 88 42 43 43 81 |....TAY.|....BCC.|
|00000550| 2e 38 00 23 fe 06 88 41 | 44 44 57 81 54 45 4d 50 |.8.#...A|DDW.TEMP|
|00000560| 2e 4c 2c 54 45 4d 50 2e | 48 2c 4d 55 4c 2e 4c 2c |.L,TEMP.|H,MUL.L,|
|00000570| 4d 55 4c 2e 48 00 1b 08 | 07 2e 38 86 53 48 49 46 |MUL.H...|..8.SHIF|
|00000580| 54 4c 81 54 45 4d 50 2e | 4c 2c 54 45 4d 50 2e 48 |TL.TEMP.|L,TEMP.H|
|00000590| 00 08 12 07 88 54 59 41 | 00 08 1c 07 88 4c 53 52 |.....TYA|.....LSR|
|000005a0| 00 08 26 07 88 54 41 59 | 00 0b 30 07 88 42 43 43 |..&..TAY|..0..BCC|
|000005b0| 81 2e 39 00 23 3a 07 88 | 41 44 44 57 81 54 45 4d |..9.#:..|ADDW.TEM|
|000005c0| 50 2e 4c 2c 54 45 4d 50 | 2e 48 2c 4d 55 4c 2e 4c |P.L,TEMP|.H,MUL.L|
|000005d0| 2c 4d 55 4c 2e 48 00 1b | 44 07 2e 39 86 53 48 49 |,MUL.H..|D..9.SHI|
|000005e0| 46 54 4c 81 54 45 4d 50 | 2e 4c 2c 54 45 4d 50 2e |FTL.TEMP|.L,TEMP.|
|000005f0| 48 00 08 4e 07 88 54 59 | 41 00 08 58 07 88 4c 53 |H..N..TY|A..X..LS|
|00000600| 52 00 08 62 07 88 54 41 | 59 00 0c 6c 07 88 42 43 |R..b..TA|Y..l..BC|
|00000610| 43 81 2e 31 30 00 23 76 | 07 88 41 44 44 57 81 54 |C..10.#v|..ADDW.T|
|00000620| 45 4d 50 2e 4c 2c 54 45 | 4d 50 2e 48 2c 4d 55 4c |EMP.L,TE|MP.H,MUL|
|00000630| 2e 4c 2c 4d 55 4c 2e 48 | 00 0b 80 07 2e 31 30 85 |.L,MUL.H|.....10.|
|00000640| 52 54 53 00 05 8a 07 81 | 00 08 94 07 3b c0 21 2d |RTS.....|....;.!-|
|00000650| 00 11 9e 07 3b 81 4d 41 | 43 52 4f 83 3a 81 53 49 |....;.MA|CRO.:.SI|
|00000660| 4e 00 17 a8 07 3b 81 49 | 4e 50 55 54 83 3a 81 58 |N....;.I|NPUT.:.X|
|00000670| 81 3d 81 54 48 45 54 41 | 00 1d b2 07 3b 81 4f 55 |.=.THETA|....;.OU|
|00000680| 54 50 55 54 82 3a 81 41 | 81 3d 81 53 49 4e 28 54 |TPUT.:.A|.=.SIN(T|
|00000690| 48 45 54 41 29 00 08 bc | 07 3b c0 21 2d 00 0d c6 |HETA)...|.;.!-...|
|000006a0| 07 53 49 4e 85 4d 41 43 | 52 4f 00 11 d0 07 88 4c |.SIN.MAC|RO.....L|
|000006b0| 44 41 81 53 49 4e 54 41 | 42 2c 58 00 09 da 07 88 |DA.SINTA|B,X.....|
|000006c0| 45 4e 44 4d 00 05 e4 07 | 81 00 08 ee 07 3b c0 21 |ENDM....|.....;.!|
|000006d0| 2d 00 11 f8 07 3b 81 4d | 41 43 52 4f 83 3a 81 43 |-....;.M|ACRO.:.C|
|000006e0| 4f 53 00 17 02 08 3b 81 | 49 4e 50 55 54 83 3a 81 |OS....;.|INPUT.:.|
|000006f0| 58 81 3d 81 54 48 45 54 | 41 00 1d 0c 08 3b 81 4f |X.=.THET|A....;.O|
|00000700| 55 54 50 55 54 82 3a 81 | 41 81 3d 81 43 4f 53 28 |UTPUT.:.|A.=.COS(|
|00000710| 54 48 45 54 41 29 00 08 | 16 08 3b c0 21 2d 00 0d |THETA)..|..;.!-..|
|00000720| 20 08 43 4f 53 85 4d 41 | 43 52 4f 00 11 2a 08 88 | .COS.MA|CRO..*..|
|00000730| 4c 44 41 81 43 4f 53 54 | 41 42 2c 58 00 09 34 08 |LDA.COST|AB,X..4.|
|00000740| 88 45 4e 44 4d 00 05 3e | 08 81 00 08 48 08 3b c0 |.ENDM..>|....H.;.|
|00000750| 21 2d 00 15 52 08 3b 81 | 4d 41 43 52 4f 83 3a 81 |!-..R.;.|MACRO.:.|
|00000760| 50 4f 4c 52 45 43 54 00 | 18 5c 08 3b 81 49 4e 50 |POLRECT.|.\.;.INP|
|00000770| 55 54 83 3a 81 3f 31 81 | 3d 81 52 41 44 49 45 00 |UT.:.?1.|=.RADIE.|
|00000780| 10 66 08 3b 8b 3f 32 81 | 3d 81 41 4e 47 4c 45 00 |.f.;.?2.|=.ANGLE.|
|00000790| 0c 70 08 3b 8b 3f 33 81 | 3d 81 58 00 0c 7a 08 3b |.p.;.?3.|=.X..z.;|
|000007a0| 8b 3f 34 81 3d 81 59 00 | 23 84 08 3b 81 4f 55 54 |.?4.=.Y.|#..;.OUT|
|000007b0| 50 55 54 82 3a 81 43 4f | 4e 56 45 52 54 81 50 4f |PUT.:.CO|NVERT.PO|
|000007c0| 4c 41 52 81 43 4f 4f 52 | 44 2e 00 19 8e 08 3b 8b |LAR.COOR|D.....;.|
|000007d0| 54 4f 81 43 41 52 54 45 | 53 49 41 4e 81 43 4f 4f |TO.CARTE|SIAN.COO|
|000007e0| 52 44 2e 00 08 98 08 3b | c0 21 2d 00 11 a2 08 50 |RD.....;|.!-....P|
|000007f0| 4f 4c 52 45 43 54 81 4d | 41 43 52 4f 00 0b ac 08 |OLRECT.M|ACRO....|
|00000800| 88 4c 44 58 81 3f 32 00 | 08 b6 08 88 53 49 4e 00 |.LDX.?2.|....SIN.|
|00000810| 08 bb 08 88 54 41 58 00 | 0b c0 08 88 4c 44 59 81 |....TAX.|....LDY.|
|00000820| 3f 31 00 0c ca 08 88 4a | 53 52 81 4d 55 4c 00 0e |?1.....J|SR.MUL..|
|00000830| d4 08 88 4c 44 41 81 4d | 55 4c 2e 48 00 0b de 08 |...LDA.M|UL.H....|
|00000840| 88 53 54 41 81 3f 34 00 | 0b e8 08 88 4c 44 58 81 |.STA.?4.|....LDX.|
|00000850| 3f 32 00 08 f2 08 88 43 | 4f 53 00 08 f7 08 88 54 |?2.....C|OS.....T|
|00000860| 41 58 00 0b fc 08 88 4c | 44 59 81 3f 31 00 0c 06 |AX.....L|DY.?1...|
|00000870| 09 88 4a 53 52 81 4d 55 | 4c 00 0e 10 09 88 4c 44 |..JSR.MU|L.....LD|
|00000880| 41 81 4d 55 4c 2e 48 00 | 0b 1a 09 88 53 54 41 81 |A.MUL.H.|....STA.|
|00000890| 3f 33 00 09 24 09 88 45 | 4e 44 4d 00 88 41 81 3f |?3..$..E|NDM..A.?|
|000008a0| 33 00 09 24 09 88 45 4e | 44 4d 00 4c 00 00 00 00 |3..$..EN|DM.L....|
|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 |........|........|
+--------+-------------------------+-------------------------+--------+--------+