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

Fixed stupid mistakes

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-06-03 23:56:06 -04:00
parent 16773c1c67
commit e5d2c319dd
1 changed files with 28 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
apps/setmac/setmac.s
View File

@ -159,36 +159,37 @@ Main1: cld
jsr iprint jsr iprint
.byte $8D ; CR .byte $8D ; CR
hasc "Uthernet-II SETMAC Utility" hasc "Uthernet-II SETMAC Utility"
.byte $8D,$00 ; CR, done .byte $8D,$00 ; CR, done
jsr setmac ; Do it! jsr setmac
jmp NextSys jmp NextSys
.endproc .endproc
.proc setmac .proc setmac
; Actually set the MAC address on the Uthernet-II ; Actually set the MAC address on the Uthernet-II
; TODO: Make this slot independent and not hard-coded ; TODO: Make this slot independent and not hard-coded
lda #$00 ; High byte of MAC reg addr ; Hard-coded for slot 5
lda #$09 ; Low byte lda #$00 ; High byte of MAC reg addr
sta $c0d5 ; Set high byte of pointer ldx #$09 ; Low byte
sta $c0d6 ; Set low byte sta $bfff+$d6 ; Set high byte of pointer
lda #$00 ; First byte of MAC stx $bfff+$d7 ; Set low byte
sta $c0d7 ; Set and autoinc lda #$00 ; First byte of MAC
lda #$08 ; Second byte of MAC sta $bfff+$d8 ; Set and autoinc
sta $c0d7 ; Set and autoinc lda #$08 ; Second byte of MAC
lda #$dc ; Third byte of MAC sta $bfff+$d8 ; Set and autoinc
sta $c0d7 ; Set and autoinc lda #$dc ; Third byte of MAC
lda #$de ; Fourth byte of MAC sta $bfff+$d8 ; Set and autoinc
sta $c0d7 ; Set and autoinc lda #$de ; Fourth byte of MAC
lda #$ad ; Fifth byte of MAC sta $bfff+$d8 ; Set and autoinc
sta $c0d7 ; Set and autoinc lda #$ad ; Fifth byte of MAC
lda #$00 ; Sixth byte of MAC sta $bfff+$d8 ; Set and autoinc
sta $c0d7 ; Set and autoinc lda #$00 ; Sixth byte of MAC
lda #$00 ; High byte of $001a reg addr sta $bfff+$d8 ; Set and autoinc
lda #$1a ; Low byte lda #$00 ; High byte of $001a reg addr
sta $c0d5 ; Set high byte of pointer ldx #$1a ; Low byte
sta $c0d6 ; Set low byte sta $c0d5 ; Set high byte of pointer
lda #$06 ; Magic value: MAC set! stx $c0d6 ; Set low byte
sta $c0d7 lda #$06 ; Magic value: MAC set!
rts sta $bfff+$d8 ; Set and autoinc
rts
.endproc .endproc
; This starts the process of finding & launching next system file ; This starts the process of finding & launching next system file
; unfortunately it also uses block reads and can't be run from an AppleShare ; unfortunately it also uses block reads and can't be run from an AppleShare
@ -352,7 +353,7 @@ nozero: pla
jsr COUT jsr COUT
rts rts
.endproc .endproc
CaseCv: .byte $FF ; default case conversion byte = none CaseCv: .byte $FF ; default case conversion byte = none
; ---------------------------------------------------------------------------- ; ----------------------------------------------------------------------------
.proc DoQuit .proc DoQuit
jsr PRODOS jsr PRODOS