UPN2.HY
FILE INFORMATION
FILENAME(S): UPN2.HY
FILE TYPE(S): PRG
FILE SIZE: 10.1K
FIRST SEEN: 2025-11-30 01:13:14
APPEARS ON: 1 disk(s)
FILE HASH
fe4f52e77471617548d702e08a0e1add22943be0b03153e36033c4de9842c374
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15721 SEITE A | UPN2.HY | PRG | C64er | 30 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 07 04 98 3A 3B 00 35 04 9D 3A 3B 20 55 50 |.....:;.5..:; UP|
00000010: 4E 2D 52 45 43 48 4E 45 52 2C 20 41 55 46 20 46 |N-RECHNER, AUF F|
00000020: 50 42 43 44 2D 52 4F 55 54 49 4E 45 4E 20 42 41 |PBCD-ROUTINEN BA|
00000030: 53 49 45 52 54 00 69 04 A2 3A 3B 20 41 52 42 45 |SIERT.i..:; ARBE|
00000040: 49 54 45 54 20 4D 49 54 20 53 54 41 43 4B 20 56 |ITET MIT STACK V|
00000050: 4F 4D 20 50 52 4F 47 52 41 4D 4D 45 4E 44 45 20 |OM PROGRAMMENDE |
00000060: 42 49 53 20 24 43 46 46 46 00 78 04 A7 3A 3B 20 |BIS $CFFF.x..:; |
00000070: 42 45 46 45 48 4C 45 3A 00 B0 04 AC 3A 3B 20 4C |BEFEHLE:....:; L|
00000080: 49 4E 4B 53 20 50 46 45 49 4C 20 20 4F 42 45 52 |INKS PFEIL OBER|
00000090: 53 54 45 4E 20 42 45 49 44 45 4E 20 45 4C 45 4D |STEN BEIDEN ELEM|
000000A0: 45 4E 54 45 20 56 45 52 54 41 55 53 43 48 45 4E |ENTE VERTAUSCHEN|
000000B0: 00 DD 04 B1 3A 3B 20 3F 20 20 20 20 20 20 20 20 |....:; ? |
000000C0: 20 20 20 20 4F 42 45 52 53 54 45 53 20 45 4C 45 | OBERSTES ELE|
000000D0: 4D 45 4E 54 20 41 55 53 47 45 42 45 4E 00 0B 05 |MENT AUSGEBEN...|
000000E0: B6 3A 3B 20 44 20 20 20 20 20 20 20 20 20 20 20 |.:; D |
000000F0: 20 4F 42 45 52 53 54 45 53 20 45 4C 45 4D 45 4E | OBERSTES ELEMEN|
00000100: 54 20 45 4E 54 46 45 52 4E 45 4E 00 3A 05 BB 3A |T ENTFERNEN.:..:|
00000110: 3B 20 5E 20 20 20 20 20 20 20 20 20 20 20 20 4F |; ^ O|
00000120: 42 45 52 53 54 45 53 20 45 4C 45 4D 45 4E 54 20 |BERSTES ELEMENT |
00000130: 56 45 52 44 4F 50 50 45 4C 4E 00 55 05 C0 3A 3B |VERDOPPELN.U..:;|
00000140: 20 58 20 20 20 20 20 20 20 20 20 20 20 20 42 45 | X BE|
00000150: 45 4E 44 45 4E 00 70 05 C5 3A 3B 20 2B 2C 2D 2C |ENDEN.p..:; +,-,|
00000160: 2A 2C 2F 20 20 20 20 20 20 52 45 43 48 4E 45 4E |*,/ RECHNEN|
00000170: 00 92 05 CA 3A 3B 20 41 4C 4C 45 53 20 41 4E 44 |....:; ALLES AND|
00000180: 45 52 45 3A 20 5A 41 48 4C 20 45 49 4E 4C 45 53 |ERE: ZAHL EINLES|
00000190: 45 4E 00 DF 05 CF 3A 3B 20 5A 41 48 4C 45 4E 20 |EN....:; ZAHLEN |
000001A0: 4D 49 54 20 56 4F 52 5A 45 49 43 48 45 4E 20 4D |MIT VORZEICHEN M|
000001B0: 55 45 53 53 45 4E 20 4D 49 54 20 45 49 4E 45 52 |UESSEN MIT EINER|
000001C0: 20 4C 45 45 52 53 54 45 4C 4C 45 20 45 49 4E 47 | LEERSTELLE EING|
000001D0: 45 4C 45 49 54 45 54 20 57 45 52 44 45 4E 2C 00 |ELEITET WERDEN,.|
000001E0: 27 06 D4 3A 3B 20 44 41 4D 49 54 20 44 41 53 20 |'..:; DAMIT DAS |
000001F0: 56 4F 52 5A 45 49 43 48 45 4E 20 4E 49 43 48 54 |VORZEICHEN NICHT|
00000200: 20 41 4C 53 20 53 55 42 54 52 41 4B 54 49 4F 4E | ALS SUBTRAKTION|
00000210: 53 42 45 46 45 48 4C 20 4D 49 53 53 44 45 55 54 |SBEFEHL MISSDEUT|
00000220: 45 54 20 57 49 52 44 00 2D 06 D9 3A 3B 00 59 06 |ET WIRD.-..:;.Y.|
00000230: DE 3A 4D 41 49 4E 20 4C 44 41 23 31 34 3B 20 4D |.:MAIN LDA#14; M|
00000240: 41 4E 54 49 53 53 45 4E 4C 41 45 4E 47 45 20 32 |ANTISSENLAENGE 2|
00000250: 38 20 53 54 45 4C 4C 45 4E 00 6E 06 E3 3A 20 4A |8 STELLEN.n..: J|
00000260: 53 52 53 45 54 50 52 45 43 49 53 49 4F 4E 00 7E |SRSETPRECISION.~|
00000270: 06 E8 3A 20 4A 53 52 49 4E 49 54 53 54 4B 00 95 |..: JSRINITSTK..|
00000280: 06 ED 3A 4D 41 49 4E 4C 4F 4F 50 20 4A 53 52 50 |..:MAINLOOP JSRP|
00000290: 52 4F 4D 50 54 00 A3 06 F2 3A 20 4A 53 52 42 41 |ROMPT....: JSRBA|
000002A0: 53 49 4E 00 AF 06 F7 3A 20 43 4D 50 23 43 52 00 |SIN....: CMP#CR.|
000002B0: C0 06 FC 3A 20 42 45 51 4D 41 49 4E 4C 4F 4F 50 |...: BEQMAINLOOP|
000002C0: 00 CD 06 01 3B 20 43 4D 50 23 22 3F 22 00 DD 06 |....; CMP#"?"...|
000002D0: 06 3B 20 42 4E 45 4E 4F 50 52 49 4E 54 00 EE 06 |.; BNENOPRINT...|
000002E0: 0B 3B 20 4A 4D 50 50 52 49 4E 54 43 4F 4D 00 02 |.; JMPPRINTCOM..|
000002F0: 07 10 3B 4E 4F 50 52 49 4E 54 20 43 4D 50 23 22 |..;NOPRINT CMP#"|
00000300: 58 22 00 12 07 15 3B 20 42 4E 45 4E 4F 42 52 45 |X"....; BNENOBRE|
00000310: 41 4B 00 1B 07 1A 3B 20 52 54 53 00 2F 07 1F 3B |AK....; RTS./..;|
00000320: 4E 4F 42 52 45 41 4B 20 43 4D 50 23 22 5E 22 00 |NOBREAK CMP#"^".|
00000330: 3F 07 24 3B 20 42 4E 45 4E 4F 45 4E 54 45 52 00 |?.$; BNENOENTER.|
00000340: 4E 07 29 3B 20 4C 44 41 4E 53 54 41 43 4B 00 5E |N.); LDANSTACK.^|
00000350: 07 2E 3B 20 42 4E 45 45 4E 54 45 52 4F 4B 00 6F |..; BNEENTEROK.o|
00000360: 07 33 3B 20 4A 4D 50 45 4D 50 54 59 53 54 4B 00 |.3; JMPEMPTYSTK.|
00000370: 85 07 38 3B 45 4E 54 45 52 4F 4B 20 4A 53 52 50 |..8;ENTEROK JSRP|
00000380: 4F 50 53 54 4B 00 95 07 3D 3B 20 4A 53 52 50 55 |OPSTK...=; JSRPU|
00000390: 53 48 53 54 4B 00 A5 07 42 3B 20 4A 53 52 50 55 |SHSTK...B; JSRPU|
000003A0: 53 48 53 54 4B 00 B6 07 47 3B 20 4A 4D 50 4D 41 |SHSTK...G; JMPMA|
000003B0: 49 4E 4C 4F 4F 50 00 CA 07 4C 3B 4E 4F 45 4E 54 |INLOOP...L;NOENT|
000003C0: 45 52 20 43 4D 50 23 22 44 22 00 D9 07 51 3B 20 |ER CMP#"D"...Q; |
000003D0: 42 4E 45 4E 4F 44 52 4F 50 00 E8 07 56 3B 20 4C |BNENODROP...V; L|
000003E0: 44 41 4E 53 54 41 43 4B 00 F9 07 5B 3B 20 42 45 |DANSTACK...[; BE|
000003F0: 51 45 4D 50 54 59 53 54 4B 00 08 08 60 3B 20 4A |QEMPTYSTK...`; J|
00000400: 53 52 50 4F 50 53 54 4B 00 19 08 65 3B 20 4A 4D |SRPOPSTK...e; JM|
00000410: 50 4D 41 49 4E 4C 4F 4F 50 00 3E 08 6A 3B 4E 4F |PMAINLOOP.>.j;NO|
00000420: 44 52 4F 50 20 43 4D 50 23 24 35 46 3B 20 50 46 |DROP CMP#$5F; PF|
00000430: 45 49 4C 20 4E 41 43 48 20 4C 49 4E 4B 53 00 4D |EIL NACH LINKS.M|
00000440: 08 6F 3B 20 42 4E 45 4E 4F 53 57 41 50 00 5C 08 |.o; BNENOSWAP.\.|
00000450: 74 3B 20 4C 44 58 4E 53 54 41 43 4B 00 67 08 79 |t; LDXNSTACK.g.y|
00000460: 3B 20 43 50 58 23 32 00 78 08 7E 3B 20 42 43 43 |; CPX#2.x.~; BCC|
00000470: 45 4D 50 54 59 53 54 4B 00 87 08 83 3B 20 4A 53 |EMPTYSTK....; JS|
00000480: 52 50 4F 50 53 54 4B 00 9A 08 88 3B 20 4A 53 52 |RPOPSTK....; JSR|
00000490: 53 57 41 50 4E 55 4D 42 45 52 00 A9 08 8D 3B 20 |SWAPNUMBER....; |
000004A0: 4A 53 52 50 4F 50 53 54 4B 00 BC 08 92 3B 20 4A |JSRPOPSTK....; J|
000004B0: 53 52 53 57 41 50 4E 55 4D 42 45 52 00 CC 08 97 |SRSWAPNUMBER....|
000004C0: 3B 20 4A 53 52 50 55 53 48 53 54 4B 00 DF 08 9C |; JSRPUSHSTK....|
000004D0: 3B 20 4A 53 52 53 57 41 50 4E 55 4D 42 45 52 00 |; JSRSWAPNUMBER.|
000004E0: F1 08 A1 3B 20 4A 4D 50 50 52 49 4E 54 50 55 53 |...; JMPPRINTPUS|
000004F0: 48 00 04 09 A6 3B 4E 4F 53 57 41 50 20 43 4D 50 |H....;NOSWAP CMP|
00000500: 23 22 2B 22 00 14 09 AB 3B 20 42 45 51 46 4F 55 |#"+"....; BEQFOU|
00000510: 4E 44 4F 50 00 21 09 B0 3B 20 43 4D 50 23 22 2D |NDOP.!..; CMP#"-|
00000520: 22 00 31 09 B5 3B 20 42 45 51 46 4F 55 4E 44 4F |".1..; BEQFOUNDO|
00000530: 50 00 3E 09 BA 3B 20 43 4D 50 23 22 2A 22 00 4E |P.>..; CMP#"*".N|
00000540: 09 BF 3B 20 42 45 51 46 4F 55 4E 44 4F 50 00 5B |..; BEQFOUNDOP.[|
00000550: 09 C4 3B 20 43 4D 50 23 22 2F 22 00 6B 09 C9 3B |..; CMP#"/".k..;|
00000560: 20 42 45 51 46 4F 55 4E 44 4F 50 00 74 09 CE 3B | BEQFOUNDOP.t..;|
00000570: 20 54 41 58 00 8A 09 D3 3B 20 2E 2E 2E 4C 44 41 | TAX....; ...LDA|
00000580: 59 49 28 4E 55 4D 42 45 52 29 00 9A 09 D8 3B 20 |YI(NUMBER)....; |
00000590: 4A 53 52 49 4E 50 55 54 46 50 00 AA 09 DD 3B 20 |JSRINPUTFP....; |
000005A0: 4A 53 52 50 55 53 48 53 54 4B 00 BB 09 E2 3B 20 |JSRPUSHSTK....; |
000005B0: 42 43 43 4D 41 49 4E 4C 4F 4F 50 00 D0 09 E7 3B |BCCMAINLOOP....;|
000005C0: 20 2E 2E 2E 4C 44 41 59 49 28 53 4F 56 45 52 29 | ...LDAYI(SOVER)|
000005D0: 00 E4 09 EC 3B 45 52 52 4F 52 20 4A 53 52 50 52 |....;ERROR JSRPR|
000005E0: 49 4E 54 53 00 F1 09 F1 3B 20 4A 4D 50 4D 41 49 |INTS....; JMPMAI|
000005F0: 4E 00 17 0A F6 3B 53 4F 56 45 52 20 2E 54 58 22 |N....;SOVER .TX"|
00000600: 2A 2A 2A 20 53 54 41 43 4B 20 4F 56 45 52 46 4C |*** STACK OVERFL|
00000610: 4F 57 20 2A 2A 2A 22 00 21 0A FB 3B 2E 42 59 20 |OW ***".!..;.BY |
00000620: 30 00 38 0A 00 3C 50 52 49 4E 54 43 4F 4D 20 4C |0.8..<PRINTCOM L|
00000630: 44 41 4E 53 54 41 43 4B 00 4B 0A 05 3C 20 42 4E |DANSTACK.K..< BN|
00000640: 45 50 52 49 4E 54 53 54 41 43 4B 00 69 0A 0A 3C |EPRINTSTACK.i..<|
00000650: 45 4D 50 54 59 53 54 4B 20 2E 2E 2E 4C 44 41 59 |EMPTYSTK ...LDAY|
00000660: 49 28 53 45 4D 50 54 59 29 00 77 0A 0F 3C 20 4A |I(SEMPTY).w..< J|
00000670: 4D 50 45 52 52 4F 52 00 9B 0A 14 3C 53 45 4D 50 |MPERROR....<SEMP|
00000680: 54 59 20 2E 54 58 22 2A 2A 2A 20 53 54 41 43 4B |TY .TX"*** STACK|
00000690: 20 45 4D 50 54 59 20 2A 2A 2A 22 00 A5 0A 19 3C | EMPTY ***"....<|
000006A0: 2E 42 59 20 30 00 BE 0A 1E 3C 50 52 49 4E 54 53 |.BY 0....<PRINTS|
000006B0: 54 41 43 4B 20 4A 53 52 50 4F 50 53 54 4B 00 F6 |TACK JSRPOPSTK..|
000006C0: 0A 23 3C 50 52 49 4E 54 50 55 53 48 20 4A 53 52 |.#<PRINTPUSH JSR|
000006D0: 50 55 53 48 53 54 4B 3B 20 5A 41 48 4C 20 57 49 |PUSHSTK; ZAHL WI|
000006E0: 45 44 45 52 20 5A 55 52 55 45 43 4B 20 41 55 46 |EDER ZURUECK AUF|
000006F0: 20 53 54 41 43 4B 00 0C 0B 28 3C 20 2E 2E 2E 4C | STACK...(< ...L|
00000700: 44 41 59 49 28 4E 55 4D 42 45 52 29 00 1C 0B 2D |DAYI(NUMBER)...-|
00000710: 3C 20 4A 53 52 50 52 49 4E 54 46 50 00 2D 0B 32 |< JSRPRINTFP.-.2|
00000720: 3C 20 4A 4D 50 4D 41 49 4E 4C 4F 4F 50 00 43 0B |< JMPMAINLOOP.C.|
00000730: 37 3C 46 4F 55 4E 44 4F 50 20 4C 44 58 4E 53 54 |7<FOUNDOP LDXNST|
00000740: 41 43 4B 00 4E 0B 3C 3C 20 43 50 58 23 32 00 5F |ACK.N.<< CPX#2._|
00000750: 0B 41 3C 20 42 43 43 45 4D 50 54 59 53 54 4B 00 |.A< BCCEMPTYSTK.|
00000760: 68 0B 46 3C 20 50 48 41 00 77 0B 4B 3C 20 4A 53 |h.F< PHA.w.K< JS|
00000770: 52 50 4F 50 53 54 4B 00 8D 0B 50 3C 20 2E 2E 2E |RPOPSTK...P< ...|
00000780: 4C 44 41 59 49 28 4E 55 4D 42 45 52 29 00 9E 0B |LDAYI(NUMBER)...|
00000790: 55 3C 20 4A 53 52 4C 4F 41 44 41 52 47 32 00 AD |U< JSRLOADARG2..|
000007A0: 0B 5A 3C 20 4A 53 52 50 4F 50 53 54 4B 00 C3 0B |.Z< JSRPOPSTK...|
000007B0: 5F 3C 20 2E 2E 2E 4C 44 41 59 49 28 4E 55 4D 42 |_< ...LDAYI(NUMB|
000007C0: 45 52 29 00 D4 0B 64 3C 20 4A 53 52 4C 4F 41 44 |ER)...d< JSRLOAD|
000007D0: 41 52 47 31 00 DD 0B 69 3C 20 50 4C 41 00 EA 0B |ARG1...i< PLA...|
000007E0: 6E 3C 20 43 4D 50 23 22 2B 22 00 F9 0B 73 3C 20 |n< CMP#"+"...s< |
000007F0: 42 4E 45 4E 4F 50 4C 55 53 00 07 0C 78 3C 20 4A |BNENOPLUS...x< J|
00000800: 53 52 46 50 41 44 44 00 17 0C 7D 3C 20 4A 4D 50 |SRFPADD...}< JMP|
00000810: 50 55 53 48 52 45 53 00 2A 0C 82 3C 4E 4F 50 4C |PUSHRES.*..<NOPL|
00000820: 55 53 20 43 4D 50 23 22 2D 22 00 3A 0C 87 3C 20 |US CMP#"-".:..< |
00000830: 42 4E 45 4E 4F 4D 49 4E 55 53 00 48 0C 8C 3C 20 |BNENOMINUS.H..< |
00000840: 4A 53 52 46 50 53 55 42 00 58 0C 91 3C 20 4A 4D |JSRFPSUB.X..< JM|
00000850: 50 50 55 53 48 52 45 53 00 6C 0C 96 3C 4E 4F 4D |PPUSHRES.l..<NOM|
00000860: 49 4E 55 53 20 43 4D 50 23 22 2A 22 00 7C 0C 9B |INUS CMP#"*".|..|
00000870: 3C 20 42 4E 45 4E 4F 54 49 4D 45 53 00 8B 0C A0 |< BNENOTIMES....|
00000880: 3C 20 4A 53 52 46 50 4D 55 4C 54 00 9B 0C A5 3C |< JSRFPMULT....<|
00000890: 20 4A 4D 50 50 55 53 48 52 45 53 00 B0 0C AA 3C | JMPPUSHRES....<|
000008A0: 4E 4F 54 49 4D 45 53 20 4A 53 52 46 50 44 49 56 |NOTIMES JSRFPDIV|
000008B0: 00 C5 0C AF 3C 50 55 53 48 52 45 53 20 42 56 43 |....<PUSHRES BVC|
000008C0: 52 45 53 4F 4B 00 DA 0C B4 3C 20 2E 2E 2E 4C 44 |RESOK....< ...LD|
000008D0: 41 59 49 28 41 4F 56 45 52 29 00 E8 0C B9 3C 20 |AYI(AOVER)....< |
000008E0: 4A 4D 50 45 52 52 4F 52 00 13 0D BE 3C 41 4F 56 |JMPERROR....<AOV|
000008F0: 45 52 20 2E 54 58 22 2A 2A 2A 20 41 52 49 54 48 |ER .TX"*** ARITH|
00000900: 4D 45 54 49 43 20 4F 56 45 52 46 4C 4F 57 20 2A |METIC OVERFLOW *|
00000910: 2A 2A 22 00 1D 0D C3 3C 2E 42 59 20 30 00 38 0D |**"....<.BY 0.8.|
00000920: C8 3C 52 45 53 4F 4B 20 2E 2E 2E 4C 44 41 59 49 |.<RESOK ...LDAYI|
00000930: 28 4E 55 4D 42 45 52 29 00 49 0D CD 3C 20 4A 53 |(NUMBER).I..< JS|
00000940: 52 53 54 4F 52 45 41 4B 4B 00 5B 0D D2 3C 20 4A |RSTOREAKK.[..< J|
00000950: 4D 50 50 52 49 4E 54 50 55 53 48 00 6E 0D D7 3C |MPPRINTPUSH.n..<|
00000960: 50 52 4F 4D 50 54 20 4A 53 52 43 52 4C 46 00 7D |PROMPT JSRCRLF.}|
00000970: 0D DC 3C 20 4C 44 59 4E 53 54 41 43 4B 00 86 0D |..< LDYNSTACK...|
00000980: E1 3C 20 49 4E 59 00 8F 0D E6 3C 20 53 45 44 00 |.< INY....< SED.|
00000990: 9C 0D EB 3C 20 4C 44 41 23 24 39 39 00 AA 0D F0 |...< LDA#$99....|
000009A0: 3C 54 4F 44 45 43 20 43 4C 43 00 B7 0D F5 3C 20 |<TODEC CLC....< |
000009B0: 41 44 43 23 24 30 31 00 C0 0D FA 3C 20 44 45 59 |ADC#$01....< DEY|
000009C0: 00 CE 0D FF 3C 20 42 4E 45 54 4F 44 45 43 00 D7 |....< BNETODEC..|
000009D0: 0D 04 3D 20 43 4C 44 00 E0 0D 09 3D 20 50 48 41 |..= CLD....= PHA|
000009E0: 00 E9 0D 0E 3D 20 4C 53 52 00 F2 0D 13 3D 20 4C |....= LSR....= L|
000009F0: 53 52 00 FB 0D 18 3D 20 4C 53 52 00 04 0E 1D 3D |SR....= LSR....=|
00000A00: 20 4C 53 52 00 14 0E 22 3D 20 4A 53 52 50 52 49 | LSR..."= JSRPRI|
00000A10: 4E 54 44 44 00 1D 0E 27 3D 20 50 4C 41 00 2D 0E |NTDD...'= PLA.-.|
00000A20: 2C 3D 20 4A 53 52 50 52 49 4E 54 44 44 00 3A 0E |,= JSRPRINTDD.:.|
00000A30: 31 3D 20 4C 44 41 23 22 3E 22 00 49 0E 36 3D 20 |1= LDA#">".I.6= |
00000A40: 4A 53 52 42 41 53 4F 55 54 00 52 0E 3B 3D 20 52 |JSRBASOUT.R.;= R|
00000A50: 54 53 00 66 0E 40 3D 50 52 49 4E 54 44 44 20 41 |TS.f.@=PRINTDD A|
00000A60: 4E 44 23 24 30 46 00 73 0E 45 3D 20 4F 52 41 23 |ND#$0F.s.E= ORA#|
00000A70: 22 30 22 00 82 0E 4A 3D 20 4A 4D 50 42 41 53 4F |"0"...J= JMPBASO|
00000A80: 55 54 00 94 0E 4F 3D 49 4E 49 54 53 54 4B 20 4C |UT...O=INITSTK L|
00000A90: 44 41 23 30 00 A3 0E 54 3D 20 53 54 41 4E 53 54 |DA#0...T= STANST|
00000AA0: 41 43 4B 00 BC 0E 59 3D 20 2E 2E 2E 4D 4F 56 45 |ACK...Y= ...MOVE|
00000AB0: 57 49 28 53 54 41 43 4B 2C 53 50 29 00 C5 0E 5E |WI(STACK,SP)...^|
00000AC0: 3D 20 52 54 53 00 DA 0E 63 3D 50 4F 50 53 54 4B |= RTS...c=POPSTK|
00000AD0: 20 4C 44 41 4E 53 54 41 43 4B 00 E7 0E 68 3D 20 | LDANSTACK...h= |
00000AE0: 42 4E 45 50 4F 50 31 00 F0 0E 6D 3D 20 53 45 43 |BNEPOP1...m= SEC|
00000AF0: 00 F9 0E 72 3D 20 52 54 53 00 0C 0F 77 3D 50 4F |...r= RTS...w=PO|
00000B00: 50 31 20 44 45 43 4E 53 54 41 43 4B 00 1A 0F 7C |P1 DECNSTACK...||
00000B10: 3D 20 4C 44 58 46 50 4C 45 4E 00 2D 0F 81 3D 50 |= LDXFPLEN.-..=P|
00000B20: 4F 50 32 20 4A 53 52 44 4F 50 55 4C 4C 00 4A 0F |OP2 JSRDOPULL.J.|
00000B30: 86 3D 20 53 54 41 4E 55 4D 42 45 52 2B 31 2C 58 |.= STANUMBER+1,X|
00000B40: 3B 20 4D 41 4E 54 49 53 53 45 00 53 0F 8B 3D 20 |; MANTISSE.S..= |
00000B50: 44 45 58 00 60 0F 90 3D 20 42 4E 45 50 4F 50 32 |DEX.`..= BNEPOP2|
00000B60: 00 6F 0F 95 3D 20 4A 53 52 44 4F 50 55 4C 4C 00 |.o..= JSRDOPULL.|
00000B70: A3 0F 9A 3D 20 53 54 41 4E 55 4D 42 45 52 2B 31 |...= STANUMBER+1|
00000B80: 3B 20 45 58 50 4F 4E 45 4E 54 20 48 49 47 48 2D |; EXPONENT HIGH-|
00000B90: 42 59 54 45 20 55 4E 44 20 56 4F 52 5A 45 49 43 |BYTE UND VORZEIC|
00000BA0: 48 45 4E 00 B2 0F 9F 3D 20 4A 53 52 44 4F 50 55 |HEN....= JSRDOPU|
00000BB0: 4C 4C 00 D4 0F A4 3D 20 53 54 41 4E 55 4D 42 45 |LL....= STANUMBE|
00000BC0: 52 3B 20 45 58 50 4F 4E 45 4E 54 20 4C 4F 57 2D |R; EXPONENT LOW-|
00000BD0: 42 59 54 45 00 DD 0F A9 3D 20 43 4C 43 00 E6 0F |BYTE....= CLC...|
00000BE0: AE 3D 20 52 54 53 00 FC 0F B3 3D 50 55 53 48 53 |.= RTS....=PUSHS|
00000BF0: 54 4B 20 4C 44 41 4E 53 54 41 43 4B 00 11 10 B8 |TK LDANSTACK....|
00000C00: 3D 20 43 4D 50 23 3C 28 4D 41 58 53 54 41 43 4B |= CMP#<(MAXSTACK|
00000C10: 29 00 1F 10 BD 3D 20 42 43 43 50 55 53 48 31 00 |)....= BCCPUSH1.|
00000C20: 28 10 C2 3D 20 52 54 53 00 3C 10 C7 3D 50 55 53 |(..= RTS.<..=PUS|
00000C30: 48 31 20 49 4E 43 4E 53 54 41 43 4B 00 4B 10 CC |H1 INCNSTACK.K..|
00000C40: 3D 20 4C 44 41 4E 55 4D 42 45 52 00 5A 10 D1 3D |= LDANUMBER.Z..=|
00000C50: 20 4A 53 52 44 4F 50 55 53 48 00 6B 10 D6 3D 20 | JSRDOPUSH.k..= |
00000C60: 4C 44 41 4E 55 4D 42 45 52 2B 31 00 7A 10 DB 3D |LDANUMBER+1.z..=|
00000C70: 20 4A 53 52 44 4F 50 55 53 48 00 85 10 E0 3D 20 | JSRDOPUSH....= |
00000C80: 4C 44 58 23 30 00 9D 10 E5 3D 50 55 53 48 32 20 |LDX#0....=PUSH2 |
00000C90: 4C 44 41 4E 55 4D 42 45 52 2B 32 2C 58 00 AC 10 |LDANUMBER+2,X...|
00000CA0: EA 3D 20 4A 53 52 44 4F 50 55 53 48 00 B5 10 EF |.= JSRDOPUSH....|
00000CB0: 3D 20 49 4E 58 00 C3 10 F4 3D 20 43 50 58 46 50 |= INX....= CPXFP|
00000CC0: 4C 45 4E 00 D1 10 F9 3D 20 42 43 43 50 55 53 48 |LEN....= BCCPUSH|
00000CD0: 32 00 DA 10 FE 3D 20 43 4C 43 00 E3 10 03 3E 20 |2....= CLC....> |
00000CE0: 52 54 53 00 20 11 08 3E 53 57 41 50 4E 55 4D 42 |RTS. ..>SWAPNUMB|
00000CF0: 45 52 20 4C 44 58 46 50 4C 45 4E 3B 20 42 45 4E |ER LDXFPLEN; BEN|
00000D00: 55 54 5A 54 20 46 50 41 4B 4B 55 20 41 4C 53 20 |UTZT FPAKKU ALS |
00000D10: 5A 57 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 |ZWISCHENSPEICHER|
00000D20: 00 29 11 0D 3E 20 49 4E 58 00 42 11 12 3E 53 57 |.)..> INX.B..>SW|
00000D30: 41 50 4C 4F 4F 50 20 4C 44 41 4E 55 4D 42 45 52 |APLOOP LDANUMBER|
00000D40: 2C 58 00 4B 11 17 3E 20 50 48 41 00 5C 11 1C 3E |,X.K..> PHA.\..>|
00000D50: 20 4C 44 41 46 50 41 4B 4B 55 2C 58 00 6D 11 21 | LDAFPAKKU,X.m.!|
00000D60: 3E 20 53 54 41 4E 55 4D 42 45 52 2C 58 00 76 11 |> STANUMBER,X.v.|
00000D70: 26 3E 20 50 4C 41 00 87 11 2B 3E 20 53 54 41 46 |&> PLA...+> STAF|
00000D80: 50 41 4B 4B 55 2C 58 00 90 11 30 3E 20 44 45 58 |PAKKU,X...0> DEX|
00000D90: 00 9D 11 35 3E 20 43 50 58 23 24 46 46 00 AE 11 |...5> CPX#$FF...|
00000DA0: 3A 3E 20 42 4E 45 53 57 41 50 4C 4F 4F 50 00 B7 |:> BNESWAPLOOP..|
00000DB0: 11 3F 3E 20 52 54 53 00 CF 11 44 3E 44 4F 50 55 |.?> RTS...D>DOPU|
00000DC0: 53 48 20 2E 2E 2E 50 55 53 48 42 28 53 50 29 00 |SH ...PUSHB(SP).|
00000DD0: D8 11 49 3E 20 52 54 53 00 F0 11 4E 3E 44 4F 50 |..I> RTS...N>DOP|
00000DE0: 55 4C 4C 20 2E 2E 2E 50 55 4C 4C 42 28 53 50 29 |ULL ...PULLB(SP)|
00000DF0: 00 F9 11 53 3E 20 52 54 53 00 3B 12 58 3E 49 4E |...S> RTS.;.X>IN|
00000E00: 50 55 54 46 50 20 2E 2E 2E 53 54 41 59 28 50 54 |PUTFP ...STAY(PT|
00000E10: 29 3B 20 5A 49 45 4C 2D 5A 45 49 47 45 52 20 46 |); ZIEL-ZEIGER F|
00000E20: 55 45 52 20 46 45 52 54 49 47 45 20 42 43 44 2D |UER FERTIGE BCD-|
00000E30: 5A 41 48 4C 20 4D 45 52 4B 45 4E 00 44 12 5D 3E |ZAHL MERKEN.D.]>|
00000E40: 20 54 58 41 00 4D 12 62 3E 20 50 48 41 00 8A 12 | TXA.M.b> PHA...|
00000E50: 67 3E 20 4A 53 52 43 4C 45 41 52 42 55 46 3B 20 |g> JSRCLEARBUF; |
00000E60: 4D 41 4E 54 49 53 53 45 2C 20 45 58 50 4F 4E 45 |MANTISSE, EXPONE|
00000E70: 4E 54 20 55 4E 44 20 56 4F 52 5A 45 49 43 48 45 |NT UND VORZEICHE|
00000E80: 4E 20 4C 4F 45 53 43 48 45 4E 00 93 12 6C 3E 20 |N LOESCHEN...l> |
00000E90: 50 4C 41 00 BD 12 71 3E 20 4A 53 52 53 4B 49 50 |PLA...q> JSRSKIP|
00000EA0: 53 50 41 43 45 3B 20 4C 45 45 52 5A 45 49 43 48 |SPACE; LEERZEICH|
00000EB0: 45 4E 20 55 45 42 45 52 4C 45 53 45 4E 00 F0 12 |EN UEBERLESEN...|
00000EC0: 76 3E 20 4A 53 52 47 45 54 4D 53 49 47 4E 3B 20 |v> JSRGETMSIGN; |
00000ED0: 56 4F 52 5A 45 49 43 48 45 4E 20 44 45 52 20 4D |VORZEICHEN DER M|
00000EE0: 41 4E 54 49 53 53 45 20 45 49 4E 4C 45 53 45 4E |ANTISSE EINLESEN|
00000EF0: 00 28 13 7B 3E 20 4A 53 52 53 4B 49 50 5A 45 52 |.(.{> JSRSKIPZER|
00000F00: 4F 3B 20 56 4F 52 4E 55 4C 4C 45 4E 55 4E 54 45 |O; VORNULLENUNTE|
00000F10: 52 44 52 55 45 43 4B 55 4E 47 20 46 55 45 52 20 |RDRUECKUNG FUER |
00000F20: 4D 41 4E 54 49 53 53 45 00 4F 13 80 3E 20 4A 53 |MANTISSE.O..> JS|
00000F30: 52 47 45 54 49 50 41 52 54 3B 20 56 4F 52 4B 4F |RGETIPART; VORKO|
00000F40: 4D 4D 41 41 4E 54 45 49 4C 20 48 4F 4C 45 4E 00 |MMAANTEIL HOLEN.|
00000F50: 5C 13 85 3E 20 43 4D 50 23 22 2E 22 00 6B 13 8A |\..> CMP#".".k..|
00000F60: 3E 20 42 4E 45 54 52 59 45 58 50 00 79 13 8F 3E |> BNETRYEXP.y..>|
00000F70: 20 4A 53 52 42 41 53 49 4E 00 A1 13 94 3E 20 4A | JSRBASIN....> J|
00000F80: 53 52 47 45 54 46 50 41 52 54 3B 20 4E 41 43 48 |SRGETFPART; NACH|
00000F90: 4B 4F 4D 4D 41 41 4E 54 45 49 4C 20 48 4F 4C 45 |KOMMAANTEIL HOLE|
00000FA0: 4E 00 B4 13 99 3E 54 52 59 45 58 50 20 43 4D 50 |N....>TRYEXP CMP|
00000FB0: 23 22 45 22 00 F0 13 9E 3E 20 42 4E 45 43 4F 4E |#"E"....> BNECON|
00000FC0: 56 45 52 54 46 3B 20 4B 45 49 4E 20 45 58 50 4F |VERTF; KEIN EXPO|
00000FD0: 4E 45 4E 54 3A 20 5A 41 48 4C 20 49 53 54 20 46 |NENT: ZAHL IST F|
00000FE0: 45 52 54 49 47 20 45 49 4E 47 45 4C 45 53 45 4E |ERTIG EINGELESEN|
00000FF0: 00 FE 13 A3 3E 20 4A 53 52 42 41 53 49 4E 00 30 |....> JSRBASIN.0|
00001000: 14 A8 3E 20 4A 53 52 47 45 54 45 53 49 47 4E 3B |..> JSRGETESIGN;|
00001010: 20 56 4F 52 5A 45 49 43 48 45 4E 20 44 45 53 20 | VORZEICHEN DES |
00001020: 45 58 50 4F 4E 45 4E 54 45 4E 20 48 4F 4C 45 4E |EXPONENTEN HOLEN|
00001030: 00 69 14 AD 3E 20 4A 53 52 53 4B 49 50 5A 45 52 |.i..> JSRSKIPZER|
00001040: 4F 3B 20 56 4F 52 4E 55 4C 4C 45 4E 55 4E 54 45 |O; VORNULLENUNTE|
00001050: 52 44 52 55 45 43 4B 55 4E 47 20 44 45 53 20 45 |RDRUECKUNG DES E|
00001060: 58 50 4F 4E 45 4E 54 45 4E 00 94 14 B2 3E 20 4A |XPONENTEN....> J|
00001070: 53 52 47 45 54 45 58 50 3B 20 45 58 50 4F 4E 45 |SRGETEXP; EXPONE|
00001080: 4E 54 20 48 4F 4C 45 4E 20 55 4E 44 20 4D 49 54 |NT HOLEN UND MIT|
00001090: 20 44 45 52 00 D6 14 B7 3E 20 4A 53 52 4D 41 4B | DER....> JSRMAK|
000010A0: 45 45 58 50 3B 20 41 4E 5A 41 48 4C 20 44 45 52 |EEXP; ANZAHL DER|
000010B0: 20 56 4F 52 2D 20 55 4E 44 20 4E 41 43 48 4B 4F | VOR- UND NACHKO|
000010C0: 4D 4D 41 53 54 45 4C 4C 45 4E 20 4B 4F 4D 42 49 |MMASTELLEN KOMBI|
000010D0: 4E 49 45 52 45 4E 00 0A 15 BC 3E 43 4F 4E 56 45 |NIEREN....>CONVE|
000010E0: 52 54 46 20 4A 53 52 43 4F 50 59 53 45 58 3B 20 |RTF JSRCOPYSEX; |
000010F0: 53 49 47 4E 20 55 4E 44 20 45 58 50 4F 4E 45 4E |SIGN UND EXPONEN|
00001100: 54 20 4B 4F 50 49 45 52 45 4E 00 39 15 C1 3E 20 |T KOPIEREN.9..> |
00001110: 4A 53 52 43 4F 50 59 4D 41 4E 54 3B 20 4D 41 4E |JSRCOPYMANT; MAN|
00001120: 54 49 53 53 45 20 4B 4F 50 49 45 52 45 4E 20 55 |TISSE KOPIEREN U|
00001130: 4E 44 20 50 41 43 4B 45 4E 00 42 15 C6 3E 20 52 |ND PACKEN.B..> R|
00001140: 54 53 00 8C 15 CB 3E 3B 20 45 52 47 49 42 54 20 |TS....>; ERGIBT |
00001150: 43 41 52 52 59 20 43 4C 45 52 2C 20 57 45 4E 4E |CARRY CLER, WENN|
00001160: 20 5A 49 46 46 45 52 20 49 4D 20 41 4B 4B 55 2C | ZIFFER IM AKKU,|
00001170: 20 43 41 52 52 59 20 53 45 54 20 57 45 4E 4E 20 | CARRY SET WENN |
00001180: 4B 45 49 4E 45 20 5A 49 46 46 45 52 00 9E 15 D0 |KEINE ZIFFER....|
00001190: 3E 44 49 47 49 54 20 43 4D 50 23 22 30 22 00 AE |>DIGIT CMP#"0"..|
000011A0: 15 D5 3E 20 42 43 43 4E 4F 44 49 47 49 54 00 C1 |..> BCCNODIGIT..|
000011B0: 15 DA 3E 20 43 4D 50 23 24 33 41 3B 22 39 22 2B |..> CMP#$3A;"9"+|
000011C0: 31 00 CA 15 DF 3E 20 52 54 53 00 DA 15 E4 3E 4E |1....> RTS....>N|
000011D0: 4F 44 49 47 49 54 20 53 45 43 00 E3 15 E9 3E 20 |ODIGIT SEC....> |
000011E0: 52 54 53 00 1F 16 EE 3E 3B 20 4D 41 4E 54 49 53 |RTS....>; MANTIS|
000011F0: 53 45 4E 2D 56 4F 52 5A 45 49 43 48 45 4E 20 4C |SEN-VORZEICHEN L|
00001200: 45 53 45 4E 20 55 4E 44 20 4D 45 52 4B 45 4E 2C |ESEN UND MERKEN,|
00001210: 20 57 45 4E 4E 20 56 4F 52 48 41 4E 44 45 4E 00 | WENN VORHANDEN.|
00001220: 37 16 F3 3E 47 45 54 4D 53 49 47 4E 20 4A 53 52 |7..>GETMSIGN JSR|
00001230: 47 45 54 53 49 47 4E 00 47 16 F8 3E 20 42 4E 45 |GETSIGN.G..> BNE|
00001240: 4E 4F 4D 53 49 47 4E 00 54 16 FD 3E 20 53 54 58 |NOMSIGN.T..> STX|
00001250: 53 49 47 4E 00 64 16 02 3F 4E 4F 4D 53 49 47 4E |SIGN.d..?NOMSIGN|
00001260: 20 52 54 53 00 A1 16 07 3F 3B 20 45 58 50 4F 4E | RTS....?; EXPON|
00001270: 45 4E 54 45 4E 2D 56 4F 52 5A 45 49 43 48 45 4E |ENTEN-VORZEICHEN|
00001280: 20 4C 45 53 45 4E 20 55 4E 44 20 4D 45 52 4B 45 | LESEN UND MERKE|
00001290: 4E 2C 20 57 45 4E 4E 20 56 4F 52 48 41 4E 44 45 |N, WENN VORHANDE|
000012A0: 4E 00 B9 16 0C 3F 47 45 54 45 53 49 47 4E 20 4A |N....?GETESIGN J|
000012B0: 53 52 47 45 54 53 49 47 4E 00 C9 16 11 3F 20 42 |SRGETSIGN....? B|
000012C0: 4E 45 4E 4F 45 53 49 47 4E 00 D7 16 16 3F 20 53 |NENOESIGN....? S|
000012D0: 54 58 45 53 49 47 4E 00 E7 16 1B 3F 4E 4F 45 53 |TXESIGN....?NOES|
000012E0: 49 47 4E 20 52 54 53 00 2C 17 20 3F 3B 20 54 45 |IGN RTS.,. ?; TE|
000012F0: 53 54 45 2C 20 4F 42 20 41 4B 4B 55 20 56 4F 52 |STE, OB AKKU VOR|
00001300: 5A 45 49 43 48 45 4E 20 45 4E 54 48 41 45 4C 54 |ZEICHEN ENTHAELT|
00001310: 2C 20 57 45 4E 4E 20 4A 41 2C 20 5A 45 52 4F 2D |, WENN JA, ZERO-|
00001320: 46 4C 41 47 20 53 45 54 5A 45 4E 2C 00 7D 17 25 |FLAG SETZEN,.}.%|
00001330: 3F 3B 20 49 4D 20 58 2D 52 45 47 49 53 54 45 52 |?; IM X-REGISTER|
00001340: 20 45 52 47 45 42 4E 49 53 20 28 30 20 4F 44 45 | ERGEBNIS (0 ODE|
00001350: 52 20 24 46 46 29 20 55 45 42 45 52 47 45 42 45 |R $FF) UEBERGEBE|
00001360: 4E 20 55 4E 44 20 4E 41 45 43 48 53 54 45 53 20 |N UND NAECHSTES |
00001370: 5A 45 49 43 48 45 4E 20 4C 45 53 45 4E 00 91 17 |ZEICHEN LESEN...|
00001380: 2A 3F 47 45 54 53 49 47 4E 20 4C 44 58 23 24 46 |*?GETSIGN LDX#$F|
00001390: 46 00 9E 17 2F 3F 20 43 4D 50 23 22 2D 22 00 AE |F.../? CMP#"-"..|
000013A0: 17 34 3F 20 42 45 51 47 4F 54 53 49 47 4E 00 B7 |.4? BEQGOTSIGN..|
000013B0: 17 39 3F 20 49 4E 58 00 C4 17 3E 3F 20 43 4D 50 |.9? INX...>? CMP|
000013C0: 23 22 2B 22 00 DA 17 43 3F 47 4F 54 53 49 47 4E |#"+"...C?GOTSIGN|
000013D0: 20 42 4E 45 4E 4F 53 49 47 4E 00 F5 17 48 3F 20 | BNENOSIGN...H? |
000013E0: 50 48 50 3B 20 5A 45 52 4F 2D 46 4C 41 47 20 4D |PHP; ZERO-FLAG M|
000013F0: 45 52 4B 45 4E 00 03 18 4D 3F 20 4A 53 52 42 41 |ERKEN...M? JSRBA|
00001400: 53 49 4E 00 0C 18 52 3F 20 50 4C 50 00 1B 18 57 |SIN...R? PLP...W|
00001410: 3F 4E 4F 53 49 47 4E 20 52 54 53 00 40 18 5C 3F |?NOSIGN RTS.@.\?|
00001420: 3B 20 46 55 45 48 52 45 4E 44 45 20 4E 55 4C 4C |; FUEHRENDE NULL|
00001430: 45 4E 20 55 4E 54 45 52 44 52 55 45 43 4B 45 4E |EN UNTERDRUECKEN|
00001440: 00 55 18 61 3F 53 4B 49 50 5A 45 52 4F 20 43 4D |.U.a?SKIPZERO CM|
00001450: 50 23 22 30 22 00 64 18 66 3F 20 42 4E 45 4E 4F |P#"0".d.f? BNENO|
00001460: 5A 45 52 4F 00 72 18 6B 3F 20 4A 53 52 42 41 53 |ZERO.r.k? JSRBAS|
00001470: 49 4E 00 83 18 70 3F 20 4A 4D 50 53 4B 49 50 5A |IN...p? JMPSKIPZ|
00001480: 45 52 4F 00 92 18 75 3F 4E 4F 5A 45 52 4F 20 52 |ERO...u?NOZERO R|
00001490: 54 53 00 A8 18 7A 3F 43 4C 45 41 52 42 55 46 20 |TS...z?CLEARBUF |
000014A0: 4C 44 58 44 42 4C 45 4E 00 B5 18 7F 3F 20 4C 44 |LDXDBLEN....? LD|
000014B0: 41 23 22 30 22 00 D2 18 84 3F 49 4E 49 54 4D 41 |A#"0"....?INITMA|
000014C0: 4E 54 20 53 54 41 4D 41 4E 54 49 53 53 45 2D 31 |NT STAMANTISSE-1|
000014D0: 2C 58 00 DB 18 89 3F 20 44 45 58 00 EC 18 8E 3F |,X....? DEX....?|
000014E0: 20 42 4E 45 49 4E 49 54 4D 41 4E 54 00 F8 18 93 | BNEINITMANT....|
000014F0: 3F 20 53 54 58 45 58 50 00 06 19 98 3F 20 53 54 |? STXEXP....? ST|
00001500: 58 45 58 50 2B 31 00 23 19 9D 3F 20 53 54 58 45 |XEXP+1.#..? STXE|
00001510: 45 58 50 3B 20 48 49 4C 46 53 2D 45 58 50 4F 4E |EXP; HILFS-EXPON|
00001520: 45 4E 54 00 32 19 A2 3F 20 53 54 58 45 45 58 50 |ENT.2..? STXEEXP|
00001530: 2B 31 00 5A 19 A7 3F 20 53 54 58 45 53 49 47 4E |+1.Z..? STXESIGN|
00001540: 3B 20 56 4F 52 5A 45 49 43 48 45 4E 20 44 45 53 |; VORZEICHEN DES|
00001550: 20 45 58 50 4F 4E 45 4E 54 53 00 67 19 AC 3F 20 | EXPONENTS.g..? |
00001560: 53 54 58 53 49 47 4E 00 70 19 B1 3F 20 52 54 53 |STXSIGN.p..? RTS|
00001570: 00 B0 19 B6 3F 3B 20 4C 45 45 52 5A 45 49 43 48 |....?; LEERZEICH|
00001580: 45 4E 2C 20 47 45 53 48 49 46 54 45 54 45 20 4C |EN, GESHIFTETE L|
00001590: 45 45 52 5A 45 49 43 48 45 4E 20 55 4E 44 20 52 |EERZEICHEN UND R|
000015A0: 45 54 55 52 4E 20 55 45 42 45 52 4C 45 53 45 4E |ETURN UEBERLESEN|
000015B0: 00 C6 19 BB 3F 53 4B 49 50 53 50 41 43 45 20 43 |....?SKIPSPACE C|
000015C0: 4D 50 23 22 20 22 00 D6 19 C0 3F 20 42 45 51 49 |MP#" "....? BEQI|
000015D0: 53 53 50 41 43 45 00 EB 19 C5 3F 20 43 4D 50 23 |SSPACE....? CMP#|
000015E0: 24 41 30 3B 24 38 30 2B 22 20 22 00 FB 19 CA 3F |$A0;$80+" "....?|
000015F0: 20 42 45 51 49 53 53 50 41 43 45 00 08 1A CF 3F | BEQISSPACE....?|
00001600: 20 43 4D 50 23 24 30 44 00 18 1A D4 3F 20 42 45 | CMP#$0D....? BE|
00001610: 51 49 53 53 50 41 43 45 00 21 1A D9 3F 20 52 54 |QISSPACE.!..? RT|
00001620: 53 00 36 1A DE 3F 49 53 53 50 41 43 45 20 4A 53 |S.6..?ISSPACE JS|
00001630: 52 42 41 53 49 4E 00 48 1A E3 3F 20 4A 4D 50 53 |RBASIN.H..? JMPS|
00001640: 4B 49 50 53 50 41 43 45 00 7E 1A E8 3F 3B 20 56 |KIPSPACE.~..?; V|
00001650: 4F 52 4B 4F 4D 4D 41 53 54 45 4C 4C 45 4E 20 48 |ORKOMMASTELLEN H|
00001660: 4F 4C 45 4E 2C 20 44 41 42 45 49 20 45 58 50 4F |OLEN, DABEI EXPO|
00001670: 4E 45 4E 54 20 4D 49 54 5A 41 45 48 4C 45 00 91 |NENT MITZAEHLE..|
00001680: 1A ED 3F 47 45 54 49 50 41 52 54 20 4C 44 58 23 |..?GETIPART LDX#|
00001690: 30 00 A4 1A F2 3F 49 50 41 52 54 20 4A 53 52 44 |0....?IPART JSRD|
000016A0: 49 47 49 54 00 B4 1A F7 3F 20 42 43 53 49 50 41 |IGIT....? BCSIPA|
000016B0: 52 54 45 58 00 E1 1A FC 3F 20 43 50 58 44 42 4C |RTEX....? CPXDBL|
000016C0: 45 4E 3B 20 50 41 53 53 54 20 5A 45 49 43 48 45 |EN; PASST ZEICHE|
000016D0: 4E 20 4E 4F 43 48 20 49 4E 20 42 55 46 46 45 52 |N NOCH IN BUFFER|
000016E0: 3F 00 F2 1A 01 40 20 42 43 53 4E 4F 49 53 54 4F |?....@ BCSNOISTO|
000016F0: 52 45 00 05 1B 06 40 20 53 54 41 4D 41 4E 54 49 |RE....@ STAMANTI|
00001700: 53 53 45 2C 58 00 0E 1B 0B 40 20 49 4E 58 00 3E |SSE,X....@ INX.>|
00001710: 1B 10 40 4E 4F 49 53 54 4F 52 45 20 49 4E 43 45 |..@NOISTORE INCE|
00001720: 58 50 3B 20 56 4F 52 4B 4F 4D 4D 41 53 54 45 4C |XP; VORKOMMASTEL|
00001730: 4C 45 4E 20 4D 49 54 5A 41 45 48 4C 45 4E 00 4F |LEN MITZAEHLEN.O|
00001740: 1B 15 40 20 42 4E 45 4E 45 58 54 49 44 49 47 00 |..@ BNENEXTIDIG.|
00001750: 5D 1B 1A 40 20 49 4E 43 45 58 50 2B 31 00 73 1B |]..@ INCEXP+1.s.|
00001760: 1F 40 4E 45 58 54 49 44 49 47 20 4A 53 52 42 41 |.@NEXTIDIG JSRBA|
00001770: 53 49 4E 00 81 1B 24 40 20 4A 4D 50 49 50 41 52 |SIN...$@ JMPIPAR|
00001780: 54 00 91 1B 29 40 49 50 41 52 54 45 58 20 52 54 |T...)@IPARTEX RT|
00001790: 53 00 D3 1B 2E 40 3B 20 4E 41 43 48 4B 4F 4D 4D |S....@; NACHKOMM|
000017A0: 41 2D 41 4E 54 45 49 4C 20 48 4F 4C 45 4E 2C 20 |A-ANTEIL HOLEN, |
000017B0: 44 41 42 45 49 20 42 45 41 43 48 54 45 4E 2C 20 |DABEI BEACHTEN, |
000017C0: 4F 42 20 55 45 42 45 52 48 41 55 50 54 20 53 43 |OB UEBERHAUPT SC|
000017D0: 48 4F 4E 00 11 1C 33 40 3B 20 5A 49 46 46 45 52 |HON...3@; ZIFFER|
000017E0: 4E 20 49 4E 20 44 45 52 20 4D 41 4E 54 49 53 53 |N IN DER MANTISS|
000017F0: 45 20 56 4F 52 4C 49 45 47 45 4E 2C 20 57 45 4E |E VORLIEGEN, WEN|
00001800: 4E 20 4E 49 43 48 54 2C 20 45 52 53 54 20 4D 41 |N NICHT, ERST MA|
00001810: 4C 00 3D 1C 38 40 3B 20 57 49 45 44 45 52 20 46 |L.=.8@; WIEDER F|
00001820: 55 45 48 52 45 4E 44 45 20 4E 55 4C 4C 45 4E 20 |UEHRENDE NULLEN |
00001830: 55 4E 54 45 52 44 52 55 45 43 4B 45 4E 00 77 1C |UNTERDRUECKEN.w.|
00001840: 3D 40 47 45 54 46 50 41 52 54 20 43 50 58 23 30 |=@GETFPART CPX#0|
00001850: 3B 20 57 45 4E 4E 20 4E 4F 43 48 20 47 41 52 20 |; WENN NOCH GAR |
00001860: 4B 45 49 4E 45 20 5A 49 46 46 45 52 4E 20 47 45 |KEINE ZIFFERN GE|
00001870: 46 55 4E 44 45 4E 2C 00 AF 1C 42 40 20 42 4E 45 |FUNDEN,...B@ BNE|
00001880: 43 4F 4E 54 4D 41 4E 54 3B 20 45 52 53 54 4D 41 |CONTMANT; ERSTMA|
00001890: 4C 20 57 49 45 44 45 52 20 56 4F 52 4E 55 4C 4C |L WIEDER VORNULL|
000018A0: 45 4E 20 55 4E 54 45 52 44 52 55 43 4B 45 4E 00 |EN UNTERDRUCKEN.|
000018B0: C2 1C 47 40 53 4B 49 50 46 5A 20 43 4D 50 23 22 |..G@SKIPFZ CMP#"|
000018C0: 30 22 00 FC 1C 4C 40 20 42 4E 45 43 4F 4E 54 4D |0"...L@ BNECONTM|
000018D0: 41 4E 54 3B 20 55 4D 20 5A 2E 42 2E 20 44 49 45 |ANT; UM Z.B. DIE|
000018E0: 20 5A 41 48 4C 20 30 2E 30 30 35 20 5A 55 20 30 | ZAHL 0.005 ZU 0|
000018F0: 2E 35 20 2A 20 31 30 20 5E 20 2D 32 00 08 1D 51 |.5 * 10 ^ -2...Q|
00001900: 40 20 4C 44 41 45 58 50 00 18 1D 56 40 20 42 4E |@ LDAEXP...V@ BN|
00001910: 45 44 45 43 45 58 50 31 00 26 1D 5B 40 20 44 45 |EDECEXP1.&.[@ DE|
00001920: 43 45 58 50 2B 31 00 4B 1D 60 40 44 45 43 45 58 |CEXP+1.K.`@DECEX|
00001930: 50 31 20 44 45 43 45 58 50 3B 20 5A 55 20 4E 4F |P1 DECEXP; ZU NO|
00001940: 52 4D 41 4C 49 53 49 45 52 45 4E 00 59 1D 65 40 |RMALISIEREN.Y.e@|
00001950: 20 4A 53 52 42 41 53 49 4E 00 68 1D 6A 40 20 4A | JSRBASIN.h.j@ J|
00001960: 4D 50 53 4B 49 50 46 5A 00 7E 1D 6F 40 43 4F 4E |MPSKIPFZ.~.o@CON|
00001970: 54 4D 41 4E 54 20 4A 53 52 44 49 47 49 54 00 B4 |TMANT JSRDIGIT..|
00001980: 1D 74 40 20 42 43 53 46 50 41 52 54 45 58 3B 20 |.t@ BCSFPARTEX; |
00001990: 4B 45 49 4E 45 20 5A 49 46 46 45 52 20 4D 45 48 |KEINE ZIFFER MEH|
000019A0: 52 20 2D 3E 20 4D 41 4E 54 49 53 53 45 20 46 45 |R -> MANTISSE FE|
000019B0: 52 54 49 47 00 CF 1D 79 40 20 43 50 58 44 42 4C |RTIG...y@ CPXDBL|
000019C0: 45 4E 3B 20 4E 4F 43 48 20 50 4C 41 54 5A 3F 00 |EN; NOCH PLATZ?.|
000019D0: E0 1D 7E 40 20 42 43 53 4E 4F 46 53 54 4F 52 45 |..~@ BCSNOFSTORE|
000019E0: 00 F3 1D 83 40 20 53 54 41 4D 41 4E 54 49 53 53 |....@ STAMANTISS|
000019F0: 45 2C 58 00 FC 1D 88 40 20 49 4E 58 00 12 1E 8D |E,X....@ INX....|
00001A00: 40 4E 4F 46 53 54 4F 52 45 20 4A 53 52 42 41 53 |@NOFSTORE JSRBAS|
00001A10: 49 4E 00 23 1E 92 40 20 4A 4D 50 43 4F 4E 54 4D |IN.#..@ JMPCONTM|
00001A20: 41 4E 54 00 33 1E 97 40 46 50 41 52 54 45 58 20 |ANT.3..@FPARTEX |
00001A30: 52 54 53 00 6F 1E 9C 40 3B 20 45 58 50 4F 4E 45 |RTS.o..@; EXPONE|
00001A40: 4E 54 20 45 49 4E 4C 45 53 45 4E 2C 20 4B 45 49 |NT EINLESEN, KEI|
00001A50: 4E 45 20 46 45 48 4C 45 52 41 42 46 52 41 47 45 |NE FEHLERABFRAGE|
00001A60: 2C 20 45 58 50 4F 4E 45 4E 54 20 4D 55 53 53 00 |, EXPONENT MUSS.|
00001A70: 98 1E A1 40 3B 20 49 4D 20 42 45 52 45 49 43 48 |...@; IM BEREICH|
00001A80: 20 56 4F 4E 20 30 20 42 49 53 20 31 36 33 38 33 | VON 0 BIS 16383|
00001A90: 20 4C 49 45 47 45 4E 21 00 AC 1E A6 40 47 45 54 | LIEGEN!....@GET|
00001AA0: 45 58 50 20 4A 53 52 44 49 47 49 54 00 BB 1E AB |EXP JSRDIGIT....|
00001AB0: 40 20 42 43 53 47 4F 54 45 58 50 00 C8 1E B0 40 |@ BCSGOTEXP....@|
00001AC0: 20 41 4E 44 23 24 30 46 00 FD 1E B5 40 20 4C 44 | AND#$0F....@ LD|
00001AD0: 58 23 31 30 3B 20 45 45 58 50 3A 3D 45 45 58 50 |X#10; EEXP:=EEXP|
00001AE0: 2A 31 30 2B 5A 49 46 46 45 52 20 50 52 49 4D 49 |*10+ZIFFER PRIMI|
00001AF0: 54 49 56 20 41 42 45 52 20 4B 55 52 5A 00 08 1F |TIV ABER KURZ...|
00001B00: BA 40 20 4C 44 59 23 30 00 19 1F BF 40 45 58 50 |.@ LDY#0....@EXP|
00001B10: 4D 41 4C 31 30 20 43 4C 43 00 26 1F C4 40 20 41 |MAL10 CLC.&..@ A|
00001B20: 44 43 45 45 58 50 00 2F 1F C9 40 20 50 48 41 00 |DCEEXP./..@ PHA.|
00001B30: 38 1F CE 40 20 54 59 41 00 47 1F D3 40 20 41 44 |8..@ TYA.G..@ AD|
00001B40: 43 45 45 58 50 2B 31 00 50 1F D8 40 20 54 41 59 |CEEXP+1.P..@ TAY|
00001B50: 00 59 1F DD 40 20 50 4C 41 00 62 1F E2 40 20 44 |.Y..@ PLA.b..@ D|
00001B60: 45 58 00 73 1F E7 40 20 42 4E 45 45 58 50 4D 41 |EX.s..@ BNEEXPMA|
00001B70: 4C 31 30 00 80 1F EC 40 20 53 54 41 45 45 58 50 |L10....@ STAEEXP|
00001B80: 00 8F 1F F1 40 20 53 54 59 45 45 58 50 2B 31 00 |....@ STYEEXP+1.|
00001B90: 9D 1F F6 40 20 4A 53 52 42 41 53 49 4E 00 AC 1F |...@ JSRBASIN...|
00001BA0: FB 40 20 4A 4D 50 47 45 54 45 58 50 00 BB 1F 00 |.@ JMPGETEXP....|
00001BB0: 41 47 4F 54 45 58 50 20 52 54 53 00 04 20 05 41 |AGOTEXP RTS.. .A|
00001BC0: 3B 20 45 58 50 4C 49 5A 49 54 20 41 4E 47 45 47 |; EXPLIZIT ANGEG|
00001BD0: 45 42 45 4E 45 4E 20 45 58 50 4F 4E 54 20 28 45 |EBENEN EXPONT (E|
00001BE0: 45 58 50 29 20 4D 49 54 20 50 4F 53 49 54 49 4F |EXP) MIT POSITIO|
00001BF0: 4E 20 44 45 53 20 44 45 5A 49 4D 41 4C 50 55 4E |N DES DEZIMALPUN|
00001C00: 4B 54 45 53 00 3A 20 0A 41 3B 20 5A 55 20 45 49 |KTES.: .A; ZU EI|
00001C10: 4E 45 52 20 4E 4F 52 4D 41 4C 49 53 49 45 52 54 |NER NORMALISIERT|
00001C20: 45 4E 20 44 41 52 53 54 45 4C 4C 55 4E 47 20 4B |EN DARSTELLUNG K|
00001C30: 4F 4D 42 49 4E 49 45 52 45 4E 00 4D 20 0F 41 4D |OMBINIEREN.M .AM|
00001C40: 41 4B 45 45 58 50 20 4C 44 41 45 58 50 00 5B 20 |AKEEXP LDAEXP.[ |
00001C50: 14 41 20 42 49 54 45 53 49 47 4E 00 6A 20 19 41 |.A BITESIGN.j .A|
00001C60: 20 42 50 4C 41 44 44 45 58 50 00 73 20 1E 41 20 | BPLADDEXP.s .A |
00001C70: 53 45 43 00 80 20 23 41 20 53 42 43 45 45 58 50 |SEC.. #A SBCEEXP|
00001C80: 00 8C 20 28 41 20 53 54 41 45 58 50 00 9A 20 2D |.. (A STAEXP.. -|
00001C90: 41 20 4C 44 41 45 58 50 2B 31 00 A9 20 32 41 20 |A LDAEXP+1.. 2A |
00001CA0: 53 42 43 45 45 58 50 2B 31 00 B7 20 37 41 20 53 |SBCEEXP+1.. 7A S|
00001CB0: 54 41 45 58 50 2B 31 00 C0 20 3C 41 20 52 54 53 |TAEXP+1.. <A RTS|
00001CC0: 00 CF 20 41 41 41 44 44 45 58 50 20 43 4C 43 00 |.. AAADDEXP CLC.|
00001CD0: DC 20 46 41 20 41 44 43 45 45 58 50 00 E8 20 4B |. FA ADCEEXP.. K|
00001CE0: 41 20 53 54 41 45 58 50 00 F6 20 50 41 20 4C 44 |A STAEXP.. PA LD|
00001CF0: 41 45 58 50 2B 31 00 05 21 55 41 20 41 44 43 45 |AEXP+1..!UA ADCE|
00001D00: 45 58 50 2B 31 00 13 21 5A 41 20 53 54 41 45 58 |EXP+1..!ZA STAEX|
00001D10: 50 2B 31 00 1C 21 5F 41 20 52 54 53 00 5D 21 64 |P+1..!_A RTS.]!d|
00001D20: 41 3B 20 56 4F 52 5A 45 49 43 48 45 4E 20 55 4E |A; VORZEICHEN UN|
00001D30: 44 20 45 58 50 4F 4E 45 4E 54 20 41 4E 20 44 45 |D EXPONENT AN DE|
00001D40: 4E 20 47 45 57 55 45 4E 53 43 48 54 45 4E 20 50 |N GEWUENSCHTEN P|
00001D50: 4C 41 54 5A 20 4B 4F 50 49 45 52 45 4E 00 A5 21 |LATZ KOPIEREN..!|
00001D60: 69 41 3B 20 55 4E 44 20 44 41 42 45 49 20 50 41 |iA; UND DABEI PA|
00001D70: 43 4B 45 4E 20 28 56 4F 52 5A 45 49 43 48 45 4E |CKEN (VORZEICHEN|
00001D80: 20 44 45 52 20 4D 41 4E 54 49 53 53 45 20 2D 3E | DER MANTISSE ->|
00001D90: 20 42 49 54 31 35 20 44 45 53 20 45 58 50 4F 4E | BIT15 DES EXPON|
00001DA0: 45 4E 54 45 4E 00 B7 21 6E 41 43 4F 50 59 53 45 |ENTEN..!nACOPYSE|
00001DB0: 58 20 4C 44 59 23 30 00 C3 21 73 41 20 4C 44 41 |X LDY#0..!sA LDA|
00001DC0: 45 58 50 00 D2 21 78 41 20 53 54 41 28 50 54 29 |EXP..!xA STA(PT)|
00001DD0: 2C 59 00 DB 21 7D 41 20 49 4E 59 00 E9 21 82 41 |,Y..!}A INY..!.A|
00001DE0: 20 4C 44 41 45 58 50 2B 31 00 F6 21 87 41 20 41 | LDAEXP+1..!.A A|
00001DF0: 4E 44 23 24 37 46 00 03 22 8C 41 20 42 49 54 53 |ND#$7F..".A BITS|
00001E00: 49 47 4E 00 14 22 91 41 20 42 50 4C 43 4F 50 59 |IGN..".A BPLCOPY|
00001E10: 53 45 58 31 00 21 22 96 41 20 4F 52 41 23 24 38 |SEX1.!".A ORA#$8|
00001E20: 30 00 38 22 9B 41 43 4F 50 59 53 45 58 31 20 53 |0.8".ACOPYSEX1 S|
00001E30: 54 41 28 50 54 29 2C 59 00 41 22 A0 41 20 49 4E |TA(PT),Y.A".A IN|
00001E40: 59 00 4A 22 A5 41 20 52 54 53 00 8B 22 AA 41 3B |Y.J".A RTS..".A;|
00001E50: 20 4D 41 4E 54 49 53 53 45 20 50 41 43 4B 45 4E | MANTISSE PACKEN|
00001E60: 20 28 49 4D 4D 45 52 20 32 20 5A 49 46 46 45 52 | (IMMER 2 ZIFFER|
00001E70: 4E 20 49 4E 20 45 49 4E 20 42 59 54 45 29 20 55 |N IN EIN BYTE) U|
00001E80: 4E 44 20 4B 4F 50 49 45 52 45 4E 00 9E 22 AF 41 |ND KOPIEREN..".A|
00001E90: 43 4F 50 59 4D 41 4E 54 20 4C 44 58 23 30 00 B8 |COPYMANT LDX#0..|
00001EA0: 22 B4 41 43 4D 41 4E 54 4C 4F 20 4C 44 41 4D 41 |".ACMANTLO LDAMA|
00001EB0: 4E 54 49 53 53 45 2C 58 00 C5 22 B9 41 20 41 4E |NTISSE,X..".A AN|
00001EC0: 44 23 24 30 46 00 CE 22 BE 41 20 41 53 4C 00 D7 |D#$0F..".A ASL..|
00001ED0: 22 C3 41 20 41 53 4C 00 E0 22 C8 41 20 41 53 4C |".A ASL..".A ASL|
00001EE0: 00 E9 22 CD 41 20 41 53 4C 00 08 23 D2 41 20 53 |..".A ASL..#.A S|
00001EF0: 54 41 53 49 47 4E 3B 20 5A 57 49 53 43 48 45 4E |TASIGN; ZWISCHEN|
00001F00: 53 50 45 49 43 48 45 52 00 1D 23 D7 41 20 4C 44 |SPEICHER..#.A LD|
00001F10: 41 4D 41 4E 54 49 53 53 45 2B 31 2C 58 00 2A 23 |AMANTISSE+1,X.*#|
00001F20: DC 41 20 41 4E 44 23 24 30 46 00 37 23 E1 41 20 |.A AND#$0F.7#.A |
00001F30: 4F 52 41 53 49 47 4E 00 46 23 E6 41 20 53 54 41 |ORASIGN.F#.A STA|
00001F40: 28 50 54 29 2C 59 00 4F 23 EB 41 20 49 4E 59 00 |(PT),Y.O#.A INY.|
00001F50: 58 23 F0 41 20 49 4E 58 00 61 23 F5 41 20 49 4E |X#.A INX.a#.A IN|
00001F60: 58 00 6F 23 FA 41 20 43 50 58 44 42 4C 45 4E 00 |X.o#.A CPXDBLEN.|
00001F70: 7F 23 FF 41 20 42 43 43 43 4D 41 4E 54 4C 4F 00 |.#.A BCCCMANTLO.|
00001F80: 88 23 04 42 20 52 54 53 00 A0 23 09 42 50 52 49 |.#.B RTS..#.BPRI|
00001F90: 4E 54 46 50 20 2E 2E 2E 53 54 41 59 28 50 54 29 |NTFP ...STAY(PT)|
00001FA0: 00 AB 23 0E 42 20 4C 44 59 23 30 00 BB 23 13 42 |..#.B LDY#0..#.B|
00001FB0: 20 4A 53 52 50 52 4D 53 49 47 4E 00 CB 23 18 42 | JSRPRMSIGN..#.B|
00001FC0: 20 4A 53 52 50 52 49 50 41 52 54 00 DA 23 1D 42 | JSRPRIPART..#.B|
00001FD0: 20 4A 53 52 50 52 4D 41 4E 54 00 EA 23 22 42 20 | JSRPRMANT..#"B |
00001FE0: 4A 53 52 50 52 45 53 49 47 4E 00 F8 23 27 42 20 |JSRPRESIGN..#'B |
00001FF0: 4A 53 52 50 52 45 58 50 00 01 24 2C 42 20 52 54 |JSRPREXP..$,B RT|
00002000: 53 00 38 24 31 42 50 52 4D 53 49 47 4E 20 49 4E |S.8$1BPRMSIGN IN|
00002010: 59 3B 20 4D 41 4E 54 49 53 53 45 4E 2D 56 4F 52 |Y; MANTISSEN-VOR|
00002020: 5A 45 49 43 48 45 4E 20 49 53 54 20 49 4E 20 42 |ZEICHEN IST IN B|
00002030: 49 54 20 37 20 44 45 53 00 5F 24 36 42 20 4C 44 |IT 7 DES._$6B LD|
00002040: 41 28 50 54 29 2C 59 3B 20 45 58 50 4F 4E 45 4E |A(PT),Y; EXPONEN|
00002050: 54 20 55 4E 54 45 52 47 45 42 52 41 43 48 54 00 |T UNTERGEBRACHT.|
00002060: 68 24 3B 42 20 44 45 59 00 96 24 40 42 20 52 4F |h$;B DEY..$@B RO|
00002070: 4C 3B 20 56 4F 52 5A 45 49 43 48 45 4E 20 49 4E |L; VORZEICHEN IN|
00002080: 20 44 41 53 20 43 41 52 52 59 2D 46 4C 41 47 20 | DAS CARRY-FLAG |
00002090: 52 45 54 54 45 4E 00 A3 24 45 42 20 4C 44 41 23 |RETTEN..$EB LDA#|
000020A0: 22 20 22 00 B4 24 4A 42 20 42 43 43 44 4F 50 52 |" "..$JB BCCDOPR|
000020B0: 53 49 47 4E 00 C1 24 4F 42 20 4C 44 41 23 22 2D |SIGN..$OB LDA#"-|
000020C0: 22 00 D8 24 54 42 44 4F 50 52 53 49 47 4E 20 4A |"..$TBDOPRSIGN J|
000020D0: 53 52 42 41 53 4F 55 54 00 E1 24 59 42 20 49 4E |SRBASOUT..$YB IN|
000020E0: 59 00 02 25 5E 42 20 49 4E 59 3B 20 59 20 41 55 |Y..%^B INY; Y AU|
000020F0: 46 20 4D 41 4E 54 49 53 53 45 20 52 49 43 48 54 |F MANTISSE RICHT|
00002100: 45 4E 00 0B 25 63 42 20 52 54 53 00 47 25 68 42 |EN..%cB RTS.G%hB|
00002110: 50 52 49 50 41 52 54 20 4C 44 41 23 22 30 22 3B |PRIPART LDA#"0";|
00002120: 20 4E 4F 52 4D 41 4C 49 53 49 45 52 54 45 20 44 | NORMALISIERTE D|
00002130: 41 52 53 54 45 4C 4C 55 4E 47 20 46 41 45 4E 47 |ARSTELLUNG FAENG|
00002140: 54 20 49 4D 4D 45 52 00 63 25 6D 42 20 4A 53 52 |T IMMER.c%mB JSR|
00002150: 42 41 53 4F 55 54 3B 20 4D 49 54 20 22 30 2E 22 |BASOUT; MIT "0."|
00002160: 20 41 4E 00 70 25 72 42 20 4C 44 41 23 22 2E 22 | AN.p%rB LDA#"."|
00002170: 00 7F 25 77 42 20 4A 53 52 42 41 53 4F 55 54 00 |..%wB JSRBASOUT.|
00002180: 88 25 7C 42 20 52 54 53 00 9C 25 81 42 50 52 4D |.%|B RTS..%.BPRM|
00002190: 41 4E 54 20 4C 44 58 46 50 4C 45 4E 00 D3 25 86 |ANT LDXFPLEN..%.|
000021A0: 42 50 52 50 41 49 52 20 4C 44 41 28 50 54 29 2C |BPRPAIR LDA(PT),|
000021B0: 59 3B 20 32 20 5A 49 46 46 45 52 4E 20 45 4E 54 |Y; 2 ZIFFERN ENT|
000021C0: 50 41 43 4B 45 4E 20 55 4E 44 20 41 55 53 47 45 |PACKEN UND AUSGE|
000021D0: 42 45 4E 00 DC 25 8B 42 20 50 48 41 00 E9 25 90 |BEN..%.B PHA..%.|
000021E0: 42 20 41 4E 44 23 24 46 30 00 F2 25 95 42 20 4C |B AND#$F0..%.B L|
000021F0: 53 52 00 FB 25 9A 42 20 4C 53 52 00 04 26 9F 42 |SR..%.B LSR..&.B|
00002200: 20 4C 53 52 00 0D 26 A4 42 20 4C 53 52 00 1A 26 | LSR..&.B LSR..&|
00002210: A9 42 20 4F 52 41 23 22 30 22 00 29 26 AE 42 20 |.B ORA#"0".)&.B |
00002220: 4A 53 52 42 41 53 4F 55 54 00 32 26 B3 42 20 50 |JSRBASOUT.2&.B P|
00002230: 4C 41 00 3F 26 B8 42 20 41 4E 44 23 24 30 46 00 |LA.?&.B AND#$0F.|
00002240: 4C 26 BD 42 20 4F 52 41 23 22 30 22 00 5B 26 C2 |L&.B ORA#"0".[&.|
00002250: 42 20 4A 53 52 42 41 53 4F 55 54 00 64 26 C7 42 |B JSRBASOUT.d&.B|
00002260: 20 49 4E 59 00 6D 26 CC 42 20 44 45 58 00 7C 26 | INY.m&.B DEX.|&|
00002270: D1 42 20 42 4E 45 50 52 50 41 49 52 00 85 26 D6 |.B BNEPRPAIR..&.|
00002280: 42 20 52 54 53 00 C8 26 DB 42 3B 20 56 4F 52 5A |B RTS..&.B; VORZ|
00002290: 45 49 43 48 45 4E 20 44 45 53 20 45 58 50 4F 4E |EICHEN DES EXPON|
000022A0: 45 4E 54 45 4E 20 42 45 53 54 49 4D 4D 45 4E 20 |ENTEN BESTIMMEN |
000022B0: 55 4E 44 20 41 55 53 44 52 55 43 4B 45 4E 2C 20 |UND AUSDRUCKEN, |
000022C0: 45 58 50 4F 4E 45 4E 54 00 08 27 E0 42 3B 20 50 |EXPONENT..'.B; P|
000022D0: 4F 53 49 54 49 56 20 4D 41 43 48 45 4E 2C 20 57 |OSITIV MACHEN, W|
000022E0: 49 52 44 20 49 4D 20 58 20 28 4C 4F 57 29 20 55 |IRD IM X (LOW) U|
000022F0: 4E 44 20 41 20 28 48 49 47 48 29 20 48 49 4E 54 |ND A (HIGH) HINT|
00002300: 45 52 4C 41 53 53 45 4E 00 1C 27 E5 42 50 52 45 |ERLASSEN..'.BPRE|
00002310: 53 49 47 4E 20 4C 44 41 23 22 45 22 00 2B 27 EA |SIGN LDA#"E".+'.|
00002320: 42 20 4A 53 52 42 41 53 4F 55 54 00 36 27 EF 42 |B JSRBASOUT.6'.B|
00002330: 20 4C 44 59 23 30 00 45 27 F4 42 20 4C 44 41 28 | LDY#0.E'.B LDA(|
00002340: 50 54 29 2C 59 00 5C 27 F9 42 20 54 41 58 3B 20 |PT),Y.\'.B TAX; |
00002350: 45 58 50 4F 4E 45 4E 54 2D 4C 4F 57 00 65 27 FE |EXPONENT-LOW.e'.|
00002360: 42 20 49 4E 59 00 83 27 03 43 20 4C 44 41 28 50 |B INY..'.C LDA(P|
00002370: 54 29 2C 59 3B 20 45 58 50 4F 4E 45 4E 54 2D 48 |T),Y; EXPONENT-H|
00002380: 49 47 48 00 9B 27 08 43 20 41 4E 44 23 24 37 46 |IGH..'.C AND#$7F|
00002390: 3B 20 49 53 4F 4C 49 45 52 45 4E 00 A8 27 0D 43 |; ISOLIEREN..'.C|
000023A0: 20 43 4D 50 23 24 34 30 00 B7 27 12 43 20 42 43 | CMP#$40..'.C BC|
000023B0: 43 45 58 50 50 4F 53 00 C4 27 17 43 20 45 4F 52 |CEXPPOS..'.C EOR|
000023C0: 23 24 37 46 00 CD 27 1C 43 20 50 48 41 00 D6 27 |#$7F..'.C PHA..'|
000023D0: 21 43 20 54 58 41 00 E3 27 26 43 20 45 4F 52 23 |!C TXA..'&C EOR#|
000023E0: 24 46 46 00 EE 27 2B 43 20 41 44 43 23 30 00 F7 |$FF..'+C ADC#0..|
000023F0: 27 30 43 20 54 41 58 00 00 28 35 43 20 50 48 50 |'0C TAX..(5C PHP|
00002400: 00 0D 28 3A 43 20 4C 44 41 23 22 2D 22 00 1C 28 |..(:C LDA#"-"..(|
00002410: 3F 43 20 4A 53 52 42 41 53 4F 55 54 00 25 28 44 |?C JSRBASOUT.%(D|
00002420: 43 20 50 4C 50 00 2E 28 49 43 20 50 4C 41 00 39 |C PLP..(IC PLA.9|
00002430: 28 4E 43 20 41 44 43 23 30 00 42 28 53 43 20 52 |(NC ADC#0.B(SC R|
00002440: 54 53 00 51 28 58 43 45 58 50 50 4F 53 20 50 48 |TS.Q(XCEXPPOS PH|
00002450: 41 00 5E 28 5D 43 20 4C 44 41 23 22 2B 22 00 6D |A.^(]C LDA#"+".m|
00002460: 28 62 43 20 4A 53 52 42 41 53 4F 55 54 00 76 28 |(bC JSRBASOUT.v(|
00002470: 67 43 20 50 4C 41 00 7F 28 6C 43 20 52 54 53 00 |gC PLA..(lC RTS.|
00002480: A1 28 71 43 3B 20 5A 57 45 49 2D 42 59 54 45 2D |.(qC; ZWEI-BYTE-|
00002490: 45 58 50 4F 4E 45 4E 54 20 41 55 53 47 45 42 45 |EXPONENT AUSGEBE|
000024A0: 4E 00 B1 28 76 43 50 52 45 58 50 20 53 54 58 50 |N..(vCPREXP STXP|
000024B0: 54 00 D4 28 7B 43 20 53 54 41 50 54 2B 31 3B 20 |T..({C STAPT+1; |
000024C0: 41 4C 53 20 5A 57 49 53 43 48 45 4E 53 50 45 49 |ALS ZWISCHENSPEI|
000024D0: 43 48 45 52 00 DF 28 80 43 20 4C 44 41 23 30 00 |CHER..(.C LDA#0.|
000024E0: 0D 29 85 43 20 53 54 41 45 58 50 46 4C 41 47 3B |.).C STAEXPFLAG;|
000024F0: 20 4E 4F 43 48 20 4B 45 49 4E 45 20 5A 49 46 46 | NOCH KEINE ZIFF|
00002500: 45 52 20 41 55 53 47 45 47 45 42 45 4E 00 18 29 |ER AUSGEGEBEN..)|
00002510: 8A 43 20 4C 44 59 23 34 00 3C 29 8F 43 50 52 45 |.C LDY#4.<).CPRE|
00002520: 58 50 30 20 4C 44 41 23 22 30 22 3B 20 4E 41 45 |XP0 LDA#"0"; NAE|
00002530: 43 48 53 54 45 20 5A 49 46 46 45 52 00 48 29 94 |CHSTE ZIFFER.H).|
00002540: 43 20 53 54 41 44 49 47 00 59 29 99 43 50 52 45 |C STADIG.Y).CPRE|
00002550: 58 50 31 20 4C 44 41 50 54 00 62 29 9E 43 20 53 |XP1 LDAPT.b).C S|
00002560: 45 43 00 73 29 A3 43 20 53 42 43 4C 4F 57 54 41 |EC.s).C SBCLOWTA|
00002570: 42 2C 59 00 7C 29 A8 43 20 54 41 58 00 89 29 AD |B,Y.|).C TAX..).|
00002580: 43 20 4C 44 41 50 54 2B 31 00 9B 29 B2 43 20 53 |C LDAPT+1..).C S|
00002590: 42 43 48 49 47 48 54 41 42 2C 59 00 AA 29 B7 43 |BCHIGHTAB,Y..).C|
000025A0: 20 42 43 43 50 52 45 58 50 32 00 B6 29 BC 43 20 | BCCPREXP2..).C |
000025B0: 49 4E 43 44 49 47 00 E6 29 C1 43 20 44 45 43 45 |INCDIG..).C DECE|
000025C0: 58 50 46 4C 41 47 3B 20 4D 45 52 4B 45 2C 20 44 |XPFLAG; MERKE, D|
000025D0: 41 53 53 20 5A 49 46 46 45 52 3C 3E 30 20 47 45 |ASS ZIFFER<>0 GE|
000025E0: 46 55 4E 44 45 4E 00 F1 29 C6 43 20 53 54 58 50 |FUNDEN..).C STXP|
000025F0: 54 00 FE 29 CB 43 20 53 54 41 50 54 2B 31 00 0D |T..).C STAPT+1..|
00002600: 2A D0 43 20 42 43 53 50 52 45 58 50 31 00 23 2A |*.C BCSPREXP1.#*|
00002610: D5 43 50 52 45 58 50 32 20 42 49 54 45 58 50 46 |.CPREXP2 BITEXPF|
00002620: 4C 41 47 00 32 2A DA 43 20 42 50 4C 50 52 45 58 |LAG.2*.C BPLPREX|
00002630: 50 33 00 3E 2A DF 43 20 4C 44 41 44 49 47 00 4D |P3.>*.C LDADIG.M|
00002640: 2A E4 43 20 4A 53 52 42 41 53 4F 55 54 00 5C 2A |*.C JSRBASOUT.\*|
00002650: E9 43 50 52 45 58 50 33 20 44 45 59 00 7C 2A EE |.CPREXP3 DEY.|*.|
00002660: 43 20 42 50 4C 50 52 45 58 50 30 3B 20 4E 41 45 |C BPLPREXP0; NAE|
00002670: 43 48 53 54 45 20 5A 49 46 46 45 52 00 8C 2A F3 |CHSTE ZIFFER..*.|
00002680: 43 20 42 49 54 45 58 50 46 4C 41 47 00 BD 2A F8 |C BITEXPFLAG..*.|
00002690: 43 20 42 4D 49 50 52 45 58 50 34 3B 20 57 45 4E |C BMIPREXP4; WEN|
000026A0: 4E 20 4E 4F 43 48 20 47 41 52 20 4E 49 43 48 54 |N NOCH GAR NICHT|
000026B0: 53 20 41 55 53 47 45 47 45 42 45 4E 2C 00 E1 2A |S AUSGEGEBEN,..*|
000026C0: FD 43 20 4C 44 41 23 22 30 22 3B 20 4A 45 54 5A |.C LDA#"0"; JETZ|
000026D0: 54 20 45 49 4E 45 20 30 20 41 55 53 47 45 42 45 |T EINE 0 AUSGEBE|
000026E0: 4E 00 F0 2A 02 44 20 4A 53 52 42 41 53 4F 55 54 |N..*.D JSRBASOUT|
000026F0: 00 FF 2A 07 44 50 52 45 58 50 34 20 52 54 53 00 |..*.DPREXP4 RTS.|
00002700: 30 2B 0C 44 4C 4F 57 54 41 42 20 2E 42 59 3C 28 |0+.DLOWTAB .BY<(|
00002710: 31 29 2C 3C 28 31 30 29 2C 3C 28 31 30 30 29 2C |1),<(10),<(100),|
00002720: 3C 28 31 30 30 30 29 2C 3C 28 31 30 30 30 30 29 |<(1000),<(10000)|
00002730: 00 62 2B 11 44 48 49 47 48 54 41 42 20 2E 42 59 |.b+.DHIGHTAB .BY|
00002740: 3E 28 31 29 2C 3E 28 31 30 29 2C 3E 28 31 30 30 |>(1),>(10),>(100|
00002750: 29 2C 3E 28 31 30 30 30 29 2C 3E 28 31 30 30 30 |),>(1000),>(1000|
00002760: 30 29 00 83 2B 16 44 3B 20 56 41 52 49 41 42 4C |0)..+.D; VARIABL|
00002770: 45 20 46 55 45 52 20 49 2F 4F 2D 52 4F 55 54 49 |E FUER I/O-ROUTI|
00002780: 4E 45 4E 00 91 2B 1B 44 53 49 47 4E 20 2E 42 59 |NEN..+.DSIGN .BY|
00002790: 30 00 A0 2B 20 44 45 53 49 47 4E 20 2E 42 59 30 |0..+ DESIGN .BY0|
000027A0: 00 AD 2B 25 44 45 58 50 20 2E 57 4F 30 00 BB 2B |..+%DEXP .WO0..+|
000027B0: 2A 44 45 45 58 50 20 2E 57 4F 30 00 D8 2B 2F 44 |*DEEXP .WO0..+/D|
000027C0: 4D 41 4E 54 49 53 53 45 20 2E 2E 2E 44 53 28 4D |MANTISSE ...DS(M|
000027D0: 41 58 4C 45 4E 2A 32 29 00 E5 2B 34 44 44 49 47 |AXLEN*2)..+4DDIG|
000027E0: 20 2E 42 59 30 00 F6 2B 39 44 45 58 50 46 4C 41 | .BY0..+9DEXPFLA|
000027F0: 47 20 2E 42 59 30 00 11 2C 3E 44 4E 55 4D 42 45 |G .BY0..,>DNUMBE|
00002800: 52 20 2E 2E 2E 44 53 28 4D 41 58 4C 45 4E 2A 32 |R ...DS(MAXLEN*2|
00002810: 29 00 21 2C 43 44 4E 53 54 41 43 4B 20 2E 42 59 |).!,CDNSTACK .BY|
00002820: 30 00 4C 2C 48 44 2E 45 51 20 4D 41 58 53 54 41 |0.L,HD.EQ MAXSTA|
00002830: 43 4B 3D 28 53 54 41 43 4B 2D 4E 53 54 41 43 4B |CK=(STACK-NSTACK|
00002840: 29 2F 28 4D 41 58 4C 45 4E 2B 32 29 00 54 2C 4D |)/(MAXLEN+2).T,M|
00002850: 44 2E 45 4E 00 00 00 |D.EN... |
.....:;.5..:; UPN-RECHNER, AUF FPBCD-ROU
TINEN BASIERT.I..:; ARBEITET MIT STACK V
OM PROGRAMMENDE BIS $CFFF.X..:; BEFEHLE:
....:; LINKS PFEIL OBERSTEN BEIDEN ELEM
ENTE VERTAUSCHEN....:; ? OBER
STES ELEMENT AUSGEBEN....:; D
OBERSTES ELEMENT ENTFERNEN.:..:; ^
OBERSTES ELEMENT VERDOPPELN.U..:;
X BEENDEN.P.E:; +,-,*,/
RECHNEN...J:; ALLES ANDERE: ZAHL EINLES
EN...O:; ZAHLEN MIT VORZEICHEN MUESSEN M
IT EINER LEERSTELLE EINGELEITET WERDEN,.
'.T:; DAMIT DAS VORZEICHEN NICHT ALS SUB
TRAKTIONSBEFEHL MISSDEUTET WIRD.-.Y:;.Y.
.:MAIN LDA#14; MANTISSENLAENGE 28 STELLE
N.N..: JSRSETPRECISION.~..: JSRINITSTK..
..:MAINLOOP JSRPROMPT....: JSRBASIN....:
CMP#CR....: BEQMAINLOOP.M..; CMP#"?"...
.; BNENOPRINT....; JMPPRINTCOM....;NOPRI
NT CMP#"X"....; BNENOBREAK....; RTS./..;
NOBREAK CMP#"^".?.$; BNENOENTER.N.); LDA
NSTACK.^..; BNEENTEROK.O.3; JMPEMPTYSTK.
..8;ENTEROK JSRPOPSTK...=; JSRPUSHSTK...
B; JSRPUSHSTK...G; JMPMAINLOOP.J.L;NOENT
ER CMP#"D".Y.Q; BNENODROP...V; LDANSTACK
...[; BEQEMPTYSTK...`; JSRPOPSTK...E; JM
PMAINLOOP.>.J;NODROP CMP#$5F; PFEIL NACH
LINKS.M.O; BNENOSWAP.\.T; LDXNSTACK.G.Y
; CPX#2.X.~; BCCEMPTYSTK....; JSRPOPSTK.
...; JSRSWAPNUMBER....; JSRPOPSTK....; J
SRSWAPNUMBER.L..; JSRPUSHSTK....; JSRSWA
PNUMBER....; JMPPRINTPUSH....;NOSWAP CMP
#"+"....; BEQFOUNDOP.!..; CMP#"-".1..; B
EQFOUNDOP.>..; CMP#"*".N..; BEQFOUNDOP.[
.D; CMP#"/".K.I; BEQFOUNDOP.T.N; TAX...S
; ...LDAYI(NUMBER)...X; JSRINPUTFP....;
JSRPUSHSTK....; BCCMAINLOOP.P..; ...LDAY
I(SOVER)....;ERROR JSRPRINTS....; JMPMAI
N....;SOVER .TX"*** STACK OVERFLOW ***".
!..;.BY 0.8..<PRINTCOM LDANSTACK.K..< BN
EPRINTSTACK.I..<EMPTYSTK ...LDAYI(SEMPTY
).W..< JMPERROR....<SEMPTY .TX"*** STACK
EMPTY ***"....<.BY 0....<PRINTSTACK JSR
POPSTK...#<PRINTPUSH JSRPUSHSTK; ZAHL WI
EDER ZURUECK AUF STACK...(< ...LDAYI(NUM
BER)...-< JSRPRINTFP.-.2< JMPMAINLOOP.C.
7<FOUNDOP LDXNSTACK.N.<< CPX#2._.A< BCCE
MPTYSTK.H.F< PHA.W.K< JSRPOPSTK...P< ...
LDAYI(NUMBER)...U< JSRLOADARG2...Z< JSRP
OPSTK.C._< ...LDAYI(NUMBER).T.D< JSRLOAD
ARG1...I< PLA...N< CMP#"+"...S< BNENOPLU
S...X< JSRFPADD...}< JMPPUSHRES.*..<NOPL
US CMP#"-".:..< BNENOMINUS.H..< JSRFPSUB
.X..< JMPPUSHRES.L..<NOMINUS CMP#"*".|..
< BNENOTIMES... < JSRFPMULT....< JMPPUSH
RES....<NOTIMES JSRFPDIV.E..<PUSHRES BVC
RESOK.Z..< ...LDAYI(AOVER)....< JMPERROR
....<AOVER .TX"*** ARITHMETIC OVERFLOW *
**"...C<.BY 0.8.H<RESOK ...LDAYI(NUMBER)
.I.M< JSRSTOREAKK.[.R< JMPPRINTPUSH.N.W<
PROMPT JSRCRLF.}..< LDYNSTACK....< INY..
..< SED....< LDA#$99....<TODEC CLC....<
ADC#$01....< DEY.N..< BNETODEC.W..= CLD.
...= PHA....= LSR....= LSR....= LSR....=
LSR..."= JSRPRINTDD...'= PLA.-.,= JSRPR
INTDD.:.1= LDA#">".I.6= JSRBASOUT.R.;= R
TS.F.@=PRINTDD AND#$0F.S.E= ORA#"0"...J=
JMPBASOUT...O=INITSTK LDA#0...T= STANST
ACK...Y= ...MOVEWI(STACK,SP).E.^= RTS.Z.
C=POPSTK LDANSTACK...H= BNEPOP1...M= SEC
...R= RTS...W=POP1 DECNSTACK...|= LDXFPL
EN.-..=POP2 JSRDOPULL.J..= STANUMBER+1,X
; MANTISSE.S..= DEX.`..= BNEPOP2.O..= JS
RDOPULL....= STANUMBER+1; EXPONENT HIGH-
BYTE UND VORZEICHEN....= JSRDOPULL.T..=
STANUMBER; EXPONENT LOW-BYTE....= CLC...
.= RTS....=PUSHSTK LDANSTACK....= CMP#<(
MAXSTACK)....= BCCPUSH1.(.B= RTS.<.G=PUS
H1 INCNSTACK.K.L= LDANUMBER.Z.Q= JSRDOPU
SH.K.V= LDANUMBER+1.Z..= JSRDOPUSH....=
LDX#0....=PUSH2 LDANUMBER+2,X....= JSRDO
PUSH....= INX.C..= CPXFPLEN.Q..= BCCPUSH
2.Z..= CLC....> RTS. ..>SWAPNUMBER LDXFP
LEN; BENUTZT FPAKKU ALS ZWISCHENSPEICHER
.)..> INX.B..>SWAPLOOP LDANUMBER,X.K..>
PHA.\..> LDAFPAKKU,X.M.!> STANUMBER,X.V.
&> PLA...+> STAFPAKKU,X...0> DEX...5> CP
X#$FF...:> BNESWAPLOOP...?> RTS.O.D>DOPU
SH ...PUSHB(SP).X.I> RTS...N>DOPULL ...P
ULLB(SP)...S> RTS.;.X>INPUTFP ...STAY(PT
); ZIEL-ZEIGER FUER FERTIGE BCD-ZAHL MER
KEN.D.]> TXA.M.B> PHA...G> JSRCLEARBUF;
MANTISSE, EXPONENT UND VORZEICHEN LOESCH
EN...L> PLA...Q> JSRSKIPSPACE; LEERZEICH
EN UEBERLESEN...V> JSRGETMSIGN; VORZEICH
EN DER MANTISSE EINLESEN.(.{> JSRSKIPZER
O; VORNULLENUNTERDRUECKUNG FUER MANTISSE
.O..> JSRGETIPART; VORKOMMAANTEIL HOLEN.
\..> CMP#".".K..> BNETRYEXP.Y..> JSRBASI
N....> JSRGETFPART; NACHKOMMAANTEIL HOLE
N....>TRYEXP CMP#"E"....> BNECONVERTF; K
EIN EXPONENT: ZAHL IST FERTIG EINGELESEN
....> JSRBASIN.0..> JSRGETESIGN; VORZEIC
HEN DES EXPONENTEN HOLEN.I..> JSRSKIPZER
O; VORNULLENUNTERDRUECKUNG DES EXPONENTE
N....> JSRGETEXP; EXPONENT HOLEN UND MIT
DER.V..> JSRMAKEEXP; ANZAHL DER VOR- UN
D NACHKOMMASTELLEN KOMBINIEREN....>CONVE
RTF JSRCOPYSEX; SIGN UND EXPONENT KOPIER
EN.9.A> JSRCOPYMANT; MANTISSE KOPIEREN U
ND PACKEN.B.F> RTS...K>; ERGIBT CARRY CL
ER, WENN ZIFFER IM AKKU, CARRY SET WENN
KEINE ZIFFER...P>DIGIT CMP#"0"...U> BCCN
ODIGIT.A.Z> CMP#$3A;"9"+1.J..> RTS.Z..>N
ODIGIT SEC....> RTS....>; MANTISSEN-VORZ
EICHEN LESEN UND MERKEN, WENN VORHANDEN.
7..>GETMSIGN JSRGETSIGN.G..> BNENOMSIGN.
T..> STXSIGN.D..?NOMSIGN RTS....?; EXPON
ENTEN-VORZEICHEN LESEN UND MERKEN, WENN
VORHANDEN....?GETESIGN JSRGETSIGN.I..? B
NENOESIGN.W..? STXESIGN....?NOESIGN RTS.
,. ?; TESTE, OB AKKU VORZEICHEN ENTHAELT
, WENN JA, ZERO-FLAG SETZEN,.}.%?; IM X-
REGISTER ERGEBNIS (0 ODER $FF) UEBERGEBE
N UND NAECHSTES ZEICHEN LESEN...*?GETSIG
N LDX#$FF.../? CMP#"-"...4? BEQGOTSIGN..
.9? INX.D.>? CMP#"+".Z.C?GOTSIGN BNENOSI
GN...H? PHP; ZERO-FLAG MERKEN...M? JSRBA
SIN...R? PLP...W?NOSIGN RTS.@.\?; FUEHRE
NDE NULLEN UNTERDRUECKEN.U.A?SKIPZERO CM
P#"0".D.F? BNENOZERO.R.K? JSRBASIN...P?
JMPSKIPZERO...U?NOZERO RTS...Z?CLEARBUF
LDXDBLEN...? LDA#"0".R..?INITMANT STAMA
NTISSE-1,X....? DEX....? BNEINITMANT....
? STXEXP....? STXEXP+1.#..? STXEEXP; HIL
FS-EXPONENT.2..? STXEEXP+1.Z..? STXESIGN
; VORZEICHEN DES EXPONENTS.G..? STXSIGN.
P..? RTS....?; LEERZEICHEN, GESHIFTETE L
EERZEICHEN UND RETURN UEBERLESEN.F..?SKI
PSPACE CMP#" ".V..? BEQISSPACE...E? CMP#
$A0;$80+" "...J? BEQISSPACE...O? CMP#$0D
...T? BEQISSPACE.!.Y? RTS.6..?ISSPACE JS
RBASIN.H..? JMPSKIPSPACE.~..?; VORKOMMAS
TELLEN HOLEN, DABEI EXPONENT MITZAEHLE..
..?GETIPART LDX#0....?IPART JSRDIGIT....
? BCSIPARTEX....? CPXDBLEN; PASST ZEICHE
N NOCH IN BUFFER?....@ BCSNOISTORE....@
STAMANTISSE,X....@ INX.>..@NOISTORE INCE
XP; VORKOMMASTELLEN MITZAEHLEN.O..@ BNEN
EXTIDIG.]..@ INCEXP+1.S..@NEXTIDIG JSRBA
SIN...$@ JMPIPART...)@IPARTEX RTS.S..@;
NACHKOMMA-ANTEIL HOLEN, DABEI BEACHTEN,
OB UEBERHAUPT SCHON...3@; ZIFFERN IN DER
MANTISSE VORLIEGEN, WENN NICHT, ERST MA
L.=.8@; WIEDER FUEHRENDE NULLEN UNTERDRU
ECKEN.W.=@GETFPART CPX#0; WENN NOCH GAR
KEINE ZIFFERN GEFUNDEN,...B@ BNECONTMANT
; ERSTMAL WIEDER VORNULLEN UNTERDRUCKEN.
B.G@SKIPFZ CMP#"0"...L@ BNECONTMANT; UM
Z.B. DIE ZAHL 0.005 ZU 0.5 * 10 ^ -2...Q
@ LDAEXP...V@ BNEDECEXP1.&.[@ DECEXP+1.K
.`@DECEXP1 DECEXP; ZU NORMALISIEREN.Y.E@
JSRBASIN.H.J@ JMPSKIPFZ.~.O@CONTMANT JS
RDIGIT...T@ BCSFPARTEX; KEINE ZIFFER MEH
R -> MANTISSE FERTIG.O.Y@ CPXDBLEN; NOCH
PLATZ?...~@ BCSNOFSTORE....@ STAMANTISS
E,X....@ INX....@NOFSTORE JSRBASIN.#..@
JMPCONTMANT.3..@FPARTEX RTS.O..@; EXPONE
NT EINLESEN, KEINE FEHLERABFRAGE, EXPONE
NT MUSS....@; IM BEREICH VON 0 BIS 16383
LIEGEN!....@GETEXP JSRDIGIT....@ BCSGOT
EXP.H..@ AND#$0F....@ LDX#10; EEXP:=EEXP
*10+ZIFFER PRIMITIV ABER KURZ....@ LDY#0
....@EXPMAL10 CLC.&.D@ ADCEEXP./.I@ PHA.
8.N@ TYA.G.S@ ADCEEXP+1.P.X@ TAY.Y..@ PL
A.B..@ DEX.S..@ BNEEXPMAL10....@ STAEEXP
....@ STYEEXP+1....@ JSRBASIN....@ JMPGE
TEXP....AGOTEXP RTS.. .A; EXPLIZIT ANGEG
EBENEN EXPONT (EEXP) MIT POSITION DES DE
ZIMALPUNKTES.: .A; ZU EINER NORMALISIERT
EN DARSTELLUNG KOMBINIEREN.M .AMAKEEXP L
DAEXP.[ .A BITESIGN.J .A BPLADDEXP.S .A
SEC.. #A SBCEEXP.. (A STAEXP.. -A LDAEXP
+1.. 2A SBCEEXP+1.. 7A STAEXP+1.. <A RTS
.O AAADDEXP CLC.. FA ADCEEXP.. KA STAEXP
.. PA LDAEXP+1..!UA ADCEEXP+1..!ZA STAEX
P+1..!_A RTS.]!DA; VORZEICHEN UND EXPONE
NT AN DEN GEWUENSCHTEN PLATZ KOPIEREN..!
IA; UND DABEI PACKEN (VORZEICHEN DER MAN
TISSE -> BIT15 DES EXPONENTEN..!NACOPYSE
X LDY#0.C!SA LDAEXP.R!XA STA(PT),Y..!}A
INY..!.A LDAEXP+1..!.A AND#$7F..".A BITS
IGN..".A BPLCOPYSEX1.!".A ORA#$80.8".ACO
PYSEX1 STA(PT),Y.A" A INY.J".A RTS..".A;
MANTISSE PACKEN (IMMER 2 ZIFFERN IN EIN
BYTE) UND KOPIEREN..".ACOPYMANT LDX#0..
".ACMANTLO LDAMANTISSE,X.E".A AND#$0F.N"
.A ASL.W"CA ASL.."HA ASL.."MA ASL..#RA S
TASIGN; ZWISCHENSPEICHER..#WA LDAMANTISS
E+1,X.*#.A AND#$0F.7#.A ORASIGN.F#.A STA
(PT),Y.O#.A INY.X#.A INX.A#.A INX.O#.A C
PXDBLEN.#.A BCCCMANTLO..#.B RTS. #.BPRI
NTFP ...STAY(PT)..#.B LDY#0..#.B JSRPRMS
IGN.K#.B JSRPRIPART.Z#.B JSRPRMANT..#"B
JSRPRESIGN..#'B JSRPREXP..$,B RTS.8$1BPR
MSIGN INY; MANTISSEN-VORZEICHEN IST IN B
IT 7 DES._$6B LDA(PT),Y; EXPONENT UNTERG
EBRACHT.H$;B DEY..$@B ROL; VORZEICHEN IN
DAS CARRY-FLAG RETTEN..$EB LDA#" "..$JB
BCCDOPRSIGN.A$OB LDA#"-".X$TBDOPRSIGN J
SRBASOUT..$YB INY..%^B INY; Y AUF MANTIS
SE RICHTEN..%CB RTS.G%HBPRIPART LDA#"0";
NORMALISIERTE DARSTELLUNG FAENGT IMMER.
C%MB JSRBASOUT; MIT "0." AN.P%RB LDA#"."
.%WB JSRBASOUT..%|B RTS..%.BPRMANT LDXF
PLEN.S%.BPRPAIR LDA(PT),Y; 2 ZIFFERN ENT
PACKEN UND AUSGEBEN..%.B PHA..%.B AND#$F
0..%.B LSR..%.B LSR..&.B LSR..&.B LSR..&
.B ORA#"0".)&.B JSRBASOUT.2&.B PLA.?&.B
AND#$0F.L&.B ORA#"0".[&BB JSRBASOUT.D&GB
INY.M&LB DEX.|&QB BNEPRPAIR..&VB RTS.H&
.B; VORZEICHEN DES EXPONENTEN BESTIMMEN
UND AUSDRUCKEN, EXPONENT..'.B; POSITIV M
ACHEN, WIRD IM X (LOW) UND A (HIGH) HINT
ERLASSEN..'.BPRESIGN LDA#"E".+'.B JSRBAS
OUT.6'.B LDY#0.E'.B LDA(PT),Y.\'.B TAX;
EXPONENT-LOW.E'.B INY..'.C LDA(PT),Y; EX
PONENT-HIGH..'.C AND#$7F; ISOLIEREN..'.C
CMP#$40..'.C BCCEXPPOS.D'.C EOR#$7F.M'.
C PHA.V'!C TXA..'&C EOR#$FF..'+C ADC#0..
'0C TAX..(5C PHP..(:C LDA#"-"..(?C JSRBA
SOUT.%(DC PLP..(IC PLA.9(NC ADC#0.B(SC R
TS.Q(XCEXPPOS PHA.^(]C LDA#"+".M(BC JSRB
ASOUT.V(GC PLA.(LC RTS..(QC; ZWEI-BYTE-
EXPONENT AUSGEBEN..(VCPREXP STXPT.T({C S
TAPT+1; ALS ZWISCHENSPEICHER..(.C LDA#0.
.).C STAEXPFLAG; NOCH KEINE ZIFFER AUSGE
GEBEN..).C LDY#4.<).CPREXP0 LDA#"0"; NAE
CHSTE ZIFFER.H).C STADIG.Y).CPREXP1 LDAP
T.B).C SEC.S).C SBCLOWTAB,Y.|).C TAX..).
C LDAPT+1..).C SBCHIGHTAB,Y..).C BCCPREX
P2..).C INCDIG..)AC DECEXPFLAG; MERKE, D
ASS ZIFFER<>0 GEFUNDEN..)FC STXPT..)KC S
TAPT+1..*PC BCSPREXP1.#*UCPREXP2 BITEXPF
LAG.2*ZC BPLPREXP3.>*.C LDADIG.M*.C JSRB
ASOUT.\*.CPREXP3 DEY.|*.C BPLPREXP0; NAE
CHSTE ZIFFER..*.C BITEXPFLAG..*.C BMIPRE
XP4; WENN NOCH GAR NICHTS AUSGEGEBEN,..*
.C LDA#"0"; JETZT EINE 0 AUSGEBEN..*.D J
SRBASOUT..*.DPREXP4 RTS.0+.DLOWTAB .BY<(
1),<(10),<(100),<(1000),<(10000).B+.DHIG
HTAB .BY>(1),>(10),>(100),>(1000),>(1000
0)..+.D; VARIABLE FUER I/O-ROUTINEN..+.D
SIGN .BY0. + DESIGN .BY0..+%DEXP .WO0..+
*DEEXP .WO0.X+/DMANTISSE ...DS(MAXLEN*2)
..+4DDIG .BY0..+9DEXPFLAG .BY0..,>DNUMBE
R ...DS(MAXLEN*2).!,CDNSTACK .BY0.L,HD.E
Q MAXSTACK=(STACK-NSTACK)/(MAXLEN+2).T,M
D.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL