FLPRG ASM
;------ COPY AUF ADRESSE 0000 ----------
ORG 0
;
PV1 EQU 0F003H
RCALL EQU 0F00FH
IRMON EQU 0F018H
IRMOFF EQU 0F01BH
;
;
;
DEFB 0
DEFB 0
DEFB 0
DEFB 0
DEFB 0
DEFB 0
DEFB 0
DEFB 0
DEFB 0
DEFB 0
DEFB 0
DEFB 0
;
CALL IRMON
LD HL,0
CALL RCALL
DEFW 1FH
CALL IRMOFF
RET
;
;
;
DEFW 7F7FH
DEFM 'FLOAD'
DEFB 1
;
FLPRG: CALL PV1
DEFB 23H
DEFM 'NAME :'
DEFB 0
CALL PV1
DEFB 17H
LD HL,6
ADD HL,DE
EX (SP),HL
LD (0B797H),HL
EX (SP),HL
LD E,0CH
LD BC,82F3H
POKNAM: LD A,M
OUT (C),A
INC HL
INC B
DEC E
JR NZ,POKNAM
LD A,9
LD B,80H
OUT (C),A
WFRDY: IN A,(C)
RRCA
JR C,WFRDY
BIT 6,A
JR NZ,RDERRN
LD BC,90F2H ;ARGN
IN A,(C)
CP 2
JR C,RDERR
CP 0AH
JR NC,RDERR
JR 69H
;---------------------------------------
ORG $+3
;
; DEFB 0
; DEFB 0
; DEFB 0
;
FILEIN: INC B
IN L,(C)
INC B
IN H,(C)
INC B
IN E,(C)
INC B
IN D,(C)
CP 3
JR C,LDADR
PUSH HL
INC B
IN L,(C)
INC B
IN H,(C)
EX (SP),HL
LDADR: PUSH AF
LD A,(0B781H)
AND A
JR Z,RDSEC
LD BC,(0B782H)
ADD HL,BC
POP AF
JR C,ENDADR
EX (SP),HL
ADD HL,BC
EX (SP),HL
ENDADR: EX DE,HL
ADD HL,BC
EX DE,HL
PUSH AF
RDSEC: POP AF
RDSEC1: LD A,1
LD BC,80F3H
OUT (C),A
WTSEC: IN A,(C)
RRCA
JR C,WTSEC
BIT 6,A
JR Z,DATAIN
RDERRN: INC B
IN A,(C)
CALL PV1
DEFB 1CH
RDERR: CALL PV1
DEFB 19H
LD HL,(0B797H)
JP (HL)
;
DATAIN: DEC C
DATIN1: INI
INC B
INC B
PUSH HL
SBC HL,DE
POP HL
RET NC
LD A,B
AND A
JR NZ,DATIN1
JR RDSEC1
;
BACK: IN A,88H ;Anspr.v.ROM FC
OR 1
OUT 88H,A
LD A,(0B781H)
CP 2
JP NC,0E000H
;
; Ende bei JUMP FC mit Parameterm
;
LD A,(0E011H)
CP 7FH
JR Z,NOTC31
IN A,88H
OR 80H
OUT 88H,A
NOTC31: LD L,46H
WFRDE: LD BC,80F3H
IN A,(C)
CP 48H
JR Z,AEXEC
CP 0C8H
JR Z,FLEND
LD A,11H
CALL PV1
DEFB 14H
DEC L
JR NZ,WFRDE
FLEND: JP 0E000H
;
AEXEC: LD HL,0B700H
LD BC,80F2H
AE1: IN A,(C)
LD M,A
INC L
INC B
JR NZ,AE1
LD L,B
LD (0B7D1H),HL
SET 6,(IX+8)
CALL PV1
DEFB 23H
DEFB 0CH
DEFB 0DH
DEFB 0AH
DEFB 0
CALL PV1
DEFB 12H
;
; Ende bei JUMP FC ohne Parameter
;
; END
ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ
Detected encoding: ANSI (CP1252) | 4
|
|