diff --git a/AppleIISd.bin b/AppleIISd.bin index c24345f..ddb26b9 100644 Binary files a/AppleIISd.bin and b/AppleIISd.bin differ diff --git a/AppleIISd.hex b/AppleIISd.hex index 99c386c..4f3baa3 100644 --- a/AppleIISd.hex +++ b/AppleIISd.hex @@ -1,31 +1,31 @@ -:10000000A220A000A203A0FF2058FFBABD00018DCE +:10000000A220A000A203A03C2058FFBABD00018D91 :10001000F807290F853D0A0A0A0A852BAA2CFFCF6B -:1000200020A7C99003A92F002000C8F00100A90152 -:100030008542A62B8543A9088545644464476446E8 -:100040002CFFCF20CDC94C0108D848A52B48A53D91 -:1000500048A54048A541482058FFBABD00018DF889 -:1000600007290F853D0A0A0A0A852BAA2CFFCF20F3 -:10007000A7C99005A92F388040A9803C83C0F034DF -:10008000A542C900F015C901F016C902F017C9034D -:10009000F018C9FFF019A90138801E20BFC98019C6 -:1000A00020CDC980142034CA800F20A3CA800A2022 -:1000B000A7CA80052000C890C7BA9D050168854180 -:1000C00068854068853D68852B68600000000000F9 -:1000D0000000000000000000000000000000000020 -:1000E0000000000000000000000000000000000010 -:1000F000000000000000000000000000FFFF1749A2 +:1000200020A7C99003A92F002000C8F00100A0005C +:10003000B9FFCAF00699D007C810F5A9018542A6F4 +:100040002B8643A90885456444644764462CFFCF4A +:1000500020CDC9A9018542A62B8643A90A854564FE +:10006000446447A90185462CFFCF20CDC9A62B4C5F +:100070000108D848A52B48A53D48A54048A54148BA +:100080002058FFBABD00018DF807290F853D0A0AE7 +:100090000A0A852BAA2CFFCF20A7C99005A92F38C3 +:1000A0008040A9803C83C0F034A542C900F015C946 +:1000B00001F016C902F017C903F018C9FFF019A919 +:1000C0000138801E20BFC9801920CDC9801420347A +:1000D000CA800F20A3CA800A20A7CA80052000C8B2 +:1000E00090C7BA9D050168854168854068853D686F +:1000F000852B68600000000000000000000007720F :10010000D8A9039D81C0BD83C009019D83C0A907F3 :100110009D82C0A00AA9FF9D80C03C81C010FB88C1 -:10012000D0F5BD83C029FE9D83C0A9FF8540A9CA23 -:10013000854120EBC820FFC8C901D039A90B8540F3 -:10014000A9CB854120EBC82018C9C901D02AA9171D -:100150008540A9CB854120EBC820FFC8A91D85405B +:10012000D0F5BD83C029FE9D83C0A91F8540A9CB02 +:10013000854120EBC820FFC8C901D039A92B8540D3 +:10014000A9CB854120EBC82018C9C901D02AA937FD +:100150008540A9CB854120EBC820FFC8A93D85403B :10016000A9CB854120EBC820FFC8C901F0E0C90038 -:10017000D0034CB2C84CD9C8A9178540A9CB85413A -:1001800020EBC8A9238540A9CB854120EBC820FFDF -:10019000C8C901F0E3C900D0034CB2C8A905854025 +:10017000D0034CB2C84CD9C8A9378540A9CB85411A +:1001800020EBC8A9438540A9CB854120EBC820FFBF +:10019000C8C901F0E3C900D0034CB2C8A925854005 :1001A000A9CB854120EBC820FFC8C901F0F6C900E2 -:1001B000D027A9118540A9CB854120EBC820FFC8D5 +:1001B000D027A9318540A9CB854120EBC820FFC8B5 :1001C000C900D015BD83C009809D83C0BD81C00911 :1001D000049D81C018A000900338A027BD83C009EA :1001E000019D83C0A9009D82C098605AA000B140C3 @@ -61,8 +61,10 @@ :1003C000989144C8D0FAE645989144C8D0FAC645F9 :1003D00064466447A62B2034CAB02220CDC9B01D84 :1003E000A00098D144D017C8D0F8E64598D144D0A1 -:1003F0000DC8D0F8C64520F8BE18A900600000401E -:1004000000000000954100000000F948000001AA2A -:10041000875000000200FF7700000000656940007F -:090420000000776900000000FFF4 +:1003F0000DC8D0F8C64520F8BE18A900600000C19D +:10040000F0F0ECE5DDDBD3E4A0A8E3A9B2B0B1B72E +:10041000A0C6ECEFF2E9E1EEA0D2E5E9F4FA004083 +:1004200000000000954100000000F948000001AA0A +:10043000875000000200FF7700000000656940005F +:090440000000776900000000FFD4 :00000001FF diff --git a/AppleIISd.s b/AppleIISd.s index abb5bc5..8ece11b 100644 --- a/AppleIISd.s +++ b/AppleIISd.s @@ -57,7 +57,7 @@ INITED = $80 LDX #$20 LDY #$00 LDX #$03 - LDY #$FF ; neither 5.25 nor Smartport + LDY #$3C * find slot nr @@ -148,13 +148,20 @@ INSTALL LDA $BF32,X ; get a devnum ELSE -BOOT BEQ :BOOT1 ; check for error +BOOT BEQ :DRAW ; check for error BRK +:DRAW LDY #0 ; display copyright message +:DRAW1 LDA TEXT,Y + BEQ :BOOT1 ; check for NULL + STA $07D0,Y ; put on last line + INY + BPL :DRAW1 + :BOOT1 LDA #$01 STA DCMD ; load command LDX SLOT16 - STA $43 ; slot number + STX $43 ; slot number LDA #$08 STA BUFFER+1 ; buffer hi STZ BUFFER ; buffer lo @@ -162,6 +169,20 @@ BOOT BEQ :BOOT1 ; check for error STZ BLOCK ; block lo BIT $CFFF JSR READ ; call driver + + LDA #$01 + STA DCMD ; load command + LDX SLOT16 + STX $43 ; slot number + LDA #$0A + STA BUFFER+1 ; buffer hi + STZ BUFFER ; buffer lo + STZ BLOCK+1 ; block hi + LDA #$01 + STA BLOCK ; block lo + BIT $CFFF + JSR READ ; call driver + LDX SLOT16 JMP $801 ; goto bootloader FIN @@ -264,8 +285,8 @@ DRIVER CLD DS \ ; fill with zeroes DS -4 ; locate to $xxFC - DW $FFFF ; 65535 blocks - DB $17 ; Status bits + DW $0 ; use status call + DB $07 ; Status bits DB #