DEZIOLIB.HY

00000000: 01 04 29 04 B8 0B 3B 20  45 49 4E 2F 41 55 53 47  |..)...; EIN/AUSG|
00000010: 41 42 45 20 56 4F 4E 20  31 36 2D 42 49 54 2D 57  |ABE VON 16-BIT-W|
00000020: 45 52 54 45 4E 20 41 4C  53 00 4F 04 BD 0B 3B 20  |ERTEN ALS.O...; |
00000030: 44 45 5A 49 4D 41 4C 5A  41 48 4C 45 4E 20 28 4F  |DEZIMALZAHLEN (O|
00000040: 48 4E 45 20 56 4F 52 5A  45 49 43 48 45 4E 29 00  |HNE VORZEICHEN).|
00000050: 65 04 C2 0B 3B 20 55 4E  54 45 52 50 52 4F 47 52  |e...; UNTERPROGR|
00000060: 41 4D 4D 45 3A 00 AE 04  C7 0B 3B 20 50 52 49 4E  |AMME:.....; PRIN|
00000070: 54 44 45 5A 3A 20 41 2F  59 20 41 4C 53 20 44 45  |TDEZ: A/Y ALS DE|
00000080: 5A 49 4D 41 4C 5A 41 48  4C 20 4D 49 54 20 56 4F  |ZIMALZAHL MIT VO|
00000090: 52 4E 55 4C 4C 45 4E 55  4E 54 45 52 44 52 55 45  |RNULLENUNTERDRUE|
000000A0: 43 4B 55 4E 47 20 41 55  53 47 45 42 45 4E 00 E4  |CKUNG AUSGEBEN..|
000000B0: 04 CC 0B 3B 20 49 4E 50  55 54 44 45 5A 3A 20 44  |...; INPUTDEZ: D|
000000C0: 45 5A 49 4D 41 4C 5A 41  48 4C 20 45 49 4E 4C 45  |EZIMALZAHL EINLE|
000000D0: 53 45 4E 2C 20 45 52 47  45 42 4E 49 53 20 49 4E  |SEN, ERGEBNIS IN|
000000E0: 20 41 2F 59 00 12 05 D1  0B 3B 20 20 20 20 20 20  | A/Y.....;      |
000000F0: 20 20 20 20 20 43 41 52  52 59 20 47 45 53 45 54  |     CARRY GESET|
00000100: 5A 54 20 42 45 44 45 55  54 45 54 20 46 45 48 4C  |ZT BEDEUTET FEHL|
00000110: 45 52 00 20 05 D6 0B 3B  20 4D 41 4B 52 4F 53 3A  |ER. ...; MAKROS:|
00000120: 00 64 05 DB 0B 3B 20 4D  50 52 49 4E 54 44 45 5A  |.d...; MPRINTDEZ|
00000130: 28 41 44 29 20 31 36 2D  42 49 54 20 57 45 52 54  |(AD) 16-BIT WERT|
00000140: 20 41 4E 20 41 44 52 45  53 53 45 20 41 44 2F 41  | AN ADRESSE AD/A|
00000150: 44 2B 31 20 44 45 5A 49  4D 41 4C 20 41 55 53 47  |D+1 DEZIMAL AUSG|
00000160: 45 42 45 4E 00 B1 05 E0  0B 3B 20 4D 49 4E 50 55  |EBEN.....; MINPU|
00000170: 54 44 45 5A 28 41 44 29  20 31 36 2D 42 49 54 20  |TDEZ(AD) 16-BIT |
00000180: 57 45 52 54 20 45 49 4E  4C 45 53 45 4E 20 55 4E  |WERT EINLESEN UN|
00000190: 44 20 49 4D 20 53 50 45  49 43 48 45 52 20 42 45  |D IM SPEICHER BE|
000001A0: 49 20 41 44 2F 41 44 2B  31 20 41 42 4C 45 47 45  |I AD/AD+1 ABLEGE|
000001B0: 4E 00 C4 05 E5 0B 50 52  49 4E 54 44 45 5A 20 53  |N.....PRINTDEZ S|
000001C0: 54 41 50 54 00 FB 05 EA  0B 2E 47 4C 20 50 52 49  |TAPT......GL PRI|
000001D0: 4E 54 44 45 5A 3D 50 52  49 4E 54 44 45 5A 3B 20  |NTDEZ=PRINTDEZ; |
000001E0: 41 55 43 48 20 49 4E 20  4D 41 4B 52 4F 53 20 42  |AUCH IN MAKROS B|
000001F0: 45 4B 41 4E 4E 54 47 45  42 45 4E 00 08 06 EF 0B  |EKANNTGEBEN.....|
00000200: 20 53 54 59 50 54 2B 31  00 13 06 F4 0B 20 4C 44  | STYPT+1..... LD|
00000210: 41 23 30 00 1E 06 F9 0B  20 4C 44 59 23 34 00 38  |A#0..... LDY#4.8|
00000220: 06 FE 0B 43 4C 52 42 55  46 20 53 54 41 44 45 5A  |...CLRBUF STADEZ|
00000230: 42 55 46 46 45 52 2C 59  00 41 06 03 0C 20 44 45  |BUFFER,Y.A... DE|
00000240: 59 00 50 06 08 0C 20 42  50 4C 43 4C 52 42 55 46  |Y.P... BPLCLRBUF|
00000250: 00 5C 06 0D 0C 20 4C 44  58 23 31 36 00 6D 06 12  |.\... LDX#16.m..|
00000260: 0C 20 53 54 58 44 45 5A  43 4F 55 4E 54 00 80 06  |. STXDEZCOUNT...|
00000270: 17 0C 48 45 58 54 4F 44  45 43 20 4C 44 58 23 35  |..HEXTODEC LDX#5|
00000280: 00 8B 06 1C 0C 20 4C 44  59 23 30 00 94 06 21 0C  |..... LDY#0...!.|
00000290: 20 43 4C 43 00 AE 06 26  0C 44 4F 55 42 4C 45 20  | CLC...&.DOUBLE |
000002A0: 4C 44 41 44 45 5A 42 55  46 46 45 52 2C 59 00 B7  |LDADEZBUFFER,Y..|
000002B0: 06 2B 0C 20 52 4F 4C 00  C3 06 30 0C 20 43 4D 50  |.+. ROL...0. CMP|
000002C0: 23 31 30 00 D3 06 35 0C  20 42 43 43 4E 4F 43 41  |#10...5. BCCNOCA|
000002D0: 52 52 59 00 DF 06 3A 0C  20 53 42 43 23 31 30 00  |RRY...:. SBC#10.|
000002E0: FA 06 3F 0C 4E 4F 43 41  52 52 59 20 53 54 41 44  |..?.NOCARRY STAD|
000002F0: 45 5A 42 55 46 46 45 52  2C 59 00 03 07 44 0C 20  |EZBUFFER,Y...D. |
00000300: 49 4E 59 00 0C 07 49 0C  20 44 45 58 00 1B 07 4E  |INY...I. DEX...N|
00000310: 0C 20 42 4E 45 44 4F 55  42 4C 45 00 26 07 53 0C  |. BNEDOUBLE.&.S.|
00000320: 20 41 53 4C 50 54 00 33  07 58 0C 20 52 4F 4C 50  | ASLPT.3.X. ROLP|
00000330: 54 2B 31 00 40 07 5D 0C  20 42 43 43 4E 55 4C 4C  |T+1.@.]. BCCNULL|
00000340: 00 5A 07 62 0C 49 4E 43  44 45 43 20 4C 44 41 44  |.Z.b.INCDEC LDAD|
00000350: 45 5A 42 55 46 46 45 52  2C 58 00 63 07 67 0C 20  |EZBUFFER,X.c.g. |
00000360: 43 4C 43 00 6E 07 6C 0C  20 41 44 43 23 31 00 7A  |CLC.n.l. ADC#1.z|
00000370: 07 71 0C 20 43 4D 50 23  31 30 00 8B 07 76 0C 20  |.q. CMP#10...v. |
00000380: 42 43 43 49 4E 43 44 45  43 45 58 00 96 07 7B 0C  |BCCINCDECEX...{.|
00000390: 20 4C 44 41 23 30 00 AA  07 80 0C 20 53 54 41 44  | LDA#0..... STAD|
000003A0: 45 5A 42 55 46 46 45 52  2C 58 00 B3 07 85 0C 20  |EZBUFFER,X..... |
000003B0: 49 4E 58 00 C2 07 8A 0C  20 42 4E 45 49 4E 43 44  |INX..... BNEINCD|
000003C0: 45 43 00 DE 07 8F 0C 49  4E 43 44 45 43 45 58 20  |EC.....INCDECEX |
000003D0: 53 54 41 44 45 5A 42 55  46 46 45 52 2C 58 00 F3  |STADEZBUFFER,X..|
000003E0: 07 94 0C 4E 55 4C 4C 20  44 45 43 44 45 5A 43 4F  |...NULL DECDEZCO|
000003F0: 55 4E 54 00 04 08 99 0C  20 42 4E 45 48 45 58 54  |UNT..... BNEHEXT|
00000400: 4F 44 45 43 00 0F 08 9E  0C 20 4C 44 58 23 34 00  |ODEC..... LDX#4.|
00000410: 29 08 A3 0C 44 45 43 4F  55 54 20 4C 44 41 44 45  |)...DECOUT LDADE|
00000420: 5A 42 55 46 46 45 52 2C  58 00 36 08 A8 0C 20 42  |ZBUFFER,X.6... B|
00000430: 4E 45 4E 4F 54 30 00 47  08 AD 0C 20 42 49 54 44  |NENOT0.G... BITD|
00000440: 45 5A 43 4F 55 4E 54 00  76 08 B2 0C 20 42 50 4C  |EZCOUNT.v... BPL|
00000450: 53 4B 49 50 4C 5A 3B 20  46 55 45 48 52 45 4E 44  |SKIPLZ; FUEHREND|
00000460: 45 20 4E 55 4C 4C 45 4E  20 55 4E 54 45 52 44 52  |E NULLEN UNTERDR|
00000470: 55 45 43 4B 45 4E 00 86  08 B7 0C 20 42 4D 49 50  |UECKEN..... BMIP|
00000480: 52 44 49 47 49 54 00 BB  08 BC 0C 4E 4F 54 30 20  |RDIGIT.....NOT0 |
00000490: 44 45 43 44 45 5A 43 4F  55 4E 54 3B 20 46 4C 41  |DECDEZCOUNT; FLA|
000004A0: 47 3A 20 53 43 48 4F 4E  20 5A 49 46 46 45 52 4E  |G: SCHON ZIFFERN|
000004B0: 20 41 55 53 47 45 47 45  42 45 4E 00 CF 08 C1 0C  | AUSGEGEBEN.....|
000004C0: 50 52 44 49 47 49 54 20  4F 52 41 23 22 30 22 00  |PRDIGIT ORA#"0".|
000004D0: DE 08 C6 0C 20 4A 53 52  42 41 53 4F 55 54 00 ED  |.... JSRBASOUT..|
000004E0: 08 CB 0C 53 4B 49 50 4C  5A 20 44 45 58 00 FC 08  |...SKIPLZ DEX...|
000004F0: D0 0C 20 42 50 4C 44 45  43 4F 55 54 00 0D 09 D5  |.. BPLDECOUT....|
00000500: 0C 20 42 49 54 44 45 5A  43 4F 55 4E 54 00 20 09  |. BITDEZCOUNT. .|
00000510: DA 0C 20 42 4D 49 44 45  5A 4F 55 54 45 58 49 54  |.. BMIDEZOUTEXIT|
00000520: 00 4D 09 DF 0C 20 4C 44  41 23 22 30 22 3B 20 57  |.M... LDA#"0"; W|
00000530: 45 4E 4E 20 41 4C 4C 45  20 4E 55 4C 4C 45 4E 20  |ENN ALLE NULLEN |
00000540: 55 4E 54 45 52 44 52 55  45 43 4B 54 2C 00 76 09  |UNTERDRUECKT,.v.|
00000550: E4 0C 20 4A 53 52 42 41  53 4F 55 54 3B 20 57 45  |.. JSRBASOUT; WE|
00000560: 4E 49 47 53 54 45 4E 53  20 45 49 4E 45 20 41 55  |NIGSTENS EINE AU|
00000570: 53 47 45 42 45 4E 00 89  09 E9 0C 44 45 5A 4F 55  |SGEBEN.....DEZOU|
00000580: 54 45 58 49 54 20 52 54  53 00 9C 09 EE 0C 49 4E  |TEXIT RTS.....IN|
00000590: 50 55 54 44 45 5A 20 4C  44 59 23 30 00 B6 09 F3  |PUTDEZ LDY#0....|
000005A0: 0C 2E 47 4C 20 49 4E 50  55 54 44 45 5A 3D 49 4E  |..GL INPUTDEZ=IN|
000005B0: 50 55 54 44 45 5A 00 C1  09 F8 0C 20 53 54 59 50  |PUTDEZ..... STYP|
000005C0: 54 00 CE 09 FD 0C 20 53  54 59 50 54 2B 31 00 E0  |T..... STYPT+1..|
000005D0: 09 02 0D 20 53 54 59 44  49 47 49 54 46 4C 41 47  |... STYDIGITFLAG|
000005E0: 00 F5 09 07 0D 4E 55 4D  4C 4F 4F 50 20 4A 53 52  |.....NUMLOOP JSR|
000005F0: 42 41 53 49 4E 00 07 0A  0C 0D 20 42 49 54 44 49  |BASIN..... BITDI|
00000600: 47 49 54 46 4C 41 47 00  19 0A 11 0D 20 42 4D 49  |GITFLAG..... BMI|
00000610: 4E 4F 54 46 49 52 53 54  44 00 3E 0A 16 0D 20 43  |NOTFIRSTD.>... C|
00000620: 4D 50 23 22 20 22 3B 20  4C 45 45 52 5A 45 49 43  |MP#" "; LEERZEIC|
00000630: 48 45 4E 20 55 45 42 45  52 4C 45 53 45 4E 00 4E  |HEN UEBERLESEN.N|
00000640: 0A 1B 0D 20 42 45 51 4E  55 4D 4C 4F 4F 50 00 64  |... BEQNUMLOOP.d|
00000650: 0A 20 0D 4E 4F 54 46 49  52 53 54 44 20 43 4D 50  |. .NOTFIRSTD CMP|
00000660: 23 22 30 22 00 76 0A 25  0D 20 42 43 43 44 45 5A  |#"0".v.%. BCCDEZ|
00000670: 49 4E 45 58 49 54 00 83  0A 2A 0D 20 53 42 43 23  |INEXIT...*. SBC#|
00000680: 22 30 22 00 8F 0A 2F 0D  20 43 4D 50 23 31 30 00  |"0".../. CMP#10.|
00000690: A1 0A 34 0D 20 42 43 53  44 45 5A 49 4E 45 58 49  |..4. BCSDEZINEXI|
000006A0: 54 00 AA 0A 39 0D 20 54  41 58 00 B7 0A 3E 0D 20  |T...9. TAX...>. |
000006B0: 4C 44 41 23 24 46 46 00  C9 0A 43 0D 20 53 54 41  |LDA#$FF...C. STA|
000006C0: 44 49 47 49 54 46 4C 41  47 00 D4 0A 48 0D 20 41  |DIGITFLAG...H. A|
000006D0: 53 4C 50 54 00 E1 0A 4D  0D 20 52 4F 4C 50 54 2B  |SLPT...M. ROLPT+|
000006E0: 31 00 F0 0A 52 0D 20 42  43 53 4E 55 4D 45 52 52  |1...R. BCSNUMERR|
000006F0: 00 FD 0A 57 0D 20 4C 44  41 50 54 2B 31 00 0E 0B  |...W. LDAPT+1...|
00000700: 5C 0D 20 53 54 41 44 45  5A 43 4F 55 4E 54 00 19  |\. STADEZCOUNT..|
00000710: 0B 61 0D 20 4C 44 41 50  54 00 24 0B 66 0D 20 41  |.a. LDAPT.$.f. A|
00000720: 53 4C 50 54 00 31 0B 6B  0D 20 52 4F 4C 50 54 2B  |SLPT.1.k. ROLPT+|
00000730: 31 00 40 0B 70 0D 20 42  43 53 4E 55 4D 45 52 52  |1.@.p. BCSNUMERR|
00000740: 00 4B 0B 75 0D 20 41 53  4C 50 54 00 58 0B 7A 0D  |.K.u. ASLPT.X.z.|
00000750: 20 52 4F 4C 50 54 2B 31  00 67 0B 7F 0D 20 42 43  | ROLPT+1.g... BC|
00000760: 53 4E 55 4D 45 52 52 00  72 0B 84 0D 20 41 44 43  |SNUMERR.r... ADC|
00000770: 50 54 00 7D 0B 89 0D 20  53 54 41 50 54 00 8A 0B  |PT.}... STAPT...|
00000780: 8E 0D 20 4C 44 41 50 54  2B 31 00 9B 0B 93 0D 20  |.. LDAPT+1..... |
00000790: 41 44 43 44 45 5A 43 4F  55 4E 54 00 A8 0B 98 0D  |ADCDEZCOUNT.....|
000007A0: 20 53 54 41 50 54 2B 31  00 B7 0B 9D 0D 20 42 43  | STAPT+1..... BC|
000007B0: 53 4E 55 4D 45 52 52 00  C0 0B A2 0D 20 54 58 41  |SNUMERR..... TXA|
000007C0: 00 CB 0B A7 0D 20 41 44  43 50 54 00 D6 0B AC 0D  |..... ADCPT.....|
000007D0: 20 53 54 41 50 54 00 E3  0B B1 0D 20 42 43 43 4E  | STAPT..... BCCN|
000007E0: 55 4D 31 00 F0 0B B6 0D  20 49 4E 43 50 54 2B 31  |UM1..... INCPT+1|
000007F0: 00 FF 0B BB 0D 20 42 45  51 4E 55 4D 45 52 52 00  |..... BEQNUMERR.|
00000800: 0C 0C C0 0D 4E 55 4D 31  20 49 4E 59 00 17 0C C5  |....NUM1 INY....|
00000810: 0D 20 43 50 59 23 36 00  27 0C CA 0D 20 42 43 43  |. CPY#6.'... BCC|
00000820: 4E 55 4D 4C 4F 4F 50 00  36 0C CF 0D 4E 55 4D 45  |NUMLOOP.6...NUME|
00000830: 52 52 20 53 45 43 00 3F  0C D4 0D 20 52 54 53 00  |RR SEC.?... RTS.|
00000840: 5A 0C D9 0D 44 45 5A 49  4E 45 58 49 54 20 42 49  |Z...DEZINEXIT BI|
00000850: 54 44 49 47 49 54 46 4C  41 47 00 69 0C DE 0D 20  |TDIGITFLAG.i... |
00000860: 42 50 4C 4E 55 4D 45 52  52 00 72 0C E3 0D 20 43  |BPLNUMERR.r... C|
00000870: 4C 43 00 7D 0C E8 0D 20  4C 44 41 50 54 00 8A 0C  |LC.}... LDAPT...|
00000880: ED 0D 20 4C 44 59 50 54  2B 31 00 93 0C F2 0D 20  |.. LDYPT+1..... |
00000890: 52 54 53 00 A5 0C F7 0D  44 45 5A 43 4F 55 4E 54  |RTS.....DEZCOUNT|
000008A0: 20 2E 42 59 30 00 C0 0C  FC 0D 44 45 5A 42 55 46  | .BY0.....DEZBUF|
000008B0: 46 45 52 20 2E 42 59 30  2C 30 2C 30 2C 30 2C 30  |FER .BY0,0,0,0,0|
000008C0: 00 D3 0C 01 0E 44 49 47  49 54 46 4C 41 47 20 2E  |.....DIGITFLAG .|
000008D0: 42 59 30 00 E9 0C 06 0E  2E 4D 41 20 4D 50 52 49  |BY0......MA MPRI|
000008E0: 4E 54 44 45 5A 28 41 44  29 00 F4 0C 0B 0E 20 4C  |NTDEZ(AD)..... L|
000008F0: 44 41 41 44 00 01 0D 10  0E 20 4C 44 59 41 44 2B  |DAAD..... LDYAD+|
00000900: 31 00 12 0D 15 0E 20 4A  53 52 50 52 49 4E 54 44  |1..... JSRPRINTD|
00000910: 45 5A 00 1A 0D 1A 0E 2E  52 54 00 30 0D 1F 0E 2E  |EZ......RT.0....|
00000920: 4D 41 20 4D 49 4E 50 55  54 44 45 5A 28 41 44 29  |MA MINPUTDEZ(AD)|
00000930: 00 46 0D 24 0E 41 47 41  49 4E 20 4A 53 52 49 4E  |.F.$.AGAIN JSRIN|
00000940: 50 55 54 44 45 5A 00 51  0D 29 0E 20 42 43 43 4F  |PUTDEZ.Q.). BCCO|
00000950: 4B 00 5E 0D 2E 0E 20 4C  44 41 23 22 3F 22 00 6D  |K.^... LDA#"?".m|
00000960: 0D 33 0E 20 4A 53 52 42  41 53 4F 55 54 00 7B 0D  |.3. JSRBASOUT.{.|
00000970: 38 0E 20 4A 4D 50 41 47  41 49 4E 00 88 0D 3D 0E  |8. JMPAGAIN...=.|
00000980: 4F 4B 20 53 54 41 41 44  00 95 0D 42 0E 20 53 54  |OK STAAD...B. ST|
00000990: 59 41 44 2B 31 00 9D 0D  47 0E 2E 52 54 00 00 00  |YAD+1...G..RT...|

..)...; EIN/AUSGABE VON 16-BIT-WERTEN AL
S.O...; DEZIMALZAHLEN (OHNE VORZEICHEN).
E.B.; UNTERPROGRAMME:...G.; PRINTDEZ: A/
Y ALS DEZIMALZAHL MIT VORNULLENUNTERDRUE
CKUNG AUSGEBEN...L.; INPUTDEZ: DEZIMALZA
HL EINLESEN, ERGEBNIS IN A/Y...Q.;      
     CARRY GESETZT BEDEUTET FEHLER. .V.;
 MAKROS:.D...; MPRINTDEZ(AD) 16-BIT WERT
 AN ADRESSE AD/AD+1 DEZIMAL AUSGEBEN....
