Apple-2-HW
/
AppleIISd
mirror of https://github.com/freitz85/AppleIISd.git
1
0
Fork 1
Code Issues Projects Releases Wiki Activity

IIgs boot working!!!

This commit is contained in:
Florian Reitz 2017-11-26 21:26:15 +01:00
parent 4feea40b5d
commit 741624f3b5
3 changed files with 25 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
AppleIISd.bin
View File

Binary file not shown.

30
AppleIISd.hex
View File

@ -1,19 +1,19 @@
:10000000A220A200A203A2012058FFBABD00018DC8
:10001000F807290F853D0A0A0A0A852BAA2CFFCF6B
:1000200020B8C99003A92F002000C8A9018542A6C5
:100030002B8643A90885456444644764462CFFCF5A
:1000400020DEC9A9018542A62B8643A90A854564FD
:10005000446447A90185462CFFCF20DEC9A62B4C5E
:100060000108D848A52B48A53D48A54048A54148CA
:100070002058FFBABD00018DF807290F853D0A0AF7
:100080000A0A852BAA2CFFCF20B8C99005A92F38C2
:100090008037A9803C83C0F02BA542C900F011C96C
:1000A00001F012C902F013C903F014A90138801934
:1000B00020D0C9801420DEC9800F2047CA800A20C2
:1000C000B8CA80052000C890D0BA9D050168854156
:1000D00068854068853D68852B68600000000000E9
:10000000A220A200A203A201782CFFCF20BBCABA73
:10001000BD00018DF807290F853D0A0A0A0A852BC4
:10002000AA20B8C99003A92F602000C8A901854261
:10003000A62B8643A90885456444644764462CFF83
:10004000CF20DEC9A9018542A62B8643A90A854592
:1000500064446447A90185462CFFCF20DEC9A62B46
:100060004C0108D848A52B48A53D48A54048A541C6
:10007000482CFFCF20BBCABABD00018DF807290F5D
:10008000853D0A0A0A0A852BAA20B8C99005A92F1E
:10009000388037A9803C83C0F02BA542C900F011FD
:1000A000C901F012C902F013C903F014A901388084
:1000B0001920D0C9801420DEC9800F2047CA800AC9
:1000C00020B8CA80052000C890D0BA9D0501688577
:1000D0004168854068853D68852B686000000000A8
:1000E0000000000000000000000000000000000010
:1000F000000000000000000000000000FFFF876219
:1000F000000000000000000000000000FFFF876318
:10010000D8A9039D81C0BD83C009019D83C0A907F3
:100110009D82C0A00AA9FF9D80C03C81C010FB88C1
:10012000D0F5BD83C029FE9D83C0A9E18540A9CA41

17
AppleIISd.s
View File

@ -63,7 +63,9 @@ INITED = $80
LDA #$40
.else
JSR $FF58
SEI
BIT $CFFF
JSR KNOWNRTS
TSX
LDA $0100,X
STA CURSLOT ; $Cs
@ -77,11 +79,11 @@ INITED = $80
STA SLOT16 ; $s0
TAX ; X holds now SLOT16
BIT $CFFF
;BIT $CFFF
JSR CARDDET
BCC @INIT
LDA #$2F ; no card inserted
BRK
RTS
@INIT: JSR INIT
@ -144,7 +146,7 @@ INSTALL: LDA $BF32,X ; get a devnum
.if 0
BOOT: BEQ @DRAW ; check for error
BRK
RTS
@DRAW: LDY #0 ; display copyright message
@DRAW1: LDA TEXT,Y
@ -211,7 +213,8 @@ DRIVER: CLD
LDA #$40
.else
JSR $FF58 ; find slot nr
BIT $CFFF
JSR KNOWNRTS ; find slot nr
TSX
LDA $0100,X
STA CURSLOT ; $Cs
@ -225,7 +228,7 @@ DRIVER: CLD
STA SLOT16 ; $s0
TAX ; X holds now SLOT16
BIT $CFFF
;BIT $CFFF
JSR CARDDET
BCC @INITED
LDA #$2F ; no card inserted
@ -798,7 +801,7 @@ WRITE: JSR WRPROT
FORMAT: SEC
LDA #$01 ; invalid command
RTS
KNOWNRTS: RTS
;*******************************