FPBCD.HY
FILE INFORMATION
FILENAME(S): FPBCD.HY
FILE TYPE(S): PRG
FILE SIZE: 12.6K
FIRST SEEN: 2025-11-30 01:13:14
APPEARS ON: 1 disk(s)
FILE HASH
50bc991d373d84877f6013a2bede7b502e2275d51ee3b46d3cb57c34f140f727
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15721 SEITE A | FPBCD.HY | PRG | C64er | 6 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 48 04 10 27 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |..H..';*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 00 8F 04 15 27 3B 2A 20 |********....';* |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000090: D6 04 1A 27 3B 2A 20 20 20 42 43 44 2D 46 4C 49 |...';* BCD-FLI|
000000A0: 45 53 53 4B 4F 4D 4D 41 2D 41 52 49 54 48 4D 45 |ESSKOMMA-ARITHME|
000000B0: 54 49 4B 2E 20 4D 41 4E 54 49 53 53 45 20 42 43 |TIK. MANTISSE BC|
000000C0: 44 20 4D 49 54 20 46 50 4C 45 4E 20 42 59 54 45 |D MIT FPLEN BYTE|
000000D0: 53 20 20 20 20 2A 00 1D 05 1F 27 3B 2A 20 20 20 |S *....';* |
000000E0: 20 20 20 20 20 20 20 4D 41 58 49 4D 41 4C 45 20 | MAXIMALE |
000000F0: 4D 41 4E 54 49 53 53 45 4E 4C 41 45 4E 47 45 3A |MANTISSENLAENGE:|
00000100: 20 32 35 34 20 5A 49 46 46 45 52 4E 20 20 20 20 | 254 ZIFFERN |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 64 05 | *.d.|
00000120: 24 27 3B 2A 20 20 20 20 20 20 20 20 20 20 45 58 |$';* EX|
00000130: 50 4F 4E 45 4E 54 20 42 49 4E 41 45 52 20 56 4F |PONENT BINAER VO|
00000140: 4E 20 2D 31 36 33 38 34 20 42 49 53 20 2B 31 36 |N -16384 BIS +16|
00000150: 33 38 33 20 20 20 20 20 20 20 20 20 20 20 20 20 |383 |
00000160: 20 20 20 2A 00 AB 05 29 27 3B 2A 20 20 20 20 20 | *...)';* |
00000170: 20 20 20 20 56 4F 52 5A 45 49 43 48 45 4E 20 47 | VORZEICHEN G|
00000180: 45 50 41 43 4B 54 20 49 4E 20 42 49 54 20 31 35 |EPACKT IN BIT 15|
00000190: 20 44 45 53 20 45 58 50 4F 4E 45 4E 54 20 20 20 | DES EXPONENT |
000001A0: 20 20 20 20 20 20 20 20 20 20 2A 00 F2 05 2E 27 | *....'|
000001B0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001F0: 2A 2A 00 01 06 33 27 2E 47 4C 20 53 50 3D 24 32 |**...3'.GL SP=$2|
00000200: 32 00 3F 06 38 27 2E 47 4C 20 4D 41 58 4C 45 4E |2.?.8'.GL MAXLEN|
00000210: 3D 31 35 3B 20 4D 41 58 49 4D 41 4C 20 33 30 20 |=15; MAXIMAL 30 |
00000220: 53 54 45 4C 4C 45 4E 20 4D 41 4E 54 49 53 53 45 |STELLEN MANTISSE|
00000230: 20 56 4F 52 45 49 4E 47 45 53 54 45 4C 4C 54 00 | VOREINGESTELLT.|
00000240: 93 06 3D 27 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..=';-----------|
00000250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000270: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000280: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000290: 2D 2D 2D 00 B2 06 42 27 3B 20 41 55 46 52 55 46 |---...B'; AUFRUF|
000002A0: 45 20 56 4F 4E 20 46 50 2D 52 4F 55 54 49 4E 45 |E VON FP-ROUTINE|
000002B0: 4E 3A 00 FC 06 47 27 3B 20 53 45 54 50 52 45 43 |N:...G'; SETPREC|
000002C0: 49 53 49 4F 4E 20 53 45 54 5A 54 20 4D 41 4E 54 |ISION SETZT MANT|
000002D0: 49 53 53 45 4E 4C 41 45 4E 47 45 20 28 49 4E 20 |ISSENLAENGE (IN |
000002E0: 42 59 54 45 2C 20 45 52 47 49 42 54 20 41 4B 4B |BYTE, ERGIBT AKK|
000002F0: 55 2A 32 20 5A 49 46 46 45 52 4E 29 00 39 07 4C |U*2 ZIFFERN).9.L|
00000300: 27 3B 20 4C 4F 41 44 41 52 47 31 3A 20 4C 41 45 |'; LOADARG1: LAE|
00000310: 44 54 20 46 50 2D 5A 41 48 4C 20 42 45 49 20 28 |DT FP-ZAHL BEI (|
00000320: 41 2F 59 29 20 49 4E 20 41 52 47 55 4D 45 4E 54 |A/Y) IN ARGUMENT|
00000330: 42 45 52 45 49 43 48 20 31 00 76 07 51 27 3B 20 |BEREICH 1.v.Q'; |
00000340: 4C 4F 41 44 41 52 47 32 3A 20 4C 41 45 44 54 20 |LOADARG2: LAEDT |
00000350: 46 50 2D 5A 41 48 4C 20 42 45 49 20 28 41 2F 59 |FP-ZAHL BEI (A/Y|
00000360: 29 20 49 4E 20 41 52 47 55 4D 45 4E 54 42 45 52 |) IN ARGUMENTBER|
00000370: 45 49 43 48 20 32 00 B4 07 56 27 3B 20 53 54 4F |EICH 2...V'; STO|
00000380: 52 45 41 4B 4B 3A 20 53 50 45 49 43 48 45 52 54 |REAKK: SPEICHERT|
00000390: 20 45 52 47 45 42 4E 49 53 20 45 49 4E 45 52 20 | ERGEBNIS EINER |
000003A0: 4F 50 45 52 41 54 49 4F 4E 20 4E 41 43 48 20 28 |OPERATION NACH (|
000003B0: 41 2F 59 29 00 FB 07 5B 27 3B 20 46 50 41 44 44 |A/Y)...['; FPADD|
000003C0: 2C 20 46 50 53 55 42 2C 20 46 50 4D 55 4C 54 2C |, FPSUB, FPMULT,|
000003D0: 20 46 50 44 49 56 20 56 45 52 4B 4E 55 45 50 46 | FPDIV VERKNUEPF|
000003E0: 45 4E 20 41 52 47 55 4D 45 4E 54 45 2C 20 4F 56 |EN ARGUMENTE, OV|
000003F0: 45 52 46 4C 4F 57 2D 46 4C 41 47 00 28 08 60 27 |ERFLOW-FLAG.(.`'|
00000400: 3B 20 57 49 52 44 20 42 45 49 20 46 4C 49 45 53 |; WIRD BEI FLIES|
00000410: 53 4B 4F 4D 4D 41 2D 55 45 42 45 52 4C 41 55 46 |SKOMMA-UEBERLAUF|
00000420: 20 47 45 53 45 54 5A 54 00 42 08 65 27 53 45 54 | GESETZT.B.e'SET|
00000430: 50 52 45 43 49 53 49 4F 4E 20 53 54 41 46 50 4C |PRECISION STAFPL|
00000440: 45 4E 00 4B 08 6A 27 20 41 53 4C 00 59 08 6F 27 |EN.K.j' ASL.Y.o'|
00000450: 20 53 54 41 44 42 4C 45 4E 00 62 08 74 27 20 52 | STADBLEN.b.t' R|
00000460: 54 53 00 A9 08 79 27 3B 20 46 4C 49 45 53 53 4B |TS...y'; FLIESSK|
00000470: 4F 4D 4D 41 5A 41 48 4C 20 56 4F 4E 20 28 41 2F |OMMAZAHL VON (A/|
00000480: 59 29 20 4E 41 43 48 20 41 52 47 55 4D 45 4E 54 |Y) NACH ARGUMENT|
00000490: 2D 50 55 46 46 45 52 20 31 20 4F 44 45 52 20 32 |-PUFFER 1 ODER 2|
000004A0: 20 4B 4F 50 49 45 52 45 4E 00 BC 08 7E 27 4C 4F | KOPIEREN...~'LO|
000004B0: 41 44 41 52 47 31 20 4C 44 58 23 30 00 CC 08 83 |ADARG1 LDX#0....|
000004C0: 27 20 42 45 51 4C 4F 41 44 41 52 47 00 DF 08 88 |' BEQLOADARG....|
000004D0: 27 4C 4F 41 44 41 52 47 32 20 4C 44 58 23 31 00 |'LOADARG2 LDX#1.|
000004E0: F1 08 8D 27 4C 4F 41 44 41 52 47 20 53 54 41 50 |...'LOADARG STAP|
000004F0: 54 00 FE 08 92 27 20 53 54 59 50 54 2B 31 00 0C |T....' STYPT+1..|
00000500: 09 97 27 20 4C 44 59 46 50 4C 45 4E 00 40 09 9C |..' LDYFPLEN.@..|
00000510: 27 20 49 4E 59 3B 20 4D 41 4E 54 49 53 53 45 20 |' INY; MANTISSE |
00000520: 2B 20 45 58 50 4F 4E 45 4E 54 20 2B 20 56 4F 52 |+ EXPONENT + VOR|
00000530: 5A 45 49 43 48 45 4E 20 4B 4F 50 49 45 52 45 4E |ZEICHEN KOPIEREN|
00000540: 00 57 09 A1 27 4C 4F 41 44 4C 4F 4F 50 20 4C 44 |.W..'LOADLOOP LD|
00000550: 41 28 50 54 29 2C 59 00 62 09 A6 27 20 43 50 58 |A(PT),Y.b..' CPX|
00000560: 23 30 00 72 09 AB 27 20 42 4E 45 50 55 54 41 52 |#0.r..' BNEPUTAR|
00000570: 47 32 00 81 09 B0 27 20 53 54 41 45 58 50 31 2C |G2....' STAEXP1,|
00000580: 59 00 92 09 B5 27 20 42 45 51 4E 45 58 54 42 59 |Y....' BEQNEXTBY|
00000590: 54 45 00 A8 09 BA 27 50 55 54 41 52 47 32 20 53 |TE....'PUTARG2 S|
000005A0: 54 41 45 58 50 32 2C 59 00 B9 09 BF 27 4E 45 58 |TAEXP2,Y....'NEX|
000005B0: 54 42 59 54 45 20 44 45 59 00 C6 09 C4 27 20 43 |TBYTE DEY....' C|
000005C0: 50 59 23 24 46 46 00 D7 09 C9 27 20 42 4E 45 4C |PY#$FF....' BNEL|
000005D0: 4F 41 44 4C 4F 4F 50 00 E2 09 CE 27 20 43 50 58 |OADLOOP....' CPX|
000005E0: 23 30 00 F2 09 D3 27 20 42 4E 45 55 4E 50 41 43 |#0....' BNEUNPAC|
000005F0: 4B 32 00 01 0A D8 27 20 4C 44 41 45 58 50 31 2B |K2....' LDAEXP1+|
00000600: 31 00 14 0A DD 27 20 4A 53 52 55 4E 50 41 43 4B |1....' JSRUNPACK|
00000610: 53 49 47 4E 00 23 0A E2 27 20 53 54 41 45 58 50 |SIGN.#..' STAEXP|
00000620: 31 2B 31 00 31 0A E7 27 20 53 54 59 53 49 47 4E |1+1.1..' STYSIGN|
00000630: 31 00 3A 0A EC 27 20 52 54 53 00 50 0A F1 27 55 |1.:..' RTS.P..'U|
00000640: 4E 50 41 43 4B 32 20 4C 44 41 45 58 50 32 2B 31 |NPACK2 LDAEXP2+1|
00000650: 00 63 0A F6 27 20 4A 53 52 55 4E 50 41 43 4B 53 |.c..' JSRUNPACKS|
00000660: 49 47 4E 00 72 0A FB 27 20 53 54 41 45 58 50 32 |IGN.r..' STAEXP2|
00000670: 2B 31 00 80 0A 00 28 20 53 54 59 53 49 47 4E 32 |+1....( STYSIGN2|
00000680: 00 89 0A 05 28 20 52 54 53 00 C4 0A 0A 28 55 4E |....( RTS....(UN|
00000690: 50 41 43 4B 53 49 47 4E 20 4C 44 59 23 24 30 30 |PACKSIGN LDY#$00|
000006A0: 3B 20 56 4F 52 5A 45 49 43 48 45 4E 20 41 55 53 |; VORZEICHEN AUS|
000006B0: 20 42 49 54 20 37 20 49 4E 20 59 2D 52 45 47 49 | BIT 7 IN Y-REGI|
000006C0: 53 54 45 52 00 D1 0A 0F 28 20 43 4D 50 23 24 38 |STER....( CMP#$8|
000006D0: 30 00 F8 0A 14 28 20 41 4E 44 23 24 37 46 3B 20 |0....( AND#$7F; |
000006E0: 45 58 50 4F 4E 45 4E 54 2D 42 49 54 53 20 41 55 |EXPONENT-BITS AU|
000006F0: 53 46 49 4C 54 45 52 4E 00 07 0B 19 28 20 42 43 |SFILTERN....( BC|
00000700: 43 45 58 54 45 58 50 00 10 0B 1E 28 20 44 45 59 |CEXTEXP....( DEY|
00000710: 00 41 0B 23 28 45 58 54 45 58 50 20 43 4D 50 23 |.A.#(EXTEXP CMP#|
00000720: 24 34 30 3B 20 45 58 50 4F 4E 45 4E 54 20 56 4F |$40; EXPONENT VO|
00000730: 52 5A 45 49 43 48 45 4E 45 52 57 45 49 54 45 52 |RZEICHENERWEITER|
00000740: 4E 00 51 0B 28 28 20 42 43 43 53 49 47 4E 50 4F |N.Q.(( BCCSIGNPO|
00000750: 53 00 5E 0B 2D 28 20 4F 52 41 23 24 38 30 00 6E |S.^.-( ORA#$80.n|
00000760: 0B 32 28 53 49 47 4E 50 4F 53 20 52 54 53 00 9C |.2(SIGNPOS RTS..|
00000770: 0B 37 28 3B 20 46 4C 49 45 53 53 4B 4F 4D 4D 41 |.7(; FLIESSKOMMA|
00000780: 2D 41 4B 4B 55 20 4E 41 43 48 20 28 41 2F 59 29 |-AKKU NACH (A/Y)|
00000790: 20 41 42 53 50 45 49 43 48 45 52 4E 00 AF 0B 3C | ABSPEICHERN...<|
000007A0: 28 53 54 4F 52 45 41 4B 4B 20 53 54 41 50 54 00 |(STOREAKK STAPT.|
000007B0: BC 0B 41 28 20 53 54 59 50 54 2B 31 00 CA 0B 46 |..A( STYPT+1...F|
000007C0: 28 20 4C 44 59 46 50 4C 45 4E 00 01 0C 4B 28 20 |( LDYFPLEN...K( |
000007D0: 49 4E 59 3B 20 32 20 42 59 54 45 20 5A 55 53 41 |INY; 2 BYTE ZUSA|
000007E0: 45 54 5A 4C 49 43 48 20 28 56 4F 52 5A 45 49 43 |ETZLICH (VORZEIC|
000007F0: 48 45 4E 20 55 4E 44 20 45 58 50 4F 4E 45 4E 54 |HEN UND EXPONENT|
00000800: 29 00 1A 0C 50 28 53 54 4F 52 45 4C 4F 4F 20 4C |)...P(STORELOO L|
00000810: 44 41 45 58 50 41 4B 4B 2C 59 00 29 0C 55 28 20 |DAEXPAKK,Y.).U( |
00000820: 53 54 41 28 50 54 29 2C 59 00 32 0C 5A 28 20 44 |STA(PT),Y.2.Z( D|
00000830: 45 59 00 3F 0C 5F 28 20 43 50 59 23 24 46 46 00 |EY.?._( CPY#$FF.|
00000840: 50 0C 64 28 20 42 4E 45 53 54 4F 52 45 4C 4F 4F |P.d( BNESTORELOO|
00000850: 00 59 0C 69 28 20 52 54 53 00 6C 0C 6E 28 46 50 |.Y.i( RTS.l.n(FP|
00000860: 41 44 44 20 4C 44 41 53 49 47 4E 31 00 7C 0C 73 |ADD LDASIGN1.|.s|
00000870: 28 20 53 54 41 53 49 47 4E 41 4B 4B 00 8A 0C 78 |( STASIGNAKK...x|
00000880: 28 20 43 4D 50 53 49 47 4E 32 00 99 0C 7D 28 20 |( CMPSIGN2...}( |
00000890: 42 45 51 46 50 41 44 44 31 00 A9 0C 82 28 20 4A |BEQFPADD1....( J|
000008A0: 53 52 44 4F 53 55 42 54 52 00 B2 0C 87 28 20 52 |SRDOSUBTR....( R|
000008B0: 54 53 00 C6 0C 8C 28 46 50 41 44 44 31 20 4A 53 |TS....(FPADD1 JS|
000008C0: 52 44 4F 41 44 44 00 CF 0C 91 28 20 52 54 53 00 |RDOADD....( RTS.|
000008D0: E2 0C 96 28 46 50 53 55 42 20 4C 44 41 53 49 47 |...(FPSUB LDASIG|
000008E0: 4E 31 00 F2 0C 9B 28 20 53 54 41 53 49 47 4E 41 |N1....( STASIGNA|
000008F0: 4B 4B 00 00 0D A0 28 20 43 4D 50 53 49 47 4E 32 |KK....( CMPSIGN2|
00000900: 00 0F 0D A5 28 20 42 4E 45 46 50 53 55 42 31 00 |....( BNEFPSUB1.|
00000910: 1F 0D AA 28 20 4A 53 52 44 4F 53 55 42 54 52 00 |...( JSRDOSUBTR.|
00000920: 28 0D AF 28 20 52 54 53 00 3C 0D B4 28 46 50 53 |(..( RTS.<..(FPS|
00000930: 55 42 31 20 4A 53 52 44 4F 41 44 44 00 45 0D B9 |UB1 JSRDOADD.E..|
00000940: 28 20 52 54 53 00 6F 0D BE 28 44 4F 41 44 44 20 |( RTS.o..(DOADD |
00000950: 4A 53 52 4E 4F 52 4D 41 52 47 53 3B 20 41 52 47 |JSRNORMARGS; ARG|
00000960: 55 4D 45 4E 54 45 20 41 4E 50 41 53 53 45 4E 00 |UMENTE ANPASSEN.|
00000970: 7D 0D C3 28 20 4C 44 58 46 50 4C 45 4E 00 86 0D |}..( LDXFPLEN...|
00000980: C8 28 20 43 4C 43 00 8F 0D CD 28 20 53 45 44 00 |.( CLC....( SED.|
00000990: 98 0D D2 28 20 43 4C 43 00 DD 0D D7 28 46 50 41 |...( CLC....(FPA|
000009A0: 4C 4F 4F 50 20 4C 44 41 46 50 41 52 47 31 2D 31 |LOOP LDAFPARG1-1|
000009B0: 2C 58 3B 20 45 52 47 45 42 4E 49 53 20 55 4D 20 |,X; ERGEBNIS UM |
000009C0: 31 20 42 59 54 45 20 4E 41 43 48 20 52 45 43 48 |1 BYTE NACH RECH|
000009D0: 54 53 20 56 45 52 53 43 48 4F 42 45 4E 00 15 0E |TS VERSCHOBEN...|
000009E0: DC 28 20 41 44 43 46 50 41 52 47 32 2D 31 2C 58 |.( ADCFPARG2-1,X|
000009F0: 3B 20 41 42 4C 45 47 45 4E 2C 20 44 41 4D 49 54 |; ABLEGEN, DAMIT|
00000A00: 20 50 4C 41 54 5A 20 46 55 45 52 20 55 45 42 45 | PLATZ FUER UEBE|
00000A10: 52 4C 41 55 46 00 35 0E E1 28 20 53 54 41 46 50 |RLAUF.5..( STAFP|
00000A20: 41 4B 4B 55 2C 58 3B 20 56 4F 52 48 41 4E 44 45 |AKKU,X; VORHANDE|
00000A30: 4E 20 49 53 54 00 3E 0E E6 28 20 44 45 58 00 4E |N IST.>..( DEX.N|
00000A40: 0E EB 28 20 42 4E 45 46 50 41 4C 4F 4F 50 00 59 |..( BNEFPALOOP.Y|
00000A50: 0E F0 28 20 4C 44 41 23 30 00 87 0E F5 28 20 52 |..( LDA#0....( R|
00000A60: 4F 4C 3B 20 55 45 42 45 52 54 52 41 47 20 41 55 |OL; UEBERTRAG AU|
00000A70: 53 20 43 41 52 52 59 20 42 45 52 55 43 4B 53 49 |S CARRY BERUCKSI|
00000A80: 43 48 54 49 47 45 4E 00 96 0E FA 28 20 53 54 41 |CHTIGEN....( STA|
00000A90: 46 50 41 4B 4B 55 00 9F 0E FF 28 20 43 4C 44 00 |FPAKKU....( CLD.|
00000AA0: AE 0E 04 29 20 4C 44 41 45 58 50 41 4B 4B 00 B7 |...) LDAEXPAKK..|
00000AB0: 0E 09 29 20 43 4C 43 00 E9 0E 0E 29 20 41 44 43 |..) CLC....) ADC|
00000AC0: 23 32 3B 20 45 52 47 45 42 4E 49 53 20 49 53 54 |#2; ERGEBNIS IST|
00000AD0: 20 4A 41 20 55 4D 20 31 20 42 59 54 45 20 3D 20 | JA UM 1 BYTE = |
00000AE0: 32 20 53 54 45 4C 4C 45 4E 00 F8 0E 13 29 20 53 |2 STELLEN....) S|
00000AF0: 54 41 45 58 50 41 4B 4B 00 38 0F 18 29 20 4C 44 |TAEXPAKK.8..) LD|
00000B00: 41 45 58 50 41 4B 4B 2B 31 3B 20 4E 41 43 48 20 |AEXPAKK+1; NACH |
00000B10: 52 45 43 48 54 53 20 56 45 52 53 43 48 4F 42 45 |RECHTS VERSCHOBE|
00000B20: 4E 2C 20 44 49 45 53 20 42 45 52 55 45 43 4B 53 |N, DIES BERUECKS|
00000B30: 49 43 48 54 49 47 45 4E 00 43 0F 1D 29 20 41 44 |ICHTIGEN.C..) AD|
00000B40: 43 23 30 00 54 0F 22 29 20 53 54 41 45 58 50 41 |C#0.T.") STAEXPA|
00000B50: 4B 4B 2B 31 00 62 0F 27 29 20 49 4E 43 46 50 4C |KK+1.b.') INCFPL|
00000B60: 45 4E 00 8B 0F 2C 29 20 4A 53 52 4E 4F 52 4D 41 |EN...,) JSRNORMA|
00000B70: 4B 4B 55 3B 20 45 52 47 45 42 4E 49 53 20 4E 4F |KKU; ERGEBNIS NO|
00000B80: 52 4D 41 4C 49 53 49 45 52 45 4E 00 99 0F 31 29 |RMALISIEREN...1)|
00000B90: 20 44 45 43 46 50 4C 45 4E 00 A8 0F 36 29 20 42 | DECFPLEN...6) B|
00000BA0: 56 53 46 50 41 4F 56 4C 00 C5 0F 3B 29 20 4A 53 |VSFPAOVL...;) JS|
00000BB0: 52 52 4F 55 4E 44 41 4B 4B 3B 20 55 4E 44 20 52 |RROUNDAKK; UND R|
00000BC0: 55 4E 44 45 4E 00 D6 0F 40 29 20 4A 53 52 43 48 |UNDEN...@) JSRCH|
00000BD0: 4B 4D 4E 55 4C 4C 00 07 10 45 29 20 4A 53 52 50 |KMNULL...E) JSRP|
00000BE0: 41 43 4B 53 49 47 4E 3B 20 56 4F 52 5A 45 49 43 |ACKSIGN; VORZEIC|
00000BF0: 48 45 4E 20 55 4E 44 20 45 58 50 4F 4E 45 4E 54 |HEN UND EXPONENT|
00000C00: 20 50 41 43 4B 45 4E 00 16 10 4A 29 46 50 41 4F | PACKEN...J)FPAO|
00000C10: 56 4C 20 52 54 53 00 2D 10 4F 29 44 4F 53 55 42 |VL RTS.-.O)DOSUB|
00000C20: 54 52 20 4A 53 52 43 4F 4D 50 41 42 53 00 3B 10 |TR JSRCOMPABS.;.|
00000C30: 54 29 20 42 43 53 4E 4F 58 43 48 00 69 10 59 29 |T) BCSNOXCH.i.Y)|
00000C40: 20 4C 44 58 46 50 4C 45 4E 3B 20 46 41 4C 4C 53 | LDXFPLEN; FALLS|
00000C50: 20 41 42 53 28 46 50 41 52 47 31 29 3C 41 42 53 | ABS(FPARG1)<ABS|
00000C60: 28 46 50 41 52 47 32 29 2C 00 A0 10 5E 29 58 43 |(FPARG2),...^)XC|
00000C70: 48 4C 4F 4F 50 20 4C 44 41 46 50 41 52 47 31 2D |HLOOP LDAFPARG1-|
00000C80: 31 2C 58 3B 20 56 4F 52 20 53 55 42 54 52 41 4B |1,X; VOR SUBTRAK|
00000C90: 54 49 4F 4E 20 56 45 52 54 41 55 53 43 48 45 4E |TION VERTAUSCHEN|
00000CA0: 00 B3 10 63 29 20 4C 44 59 46 50 41 52 47 32 2D |...c) LDYFPARG2-|
00000CB0: 31 2C 58 00 C6 10 68 29 20 53 54 41 46 50 41 52 |1,X...h) STAFPAR|
00000CC0: 47 32 2D 31 2C 58 00 CF 10 6D 29 20 54 59 41 00 |G2-1,X...m) TYA.|
00000CD0: E2 10 72 29 20 53 54 41 46 50 41 52 47 31 2D 31 |..r) STAFPARG1-1|
00000CE0: 2C 58 00 EB 10 77 29 20 44 45 58 00 FB 10 7C 29 |,X...w) DEX...|)|
00000CF0: 20 42 4E 45 58 43 48 4C 4F 4F 50 00 1E 11 81 29 | BNEXCHLOOP....)|
00000D00: 20 4C 44 58 23 31 3B 20 45 58 50 4F 4E 45 4E 54 | LDX#1; EXPONENT|
00000D10: 45 4E 20 41 55 53 54 41 55 53 43 48 45 4E 00 34 |EN AUSTAUSCHEN.4|
00000D20: 11 86 29 53 57 41 50 45 58 50 20 4C 44 41 45 58 |..)SWAPEXP LDAEX|
00000D30: 50 31 2C 58 00 43 11 8B 29 20 4C 44 59 45 58 50 |P1,X.C..) LDYEXP|
00000D40: 32 2C 58 00 52 11 90 29 20 53 54 41 45 58 50 32 |2,X.R..) STAEXP2|
00000D50: 2C 58 00 5B 11 95 29 20 54 59 41 00 6A 11 9A 29 |,X.[..) TYA.j..)|
00000D60: 20 53 54 41 45 58 50 31 2C 58 00 73 11 9F 29 20 | STAEXP1,X.s..) |
00000D70: 44 45 58 00 83 11 A4 29 20 42 50 4C 53 57 41 50 |DEX....) BPLSWAP|
00000D80: 45 58 50 00 93 11 A9 29 20 4C 44 41 53 49 47 4E |EXP....) LDASIGN|
00000D90: 41 4B 4B 00 A0 11 AE 29 20 45 4F 52 23 24 38 30 |AKK....) EOR#$80|
00000DA0: 00 B0 11 B3 29 20 53 54 41 53 49 47 4E 41 4B 4B |....) STASIGNAKK|
00000DB0: 00 C6 11 B8 29 4E 4F 58 43 48 20 4A 53 52 4E 4F |....)NOXCH JSRNO|
00000DC0: 52 4D 41 52 47 53 00 D4 11 BD 29 20 4C 44 58 46 |RMARGS....) LDXF|
00000DD0: 50 4C 45 4E 00 DD 11 C2 29 20 53 45 44 00 E6 11 |PLEN....) SED...|
00000DE0: C7 29 20 53 45 43 00 00 12 CC 29 46 50 53 4C 4F |.) SEC....)FPSLO|
00000DF0: 4F 50 20 4C 44 41 46 50 41 52 47 31 2D 31 2C 58 |OP LDAFPARG1-1,X|
00000E00: 00 13 12 D1 29 20 53 42 43 46 50 41 52 47 32 2D |....) SBCFPARG2-|
00000E10: 31 2C 58 00 26 12 D6 29 20 53 54 41 46 50 41 4B |1,X.&..) STAFPAK|
00000E20: 4B 55 2D 31 2C 58 00 2F 12 DB 29 20 44 45 58 00 |KU-1,X./..) DEX.|
00000E30: 3F 12 E0 29 20 42 4E 45 46 50 53 4C 4F 4F 50 00 |?..) BNEFPSLOOP.|
00000E40: 48 12 E5 29 20 43 4C 44 00 59 12 EA 29 20 4A 53 |H..) CLD.Y..) JS|
00000E50: 52 4E 4F 52 4D 41 4B 4B 55 00 68 12 EF 29 20 42 |RNORMAKKU.h..) B|
00000E60: 56 53 46 50 53 4F 56 4C 00 79 12 F4 29 20 4A 53 |VSFPSOVL.y..) JS|
00000E70: 52 52 4F 55 4E 44 41 4B 4B 00 8A 12 F9 29 20 4A |RROUNDAKK....) J|
00000E80: 53 52 43 48 4B 4D 4E 55 4C 4C 00 9B 12 FE 29 20 |SRCHKMNULL....) |
00000E90: 4A 53 52 50 41 43 4B 53 49 47 4E 00 AA 12 03 2A |JSRPACKSIGN....*|
00000EA0: 46 50 53 4F 56 4C 20 52 54 53 00 F7 12 08 2A 3B |FPSOVL RTS....*;|
00000EB0: 20 50 41 43 4B 54 20 4D 41 4E 54 49 53 53 45 4E | PACKT MANTISSEN|
00000EC0: 56 4F 52 5A 45 49 43 48 45 4E 20 55 4E 44 20 45 |VORZEICHEN UND E|
00000ED0: 58 50 4F 4E 45 4E 54 20 49 4E 20 32 20 42 59 54 |XPONENT IN 2 BYT|
00000EE0: 45 20 28 42 45 49 20 45 58 50 41 4B 4B 2F 45 58 |E (BEI EXPAKK/EX|
00000EF0: 50 41 4B 4B 2B 31 29 00 34 13 0D 2A 3B 20 53 45 |PAKK+1).4..*; SE|
00000F00: 54 5A 54 20 4F 56 45 52 46 4C 4F 57 2D 42 49 54 |TZT OVERFLOW-BIT|
00000F10: 2C 20 57 45 4E 4E 20 45 58 50 4F 4E 45 4E 54 20 |, WENN EXPONENT |
00000F20: 4E 49 43 48 54 20 49 4D 20 42 45 52 45 49 43 48 |NICHT IM BEREICH|
00000F30: 20 56 4F 4E 00 51 13 12 2A 3B 20 2D 31 36 33 38 | VON.Q..*; -1638|
00000F40: 34 20 42 49 53 20 31 36 33 38 33 20 4C 49 45 47 |4 BIS 16383 LIEG|
00000F50: 54 00 6A 13 17 2A 50 41 43 4B 53 49 47 4E 20 4C |T.j..*PACKSIGN L|
00000F60: 44 41 45 58 50 41 4B 4B 2B 31 00 82 13 1C 2A 20 |DAEXPAKK+1....* |
00000F70: 41 4E 44 23 24 43 30 3B 20 25 31 31 30 30 30 30 |AND#$C0; %110000|
00000F80: 30 30 00 93 13 21 2A 20 42 45 51 45 58 50 41 4B |00...!* BEQEXPAK|
00000F90: 4B 4F 4B 00 A0 13 26 2A 20 43 4D 50 23 24 43 30 |KOK...&* CMP#$C0|
00000FA0: 00 B1 13 2B 2A 20 42 45 51 45 58 50 41 4B 4B 4F |...+* BEQEXPAKKO|
00000FB0: 4B 00 BE 13 30 2A 20 43 4D 50 23 24 38 30 00 CF |K...0* CMP#$80..|
00000FC0: 13 35 2A 20 42 45 51 54 4F 4F 53 4D 41 4C 4C 00 |.5* BEQTOOSMALL.|
00000FD0: E0 13 3A 2A 20 42 49 54 4F 56 45 52 46 4C 4F 57 |..:* BITOVERFLOW|
00000FE0: 00 E9 13 3F 2A 20 52 54 53 00 02 14 44 2A 45 58 |...?* RTS...D*EX|
00000FF0: 50 41 4B 4B 4F 4B 20 4C 44 41 45 58 50 41 4B 4B |PAKKOK LDAEXPAKK|
00001000: 2B 31 00 0F 14 49 2A 20 41 4E 44 23 24 37 46 00 |+1...I* AND#$7F.|
00001010: 1F 14 4E 2A 20 42 49 54 53 49 47 4E 41 4B 4B 00 |..N* BITSIGNAKK.|
00001020: 2E 14 53 2A 20 42 50 4C 41 4B 4B 50 4F 53 00 3B |..S* BPLAKKPOS.;|
00001030: 14 58 2A 20 4F 52 41 23 24 38 30 00 52 14 5D 2A |.X* ORA#$80.R.]*|
00001040: 41 4B 4B 50 4F 53 20 53 54 41 45 58 50 41 4B 4B |AKKPOS STAEXPAKK|
00001050: 2B 31 00 5B 14 62 2A 20 43 4C 56 00 64 14 67 2A |+1.[.b* CLV.d.g*|
00001060: 20 52 54 53 00 7C 14 6C 2A 54 4F 4F 53 4D 41 4C | RTS.|.l*TOOSMAL|
00001070: 4C 20 4A 53 52 5A 45 52 4F 46 41 4B 00 85 14 71 |L JSRZEROFAK...q|
00001080: 2A 20 43 4C 56 00 8E 14 76 2A 20 52 54 53 00 E0 |* CLV...v* RTS..|
00001090: 14 7B 2A 3B 20 55 45 42 45 52 50 52 55 45 46 45 |.{*; UEBERPRUEFE|
000010A0: 2C 20 4F 42 20 44 41 53 20 45 52 47 45 42 4E 49 |, OB DAS ERGEBNI|
000010B0: 53 20 22 2D 30 22 20 4C 41 55 54 45 54 20 55 4E |S "-0" LAUTET UN|
000010C0: 44 20 4B 4F 52 52 49 47 49 45 52 45 20 5A 55 20 |D KORRIGIERE ZU |
000010D0: 22 2B 30 22 20 57 45 4E 4E 20 4E 4F 45 54 49 47 |"+0" WENN NOETIG|
000010E0: 00 F8 14 80 2A 43 48 4B 4D 4E 55 4C 4C 20 4C 44 |....*CHKMNULL LD|
000010F0: 41 53 49 47 4E 41 4B 4B 00 09 15 85 2A 20 42 50 |ASIGNAKK....* BP|
00001100: 4C 4E 4F 4D 49 4E 55 53 4E 00 18 15 8A 2A 20 4C |LNOMINUSN....* L|
00001110: 44 41 45 58 50 41 4B 4B 00 29 15 8F 2A 20 4F 52 |DAEXPAKK.)..* OR|
00001120: 41 45 58 50 41 4B 4B 2B 31 00 3A 15 94 2A 20 42 |AEXPAKK+1.:..* B|
00001130: 4E 45 4E 4F 4D 49 4E 55 53 4E 00 49 15 99 2A 20 |NENOMINUSN.I..* |
00001140: 4C 44 41 46 50 41 4B 4B 55 00 5A 15 9E 2A 20 42 |LDAFPAKKU.Z..* B|
00001150: 4E 45 4E 4F 4D 49 4E 55 53 4E 00 6A 15 A3 2A 20 |NENOMINUSN.j..* |
00001160: 53 54 41 53 49 47 4E 41 4B 4B 00 7B 15 A8 2A 4E |STASIGNAKK.{..*N|
00001170: 4F 4D 49 4E 55 53 4E 20 52 54 53 00 C2 15 AD 2A |OMINUSN RTS....*|
00001180: 3B 20 56 45 52 53 43 48 49 45 42 45 20 4D 41 4E |; VERSCHIEBE MAN|
00001190: 54 49 53 53 45 20 44 45 53 20 4B 4C 45 49 4E 45 |TISSE DES KLEINE|
000011A0: 52 45 4E 20 41 52 47 55 4D 45 4E 54 53 20 53 4F |REN ARGUMENTS SO|
000011B0: 20 4E 41 43 48 20 52 45 43 48 54 53 2C 20 44 41 | NACH RECHTS, DA|
000011C0: 53 53 00 13 16 B2 2A 3B 20 41 4E 53 43 48 4C 49 |SS....*; ANSCHLI|
000011D0: 45 53 53 45 4E 44 20 53 54 45 4C 4C 45 4E 52 49 |ESSEND STELLENRI|
000011E0: 43 48 54 49 47 45 20 41 44 44 49 54 49 4F 4E 2F |CHTIGE ADDITION/|
000011F0: 53 55 42 54 52 41 4B 54 49 4F 4E 20 41 55 53 47 |SUBTRAKTION AUSG|
00001200: 45 46 55 45 48 52 54 20 57 45 52 44 45 4E 20 4B |EFUEHRT WERDEN K|
00001210: 41 4E 4E 00 53 16 B7 2A 3B 20 41 55 53 53 45 52 |ANN.S..*; AUSSER|
00001220: 44 45 4D 20 57 49 52 44 20 44 45 52 20 45 58 50 |DEM WIRD DER EXP|
00001230: 4F 4E 45 4E 54 20 44 45 53 20 45 52 47 45 42 4E |ONENT DES ERGEBN|
00001240: 49 53 53 45 53 20 48 49 45 52 20 42 45 53 54 49 |ISSES HIER BESTI|
00001250: 4D 4D 54 00 64 16 BC 2A 4E 4F 52 4D 41 52 47 53 |MMT.d..*NORMARGS|
00001260: 20 53 45 43 00 71 16 C1 2A 20 4C 44 41 45 58 50 | SEC.q..* LDAEXP|
00001270: 31 00 80 16 C6 2A 20 53 54 41 45 58 50 41 4B 4B |1....* STAEXPAKK|
00001280: 00 8D 16 CB 2A 20 53 42 43 45 58 50 32 00 96 16 |....* SBCEXP2...|
00001290: D0 2A 20 54 41 59 00 A5 16 D5 2A 20 4C 44 41 45 |.* TAY....* LDAE|
000012A0: 58 50 31 2B 31 00 B6 16 DA 2A 20 53 54 41 45 58 |XP1+1....* STAEX|
000012B0: 50 41 4B 4B 2B 31 00 C5 16 DF 2A 20 53 42 43 45 |PAKK+1....* SBCE|
000012C0: 58 50 32 2B 31 00 D6 16 E4 2A 20 42 4E 45 48 49 |XP2+1....* BNEHI|
000012D0: 47 48 44 49 46 46 00 E1 16 E9 2A 20 43 50 59 23 |GHDIFF....* CPY#|
000012E0: 30 00 F3 16 EE 2A 20 42 45 51 4E 4F 52 4D 41 52 |0....* BEQNORMAR|
000012F0: 47 53 58 00 04 17 F3 2A 20 42 4E 45 41 52 47 32 |GSX....* BNEARG2|
00001300: 4C 45 53 53 00 1D 17 F8 2A 3B 20 48 49 47 48 2D |LESS....*; HIGH-|
00001310: 42 59 54 45 20 49 53 54 20 3C 3E 20 30 00 36 17 |BYTE IST <> 0.6.|
00001320: FD 2A 48 49 47 48 44 49 46 46 20 42 50 4C 41 52 |.*HIGHDIFF BPLAR|
00001330: 47 32 4C 45 53 53 00 6C 17 02 2B 3B 20 41 52 47 |G2LESS.l..+; ARG|
00001340: 31 3C 41 52 47 32 2C 20 41 4C 53 4F 20 44 49 46 |1<ARG2, ALSO DIF|
00001350: 46 3A 3D 2D 44 49 46 46 20 55 4E 44 20 5A 45 49 |F:=-DIFF UND ZEI|
00001360: 47 45 52 20 41 55 46 20 41 52 47 31 00 75 17 07 |GER AUF ARG1.u..|
00001370: 2B 20 50 48 41 00 7E 17 0C 2B 20 54 59 41 00 8B |+ PHA.~..+ TYA..|
00001380: 17 11 2B 20 45 4F 52 23 24 46 46 00 94 17 16 2B |..+ EOR#$FF....+|
00001390: 20 43 4C 43 00 9F 17 1B 2B 20 41 44 43 23 31 00 | CLC....+ ADC#1.|
000013A0: A8 17 20 2B 20 54 41 59 00 B1 17 25 2B 20 50 4C |.. + TAY...%+ PL|
000013B0: 41 00 BE 17 2A 2B 20 45 4F 52 23 24 46 46 00 E4 |A...*+ EOR#$FF..|
000013C0: 17 2F 2B 20 41 44 43 23 30 3B 20 56 4F 52 5A 45 |./+ ADC#0; VORZE|
000013D0: 49 43 48 45 4E 57 45 43 48 53 45 4C 20 46 45 52 |ICHENWECHSEL FER|
000013E0: 54 49 47 2C 00 FD 17 34 2B 20 4C 53 52 3B 20 44 |TIG,...4+ LSR; D|
000013F0: 49 46 46 3A 3D 44 49 46 46 20 2F 20 32 00 06 18 |IFF:=DIFF / 2...|
00001400: 39 2B 20 50 48 41 00 0F 18 3E 2B 20 54 59 41 00 |9+ PHA...>+ TYA.|
00001410: 18 18 43 2B 20 52 4F 52 00 21 18 48 2B 20 50 48 |..C+ ROR.!.H+ PH|
00001420: 41 00 2E 18 4D 2B 20 4C 44 41 45 58 50 32 00 3D |A...M+ LDAEXP2.=|
00001430: 18 52 2B 20 53 54 41 45 58 50 41 4B 4B 00 4C 18 |.R+ STAEXPAKK.L.|
00001440: 57 2B 20 4C 44 41 45 58 50 32 2B 31 00 5D 18 5C |W+ LDAEXP2+1.].\|
00001450: 2B 20 53 54 41 45 58 50 41 4B 4B 2B 31 00 6D 18 |+ STAEXPAKK+1.m.|
00001460: 61 2B 20 4A 53 52 53 45 54 41 52 47 31 00 7E 18 |a+ JSRSETARG1.~.|
00001470: 66 2B 20 4A 4D 50 4E 49 42 53 48 49 46 54 00 8F |f+ JMPNIBSHIFT..|
00001480: 18 6B 2B 41 52 47 32 4C 45 53 53 20 4C 53 52 00 |.k+ARG2LESS LSR.|
00001490: 98 18 70 2B 20 50 48 41 00 A1 18 75 2B 20 54 59 |..p+ PHA...u+ TY|
000014A0: 41 00 AA 18 7A 2B 20 52 4F 52 00 B3 18 7F 2B 20 |A...z+ ROR....+ |
000014B0: 50 48 41 00 C3 18 84 2B 20 4A 53 52 53 45 54 41 |PHA....+ JSRSETA|
000014C0: 52 47 32 00 DC 18 89 2B 4E 49 42 53 48 49 46 54 |RG2....+NIBSHIFT|
000014D0: 20 42 43 43 42 59 54 53 48 49 46 54 00 ED 18 8E | BCCBYTSHIFT....|
000014E0: 2B 20 4A 53 52 53 48 49 46 54 41 52 47 00 FE 18 |+ JSRSHIFTARG...|
000014F0: 93 2B 42 59 54 53 48 49 46 54 20 50 4C 41 00 07 |.+BYTSHIFT PLA..|
00001500: 19 98 2B 20 54 41 59 00 10 19 9D 2B 20 50 4C 41 |..+ TAY....+ PLA|
00001510: 00 1F 19 A2 2B 20 42 45 51 42 59 54 53 48 31 00 |....+ BEQBYTSH1.|
00001520: 54 19 A7 2B 20 4C 44 59 46 50 4C 45 4E 3B 20 48 |T..+ LDYFPLEN; H|
00001530: 49 47 48 2D 42 59 54 45 20 44 45 52 20 44 49 46 |IGH-BYTE DER DIF|
00001540: 46 45 52 45 4E 5A 3C 3E 30 3A 20 44 41 4E 4E 20 |FERENZ<>0: DANN |
00001550: 57 49 52 44 00 87 19 AC 2B 20 44 45 59 3B 20 53 |WIRD....+ DEY; S|
00001560: 4F 20 57 45 49 54 20 47 45 53 43 48 4F 42 45 4E |O WEIT GESCHOBEN|
00001570: 2C 20 44 41 53 53 20 41 55 46 20 4A 45 44 45 4E |, DASS AUF JEDEN|
00001580: 20 46 41 4C 4C 20 30 00 A5 19 B1 2B 20 42 4E 45 | FALL 0....+ BNE|
00001590: 46 49 4C 4C 4E 55 4C 4C 3B 20 48 45 52 41 55 53 |FILLNULL; HERAUS|
000015A0: 4B 4F 4D 4D 54 00 B6 19 B6 2B 42 59 54 53 48 31 |KOMMT....+BYTSH1|
000015B0: 20 43 50 59 23 30 00 C8 19 BB 2B 20 42 45 51 4E | CPY#0....+ BEQN|
000015C0: 4F 52 4D 41 52 47 53 58 00 EC 19 C0 2B 20 53 54 |ORMARGSX....+ ST|
000015D0: 59 4D 55 4C 43 4F 55 4E 54 3B 20 44 49 46 46 45 |YMULCOUNT; DIFFE|
000015E0: 52 45 4E 5A 20 49 4E 20 42 59 54 45 00 FA 19 C5 |RENZ IN BYTE....|
000015F0: 2B 20 4C 44 59 46 50 4C 45 4E 00 1C 1A CA 2B 20 |+ LDYFPLEN....+ |
00001600: 44 45 59 3B 20 59 20 3D 20 44 45 53 54 49 4E 41 |DEY; Y = DESTINA|
00001610: 54 49 4F 4E 2D 50 4F 49 4E 54 45 52 00 25 1A CF |TION-POINTER.%..|
00001620: 2B 20 54 59 41 00 2E 1A D4 2B 20 53 45 43 00 3F |+ TYA....+ SEC.?|
00001630: 1A D9 2B 20 53 42 43 4D 55 4C 43 4F 55 4E 54 00 |..+ SBCMULCOUNT.|
00001640: 5E 1A DE 2B 20 53 54 41 4D 55 4C 43 4F 55 4E 54 |^..+ STAMULCOUNT|
00001650: 3B 20 53 4F 55 52 43 50 4F 49 4E 54 45 52 00 6F |; SOURCPOINTER.o|
00001660: 1A E3 2B 20 42 43 43 46 49 4C 4C 4E 55 4C 4C 00 |..+ BCCFILLNULL.|
00001670: 85 1A E8 2B 42 59 54 45 4C 4F 4F 50 20 53 54 59 |...+BYTELOOP STY|
00001680: 59 53 41 56 45 00 96 1A ED 2B 20 4C 44 59 4D 55 |YSAVE....+ LDYMU|
00001690: 4C 43 4F 55 4E 54 00 A5 1A F2 2B 20 4C 44 41 28 |LCOUNT....+ LDA(|
000016A0: 50 54 29 2C 59 00 B3 1A F7 2B 20 4C 44 59 59 53 |PT),Y....+ LDYYS|
000016B0: 41 56 45 00 C2 1A FC 2B 20 53 54 41 28 50 54 29 |AVE....+ STA(PT)|
000016C0: 2C 59 00 CB 1A 01 2C 20 44 45 59 00 DC 1A 06 2C |,Y...., DEY....,|
000016D0: 20 44 45 43 4D 55 4C 43 4F 55 4E 54 00 ED 1A 0B | DECMULCOUNT....|
000016E0: 2C 20 42 50 4C 42 59 54 45 4C 4F 4F 50 00 00 1B |, BPLBYTELOOP...|
000016F0: 10 2C 46 49 4C 4C 4E 55 4C 4C 20 4C 44 41 23 30 |.,FILLNULL LDA#0|
00001700: 00 0F 1B 15 2C 20 53 54 41 28 50 54 29 2C 59 00 |...., STA(PT),Y.|
00001710: 18 1B 1A 2C 20 44 45 59 00 29 1B 1F 2C 20 42 50 |..., DEY.).., BP|
00001720: 4C 46 49 4C 4C 4E 55 4C 4C 00 3B 1B 24 2C 4E 4F |LFILLNULL.;.$,NO|
00001730: 52 4D 41 52 47 53 58 20 52 54 53 00 52 1B 29 2C |RMARGSX RTS.R.),|
00001740: 46 50 4D 55 4C 54 20 4A 53 52 43 4C 52 46 50 41 |FPMULT JSRCLRFPA|
00001750: 4B 4B 00 5D 1B 2E 2C 20 4C 44 59 23 30 00 8F 1B |KK.].., LDY#0...|
00001760: 33 2C 4E 45 58 54 44 49 47 20 4A 53 52 53 48 4C |3,NEXTDIG JSRSHL|
00001770: 4F 4E 47 3B 20 46 50 41 4B 4B 55 20 49 4E 20 44 |ONG; FPAKKU IN D|
00001780: 4F 50 50 45 4C 54 45 52 20 4C 41 45 4E 47 45 00 |OPPELTER LAENGE.|
00001790: C4 1B 38 2C 20 4C 44 41 46 50 41 52 47 31 2C 59 |..8, LDAFPARG1,Y|
000017A0: 3B 20 55 4D 20 45 49 4E 45 20 5A 49 46 46 45 52 |; UM EINE ZIFFER|
000017B0: 20 4E 41 43 48 20 4C 49 4E 4B 53 20 53 43 48 49 | NACH LINKS SCHI|
000017C0: 45 42 45 4E 00 D1 1B 3D 2C 20 41 4E 44 23 24 46 |EBEN...=, AND#$F|
000017D0: 30 00 DF 1B 42 2C 20 42 45 51 5A 45 52 4F 31 00 |0...B, BEQZERO1.|
000017E0: E8 1B 47 2C 20 4C 53 52 00 F1 1B 4C 2C 20 4C 53 |..G, LSR...L, LS|
000017F0: 52 00 FA 1B 51 2C 20 4C 53 52 00 03 1C 56 2C 20 |R...Q, LSR...V, |
00001800: 4C 53 52 00 0F 1C 5B 2C 20 4A 53 52 41 44 44 00 |LSR...[, JSRADD.|
00001810: 3F 1C 60 2C 5A 45 52 4F 31 20 4A 53 52 53 48 4C |?.`,ZERO1 JSRSHL|
00001820: 4F 4E 47 3B 20 46 50 41 4B 4B 55 20 49 4E 20 44 |ONG; FPAKKU IN D|
00001830: 4F 50 50 45 4C 54 45 52 20 4C 41 45 4E 47 45 00 |OPPELTER LAENGE.|
00001840: 74 1C 65 2C 20 4C 44 41 46 50 41 52 47 31 2C 59 |t.e, LDAFPARG1,Y|
00001850: 3B 20 55 4D 20 45 49 4E 45 20 5A 49 46 46 45 52 |; UM EINE ZIFFER|
00001860: 20 4E 41 43 48 20 4C 49 4E 4B 53 20 53 43 48 49 | NACH LINKS SCHI|
00001870: 45 42 45 4E 00 80 1C 6A 2C 20 41 4E 44 23 24 46 |EBEN...j, AND#$F|
00001880: 00 8E 1C 6F 2C 20 42 45 51 5A 45 52 4F 32 00 9A |...o, BEQZERO2..|
00001890: 1C 74 2C 20 4A 53 52 41 44 44 00 A8 1C 79 2C 5A |.t, JSRADD...y,Z|
000018A0: 45 52 4F 32 20 49 4E 59 00 B6 1C 7E 2C 20 43 50 |ERO2 INY...~, CP|
000018B0: 59 46 50 4C 45 4E 00 C6 1C 83 2C 20 42 4E 45 4E |YFPLEN...., BNEN|
000018C0: 45 58 54 44 49 47 00 D4 1C 88 2C 20 4C 44 41 53 |EXTDIG...., LDAS|
000018D0: 49 47 4E 31 00 E2 1C 8D 2C 20 45 4F 52 53 49 47 |IGN1...., EORSIG|
000018E0: 4E 32 00 F2 1C 92 2C 20 53 54 41 53 49 47 4E 41 |N2...., STASIGNA|
000018F0: 4B 4B 00 FF 1C 97 2C 20 4C 44 41 45 58 50 31 00 |KK...., LDAEXP1.|
00001900: 08 1D 9C 2C 20 43 4C 43 00 15 1D A1 2C 20 41 44 |..., CLC...., AD|
00001910: 43 45 58 50 32 00 24 1D A6 2C 20 53 54 41 45 58 |CEXP2.$.., STAEX|
00001920: 50 41 4B 4B 00 33 1D AB 2C 20 4C 44 41 45 58 50 |PAKK.3.., LDAEXP|
00001930: 31 2B 31 00 42 1D B0 2C 20 41 44 43 45 58 50 32 |1+1.B.., ADCEXP2|
00001940: 2B 31 00 53 1D B5 2C 20 53 54 41 45 58 50 41 4B |+1.S.., STAEXPAK|
00001950: 4B 2B 31 00 61 1D BA 2C 20 42 56 43 4D 55 4C 4F |K+1.a.., BVCMULO|
00001960: 4B 00 9D 1D BF 2C 20 42 4D 49 4D 55 4C 45 52 52 |K...., BMIMULERR|
00001970: 3B 20 4E 55 52 20 57 45 4E 4E 20 45 58 50 4F 4E |; NUR WENN EXPON|
00001980: 45 4E 54 20 5A 55 20 47 52 4F 53 53 20 47 45 57 |ENT ZU GROSS GEW|
00001990: 4F 52 44 45 4E 2C 20 46 45 48 4C 45 52 00 AD 1D |ORDEN, FEHLER...|
000019A0: C4 2C 20 4A 53 52 5A 45 52 4F 46 41 4B 00 B6 1D |., JSRZEROFAK...|
000019B0: C9 2C 20 52 54 53 00 CC 1D CE 2C 4D 55 4C 4F 4B |., RTS....,MULOK|
000019C0: 20 4A 53 52 4E 4F 52 4D 41 4B 4B 55 00 DB 1D D3 | JSRNORMAKKU....|
000019D0: 2C 20 42 56 53 4D 55 4C 45 52 52 00 EC 1D D8 2C |, BVSMULERR....,|
000019E0: 20 4A 53 52 52 4F 55 4E 44 41 4B 4B 00 FB 1D DD | JSRROUNDAKK....|
000019F0: 2C 20 42 56 53 4D 55 4C 45 52 52 00 0C 1E E2 2C |, BVSMULERR....,|
00001A00: 20 4A 53 52 50 41 43 4B 53 49 47 4E 00 1B 1E E7 | JSRPACKSIGN....|
00001A10: 2C 4D 55 4C 45 52 52 20 52 54 53 00 34 1E EC 2C |,MULERR RTS.4..,|
00001A20: 46 50 44 49 56 4F 56 4C 20 42 49 54 4F 56 45 52 |FPDIVOVL BITOVER|
00001A30: 46 4C 4F 57 00 3D 1E F1 2C 20 52 54 53 00 51 1E |FLOW.=.., RTS.Q.|
00001A40: F6 2C 46 50 44 49 56 20 4C 44 41 46 50 41 52 47 |.,FPDIV LDAFPARG|
00001A50: 32 00 7B 1E FB 2C 20 42 45 51 46 50 44 49 56 4F |2.{.., BEQFPDIVO|
00001A60: 56 4C 3B 20 44 49 56 49 53 49 4F 4E 20 44 55 52 |VL; DIVISION DUR|
00001A70: 43 48 20 30 20 46 45 48 4C 45 52 00 8C 1E 00 2D |CH 0 FEHLER....-|
00001A80: 20 4A 53 52 43 4C 52 46 50 41 4B 4B 00 9A 1E 05 | JSRCLRFPAKK....|
00001A90: 2D 20 4C 44 41 53 49 47 4E 31 00 A8 1E 0A 2D 20 |- LDASIGN1....- |
00001AA0: 45 4F 52 53 49 47 4E 32 00 DE 1E 0F 2D 20 53 54 |EORSIGN2....- ST|
00001AB0: 41 53 49 47 4E 41 4B 4B 3B 20 56 4F 52 5A 45 49 |ASIGNAKK; VORZEI|
00001AC0: 43 48 45 4E 20 44 45 53 20 45 52 47 45 42 4E 49 |CHEN DES ERGEBNI|
00001AD0: 53 53 45 53 20 42 45 53 54 49 4D 4D 45 4E 00 0F |SSES BESTIMMEN..|
00001AE0: 1F 14 2D 20 4C 44 41 45 58 50 31 3B 20 45 58 50 |..- LDAEXP1; EXP|
00001AF0: 4F 4E 45 4E 54 20 44 45 53 20 45 52 47 45 42 4E |ONENT DES ERGEBN|
00001B00: 49 53 53 45 53 20 42 45 53 54 49 4D 4D 45 4E 00 |ISSES BESTIMMEN.|
00001B10: 18 1F 19 2D 20 53 45 43 00 25 1F 1E 2D 20 53 42 |...- SEC.%..- SB|
00001B20: 43 45 58 50 32 00 34 1F 23 2D 20 53 54 41 45 58 |CEXP2.4.#- STAEX|
00001B30: 50 41 4B 4B 00 43 1F 28 2D 20 4C 44 41 45 58 50 |PAKK.C.(- LDAEXP|
00001B40: 31 2B 31 00 52 1F 2D 2D 20 53 42 43 45 58 50 32 |1+1.R.-- SBCEXP2|
00001B50: 2B 31 00 63 1F 32 2D 20 53 54 41 45 58 50 41 4B |+1.c.2- STAEXPAK|
00001B60: 4B 2B 31 00 72 1F 37 2D 20 42 56 43 46 50 44 49 |K+1.r.7- BVCFPDI|
00001B70: 56 31 00 83 1F 3C 2D 20 42 4D 49 46 50 44 49 56 |V1...<- BMIFPDIV|
00001B80: 4F 56 4C 00 B9 1F 41 2D 20 4C 44 41 23 30 3B 20 |OVL...A- LDA#0; |
00001B90: 42 45 49 20 55 4E 54 45 52 4C 41 55 46 20 4B 45 |BEI UNTERLAUF KE|
00001BA0: 49 4E 20 46 45 48 4C 45 52 2C 20 45 52 47 45 42 |IN FEHLER, ERGEB|
00001BB0: 4E 49 53 20 41 55 46 20 30 00 C8 1F 46 2D 20 53 |NIS AUF 0...F- S|
00001BC0: 54 41 45 58 50 41 4B 4B 00 D9 1F 4B 2D 20 53 54 |TAEXPAKK...K- ST|
00001BD0: 41 45 58 50 41 4B 4B 2B 31 00 E9 1F 50 2D 20 53 |AEXPAKK+1...P- S|
00001BE0: 54 41 53 49 47 4E 41 4B 4B 00 F2 1F 55 2D 20 43 |TASIGNAKK...U- C|
00001BF0: 4C 56 00 FB 1F 5A 2D 20 52 54 53 00 0F 20 5F 2D |LV...Z- RTS.. _-|
00001C00: 46 50 44 49 56 31 20 4C 44 58 46 50 4C 45 4E 00 |FPDIV1 LDXFPLEN.|
00001C10: 47 20 64 2D 20 4C 44 41 23 30 3B 20 44 49 56 49 |G d- LDA#0; DIVI|
00001C20: 53 49 4F 4E 20 4D 55 53 53 20 4D 49 54 20 45 52 |SION MUSS MIT ER|
00001C30: 48 4F 45 48 54 45 52 20 4D 41 4E 54 49 53 53 45 |HOEHTER MANTISSE|
00001C40: 4E 4C 41 45 4E 47 45 00 85 20 69 2D 20 53 54 41 |NLAENGE.. i- STA|
00001C50: 46 50 41 52 47 31 2C 58 3B 20 41 55 53 47 45 46 |FPARG1,X; AUSGEF|
00001C60: 55 45 48 52 54 20 57 45 52 44 45 4E 2C 20 44 41 |UEHRT WERDEN, DA|
00001C70: 4D 49 54 20 44 41 53 20 45 52 47 45 42 4E 49 53 |MIT DAS ERGEBNIS|
00001C80: 20 41 55 43 48 00 B5 20 6E 2D 20 53 54 41 46 50 | AUCH.. n- STAFP|
00001C90: 41 52 47 32 2C 58 3B 20 42 49 53 20 5A 55 52 20 |ARG2,X; BIS ZUR |
00001CA0: 4C 45 54 5A 54 45 4E 20 53 54 45 4C 4C 45 20 53 |LETZTEN STELLE S|
00001CB0: 54 49 4D 4D 54 00 C3 20 73 2D 20 49 4E 43 46 50 |TIMMT.. s- INCFP|
00001CC0: 4C 45 4E 00 F0 20 78 2D 20 4A 53 52 43 4F 4D 50 |LEN.. x- JSRCOMP|
00001CD0: 4D 41 4E 54 3B 20 46 41 4C 4C 53 20 4D 41 4E 54 |MANT; FALLS MANT|
00001CE0: 49 53 53 45 31 3C 4D 41 4E 54 49 53 53 45 32 2C |ISSE1<MANTISSE2,|
00001CF0: 00 21 21 7D 2D 20 50 48 50 3B 20 47 45 47 45 4E |.!!}- PHP; GEGEN|
00001D00: 45 49 4E 41 4E 44 45 52 20 56 45 52 53 43 48 49 |EINANDER VERSCHI|
00001D10: 45 42 45 4E 20 55 4E 44 20 45 58 50 4F 4E 45 4E |EBEN UND EXPONEN|
00001D20: 54 00 40 21 82 2D 20 4A 53 52 41 52 47 32 52 49 |T.@!.- JSRARG2RI|
00001D30: 47 48 54 3B 20 4B 4F 52 52 49 47 49 45 52 45 4E |GHT; KORRIGIEREN|
00001D40: 00 49 21 87 2D 20 50 4C 50 00 58 21 8C 2D 20 42 |.I!.- PLP.X!.- B|
00001D50: 43 43 46 50 44 49 56 32 00 6D 21 91 2D 20 2E 2E |CCFPDIV2.m!.- ..|
00001D60: 2E 49 4E 43 57 28 45 58 50 41 4B 4B 29 00 7F 21 |.INCW(EXPAKK)..!|
00001D70: 96 2D 20 4A 53 52 41 52 47 31 52 49 47 48 54 00 |.- JSRARG1RIGHT.|
00001D80: 93 21 9B 2D 46 50 44 49 56 32 20 4C 44 41 44 42 |.!.-FPDIV2 LDADB|
00001D90: 4C 45 4E 00 A4 21 A0 2D 20 53 54 41 4D 55 4C 43 |LEN..!.- STAMULC|
00001DA0: 4F 55 4E 54 00 B5 21 A5 2D 20 49 4E 43 4D 55 4C |OUNT..!.- INCMUL|
00001DB0: 43 4F 55 4E 54 00 CC 21 AA 2D 46 50 44 49 56 33 |COUNT..!.-FPDIV3|
00001DC0: 20 4A 53 52 43 4F 4D 50 4D 41 4E 54 00 DB 21 AF | JSRCOMPMANT..!.|
00001DD0: 2D 20 42 43 43 46 50 44 49 56 35 00 E9 21 B4 2D |- BCCFPDIV5..!.-|
00001DE0: 20 4C 44 58 46 50 4C 45 4E 00 F2 21 B9 2D 20 53 | LDXFPLEN..!.- S|
00001DF0: 45 44 00 05 22 BE 2D 20 4C 44 41 46 50 41 4B 4B |ED..".- LDAFPAKK|
00001E00: 55 2D 31 2C 58 00 0E 22 C3 2D 20 43 4C 43 00 1B |U-1,X..".- CLC..|
00001E10: 22 C8 2D 20 41 44 43 23 24 31 30 00 2E 22 CD 2D |".- ADC#$10..".-|
00001E20: 20 53 54 41 46 50 41 4B 4B 55 2D 31 2C 58 00 37 | STAFPAKKU-1,X.7|
00001E30: 22 D2 2D 20 53 45 43 00 50 22 D7 2D 46 50 44 49 |".- SEC.P".-FPDI|
00001E40: 56 34 20 4C 44 41 46 50 41 52 47 31 2D 31 2C 58 |V4 LDAFPARG1-1,X|
00001E50: 00 63 22 DC 2D 20 53 42 43 46 50 41 52 47 32 2D |.c".- SBCFPARG2-|
00001E60: 31 2C 58 00 76 22 E1 2D 20 53 54 41 46 50 41 52 |1,X.v".- STAFPAR|
00001E70: 47 31 2D 31 2C 58 00 7F 22 E6 2D 20 44 45 58 00 |G1-1,X..".- DEX.|
00001E80: 8E 22 EB 2D 20 42 4E 45 46 50 44 49 56 34 00 97 |.".- BNEFPDIV4..|
00001E90: 22 F0 2D 20 43 4C 44 00 A6 22 F5 2D 20 4A 4D 50 |".- CLD..".- JMP|
00001EA0: 46 50 44 49 56 33 00 BD 22 FA 2D 46 50 44 49 56 |FPDIV3..".-FPDIV|
00001EB0: 35 20 44 45 43 4D 55 4C 43 4F 55 4E 54 00 CD 22 |5 DECMULCOUNT.."|
00001EC0: FF 2D 20 42 45 51 45 58 49 54 44 49 56 00 DD 22 |.- BEQEXITDIV.."|
00001ED0: 04 2E 20 4A 53 52 53 48 53 48 4F 52 54 00 E8 22 |.. JSRSHSHORT.."|
00001EE0: 09 2E 20 4C 44 59 23 34 00 FC 22 0E 2E 46 50 44 |.. LDY#4.."..FPD|
00001EF0: 49 56 36 20 4C 44 58 46 50 4C 45 4E 00 05 23 13 |IV6 LDXFPLEN..#.|
00001F00: 2E 20 43 4C 43 00 1E 23 18 2E 46 50 44 49 56 37 |. CLC..#..FPDIV7|
00001F10: 20 52 4F 4C 46 50 41 52 47 31 2D 31 2C 58 00 27 | ROLFPARG1-1,X.'|
00001F20: 23 1D 2E 20 44 45 58 00 36 23 22 2E 20 42 4E 45 |#.. DEX.6#". BNE|
00001F30: 46 50 44 49 56 37 00 3F 23 27 2E 20 44 45 59 00 |FPDIV7.?#'. DEY.|
00001F40: 4E 23 2C 2E 20 42 4E 45 46 50 44 49 56 36 00 5D |N#,. BNEFPDIV6.]|
00001F50: 23 31 2E 20 4A 4D 50 46 50 44 49 56 33 00 72 23 |#1. JMPFPDIV3.r#|
00001F60: 36 2E 45 58 49 54 44 49 56 20 44 45 43 46 50 4C |6.EXITDIV DECFPL|
00001F70: 45 4E 00 83 23 3B 2E 20 4A 53 52 52 4F 55 4E 44 |EN..#;. JSRROUND|
00001F80: 41 4B 4B 00 94 23 40 2E 20 4A 53 52 50 41 43 4B |AKK..#@. JSRPACK|
00001F90: 53 49 47 4E 00 9D 23 45 2E 20 52 54 53 00 DA 23 |SIGN..#E. RTS..#|
00001FA0: 4A 2E 3B 20 5A 45 52 4F 46 41 4B 3A 20 45 52 47 |J.; ZEROFAK: ERG|
00001FB0: 45 42 4E 49 53 20 30 20 45 52 5A 45 55 47 45 4E |EBNIS 0 ERZEUGEN|
00001FC0: 2C 20 44 41 20 55 4E 54 45 52 4C 41 55 46 20 41 |, DA UNTERLAUF A|
00001FD0: 55 46 47 45 54 52 45 54 45 4E 00 F7 23 4F 2E 3B |UFGETRETEN..#O.;|
00001FE0: 20 4F 56 45 52 46 4C 4F 57 2D 46 4C 41 47 20 4C | OVERFLOW-FLAG L|
00001FF0: 4F 45 53 43 48 45 4E 00 0F 24 54 2E 5A 45 52 4F |OESCHEN..$T.ZERO|
00002000: 46 41 4B 20 4A 53 52 43 4C 52 46 50 41 4B 4B 00 |FAK JSRCLRFPAKK.|
00002010: 3B 24 59 2E 20 53 54 41 53 49 47 4E 41 4B 4B 3B |;$Y. STASIGNAKK;|
00002020: 20 30 20 4E 4F 43 48 20 49 4D 20 28 50 52 4F 5A | 0 NOCH IM (PROZ|
00002030: 45 53 53 4F 52 2D 29 41 4B 4B 55 00 4A 24 5E 2E |ESSOR-)AKKU.J$^.|
00002040: 20 53 54 41 45 58 50 41 4B 4B 00 5B 24 63 2E 20 | STAEXPAKK.[$c. |
00002050: 53 54 41 45 58 50 41 4B 4B 2B 31 00 71 24 68 2E |STAEXPAKK+1.q$h.|
00002060: 20 43 4C 56 3B 20 4B 45 49 4E 20 46 45 48 4C 45 | CLV; KEIN FEHLE|
00002070: 52 00 7A 24 6D 2E 20 52 54 53 00 C2 24 72 2E 3B |R.z$m. RTS..$r.;|
00002080: 20 53 48 4C 4F 4E 47 20 55 4E 44 20 53 48 53 48 | SHLONG UND SHSH|
00002090: 4F 52 54 20 53 43 48 49 45 42 45 4E 20 4D 41 4E |ORT SCHIEBEN MAN|
000020A0: 54 49 53 53 45 20 44 45 53 20 41 4B 4B 55 20 55 |TISSE DES AKKU U|
000020B0: 4D 20 45 49 4E 45 20 5A 49 46 46 45 52 20 4E 41 |M EINE ZIFFER NA|
000020C0: 43 48 00 0E 25 77 2E 3B 20 4C 49 4E 4B 53 2C 20 |CH..%w.; LINKS, |
000020D0: 55 4E 44 20 5A 57 41 52 20 49 4E 20 45 49 4E 46 |UND ZWAR IN EINF|
000020E0: 41 43 48 45 52 20 28 53 48 53 48 4F 52 54 29 20 |ACHER (SHSHORT) |
000020F0: 4F 44 45 52 20 44 4F 50 50 45 4C 54 45 52 20 28 |ODER DOPPELTER (|
00002100: 53 48 4C 4F 4E 47 29 20 4C 41 45 4E 47 45 00 22 |SHLONG) LAENGE."|
00002110: 25 7C 2E 53 48 4C 4F 4E 47 20 4C 44 41 44 42 4C |%|.SHLONG LDADBL|
00002120: 45 4E 00 34 25 81 2E 20 42 4E 45 53 48 49 46 54 |EN.4%.. BNESHIFT|
00002130: 41 4B 4B 55 00 49 25 86 2E 53 48 53 48 4F 52 54 |AKKU.I%..SHSHORT|
00002140: 20 4C 44 41 46 50 4C 45 4E 00 5D 25 8B 2E 53 48 | LDAFPLEN.]%..SH|
00002150: 49 46 54 41 4B 4B 55 20 4C 44 58 23 30 00 6D 25 |IFTAKKU LDX#0.m%|
00002160: 90 2E 20 53 54 58 4C 41 53 54 44 49 47 00 76 25 |.. STXLASTDIG.v%|
00002170: 95 2E 20 54 41 58 00 7F 25 9A 2E 20 49 4E 58 00 |.. TAX..%.. INX.|
00002180: 9A 25 9F 2E 53 48 49 46 54 41 4B 32 20 4C 44 41 |.%..SHIFTAK2 LDA|
00002190: 46 50 41 4B 4B 55 2D 31 2C 58 00 A3 25 A4 2E 20 |FPAKKU-1,X..%.. |
000021A0: 41 53 4C 00 AC 25 A9 2E 20 52 4F 4C 00 B5 25 AE |ASL..%.. ROL..%.|
000021B0: 2E 20 52 4F 4C 00 BE 25 B3 2E 20 52 4F 4C 00 C7 |. ROL..%.. ROL..|
000021C0: 25 B8 2E 20 50 48 41 00 FB 25 BD 2E 20 41 4E 44 |%.. PHA..%.. AND|
000021D0: 23 24 46 30 3B 20 41 4C 54 45 53 20 48 4F 45 48 |#$F0; ALTES HOEH|
000021E0: 45 52 57 45 52 54 49 47 45 53 20 4E 49 42 42 4C |ERWERTIGES NIBBL|
000021F0: 45 20 49 53 4F 4C 49 45 52 45 4E 00 36 26 C2 2E |E ISOLIEREN.6&..|
00002200: 20 4F 52 41 4C 41 53 54 44 49 47 3B 20 55 4E 44 | ORALASTDIG; UND|
00002210: 20 4D 49 54 20 4E 49 45 44 45 52 57 45 52 54 49 | MIT NIEDERWERTI|
00002220: 47 45 4D 20 4E 49 42 42 4C 45 20 44 45 52 20 4C |GEM NIBBLE DER L|
00002230: 45 54 5A 54 45 4E 00 5D 26 C7 2E 20 53 54 41 46 |ETZTEN.]&.. STAF|
00002240: 50 41 4B 4B 55 2D 31 2C 58 3B 20 53 54 45 4C 4C |PAKKU-1,X; STELL|
00002250: 45 20 4B 4F 4D 42 49 4E 49 45 52 45 4E 00 66 26 |E KOMBINIEREN.f&|
00002260: CC 2E 20 50 4C 41 00 6F 26 D1 2E 20 52 4F 4C 00 |.. PLA.o&.. ROL.|
00002270: A2 26 D6 2E 20 41 4E 44 23 24 30 46 3B 20 45 48 |.&.. AND#$0F; EH|
00002280: 45 4D 4C 49 47 45 20 42 49 54 53 20 34 3A 37 20 |EMLIGE BITS 4:7 |
00002290: 20 4E 41 43 48 20 30 3A 33 20 53 43 48 49 45 42 | NACH 0:3 SCHIEB|
000022A0: 45 4E 00 D3 26 DB 2E 20 53 54 41 4C 41 53 54 44 |EN..&.. STALASTD|
000022B0: 49 47 3B 20 55 4E 44 20 46 55 45 52 20 4E 41 45 |IG; UND FUER NAE|
000022C0: 43 48 53 54 45 20 53 54 45 4C 4C 45 20 4D 45 52 |CHSTE STELLE MER|
000022D0: 4B 45 4E 00 DC 26 E0 2E 20 44 45 58 00 ED 26 E5 |KEN..&.. DEX..&.|
000022E0: 2E 20 42 4E 45 53 48 49 46 54 41 4B 32 00 F6 26 |. BNESHIFTAK2..&|
000022F0: EA 2E 20 52 54 53 00 0C 27 EF 2E 52 4F 55 4E 44 |.. RTS..'..ROUND|
00002300: 41 4B 4B 20 4C 44 58 46 50 4C 45 4E 00 1D 27 F4 |AKK LDXFPLEN..'.|
00002310: 2E 20 4C 44 41 46 50 41 4B 4B 55 2C 58 00 2A 27 |. LDAFPAKKU,X.*'|
00002320: F9 2E 20 41 4E 44 23 24 46 30 00 37 27 FE 2E 20 |.. AND#$F0.7'.. |
00002330: 43 4D 50 23 24 35 30 00 47 27 03 2F 20 42 43 43 |CMP#$50.G'./ BCC|
00002340: 52 4F 55 4E 44 4F 4B 00 52 27 08 2F 20 4C 44 41 |ROUNDOK.R'./ LDA|
00002350: 23 30 00 5B 27 0D 2F 20 53 45 44 00 74 27 12 2F |#0.['./ SED.t'./|
00002360: 52 4F 55 4E 44 31 20 4C 44 41 46 50 41 4B 4B 55 |ROUND1 LDAFPAKKU|
00002370: 2D 31 2C 58 00 7F 27 17 2F 20 41 44 43 23 30 00 |-1,X..'./ ADC#0.|
00002380: 92 27 1C 2F 20 53 54 41 46 50 41 4B 4B 55 2D 31 |.'./ STAFPAKKU-1|
00002390: 2C 58 00 A2 27 21 2F 20 42 43 43 52 4F 55 4E 44 |,X..'!/ BCCROUND|
000023A0: 4F 4B 00 AB 27 26 2F 20 44 45 58 00 BA 27 2B 2F |OK..'&/ DEX..'+/|
000023B0: 20 42 4E 45 52 4F 55 4E 44 31 00 EF 27 30 2F 20 | BNEROUND1..'0/ |
000023C0: 4C 44 41 23 24 31 30 3B 20 44 55 52 43 48 20 52 |LDA#$10; DURCH R|
000023D0: 55 4E 44 45 4E 20 49 53 54 20 55 45 42 45 52 4C |UNDEN IST UEBERL|
000023E0: 41 55 46 20 41 55 46 47 45 54 52 45 54 45 4E 00 |AUF AUFGETRETEN.|
000023F0: FE 27 35 2F 20 53 54 41 46 50 41 4B 4B 55 00 13 |.'5/ STAFPAKKU..|
00002400: 28 3A 2F 20 2E 2E 2E 49 4E 43 57 28 45 58 50 41 |(:/ ...INCW(EXPA|
00002410: 4B 4B 29 00 23 28 3F 2F 52 4F 55 4E 44 4F 4B 20 |KK).#(?/ROUNDOK |
00002420: 43 4C 44 00 2C 28 44 2F 20 52 54 53 00 60 28 49 |CLD.,(D/ RTS.`(I|
00002430: 2F 43 4C 52 46 50 41 4B 4B 20 4C 44 58 44 42 4C |/CLRFPAKK LDXDBL|
00002440: 45 4E 3B 20 46 4C 4F 41 54 49 4E 47 20 50 4F 49 |EN; FLOATING POI|
00002450: 4E 54 20 41 4B 4B 55 20 4C 4F 45 53 43 48 45 4E |NT AKKU LOESCHEN|
00002460: 00 6B 28 4E 2F 20 4C 44 41 23 30 00 85 28 53 2F |.k(N/ LDA#0..(S/|
00002470: 43 4C 52 4C 4F 4F 50 20 53 54 41 46 50 41 4B 4B |CLRLOOP STAFPAKK|
00002480: 55 2D 31 2C 58 00 8E 28 58 2F 20 44 45 58 00 9E |U-1,X..(X/ DEX..|
00002490: 28 5D 2F 20 42 4E 45 43 4C 52 4C 4F 4F 50 00 A7 |(]/ BNECLRLOOP..|
000024A0: 28 62 2F 20 52 54 53 00 CF 28 67 2F 3B 20 41 44 |(b/ RTS..(g/; AD|
000024B0: 44 49 45 52 45 20 46 50 41 4B 4B 55 3A 3D 46 50 |DIERE FPAKKU:=FP|
000024C0: 41 4B 4B 55 2B 28 41 29 2A 46 50 41 52 47 32 00 |AKKU+(A)*FPARG2.|
000024D0: E0 28 6C 2F 41 44 44 20 53 54 59 59 53 41 56 45 |.(l/ADD STYYSAVE|
000024E0: 00 F1 28 71 2F 20 53 54 41 4D 55 4C 43 4F 55 4E |..(q/ STAMULCOUN|
000024F0: 54 00 FA 28 76 2F 20 53 45 44 00 0C 29 7B 2F 41 |T..(v/ SED..){/A|
00002500: 44 44 31 20 4C 44 59 46 50 4C 45 4E 00 1A 29 80 |DD1 LDYFPLEN..).|
00002510: 2F 20 4C 44 58 44 42 4C 45 4E 00 23 29 85 2F 20 |/ LDXDBLEN.#)./ |
00002520: 43 4C 43 00 3A 29 8A 2F 41 44 44 32 20 4C 44 41 |CLC.:)./ADD2 LDA|
00002530: 46 50 41 52 47 32 2D 31 2C 59 00 4D 29 8F 2F 20 |FPARG2-1,Y.M)./ |
00002540: 41 44 43 46 50 41 4B 4B 55 2D 31 2C 58 00 60 29 |ADCFPAKKU-1,X.`)|
00002550: 94 2F 20 53 54 41 46 50 41 4B 4B 55 2D 31 2C 58 |./ STAFPAKKU-1,X|
00002560: 00 69 29 99 2F 20 44 45 58 00 72 29 9E 2F 20 44 |.i)./ DEX.r)./ D|
00002570: 45 59 00 7F 29 A3 2F 20 42 4E 45 41 44 44 32 00 |EY..)./ BNEADD2.|
00002580: 8D 29 A8 2F 20 42 43 43 41 44 44 4F 4B 00 B9 29 |.)./ BCCADDOK..)|
00002590: AD 2F 41 44 44 33 20 4C 44 41 23 30 3B 20 55 45 |./ADD3 LDA#0; UE|
000025A0: 42 45 52 54 52 41 47 20 56 4F 52 4E 45 20 41 55 |BERTRAG VORNE AU|
000025B0: 46 41 44 44 49 45 52 45 4E 00 CC 29 B2 2F 20 41 |FADDIEREN..)./ A|
000025C0: 44 43 46 50 41 4B 4B 55 2D 31 2C 58 00 DF 29 B7 |DCFPAKKU-1,X..).|
000025D0: 2F 20 53 54 41 46 50 41 4B 4B 55 2D 31 2C 58 00 |/ STAFPAKKU-1,X.|
000025E0: E8 29 BC 2F 20 44 45 58 00 18 2A C1 2F 20 42 43 |.)./ DEX..*./ BC|
000025F0: 53 41 44 44 33 3B 20 42 49 53 20 4B 45 49 4E 20 |SADD3; BIS KEIN |
00002600: 55 45 42 45 52 54 52 41 47 20 4D 45 48 52 20 56 |UEBERTRAG MEHR V|
00002610: 4F 52 48 41 4E 44 45 4E 00 2E 2A C6 2F 41 44 44 |ORHANDEN..*./ADD|
00002620: 4F 4B 20 44 45 43 4D 55 4C 43 4F 55 4E 54 00 3B |OK DECMULCOUNT.;|
00002630: 2A CB 2F 20 42 4E 45 41 44 44 31 00 44 2A D0 2F |*./ BNEADD1.D*./|
00002640: 20 43 4C 44 00 52 2A D5 2F 20 4C 44 59 59 53 41 | CLD.R*./ LDYYSA|
00002650: 56 45 00 5B 2A DA 2F 20 52 54 53 00 AD 2A DF 2F |VE.[*./ RTS..*./|
00002660: 3B 20 45 52 47 45 42 4E 49 53 20 49 4D 20 41 4B |; ERGEBNIS IM AK|
00002670: 4B 55 20 4E 4F 52 4D 41 4C 49 53 49 45 52 45 4E |KU NORMALISIEREN|
00002680: 20 28 44 2E 48 2E 20 53 4F 20 56 45 52 53 43 48 | (D.H. SO VERSCH|
00002690: 49 45 42 45 4E 2C 20 44 41 53 53 20 45 52 53 54 |IEBEN, DASS ERST|
000026A0: 45 20 53 54 45 4C 4C 45 20 3C 3E 20 30 00 C0 2A |E STELLE <> 0..*|
000026B0: E4 2F 4E 4F 52 4D 41 4B 4B 55 20 4C 44 58 23 30 |./NORMAKKU LDX#0|
000026C0: 00 CB 2A E9 2F 20 4C 44 59 23 30 00 06 2B EE 2F |..*./ LDY#0..+./|
000026D0: 43 48 45 43 4B 44 49 47 20 4C 44 41 46 50 41 4B |CHECKDIG LDAFPAK|
000026E0: 4B 55 2C 58 3B 20 53 55 43 48 45 20 45 52 53 54 |KU,X; SUCHE ERST|
000026F0: 45 53 20 42 59 54 45 20 49 4E 20 4D 41 4E 54 49 |ES BYTE IN MANTI|
00002700: 53 53 45 3C 3E 30 00 17 2B F3 2F 20 42 4E 45 46 |SSE<>0..+./ BNEF|
00002710: 4F 55 4E 44 44 49 47 00 20 2B F8 2F 20 49 4E 58 |OUNDDIG. +./ INX|
00002720: 00 2E 2B FD 2F 20 43 50 58 46 50 4C 45 4E 00 4C |..+./ CPXFPLEN.L|
00002730: 2B 02 30 20 42 4E 45 43 48 45 43 4B 44 49 47 3B |+.0 BNECHECKDIG;|
00002740: 20 45 52 47 45 42 4E 49 53 20 30 3F 00 7D 2B 07 | ERGEBNIS 0?.}+.|
00002750: 30 55 4E 44 45 52 46 4C 20 4A 53 52 5A 45 52 4F |0UNDERFL JSRZERO|
00002760: 46 41 4B 3B 20 42 45 49 20 55 4E 54 45 52 4C 41 |FAK; BEI UNTERLA|
00002770: 55 46 20 30 20 41 55 53 47 45 42 45 4E 00 8C 2B |UF 0 AUSGEBEN..+|
00002780: 0C 30 4E 4F 52 4D 4F 4B 20 43 4C 56 00 95 2B 11 |.0NORMOK CLV..+.|
00002790: 30 20 52 54 53 00 D2 2B 16 30 46 4F 55 4E 44 44 |0 RTS..+.0FOUNDD|
000027A0: 49 47 20 41 4E 44 23 24 46 30 3B 20 46 41 4C 4C |IG AND#$F0; FALL|
000027B0: 53 20 48 4F 45 43 48 53 54 57 45 52 54 49 47 45 |S HOECHSTWERTIGE|
000027C0: 20 5A 49 46 46 45 52 20 49 4D 20 52 45 43 48 54 | ZIFFER IM RECHT|
000027D0: 45 4E 00 0B 2C 1B 30 20 42 4E 45 4E 4F 52 4D 31 |EN..,.0 BNENORM1|
000027E0: 3B 20 4E 49 42 42 4C 45 2C 20 5A 55 4E 41 45 43 |; NIBBLE, ZUNAEC|
000027F0: 48 53 54 20 55 4D 20 31 20 4E 49 42 42 4C 45 20 |HST UM 1 NIBBLE |
00002800: 56 45 52 53 43 48 49 45 42 45 4E 00 19 2C 20 30 |VERSCHIEBEN.., 0|
00002810: 20 53 54 58 58 53 41 56 45 00 28 2C 25 30 20 4A | STXXSAVE.(,%0 J|
00002820: 53 52 53 48 4C 4F 4E 47 00 36 2C 2A 30 20 4C 44 |SRSHLONG.6,*0 LD|
00002830: 58 58 53 41 56 45 00 5B 2C 2F 30 20 53 45 43 3B |XXSAVE.[,/0 SEC;|
00002840: 20 55 4E 44 20 45 58 50 4F 4E 45 4E 54 45 4E 20 | UND EXPONENTEN |
00002850: 4B 4F 52 52 49 47 49 45 52 45 4E 00 6A 2C 34 30 |KORRIGIEREN.j,40|
00002860: 20 4C 44 41 45 58 50 41 4B 4B 00 75 2C 39 30 20 | LDAEXPAKK.u,90 |
00002870: 53 42 43 23 31 00 84 2C 3E 30 20 53 54 41 45 58 |SBC#1..,>0 STAEX|
00002880: 50 41 4B 4B 00 95 2C 43 30 20 4C 44 41 45 58 50 |PAKK..,C0 LDAEXP|
00002890: 41 4B 4B 2B 31 00 A0 2C 48 30 20 53 42 43 23 30 |AKK+1..,H0 SBC#0|
000028A0: 00 B1 2C 4D 30 20 53 54 41 45 58 50 41 4B 4B 2B |..,M0 STAEXPAKK+|
000028B0: 31 00 C1 2C 52 30 20 42 56 53 55 4E 44 45 52 46 |1..,R0 BVSUNDERF|
000028C0: 4C 00 CF 2C 57 30 4E 4F 52 4D 31 20 54 58 41 00 |L..,W0NORM1 TXA.|
000028D0: DE 2C 5C 30 20 42 45 51 4E 4F 52 4D 4F 4B 00 13 |.,\0 BEQNORMOK..|
000028E0: 2D 61 30 20 41 53 4C 3B 20 2A 32 2C 20 44 41 20 |-a0 ASL; *2, DA |
000028F0: 4A 45 44 45 53 20 42 59 54 45 20 5A 57 45 49 20 |JEDES BYTE ZWEI |
00002900: 44 45 5A 49 4D 41 4C 53 54 45 4C 4C 45 4E 20 47 |DEZIMALSTELLEN G|
00002910: 49 42 54 00 3F 2D 66 30 20 53 54 41 4D 55 4C 43 |IBT.?-f0 STAMULC|
00002920: 4F 55 4E 54 3B 20 4B 4F 52 52 45 4B 54 55 52 20 |OUNT; KORREKTUR |
00002930: 46 55 45 52 20 45 58 50 4F 4E 45 4E 54 45 4E 00 |FUER EXPONENTEN.|
00002940: 4E 2D 6B 30 20 4C 44 41 45 58 50 41 4B 4B 00 57 |N-k0 LDAEXPAKK.W|
00002950: 2D 70 30 20 53 45 43 00 68 2D 75 30 20 53 42 43 |-p0 SEC.h-u0 SBC|
00002960: 4D 55 4C 43 4F 55 4E 54 00 77 2D 7A 30 20 53 54 |MULCOUNT.w-z0 ST|
00002970: 41 45 58 50 41 4B 4B 00 88 2D 7F 30 20 4C 44 41 |AEXPAKK..-.0 LDA|
00002980: 45 58 50 41 4B 4B 2B 31 00 93 2D 84 30 20 53 42 |EXPAKK+1..-.0 SB|
00002990: 43 23 30 00 A4 2D 89 30 20 53 54 41 45 58 50 41 |C#0..-.0 STAEXPA|
000029A0: 4B 4B 2B 31 00 B4 2D 8E 30 20 42 56 53 55 4E 44 |KK+1..-.0 BVSUND|
000029B0: 45 52 46 4C 00 E6 2D 93 30 20 4C 44 59 23 30 3B |ERFL..-.0 LDY#0;|
000029C0: 20 41 4B 4B 55 20 42 59 54 45 57 45 49 53 45 20 | AKKU BYTEWEISE |
000029D0: 4E 41 43 48 20 4C 49 4E 4B 53 20 56 45 52 53 43 |NACH LINKS VERSC|
000029E0: 48 49 45 42 45 4E 00 FC 2D 98 30 4E 4F 52 4D 32 |HIEBEN..-.0NORM2|
000029F0: 20 4C 44 41 46 50 41 4B 4B 55 2C 58 00 0D 2E 9D | LDAFPAKKU,X....|
00002A00: 30 20 53 54 41 46 50 41 4B 4B 55 2C 59 00 16 2E |0 STAFPAKKU,Y...|
00002A10: A2 30 20 49 4E 59 00 1F 2E A7 30 20 49 4E 58 00 |.0 INY....0 INX.|
00002A20: 2D 2E AC 30 20 43 50 58 46 50 4C 45 4E 00 5D 2E |-..0 CPXFPLEN.].|
00002A30: B1 30 20 42 43 43 4E 4F 52 4D 32 3B 20 55 4E 44 |.0 BCCNORM2; UND|
00002A40: 20 52 45 43 48 54 53 20 4D 49 54 20 4E 55 4C 4C | RECHTS MIT NULL|
00002A50: 45 4E 20 41 55 46 46 55 45 4C 4C 45 4E 00 6B 2E |EN AUFFUELLEN.k.|
00002A60: B6 30 20 42 45 51 4E 4F 52 4D 32 00 76 2E BB 30 |.0 BEQNORM2.v..0|
00002A70: 20 4C 44 41 23 30 00 8C 2E C0 30 4E 4F 52 4D 33 | LDA#0....0NORM3|
00002A80: 20 53 54 41 46 50 41 4B 4B 55 2C 59 00 95 2E C5 | STAFPAKKU,Y....|
00002A90: 30 20 49 4E 59 00 A3 2E CA 30 20 43 50 59 46 50 |0 INY....0 CPYFP|
00002AA0: 4C 45 4E 00 B1 2E CF 30 20 42 43 43 4E 4F 52 4D |LEN....0 BCCNORM|
00002AB0: 33 00 C0 2E D4 30 20 42 43 53 4E 4F 52 4D 4F 4B |3....0 BCSNORMOK|
00002AC0: 00 FF 2E D9 30 3B 20 46 50 41 52 47 31 20 55 4D |....0; FPARG1 UM|
00002AD0: 20 45 49 4E 45 20 5A 49 46 46 45 52 20 28 31 20 | EINE ZIFFER (1 |
00002AE0: 4E 49 42 42 4C 45 29 20 4E 41 43 48 20 52 45 43 |NIBBLE) NACH REC|
00002AF0: 48 54 53 20 56 45 52 53 43 48 49 45 42 45 4E 00 |HTS VERSCHIEBEN.|
00002B00: 18 2F DE 30 41 52 47 31 52 49 47 48 54 20 4A 53 |./.0ARG1RIGHT JS|
00002B10: 52 53 45 54 41 52 47 31 00 29 2F E3 30 20 4A 4D |RSETARG1.)/.0 JM|
00002B20: 50 53 48 49 46 54 41 52 47 00 68 2F E8 30 3B 20 |PSHIFTARG.h/.0; |
00002B30: 46 50 41 52 47 32 20 55 4D 20 45 49 4E 45 20 5A |FPARG2 UM EINE Z|
00002B40: 49 46 46 45 52 20 28 31 20 4E 49 42 42 4C 45 29 |IFFER (1 NIBBLE)|
00002B50: 20 4E 41 43 48 20 52 45 43 48 54 53 20 56 45 52 | NACH RECHTS VER|
00002B60: 53 43 48 49 45 42 45 4E 00 81 2F ED 30 41 52 47 |SCHIEBEN../.0ARG|
00002B70: 32 52 49 47 48 54 20 4A 53 52 53 45 54 41 52 47 |2RIGHT JSRSETARG|
00002B80: 32 00 B3 2F F2 30 3B 20 41 52 47 55 4D 45 4E 54 |2../.0; ARGUMENT|
00002B90: 20 55 4D 20 45 49 4E 20 4E 49 42 42 4C 45 20 4E | UM EIN NIBBLE N|
00002BA0: 41 43 48 20 52 45 43 48 54 53 20 53 43 48 49 45 |ACH RECHTS SCHIE|
00002BB0: 42 45 4E 00 E2 2F F7 30 3B 20 50 54 2F 50 54 2B |BEN../.0; PT/PT+|
00002BC0: 31 20 5A 45 49 47 54 20 41 55 46 20 4D 41 4E 54 |1 ZEIGT AUF MANT|
00002BD0: 49 53 53 45 20 44 45 53 20 41 52 47 55 4D 45 4E |ISSE DES ARGUMEN|
00002BE0: 54 53 00 F8 2F FC 30 53 48 49 46 54 41 52 47 20 |TS../.0SHIFTARG |
00002BF0: 53 54 59 59 53 41 56 45 00 07 30 01 31 53 48 41 |STYYSAVE..0.1SHA|
00002C00: 31 20 4C 44 59 23 30 00 17 30 06 31 20 53 54 59 |1 LDY#0..0.1 STY|
00002C10: 4C 41 53 54 44 49 47 00 2A 30 0B 31 53 48 41 32 |LASTDIG.*0.1SHA2|
00002C20: 20 4C 44 41 28 50 54 29 2C 59 00 4F 30 10 31 20 | LDA(PT),Y.O0.1 |
00002C30: 4C 53 52 3B 20 42 59 54 45 20 5A 59 4B 4C 49 53 |LSR; BYTE ZYKLIS|
00002C40: 43 48 20 56 45 52 54 41 55 53 43 48 45 4E 3A 00 |CH VERTAUSCHEN:.|
00002C50: 6C 30 15 31 20 52 4F 52 3B 20 42 49 54 20 34 3A |l0.1 ROR; BIT 4:|
00002C60: 37 20 2D 3E 20 42 49 54 20 30 3A 33 00 93 30 1A |7 -> BIT 0:3..0.|
00002C70: 31 20 52 4F 52 3B 20 42 49 54 20 30 3A 33 20 2D |1 ROR; BIT 0:3 -|
00002C80: 3E 20 42 49 54 20 35 3A 37 20 55 4E 44 20 43 41 |> BIT 5:7 UND CA|
00002C90: 52 52 59 00 9C 30 1F 31 20 52 4F 52 00 A5 30 24 |RRY..0.1 ROR..0$|
00002CA0: 31 20 50 48 41 00 D9 30 29 31 20 41 4E 44 23 24 |1 PHA..0)1 AND#$|
00002CB0: 30 46 3B 20 41 4C 54 45 53 20 48 4F 45 48 45 52 |0F; ALTES HOEHER|
00002CC0: 57 45 52 54 49 47 45 53 20 4E 49 42 42 4C 45 20 |WERTIGES NIBBLE |
00002CD0: 49 53 4F 4C 49 45 52 45 4E 00 14 31 2E 31 20 4F |ISOLIEREN..1.1 O|
00002CE0: 52 41 4C 41 53 54 44 49 47 3B 20 55 4E 44 20 4D |RALASTDIG; UND M|
00002CF0: 49 54 20 4E 49 45 44 45 52 57 45 52 54 49 47 45 |IT NIEDERWERTIGE|
00002D00: 4D 20 4E 49 42 42 4C 45 20 44 45 52 20 4C 45 54 |M NIBBLE DER LET|
00002D10: 5A 54 45 4E 00 37 31 33 31 20 53 54 41 28 50 54 |ZTEN.7131 STA(PT|
00002D20: 29 2C 59 3B 20 53 54 45 4C 4C 45 20 4B 4F 4D 42 |),Y; STELLE KOMB|
00002D30: 49 4E 49 45 52 45 4E 00 40 31 38 31 20 50 4C 41 |INIEREN.@181 PLA|
00002D40: 00 49 31 3D 31 20 52 4F 52 00 7C 31 42 31 20 41 |.I1=1 ROR.|1B1 A|
00002D50: 4E 44 23 24 46 30 3B 20 45 48 45 4D 4C 49 47 45 |ND#$F0; EHEMLIGE|
00002D60: 20 42 49 54 53 20 30 3A 33 20 20 4E 41 43 48 20 | BITS 0:3 NACH |
00002D70: 34 3A 37 20 53 43 48 49 45 42 45 4E 00 AD 31 47 |4:7 SCHIEBEN..1G|
00002D80: 31 20 53 54 41 4C 41 53 54 44 49 47 3B 20 55 4E |1 STALASTDIG; UN|
00002D90: 44 20 46 55 45 52 20 4E 41 45 43 48 53 54 45 20 |D FUER NAECHSTE |
00002DA0: 53 54 45 4C 4C 45 20 4D 45 52 4B 45 4E 00 B6 31 |STELLE MERKEN..1|
00002DB0: 4C 31 20 49 4E 59 00 C4 31 51 31 20 43 50 59 46 |L1 INY..1Q1 CPYF|
00002DC0: 50 4C 45 4E 00 D1 31 56 31 20 42 43 43 53 48 41 |PLEN..1V1 BCCSHA|
00002DD0: 32 00 DF 31 5B 31 20 4C 44 59 59 53 41 56 45 00 |2..1[1 LDYYSAVE.|
00002DE0: E8 31 60 31 20 52 54 53 00 13 32 65 31 3B 20 5A |.1`1 RTS..2e1; Z|
00002DF0: 45 49 47 45 52 20 41 55 46 20 46 50 41 52 47 31 |EIGER AUF FPARG1|
00002E00: 20 4F 44 45 52 20 46 50 41 52 47 32 20 53 45 54 | ODER FPARG2 SET|
00002E10: 5A 45 4E 00 2D 32 6A 31 53 45 54 41 52 47 31 20 |ZEN.-2j1SETARG1 |
00002E20: 4C 44 58 23 3C 28 46 50 41 52 47 31 29 00 38 32 |LDX#<(FPARG1).82|
00002E30: 6F 31 20 53 54 58 50 54 00 4B 32 74 31 20 4C 44 |o1 STXPT.K2t1 LD|
00002E40: 58 23 3E 28 46 50 41 52 47 31 29 00 58 32 79 31 |X#>(FPARG1).X2y1|
00002E50: 20 53 54 58 50 54 2B 31 00 61 32 7E 31 20 52 54 | STXPT+1.a2~1 RT|
00002E60: 53 00 7B 32 83 31 53 45 54 41 52 47 32 20 4C 44 |S.{2.1SETARG2 LD|
00002E70: 58 23 3C 28 46 50 41 52 47 32 29 00 86 32 88 31 |X#<(FPARG2)..2.1|
00002E80: 20 53 54 58 50 54 00 99 32 8D 31 20 4C 44 58 23 | STXPT..2.1 LDX#|
00002E90: 3E 28 46 50 41 52 47 32 29 00 A6 32 92 31 20 53 |>(FPARG2)..2.1 S|
00002EA0: 54 58 50 54 2B 31 00 AF 32 97 31 20 52 54 53 00 |TXPT+1..2.1 RTS.|
00002EB0: DC 32 9C 31 3B 20 56 45 52 47 4C 45 49 43 48 54 |.2.1; VERGLEICHT|
00002EC0: 20 41 42 53 28 46 50 41 52 47 31 29 20 55 4E 44 | ABS(FPARG1) UND|
00002ED0: 20 41 42 53 28 46 50 41 52 47 32 29 00 0F 33 A1 | ABS(FPARG2)..3.|
00002EE0: 31 3B 20 45 52 47 45 42 4E 49 53 3A 20 43 41 52 |1; ERGEBNIS: CAR|
00002EF0: 52 59 20 3A 3D 20 20 41 42 53 28 46 50 41 52 47 |RY := ABS(FPARG|
00002F00: 31 29 3E 3D 41 42 53 28 46 50 41 52 47 32 29 00 |1)>=ABS(FPARG2).|
00002F10: 25 33 A6 31 43 4F 4D 50 41 42 53 20 4C 44 41 45 |%3.1COMPABS LDAE|
00002F20: 58 50 31 2B 31 00 34 33 AB 31 20 43 4D 50 45 58 |XP1+1.43.1 CMPEX|
00002F30: 50 32 2B 31 00 44 33 B0 31 20 42 4E 45 44 49 46 |P2+1.D3.1 BNEDIF|
00002F40: 46 45 58 50 00 51 33 B5 31 20 4C 44 41 45 58 50 |FEXP.Q3.1 LDAEXP|
00002F50: 31 00 5E 33 BA 31 20 43 4D 50 45 58 50 32 00 6F |1.^3.1 CMPEXP2.o|
00002F60: 33 BF 31 20 42 45 51 43 4F 4D 50 4D 41 4E 54 00 |3.1 BEQCOMPMANT.|
00002F70: 78 33 C4 31 20 53 45 43 00 89 33 C9 31 20 42 50 |x3.1 SEC..3.1 BP|
00002F80: 4C 43 4F 4D 50 45 58 49 54 00 92 33 CE 31 20 43 |LCOMPEXIT..3.1 C|
00002F90: 4C 43 00 A2 33 D3 31 44 49 46 46 45 58 50 20 52 |LC..3.1DIFFEXP R|
00002FA0: 54 53 00 F4 33 D8 31 3B 20 56 45 52 47 4C 45 49 |TS..3.1; VERGLEI|
00002FB0: 43 48 54 20 4D 41 4E 54 49 53 53 45 20 56 4F 4E |CHT MANTISSE VON|
00002FC0: 20 46 50 41 52 47 31 20 4D 49 54 20 4D 41 4E 54 | FPARG1 MIT MANT|
00002FD0: 49 53 53 45 20 56 4F 4E 20 46 50 41 52 47 32 2C |ISSE VON FPARG2,|
00002FE0: 20 45 52 47 45 42 4E 49 53 20 53 2E 20 43 4F 4D | ERGEBNIS S. COM|
00002FF0: 50 41 42 53 00 07 34 DD 31 43 4F 4D 50 4D 41 4E |PABS..4.1COMPMAN|
00003000: 54 20 4C 44 58 23 30 00 20 34 E2 31 43 4F 4D 50 |T LDX#0. 4.1COMP|
00003010: 4C 4F 4F 50 20 4C 44 41 46 50 41 52 47 31 2C 58 |LOOP LDAFPARG1,X|
00003020: 00 31 34 E7 31 20 43 4D 50 46 50 41 52 47 32 2C |.14.1 CMPFPARG2,|
00003030: 58 00 42 34 EC 31 20 42 4E 45 43 4F 4D 50 45 58 |X.B4.1 BNECOMPEX|
00003040: 49 54 00 4B 34 F1 31 20 49 4E 58 00 59 34 F6 31 |IT.K4.1 INX.Y4.1|
00003050: 20 43 50 58 46 50 4C 45 4E 00 6A 34 FB 31 20 42 | CPXFPLEN.j4.1 B|
00003060: 4E 45 43 4F 4D 50 4C 4F 4F 50 00 B2 34 00 32 43 |NECOMPLOOP..4.2C|
00003070: 4F 4D 50 45 58 49 54 20 52 54 53 3B 20 45 51 20 |OMPEXIT RTS; EQ |
00003080: 42 45 49 20 47 4C 45 49 43 48 48 45 49 54 2C 20 |BEI GLEICHHEIT, |
00003090: 43 41 52 52 59 20 3C 3D 3E 20 41 42 53 28 46 50 |CARRY <=> ABS(FP|
000030A0: 41 52 47 31 29 3E 3D 41 42 53 28 46 50 41 52 47 |ARG1)>=ABS(FPARG|
000030B0: 32 29 00 C6 34 05 32 4F 56 45 52 46 4C 4F 57 20 |2)..4.2OVERFLOW |
000030C0: 2E 42 59 24 46 46 00 DF 34 0A 32 3B 20 20 20 20 |.BY$FF..4.2; |
000030D0: 20 20 20 20 47 45 4E 41 55 49 47 4B 45 49 54 00 | GENAUIGKEIT.|
000030E0: EE 34 0F 32 46 50 4C 45 4E 20 2E 42 59 30 00 FD |.4.2FPLEN .BY0..|
000030F0: 34 14 32 44 42 4C 45 4E 20 2E 42 59 30 00 18 35 |4.2DBLEN .BY0..5|
00003100: 19 32 3B 20 20 20 20 20 20 20 20 48 49 4C 46 53 |.2; HILFS|
00003110: 53 50 45 49 43 48 45 52 00 29 35 1E 32 4C 41 53 |SPEICHER.)5.2LAS|
00003120: 54 44 49 47 20 2E 42 59 30 00 38 35 23 32 58 53 |TDIG .BY0.85#2XS|
00003130: 41 56 45 20 2E 42 59 30 00 47 35 28 32 59 53 41 |AVE .BY0.G5(2YSA|
00003140: 56 45 20 2E 42 59 30 00 59 35 2D 32 4D 55 4C 43 |VE .BY0.Y5-2MULC|
00003150: 4F 55 4E 54 20 2E 42 59 30 00 6D 35 32 32 43 55 |OUNT .BY0.m522CU|
00003160: 52 52 45 4E 54 4C 45 4E 20 2E 42 59 30 00 7F 35 |RRENTLEN .BY0..5|
00003170: 37 32 3B 20 31 2E 20 41 52 47 55 4D 45 4E 54 00 |72; 1. ARGUMENT.|
00003180: 8E 35 3C 32 53 49 47 4E 31 20 2E 42 59 30 00 9C |.5<2SIGN1 .BY0..|
00003190: 35 41 32 45 58 50 31 20 2E 57 4F 30 00 B5 35 46 |5A2EXP1 .WO0..5F|
000031A0: 32 46 50 41 52 47 31 20 2E 2E 2E 44 53 28 4D 41 |2FPARG1 ...DS(MA|
000031B0: 58 4C 45 4E 29 00 C7 35 4B 32 3B 20 32 2E 20 41 |XLEN)..5K2; 2. A|
000031C0: 52 47 55 4D 45 4E 54 00 D6 35 50 32 53 49 47 4E |RGUMENT..5P2SIGN|
000031D0: 32 20 2E 42 59 30 00 E4 35 55 32 45 58 50 32 20 |2 .BY0..5U2EXP2 |
000031E0: 2E 57 4F 30 00 FD 35 5A 32 46 50 41 52 47 32 20 |.WO0..5Z2FPARG2 |
000031F0: 2E 2E 2E 44 53 28 4D 41 58 4C 45 4E 29 00 0C 36 |...DS(MAXLEN)..6|
00003200: 5F 32 3B 20 45 52 47 45 42 4E 49 53 00 1D 36 64 |_2; ERGEBNIS..6d|
00003210: 32 53 49 47 4E 41 4B 4B 20 2E 42 59 30 00 2D 36 |2SIGNAKK .BY0.-6|
00003220: 69 32 45 58 50 41 4B 4B 20 2E 57 4F 30 00 48 36 |i2EXPAKK .WO0.H6|
00003230: 6E 32 46 50 41 4B 4B 55 20 2E 2E 2E 44 53 28 4D |n2FPAKKU ...DS(M|
00003240: 41 58 4C 45 4E 2A 32 29 00 00 00 |AXLEN*2)... |
..H..';*********************************
********************************....';*
*.V..';* BCD-FLI
ESSKOMMA-ARITHMETIK. MANTISSE BCD MIT FP
LEN BYTES *....';* MAXIMALE
MANTISSENLAENGE: 254 ZIFFERN
*.D.$';* EXPONENT BINAER VO
N -16384 BIS +16383 *...)
';* VORZEICHEN GEPACKT IN BIT 15
DES EXPONENT *....';*******
****************************************
******************...3'.GL SP=$22.?.8'.G
L MAXLEN=15; MAXIMAL 30 STELLEN MANTISSE
VOREINGESTELLT...=';-------------------
----------------------------------------
-------------------...B'; AUFRUFE VON FP
-ROUTINEN:...G'; SETPRECISION SETZT MANT
ISSENLAENGE (IN BYTE, ERGIBT AKKU*2 ZIFF
ERN).9.L'; LOADARG1: LAEDT FP-ZAHL BEI (
A/Y) IN ARGUMENTBEREICH 1.V.Q'; LOADARG2
: LAEDT FP-ZAHL BEI (A/Y) IN ARGUMENTBER
EICH 2...V'; STOREAKK: SPEICHERT ERGEBNI
S EINER OPERATION NACH (A/Y)...['; FPADD
, FPSUB, FPMULT, FPDIV VERKNUEPFEN ARGUM
ENTE, OVERFLOW-FLAG.(.`'; WIRD BEI FLIES
SKOMMA-UEBERLAUF GESETZT.B.E'SETPRECISIO
N STAFPLEN.K.J' ASL.Y.O' STADBLEN.B.T' R
TS...Y'; FLIESSKOMMAZAHL VON (A/Y) NACH
ARGUMENT-PUFFER 1 ODER 2 KOPIEREN...~'LO
ADARG1 LDX#0.L..' BEQLOADARG....'LOADARG
2 LDX#1....'LOADARG STAPT....' STYPT+1..
..' LDYFPLEN.@..' INY; MANTISSE + EXPONE
NT + VORZEICHEN KOPIEREN.W..'LOADLOOP LD
A(PT),Y.B..' CPX#0.R..' BNEPUTARG2....'
STAEXP1,Y....' BEQNEXTBYTE....'PUTARG2 S
TAEXP2,Y....'NEXTBYTE DEY.F.D' CPY#$FF.W
.I' BNELOADLOOP...N' CPX#0...S' BNEUNPAC
K2...X' LDAEXP1+1....' JSRUNPACKSIGN.#..
' STAEXP1+1.1..' STYSIGN1.:..' RTS.P..'U
NPACK2 LDAEXP2+1.C..' JSRUNPACKSIGN.R..'
STAEXP2+1....( STYSIGN2....( RTS.D..(UN
PACKSIGN LDY#$00; VORZEICHEN AUS BIT 7 I
N Y-REGISTER.Q..( CMP#$80....( AND#$7F;
EXPONENT-BITS AUSFILTERN....( BCCEXTEXP.
...( DEY.A.#(EXTEXP CMP#$40; EXPONENT VO
RZEICHENERWEITERN.Q.(( BCCSIGNPOS.^.-( O
RA#$80.N.2(SIGNPOS RTS...7(; FLIESSKOMMA
-AKKU NACH (A/Y) ABSPEICHERN...<(STOREAK
K STAPT...A( STYPT+1.J.F( LDYFPLEN...K(
INY; 2 BYTE ZUSAETZLICH (VORZEICHEN UND
EXPONENT)...P(STORELOO LDAEXPAKK,Y.).U(
STA(PT),Y.2.Z( DEY.?._( CPY#$FF.P.D( BNE
STORELOO.Y.I( RTS.L.N(FPADD LDASIGN1.|.S
( STASIGNAKK...X( CMPSIGN2...}( BEQFPADD
1....( JSRDOSUBTR....( RTS.F..(FPADD1 JS
RDOADD.O..( RTS....(FPSUB LDASIGN1....(
STASIGNAKK... ( CMPSIGN2....( BNEFPSUB1.
...( JSRDOSUBTR.(..( RTS.<..(FPSUB1 JSRD
OADD.E..( RTS.O..(DOADD JSRNORMARGS; ARG
UMENTE ANPASSEN.}.C( LDXFPLEN...H( CLC..
.M( SED...R( CLC...W(FPALOOP LDAFPARG1-1
,X; ERGEBNIS UM 1 BYTE NACH RECHTS VERSC
HOBEN....( ADCFPARG2-1,X; ABLEGEN, DAMIT
PLATZ FUER UEBERLAUF.5..( STAFPAKKU,X;
VORHANDEN IST.>..( DEX.N..( BNEFPALOOP.Y
..( LDA#0....( ROL; UEBERTRAG AUS CARRY
BERUCKSICHTIGEN....( STAFPAKKU....( CLD.
...) LDAEXPAKK....) CLC....) ADC#2; ERGE
BNIS IST JA UM 1 BYTE = 2 STELLEN....) S
TAEXPAKK.8..) LDAEXPAKK+1; NACH RECHTS V
ERSCHOBEN, DIES BERUECKSICHTIGEN.C..) AD
C#0.T.") STAEXPAKK+1.B.') INCFPLEN...,)
JSRNORMAKKU; ERGEBNIS NORMALISIEREN...1)
DECFPLEN...6) BVSFPAOVL.E.;) JSRROUNDAK
K; UND RUNDEN.V.@) JSRCHKMNULL...E) JSRP
ACKSIGN; VORZEICHEN UND EXPONENT PACKEN.
..J)FPAOVL RTS.-.O)DOSUBTR JSRCOMPABS.;.
T) BCSNOXCH.I.Y) LDXFPLEN; FALLS ABS(FPA
RG1)<ABS(FPARG2),. .^)XCHLOOP LDAFPARG1-
1,X; VOR SUBTRAKTION VERTAUSCHEN...C) LD
YFPARG2-1,X.F.H) STAFPARG2-1,X.O.M) TYA.
..R) STAFPARG1-1,X...W) DEX...|) BNEXCHL
OOP....) LDX#1; EXPONENTEN AUSTAUSCHEN.4
..)SWAPEXP LDAEXP1,X.C..) LDYEXP2,X.R..)
STAEXP2,X.[..) TYA.J..) STAEXP1,X.S..)
DEX....) BPLSWAPEXP....) LDASIGNAKK. ..)
EOR#$80....) STASIGNAKK.F..)NOXCH JSRNO
RMARGS.T..) LDXFPLEN...B) SED...G) SEC..
.L)FPSLOOP LDAFPARG1-1,X...Q) SBCFPARG2-
1,X.&.V) STAFPAKKU-1,X./..) DEX.?..) BNE
FPSLOOP.H..) CLD.Y..) JSRNORMAKKU.H..) B
VSFPSOVL.Y..) JSRROUNDAKK....) JSRCHKMNU
LL....) JSRPACKSIGN....*FPSOVL RTS....*;
PACKT MANTISSENVORZEICHEN UND EXPONENT
IN 2 BYTE (BEI EXPAKK/EXPAKK+1).4..*; SE
TZT OVERFLOW-BIT, WENN EXPONENT NICHT IM
BEREICH VON.Q..*; -16384 BIS 16383 LIEG
T.J..*PACKSIGN LDAEXPAKK+1....* AND#$C0;
%11000000...!* BEQEXPAKKOK. .&* CMP#$C0
...+* BEQEXPAKKOK...0* CMP#$80.O.5* BEQT
OOSMALL...:* BITOVERFLOW...?* RTS...D*EX
PAKKOK LDAEXPAKK+1...I* AND#$7F...N* BIT
SIGNAKK...S* BPLAKKPOS.;.X* ORA#$80.R.]*
AKKPOS STAEXPAKK+1.[.B* CLV.D.G* RTS.|.L
*TOOSMALL JSRZEROFAK...Q* CLV...V* RTS..
.{*; UEBERPRUEFE, OB DAS ERGEBNIS "-0" L
AUTET UND KORRIGIERE ZU "+0" WENN NOETIG
....*CHKMNULL LDASIGNAKK....* BPLNOMINUS
N....* LDAEXPAKK.)..* ORAEXPAKK+1.:..* B
NENOMINUSN.I..* LDAFPAKKU.Z..* BNENOMINU
SN.J..* STASIGNAKK.{..*NOMINUSN RTS.B..*
; VERSCHIEBE MANTISSE DES KLEINEREN ARGU
MENTS SO NACH RECHTS, DASS....*; ANSCHLI
ESSEND STELLENRICHTIGE ADDITION/SUBTRAKT
ION AUSGEFUEHRT WERDEN KANN.S..*; AUSSER
DEM WIRD DER EXPONENT DES ERGEBNISSES HI
ER BESTIMMT.D..*NORMARGS SEC.Q.A* LDAEXP
1...F* STAEXPAKK...K* SBCEXP2...P* TAY..
.U* LDAEXP1+1...Z* STAEXPAKK+1.E..* SBCE
XP2+1.V..* BNEHIGHDIFF....* CPY#0....* B
EQNORMARGSX....* BNEARG2LESS....*; HIGH-
BYTE IST <> 0.6..*HIGHDIFF BPLARG2LESS.L
..+; ARG1<ARG2, ALSO DIFF:=-DIFF UND ZEI
GER AUF ARG1.U..+ PHA.~..+ TYA....+ EOR#
$FF....+ CLC....+ ADC#1... + TAY...%+ PL
A...*+ EOR#$FF.../+ ADC#0; VORZEICHENWEC
HSEL FERTIG,...4+ LSR; DIFF:=DIFF / 2...
9+ PHA...>+ TYA...C+ ROR.!.H+ PHA...M+ L
DAEXP2.=.R+ STAEXPAKK.L.W+ LDAEXP2+1.].\
+ STAEXPAKK+1.M.A+ JSRSETARG1.~.F+ JMPNI
BSHIFT...K+ARG2LESS LSR...P+ PHA...U+ TY
A...Z+ ROR...+ PHA.C..+ JSRSETARG2....+
NIBSHIFT BCCBYTSHIFT....+ JSRSHIFTARG...
.+BYTSHIFT PLA....+ TAY....+ PLA....+ BE
QBYTSH1.T..+ LDYFPLEN; HIGH-BYTE DER DIF
FERENZ<>0: DANN WIRD....+ DEY; SO WEIT G
ESCHOBEN, DASS AUF JEDEN FALL 0....+ BNE
FILLNULL; HERAUSKOMMT....+BYTSH1 CPY#0.H
..+ BEQNORMARGSX....+ STYMULCOUNT; DIFFE
RENZ IN BYTE...E+ LDYFPLEN...J+ DEY; Y =
DESTINATION-POINTER.%.O+ TYA...T+ SEC.?
.Y+ SBCMULCOUNT.^..+ STAMULCOUNT; SOURCP
OINTER.O..+ BCCFILLNULL....+BYTELOOP STY
YSAVE....+ LDYMULCOUNT....+ LDA(PT),Y...
.+ LDYYSAVE.B..+ STA(PT),Y.K.., DEY....,
DECMULCOUNT...., BPLBYTELOOP....,FILLNU
LL LDA#0...., STA(PT),Y...., DEY.).., BP
LFILLNULL.;.$,NORMARGSX RTS.R.),FPMULT J
SRCLRFPAKK.].., LDY#0...3,NEXTDIG JSRSHL
ONG; FPAKKU IN DOPPELTER LAENGE.D.8, LDA
FPARG1,Y; UM EINE ZIFFER NACH LINKS SCHI
EBEN.Q.=, AND#$F0...B, BEQZERO1...G, LSR
...L, LSR...Q, LSR...V, LSR...[, JSRADD.
?.`,ZERO1 JSRSHLONG; FPAKKU IN DOPPELTER
LAENGE.T.E, LDAFPARG1,Y; UM EINE ZIFFER
NACH LINKS SCHIEBEN...J, AND#$F...O, BE
QZERO2...T, JSRADD...Y,ZERO2 INY...~, CP
YFPLEN.F.., BNENEXTDIG.T.., LDASIGN1....
, EORSIGN2...., STASIGNAKK...., LDAEXP1.
..., CLC...., ADCEXP2.$.., STAEXPAKK.3..
, LDAEXP1+1.B.., ADCEXP2+1.S.., STAEXPAK
K+1.A.., BVCMULOK...., BMIMULERR; NUR WE
NN EXPONENT ZU GROSS GEWORDEN, FEHLER...
D, JSRZEROFAK...I, RTS.L.N,MULOK JSRNORM
AKKU...S, BVSMULERR...X, JSRROUNDAKK....
, BVSMULERR...., JSRPACKSIGN....,MULERR
RTS.4..,FPDIVOVL BITOVERFLOW.=.., RTS.Q.
.,FPDIV LDAFPARG2.{.., BEQFPDIVOVL; DIVI
SION DURCH 0 FEHLER....- JSRCLRFPAKK....
- LDASIGN1....- EORSIGN2....- STASIGNAKK
; VORZEICHEN DES ERGEBNISSES BESTIMMEN..
..- LDAEXP1; EXPONENT DES ERGEBNISSES BE
STIMMEN....- SEC.%..- SBCEXP2.4.#- STAEX
PAKK.C.(- LDAEXP1+1.R.-- SBCEXP2+1.C.2-
STAEXPAKK+1.R.7- BVCFPDIV1...<- BMIFPDIV
OVL...A- LDA#0; BEI UNTERLAUF KEIN FEHLE
R, ERGEBNIS AUF 0.H.F- STAEXPAKK.Y.K- ST
AEXPAKK+1...P- STASIGNAKK...U- CLV...Z-
RTS.. _-FPDIV1 LDXFPLEN.G D- LDA#0; DIVI
SION MUSS MIT ERHOEHTER MANTISSENLAENGE.
. I- STAFPARG1,X; AUSGEFUEHRT WERDEN, DA
MIT DAS ERGEBNIS AUCH.. N- STAFPARG2,X;
BIS ZUR LETZTEN STELLE STIMMT.C S- INCFP
LEN.. X- JSRCOMPMANT; FALLS MANTISSE1<MA
NTISSE2,.!!}- PHP; GEGENEINANDER VERSCHI
EBEN UND EXPONENT.@!.- JSRARG2RIGHT; KOR
RIGIEREN.I!.- PLP.X!.- BCCFPDIV2.M!.- ..
.INCW(EXPAKK).!.- JSRARG1RIGHT..!.-FPDI
V2 LDADBLEN..! - STAMULCOUNT..!.- INCMUL
COUNT.L!.-FPDIV3 JSRCOMPMANT..!.- BCCFPD
IV5..!.- LDXFPLEN..!.- SED..".- LDAFPAKK
U-1,X.."C- CLC.."H- ADC#$10.."M- STAFPAK
KU-1,X.7"R- SEC.P"W-FPDIV4 LDAFPARG1-1,X
.C".- SBCFPARG2-1,X.V".- STAFPARG1-1,X.
".- DEX..".- BNEFPDIV4..".- CLD..".- JMP
FPDIV3..".-FPDIV5 DECMULCOUNT.M".- BEQEX
ITDIV..".. JSRSHSHORT..".. LDY#4.."..FPD
IV6 LDXFPLEN..#.. CLC..#..FPDIV7 ROLFPAR
G1-1,X.'#.. DEX.6#". BNEFPDIV7.?#'. DEY.
N#,. BNEFPDIV6.]#1. JMPFPDIV3.R#6.EXITDI
V DECFPLEN..#;. JSRROUNDAKK..#@. JSRPACK
SIGN..#E. RTS.Z#J.; ZEROFAK: ERGEBNIS 0
ERZEUGEN, DA UNTERLAUF AUFGETRETEN..#O.;
OVERFLOW-FLAG LOESCHEN..$T.ZEROFAK JSRC
LRFPAKK.;$Y. STASIGNAKK; 0 NOCH IM (PROZ
ESSOR-)AKKU.J$^. STAEXPAKK.[$C. STAEXPAK
K+1.Q$H. CLV; KEIN FEHLER.Z$M. RTS.B$R.;
SHLONG UND SHSHORT SCHIEBEN MANTISSE DE
S AKKU UM EINE ZIFFER NACH..%W.; LINKS,
UND ZWAR IN EINFACHER (SHSHORT) ODER DOP
PELTER (SHLONG) LAENGE."%|.SHLONG LDADBL
EN.4%.. BNESHIFTAKKU.I%..SHSHORT LDAFPLE
N.]%..SHIFTAKKU LDX#0.M%.. STXLASTDIG.V%
.. TAX.%.. INX..%..SHIFTAK2 LDAFPAKKU-1
,X..%.. ASL..%.. ROL..%.. ROL..%.. ROL.G
%.. PHA..%.. AND#$F0; ALTES HOEHERWERTIG
ES NIBBLE ISOLIEREN.6&B. ORALASTDIG; UND
MIT NIEDERWERTIGEM NIBBLE DER LETZTEN.]
&G. STAFPAKKU-1,X; STELLE KOMBINIEREN.F&
L. PLA.O&Q. ROL..&V. AND#$0F; EHEMLIGE B
ITS 4:7 NACH 0:3 SCHIEBEN.S&.. STALASTD
IG; UND FUER NAECHSTE STELLE MERKEN..&..
DEX..&.. BNESHIFTAK2..&.. RTS..'..ROUND
AKK LDXFPLEN..'.. LDAFPAKKU,X.*'.. AND#$
F0.7'.. CMP#$50.G'./ BCCROUNDOK.R'./ LDA
#0.['./ SED.T'./ROUND1 LDAFPAKKU-1,X.'.
/ ADC#0..'./ STAFPAKKU-1,X..'!/ BCCROUND
OK..'&/ DEX..'+/ BNEROUND1..'0/ LDA#$10;
DURCH RUNDEN IST UEBERLAUF AUFGETRETEN.
.'5/ STAFPAKKU..(:/ ...INCW(EXPAKK).#(?/
ROUNDOK CLD.,(D/ RTS.`(I/CLRFPAKK LDXDBL
EN; FLOATING POINT AKKU LOESCHEN.K(N/ LD
A#0..(S/CLRLOOP STAFPAKKU-1,X..(X/ DEX..
(]/ BNECLRLOOP..(B/ RTS.O(G/; ADDIERE FP
AKKU:=FPAKKU+(A)*FPARG2..(L/ADD STYYSAVE
..(Q/ STAMULCOUNT..(V/ SED..){/ADD1 LDYF
PLEN..)./ LDXDBLEN.#)./ CLC.:)./ADD2 LDA
FPARG2-1,Y.M)./ ADCFPAKKU-1,X.`)./ STAFP
AKKU-1,X.I)./ DEX.R)./ DEY.)./ BNEADD2.
.)./ BCCADDOK..)./ADD3 LDA#0; UEBERTRAG
VORNE AUFADDIEREN.L)./ ADCFPAKKU-1,X..).
/ STAFPAKKU-1,X..)./ DEX..*A/ BCSADD3; B
IS KEIN UEBERTRAG MEHR VORHANDEN..*F/ADD
OK DECMULCOUNT.;*K/ BNEADD1.D*P/ CLD.R*U
/ LDYYSAVE.[*Z/ RTS..*./; ERGEBNIS IM AK
KU NORMALISIEREN (D.H. SO VERSCHIEBEN, D
ASS ERSTE STELLE <> 0..*./NORMAKKU LDX#0
.K*./ LDY#0..+./CHECKDIG LDAFPAKKU,X; SU
CHE ERSTES BYTE IN MANTISSE<>0..+./ BNEF
OUNDDIG. +./ INX..+./ CPXFPLEN.L+.0 BNEC
HECKDIG; ERGEBNIS 0?.}+.0UNDERFL JSRZERO
FAK; BEI UNTERLAUF 0 AUSGEBEN..+.0NORMOK
CLV..+.0 RTS.R+.0FOUNDDIG AND#$F0; FALL
S HOECHSTWERTIGE ZIFFER IM RECHTEN..,.0
BNENORM1; NIBBLE, ZUNAECHST UM 1 NIBBLE
VERSCHIEBEN.., 0 STXXSAVE.(,%0 JSRSHLONG
.6,*0 LDXXSAVE.[,/0 SEC; UND EXPONENTEN
KORRIGIEREN.J,40 LDAEXPAKK.U,90 SBC#1..,
>0 STAEXPAKK..,C0 LDAEXPAKK+1. ,H0 SBC#0
..,M0 STAEXPAKK+1.A,R0 BVSUNDERFL.O,W0NO
RM1 TXA..,\0 BEQNORMOK..-A0 ASL; *2, DA
JEDES BYTE ZWEI DEZIMALSTELLEN GIBT.?-F0
STAMULCOUNT; KORREKTUR FUER EXPONENTEN.
N-K0 LDAEXPAKK.W-P0 SEC.H-U0 SBCMULCOUNT
.W-Z0 STAEXPAKK..-0 LDAEXPAKK+1..-.0 SB
C#0..-.0 STAEXPAKK+1..-.0 BVSUNDERFL..-.
0 LDY#0; AKKU BYTEWEISE NACH LINKS VERSC
HIEBEN..-.0NORM2 LDAFPAKKU,X....0 STAFPA
KKU,Y....0 INY....0 INX.-..0 CPXFPLEN.].
.0 BCCNORM2; UND RECHTS MIT NULLEN AUFFU
ELLEN.K..0 BEQNORM2.V..0 LDA#0....0NORM3
STAFPAKKU,Y...E0 INY...J0 CPYFPLEN...O0
BCCNORM3...T0 BCSNORMOK...Y0; FPARG1 UM
EINE ZIFFER (1 NIBBLE) NACH RECHTS VERS
CHIEBEN../.0ARG1RIGHT JSRSETARG1.)/.0 JM
PSHIFTARG.H/.0; FPARG2 UM EINE ZIFFER (1
NIBBLE) NACH RECHTS VERSCHIEBEN../.0ARG
2RIGHT JSRSETARG2../.0; ARGUMENT UM EIN
NIBBLE NACH RECHTS SCHIEBEN../.0; PT/PT+
1 ZEIGT AUF MANTISSE DES ARGUMENTS../.0S
HIFTARG STYYSAVE..0.1SHA1 LDY#0..0.1 STY
LASTDIG.*0.1SHA2 LDA(PT),Y.O0.1 LSR; BYT
E ZYKLISCH VERTAUSCHEN:.L0.1 ROR; BIT 4:
7 -> BIT 0:3..0.1 ROR; BIT 0:3 -> BIT 5:
7 UND CARRY..0.1 ROR..0$1 PHA.Y0)1 AND#$
0F; ALTES HOEHERWERTIGES NIBBLE ISOLIERE
N..1.1 ORALASTDIG; UND MIT NIEDERWERTIGE
M NIBBLE DER LETZTEN.7131 STA(PT),Y; STE
LLE KOMBINIEREN.@181 PLA.I1=1 ROR.|1B1 A
ND#$F0; EHEMLIGE BITS 0:3 NACH 4:7 SCHI
EBEN..1G1 STALASTDIG; UND FUER NAECHSTE
STELLE MERKEN..1L1 INY.D1Q1 CPYFPLEN.Q1V
1 BCCSHA2..1[1 LDYYSAVE..1`1 RTS..2E1; Z
EIGER AUF FPARG1 ODER FPARG2 SETZEN.-2J1
SETARG1 LDX#<(FPARG1).82O1 STXPT.K2T1 LD
X#>(FPARG1).X2Y1 STXPT+1.A2~1 RTS.{2.1SE
TARG2 LDX#<(FPARG2)..2.1 STXPT..2.1 LDX#
>(FPARG2)..2.1 STXPT+1..2.1 RTS..2.1; VE
RGLEICHT ABS(FPARG1) UND ABS(FPARG2)..3.
1; ERGEBNIS: CARRY := ABS(FPARG1)>=ABS(
FPARG2).%3.1COMPABS LDAEXP1+1.43.1 CMPEX
P2+1.D3.1 BNEDIFFEXP.Q3.1 LDAEXP1.^3.1 C
MPEXP2.O3.1 BEQCOMPMANT.X3D1 SEC..3I1 BP
LCOMPEXIT..3N1 CLC..3S1DIFFEXP RTS..3X1;
VERGLEICHT MANTISSE VON FPARG1 MIT MANT
ISSE VON FPARG2, ERGEBNIS S. COMPABS..4.
1COMPMANT LDX#0. 4.1COMPLOOP LDAFPARG1,X
.14.1 CMPFPARG2,X.B4.1 BNECOMPEXIT.K4.1
INX.Y4.1 CPXFPLEN.J4.1 BNECOMPLOOP..4.2C
OMPEXIT RTS; EQ BEI GLEICHHEIT, CARRY <=
> ABS(FPARG1)>=ABS(FPARG2).F4.2OVERFLOW
.BY$FF..4.2; GENAUIGKEIT..4.2FPLE
N .BY0..4.2DBLEN .BY0..5.2; HILFS
SPEICHER.)5.2LASTDIG .BY0.85#2XSAVE .BY0
.G5(2YSAVE .BY0.Y5-2MULCOUNT .BY0.M522CU
RRENTLEN .BY0.572; 1. ARGUMENT..5<2SIGN
1 .BY0..5A2EXP1 .WO0..5F2FPARG1 ...DS(MA
XLEN).G5K2; 2. ARGUMENT.V5P2SIGN2 .BY0..
5U2EXP2 .WO0..5Z2FPARG2 ...DS(MAXLEN)..6
_2; ERGEBNIS..6D2SIGNAKK .BY0.-6I2EXPAKK
.WO0.H6N2FPAKKU ...DS(MAXLEN*2)...
> CLICK IMAGE PREVIEW FOR FULL MODAL