.; MINPUTDEZ(AD) 16-BIT WERT EINLESEN UN
D IM SPEICHER BEI AD/AD+1 ABLEGEN.D...PR
INTDEZ STAPT......GL PRINTDEZ=PRINTDEZ; 
AUCH IN MAKROS BEKANNTGEBEN..... STYPT+1
..... LDA#0..... LDY#4.8...CLRBUF STADEZ
BUFFER,Y.A... DEY.P... BPLCLRBUF.\... LD
X#16.M... STXDEZCOUNT.....HEXTODEC LDX#5
..... LDY#0...!. CLC...&.DOUBLE LDADEZBU
FFER,Y...+. ROL.C.0. CMP#10.S.5. BCCNOCA
RRY...:. SBC#10...?.NOCARRY STADEZBUFFER
,Y...D. INY...I. DEX...N. BNEDOUBLE.&.S.
 ASLPT.3.X. ROLPT+1.@.]. BCCNULL.Z.B.INC
DEC LDADEZBUFFER,X.C.G. CLC.N.L. ADC#1.Z
.Q. CMP#10...V. BCCINCDECEX...{. LDA#0..
... STADEZBUFFER,X..... INX.B... BNEINCD
EC.....INCDECEX STADEZBUFFER,X.....NULL 
DECDEZCOUNT..... BNEHEXTODEC..... LDX#4.
)...DECOUT LDADEZBUFFER,X.6... BNENOT0.G
... BITDEZCOUNT.V... BPLSKIPLZ; FUEHREND
E NULLEN UNTERDRUECKEN..... BMIPRDIGIT..
...NOT0 DECDEZCOUNT; FLAG: SCHON ZIFFERN
 AUSGEGEBEN.O.A.PRDIGIT ORA#"0"...F. JSR
