Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-06-04 20:29:26 +00:00
Code Issues Projects Releases Wiki Activity

Prompt for keypress if no config file found

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-06-05 00:08:19 -04:00
parent 3a645dcb46
commit 81962631f6
1 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
apps/setmac/setmac.s
View File

@ -156,7 +156,7 @@ Main1: cld
bne :+ ; has lower case, skip over next few instructions bne :+ ; has lower case, skip over next few instructions
lda #$DF ; mask value lda #$DF ; mask value
sta CaseCv ; to make print routine convert to upper case sta CaseCv ; to make print routine convert to upper case
: ;jsr HOME : jsr HOME
jsr iprint jsr iprint
.byte $8D ; CR .byte $8D ; CR
hasc "Uthernet-II SETMAC Utility" hasc "Uthernet-II SETMAC Utility"
@ -165,13 +165,21 @@ Main1: cld
lda UWSlot ; Load UW slot number lda UWSlot ; Load UW slot number
jsr setmac jsr setmac
lda Default ; See if we used the defaults
cmp #$ff
bne nxtsys
jsr iprint
.byte $8D,$8D ; CR, CR
hasc "<Press Any Key>"
.byte $8D,$00 ; CR, done
; wait for keyboard ; wait for keyboard
bit KBDSTR bit KBDSTR
: lda KBD : lda KBD
bpl :- bpl :-
bit KBDSTR bit KBDSTR
jmp NextSys nxtsys: jmp NextSys
.endproc .endproc
.proc loadsettings .proc loadsettings
; Load slot number and MAC from 'SETMAC.CFG' ; Load slot number and MAC from 'SETMAC.CFG'
@ -203,6 +211,8 @@ Main1: cld
jsr PRODOS jsr PRODOS
.byte $CC ; CLOSE .byte $CC ; CLOSE
.word PL_CLOSE .word PL_CLOSE
lda #$00 ; Record that we opened file
sta Default
rts rts
CantRead: CantRead:
jsr PRODOS jsr PRODOS
@ -211,9 +221,7 @@ CantRead:
CantOpen: CantOpen:
jsr iprint jsr iprint
.byte $8D ; CR .byte $8D ; CR
hasc "Can't Read SETMAC.CFG" hasc "Can't Read SETMAC.CFG - Using Defaults"
.byte $8D ; CR
hasc "Using default settings"
.byte $8D,$00 ; CR, done .byte $8D,$00 ; CR, done
lda #$05 ; Default slot 5 lda #$05 ; Default slot 5
sta UWSlot sta UWSlot
@ -308,13 +316,17 @@ bad: lda #$00
sta IOMINUSONE,y ; Set low byte sta IOMINUSONE,y ; Set low byte
ldx #$00 ldx #$00
iny ; $d8 iny ; $d8
: lda MACBuf,x ; Load byte of MAC l1: lda MACBuf,x ; Load byte of MAC
jsr PrHex jsr PrHex
lda MACBuf,x ; Load byte of MAC again cpx #5
beq ncolon
lda #(':'|$80)
jsr COUT
ncolon: lda MACBuf,x ; Load byte of MAC again
sta IOMINUSONE,y ; Set and autoinc sta IOMINUSONE,y ; Set and autoinc
inx inx
cpx #6 cpx #6
bne :- bne l1
dey dey
dey ; $d6 dey ; $d6
lda #$00 ; High byte of $001a reg addr lda #$00 ; High byte of $001a reg addr
@ -618,5 +630,7 @@ CfgBuf: .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
; slt spc m1h m1l : m2h m2l : m3h m3l : m4h m4l : m5h m5l : m6h m6l ; slt spc m1h m1l : m2h m2l : m3h m3l : m4h m4l : m5h m5l : m6h m6l
UWSlot: .byte $00 UWSlot: .byte $00
MACBuf: .byte $00,$08,$0d,$10,$20,$30 ; Fallback value MACBuf: .byte $00,$08,$0d,$10,$20,$30 ; Fallback value
Default: .byte $ff ; Set to $00 if we load SETMAC.CFG