E-A-ROUTINEN 2
FILE INFORMATION
FILENAME(S): E-A-ROUTINEN 2
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:27:21
APPEARS ON: 1 disk(s)
FILE HASH
2ebb4c4424eb082404f27c7a6a1446a3c3f43abac4b6ecd0b4a64f704dbc4d76
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | E-A-ROUTINEN 2 | PRG | DuncanTwain | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 40 97 30 97 35 C6 45 48 4C 45 52 42 45 48 41 |.@.0.5.EHLERBEHA| 00000010: 4E 44 4C 55 4E 47 98 35 98 30 0D 0D D4 41 42 45 |NDLUNG.5.0...ABE| 00000020: 4C 4C 45 20 41 42 20 C6 36 C6 C2 3A 20 87 42 45 |LLE AB .6..: .BE| 00000030: 52 20 C2 49 54 2D CD 41 53 4B 49 45 52 55 4E 47 |R .IT-.ASKIERUNG| 00000040: 20 C5 49 4E 53 50 52 87 4E 47 45 20 46 87 52 20 | .INSPR.NGE F.R | 00000050: C9 2F CF 2D C5 52 52 4F 52 0D CE 52 2E 20 31 2E |./.-.RROR..R. 1.| 00000060: 2E 39 2E 20 28 C6 36 C6 C2 2E 2E C6 37 31 33 20 |.9. (.6.....713 | 00000070: 41 4C 53 20 C5 49 4E 53 50 52 55 4E 47 29 2E 0D |ALS .INSPRUNG)..| 00000080: C1 42 20 24 C6 37 31 35 3A 20 20 50 48 41 20 28 |.B $.715: PHA (| 00000090: CE 52 2E 20 4D 45 52 4B 45 4E 29 20 20 C3 4C 52 |.R. MERKEN) .LR| 000000A0: 43 48 4E 3A 20 C5 2F C1 2D C7 45 52 85 54 45 20 |CHN: ./.-.ER.TE | 000000B0: 5A 55 52 87 43 4B 53 45 54 5A 45 4E 0D 24 39 44 |ZUR.CKSETZEN.$9D| 000000C0: 20 3D 20 C6 4C 41 47 20 46 87 52 20 D3 59 53 54 | = .LAG F.R .YST| 000000D0: 45 4D 4D 45 4C 44 55 4E 47 45 4E 20 54 45 53 54 |EMMELDUNGEN TEST| 000000E0: 45 4E 3A 20 42 49 54 20 24 39 44 20 20 42 56 43 |EN: BIT $9D BVC| 000000F0: 20 45 4E 44 45 0D C9 2F CF 2D C5 52 52 4F 52 20 | ENDE../.-.RROR | 00000100: 23 58 20 20 41 55 53 47 45 42 45 4E 20 28 24 39 |#X AUSGEBEN ($9| 00000110: 44 20 3D 20 30 3A 20 D2 55 4E 3B 20 24 38 30 3A |D = 0: .UN; $80:| 00000120: 20 C4 49 52 45 4B 54 4D 4F 44 55 53 29 0D 45 4E | .IREKTMODUS).EN| 00000130: 44 45 3A 20 20 50 4C 41 20 28 C6 45 48 4C 45 52 |DE: PLA (.EHLER| 00000140: 4E 55 4D 4D 45 52 29 20 20 53 45 43 20 20 52 54 |NUMMER) SEC RT| 00000150: 53 0D 0D 97 35 DA 55 20 42 45 41 43 48 54 45 4E |S...5.U BEACHTEN| 00000160: 3A 98 35 0D D5 4E 54 45 52 47 45 4F 52 44 4E 45 |:.5..NTERGEORDNE| 00000170: 54 45 20 D2 4F 55 54 49 4E 45 4E 20 28 4C 49 53 |TE .OUTINEN (LIS| 00000180: 54 45 4E 20 49 45 43 42 59 54 2E 2E 2E 29 20 53 |TEN IECBYT...) S| 00000190: 45 54 5A 45 4E 20 D3 54 41 54 55 53 42 49 54 53 |ETZEN .TATUSBITS| 000001A0: 2E 0D 8B 42 45 52 47 45 4F 52 44 4E 45 54 45 20 |...BERGEORDNETE | 000001B0: D2 4F 55 54 49 4E 45 4E 3A 20 20 C3 41 52 52 59 |.OUTINEN: .ARRY| 000001C0: 2D C6 4C 41 47 20 3D 31 20 55 4E 44 20 C6 45 48 |-.LAG =1 UND .EH| 000001D0: 4C 45 52 4E 52 2E 20 49 4D 20 C1 4B 4B 55 2E 0D |LERNR. IM .KKU..| 000001E0: C3 4C 41 4C 4C 20 41 4D 20 D0 52 4F 47 52 41 4D |.LALL AM .ROGRAM| 000001F0: 4D 41 4E 46 41 4E 47 20 56 45 52 4D 45 49 44 45 |MANFANG VERMEIDE| 00000200: 54 20 22 46 49 4C 45 20 4F 50 45 4E 20 45 52 52 |T "FILE OPEN ERR| 00000210: 4F 52 22 2E 0D 0D 97 30 C2 45 53 4F 4E 44 45 52 |OR"....0.ESONDER| 00000220: 48 45 49 54 45 4E 3A 98 30 0D CC 4F 41 44 2D D2 |HEITEN:.0..OAD-.| 00000230: 4F 55 54 49 4E 45 3A 20 20 D3 54 41 54 55 53 20 |OUTINE: .TATUS | 00000240: 3D 20 24 34 30 3A 20 C5 4E 44 20 4F 46 20 C6 49 |= $40: .ND OF .I| 00000250: 4C 45 0D CF 50 45 4E 3A 20 20 20 20 20 20 20 20 |LE..PEN: | 00000260: 20 20 CB 45 49 4E 45 20 C4 49 53 4B 20 44 52 49 | .EINE .ISK DRI| 00000270: 4E 2C 20 C6 49 4C 45 20 4E 4F 54 20 46 4F 55 4E |N, .ILE NOT FOUN| 00000280: 44 2C 20 D7 52 49 54 45 20 50 52 4F 54 45 43 54 |D, .RITE PROTECT| 00000290: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000002A0: 45 54 43 2E 3A 20 53 45 54 5A 54 20 57 45 44 45 |ETC.: SETZT WEDE| 000002B0: 52 20 D3 54 41 54 55 53 42 49 54 2C 20 4E 4F 43 |R .TATUSBIT, NOC| 000002C0: 48 20 C3 41 52 52 59 2D C6 4C 41 47 21 0D 20 20 |H .ARRY-.LAG!. | 000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 C6 4C 4F | .LO| 000002E0: 50 50 59 20 41 55 53 47 45 53 43 48 41 4C 54 45 |PPY AUSGESCHALTE| 000002F0: 54 3A 20 D3 54 41 54 55 53 20 3D 20 24 38 30 2C |T: .TATUS = $80,| 00000300: 20 C3 41 52 52 59 20 3D 31 2E 0D 20 20 20 20 20 | .ARRY =1.. | 00000310: 20 20 20 20 20 20 20 20 20 20 D0 52 4F 42 4C 45 | .ROBLE| 00000320: 4D 3A 20 D3 41 56 45 52 4F 55 54 49 4E 45 20 4D |M: .AVEROUTINE M| 00000330: 49 54 20 4F 50 45 4E 20 28 24 C6 36 30 35 29 20 |IT OPEN ($.605) | 00000340: 53 50 55 4C 54 0D 20 20 20 20 20 20 20 20 20 20 |SPULT. | 00000350: 20 20 20 20 20 54 52 4F 54 5A 20 41 4C 4C 45 4D | TROTZ ALLEM| 00000360: 20 44 41 53 20 4B 4F 4D 50 4C 45 54 54 45 20 C6 | DAS KOMPLETTE .| 00000370: 49 4C 45 20 41 42 3B 20 4F 48 4E 45 20 4F 50 45 |ILE AB; OHNE OPE| 00000380: 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N. | 00000390: 20 41 42 20 24 C6 36 30 C2 20 53 4F 47 41 52 20 | AB $.60. SOGAR | 000003A0: 42 45 49 20 41 55 53 47 45 53 43 48 41 4C 54 45 |BEI AUSGESCHALTE| 000003B0: 54 45 52 20 C6 4C 4F 50 50 59 2E 0D 20 20 20 20 |TER .LOPPY.. | 000003C0: 20 20 20 20 20 20 20 20 20 20 20 C4 52 55 43 4B | .RUCK| 000003D0: 45 52 3A 20 4B 45 49 4E 20 C6 49 4C 45 4E 41 4D |ER: KEIN .ILENAM| 000003E0: 45 2C 20 44 41 48 45 52 20 4B 45 49 4E 45 20 D2 |E, DAHER KEINE .| 000003F0: 45 41 4B 54 49 4F 4E 0D 20 20 20 20 20 20 20 20 |EAKTION. | 00000400: 20 20 20 20 20 20 20 41 55 46 20 CF 50 45 4E 3B | AUF .PEN;| 00000410: 20 20 4C 49 53 54 45 4E 2C 20 44 41 4E 4E 20 55 | LISTEN, DANN U| 00000420: 4E 4C 49 53 54 45 4E 20 53 45 54 5A 54 20 D3 54 |NLISTEN SETZT .T| 00000430: 41 54 55 53 2E 0D 0D 97 30 C6 4C 4F 50 50 59 20 |ATUS....0.LOPPY | 00000440: 41 42 46 52 41 47 45 4E 3A 98 30 20 20 20 20 20 |ABFRAGEN:.0 | 00000450: 4C 44 41 20 23 38 20 20 20 20 20 20 20 20 20 50 |LDA #8 P| 00000460: 48 41 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |HA JSR | 00000470: 55 4E 54 41 4C 4B 0D 20 20 20 20 20 20 20 20 20 |UNTALK. | 00000480: 20 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 | JSR | 00000490: 54 41 4C 4B 20 20 20 20 20 20 20 4C 44 41 20 23 |TALK LDA #| 000004A0: 31 33 20 20 20 20 20 20 4C 44 41 20 23 31 35 0D |13 LDA #15.| 000004B0: 28 46 41 4C 4C 53 20 C6 45 48 4C 45 52 4E 52 2E |(FALLS .EHLERNR.| 000004C0: 20 30 3A 20 20 4C 44 41 20 23 24 36 C6 20 20 20 | 0: LDA #$6. | 000004D0: 20 20 20 20 4A 53 52 20 43 48 52 4F 55 54 20 20 | JSR CHROUT | 000004E0: 20 4A 53 52 20 43 4C 4F 53 45 0D 43 4D 44 2D C2 | JSR CLOSE.CMD-.| 000004F0: 45 46 45 48 4C 2C 20 53 4F 4E 53 54 20 20 20 20 |EFEHL, SONST | 00000500: 4A 53 52 20 53 45 43 54 41 4C 4B 20 20 20 20 50 |JSR SECTALK P| 00000510: 4C 41 20 20 20 20 20 20 20 20 20 20 52 54 53 0D |LA RTS.| 00000520: C6 45 48 4C 45 52 4B 41 4E 41 4C 20 41 55 53 2D |.EHLERKANAL AUS-| 00000530: 20 20 20 20 20 4A 53 52 20 49 45 43 49 4E 20 20 | JSR IECIN | 00000540: 20 20 20 20 4A 53 52 20 43 48 52 4F 55 54 0D 4C | JSR CHROUT.L| 00000550: 45 53 45 4E 20 55 4E 44 20 41 55 46 20 20 20 20 |ESEN UND AUF | 00000560: 20 20 20 20 43 4D 50 20 23 27 30 27 20 20 20 20 | CMP #'0' | 00000570: 20 CC 20 4A 53 52 20 49 45 43 49 4E 20 20 20 20 | . JSR IECIN | 00000580: 4F 4B 30 30 3A 0D C2 49 4C 44 53 43 48 49 52 4D |OK00:..ILDSCHIRM| 00000590: 20 47 45 42 45 4E 29 20 20 20 20 42 45 51 20 4F | GEBEN) BEQ O| 000005A0: 4B 30 30 20 20 20 20 20 20 20 4A 53 52 20 43 48 |K00 JSR CH| 000005B0: 52 4F 55 54 20 20 20 4A 53 52 20 55 4E 54 41 4C |ROUT JSR UNTAL| 000005C0: 4B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |K. | 000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005E0: 20 20 20 20 20 20 43 4D 50 20 23 31 33 20 20 20 | CMP #13 | 000005F0: 20 20 20 4C 44 58 20 23 32 0D 20 20 20 20 20 20 | LDX #2. | 00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 4E | BN| 00000620: 45 20 CC 20 20 20 20 20 20 20 20 4A 53 52 20 43 |E . JSR C| 00000630: 48 4B 4F 55 54 0D 20 20 20 20 20 20 20 20 20 20 |HKOUT. | 00000640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000660: 20 20 20 20 20 20 20 2E 2E 2E 0D | .... |
.@.0.5FEHLERBEHANDLUNG.5.0..TABELLE AB F
6FB: .BER BIT-MASKIERUNG EINSPR.NGE F.R
I/O-ERROR.NR. 1..9. (F6FB..F713 ALS EINS
PRUNG)..AB $F715: PHA (NR. MERKEN) CLR
CHN: E/A-GER.TE ZUR.CKSETZEN.$9D = FLAG
F.R SYSTEMMELDUNGEN TESTEN: BIT $9D BVC
ENDE.I/O-ERROR #X AUSGEBEN ($9D = 0: R
UN; $80: DIREKTMODUS).ENDE: PLA (FEHLER
NUMMER) SEC RTS...5ZU BEACHTEN:.5.UNTE
RGEORDNETE ROUTINEN (LISTEN IECBYT...) S
ETZEN STATUSBITS...BERGEORDNETE ROUTINEN
: CARRY-FLAG =1 UND FEHLERNR. IM AKKU..
CLALL AM PROGRAMMANFANG VERMEIDET "FILE
OPEN ERROR"....0BESONDERHEITEN:.0.LOAD-R
OUTINE: STATUS = $40: END OF FILE.OPEN:
KEINE DISK DRIN, FILE NOT FOUN
D, WRITE PROTECT. ETC.: SE
TZT WEDER STATUSBIT, NOCH CARRY-FLAG!.
FLOPPY AUSGESCHALTET: STATU
S = $80, CARRY =1.. PROBLE
M: SAVEROUTINE MIT OPEN ($F605) SPULT.
TROTZ ALLEM DAS KOMPLETTE F
ILE AB; OHNE OPEN. AB $F60
B SOGAR BEI AUSGESCHALTETER FLOPPY..
DRUCKER: KEIN FILENAME, DAHER
KEINE REAKTION. AUF OPEN;
LISTEN, DANN UNLISTEN SETZT STATUS....
0FLOPPY ABFRAGEN:.0 LDA #8 P
HA JSR UNTALK.
JSR TALK LDA #13 LDA #15.
(FALLS FEHLERNR. 0: LDA #$6F JSR
CHROUT JSR CLOSE.CMD-BEFEHL, SONST
JSR SECTALK PLA RTS.FEHLERKA
NAL AUS- JSR IECIN JSR CHROUT.L
ESEN UND AUF CMP #'0' L JSR I
ECIN OK00:.BILDSCHIRM GEBEN) BEQ O
K00 JSR CHROUT JSR UNTALK.
CMP #13
LDX #2.
BNE L JSR CHKOUT.
.
...
> CLICK IMAGE PREVIEW FOR FULL MODAL