From 741624f3b514f2a17efcf0d5b58344506a553dfa Mon Sep 17 00:00:00 2001 From: Florian Reitz Date: Sun, 26 Nov 2017 21:26:15 +0100 Subject: [PATCH] IIgs boot working!!! --- AppleIISd.bin | Bin 2048 -> 2048 bytes AppleIISd.hex | 30 +++++++++++++++--------------- AppleIISd.s | 17 ++++++++++------- 3 files changed, 25 insertions(+), 22 deletions(-) diff --git a/AppleIISd.bin b/AppleIISd.bin index 6d6f32326efbed04995cb0d828c53ba3054502f4..d585b67dae135f54ba144e82aa30cbf4256001e6 100644 GIT binary patch delta 85 zcmZn=Xb{j`q_Bu#5%VI(3Z4Jw6?UK6wU>dh_XoQsf2%DQ5VUHqQrK~F0`p4!gozp+ T61db%>?mgW|GzzX5hFVQUVb1` delta 85 zcmZn=Xb{j?q_Bu#5%VHOg^2&V_A)T`{$SVSZ?)wDf>!NSI{(ir>^M1rd8IzXL`@F~ TTxuqE7PB(^|KFaph>;xt3Hu)) diff --git a/AppleIISd.hex b/AppleIISd.hex index 24ba56f..2e28902 100644 --- a/AppleIISd.hex +++ b/AppleIISd.hex @@ -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 diff --git a/AppleIISd.s b/AppleIISd.s index c885e19..884d6cc 100644 --- a/AppleIISd.s +++ b/AppleIISd.s @@ -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 ;*******************************