BASOUT...K.SKIPLZ DEX...P. BPLDECOUT...U
. BITDEZCOUNT. .Z. BMIDEZOUTEXIT.M... LD
A#"0"; WENN ALLE NULLEN UNTERDRUECKT,.V.
.. JSRBASOUT; WENIGSTENS EINE AUSGEBEN..
...DEZOUTEXIT RTS.....INPUTDEZ LDY#0....
..GL INPUTDEZ=INPUTDEZ.A... STYPT.N... S
TYPT+1..... STYDIGITFLAG.....NUMLOOP JSR
BASIN..... BITDIGITFLAG..... BMINOTFIRST
D.>... CMP#" "; LEERZEICHEN UEBERLESEN.N
... BEQNUMLOOP.D. .NOTFIRSTD CMP#"0".V.%
. BCCDEZINEXIT...*. SBC#"0".../. CMP#10.
..4. BCSDEZINEXIT...9. TAX...>. LDA#$FF.
I.C. STADIGITFLAG.T.H. ASLPT...M. ROLPT+
1...R. BCSNUMERR...W. LDAPT+1...\. STADE
ZCOUNT...A. LDAPT.$.F. ASLPT.1.K. ROLPT+
1.@.P. BCSNUMERR.K.U. ASLPT.X.Z. ROLPT+1
.G.. BCSNUMERR.R... ADCPT.}... STAPT...
.. LDAPT+1..... ADCDEZCOUNT..... STAPT+1
..... BCSNUMERR..... TXA.K... ADCPT.V...
 STAPT..... BCCNUM1..... INCPT+1..... BE
QNUMERR.....NUM1 INY...E. CPY#6.'.J. BCC
NUMLOOP.6.O.NUMERR SEC.?.T. RTS.Z.Y.DEZI
NEXIT BITDIGITFLAG.I... BPLNUMERR.R... C
LC.}... LDAPT..... LDYPT+1..... RTS.....
DEZCOUNT .BY0.....DEZBUFFER .BY0,0,0,0,0
.S...DIGITFLAG .BY0......MA MPRINTDEZ(AD
)..... LDAAD..... LDYAD+1..... JSRPRINTD
EZ......RT.0....MA MINPUTDEZ(AD).F.$.AGA
IN JSRINPUTDEZ.Q.). BCCOK.^... LDA#"?".M
.3. JSRBASOUT.{.8. JMPAGAIN...=.OK STAAD
...B. STYAD+1...G..RT...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL