|
|
@@ -155,7 +155,7 @@ RANDIX = 0xfd16
|
|
|
DSKRETRY = 0xfd18
|
|
|
CMDSAVE = 0xfd1c
|
|
|
BCSAVE = 0xfd1d
|
|
|
-HLSAVE = 0xfd1e
|
|
|
+DESAVE = 0xfd1f
|
|
|
DOSERR35 = 0xfd21
|
|
|
DOSERR36 = 0xfd23
|
|
|
DOSERR37 = 0xfd25
|
|
|
@@ -1778,7 +1778,7 @@ _INIT80: ;; 685e <- 604b
|
|
|
.L68d0: ;; 68d0 <- 68c6
|
|
|
call dw0_b ; 68d0 ..` cd d0 60
|
|
|
jr c,.L68e8 ; 68d3 8. 38 13
|
|
|
- ld a,(HLSAVE) ; 68d5 :.. 3a 1e fd
|
|
|
+ ld a,(BCSAVE+1) ; 68d5 :.. 3a 1e fd
|
|
|
add a,0x41 ; 68d8 .A c6 41
|
|
|
ld l,a ; 68da o 6f
|
|
|
ld h,0xfd ; 68db &. 26 fd
|
|
|
@@ -2146,7 +2146,7 @@ getc0: ;; 68ff <- 6889 6890 6924 694f 698f 69d8 6a55 6b91 6bbb 6c2e
|
|
|
ld b,0 ; 6b1b .. 06 00
|
|
|
call .L6908 ; 6b1d ..i cd 08 69
|
|
|
call .L6908 ; 6b20 ..i cd 08 69
|
|
|
- ld hl,(HLSAVE+1) ; 6b23 *.. 2a 1f fd
|
|
|
+ ld hl,(DESAVE) ; 6b23 *.. 2a 1f fd
|
|
|
ld a,0x0b ; 6b26 >. 3e 0b
|
|
|
call .L6b60 ; 6b28 .`k cd 60 6b
|
|
|
ld b,0xff ; 6b2b .. 06 ff
|
|
|
@@ -2164,7 +2164,7 @@ getc0: ;; 68ff <- 6889 6890 6924 694f 698f 69d8 6a55 6b91 6bbb 6c2e
|
|
|
ld (hl),3 ; 6b4a 6. 36 03
|
|
|
ld l,1 ; 6b4c .. 2e 01
|
|
|
set 5,(hl) ; 6b4e .. cb ee
|
|
|
- ld a,(HLSAVE) ; 6b50 :.. 3a 1e fd
|
|
|
+ ld a,(BCSAVE+1) ; 6b50 :.. 3a 1e fd
|
|
|
add a,0x40 ; 6b53 .@ c6 40
|
|
|
ld e,a ; 6b55 _ 5f
|
|
|
ld d,0xfd ; 6b56 .. 16 fd
|
|
|
@@ -2187,7 +2187,7 @@ getc0: ;; 68ff <- 6889 6890 6924 694f 698f 69d8 6a55 6b91 6bbb 6c2e
|
|
|
.L6b6c: ;; 6b6c <- 6f3f
|
|
|
call .L6ca0 ; 6b6c ..l cd a0 6c
|
|
|
jp c,.L6c0d ; 6b6f ..l da 0d 6c
|
|
|
- ld hl,(HLSAVE+1) ; 6b72 *.. 2a 1f fd
|
|
|
+ ld hl,(DESAVE) ; 6b72 *.. 2a 1f fd
|
|
|
ld a,h ; 6b75 | 7c
|
|
|
or a ; 6b76 . b7
|
|
|
jp z,.L6c15 ; 6b77 ..l ca 15 6c
|
|
|
@@ -2230,7 +2230,7 @@ getc0: ;; 68ff <- 6889 6890 6924 694f 698f 69d8 6a55 6b91 6bbb 6c2e
|
|
|
ld c,a ; 6bb4 O 4f
|
|
|
add a,0x0b ; 6bb5 .. c6 0b
|
|
|
ld b,a ; 6bb7 G 47
|
|
|
- ld hl,(HLSAVE+1) ; 6bb8 *.. 2a 1f fd
|
|
|
+ ld hl,(DESAVE) ; 6bb8 *.. 2a 1f fd
|
|
|
.L6bbb: ;; 6bbb <- 6bc4
|
|
|
call getc0 ; 6bbb ..h cd ff 68
|
|
|
cp (hl) ; 6bbe . be
|
|
|
@@ -2295,7 +2295,7 @@ getc0: ;; 68ff <- 6889 6890 6924 694f 698f 69d8 6a55 6b91 6bbb 6c2e
|
|
|
ld a,1 ; 6c15 >. 3e 01
|
|
|
add a,b ; 6c17 . 80
|
|
|
jr c,.L6c0d ; 6c18 8. 38 f3
|
|
|
- ld a,(HLSAVE+1) ; 6c1a :.. 3a 1f fd
|
|
|
+ ld a,(DESAVE) ; 6c1a :.. 3a 1f fd
|
|
|
ld hl,F_FILENO ; 6c1d !.. 21 00 fd
|
|
|
ld (hl),a ; 6c20 w 77
|
|
|
call .L6f47 ; 6c21 .Go cd 47 6f
|
|
|
@@ -2357,7 +2357,7 @@ getc0: ;; 68ff <- 6889 6890 6924 694f 698f 69d8 6a55 6b91 6bbb 6c2e
|
|
|
ld a,3 ; 6c89 >. 3e 03
|
|
|
ld l,0x0e ; 6c8b .. 2e 0e
|
|
|
ld (hl),a ; 6c8d w 77
|
|
|
- ld a,(HLSAVE) ; 6c8e :.. 3a 1e fd
|
|
|
+ ld a,(BCSAVE+1) ; 6c8e :.. 3a 1e fd
|
|
|
add a,0x40 ; 6c91 .@ c6 40
|
|
|
ld e,a ; 6c93 _ 5f
|
|
|
ld d,0xfd ; 6c94 .. 16 fd
|
|
|
@@ -2652,7 +2652,7 @@ getc0: ;; 68ff <- 6889 6890 6924 694f 698f 69d8 6a55 6b91 6bbb 6c2e
|
|
|
call dr0_b ; 6e7d ..` cd c3 60
|
|
|
ret c ; 6e80 . d8
|
|
|
.L6e81: ;; 6e81 <- 6e74 6eec
|
|
|
- ld hl,HLSAVE ; 6e81 !.. 21 1e fd
|
|
|
+ ld hl,BCSAVE+1 ; 6e81 !.. 21 1e fd
|
|
|
ld b,(hl) ; 6e84 F 46
|
|
|
ld a,b ; 6e85 x 78
|
|
|
or a ; 6e86 . b7
|
|
|
@@ -2726,7 +2726,7 @@ getc0: ;; 68ff <- 6889 6890 6924 694f 698f 69d8 6a55 6b91 6bbb 6c2e
|
|
|
.L6eee: ;; 6eee <- 6e90 6e93
|
|
|
call .L6f01 ; 6eee ..o cd 01 6f
|
|
|
call dw0_b ; 6ef1 ..` cd d0 60
|
|
|
- ld hl,HLSAVE ; 6ef4 !.. 21 1e fd
|
|
|
+ ld hl,BCSAVE+1 ; 6ef4 !.. 21 1e fd
|
|
|
ld b,(hl) ; 6ef7 F 46
|
|
|
ld h,0xfd ; 6ef8 &. 26 fd
|
|
|
ret ; 6efa . c9
|
|
|
@@ -2754,11 +2754,11 @@ _GETNC: ;; 6f11 <- 600c
|
|
|
ret ; 6f1b . c9
|
|
|
_SELROUT: ;; 6f1c <- 6009
|
|
|
ld (BCSAVE),bc ; 6f1c .C.. ed 43 1d fd
|
|
|
- ld (HLSAVE+1),de ; 6f20 .S.. ed 53 1f fd
|
|
|
+ ld (DESAVE),de ; 6f20 .S.. ed 53 1f fd
|
|
|
ld (CMDSAVE),a ; 6f24 2.. 32 1c fd
|
|
|
call .L6f36 ; 6f27 .6o cd 36 6f
|
|
|
ld bc,(BCSAVE) ; 6f2a .K.. ed 4b 1d fd
|
|
|
- ld de,(HLSAVE+1) ; 6f2e .[.. ed 5b 1f fd
|
|
|
+ ld de,(DESAVE) ; 6f2e .[.. ed 5b 1f fd
|
|
|
ld a,(CMDSAVE) ; 6f32 :.. 3a 1c fd
|
|
|
ret ; 6f35 . c9
|
|
|
.L6f36: ;; 6f36 <- 6f27
|
H. Peter Anvin