/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64 / summierung

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| d8 1f f0 1f 64 00 3b 2a | 2a 2a 20 53 55 4d 4d 49 |....d.;*|** SUMMI|
|00000010| 45 52 55 4e 47 20 2a 2a | 2a 00 f6 1f 6e 00 3b 00 |ERUNG **|*...n.;.|
|00000020| fc 1f 78 00 3b 00 1f 20 | 82 00 2e 45 51 20 47 45 |..x.;.. |...EQ GE|
|00000030| 54 50 4f 53 20 3d 24 42 | 30 38 42 20 20 3b 3d 3e |TPOS =$B|08B  ;=>|
|00000040| 20 50 4f 49 4e 54 45 52 | 00 35 20 8c 00 2e 45 51 | POINTER|.5 ...EQ|
|00000050| 20 43 48 4b 4b 4f 4d 20 | 3d 24 41 45 46 44 00 5a | CHKKOM |=$AEFD.Z|
|00000060| 20 96 00 2e 45 51 20 53 | 54 41 52 54 20 20 3d 24 | ...EQ S|TART  =$|
|00000070| 32 35 31 20 20 20 3b 4c | 49 4e 4b 45 20 47 52 45 |251   ;L|INKE GRE|
|00000080| 4e 5a 45 00 80 20 a0 00 | 2e 45 51 20 45 4e 44 45 |NZE.. ..|.EQ ENDE|
|00000090| 20 20 20 3d 24 32 35 33 | 20 20 20 3b 52 45 43 48 |   =$253|   ;RECH|
|000000a0| 54 45 20 47 52 45 4e 5a | 45 00 a4 20 aa 00 2e 45 |TE GRENZ|E.. ...E|
|000000b0| 51 20 41 44 44 20 20 20 | 20 3d 24 42 38 36 41 20 |Q ADD   | =$B86A |
|000000c0| 20 3b 46 41 43 3d 41 52 | 47 2b 46 41 43 00 c8 20 | ;FAC=AR|G+FAC.. |
|000000d0| b4 00 2e 45 51 20 53 55 | 42 20 20 20 20 3d 24 42 |...EQ SU|B    =$B|
|000000e0| 38 35 33 20 20 3b 46 41 | 43 3d 41 52 47 2d 46 41 |853  ;FA|C=ARG-FA|
|000000f0| 43 00 ec 20 be 00 2e 45 | 51 20 4d 55 4c 54 20 20 |C.. ...E|Q MULT  |
|00000100| 20 3d 24 42 41 32 42 20 | 20 3b 46 41 43 3d 41 52 | =$BA2B | ;FAC=AR|
|00000110| 47 2a 46 41 43 00 10 21 | c8 00 2e 45 51 20 44 49 |G*FAC..!|...EQ DI|
|00000120| 56 20 20 20 20 3d 24 42 | 42 31 32 20 20 3b 46 41 |V    =$B|B12  ;FA|
|00000130| 43 3d 41 52 47 2f 46 41 | 43 00 24 21 d2 00 2e 45 |C=ARG/FA|C.$!...E|
|00000140| 51 20 46 41 43 20 20 20 | 20 3d 24 36 31 00 38 21 |Q FAC   | =$61.8!|
|00000150| dc 00 2e 45 51 20 41 52 | 47 20 20 20 20 3d 24 36 |...EQ AR|G    =$6|
|00000160| 39 00 4e 21 e6 00 2e 45 | 51 20 4b 4f 4e 46 41 43 |9.N!...E|Q KONFAC|
|00000170| 20 3d 24 42 42 41 32 00 | 64 21 f0 00 2e 45 51 20 | =$BBA2.|d!...EQ |
|00000180| 46 41 43 41 52 47 20 3d | 24 42 43 30 43 00 7a 21 |FACARG =|$BC0C.z!|
|00000190| fa 00 2e 45 51 20 46 41 | 43 53 54 52 20 3d 24 42 |...EQ FA|CSTR =$B|
|000001a0| 44 44 44 00 90 21 04 01 | 2e 45 51 20 53 54 52 4f |DDD..!..|.EQ STRO|
|000001b0| 55 54 20 3d 24 41 42 31 | 45 00 a6 21 0e 01 2e 45 |UT =$AB1|E..!...E|
|000001c0| 51 20 42 53 4f 55 54 20 | 20 3d 24 46 46 44 32 00 |Q BSOUT | =$FFD2.|
|000001d0| ac 21 18 01 3b 00 c8 21 | 22 01 2e 42 41 20 24 43 |.!..;..!|"..BA $C|
|000001e0| 30 30 30 3b 50 52 4f 47 | 52 41 4d 4d 53 54 41 52 |000;PROG|RAMMSTAR|
|000001f0| 54 00 ce 21 2c 01 3b 00 | d4 21 36 01 3b 00 e9 21 |T..!,.;.|.!6.;..!|
|00000200| 40 01 3b 2a 50 4f 49 4e | 54 45 52 20 48 4f 4c 45 |@.;*POIN|TER HOLE|
|00000210| 4e 2a 00 04 22 4a 01 20 | 4a 53 52 43 48 4b 4b 4f |N*.."J. |JSRCHKKO|
|00000220| 4d 3b 50 4f 49 4e 54 45 | 52 20 41 55 46 00 20 22 |M;POINTE|R AUF. "|
|00000230| 54 01 20 4a 53 52 47 45 | 54 50 4f 53 3b 4c 49 4e |T. JSRGE|TPOS;LIN|
|00000240| 4b 45 20 47 52 45 4e 5a | 45 00 3d 22 5e 01 20 53 |KE GRENZ|E.="^. S|
|00000250| 54 41 53 54 41 52 54 3b | 4e 41 43 48 20 53 54 41 |TASTART;|NACH STA|
|00000260| 52 54 28 2b 31 29 00 4d | 22 68 01 20 53 54 59 53 |RT(+1).M|"h. STYS|
|00000270| 54 41 52 54 2b 31 00 68 | 22 72 01 20 4a 53 52 43 |TART+1.h|"r. JSRC|
|00000280| 48 4b 4b 4f 4d 3b 50 4f | 49 4e 54 45 52 20 41 55 |HKKOM;PO|INTER AU|
|00000290| 46 00 85 22 7c 01 20 4a | 53 52 47 45 54 50 4f 53 |F.."|. J|SRGETPOS|
|000002a0| 3b 52 45 43 48 54 45 20 | 47 52 45 4e 5a 45 00 a0 |;RECHTE |GRENZE..|
|000002b0| 22 86 01 20 53 54 41 45 | 4e 44 45 3b 4e 41 43 48 |".. STAE|NDE;NACH|
|000002c0| 20 45 4e 44 45 28 2b 31 | 29 00 af 22 90 01 20 53 | ENDE(+1|)..".. S|
|000002d0| 54 59 45 4e 44 45 2b 31 | 00 b5 22 9a 01 3b 00 d1 |TYENDE+1|.."..;..|
|000002e0| 22 a4 01 20 4a 53 52 49 | 4e 46 41 43 3b 41 28 31 |".. JSRI|NFAC;A(1|
|000002f0| 29 20 4e 41 43 48 20 46 | 41 43 00 d7 22 ae 01 3b |) NACH F|AC.."..;|
|00000300| 00 f8 22 b8 01 42 45 47 | 49 4e 20 4a 53 52 46 41 |.."..BEG|IN JSRFA|
|00000310| 43 41 52 47 3b 46 41 43 | 20 4e 41 43 48 20 41 52 |CARG;FAC| NACH AR|
|00000320| 47 00 06 23 c2 01 20 4c | 44 41 53 54 41 52 54 00 |G..#.. L|DASTART.|
|00000330| 1a 23 cc 01 20 43 4c 43 | 3b 53 54 41 52 54 28 2b |.#.. CLC|;START(+|
|00000340| 31 29 3d 00 33 23 d6 01 | 20 41 44 43 23 35 3b 53 |1)=.3#..| ADC#5;S|
|00000350| 54 41 52 54 28 2b 31 29 | 20 2b 20 35 00 4d 23 e0 |TART(+1)| + 5.M#.|
|00000360| 01 20 53 54 41 53 54 41 | 52 54 3b 3c 3d 3e 20 50 |. STASTA|RT;<=> P|
|00000370| 4f 49 4e 54 45 52 00 69 | 23 ea 01 20 42 43 43 4c |OINTER.i|#.. BCCL|
|00000380| 41 42 45 4c 31 3b 41 55 | 46 20 4e 41 45 43 48 53 |ABEL1;AU|F NAECHS|
|00000390| 54 45 00 82 23 f4 01 20 | 49 4e 43 53 54 41 52 54 |TE..#.. |INCSTART|
|000003a0| 2b 31 3b 52 45 41 4c 5a | 41 48 4c 00 88 23 fe 01 |+1;REALZ|AHL..#..|
|000003b0| 3b 00 9d 23 08 02 4c 41 | 42 45 4c 31 20 4c 44 41 |;..#..LA|BEL1 LDA|
|000003c0| 45 4e 44 45 2b 31 00 ad | 23 12 02 20 43 4d 50 53 |ENDE+1..|#.. CMPS|
|000003d0| 54 41 52 54 2b 31 00 c7 | 23 1c 02 20 42 43 43 42 |TART+1..|#.. BCCB|
|000003e0| 41 43 4b 3b 46 45 52 54 | 49 47 2c 20 57 45 4e 4e |ACK;FERT|IG, WENN|
|000003f0| 00 e9 23 26 02 20 42 4e | 45 57 45 49 54 45 52 3b |..#&. BN|EWEITER;|
|00000400| 45 4e 44 45 28 2b 31 29 | 3c 53 54 41 52 54 28 2b |ENDE(+1)|<START(+|
|00000410| 31 29 00 f6 23 30 02 20 | 4c 44 41 45 4e 44 45 00 |1)..#0. |LDAENDE.|
|00000420| 04 24 3a 02 20 43 4d 50 | 53 54 41 52 54 00 11 24 |.$:. CMP|START..$|
|00000430| 44 02 20 42 43 43 42 41 | 43 4b 00 17 24 4e 02 3b |D. BCCBA|CK..$N.;|
|00000440| 00 3b 24 58 02 57 45 49 | 54 45 52 20 4a 53 52 49 |.;$X.WEI|TER JSRI|
|00000450| 4e 46 41 43 3b 41 28 53 | 54 41 52 54 29 20 3d 3e |NFAC;A(S|TART) =>|
|00000460| 20 46 41 43 00 53 24 62 | 02 20 4a 53 52 41 44 44 | FAC.S$b|. JSRADD|
|00000470| 3b 46 41 43 3d 41 52 47 | 2b 46 41 43 00 71 24 6c |;FAC=ARG|+FAC.q$l|
|00000480| 02 20 4a 4d 50 42 45 47 | 49 4e 3b 53 43 48 4c 45 |. JMPBEG|IN;SCHLE|
|00000490| 49 46 45 4e 41 4e 46 41 | 4e 47 00 77 24 76 02 3b |IFENANFA|NG.w$v.;|
|000004a0| 00 9a 24 80 02 42 41 43 | 4b 20 4a 53 52 46 41 43 |..$..BAC|K JSRFAC|
|000004b0| 53 54 52 3b 41 55 53 47 | 41 42 45 20 56 4f 4e 20 |STR;AUSG|ABE VON |
|000004c0| 46 41 43 00 b5 24 8a 02 | 20 4a 53 52 53 54 52 4f |FAC..$..| JSRSTRO|
|000004d0| 55 54 3b 28 3d 45 52 47 | 45 42 4e 49 53 29 00 be |UT;(=ERG|EBNIS)..|
|000004e0| 24 94 02 20 52 54 53 00 | c4 24 9e 02 3b 00 e6 24 |$.. RTS.|.$..;..$|
|000004f0| a8 02 49 4e 46 41 43 20 | 4c 44 41 53 54 41 52 54 |..INFAC |LDASTART|
|00000500| 3b 4b 4f 4e 53 54 41 4e | 54 45 2c 20 41 55 46 00 |;KONSTAN|TE, AUF.|
|00000510| 04 25 b2 02 20 4c 44 59 | 53 54 41 52 54 2b 31 3b |.%.. LDY|START+1;|
|00000520| 44 49 45 20 53 54 41 52 | 54 28 2b 31 29 00 1f 25 |DIE STAR|T(+1)..%|
|00000530| bc 02 20 4a 53 52 4b 4f | 4e 46 41 43 3b 57 45 49 |.. JSRKO|NFAC;WEI|
|00000540| 53 54 2c 20 4e 41 43 48 | 00 35 25 c6 02 20 52 54 |ST, NACH|.5%.. RT|
|00000550| 53 3b 41 52 47 20 4b 4f | 50 49 45 52 45 4e 00 3b |S;ARG KO|PIEREN.;|
|00000560| 25 d0 02 3b 00 41 25 da | 02 3b 00 00 00          |%..;.A%.|.;...   |
+--------+-------------------------+-------------------------+--------+--------+