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

Print MAC on screen

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-06-04 01:15:25 -04:00
parent c1fa8d4f2f
commit 80fc7fd4aa
1 changed files with 39 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
apps/setmac/setmac.s
View File

@ -156,13 +156,20 @@ Main1: cld
bne :+ ; has lower case, skip over next few instructions
lda #$DF ; mask value
sta CaseCv ; to make print routine convert to upper case
: jsr HOME
: ;jsr HOME
jsr iprint
.byte $8D ; CR
hasc "Uthernet-II SETMAC Utility"
.byte $8D,$00 ; CR, done
lda #5 ; Slot 5 TODO: This is hardcoded for now
jsr setmac
; wait for keyboard
bit KBDSTR
: lda KBD
bpl :-
bit KBDSTR
jmp NextSys
.endproc
.proc setmac
@ -188,6 +195,8 @@ Main1: cld
ldx #$00
iny ; $d8
: lda mac,x ; Load byte of MAC
jsr PrHex
lda mac,x ; Load byte of MAC again
sta IOMINUSONE,y ; Set and autoinc
inx
cpx #6
@ -369,6 +378,35 @@ nozero: pla
.endproc
CaseCv: .byte $FF ; default case conversion byte = none
; ----------------------------------------------------------------------------
; print hex digits in A (already validated)
.proc PrHexDigit
cmp #$0a
bcc :+ ; A < $A
clc
adc #('a' | $80) - $0a
jsr COUT
rts
: ;; clc
adc #('0' | $80)
jsr COUT
rts
.endproc
; ----------------------------------------------------------------------------
; print two hex digits in A
.proc PrHex
pha
lsr
lsr
lsr
lsr
and #$0f
jsr PrHexDigit
pla
and #$0f
jsr PrHexDigit
rts
.endproc
; ----------------------------------------------------------------------------
.proc DoQuit
jsr PRODOS
.byte $65 ; MLI QUIT