MirrorRepos/RomWBW
1
0
Fork 1
mirror of https://github.com/wwarthen/RomWBW.git synced 2026-02-06 22:43:15 -06:00
Code Issues Projects Releases Wiki Activity

Bug Fixes in ASSIGN Command

Browse Source
This commit is contained in:
Wayne Warthen
2016-04-21 13:16:41 -07:00
parent 97a09a6e33
commit 684f59a73c
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Source/Apps/Assign.asm
View File

@@ -332,7 +332,7 @@ devlist1:
ld de,indent ; indent
call prtstr ; ... to look nice
push bc ; preserve loop control
ld c,a ; device to A
ld a,c ; device to A
call prtdev ; print device mnemonic
ld a,':' ; colon for device/unit format
call prtchr ; print it
@@ -1071,9 +1071,11 @@ showone:
ld a,(hl) ; load unit
cp $FF ; empty?
ret z ; yes, bypass
push hl ; preserve HL
call prtdev ; print device mnemonic
ld a,':' ; colon for device/unit format
call prtchr ; print it
pop hl ; recover HL
inc hl ; point to slice num
ld a,(hl) ; load slice num
call prtdecb ; print it
@@ -1699,7 +1701,7 @@ stack .equ $ ; stack top
; Messages
;
indent .db " ",0
msgban1 .db "ASSIGN v1.0c for RomWBW CP/M 2.2, 7-Apr-2016",0
msgban1 .db "ASSIGN v1.0c for RomWBW CP/M 2.2, 21-Apr-2016",0
msghb .db " (HBIOS Mode)",0
msgub .db " (UBIOS Mode)",0
msgban2 .db "Copyright 2016, Wayne Warthen, GNU GPL v3",0