3.1-HARD
FILE INFORMATION
FILENAME(S): 3.1-HARD
FILE TYPE(S): SEQ
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-02 16:30:30
APPEARS ON: 2 disk(s)
FILE HASH
ecccff7009b7dc4a64b67080f56153eea30f041d23482ea35d8c315d652a5b03
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CBM 1541 BACKUP | 3.1-HARD | SEQ | Treasure Chest - OzzyC64 | 17 | 1 | DOWNLOAD FILE |
| HCOPY P REIMER | 3.1-HARD | SEQ | Treasure Chest - OzzyC64 | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |;===============| 00000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 3B 20 20 20 20 |==========.; | 00000020: 48 41 52 44 43 4F 50 59 20 31 35 32 36 20 33 2E |HARDCOPY 1526 3.| 00000030: 31 20 20 20 3D 0D 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D |1 =.;=========| 00000040: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000050: 0D 3B 0D 43 4B 43 4F 4D 3D 24 41 45 46 44 0D 47 |.;.CKCOM=$AEFD.G| 00000060: 45 54 42 59 54 3D 24 42 37 39 45 0D 45 52 52 45 |ETBYT=$B79E.ERRE| 00000070: 55 52 3D 24 41 34 33 37 0D 4F 50 45 4E 3D 24 46 |UR=$A437.OPEN=$F| 00000080: 46 43 30 0D 53 45 54 4E 41 4D 3D 24 46 46 42 44 |FC0.SETNAM=$FFBD| 00000090: 0D 53 45 54 4C 46 53 3D 24 46 46 42 41 0D 43 48 |.SETLFS=$FFBA.CH| 000000A0: 52 4F 55 54 3D 24 46 46 44 32 0D 43 48 4B 4F 55 |ROUT=$FFD2.CHKOU| 000000B0: 54 3D 24 46 46 43 39 0D 43 4C 52 43 48 4E 3D 24 |T=$FFC9.CLRCHN=$| 000000C0: 46 46 43 43 0D 53 45 54 4D 53 47 3D 24 46 46 39 |FFCC.SETMSG=$FF9| 000000D0: 30 0D 43 4C 41 4C 4C 3D 24 46 46 45 37 0D 53 54 |0.CLALL=$FFE7.ST| 000000E0: 4F 50 3D 24 46 46 45 31 0D 55 44 54 49 4D 3D 24 |OP=$FFE1.UDTIM=$| 000000F0: 46 46 45 41 0D 4D 49 43 52 4F 3D 24 30 31 0D 4C |FFEA.MICRO=$01.L| 00000100: 4F 53 43 52 4E 3D 24 46 42 0D 2A 3D 24 38 30 30 |OSCRN=$FB.*=$800| 00000110: 30 0D 3B 0D 44 45 50 41 52 54 20 4A 53 52 20 43 |0.;.DEPART JSR C| 00000120: 4B 43 4F 4D 20 3B 54 45 53 54 45 20 4C 41 20 2C |KCOM ;TESTE LA ,| 00000130: 0D 20 20 20 20 20 20 20 4A 53 52 20 47 45 54 42 |. JSR GETB| 00000140: 59 54 20 3B 20 50 55 49 53 51 55 27 45 4C 4C 45 |YT ; PUISQU'ELLE| 00000150: 20 45 53 54 20 4C 41 2E 2E 2E 0D 20 20 20 20 20 | EST LA.... | 00000160: 20 20 43 50 58 20 23 30 20 3B 50 41 52 41 4D 45 | CPX #0 ;PARAME| 00000170: 54 52 45 20 30 20 3F 0D 20 20 20 20 20 20 20 42 |TRE 0 ?. B| 00000180: 4E 45 20 53 55 49 56 31 0D 20 20 20 20 20 20 20 |NE SUIV1. | 00000190: 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 53 54 |LDA #0. ST| 000001A0: 41 20 4F 46 46 53 45 54 20 3B 41 20 47 41 55 43 |A OFFSET ;A GAUC| 000001B0: 48 45 0D 20 20 20 20 20 20 20 4A 4D 50 20 4F 4E |HE. JMP ON| 000001C0: 59 56 41 0D 53 55 49 56 31 20 20 43 50 58 20 23 |YVA.SUIV1 CPX #| 000001D0: 31 0D 20 20 20 20 20 20 20 42 4E 45 20 53 55 49 |1. BNE SUI| 000001E0: 56 32 0D 20 20 20 20 20 20 20 4C 44 41 20 23 32 |V2. LDA #2| 000001F0: 30 0D 20 20 20 20 20 20 20 53 54 41 20 4F 46 46 |0. STA OFF| 00000200: 53 45 54 20 3B 41 55 20 4D 49 4C 49 45 55 0D 20 |SET ;AU MILIEU. | 00000210: 20 20 20 20 20 20 4A 4D 50 20 4F 4E 59 56 41 0D | JMP ONYVA.| 00000220: 53 55 49 56 32 20 20 43 50 58 20 23 32 0D 20 20 |SUIV2 CPX #2. | 00000230: 20 20 20 20 20 42 4E 45 20 53 55 49 56 33 0D 20 | BNE SUIV3. | 00000240: 20 20 20 20 20 20 4C 44 41 20 23 34 30 0D 20 20 | LDA #40. | 00000250: 20 20 20 20 20 53 54 41 20 4F 46 46 53 45 54 20 | STA OFFSET | 00000260: 3B 41 20 44 52 4F 49 54 45 0D 20 20 20 20 20 20 |;A DROITE. | 00000270: 20 4A 4D 50 20 4F 4E 59 56 41 0D 53 55 49 56 33 | JMP ONYVA.SUIV3| 00000280: 20 20 43 50 58 20 23 33 0D 20 20 20 20 20 20 20 | CPX #3. | 00000290: 42 4E 45 20 53 55 49 56 34 0D 20 20 20 20 20 20 |BNE SUIV4. | 000002A0: 20 4A 4D 50 20 45 4E 44 20 3B 41 47 52 41 4E 44 | JMP END ;AGRAND| 000002B0: 49 52 20 28 46 55 54 55 52 45 20 45 58 50 2E 29 |IR (FUTURE EXP.)| 000002C0: 0D 53 55 49 56 34 20 20 4C 44 58 20 23 31 34 20 |.SUIV4 LDX #14 | 000002D0: 3B 20 49 4C 4C 45 47 41 4C 20 51 55 41 4E 54 49 |; ILLEGAL QUANTI| 000002E0: 54 59 0D 20 20 20 20 20 20 20 4A 53 52 20 45 52 |TY. JSR ER| 000002F0: 52 45 55 52 0D 20 20 20 20 20 20 20 4A 4D 50 20 |REUR. JMP | 00000300: 45 4E 44 0D 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |END.;===========| 00000310: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000320: 3D 3D 3D 3D 3D 3D 3D 0D 45 4E 44 20 20 20 20 43 |=======.END C| 00000330: 4C 43 0D 20 20 20 20 20 20 20 4A 53 52 20 43 4C |LC. JSR CL| 00000340: 41 4C 4C 0D 20 20 20 20 20 20 20 4C 44 41 20 4D |ALL. LDA M| 00000350: 49 43 52 4F 0D 20 20 20 20 20 20 20 4F 52 41 20 |ICRO. ORA | 00000360: 23 31 0D 20 20 20 20 20 20 20 53 54 41 20 4D 49 |#1. STA MI| 00000370: 43 52 4F 0D 20 20 20 20 20 20 20 52 54 53 20 3B |CRO. RTS ;| 00000380: 20 52 45 54 4F 55 52 20 41 55 20 42 41 53 49 43 | RETOUR AU BASIC| 00000390: 0D 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.;==============| 000003A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000003B0: 3D 3D 3D 3D 0D 3B 0D 4F 4E 59 56 41 20 20 4A 53 |====.;.ONYVA JS| 000003C0: 52 20 43 4C 41 4C 4C 20 3B 20 50 52 45 43 41 55 |R CLALL ; PRECAU| 000003D0: 54 49 4F 4E 0D 20 20 20 20 20 20 20 4C 44 41 20 |TION. LDA | 000003E0: 23 24 34 30 0D 20 20 20 20 20 20 20 4A 53 52 20 |#$40. JSR | 000003F0: 53 45 54 4D 53 47 20 3B 20 4D 45 53 53 41 47 45 |SETMSG ; MESSAGE| 00000400: 53 20 44 27 45 52 52 45 55 52 0D 3B 0D 3B 20 4F |S D'ERREUR.;.; O| 00000410: 55 56 52 49 52 20 4C 45 53 20 46 49 43 48 49 45 |UVRIR LES FICHIE| 00000420: 52 53 0D 3B 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |RS.; ...........| 00000430: 2E 2E 2E 2E 2E 2E 2E 2E 0D 3B 0D 3B 20 31 29 20 |.........;.; 1) | 00000440: 4F 50 45 4E 20 34 2C 34 0D 3B 0D 20 20 20 20 20 |OPEN 4,4.;. | 00000450: 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 | LDA #0. | 00000460: 4A 53 52 20 53 45 54 4E 41 4D 0D 20 20 20 20 20 |JSR SETNAM. | 00000470: 20 20 4C 44 41 20 23 34 0D 20 20 20 20 20 20 20 | LDA #4. | 00000480: 54 41 58 0D 20 20 20 20 20 20 20 4C 44 59 20 23 |TAX. LDY #| 00000490: 24 46 46 0D 20 20 20 20 20 20 20 4A 53 52 20 53 |$FF. JSR S| 000004A0: 45 54 4C 46 53 0D 20 20 20 20 20 20 20 4A 53 52 |ETLFS. JSR| 000004B0: 20 4F 50 45 4E 0D 3B 0D 3B 20 32 29 20 4F 50 45 | OPEN.;.; 2) OPE| 000004C0: 4E 20 35 2C 34 2C 35 0D 3B 0D 20 20 20 20 20 20 |N 5,4,5.;. | 000004D0: 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 4A | LDA #0. J| 000004E0: 53 52 20 53 45 54 4E 41 4D 0D 20 20 20 20 20 20 |SR SETNAM. | 000004F0: 20 4C 44 41 20 23 35 0D 20 20 20 20 20 20 20 54 | LDA #5. T| 00000500: 41 59 0D 20 20 20 20 20 20 20 4C 44 58 20 23 34 |AY. LDX #4| 00000510: 0D 20 20 20 20 20 20 20 4A 53 52 20 53 45 54 4C |. JSR SETL| 00000520: 46 53 0D 20 20 20 20 20 20 20 4A 53 52 20 4F 50 |FS. JSR OP| 00000530: 45 4E 0D 3B 0D 3B 20 33 29 20 4F 50 45 4E 20 36 |EN.;.; 3) OPEN 6| 00000540: 2C 34 2C 36 0D 3B 0D 20 20 20 20 20 20 20 4C 44 |,4,6.;. LD| 00000550: 41 20 23 30 0D 20 20 20 20 20 20 20 4A 53 52 20 |A #0. JSR | 00000560: 53 45 54 4E 41 4D 0D 20 20 20 20 20 20 20 4C 44 |SETNAM. LD| 00000570: 41 20 23 36 0D 20 20 20 20 20 20 20 54 41 59 0D |A #6. TAY.| 00000580: 20 20 20 20 20 20 20 4C 44 58 20 23 34 0D 20 20 | LDX #4. | 00000590: 20 20 20 20 20 4A 53 52 20 53 45 54 4C 46 53 0D | JSR SETLFS.| 000005A0: 20 20 20 20 20 20 20 4A 53 52 20 4F 50 45 4E 0D | JSR OPEN.| 000005B0: 3B 0D 3B 20 50 52 49 4E 54 23 36 2C 43 48 52 24 |;.; PRINT#6,CHR$| 000005C0: 28 32 30 29 0D 3B 20 43 4F 4E 54 52 4F 4C 45 20 |(20).; CONTROLE | 000005D0: 44 27 45 53 50 41 43 45 4D 45 4E 54 20 44 45 53 |D'ESPACEMENT DES| 000005E0: 20 4C 49 47 4E 45 53 0D 3B 0D 20 20 20 20 20 20 | LIGNES.;. | 000005F0: 20 4C 44 58 20 23 36 0D 20 20 20 20 20 20 20 4A | LDX #6. J| 00000600: 53 52 20 43 48 4B 4F 55 54 0D 20 20 20 20 20 20 |SR CHKOUT. | 00000610: 20 42 43 43 20 54 53 4F 49 4E 0D 20 20 20 20 20 | BCC TSOIN. | 00000620: 20 20 4C 44 58 20 23 35 20 3B 20 44 45 56 49 43 | LDX #5 ; DEVIC| 00000630: 45 20 4E 4F 54 20 50 52 45 53 45 4E 54 0D 20 20 |E NOT PRESENT. | 00000640: 20 20 20 20 20 4A 53 52 20 45 52 52 45 55 52 0D | JSR ERREUR.| 00000650: 20 20 20 20 20 20 20 4A 4D 50 20 45 4E 44 0D 54 | JMP END.T| 00000660: 53 4F 49 4E 20 20 4C 44 41 20 23 32 30 0D 20 20 |SOIN LDA #20. | 00000670: 20 20 20 20 20 4A 53 52 20 43 48 52 4F 55 54 0D | JSR CHROUT.| 00000680: 4E 4F 50 0D 4E 4F 50 0D 4E 4F 50 0D 4E 4F 50 0D |NOP.NOP.NOP.NOP.| 00000690: 4E 4F 50 0D 20 20 20 20 20 20 20 4A 53 52 20 43 |NOP. JSR C| 000006A0: 4C 52 43 48 4E 0D 3B 0D 3B 20 49 4D 50 52 49 4D |LRCHN.;.; IMPRIM| 000006B0: 45 52 20 55 4E 20 3C 43 52 3E 20 45 54 20 55 4E |ER UN <CR> ET UN| 000006C0: 20 3C 5F 3E 0D 3B 0D 20 20 20 20 20 20 20 4C 44 | <_>.;. LD| 000006D0: 58 20 23 34 0D 20 20 20 20 20 20 20 4A 53 52 20 |X #4. JSR | 000006E0: 43 48 4B 4F 55 54 0D 20 20 20 20 20 20 20 4C 44 |CHKOUT. LD| 000006F0: 41 20 23 31 33 0D 20 20 20 20 20 20 20 4A 53 52 |A #13. JSR| 00000700: 20 43 48 52 4F 55 54 0D 20 20 20 20 20 20 20 4C | CHROUT. L| 00000710: 44 41 20 23 31 34 31 20 3B 20 2B 20 3C 43 52 3E |DA #141 ; + <CR>| 00000720: 20 53 41 4E 53 20 46 45 45 44 0D 20 20 20 20 20 | SANS FEED. | 00000730: 20 20 4A 53 52 20 43 48 52 4F 55 54 0D 20 20 20 | JSR CHROUT. | 00000740: 20 20 20 20 4A 53 52 20 43 4C 52 43 48 4E 0D 3B | JSR CLRCHN.;| 00000750: 0D 3B 0D 3B 20 56 52 41 49 20 44 45 42 55 54 20 |.;.; VRAI DEBUT | 00000760: 21 0D 3B 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B |!.; ----------.;| 00000770: 0D 20 20 20 20 20 20 20 4C 44 41 20 23 30 20 3B |. LDA #0 ;| 00000780: 20 20 20 49 4E 49 54 2E 20 44 55 20 46 4F 52 4D | INIT. DU FORM| 00000790: 41 54 54 41 47 45 0D 20 20 20 20 20 20 20 53 54 |ATTAGE. ST| 000007A0: 41 20 4C 49 47 4E 45 53 0D 20 20 20 20 20 20 20 |A LIGNES. | 000007B0: 53 54 41 20 45 53 50 41 43 45 0D 20 20 20 20 20 |STA ESPACE. | 000007C0: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 4C 44 58 | CLC. LDX| 000007D0: 20 23 24 41 30 20 3B 20 48 49 42 59 54 45 20 44 | #$A0 ; HIBYTE D| 000007E0: 55 20 48 49 52 45 53 20 53 43 52 45 45 4E 0D 20 |U HIRES SCREEN. | 000007F0: 20 20 20 20 20 20 53 54 41 20 4C 4F 53 43 52 4E | STA LOSCRN| 00000800: 0D 20 20 20 20 20 20 20 53 54 58 20 4C 4F 53 43 |. STX LOSC| 00000810: 52 4E 2B 31 0D 3B 0D 20 20 20 20 20 20 20 4C 44 |RN+1.;. LD| 00000820: 41 20 4D 49 43 52 4F 20 3B 42 41 53 49 43 20 4F |A MICRO ;BASIC O| 00000830: 55 54 0D 20 20 20 20 20 20 20 41 4E 44 20 23 24 |UT. AND #$| 00000840: 46 45 0D 20 20 20 20 20 20 20 53 54 41 20 4D 49 |FE. STA MI| 00000850: 43 52 4F 0D 3B 0D 3B 20 54 52 41 4E 53 46 4F 20 |CRO.;.; TRANSFO | 00000860: 44 45 53 20 44 4F 4E 4E 45 45 53 0D 3B 20 2D 2D |DES DONNEES.; --| 00000870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000880: 2D 0D 3B 0D 54 52 41 4E 53 46 20 4A 53 52 20 55 |-.;.TRANSF JSR U| 00000890: 44 54 49 4D 0D 20 20 20 20 20 20 20 4A 53 52 20 |DTIM. JSR | 000008A0: 53 54 4F 50 20 3B 20 46 41 49 54 20 43 4C 52 43 |STOP ; FAIT CLRC| 000008B0: 48 4E 20 45 4E 20 4D 45 4D 45 20 54 45 4D 50 53 |HN EN MEME TEMPS| 000008C0: 20 21 0D 20 20 20 20 20 20 20 42 4E 45 20 46 4F | !. BNE FO| 000008D0: 4C 47 45 0D 20 20 20 20 20 20 20 4A 4D 50 20 45 |LGE. JMP E| 000008E0: 4E 44 0D 46 4F 4C 47 45 20 20 4C 44 41 20 23 24 |ND.FOLGE LDA #$| 000008F0: 38 30 0D 20 20 20 20 20 20 20 53 54 41 20 43 4F |80. STA CO| 00000900: 4E 56 52 54 0D 20 20 20 20 20 20 20 4C 44 41 20 |NVRT. LDA | 00000910: 23 30 0D 20 20 20 20 20 20 20 54 41 58 0D 20 20 |#0. TAX. | 00000920: 20 20 20 20 20 54 41 59 0D 43 4F 4E 54 20 20 20 | TAY.CONT | 00000930: 4E 4F 50 0D 20 20 20 20 20 20 20 53 54 41 20 54 |NOP. STA T| 00000940: 41 4D 50 4F 4E 2C 58 0D 20 20 20 20 20 20 20 49 |AMPON,X. I| 00000950: 4E 58 0D 20 20 20 20 20 20 20 43 50 58 20 23 38 |NX. CPX #8| 00000960: 0D 20 20 20 20 20 20 20 42 4E 45 20 43 4F 4E 54 |. BNE CONT| 00000970: 0D 4C 4F 4F 50 32 20 20 4E 4F 50 0D 20 20 20 20 |.LOOP2 NOP. | 00000980: 20 20 20 4C 44 41 20 28 4C 4F 53 43 52 4E 29 2C | LDA (LOSCRN),| 00000990: 59 0D 20 20 20 20 20 20 20 4C 44 58 20 23 38 0D |Y. LDX #8.| 000009A0: 4C 4F 4F 50 31 20 20 4E 4F 50 0D 20 20 20 20 20 |LOOP1 NOP. | 000009B0: 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 42 | ASL A. B| 000009C0: 43 43 20 53 55 49 54 45 0D 20 20 20 20 20 20 20 |CC SUITE. | 000009D0: 50 48 41 0D 20 20 20 20 20 20 20 4C 44 41 20 54 |PHA. LDA T| 000009E0: 41 4D 50 4F 4E 2D 31 2C 58 0D 20 20 20 20 20 20 |AMPON-1,X. | 000009F0: 20 4F 52 41 20 43 4F 4E 56 52 54 0D 20 20 20 20 | ORA CONVRT. | 00000A00: 20 20 20 53 54 41 20 54 41 4D 50 4F 4E 2D 31 2C | STA TAMPON-1,| 00000A10: 58 0D 20 20 20 20 20 20 20 50 4C 41 0D 53 55 49 |X. PLA.SUI| 00000A20: 54 45 20 20 44 45 58 0D 20 20 20 20 20 20 20 42 |TE DEX. B| 00000A30: 4E 45 20 4C 4F 4F 50 31 0D 20 20 20 20 20 20 20 |NE LOOP1. | 00000A40: 4C 53 52 20 43 4F 4E 56 52 54 0D 20 20 20 20 20 |LSR CONVRT. | 00000A50: 20 20 49 4E 59 0D 20 20 20 20 20 20 20 43 50 59 | INY. CPY| 00000A60: 20 23 38 0D 20 20 20 20 20 20 20 42 4E 45 20 4C | #8. BNE L| 00000A70: 4F 4F 50 32 0D 3B 0D 3B 20 46 49 4E 20 44 45 20 |OOP2.;.; FIN DE | 00000A80: 4C 41 20 54 52 41 4E 53 46 4F 52 4D 41 54 49 4F |LA TRANSFORMATIO| 00000A90: 4E 0D 3B 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |N.;.;-----------| 00000AA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000AB0: 2D 2D 2D 2D 2D 0D 3B 0D 3B 20 45 4E 56 4F 49 20 |-----.;.; ENVOI | 00000AC0: 44 55 20 43 41 52 41 43 54 45 52 45 20 41 20 4C |DU CARACTERE A L| 00000AD0: 27 49 4D 50 52 49 4D 2E 0D 3B 0D 20 20 20 20 20 |'IMPRIM..;. | 00000AE0: 20 20 4C 44 58 20 23 35 20 3B 20 20 20 20 43 4D | LDX #5 ; CM| 00000AF0: 44 20 35 0D 20 20 20 20 20 20 20 4A 53 52 20 43 |D 5. JSR C| 00000B00: 48 4B 4F 55 54 0D 20 20 20 20 20 20 20 4C 44 59 |HKOUT. LDY| 00000B10: 20 23 38 0D 4E 45 58 54 20 20 20 43 4C 43 0D 20 | #8.NEXT CLC. | 00000B20: 20 20 20 20 20 20 4C 44 41 20 54 41 4D 50 4F 4E | LDA TAMPON| 00000B30: 2D 31 2C 59 0D 20 20 20 20 20 20 20 4A 53 52 20 |-1,Y. JSR | 00000B40: 43 48 52 4F 55 54 0D 20 20 20 20 20 20 20 44 45 |CHROUT. DE| 00000B50: 59 0D 20 20 20 20 20 20 20 42 4E 45 20 4E 45 58 |Y. BNE NEX| 00000B60: 54 0D 20 20 20 20 20 20 20 4C 44 41 20 23 31 33 |T. LDA #13| 00000B70: 0D 20 20 20 20 20 20 20 4A 53 52 20 43 48 52 4F |. JSR CHRO| 00000B80: 55 54 0D 20 20 20 20 20 20 20 4A 53 52 20 43 4C |UT. JSR CL| 00000B90: 52 43 48 4E 0D 3B 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D |RCHN.;.;--------| 00000BA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000BB0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 0D 3B 20 49 4D 50 |--------.;.; IMP| 00000BC0: 52 45 53 53 49 4F 4E 20 44 45 53 20 45 53 50 41 |RESSION DES ESPA| 00000BD0: 43 45 53 20 45 54 20 44 45 20 4C 41 20 4D 41 52 |CES ET DE LA MAR| 00000BE0: 47 45 20 45 56 45 4E 54 55 45 4C 4C 45 0D 3B 0D |GE EVENTUELLE.;.| 00000BF0: 20 20 20 20 20 20 20 4C 44 58 20 23 34 0D 20 20 | LDX #4. | 00000C00: 20 20 20 20 20 4A 53 52 20 43 48 4B 4F 55 54 0D | JSR CHKOUT.| 00000C10: 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 | CLC. | 00000C20: 20 20 4C 44 41 20 45 53 50 41 43 45 0D 20 20 20 | LDA ESPACE. | 00000C30: 20 20 20 20 41 44 43 20 4F 46 46 53 45 54 0D 20 | ADC OFFSET. | 00000C40: 20 20 20 20 20 20 42 45 51 20 50 4C 55 53 32 0D | BEQ PLUS2.| 00000C50: 20 20 20 20 20 20 20 54 41 59 0D 50 4C 55 53 20 | TAY.PLUS | 00000C60: 20 20 4C 44 41 20 23 32 39 0D 20 20 20 20 20 20 | LDA #29. | 00000C70: 20 4A 53 52 20 43 48 52 4F 55 54 0D 20 20 20 20 | JSR CHROUT. | 00000C80: 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 42 4E | DEY. BN| 00000C90: 45 20 50 4C 55 53 0D 3B 0D 3B 2D 2D 2D 2D 2D 2D |E PLUS.;.;------| 00000CA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 0D 50 4C |-----------.;.PL| 00000CC0: 55 53 32 20 20 49 4E 43 20 45 53 50 41 43 45 20 |US2 INC ESPACE | 00000CD0: 3B 20 50 4F 55 52 20 4C 45 20 50 52 4F 43 48 41 |; POUR LE PROCHA| 00000CE0: 49 4E 0D 3B 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |IN.;.;----------| 00000CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D00: 2D 2D 2D 2D 2D 2D 2D 0D 3B 0D 20 20 20 20 20 20 |-------.;. | 00000D10: 20 4C 44 41 20 23 32 35 34 20 3B 20 49 4D 50 52 | LDA #254 ; IMPR| 00000D20: 45 53 53 49 4F 4E 20 44 55 20 43 41 52 41 43 54 |ESSION DU CARACT| 00000D30: 2E 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; | 00000D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 50 45 | SPE| 00000D50: 43 49 41 4C 0D 20 20 20 20 20 20 20 4A 53 52 20 |CIAL. JSR | 00000D60: 43 48 52 4F 55 54 0D 20 20 20 20 20 20 20 4C 44 |CHROUT. LD| 00000D70: 41 20 23 31 34 31 20 3B 20 3C 43 52 3E 20 53 41 |A #141 ; <CR> SA| 00000D80: 4E 53 20 4C 49 4E 45 20 46 45 45 44 0D 20 20 20 |NS LINE FEED. | 00000D90: 20 20 20 20 4A 53 52 20 43 48 52 4F 55 54 0D 3B | JSR CHROUT.;| 00000DA0: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00000DB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000DC0: 2D 2D 0D 3B 0D 20 20 20 20 20 20 20 43 4C 43 0D |--.;. CLC.| 00000DD0: 20 20 20 20 20 20 20 4C 44 41 20 4C 4F 53 43 52 | LDA LOSCR| 00000DE0: 4E 20 3B 20 5E 20 4C 27 41 44 52 45 53 53 45 2E |N ; ^ L'ADRESSE.| 00000DF0: 2E 2E 0D 20 20 20 20 20 20 20 41 44 43 20 23 38 |... ADC #8| 00000E00: 0D 20 20 20 20 20 20 20 53 54 41 20 4C 4F 53 43 |. STA LOSC| 00000E10: 52 4E 0D 20 20 20 20 20 20 20 42 4E 45 20 53 55 |RN. BNE SU| 00000E20: 49 54 45 31 0D 20 20 20 20 20 20 20 49 4E 43 20 |ITE1. INC | 00000E30: 4C 4F 53 43 52 4E 2B 31 0D 53 55 49 54 45 31 20 |LOSCRN+1.SUITE1 | 00000E40: 4C 44 41 20 45 53 50 41 43 45 20 3B 20 34 30 20 |LDA ESPACE ; 40 | 00000E50: 43 4F 4C 4F 4E 4E 45 53 20 3F 0D 20 20 20 20 20 |COLONNES ?. | 00000E60: 20 20 43 4D 50 20 23 34 30 0D 20 20 20 20 20 20 | CMP #40. | 00000E70: 20 42 4E 45 20 53 55 49 54 45 32 0D 20 20 20 20 | BNE SUITE2. | 00000E80: 20 20 20 4C 44 41 20 23 31 33 20 3B 20 20 20 20 | LDA #13 ; | 00000E90: 41 4C 4F 52 53 20 3C 43 52 3E 0D 20 20 20 20 20 |ALORS <CR>. | 00000EA0: 20 20 4A 53 52 20 43 48 52 4F 55 54 0D 20 20 20 | JSR CHROUT. | 00000EB0: 20 20 20 20 49 4E 43 20 4C 49 47 4E 45 53 0D 20 | INC LIGNES. | 00000EC0: 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 | LDA #0. | 00000ED0: 20 20 20 20 53 54 41 20 45 53 50 41 43 45 0D 20 | STA ESPACE. | 00000EE0: 20 20 20 20 20 20 4C 44 41 20 4C 49 47 4E 45 53 | LDA LIGNES| 00000EF0: 20 3B 20 32 35 20 4C 49 47 4E 45 53 20 3F 0D 20 | ; 25 LIGNES ?. | 00000F00: 20 20 20 20 20 20 43 4D 50 20 23 32 35 0D 20 20 | CMP #25. | 00000F10: 20 20 20 20 20 42 45 51 20 53 55 49 54 45 33 20 | BEQ SUITE3 | 00000F20: 3B 20 41 4C 4F 52 53 20 46 49 4E 20 21 0D 53 55 |; ALORS FIN !.SU| 00000F30: 49 54 45 32 20 4A 4D 50 20 54 52 41 4E 53 46 0D |ITE2 JMP TRANSF.| 00000F40: 53 55 49 54 45 33 20 4A 4D 50 20 45 4E 44 0D 3B |SUITE3 JMP END.;| 00000F50: 0D 3B 0D 4C 49 47 4E 45 53 3D 2A 2B 31 0D 45 53 |.;.LIGNES=*+1.ES| 00000F60: 50 41 43 45 3D 2A 2B 32 0D 4F 46 46 53 45 54 3D |PACE=*+2.OFFSET=| 00000F70: 2A 2B 33 0D 43 4F 4E 56 52 54 3D 2A 2B 34 0D 54 |*+3.CONVRT=*+4.T| 00000F80: 41 4D 50 4F 4E 3D 2A 2B 35 0D |AMPON=*+5. |
;=========================.; HARDCOPY
1526 3.1 =.;=========================
.;.CKCOM=$AEFD.GETBYT=$B79E.ERREUR=$A437
.OPEN=$FFC0.SETNAM=$FFBD.SETLFS=$FFBA.CH
ROUT=$FFD2.CHKOUT=$FFC9.CLRCHN=$FFCC.SET
MSG=$FF90.CLALL=$FFE7.STOP=$FFE1.UDTIM=$
FFEA.MICRO=$01.LOSCRN=$FB.*=$8000.;.DEPA
RT JSR CKCOM ;TESTE LA ,. JSR GETB
YT ; PUISQU'ELLE EST LA.... CPX #0
;PARAMETRE 0 ?. BNE SUIV1.
LDA #0. STA OFFSET ;A GAUCHE.
JMP ONYVA.SUIV1 CPX #1. BNE SUI
V2. LDA #20. STA OFFSET ;AU
MILIEU. JMP ONYVA.SUIV2 CPX #2.
BNE SUIV3. LDA #40. STA
OFFSET ;A DROITE. JMP ONYVA.SUIV3
CPX #3. BNE SUIV4. JMP END
;AGRANDIR (FUTURE EXP.).SUIV4 LDX #14
; ILLEGAL QUANTITY. JSR ERREUR.
JMP END.;===========================
=======.END CLC. JSR CLALL.
LDA MICRO. ORA #1. STA MI
CRO. RTS ; RETOUR AU BASIC.;======
============================.;.ONYVA JS
R CLALL ; PRECAUTION. LDA #$40.
JSR SETMSG ; MESSAGES D'ERREUR.;.; O
UVRIR LES FICHIERS.; ...................
.;.; 1) OPEN 4,4.;. LDA #0.
JSR SETNAM. LDA #4. TAX.
LDY #$FF. JSR SETLFS. JSR
OPEN.;.; 2) OPEN 5,4,5.;. LDA #0.
JSR SETNAM. LDA #5. T
AY. LDX #4. JSR SETLFS.
JSR OPEN.;.; 3) OPEN 6,4,6.;. LD
A #0. JSR SETNAM. LDA #6.
TAY. LDX #4. JSR SETLFS.
JSR OPEN.;.; PRINT#6,CHR$(20).; C
ONTROLE D'ESPACEMENT DES LIGNES.;.
LDX #6. JSR CHKOUT. BCC TSO
IN. LDX #5 ; DEVICE NOT PRESENT.
JSR ERREUR. JMP END.TSOIN LD
A #20. JSR CHROUT.NOP.NOP.NOP.NOP.
NOP. JSR CLRCHN.;.; IMPRIMER UN <C
R> ET UN <_>.;. LDX #4. JSR
CHKOUT. LDA #13. JSR CHROUT.
LDA #141 ; + <CR> SANS FEED.
JSR CHROUT. JSR CLRCHN.;.;.; VRA
I DEBUT !.; ----------.;. LDA #0 ;
INIT. DU FORMATTAGE. STA LIGNES
. STA ESPACE. CLC. LDX
#$A0 ; HIBYTE DU HIRES SCREEN. ST
A LOSCRN. STX LOSCRN+1.;. LD
A MICRO ;BASIC OUT. AND #$FE.
STA MICRO.;.; TRANSFO DES DONNEES.; --
-----------------.;.TRANSF JSR UDTIM.
JSR STOP ; FAIT CLRCHN EN MEME TEMPS
!. BNE FOLGE. JMP END.FOLGE
LDA #$80. STA CONVRT. LDA
#0. TAX. TAY.CONT NOP.
STA TAMPON,X. INX. CPX #8
. BNE CONT.LOOP2 NOP. LDA (
LOSCRN),Y. LDX #8.LOOP1 NOP.
ASL A. BCC SUITE. PHA.
LDA TAMPON-1,X. ORA CONVRT.
STA TAMPON-1,X. PLA.SUITE DEX.
BNE LOOP1. LSR CONVRT.
INY. CPY #8. BNE LOOP2.;.;
FIN DE LA TRANSFORMATION.;.;-----------
---------------------.;.; ENVOI DU CARAC
TERE A L'IMPRIM..;. LDX #5 ; CM
D 5. JSR CHKOUT. LDY #8.NEXT
CLC. LDA TAMPON-1,Y. JSR
CHROUT. DEY. BNE NEXT.
LDA #13. JSR CHROUT. JSR CL
RCHN.;.;--------------------------------
.;.; IMPRESSION DES ESPACES ET DE LA MAR
GE EVENTUELLE.;. LDX #4. JSR
CHKOUT. CLC. LDA ESPACE.
ADC OFFSET. BEQ PLUS2. T
AY.PLUS LDA #29. JSR CHROUT.
DEY. BNE PLUS.;.;--------------
-------------------.;.PLUS2 INC ESPACE
; POUR LE PROCHAIN.;.;------------------
---------------.;. LDA #254 ; IMPR
ESSION DU CARACT..;
SPECIAL. JSR CHROUT. LD
A #141 ; <CR> SANS LINE FEED. JSR
CHROUT.;.;------------------------------
--.;. CLC. LDA LOSCRN ; ^ L'
ADRESSE.... ADC #8. STA LOSC
RN. BNE SUITE1. INC LOSCRN+1
.SUITE1 LDA ESPACE ; 40 COLONNES ?.
CMP #40. BNE SUITE2. LDA #
13 ; ALORS <CR>. JSR CHROUT.
INC LIGNES. LDA #0. STA
ESPACE. LDA LIGNES ; 25 LIGNES ?.
CMP #25. BEQ SUITE3 ; ALORS
FIN !.SUITE2 JMP TRANSF.SUITE3 JMP END.;
.;.LIGNES=*+1.ESPACE=*+2.OFFSET=*+3.CONV
RT=*+4.TAMPON=*+5.
> CLICK IMAGE PREVIEW FOR FULL MODAL