DISA01
FILE INFORMATION
FILENAME(S): DISA01
FILE TYPE(S): SEQ
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
bfcf79abe80147c7fedd9a449acf1d1d63104deebe806fc199fc3e3faf0abb3d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | DISA01 | SEQ | DuncanTwain | 24 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 35 39 31 36 | *=35916| 00000010: 0D 20 20 20 20 20 20 4C 44 41 20 23 31 34 37 20 |. LDA #147 | 00000020: 20 20 20 3B 53 43 48 45 52 4D 20 42 4C 41 4E 4B | ;SCHERM BLANK| 00000030: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 |.. JSR 654| 00000040: 39 30 0D 20 20 20 20 20 20 4C 44 58 20 23 30 31 |90. LDX #01| 00000050: 35 20 20 20 20 3B 27 44 4F 4F 52 47 41 4E 47 20 |5 ;'DOORGANG | 00000060: 31 2E 27 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |1.'. JSR 3| 00000070: 38 37 31 32 0D 20 20 20 20 20 20 4C 44 41 20 23 |8712. LDA #| 00000080: 30 30 30 20 20 20 20 3B 56 4C 41 47 47 45 4E 3A |000 ;VLAGGEN:| 00000090: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 37 35 |. STA 0075| 000000A0: 37 20 20 3B 56 41 3D 28 37 35 37 29 20 4E 45 45 |7 ;VA=(757) NEE| 000000B0: 52 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |R.. STA 00| 000000C0: 37 35 38 20 20 3B 56 42 3D 28 37 35 38 29 20 4E |758 ;VB=(758) N| 000000D0: 45 45 52 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |EER.. STA | 000000E0: 30 30 37 35 39 20 20 3B 56 43 3D 28 37 35 39 29 |00759 ;VC=(759)| 000000F0: 20 4E 45 45 52 2E 0D 20 20 20 20 20 20 4C 44 41 | NEER.. LDA| 00000100: 20 20 30 30 37 36 30 20 20 20 3B 53 43 41 4E 41 | 00760 ;SCANA| 00000110: 44 52 45 53 0D 20 20 20 20 20 20 53 54 41 20 20 |DRES. STA | 00000120: 30 30 37 30 30 20 20 20 3B 41 58 3D 28 37 30 31 |00700 ;AX=(701| 00000130: 2C 37 30 30 29 2E 0D 20 20 20 20 20 20 4C 44 41 |,700).. LDA| 00000140: 20 20 30 30 37 36 31 20 20 20 3B 41 58 3D 41 42 | 00761 ;AX=AB| 00000150: 20 5A 45 54 54 45 4E 2E 0D 20 20 20 20 20 20 53 | ZETTEN.. S| 00000160: 54 41 20 20 30 30 37 30 31 20 20 20 3B 52 45 47 |TA 00701 ;REG| 00000170: 45 4C 41 44 52 45 53 0D 20 20 20 20 20 20 4C 44 |ELADRES. LD| 00000180: 58 20 23 30 30 33 20 20 20 20 20 3B 52 58 3D 28 |X #003 ;RX=(| 00000190: 32 34 38 2C 32 34 37 29 2E 0D 4E 5A 20 20 20 20 |248,247)..NZ | 000001A0: 4C 44 41 20 20 34 30 39 32 38 2C 58 20 3B 52 58 |LDA 40928,X ;RX| 000001B0: 3D 52 55 20 5A 45 54 54 45 4E 2E 0D 20 20 20 20 |=RU ZETTEN.. | 000001C0: 20 20 53 54 41 20 20 32 34 37 2C 58 20 20 20 3B | STA 247,X ;| 000001D0: 4C 41 42 45 4C 41 44 52 45 53 0D 20 20 20 20 20 |LABELADRES. | 000001E0: 20 44 45 58 20 20 20 20 20 20 20 20 20 20 3B 4C | DEX ;L| 000001F0: 58 3D 28 32 35 30 2C 32 34 39 29 2E 0D 20 20 20 |X=(250,249).. | 00000200: 20 20 20 42 50 4C 20 20 4E 5A 20 20 20 20 20 20 | BPL NZ | 00000210: 3B 4C 58 3D 4C 55 20 5A 45 54 54 45 4E 2E 0D 4F |;LX=LU ZETTEN..O| 00000220: 41 20 20 20 20 4C 44 41 20 20 30 30 37 30 31 20 |A LDA 00701 | 00000230: 3B 41 48 2C 41 4C 3D 28 30 34 32 2C 30 34 31 29 |;AH,AL=(042,041)| 00000240: 2C 0D 20 20 20 20 20 20 53 54 41 20 20 30 34 32 |,. STA 042| 00000250: 20 20 20 3B 56 4F 4F 52 20 41 44 52 45 53 53 45 | ;VOOR ADRESSE| 00000260: 52 45 4E 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 |REN.. LDA | 00000270: 30 30 37 30 30 0D 20 20 20 20 20 20 53 54 41 20 |00700. STA | 00000280: 20 30 34 31 0D 20 20 20 20 20 20 4C 44 59 20 23 | 041. LDY #| 00000290: 30 30 30 20 20 20 20 3B 28 59 29 20 4F 50 20 4E |000 ;(Y) OP N| 000002A0: 55 4C 2E 0D 20 20 20 20 20 20 53 54 59 20 20 30 |UL.. STY 0| 000002B0: 30 37 30 34 20 20 3B 4F 4C 3D 28 37 30 34 29 20 |0704 ;OL=(704) | 000002C0: 20 4E 55 4C 2E 0D 20 20 20 20 20 20 53 54 59 20 | NUL.. STY | 000002D0: 20 30 30 37 30 35 20 20 3B 4F 48 3D 28 37 30 35 | 00705 ;OH=(705| 000002E0: 29 20 20 4E 55 4C 2E 0D 20 20 20 20 20 20 53 54 |) NUL.. ST| 000002F0: 59 20 20 30 30 37 30 33 20 20 3B 53 32 3D 28 37 |Y 00703 ;S2=(7| 00000300: 30 33 29 20 20 4E 55 4C 2E 0D 20 20 20 20 20 20 |03) NUL.. | 00000310: 4C 44 41 20 28 30 34 31 29 2C 59 20 3B 42 59 3D |LDA (041),Y ;BY=| 00000320: 28 30 30 32 29 20 28 41 58 29 2E 0D 20 20 20 20 |(002) (AX).. | 00000330: 20 20 53 54 41 20 20 30 30 32 0D 20 20 20 20 20 | STA 002. | 00000340: 20 4C 44 41 20 20 30 30 37 35 39 0D 20 20 20 20 | LDA 00759. | 00000350: 20 20 42 45 51 20 20 4F 45 20 20 20 20 20 3B 56 | BEQ OE ;V| 00000360: 43 20 4F 50 3A 20 20 2D 2D 3E 5B 4F 45 5D 0D 20 |C OP: -->[OE]. | 00000370: 20 20 20 20 20 42 4E 45 20 20 4F 43 20 20 20 20 | BNE OC | 00000380: 20 3B 56 43 20 4E 45 45 52 3A 2D 2D 3E 5B 4F 43 | ;VC NEER:-->[OC| 00000390: 5D 0D 4F 46 20 20 20 20 4C 44 41 20 23 30 30 30 |].OF LDA #000| 000003A0: 20 20 20 20 3B 53 32 20 4E 55 4C 20 42 49 4A 0D | ;S2 NUL BIJ.| 000003B0: 20 20 20 20 20 20 53 54 41 20 20 30 30 37 30 33 | STA 00703| 000003C0: 20 20 3B 41 46 42 52 45 45 4B 20 53 43 41 4E 2E | ;AFBREEK SCAN.| 000003D0: 0D 4F 43 20 20 20 20 4C 44 41 20 23 31 32 37 0D |.OC LDA #127.| 000003E0: 20 20 20 20 20 20 53 54 41 20 20 30 30 37 30 32 | STA 00702| 000003F0: 20 20 3B 53 31 3D 30 31 31 31 31 31 31 31 2E 0D | ;S1=01111111..| 00000400: 20 20 20 20 20 20 4C 44 41 20 20 30 30 32 20 20 | LDA 002 | 00000410: 20 20 3B 53 32 3D 30 30 30 30 30 30 30 30 2E 0D | ;S2=00000000..| 00000420: 20 20 20 20 20 20 53 54 41 20 20 30 30 37 30 34 | STA 00704| 00000430: 20 20 3B 4F 4C 3D 42 59 2E 0D 20 20 20 20 20 20 | ;OL=BY.. | 00000440: 43 4C 43 20 20 20 20 20 20 20 20 20 3B 4F 48 3D |CLC ;OH=| 00000450: 30 2E 20 20 20 2D 2D 3E 5B 4F 51 5D 0D 20 20 20 |0. -->[OQ]. | 00000460: 20 20 20 42 43 43 20 20 4F 51 0D 4F 45 20 20 20 | BCC OQ.OE | 00000470: 20 4C 44 58 20 23 30 31 32 20 20 20 20 3B 42 45 | LDX #012 ;BE| 00000480: 47 49 4E 41 44 52 45 53 20 56 41 4E 0D 20 20 20 |GINADRES VAN. | 00000490: 20 20 20 4A 53 52 20 20 33 38 33 38 31 20 20 3B | JSR 38381 ;| 000004A0: 4F 50 43 4F 44 45 53 20 49 4E 0D 20 20 20 20 20 |OPCODES IN. | 000004B0: 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 28 32 | LDY #000 ;(2| 000004C0: 35 34 2C 32 35 33 29 2E 0D 4F 42 20 20 20 20 4C |54,253)..OB L| 000004D0: 44 41 20 28 32 35 33 29 2C 59 20 3B 42 59 3D 4F |DA (253),Y ;BY=O| 000004E0: 50 43 4F 44 45 20 23 28 59 29 3F 0D 20 20 20 20 |PCODE #(Y)?. | 000004F0: 20 20 43 4D 50 20 20 30 30 32 20 20 20 20 3B 4A | CMP 002 ;J| 00000500: 41 3A 20 20 20 20 20 2D 2D 3E 5B 4F 44 5D 0D 20 |A: -->[OD]. | 00000510: 20 20 20 20 20 42 45 51 20 20 4F 44 0D 20 20 20 | BEQ OD. | 00000520: 20 20 20 49 4E 59 0D 20 20 20 20 20 20 43 50 59 | INY. CPY| 00000530: 20 20 34 30 39 34 32 20 20 3B 4E 45 45 4E 3A 5A | 40942 ;NEEN:Z| 00000540: 4F 45 4B 20 44 4F 4F 52 2E 0D 20 20 20 20 20 20 |OEK DOOR.. | 00000550: 42 43 43 20 20 4F 42 20 20 20 20 20 3B 4E 49 45 |BCC OB ;NIE| 00000560: 54 20 47 45 56 4F 4E 44 45 4E 3A 0D 20 20 20 20 |T GEVONDEN:. | 00000570: 20 20 42 43 53 20 20 4F 43 20 20 20 20 20 3B 20 | BCS OC ; | 00000580: 20 20 20 20 20 20 20 2D 2D 3E 5B 4F 43 5D 0D 4F | -->[OC].O| 00000590: 44 20 20 20 20 4C 44 41 20 20 34 30 35 37 36 2C |D LDA 40576,| 000005A0: 59 20 3B 47 45 56 4F 4E 44 45 4E 3A 0D 20 20 20 |Y ;GEVONDEN:. | 000005B0: 20 20 20 53 54 41 20 20 30 30 37 30 33 20 20 20 | STA 00703 | 000005C0: 3B 53 32 3D 28 54 43 2B 28 59 29 29 2E 0D 20 20 |;S2=(TC+(Y)).. | 000005D0: 20 20 20 20 4C 44 41 20 20 34 30 34 31 36 2C 59 | LDA 40416,Y| 000005E0: 20 3B 53 31 3D 28 54 42 2B 28 59 29 29 2E 0D 20 | ;S1=(TB+(Y)).. | 000005F0: 20 20 20 20 20 53 54 41 20 20 30 30 37 30 32 20 | STA 00702 | 00000600: 20 20 3B 53 31 20 42 49 54 53 20 37 2C 36 2E 0D | ;S1 BITS 7,6..| 00000610: 20 20 20 20 20 20 41 4E 44 20 23 31 39 32 20 20 | AND #192 | 00000620: 20 20 20 3B 4E 41 42 59 54 45 53 3F 0D 20 20 20 | ;NABYTES?. | 00000630: 20 20 20 42 45 51 20 20 4F 51 20 20 20 20 20 3B | BEQ OQ ;| 00000640: 4E 45 45 4E 3A 20 20 20 2D 2D 3E 5B 4F 51 5D 0D |NEEN: -->[OQ].| 00000650: 20 20 20 20 20 20 2E 42 59 54 45 20 24 34 41 20 | .BYTE $4A | 00000660: 20 20 3B 4A 41 3A 33 20 42 49 54 53 0D 20 20 20 | ;JA:3 BITS. | 00000670: 20 20 20 2E 42 59 54 45 20 24 34 41 20 20 20 3B | .BYTE $4A ;| 00000680: 4E 41 41 52 20 52 45 43 48 54 53 2E 0D 20 20 20 |NAAR RECHTS.. | 00000690: 20 20 20 2E 42 59 54 45 20 24 34 41 0D 20 20 20 | .BYTE $4A. | 000006A0: 20 20 20 54 41 58 20 20 20 20 20 20 20 20 20 3B | TAX ;| 000006B0: 28 58 29 3D 38 2A 4E 53 0D 20 20 20 20 20 20 4F |(X)=8*NS. O| 000006C0: 52 41 20 20 30 30 37 30 33 20 20 3B 56 4F 45 47 |RA 00703 ;VOEG| 000006D0: 20 42 49 4A 20 53 32 2E 0D 20 20 20 20 20 20 53 | BIJ S2.. S| 000006E0: 54 41 20 20 30 30 37 30 33 0D 20 20 20 20 20 20 |TA 00703. | 000006F0: 54 58 41 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |TXA. .BYTE | 00000700: 24 34 41 20 20 20 3B 4E 4F 47 20 45 45 4E 53 20 |$4A ;NOG EENS | 00000710: 44 52 49 45 0D 20 20 20 20 20 20 2E 42 59 54 45 |DRIE. .BYTE| 00000720: 20 24 34 41 20 20 20 3B 4E 41 41 52 20 52 45 43 | $4A ;NAAR REC| 00000730: 48 54 53 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 |HTS.. .BYTE| 00000740: 20 24 34 41 0D 20 20 20 20 20 20 54 41 59 20 20 | $4A. TAY | 00000750: 20 20 20 20 20 20 20 3B 28 59 29 3D 4E 53 3D 41 | ;(Y)=NS=A| 00000760: 41 4E 54 41 4C 0D 20 20 20 20 20 20 4A 53 52 20 |ANTAL. JSR | 00000770: 20 33 38 33 30 35 20 20 3B 4E 41 42 59 54 45 53 | 38305 ;NABYTES| 00000780: 20 56 41 4E 0D 20 20 20 20 20 20 53 54 58 20 20 | VAN. STX | 00000790: 30 30 37 35 39 20 20 3B 45 45 4E 20 4F 50 44 52 |00759 ;EEN OPDR| 000007A0: 41 43 48 54 2E 0D 20 20 20 20 20 20 43 50 58 20 |ACHT.. CPX | 000007B0: 23 30 30 30 20 20 20 20 3B 41 58 2B 4E 53 3E 41 |#000 ;AX+NS>A| 000007C0: 45 3A 20 56 43 2E 0D 20 20 20 20 20 20 42 4E 45 |E: VC.. BNE| 000007D0: 20 20 4F 46 20 20 20 20 20 3B 56 43 20 4F 50 3A | OF ;VC OP:| 000007E0: 20 20 2D 2D 3E 5B 4F 46 5D 0D 20 20 20 20 20 20 | -->[OF]. | 000007F0: 42 45 51 20 20 4F 48 20 20 20 20 20 3B 56 43 20 |BEQ OH ;VC | 00000800: 4E 45 45 52 3A 2D 2D 3E 5B 4F 48 5D 0D 4F 41 33 |NEER:-->[OH].OA3| 00000810: 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B | CLC ;| 00000820: 54 55 53 53 45 4E 2D 0D 20 20 20 20 20 20 42 43 |TUSSEN-. BC| 00000830: 43 20 20 4F 41 20 20 20 20 20 3B 53 50 52 4F 4E |C OA ;SPRON| 00000840: 47 2E 0D 4F 48 20 20 20 20 54 59 41 20 20 20 20 |G..OH TYA | 00000850: 20 20 20 20 20 3B 28 58 29 3D 4E 53 2E 0D 20 20 | ;(X)=NS.. | 00000860: 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 4C 44 | TAX. LD| 00000870: 59 20 23 30 30 31 0D 20 20 20 20 20 20 4C 44 41 |Y #001. LDA| 00000880: 20 28 30 34 31 29 2C 59 20 3B 45 45 52 53 54 45 | (041),Y ;EERSTE| 00000890: 20 4E 41 42 59 54 45 0D 20 20 20 20 20 20 53 54 | NABYTE. ST| 000008A0: 41 20 20 30 30 37 30 34 20 20 3B 4F 4C 3D 28 41 |A 00704 ;OL=(A| 000008B0: 58 2B 31 29 2E 0D 20 20 20 20 20 20 43 50 58 20 |X+1).. CPX | 000008C0: 23 30 30 31 20 20 20 20 3B 4F 48 3D 30 2E 0D 20 |#001 ;OH=0.. | 000008D0: 20 20 20 20 20 42 45 51 20 20 4F 4A 20 20 20 20 | BEQ OJ | 000008E0: 20 3B 45 45 4E 20 4E 41 42 59 54 45 3A 0D 20 20 | ;EEN NABYTE:. | 000008F0: 20 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 | INY | 00000900: 3B 20 20 20 20 20 20 20 20 2D 2D 3E 5B 4F 4A 5D |; -->[OJ]| 00000910: 0D 20 20 20 20 20 20 4C 44 41 20 28 30 34 31 29 |. LDA (041)| 00000920: 2C 59 20 3B 54 57 45 45 44 45 20 4E 41 42 59 54 |,Y ;TWEEDE NABYT| 00000930: 45 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 37 |E. STA 007| 00000940: 30 35 20 20 3B 4F 48 3D 28 41 58 2B 32 29 2E 0D |05 ;OH=(AX+2)..| 00000950: 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 30 34 | LDA 00704| 00000960: 20 20 3B 53 48 2C 53 4C 3D 4F 48 2C 4F 4C 2E 0D | ;SH,SL=OH,OL..| 00000970: 20 20 20 20 20 20 53 54 41 20 20 30 33 38 0D 20 | STA 038. | 00000980: 20 20 20 20 20 4C 44 41 20 20 30 30 37 30 35 0D | LDA 00705.| 00000990: 20 20 20 20 20 20 53 54 41 20 20 30 33 39 0D 20 | STA 039. | 000009A0: 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 | LDA #000 | 000009B0: 20 3B 56 4C 41 47 20 44 56 20 4E 45 45 52 2E 0D | ;VLAG DV NEER..| 000009C0: 20 20 20 20 20 20 53 54 41 20 20 31 31 31 20 20 | STA 111 | 000009D0: 20 20 3B 20 20 20 20 20 20 20 20 2D 2D 3E 5B 4F | ; -->[O| 000009E0: 4C 5D 0D 20 20 20 20 20 20 42 45 51 20 20 4F 4C |L]. BEQ OL| 000009F0: 0D 4F 51 20 20 20 20 4C 44 41 20 20 30 30 37 30 |.OQ LDA 0070| 00000A00: 31 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 38 |1. STA 108| 00000A10: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 30 |. LDA 0070| 00000A20: 30 20 20 3B 53 43 41 4E 41 44 52 45 53 20 49 4E |0 ;SCANADRES IN| 00000A30: 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 37 20 |. STA 107 | 00000A40: 20 20 20 3B 41 59 3D 28 31 30 38 2C 31 30 37 29 | ;AY=(108,107)| 00000A50: 2E 0D 4F 53 32 20 20 20 43 4C 43 20 20 20 20 20 |..OS2 CLC | 00000A60: 20 20 20 20 3B 54 55 53 53 45 4E 2E 20 2D 2D 3E | ;TUSSEN. -->| 00000A70: 5B 4F 53 5D 0D 20 20 20 20 20 20 42 43 43 20 20 |[OS]. BCC | 00000A80: 4F 53 31 0D 4F 41 32 20 20 20 43 4C 43 20 20 20 |OS1.OA2 CLC | 00000A90: 20 20 20 20 20 20 3B 54 55 53 53 45 4E 2D 0D 20 | ;TUSSEN-. | 00000AA0: 20 20 20 20 20 42 43 43 20 20 4F 41 33 20 20 20 | BCC OA3 | 00000AB0: 20 3B 53 50 52 4F 4E 47 2E 0D 4F 4A 20 20 20 20 | ;SPRONG..OJ | 00000AC0: 4C 44 41 20 20 30 30 37 30 33 20 20 3B 53 32 20 |LDA 00703 ;S2 | 00000AD0: 42 49 54 20 37 2E 0D 20 20 20 20 20 20 41 4E 44 |BIT 7.. AND| 00000AE0: 20 23 31 32 38 20 20 20 20 3B 4E 55 4C 3A 20 20 | #128 ;NUL: | 00000AF0: 20 20 2D 2D 3E 5B 4F 53 5D 0D 20 20 20 20 20 20 | -->[OS]. | 00000B00: 42 45 51 20 20 4F 53 31 20 20 20 20 3B 45 45 4E |BEQ OS1 ;EEN| 00000B10: 3A 0D 20 20 20 20 20 20 4C 44 58 20 20 30 30 37 |:. LDX 007| 00000B20: 30 35 20 20 3B 28 58 29 3D 44 48 3D 4F 48 2E 0D |05 ;(X)=DH=OH..| 00000B30: 20 20 20 20 20 20 4C 44 59 20 20 30 30 37 30 34 | LDY 00704| 00000B40: 20 20 3B 28 59 29 3D 44 4C 3D 4F 4C 2E 0D 20 20 | ;(Y)=DL=OL.. | 00000B50: 20 20 20 20 43 50 59 20 23 31 32 38 20 20 20 20 | CPY #128 | 00000B60: 3B 44 4C 20 42 49 54 20 37 3F 0D 20 20 20 20 20 |;DL BIT 7?. | 00000B70: 20 42 43 43 20 20 4F 4B 20 20 20 20 20 3B 4E 55 | BCC OK ;NU| 00000B80: 4C 3A 20 20 20 20 2D 2D 3E 5B 4F 4B 5D 0D 20 20 |L: -->[OK]. | 00000B90: 20 20 20 20 44 45 58 20 20 20 20 20 20 20 20 20 | DEX | 00000BA0: 3B 45 45 4E 3A 44 48 2C 44 4C 2D 32 35 36 2E 0D |;EEN:DH,DL-256..| 00000BB0: 4F 4B 20 20 20 20 49 4E 43 20 20 31 31 31 20 20 |OK INC 111 | 00000BC0: 3B 44 56 20 4F 50 2E 0D 20 20 20 20 20 20 53 45 |;DV OP.. SE| 00000BD0: 43 20 20 20 20 20 20 20 3B 28 31 30 38 2C 31 30 |C ;(108,10| 00000BE0: 37 29 2B 31 2B 44 48 2C 44 4C 0D 20 20 20 20 20 |7)+1+DH,DL. | 00000BF0: 20 54 59 41 20 20 20 20 20 20 20 3B 5A 45 54 54 | TYA ;ZETT| 00000C00: 45 4E 20 49 4E 0D 20 20 20 20 20 20 41 44 43 20 |EN IN. ADC | 00000C10: 20 31 30 37 20 20 3B 53 48 2C 53 4C 3D 28 30 33 | 107 ;SH,SL=(03| 00000C20: 39 2C 30 33 38 29 2E 0D 20 20 20 20 20 20 53 54 |9,038).. ST| 00000C30: 41 20 20 30 33 38 0D 20 20 20 20 20 20 54 58 41 |A 038. TXA| 00000C40: 0D 20 20 20 20 20 20 41 44 43 20 20 31 30 38 0D |. ADC 108.| 00000C50: 20 20 20 20 20 20 53 54 41 20 20 30 33 39 0D 20 | STA 039. | 00000C60: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C | CLC. L| 00000C70: 44 41 20 20 30 30 37 30 33 20 20 3B 53 32 3D 53 |DA 00703 ;S2=S| 00000C80: 32 2B 38 3A 0D 20 20 20 20 20 20 41 44 43 20 23 |2+8:. ADC #| 00000C90: 30 30 38 20 20 20 20 3B 41 41 4E 54 2E 44 49 53 |008 ;AANT.DIS| 00000CA0: 53 45 4D 42 4C 45 2D 0D 20 20 20 20 20 20 53 54 |SEMBLE-. ST| 00000CB0: 41 20 20 30 30 37 30 33 20 20 3B 4E 41 42 53 2E |A 00703 ;NABS.| 00000CC0: 45 45 4E 20 48 4F 47 45 52 2E 0D 4F 4C 20 20 20 |EEN HOGER..OL | 00000CD0: 20 4C 44 41 20 20 30 33 38 20 20 20 20 3B 53 48 | LDA 038 ;SH| 00000CE0: 2C 53 4C 20 4E 41 41 52 0D 20 20 20 20 20 20 53 |,SL NAAR. S| 00000CF0: 54 41 20 20 32 35 31 20 20 20 20 3B 28 32 35 32 |TA 251 ;(252| 00000D00: 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 4C 44 41 |,251).. LDA| 00000D10: 20 20 30 33 39 0D 20 20 20 20 20 20 53 54 41 20 | 039. STA | 00000D20: 20 32 35 32 0D 20 20 20 20 20 20 4A 53 52 20 20 | 252. JSR | 00000D30: 33 38 33 34 33 20 20 3B 41 42 3C 3D 53 48 2C 53 |38343 ;AB<=SH,S| 00000D40: 4C 3C 3D 41 45 3F 0D 20 20 20 20 20 20 43 50 58 |L<=AE?. CPX| 00000D50: 20 23 30 30 30 20 20 20 20 3B 4A 41 3A 20 20 20 | #000 ;JA: | 00000D60: 20 20 2D 2D 3E 5B 4F 4D 5D 0D 20 20 20 20 20 20 | -->[OM]. | 00000D70: 42 45 51 20 20 4F 4D 20 20 20 20 20 3B 4E 45 45 |BEQ OM ;NEE| 00000D80: 4E 3A 53 32 20 42 49 54 20 37 0D 20 20 20 20 20 |N:S2 BIT 7. | 00000D90: 20 4C 44 41 20 20 30 30 37 30 33 20 20 3B 4F 50 | LDA 00703 ;OP| 00000DA0: 20 4E 55 4C 20 5A 45 54 54 45 4E 2E 0D 20 20 20 | NUL ZETTEN.. | 00000DB0: 20 20 20 41 4E 44 20 23 31 32 37 20 20 20 20 3B | AND #127 ;| 00000DC0: 20 20 20 20 20 20 20 20 2D 2D 3E 5B 4F 52 5D 0D | -->[OR].| 00000DD0: 20 20 20 20 20 20 53 54 41 20 20 30 30 37 30 33 | STA 00703| 00000DE0: 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 |. CLC. | 00000DF0: 20 42 43 43 20 20 4F 52 0D 4F 41 31 20 20 20 43 | BCC OR.OA1 C| 00000E00: 4C 43 20 20 20 20 20 20 20 20 20 3B 54 55 53 53 |LC ;TUSS| 00000E10: 45 4E 2D 0D 20 20 20 20 20 20 42 43 43 20 20 4F |EN-. BCC O| 00000E20: 41 32 20 20 20 20 3B 53 50 52 4F 4E 47 2E 0D 4F |A2 ;SPRONG..O| 00000E30: 53 31 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 |S1 CLC | 00000E40: 20 3B 54 55 53 53 45 4E 2D 0D 20 20 20 20 20 20 | ;TUSSEN-. | 00000E50: 42 43 43 20 20 4F 53 20 20 20 20 20 3B 53 50 52 |BCC OS ;SPR| 00000E60: 4F 4E 47 2E 0D 4F 4D 20 20 20 20 4C 44 41 20 20 |ONG..OM LDA | 00000E70: 30 30 37 30 33 20 20 3B 53 32 20 42 49 54 20 37 |00703 ;S2 BIT 7| 00000E80: 20 4F 50 20 31 2E 0D 20 20 20 20 20 20 4F 52 41 | OP 1.. ORA| 00000E90: 20 23 31 32 38 0D 20 20 20 20 20 20 53 54 41 20 | #128. STA | 00000EA0: 20 30 30 37 30 33 0D 20 20 20 20 20 20 4A 53 52 | 00703. JSR| 00000EB0: 20 20 33 37 38 37 36 20 20 3B 4E 49 45 55 57 45 | 37876 ;NIEUWE| 00000EC0: 20 4C 41 42 45 4C 3F 0D 20 20 20 20 20 20 43 50 | LABEL?. CP| 00000ED0: 58 20 23 30 30 30 20 20 20 20 3B 4E 45 45 4E 3A |X #000 ;NEEN:| 00000EE0: 20 20 20 2D 2D 3E 5B 4F 52 5D 0D 20 20 20 20 20 | -->[OR]. | 00000EF0: 20 42 45 51 20 20 4F 52 20 20 20 20 20 3B 4A 41 | BEQ OR ;JA| 00000F00: 3A 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 |:. LDA 007| 00000F10: 35 38 20 20 3B 56 42 20 4E 45 45 52 3A 2D 2D 3E |58 ;VB NEER:-->| 00000F20: 5B 4F 50 5D 0D 20 20 20 20 20 20 42 45 51 20 20 |[OP]. BEQ | 00000F30: 4F 50 20 20 20 20 20 3B 56 42 20 4F 50 3A 0D 20 |OP ;VB OP:. | 00000F40: 20 20 20 20 20 4A 53 52 20 20 33 37 37 34 34 20 | JSR 37744 | 00000F50: 20 3B 4C 41 42 45 4C 4F 56 45 52 4C 4F 4F 50 2E | ;LABELOVERLOOP.| 00000F60: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00000F70: 20 20 20 3B 20 20 20 20 20 20 20 20 2D 2D 3E 5B | ; -->[| 00000F80: 4F 5A 5D 0D 20 20 20 20 20 20 42 43 43 20 20 4F |OZ]. BCC O| 00000F90: 5A 0D 4F 50 20 20 20 20 4A 53 52 20 20 33 37 37 |Z.OP JSR 377| 00000FA0: 39 32 20 20 3B 5A 45 54 20 49 4E 20 44 45 0D 4F |92 ;ZET IN DE.O| 00000FB0: 52 20 20 20 20 4C 44 41 20 20 31 31 31 20 20 20 |R LDA 111 | 00000FC0: 20 3B 4C 41 42 45 4C 54 41 42 45 4C 2E 0D 20 20 | ;LABELTABEL.. | 00000FD0: 20 20 20 20 42 45 51 20 20 4F 53 20 20 20 20 20 | BEQ OS | 00000FE0: 3B 44 56 20 4E 45 45 52 3A 2D 2D 3E 5B 4F 53 5D |;DV NEER:-->[OS]| 00000FF0: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 38 20 |. LDA 038 | 00001000: 20 20 20 3B 44 56 20 4F 50 3A 0D 20 20 20 20 20 | ;DV OP:. | 00001010: 20 53 54 41 20 20 30 30 37 30 34 20 20 3B 4F 48 | STA 00704 ;OH| 00001020: 2C 4F 4C 3D 53 48 2C 53 4C 2E 0D 20 20 20 20 20 |,OL=SH,SL.. | 00001030: 20 4C 44 41 20 20 30 33 39 0D 20 20 20 20 20 20 | LDA 039. | 00001040: 53 54 41 20 20 30 30 37 30 35 0D 4F 53 20 20 20 |STA 00705.OS | 00001050: 20 4C 44 41 20 20 30 30 37 35 37 20 20 3B 56 41 | LDA 00757 ;VA| 00001060: 20 4E 45 45 52 3A 2D 2D 3E 5B 4F 55 5D 0D 20 20 | NEER:-->[OU]. | 00001070: 20 20 20 20 42 45 51 20 20 4F 55 20 20 20 20 20 | BEQ OU | 00001080: 3B 56 41 20 4F 50 3A 0D 20 20 20 20 20 20 4A 53 |;VA OP:. JS| 00001090: 52 20 20 33 37 37 36 38 20 20 3B 52 45 47 45 4C |R 37768 ;REGEL| 000010A0: 4F 56 45 52 4C 4F 4F 50 2E 0D 20 20 20 20 20 20 |OVERLOOP.. | 000010B0: 43 4C 43 20 20 20 20 20 20 20 20 20 3B 20 20 20 |CLC ; | 000010C0: 20 20 20 20 20 2D 2D 3E 5B 4F 5A 5D 0D 20 20 20 | -->[OZ]. | 000010D0: 20 20 20 42 43 43 20 20 4F 5A 0D 4F 55 20 20 20 | BCC OZ.OU | 000010E0: 20 4A 53 52 20 20 33 37 38 33 34 20 20 3B 5A 45 | JSR 37834 ;ZE| 000010F0: 54 20 49 4E 20 48 45 54 0D 4F 56 20 20 20 20 43 |T IN HET.OV C| 00001100: 4C 43 20 20 20 20 20 20 20 20 20 3B 52 45 47 45 |LC ;REGE| 00001110: 4C 47 45 42 49 45 44 2E 0D 20 20 20 20 20 20 4C |LGEBIED.. L| 00001120: 44 41 20 20 31 30 37 20 20 20 20 3B 41 44 52 45 |DA 107 ;ADRE| 00001130: 53 20 56 41 4E 0D 20 20 20 20 20 20 41 44 43 20 |S VAN. ADC | 00001140: 23 30 30 31 20 20 20 20 3B 56 4F 4C 47 45 4E 44 |#001 ;VOLGEND| 00001150: 45 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 37 |E. STA 007| 00001160: 30 30 20 20 3B 4F 50 44 52 41 43 48 54 2E 0D 20 |00 ;OPDRACHT.. | 00001170: 20 20 20 20 20 4C 44 41 20 20 31 30 38 0D 20 20 | LDA 108. | 00001180: 20 20 20 20 41 44 43 20 23 30 30 30 0D 20 20 20 | ADC #000. | 00001190: 20 20 20 53 54 41 20 20 30 30 37 30 31 0D 20 20 | STA 00701. | 000011A0: 20 20 20 20 4C 44 59 20 23 30 30 30 0D 20 20 20 | LDY #000. | 000011B0: 20 20 20 4A 53 52 20 20 33 38 33 30 35 0D 20 20 | JSR 38305. | 000011C0: 20 20 20 20 43 50 58 20 23 30 30 30 20 20 20 20 | CPX #000 | 000011D0: 3B 53 43 41 4E 20 45 49 4E 44 3F 0D 20 20 20 20 |;SCAN EIND?. | 000011E0: 20 20 42 45 51 20 20 4F 41 31 20 20 20 20 3B 4E | BEQ OA1 ;N| 000011F0: 45 45 4E 3A 20 20 20 2D 2D 3E 5B 4F 41 5D 0D 4F |EEN: -->[OA].O| 00001200: 5A 20 20 20 20 4C 44 58 20 23 30 30 32 20 20 20 |Z LDX #002 | 00001210: 20 3B 4C 58 3D 28 32 35 30 2C 32 34 39 29 2E 0D | ;LX=(250,249)..| 00001220: 20 20 20 20 20 20 4A 53 52 20 20 33 39 37 33 31 | JSR 39731| 00001230: 20 20 3B 4C 58 3D 3E 28 32 35 34 2C 32 35 33 29 | ;LX=>(254,253)| 00001240: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 33 |.. JSR 383| 00001250: 39 32 20 20 3B 4C 55 3D 3E 28 31 31 30 2C 31 30 |92 ;LU=>(110,10| 00001260: 39 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |9).. LDA 0| 00001270: 30 37 35 36 20 20 3B 52 45 44 20 44 43 2D 56 4C |0756 ;RED DC-VL| 00001280: 41 47 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 |AG.. STA 1| 00001290: 31 31 20 20 20 20 3B 5A 45 54 20 56 4C 41 47 20 |11 ;ZET VLAG | 000012A0: 44 41 41 52 4E 41 0D 20 20 20 20 20 20 4C 44 41 |DAARNA. LDA| 000012B0: 20 23 30 30 31 20 20 20 20 3B 4F 50 20 45 45 4E | #001 ;OP EEN| 000012C0: 20 56 4F 4F 52 20 44 45 0D 20 20 20 20 20 20 53 | VOOR DE. S| 000012D0: 54 41 20 20 30 30 37 35 36 20 20 3B 44 45 43 2E |TA 00756 ;DEC.| 000012E0: 41 41 4E 54 41 4C 4C 45 4E 2E 0D 20 20 20 20 20 |AANTALLEN.. | 000012F0: 20 4A 53 52 20 20 33 38 34 34 34 20 20 3B 41 41 | JSR 38444 ;AA| 00001300: 4E 54 41 4C 20 4C 41 42 45 4C 53 0D 20 20 20 20 |NTAL LABELS. | 00001310: 20 20 4A 53 52 20 20 33 38 37 39 32 20 20 3B 49 | JSR 38792 ;I| 00001320: 4E 20 54 45 4B 53 54 20 58 58 58 58 58 2E 0D 20 |N TEKST XXXXX.. | 00001330: 20 20 20 20 20 4C 44 58 20 23 30 30 30 20 20 20 | LDX #000 | 00001340: 20 3B 52 58 3D 28 32 34 38 2C 32 34 37 29 2E 0D | ;RX=(248,247)..| 00001350: 20 20 20 20 20 20 4A 53 52 20 20 33 39 37 33 31 | JSR 39731| 00001360: 20 20 3B 52 58 3D 3E 28 32 35 34 2C 32 35 33 29 | ;RX=>(254,253)| 00001370: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 33 |.. JSR 383| 00001380: 39 32 20 20 3B 52 55 3D 3E 28 31 31 30 2C 31 30 |92 ;RU=>(110,10| 00001390: 39 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |9).. JSR 3| 000013A0: 38 34 32 36 20 20 3B 41 41 4E 54 41 4C 20 52 45 |8426 ;AANTAL RE| 000013B0: 47 45 4C 53 0D 20 20 20 20 20 20 4A 53 52 20 20 |GELS. JSR | 000013C0: 33 38 38 30 34 20 20 3B 49 4E 20 54 45 4B 53 54 |38804 ;IN TEKST| 000013D0: 20 59 59 59 59 59 2E 0D 20 20 20 20 20 20 4C 44 | YYYYY.. LD| 000013E0: 41 20 20 31 31 31 20 20 20 20 3B 48 45 52 53 54 |A 111 ;HERST| 000013F0: 45 4C 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |EL. STA 00| 00001400: 37 35 36 20 20 3B 44 43 2D 56 4C 41 47 2E 0D 20 |756 ;DC-VLAG.. | 00001410: 20 20 20 20 20 4A 53 52 20 20 33 38 38 31 37 20 | JSR 38817 | 00001420: 20 3B 41 44 52 45 53 20 54 45 4B 53 54 0D 20 20 | ;ADRES TEKST. | 00001430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001440: 3B 56 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 20 20 20 |;VOORBLOK.. | 00001450: 20 4A 53 52 20 20 33 38 34 38 38 20 20 3B 4F 50 | JSR 38488 ;OP| 00001460: 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 |EN REGEL.. | 00001470: 4C 44 58 20 23 30 31 39 20 20 20 20 3B 27 2E 2E |LDX #019 ;'..| 00001480: 2E 4C 41 42 45 4C 53 0D 20 20 20 20 20 20 4A 53 |.LABELS. JS| 00001490: 52 20 20 33 38 37 31 32 20 20 3B 20 2E 2E 2E 52 |R 38712 ; ...R| 000014A0: 45 47 45 4C 53 2E 27 0D 20 20 20 20 20 20 4C 44 |EGELS.'. LD| 000014B0: 41 20 20 32 35 30 20 20 20 20 3B 28 31 30 38 2C |A 250 ;(108,| 000014C0: 31 30 37 29 3D 4C 58 2E 0D 20 20 20 20 20 20 53 |107)=LX.. S| 000014D0: 54 41 20 20 31 30 38 0D 20 20 20 20 20 20 4C 44 |TA 108. LD| 000014E0: 41 20 20 32 34 39 0D 20 20 20 20 20 20 53 54 41 |A 249. STA| 000014F0: 20 20 31 30 37 0D 20 20 20 20 20 20 4A 53 52 20 | 107. JSR | 00001500: 20 33 38 30 31 36 20 20 3B 4C 41 42 45 4C 53 4F | 38016 ;LABELSO| 00001510: 52 54 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 |RT.. RTS | 00001520: 20 20 20 20 20 20 3B 2A 2A 56 4F 4F 52 4C 4F 50 | ;**VOORLOP| 00001530: 49 47 2E 2A 2A 0D 20 20 20 20 20 20 2E 42 59 54 |IG.**. .BYT| 00001540: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001550: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001560: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001570: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001580: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001590: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 000015A0: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 000015B0: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 000015C0: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 45 4E 44 |E 255. .END| 000015D0: 0D |. |
*=35916. LDA #147 ;SCHE
RM BLANK.. JSR 65490. LDX #01
5 ;'DOORGANG 1.'. JSR 38712.
LDA #000 ;VLAGGEN:. STA 0075
7 ;VA=(757) NEER.. STA 00758 ;VB
=(758) NEER.. STA 00759 ;VC=(759)
NEER.. LDA 00760 ;SCANADRES.
STA 00700 ;AX=(701,700).. LDA
00761 ;AX=AB ZETTEN.. STA 0070
1 ;REGELADRES. LDX #003 ;RX=(
248,247)..NZ LDA 40928,X ;RX=RU ZETT
EN.. STA 247,X ;LABELADRES.
DEX ;LX=(250,249).. BPL
NZ ;LX=LU ZETTEN..OA LDA 00701
;AH,AL=(042,041),. STA 042 ;VOOR
ADRESSEREN.. LDA 00700. STA
041. LDY #000 ;(Y) OP NUL..
STY 00704 ;OL=(704) NUL.. STY
00705 ;OH=(705) NUL.. STY 00703
;S2=(703) NUL.. LDA (041),Y ;BY=
(002) (AX).. STA 002. LDA 00
759. BEQ OE ;VC OP: -->[OE].
BNE OC ;VC NEER:-->[OC].OF
LDA #000 ;S2 NUL BIJ. STA 00703
;AFBREEK SCAN..OC LDA #127. ST
A 00702 ;S1=01111111.. LDA 002
;S2=00000000.. STA 00704 ;OL=BY
.. CLC ;OH=0. -->[OQ].
BCC OQ.OE LDX #012 ;BEGINADRES
VAN. JSR 38381 ;OPCODES IN.
LDY #000 ;(254,253)..OB LDA (253)
,Y ;BY=OPCODE #(Y)?. CMP 002 ;J
A: -->[OD]. BEQ OD. INY.
CPY 40942 ;NEEN:ZOEK DOOR..
BCC OB ;NIET GEVONDEN:. BCS O
C ; -->[OC].OD LDA 40576,
Y ;GEVONDEN:. STA 00703 ;S2=(TC+
(Y)).. LDA 40416,Y ;S1=(TB+(Y))..
STA 00702 ;S1 BITS 7,6.. AN
D #192 ;NABYTES?. BEQ OQ ;
NEEN: -->[OQ]. .BYTE $4A ;JA:3
BITS. .BYTE $4A ;NAAR RECHTS..
.BYTE $4A. TAX ;(X)=8*NS
. ORA 00703 ;VOEG BIJ S2.. S
TA 00703. TXA. .BYTE $4A ;N
OG EENS DRIE. .BYTE $4A ;NAAR REC
HTS.. .BYTE $4A. TAY ;
(Y)=NS=AANTAL. JSR 38305 ;NABYTES
VAN. STX 00759 ;EEN OPDRACHT..
CPX #000 ;AX+NS>AE: VC.. BNE
OF ;VC OP: -->[OF]. BEQ OH
;VC NEER:-->[OH].OA3 CLC ;
TUSSEN-. BCC OA ;SPRONG..OH
TYA ;(X)=NS.. TAX. LD
Y #001. LDA (041),Y ;EERSTE NABYTE.
STA 00704 ;OL=(AX+1).. CPX
#001 ;OH=0.. BEQ OJ ;EEN NA
BYTE:. INY ; -->[OJ]
. LDA (041),Y ;TWEEDE NABYTE.
STA 00705 ;OH=(AX+2).. LDA 00704
;SH,SL=OH,OL.. STA 038. LDA
00705. STA 039. LDA #000
;VLAG DV NEER.. STA 111 ;
-->[OL]. BEQ OL.OQ LDA 0070
1. STA 108. LDA 00700 ;SCAN
ADRES IN. STA 107 ;AY=(108,107)
..OS2 CLC ;TUSSEN. -->[OS].
BCC OS1.OA2 CLC ;TUSSEN-.
BCC OA3 ;SPRONG..OJ LDA 007
03 ;S2 BIT 7.. AND #128 ;NUL:
-->[OS]. BEQ OS1 ;EEN:.
LDX 00705 ;(X)=DH=OH.. LDY 00704
;(Y)=DL=OL.. CPY #128 ;DL BIT
7?. BCC OK ;NUL: -->[OK].
DEX ;EEN:DH,DL-256..OK IN
C 111 ;DV OP.. SEC ;(108,10
7)+1+DH,DL. TYA ;ZETTEN IN.
ADC 107 ;SH,SL=(039,038).. ST
A 038. TXA. ADC 108. ST
A 039. CLC. LDA 00703 ;S2=S
2+8:. ADC #008 ;AANT.DISSEMBLE-.
STA 00703 ;NABS.EEN HOGER..OL
LDA 038 ;SH,SL NAAR. STA 251
;(252,251).. LDA 039. STA
252. JSR 38343 ;AB<=SH,SL<=AE?.
CPX #000 ;JA: -->[OM].
BEQ OM ;NEEN:S2 BIT 7. LDA 00
703 ;OP NUL ZETTEN.. AND #127 ;
-->[OR]. STA 00703. C
LC. BCC OR.OA1 CLC ;TUSS
EN-. BCC OA2 ;SPRONG..OS1 CLC
;TUSSEN-. BCC OS ;SPR
ONG..OM LDA 00703 ;S2 BIT 7 OP 1..
ORA #128. STA 00703. JSR
37876 ;NIEUWE LABEL?. CPX #000
;NEEN: -->[OR]. BEQ OR ;JA
:. LDA 00758 ;VB NEER:-->[OP].
BEQ OP ;VB OP:. JSR 37744
;LABELOVERLOOP.. CLC ;
-->[OZ]. BCC OZ.OP JSR 377
92 ;ZET IN DE.OR LDA 111 ;LABELT
ABEL.. BEQ OS ;DV NEER:-->[OS]
. LDA 038 ;DV OP:. STA 00
704 ;OH,OL=SH,SL.. LDA 039.
STA 00705.OS LDA 00757 ;VA NEER:--
>[OU]. BEQ OU ;VA OP:. JS
R 37768 ;REGELOVERLOOP.. CLC
; -->[OZ]. BCC OZ.OU
JSR 37834 ;ZET IN HET.OV CLC
;REGELGEBIED.. LDA 107 ;ADRE
S VAN. ADC #001 ;VOLGENDE.
STA 00700 ;OPDRACHT.. LDA 108.
ADC #000. STA 00701. LDY
#000. JSR 38305. CPX #000
;SCAN EIND?. BEQ OA1 ;NEEN: -
->[OA].OZ LDX #002 ;LX=(250,249)..
JSR 39731 ;LX=>(254,253)..
JSR 38392 ;LU=>(110,109).. LDA 0
0756 ;RED DC-VLAG.. STA 111 ;Z
ET VLAG DAARNA. LDA #001 ;OP EEN
VOOR DE. STA 00756 ;DEC.AANTALLE
N.. JSR 38444 ;AANTAL LABELS.
JSR 38792 ;IN TEKST XXXXX.. LDX
#000 ;RX=(248,247).. JSR 39731
;RX=>(254,253).. JSR 38392 ;RU=
>(110,109).. JSR 38426 ;AANTAL RE
GELS. JSR 38804 ;IN TEKST YYYYY..
LDA 111 ;HERSTEL. STA 00
756 ;DC-VLAG.. JSR 38817 ;ADRES
TEKST. ;VOORBLOK..
JSR 38488 ;OPEN REGEL.. LDX #019
;'...LABELS. JSR 38712 ; ...R
EGELS.'. LDA 250 ;(108,107)=LX.
. STA 108. LDA 249. STA
107. JSR 38016 ;LABELSORT..
RTS ;**VOORLOPIG.**. .BYT
E 255. .BYTE 255. .BYTE 255.
.BYTE 255. .BYTE 255. .BYT
E 255. .BYTE 255. .BYTE 255.
.BYTE 255. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL