main
|
Last change
on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago |
|
Add that collection of 3rdparty source I had lying on my disk for some time...
git-svn-id: svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5
|
-
Property mode
set to
100644
|
|
File size:
2.1 KB
|
| Line | |
|---|
| 1 | *
|
|---|
| 2 | * LIT.ASM / ROUTINE READ
|
|---|
| 3 | *
|
|---|
| 4 | * GESTION D'IMAGES (C) A. PUKALL
|
|---|
| 5 | * MICRONEWS No 46 page 28
|
|---|
| 6 | *
|
|---|
| 7 |
|
|---|
| 8 | PRC EQU $E7C3 Données port C
|
|---|
| 9 | EXTRA EQU $EC0C Appel extramonit.
|
|---|
| 10 | DKDRV EQU $6049 No du disk choisi
|
|---|
| 11 | CARCOU EQU $6196 Car. que DFCHRI
|
|---|
| 12 | * vient de lire
|
|---|
| 13 | FILMOD EQU $624B Mode fichier(OPEN)
|
|---|
| 14 | FILTYP EQU $624C Type de fichier:
|
|---|
| 15 | * 0=BASIC programme
|
|---|
| 16 | * 1=BASIC data file
|
|---|
| 17 | * 2=Machine lang.fil
|
|---|
| 18 | ASCFLG EQU $624D Flag ASCI:
|
|---|
| 19 | * 00=fichier BIN
|
|---|
| 20 | * FF=fichier ASCI
|
|---|
| 21 | FILNAM EQU $624F Buf nom de fichier
|
|---|
| 22 | * 8 car.H624F->H6256
|
|---|
| 23 | FILEXT EQU $6257 Buf ext nom fic.
|
|---|
| 24 | * 3 car.H6257->H6259
|
|---|
| 25 |
|
|---|
| 26 | ORG $B000
|
|---|
| 27 |
|
|---|
| 28 | JSR INIT
|
|---|
| 29 | LDB #3
|
|---|
| 30 | JSR EXTRA
|
|---|
| 31 | JSR DEBUT
|
|---|
| 32 | RTS
|
|---|
| 33 | INIT LDA #0 No lecteur: "0:"
|
|---|
| 34 | STA DKDRV
|
|---|
| 35 | LDA #$10 Type d'accès:"H10"
|
|---|
| 36 | STA FILMOD (ouvre en input)
|
|---|
| 37 | LDA #$41
|
|---|
| 38 | STA FILNAM Nom de fichier:"A"
|
|---|
| 39 | LDX #$2020
|
|---|
| 40 | STX $6250 "Esp+Esp"
|
|---|
| 41 | STX $6252 "Esp+Esp"
|
|---|
| 42 | STX $6254 "Esp+Esp"
|
|---|
| 43 | LDA #$20
|
|---|
| 44 | STA $6256 "Esp"
|
|---|
| 45 | LDA #$42
|
|---|
| 46 | STA FILEXT Extension:"B"
|
|---|
| 47 | LDA #$49
|
|---|
| 48 | STA $6258 "I"
|
|---|
| 49 | LDA #$4E
|
|---|
| 50 | STA $6259 "N"
|
|---|
| 51 | LDA #2
|
|---|
| 52 | STA FILTYP 2=fic en lang mach
|
|---|
| 53 | LDA #0
|
|---|
| 54 | STA ASCFLG 0=fichier binaire
|
|---|
| 55 | RTS
|
|---|
| 56 | DEBUT LDA #5
|
|---|
| 57 | STA PRC
|
|---|
| 58 | LDX #$4000
|
|---|
| 59 | BOUC1 LDB #5
|
|---|
| 60 | JSR EXTRA
|
|---|
| 61 | LDA CARCOU
|
|---|
| 62 | STA ,X
|
|---|
| 63 | LEAX 1,X
|
|---|
| 64 | CMPX #$5F4F
|
|---|
| 65 | BNE BOUC1
|
|---|
| 66 | LDB #6
|
|---|
| 67 | JSR EXTRA
|
|---|
| 68 | JSR INIT
|
|---|
| 69 | LDA #$42 Nom du fichier:"B"
|
|---|
| 70 | STA FILNAM (1er car.)
|
|---|
| 71 | LDB #3
|
|---|
| 72 | JSR EXTRA
|
|---|
| 73 | LDA #4
|
|---|
| 74 | STA PRC
|
|---|
| 75 | LDX #$4000
|
|---|
| 76 | BOUC2 LDB #5
|
|---|
| 77 | JSR EXTRA
|
|---|
| 78 | LDA CARCOU
|
|---|
| 79 | STA ,X
|
|---|
| 80 | LEAX 1,X
|
|---|
| 81 | CMPX #$5F4F
|
|---|
| 82 | BNE BOUC2
|
|---|
| 83 | LDB #6
|
|---|
| 84 | JSR EXTRA
|
|---|
| 85 | RTS
|
|---|
| 86 | FCC /(C)ALEXANDRE PUKALL/
|
|---|
| 87 | END
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
