/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / cs15.d81 / math

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 4d 41 54 48 2e 41 53 | 53 4d 00 3b 4d 41 54 48 |;MATH.AS|SM.;MATH|
|00000010| 20 52 4f 55 54 49 4e 45 | 53 20 46 4f 52 20 54 48 | ROUTINE|S FOR TH|
|00000020| 45 20 41 53 53 45 4d 42 | 4c 45 52 00 3b 20 47 45 |E ASSEMB|LER.; GE|
|00000030| 4e 45 52 41 4c 20 4c 49 | 42 52 41 52 59 20 46 49 |NERAL LI|BRARY FI|
|00000040| 4c 45 00 3b 2a 2a 2a 2a | 2a 2a 2a 00 43 55 52 4e |LE.;****|***.CURN|
|00000050| 55 4d 20 2e 42 59 54 45 | 20 30 2c 30 00 50 52 45 |UM .BYTE| 0,0.PRE|
|00000060| 4e 55 4d 20 2e 42 59 54 | 45 20 30 2c 30 00 57 4f |NUM .BYT|E 0,0.WO|
|00000070| 52 44 31 20 2e 42 59 54 | 45 20 30 2c 30 00 57 4f |RD1 .BYT|E 0,0.WO|
|00000080| 52 44 32 20 2e 42 59 54 | 45 20 30 2c 30 00 43 55 |RD2 .BYT|E 0,0.CU|
|00000090| 52 46 55 4e 20 2e 42 59 | 54 45 20 30 00 50 52 45 |RFUN .BY|TE 0.PRE|
|000000a0| 46 55 4e 20 2e 42 59 54 | 45 20 30 00 53 54 41 43 |FUN .BYT|E 0.STAC|
|000000b0| 4b 20 2e 42 6c 6f 63 6b | 20 32 34 2c 30 00 53 54 |K .Block| 24,0.ST|
|000000c0| 4b 50 54 52 20 2e 42 59 | 54 45 20 30 00 43 41 52 |KPTR .BY|TE 0.CAR|
|000000d0| 52 59 20 2e 42 59 54 45 | 20 33 32 00 43 55 52 50 |RY .BYTE| 32.CURP|
|000000e0| 52 49 20 2e 42 59 54 45 | 20 30 00 50 52 45 50 52 |RI .BYTE| 0.PREPR|
|000000f0| 49 20 2e 42 59 54 45 20 | 30 00 50 52 49 46 55 4e |I .BYTE |0.PRIFUN|
|00000100| 20 2e 42 59 54 45 20 34 | 33 2c 34 35 2c 34 32 2c | .BYTE 4|3,45,42,|
|00000110| 34 37 2c 36 31 2c 31 32 | 34 2c 33 38 2c 39 34 00 |47,61,12|4,38,94.|
|00000120| 50 52 49 4c 45 56 20 2e | 42 59 54 45 20 34 2c 34 |PRILEV .|BYTE 4,4|
|00000130| 2c 35 2c 35 2c 30 2c 31 | 2c 33 2c 32 00 4a 4d 50 |,5,5,0,1|,3,2.JMP|
|00000140| 53 54 4b 20 4a 4d 50 20 | 50 53 48 53 54 4b 00 4a |STK JMP |PSHSTK.J|
|00000150| 4d 50 54 4f 4c 20 4a 4d | 50 20 54 4f 54 41 4c 00 |MPTOL JM|P TOTAL.|
|00000160| 3b 2a 2a 2a 2a 2a 2a 2a | 2a 00 4d 41 54 48 00 20 |;*******|*.MATH. |
|00000170| 53 54 41 20 43 55 52 46 | 55 4e 00 20 4a 53 52 20 |STA CURF|UN. JSR |
|00000180| 46 4e 44 50 52 49 00 20 | 53 54 59 20 43 55 52 50 |FNDPRI. |STY CURP|
|00000190| 52 49 00 20 4c 44 41 20 | 52 45 53 55 4c 54 00 20 |RI. LDA |RESULT. |
|000001a0| 53 54 41 20 43 55 52 4e | 55 4d 00 20 4c 44 41 20 |STA CURN|UM. LDA |
|000001b0| 52 45 53 55 4c 54 2b 31 | 00 20 53 54 41 20 43 55 |RESULT+1|. STA CU|
|000001c0| 52 4e 55 4d 2b 31 00 3b | 4c 44 41 20 23 33 32 00 |RNUM+1.;|LDA #32.|
|000001d0| 3b 53 54 41 20 43 41 52 | 52 59 00 20 4c 44 41 20 |;STA CAR|RY. LDA |
|000001e0| 43 55 52 46 55 4e 00 20 | 43 4d 50 20 23 36 31 00 |CURFUN. |CMP #61.|
|000001f0| 20 42 45 51 20 20 4a 4d | 50 54 4f 4c 00 20 4c 44 | BEQ  JM|PTOL. LD|
|00000200| 41 20 4b 65 79 69 6e 6c | 65 6e 00 20 42 4e 45 20 |A Keyinl|en. BNE |
|00000210| 4c 4f 50 53 54 4b 00 20 | 4c 44 58 20 53 54 4b 50 |LOPSTK. |LDX STKP|
|00000220| 54 52 00 20 42 45 51 20 | 4c 4f 50 53 54 4b 00 20 |TR. BEQ |LOPSTK. |
|00000230| 44 45 58 00 20 4c 44 41 | 20 43 55 52 46 55 4e 00 |DEX. LDA| CURFUN.|
|00000240| 20 53 54 41 20 53 54 41 | 43 4b 2c 58 00 20 52 54 | STA STA|CK,X. RT|
|00000250| 53 00 3b 2d 2d 2d 2d 2a | 00 4c 55 50 53 54 4b 20 |S.;----*|.LUPSTK |
|00000260| 20 4c 44 41 20 57 4f 52 | 44 31 00 20 53 54 41 20 | LDA WOR|D1. STA |
|00000270| 43 55 52 4e 55 4d 00 20 | 53 54 41 20 52 45 53 55 |CURNUM. |STA RESU|
|00000280| 4c 54 00 20 4c 44 41 20 | 57 4f 52 44 31 2b 31 00 |LT. LDA |WORD1+1.|
|00000290| 20 53 54 41 20 43 55 52 | 4e 55 4d 2b 31 00 20 53 | STA CUR|NUM+1. S|
|000002a0| 54 41 20 52 45 53 55 4c | 54 2b 31 00 3b 00 4c 4f |TA RESUL|T+1.;.LO|
|000002b0| 50 53 54 4b 00 20 4c 44 | 58 20 53 54 4b 50 54 52 |PSTK. LD|X STKPTR|
|000002c0| 00 20 42 45 51 20 20 4a | 4d 50 53 54 4b 00 20 44 |. BEQ  J|MPSTK. D|
|000002d0| 45 58 00 20 4c 44 41 20 | 53 54 41 43 4b 2c 58 00 |EX. LDA |STACK,X.|
|000002e0| 20 53 54 41 20 50 52 45 | 46 55 4e 00 20 4a 53 52 | STA PRE|FUN. JSR|
|000002f0| 20 46 4e 44 50 52 49 00 | 20 53 54 59 20 50 52 45 | FNDPRI.| STY PRE|
|00000300| 50 52 49 00 20 44 45 58 | 00 20 4c 44 41 20 53 54 |PRI. DEX|. LDA ST|
|00000310| 41 43 4b 2c 58 00 20 53 | 54 41 20 50 52 45 4e 55 |ACK,X. S|TA PRENU|
|00000320| 4d 2b 31 00 20 44 45 58 | 00 20 4c 44 41 20 53 54 |M+1. DEX|. LDA ST|
|00000330| 41 43 4b 2c 58 00 20 53 | 54 41 20 50 52 45 4e 55 |ACK,X. S|TA PRENU|
|00000340| 4d 00 20 53 54 58 20 53 | 54 4b 50 54 52 00 20 4c |M. STX S|TKPTR. L|
|00000350| 44 41 20 50 52 45 50 52 | 49 00 20 43 4d 50 20 43 |DA PREPR|I. CMP C|
|00000360| 55 52 50 52 49 00 20 42 | 43 43 20 4a 4d 50 4e 4f |URPRI. B|CC JMPNO|
|00000370| 54 00 20 4c 44 41 20 50 | 52 45 4e 55 4d 00 20 53 |T. LDA P|RENUM. S|
|00000380| 54 41 20 57 4f 52 44 31 | 00 20 4c 44 41 20 50 52 |TA WORD1|. LDA PR|
|00000390| 45 4e 55 4d 2b 31 00 20 | 53 54 41 20 57 4f 52 44 |ENUM+1. |STA WORD|
|000003a0| 31 2b 31 00 20 4c 44 41 | 20 43 55 52 4e 55 4d 00 |1+1. LDA| CURNUM.|
|000003b0| 20 53 54 41 20 57 4f 52 | 44 32 00 20 4c 44 41 20 | STA WOR|D2. LDA |
|000003c0| 43 55 52 4e 55 4d 2b 31 | 00 20 53 54 41 20 57 4f |CURNUM+1|. STA WO|
|000003d0| 52 44 32 2b 31 00 20 4c | 44 41 20 50 52 45 46 55 |RD2+1. L|DA PREFU|
|000003e0| 4e 00 20 43 4d 50 20 23 | 34 33 00 20 42 45 51 20 |N. CMP #|43. BEQ |
|000003f0| 4a 4d 50 50 4c 53 00 20 | 43 4d 50 20 23 34 35 00 |JMPPLS. |CMP #45.|
|00000400| 20 42 45 51 20 4a 4d 50 | 4d 49 4e 00 20 43 4d 50 | BEQ JMP|MIN. CMP|
|00000410| 20 23 34 32 00 20 42 45 | 51 20 4a 4d 50 4d 55 4c | #42. BE|Q JMPMUL|
|00000420| 00 20 43 4d 50 20 23 34 | 37 00 20 42 45 51 20 4a |. CMP #4|7. BEQ J|
|00000430| 4d 50 44 49 56 00 20 43 | 4d 50 20 23 33 38 00 20 |MPDIV. C|MP #38. |
|00000440| 42 45 51 20 4a 4d 50 41 | 4e 44 00 20 43 4d 50 20 |BEQ JMPA|ND. CMP |
|00000450| 23 39 34 00 20 42 45 51 | 20 4a 4d 50 45 4f 52 00 |#94. BEQ| JMPEOR.|
|00000460| 20 43 4d 50 20 23 31 32 | 34 00 20 42 45 51 20 4a | CMP #12|4. BEQ J|
|00000470| 4d 50 4f 52 41 00 20 52 | 54 53 00 3b 2d 2d 2d 2d |MPORA. R|TS.;----|
|00000480| 2d 2d 2d 2a 00 4a 4d 50 | 50 4c 53 20 4a 4d 50 20 |---*.JMP|PLS JMP |
|00000490| 50 4c 55 53 00 4a 4d 50 | 4d 49 4e 20 4a 4d 50 20 |PLUS.JMP|MIN JMP |
|000004a0| 4d 49 4e 55 53 00 4a 4d | 50 44 49 56 20 4a 4d 50 |MINUS.JM|PDIV JMP|
|000004b0| 20 44 49 56 49 44 45 00 | 4a 4d 50 4d 55 4c 20 4a | DIVIDE.|JMPMUL J|
|000004c0| 4d 50 20 4d 55 4c 54 49 | 00 4a 4d 50 4e 4f 54 20 |MP MULTI|.JMPNOT |
|000004d0| 4a 4d 50 20 44 4f 54 48 | 49 4e 00 4a 4d 50 41 4e |JMP DOTH|IN.JMPAN|
|000004e0| 44 20 4a 4d 50 20 41 4e | 44 4e 55 4d 00 4a 4d 50 |D JMP AN|DNUM.JMP|
|000004f0| 45 4f 52 20 4a 4d 50 20 | 45 4f 52 4e 55 4d 00 4a |EOR JMP |EORNUM.J|
|00000500| 4d 50 4f 52 41 20 4a 4d | 50 20 4f 52 41 4e 55 4d |MPORA JM|P ORANUM|
|00000510| 00 3b 2d 2d 2d 2d 2a 00 | 54 4f 54 41 4c 00 20 4c |.;----*.|TOTAL. L|
|00000520| 44 41 20 4b 65 79 69 6e | 6c 65 6e 00 20 42 4e 45 |DA Keyin|len. BNE|
|00000530| 20 54 4c 4c 4f 4f 50 20 | 3b 49 46 20 41 20 4e 55 | TLLOOP |;IF A NU|
|00000540| 4d 20 57 41 53 20 45 4e | 54 45 52 45 44 00 3b 20 |M WAS EN|TERED.; |
|00000550| 54 48 45 4e 20 43 4f 4e | 54 49 4e 55 45 20 41 53 |THEN CON|TINUE AS|
|00000560| 20 41 4c 57 41 59 53 00 | 20 4c 44 58 20 53 54 4b | ALWAYS.| LDX STK|
|00000570| 50 54 52 00 20 42 45 51 | 20 54 4c 4c 4f 4f 50 00 |PTR. BEQ| TLLOOP.|
|00000580| 20 44 45 58 00 20 44 45 | 58 00 20 4c 44 41 20 53 | DEX. DE|X. LDA S|
|00000590| 54 41 43 4b 2c 58 3b 20 | 50 55 4c 4c 20 50 52 45 |TACK,X; |PULL PRE|
|000005a0| 56 49 4f 55 53 20 4e 55 | 4d 00 20 53 54 41 20 43 |VIOUS NU|M. STA C|
|000005b0| 55 52 4e 55 4d 2b 31 20 | 3b 20 20 41 4e 44 20 50 |URNUM+1 |;  AND P|
|000005c0| 4c 41 43 45 20 49 54 20 | 41 53 20 49 46 00 3b 20 |LACE IT |AS IF.; |
|000005d0| 41 53 20 45 4e 54 45 52 | 45 44 20 57 49 54 48 20 |AS ENTER|ED WITH |
|000005e0| 27 3d 27 00 20 44 45 58 | 00 20 4c 44 41 20 53 54 |'='. DEX|. LDA ST|
|000005f0| 41 43 4b 2c 58 00 20 53 | 54 41 20 43 55 52 4e 55 |ACK,X. S|TA CURNU|
|00000600| 4d 00 20 53 54 58 20 53 | 54 4b 50 54 52 00 54 4c |M. STX S|TKPTR.TL|
|00000610| 4c 4f 4f 50 20 4a 53 52 | 20 4c 4f 50 53 54 4b 00 |LOOP JSR| LOPSTK.|
|00000620| 20 4c 44 58 20 53 54 4b | 50 54 52 00 20 42 45 51 | LDX STK|PTR. BEQ|
|00000630| 20 45 58 54 54 54 4c 00 | 20 44 45 58 00 20 4c 44 | EXTTTL.| DEX. LD|
|00000640| 41 20 53 54 41 43 4b 2c | 58 00 20 53 54 41 20 50 |A STACK,|X. STA P|
|00000650| 52 45 46 55 4e 00 20 4a | 53 52 20 46 4e 44 50 52 |REFUN. J|SR FNDPR|
|00000660| 49 00 20 53 54 59 20 50 | 52 45 50 52 49 00 20 44 |I. STY P|REPRI. D|
|00000670| 45 58 00 20 4c 44 41 20 | 53 54 41 43 4b 2c 58 00 |EX. LDA |STACK,X.|
|00000680| 20 53 54 41 20 52 45 53 | 55 4c 54 2b 31 00 20 44 | STA RES|ULT+1. D|
|00000690| 45 58 00 20 4c 44 41 20 | 53 54 41 43 4b 2c 58 00 |EX. LDA |STACK,X.|
|000006a0| 20 53 54 41 20 52 45 53 | 55 4c 54 00 20 53 54 58 | STA RES|ULT. STX|
|000006b0| 20 53 54 4b 50 54 52 00 | 45 58 54 54 54 4c 00 20 | STKPTR.|EXTTTL. |
|000006c0| 52 54 53 00 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2a 00 44 |RTS.;---|-----*.D|
|000006d0| 4f 54 48 49 4e 00 20 4c | 44 41 20 53 54 4b 50 54 |OTHIN. L|DA STKPT|
|000006e0| 52 00 20 41 44 43 20 23 | 33 00 20 53 54 41 20 53 |R. ADC #|3. STA S|
|000006f0| 54 4b 50 54 52 00 20 4a | 4d 50 20 50 53 48 53 54 |TKPTR. J|MP PSHST|
|00000700| 4b 00 3b 2d 2d 2d 2d 2d | 2d 2d 2a 00 50 4c 55 53 |K.;-----|--*.PLUS|
|00000710| 00 20 43 4c 43 00 20 4c | 44 41 20 57 4f 52 44 31 |. CLC. L|DA WORD1|
|00000720| 00 20 41 44 43 20 57 4f | 52 44 32 00 20 53 54 41 |. ADC WO|RD2. STA|
|00000730| 20 57 4f 52 44 31 00 20 | 4c 44 41 20 57 4f 52 44 | WORD1. |LDA WORD|
|00000740| 31 2b 31 00 20 41 44 43 | 20 57 4f 52 44 32 2b 31 |1+1. ADC| WORD2+1|
|00000750| 00 20 53 54 41 20 57 4f | 52 44 31 2b 31 00 20 42 |. STA WO|RD1+1. B|
|00000760| 43 43 20 4e 4f 41 44 44 | 43 00 20 4c 44 41 20 23 |CC NOADD|C. LDA #|
|00000770| 36 37 00 20 53 54 41 20 | 43 41 52 52 59 00 4e 4f |67. STA |CARRY.NO|
|00000780| 41 44 44 43 00 20 4a 4d | 50 20 4c 55 50 53 54 4b |ADDC. JM|P LUPSTK|
|00000790| 00 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 00 4d 49 |.;------|----*.MI|
|000007a0| 4e 55 53 00 20 53 45 43 | 00 20 4c 44 41 20 57 4f |NUS. SEC|. LDA WO|
|000007b0| 52 44 31 00 20 53 42 43 | 20 57 4f 52 44 32 00 20 |RD1. SBC| WORD2. |
|000007c0| 53 54 41 20 57 4f 52 44 | 31 00 20 4c 44 41 20 57 |STA WORD|1. LDA W|
|000007d0| 4f 52 44 31 2b 31 00 20 | 53 42 43 20 57 4f 52 44 |ORD1+1. |SBC WORD|
|000007e0| 32 2b 31 00 20 53 54 41 | 20 57 4f 52 44 31 2b 31 |2+1. STA| WORD1+1|
|000007f0| 00 20 42 43 53 20 4e 4f | 53 55 42 43 00 20 4c 44 |. BCS NO|SUBC. LD|
|00000800| 41 20 23 36 37 00 20 53 | 54 41 20 43 41 52 52 59 |A #67. S|TA CARRY|
|00000810| 00 4e 4f 53 55 42 43 00 | 20 4a 4d 50 20 4c 55 50 |.NOSUBC.| JMP LUP|
|00000820| 53 54 4b 00 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 00 |STK.;---|------*.|
|00000830| 41 4e 44 4e 55 4d 00 20 | 4c 44 41 20 57 4f 52 44 |ANDNUM. |LDA WORD|
|00000840| 31 00 20 41 4e 44 20 57 | 4f 52 44 32 00 20 53 54 |1. AND W|ORD2. ST|
|00000850| 41 20 57 4f 52 44 31 00 | 20 4c 44 41 20 57 4f 52 |A WORD1.| LDA WOR|
|00000860| 44 31 2b 31 00 20 41 4e | 44 20 57 4f 52 44 32 2b |D1+1. AN|D WORD2+|
|00000870| 31 00 20 53 54 41 20 57 | 4f 52 44 31 2b 31 00 20 |1. STA W|ORD1+1. |
|00000880| 4a 4d 50 20 4c 55 50 53 | 54 4b 00 3b 2d 2d 2d 2d |JMP LUPS|TK.;----|
|00000890| 2d 2d 2d 2d 2d 2a 00 4f | 52 41 4e 55 4d 00 20 4c |-----*.O|RANUM. L|
|000008a0| 44 41 20 57 4f 52 44 31 | 00 20 4f 52 41 20 57 4f |DA WORD1|. ORA WO|
|000008b0| 52 44 32 00 20 53 54 41 | 20 57 4f 52 44 31 00 20 |RD2. STA| WORD1. |
|000008c0| 4c 44 41 20 57 4f 52 44 | 31 2b 31 00 20 4f 52 41 |LDA WORD|1+1. ORA|
|000008d0| 20 57 4f 52 44 32 2b 31 | 00 20 53 54 41 20 57 4f | WORD2+1|. STA WO|
|000008e0| 52 44 31 2b 31 00 20 4a | 4d 50 20 4c 55 50 53 54 |RD1+1. J|MP LUPST|
|000008f0| 4b 00 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 00 45 4f |K.;-----|----*.EO|
|00000900| 52 4e 55 4d 00 20 4c 44 | 41 20 57 4f 52 44 31 00 |RNUM. LD|A WORD1.|
|00000910| 20 45 4f 52 20 57 4f 52 | 44 32 00 20 53 54 41 20 | EOR WOR|D2. STA |
|00000920| 57 4f 52 44 31 00 20 4c | 44 41 20 57 4f 52 44 31 |WORD1. L|DA WORD1|
|00000930| 2b 31 00 20 45 4f 52 20 | 57 4f 52 44 32 2b 31 00 |+1. EOR |WORD2+1.|
|00000940| 20 53 54 41 20 57 4f 52 | 44 31 2b 31 00 20 4a 4d | STA WOR|D1+1. JM|
|00000950| 50 20 4c 55 50 53 54 4b | 00 3b 2d 2d 2d 2d 2d 2d |P LUPSTK|.;------|
|00000960| 2d 2d 2d 2a 00 4d 55 4c | 54 49 00 20 4c 44 41 20 |---*.MUL|TI. LDA |
|00000970| 23 30 00 20 53 54 41 20 | 48 49 57 4f 52 44 00 20 |#0. STA |HIWORD. |
|00000980| 53 54 41 20 48 49 57 4f | 52 44 2b 31 00 20 4c 44 |STA HIWO|RD+1. LD|
|00000990| 58 20 23 31 36 00 20 43 | 4c 43 00 4d 4c 4c 4f 4f |X #16. C|LC.MLLOO|
|000009a0| 50 20 52 4f 52 20 48 49 | 57 4f 52 44 2b 31 00 20 |P ROR HI|WORD+1. |
|000009b0| 52 4f 52 20 48 49 57 4f | 52 44 00 20 52 4f 52 20 |ROR HIWO|RD. ROR |
|000009c0| 57 4f 52 44 32 2b 31 00 | 20 52 4f 52 20 57 4f 52 |WORD2+1.| ROR WOR|
|000009d0| 44 32 00 20 42 43 43 20 | 4e 58 4d 55 4c 54 00 20 |D2. BCC |NXMULT. |
|000009e0| 43 4c 43 00 20 4c 44 41 | 20 57 4f 52 44 31 00 20 |CLC. LDA| WORD1. |
|000009f0| 41 44 43 20 48 49 57 4f | 52 44 00 20 53 54 41 20 |ADC HIWO|RD. STA |
|00000a00| 48 49 57 4f 52 44 00 20 | 4c 44 41 20 57 4f 52 44 |HIWORD. |LDA WORD|
|00000a10| 31 2b 31 00 20 41 44 43 | 20 48 49 57 4f 52 44 2b |1+1. ADC| HIWORD+|
|00000a20| 31 00 20 53 54 41 20 48 | 49 57 4f 52 44 2b 31 00 |1. STA H|IWORD+1.|
|00000a30| 4e 58 4d 55 4c 54 20 44 | 45 58 00 20 42 50 4c 20 |NXMULT D|EX. BPL |
|00000a40| 4d 4c 4c 4f 4f 50 00 20 | 4c 44 41 20 48 49 57 4f |MLLOOP. |LDA HIWO|
|00000a50| 52 44 00 20 4f 52 41 20 | 48 49 57 4f 52 44 2b 31 |RD. ORA |HIWORD+1|
|00000a60| 00 20 42 45 51 20 4d 55 | 4c 54 49 31 00 20 4c 44 |. BEQ MU|LTI1. LD|
|00000a70| 41 20 23 36 37 00 20 53 | 54 41 20 43 41 52 52 59 |A #67. S|TA CARRY|
|00000a80| 00 4d 55 4c 54 49 31 00 | 20 4c 44 41 20 57 4f 52 |.MULTI1.| LDA WOR|
|00000a90| 44 32 00 20 53 54 41 20 | 43 55 52 4e 55 4d 00 20 |D2. STA |CURNUM. |
|00000aa0| 53 54 41 20 52 45 53 55 | 4c 54 00 20 4c 44 41 20 |STA RESU|LT. LDA |
|00000ab0| 57 4f 52 44 32 2b 31 00 | 20 53 54 41 20 43 55 52 |WORD2+1.| STA CUR|
|00000ac0| 4e 55 4d 2b 31 00 20 53 | 54 41 20 52 45 53 55 4c |NUM+1. S|TA RESUL|
|00000ad0| 54 2b 31 00 20 4a 4d 50 | 20 4c 4f 50 53 54 4b 00 |T+1. JMP| LOPSTK.|
|00000ae0| 48 49 57 4f 52 44 20 2e | 42 59 54 45 20 30 2c 30 |HIWORD .|BYTE 0,0|
|00000af0| 00 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 00 44 49 56 |.;------|---*.DIV|
|00000b00| 49 44 45 00 20 4c 44 41 | 20 23 30 00 20 53 54 41 |IDE. LDA| #0. STA|
|00000b10| 20 48 49 57 4f 52 44 00 | 20 53 54 41 20 48 49 57 | HIWORD.| STA HIW|
|00000b20| 4f 52 44 2b 31 00 20 4c | 44 41 20 57 4f 52 44 32 |ORD+1. L|DA WORD2|
|00000b30| 00 20 4f 52 41 20 57 4f | 52 44 32 2b 31 00 20 42 |. ORA WO|RD2+1. B|
|00000b40| 4e 45 20 44 49 56 4f 4b | 00 20 53 45 43 00 20 42 |NE DIVOK|. SEC. B|
|00000b50| 43 53 20 44 56 44 45 52 | 52 00 44 49 56 4f 4b 00 |CS DVDER|R.DIVOK.|
|00000b60| 20 4c 44 58 20 23 31 36 | 00 44 56 4c 4f 4f 50 00 | LDX #16|.DVLOOP.|
|00000b70| 20 52 4f 4c 20 57 4f 52 | 44 31 00 20 52 4f 4c 20 | ROL WOR|D1. ROL |
|00000b80| 57 4f 52 44 31 2b 31 00 | 20 52 4f 4c 20 48 49 57 |WORD1+1.| ROL HIW|
|00000b90| 4f 52 44 00 20 52 4f 4c | 20 48 49 57 4f 52 44 2b |ORD. ROL| HIWORD+|
|00000ba0| 31 00 20 53 45 43 00 20 | 4c 44 41 20 48 49 57 4f |1. SEC. |LDA HIWO|
|00000bb0| 52 44 00 20 53 42 43 20 | 57 4f 52 44 32 00 20 54 |RD. SBC |WORD2. T|
|00000bc0| 41 59 00 20 4c 44 41 20 | 48 49 57 4f 52 44 2b 31 |AY. LDA |HIWORD+1|
|00000bd0| 00 20 53 42 43 20 57 4f | 52 44 32 2b 31 00 20 42 |. SBC WO|RD2+1. B|
|00000be0| 43 43 20 44 49 56 4c 50 | 32 00 20 53 54 59 20 48 |CC DIVLP|2. STY H|
|00000bf0| 49 57 4f 52 44 00 20 53 | 54 41 20 48 49 57 4f 52 |IWORD. S|TA HIWOR|
|00000c00| 44 2b 31 00 44 49 56 4c | 50 32 00 20 44 45 58 00 |D+1.DIVL|P2. DEX.|
|00000c10| 20 42 4e 45 20 44 56 4c | 4f 4f 50 00 20 52 4f 4c | BNE DVL|OOP. ROL|
|00000c20| 20 57 4f 52 44 31 00 20 | 52 4f 4c 20 57 4f 52 44 | WORD1. |ROL WORD|
|00000c30| 31 2b 31 00 20 43 4c 43 | 00 20 4c 44 41 20 48 49 |1+1. CLC|. LDA HI|
|00000c40| 57 4f 52 44 00 20 4f 52 | 41 20 48 49 57 4f 52 44 |WORD. OR|A HIWORD|
|00000c50| 2b 31 00 20 42 45 51 20 | 44 56 49 44 45 31 00 20 |+1. BEQ |DVIDE1. |
|00000c60| 4c 44 41 20 23 36 37 00 | 20 53 54 41 20 43 41 52 |LDA #67.| STA CAR|
|00000c70| 52 59 00 44 56 49 44 45 | 31 00 20 4a 4d 50 20 4c |RY.DVIDE|1. JMP L|
|00000c80| 55 50 53 54 4b 00 44 56 | 44 45 52 52 20 20 52 54 |UPSTK.DV|DERR  RT|
|00000c90| 53 00 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2a 00 50 |S.;-----|-----*.P|
|00000ca0| 53 48 53 54 4b 00 20 4c | 44 58 20 53 54 4b 50 54 |SHSTK. L|DX STKPT|
|00000cb0| 52 00 20 4c 44 41 20 43 | 55 52 4e 55 4d 00 20 53 |R. LDA C|URNUM. S|
|00000cc0| 54 41 20 53 54 41 43 4b | 2c 58 00 20 49 4e 58 00 |TA STACK|,X. INX.|
|00000cd0| 20 4c 44 41 20 43 55 52 | 4e 55 4d 2b 31 00 20 53 | LDA CUR|NUM+1. S|
|00000ce0| 54 41 20 53 54 41 43 4b | 2c 58 00 20 49 4e 58 00 |TA STACK|,X. INX.|
|00000cf0| 20 4c 44 41 20 43 55 52 | 46 55 4e 00 20 53 54 41 | LDA CUR|FUN. STA|
|00000d00| 20 53 54 41 43 4b 2c 58 | 00 20 49 4e 58 00 20 53 | STACK,X|. INX. S|
|00000d10| 54 58 20 53 54 4b 50 54 | 52 00 20 52 54 53 00 3b |TX STKPT|R. RTS.;|
|00000d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 00 46 4e 44 50 52 49 |--------|*.FNDPRI|
|00000d30| 00 3b 20 4f 4e 20 45 4e | 54 52 59 20 41 20 48 4f |.; ON EN|TRY A HO|
|00000d40| 4c 44 53 20 56 41 4c 55 | 45 20 54 4f 20 4c 4f 4f |LDS VALU|E TO LOO|
|00000d50| 4b 20 55 50 00 3b 20 4f | 4e 20 45 58 49 54 20 59 |K UP.; O|N EXIT Y|
|00000d60| 20 48 4f 4c 44 53 20 54 | 48 45 20 50 52 49 4f 52 | HOLDS T|HE PRIOR|
|00000d70| 49 54 59 20 4c 45 56 45 | 4c 2e 00 3b 20 41 26 58 |ITY LEVE|L..; A&X|
|00000d80| 20 43 41 4e 4e 4f 54 20 | 42 45 20 43 48 41 4e 47 | CANNOT |BE CHANG|
|00000d90| 45 44 2e 00 20 53 54 41 | 20 46 4e 44 41 56 4c 00 |ED.. STA| FNDAVL.|
|00000da0| 20 53 54 58 20 46 4e 44 | 58 56 4c 00 20 4c 44 58 | STX FND|XVL. LDX|
|00000db0| 20 23 32 35 35 00 50 52 | 4c 4f 4f 50 20 49 4e 58 | #255.PR|LOOP INX|
|00000dc0| 00 20 43 4d 50 20 50 52 | 49 46 55 4e 2c 58 00 20 |. CMP PR|IFUN,X. |
|00000dd0| 42 4e 45 20 50 52 4c 4f | 4f 50 00 20 4c 44 59 20 |BNE PRLO|OP. LDY |
|00000de0| 50 52 49 4c 45 56 2c 58 | 00 20 4c 44 41 20 46 4e |PRILEV,X|. LDA FN|
|00000df0| 44 41 56 4c 00 20 4c 44 | 58 20 46 4e 44 58 56 4c |DAVL. LD|X FNDXVL|
|00000e00| 00 20 52 54 53 00 46 4e | 44 41 56 4c 20 2e 42 59 |. RTS.FN|DAVL .BY|
|00000e10| 54 45 20 30 00 46 4e 44 | 58 56 4c 20 2e 42 59 54 |TE 0.FND|XVL .BYT|
|00000e20| 45 20 30 00 3b 45 4e 44 | 00 00                   |E 0.;END|..      |
+--------+-------------------------+-------------------------+--------+--------+