zjkuki/AppleIISd
1
0
Fork 0
forked from Apple-2-HW/AppleIISd
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Nasty bug in Status call fixed

Browse Source
This commit is contained in:
Florian Reitz 2018-07-07 17:28:30 +02:00
parent 8348d6d2dc
commit 0ba00e76ce
5 changed files with 68 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
AppleIISd.bin
View File

Binary file not shown.

132
AppleIISd.hex
View File

@ -3,26 +3,26 @@
:100020000A853EAA2CFFCFA000B916C9F00D0980A1 :100020000A853EAA2CFFCFA000B916C9F00D0980A1
:10003000995007C810F3A9C520A8FC2C61C0100B6B :10003000995007C810F3A9C520A8FC2C61C0100B6B
:10004000ADF8073A854164406C40002000C8C90003 :10004000ADF8073A854164406C40002000C8C90003
:10005000D0EEA9088545644464476446207ECAB052 :10005000D0EEA9088545644464476446207CCAB054
:10006000DFA90A854564446447A9018546207ECA04 :10006000DFA90A854564446447A9018546207CCA06
:10007000B0CE4C01081890013808FAA004B93D0030 :10007000B0CE4C01081890013808FAA004B93D0030
:10008000488810F9863D78A960853F203F00BABDB9 :10008000488810F9863D78A960853F203F00BABDB9
:100090000001588DF807290F853FA80A0A0A0A852A :100090000001588DF807290F853FA80A0A0A0A852A
:1000A0003EAA2CFFCF203FCA9004A92F8015A9801B :1000A0003EAA2CFFCF203DCA9004A92F8015A9801D
:1000B0003C83C0D0052000C8B009A53D4828B03415 :1000B0003C83C0D0052000C8B009A53D4828B03415
:1000C0002057CADAA63F9D7804689DF804989D7869 :1000C0002055CADAA63F9D7804689DF804989D786B
:1000D0000508689DF805A00068993D00C8C0059016 :1000D0000508689DF805A00068993D00C8C0059016
:1000E000F7BDF80548BD780548BDF80448BD78045B :1000E000F7BDF80548BD780548BDF80448BD78045B
:1000F000FA7A2860182058CB80C900000000977554 :1000F000FA7A2860182056CB80C900000000977556
:10010000A9039D81C0BD83C009019D83C0A9079D2E :10010000A9039D81C0BD83C009019D83C0A9079D2E
:1001100082C0A00AA9FF9D80C03C81C010FB88D08E :1001100082C0A00AA9FF9D80C03C81C010FB88D08E
:10012000F5BD83C029FE9D83C0A93D8540A9C98531 :10012000F5BD83C029FE9D83C0A93D8540A9C98531
:1001300041206DC92081C9C901D065A9498540A95F :1001300041206DC92081C9C901D065A9498540A95F
:10014000C98541206DC9209AC9C901D056A43FB9BB :10014000C98541206DC92098C9C901D056A43FB9BD
:10015000F805C9AAD04AA9558540A9C98541206D8D :10015000F805C9AAD04AA9558540A9C98541206D8D
:10016000C92081C9A9618540A9C98541206DC920DF :10016000C92081C9A9618540A9C98541206DC920DF
:1001700081C9C901F0E0C900D026A95B8540A9C9A1 :1001700081C9C901F0E0C900D026A95B8540A9C9A1
:100180008541206DC9209AC9C900D014A43FB9780F :100180008541206DC92098C9C900D014A43FB97811
:10019000042940F048BD83C009109D83C04CEFC8BE :10019000042940F048BD83C009109D83C04CEFC8BE
:1001A0004C04C9A9558540A9C98541206DC9A967D5 :1001A0004C04C9A9558540A9C98541206DC9A967D5
:1001B0008540A9C98541206DC92081C9C901F0E3E5 :1001B0008540A9C98541206DC92081C9C901F0E3E5
@ -38,65 +38,65 @@
:1002500000000200FF7700000000FF7A00000000AD :1002500000000200FF7700000000FF7A00000000AD
:10026000FF6940000000776900000000FF5AA0000D :10026000FF6940000000776900000000FF5AA0000D
:10027000B1409D80C03C81C010FBC8C00690F17A9F :10027000B1409D80C03C81C010FBC8C00690F17A9F
:1002800060A9FF9D80C03C81C010FBBD80C08980FB :1002800060A9FF9D80C03C81C010FBBD80C030F1E3
:10029000D0EF48A9FF9D80C068602081C9485AA05E :1002900048A9FF9D80C068602081C9485AA0044CCD
:1002A000044CA9C9A9FF9D80C03C81C010FBBD8042 :1002A000A7C9A9FF9D80C03C81C010FBBD80C0488C
:1002B000C04888D0EFA43F6899F805689978056828 :1002B00088D0EFA43F6899F805689978056899F89F
:1002C00099F804689978047AA9FF9D80C06860DA7B :1002C00004689978047AA9FF9D80C06860DA5AA60C
:1002D0005AA63FA43EA5469DF805A5479D78059ED4 :1002D0003FA43EA5469DF805A5479D78059EF804D8
:1002E000F8049E78049845432970F005A9029DF80A :1002E0009E78049845432970F005A9029DF80424DE
:1002F0000424431007BDF8041A9DF804A91039839B :1002F000431007BDF8041A9DF804A9103983C0D033
:10030000C0D011A0091EF8053E78053EF8043E78DD :1003000011A0091EF8053E78053EF8043E780488E1
:100310000488D0F17AFA605AA43F9D80C0B978046D :10031000D0F17AFA605AA43F9D80C0B978049D80DC
:100320009D80C0B9F8049D80C0B978059D80C0B992 :10032000C0B9F8049D80C0B978059D80C0B9F805B2
:10033000F8059D80C0A9FF9D80C02081C97A6048D2 :100330009D80C0A9FF9D80C02081C97A6048A940E6
:10034000A9403C83C018F00138686048A9203C836C :100340003C83C018F00138686048A9203C83C0187D
:10035000C018F001386860A542F00CC901F00BC963 :10035000F001386860A542F00CC901F00BC902F049
:1003600002F00AA90138604C70CA4C7ECA4CE7CA38 :100360000AA90138604C6ECA4C7CCA4CE5CAA90087
:10037000A500204BCA9002A92BA2FFA0FF6020CFAE :100370002049CA9002A92BA2FFA0FF6020CDC9BDD1
:10038000C9BD83C029FE9D83C0A9512017CAC900D9 :1003800083C029FE9D83C0A9512015CAC900D05041
:10039000D050A9FF9D80C0BD80C0C9FED0F4BD81F2 :10039000A9FF9D80C0BD80C0C9FED0F4BD81C00949
:1003A000C009109D81C0A9FF9D80C0A000BD80C074 :1003A000109D81C0A9FF9D80C0A000BD80C0914468
:1003B0009144C8D0F8E645BD80C09144C8D0F8C685 :1003B000C8D0F8E645BD80C09144C8D0F8C645BD58
:1003C00045BD80C0BD80C0BD80C0BD81C029EF9D3E :1003C00080C0BD80C0BD80C0BD81C029EF9D81C0FF
:1003D00081C018A9000848BD83C009019D83C06879 :1003D00018A9000848BD83C009019D83C068286032
:1003E000286038A92780EE204BCAB06720CFC9BD4E :1003E00038A92780EE2049CAB06720CDC9BD83C097
:1003F00083C029FE9D83C0A9582017CAC900D04ECA :1003F00029FE9D83C0A9582015CAC900D04EA9FF67
:10040000A9FF9D80C0A9FE9D80C0A000B1449D8031 :100400009D80C0A9FE9D80C0A000B1449D80C0C851
:10041000C0C8D0F8E645B1449D80C0C8D0F8C645F4 :10041000D0F8E645B1449D80C0C8D0F8C645A9FFD4
:10042000A9FF9D80C09D80C09D80C0BD80C0291F48 :100420009D80C09D80C09D80C0BD80C0291FC90522
:10043000C905D01A18A5000848A9FF9D80C0BD8035 :10043000D01A18A5000848A9FF9D80C0BD80C0F053
:10044000C0F0F6BD83C009019D83C068286038A94B :10044000F6BD83C009019D83C068286038A9278054
:100450002780E438A92B80DFA004B9480048881021 :10045000E438A92B80DFA004B94800488810F9BA15
:10046000F9BABD0D0185481869039D0D01BD0E0146 :10046000BD0D0185481869039D0D01BD0E0185492B
:10047000854969009D0E01A001B1488542C8B14877 :1004700069009D0E01A001B1488542C8B148AAC8D3
:10048000AAC8B14885498648A901A642E00AB01A1F :10048000B14885498648A901A642E00AB01AB24897
:10049000B248DDEECCD027A001B148A43F99780640 :10049000DDECCCD027A001B148A43F9978068A0AA8
:1004A0008A0AAA20C2CBB002A900AAA00068994873 :1004A000AA20C0CBB002A900AAA00068994800C841
:1004B00000C8C00590F78AA002A200C90160A90483 :1004B000C00590F78AA002A200C90160A90480E8E3
:1004C00080E87CF8CC2053CCA43FB97806D018A59E :1004C0007CF6CC2051CCA43FB97806D018A54CF0CE
:1004D0004CF004A9213860A904924AA007B90BCDB9 :1004D00004A9213860A904924AA007B909CD914A1C
:1004E000914A88D0F81860A64CF016CAF008CACA1B :1004E00088D0F81860A64CF016CAF008CACAF00FF7
:1004F000F00FA9213860A901924AA8A900914A18D1 :1004F000A9213860A901924AA8A900914A1860A9C7
:1005000060A9E8A63E203FCAB0020910204BCA905D :10050000E8A63E203DCAB00209102049CA9002095F
:10051000020904924AA001A9FF914AC8914AC8A9B8 :1005100004924AA001A9FF914AC8914AC8A9009132
:1005200000914AA54CF00CA004B90FCD914AC8C067 :100520004AA54CF00CA004B90DCD914AC8C0199051
:100530001990F618602053CCA64CF00FCAF00CCAE4 :10053000F618602051CCA64CF00FCAF00CCAF00699
:10054000F006CAF00ACAF003A92138A9001860A968 :10054000CAF00ACAF003A92138A9001860A91F3807
:100550001F3860A002B148854AC8B148854BC8B170 :1005500060A002B148854AC8B148854BC8B14885FA
:1005600048854C60207ECC900160A63EA43F4C7E26 :100560004C60207CCC900160A63EA43F4C7CCA200D
:10057000CA207ECC900160A63EA43F4CE7CAB97861 :100570007CCC900160A63EA43F4CE5CAB97806F059
:1005800006F044C901F00EC902F00EC903F010C90B :1005800044C901F00EC902F00EC903F010C904F00D
:1005900004F0118032A53E8010A53E0980800AA596 :10059000118032A53E8010A53E0980800AA53E3A12
:1005A0003E3A8005A53E3A09808543A002B14885C0 :1005A0008005A53E3A09808543A002B1488544C82C
:1005B00044C8B1488545C8B1488546C8B148854753 :1005B000B1488545C8B1488546C8B1488547C8B1E6
:1005C000C8B148D0061860A9113860A92D3860B9A3 :1005C00048D0061860A9113860A92D3860B978069E
:1005D0007806F004A9001860A9113860B9780618E7 :1005D000F004A9001860A9113860B9780618F00372
:1005E000F003A9113860A9013860A9273860030316 :1005E000A9113860A9013860A92738600303030105
:1005F0000301030101010404C5CB64CC71CCCFCC51 :1005F000030101010404C3CB62CC6FCCCDCC33CC5E
:1006000035CCDCCCE6CCE6CCEACCEACC4000000B26 :10060000DACCE4CCE4CCE8CCE8CC4000000B12001F
:10061000120000104150504C455D5B534420202097 :1006100000104150504C455D5B5344202020202069
:100620002020202002000B1200000000000000002B :10062000202002000B12000000000000000000006B
:1006300000000000000000000000000000000000BA :1006300000000000000000000000000000000000BA
:1006400000000000000000000000000000000000AA :1006400000000000000000000000000000000000AA
:10065000000000000000000000000000000000009A :10065000000000000000000000000000000000009A

1
src/AppleIISd.s
View File

@ -54,7 +54,6 @@
LDX #$00 LDX #$00
LDX #$03 LDX #$03
LDX #$00 ; is Smartport controller LDX #$00 ; is Smartport controller
; LDX #$3C
SEI ; find slot SEI ; find slot
LDA #$60 ; opcode for RTS LDA #$60 ; opcode for RTS

3
src/Helper.s
View File

@ -55,8 +55,7 @@ GETR1: LDA #DUMMY
@WAIT: BIT CTRL,X @WAIT: BIT CTRL,X
BPL @WAIT BPL @WAIT
LDA DATA,X ; get response LDA DATA,X ; get response
BIT #$80 BMI GETR1 ; wait for MSB=0
BNE GETR1 ; wait for MSB=0
PHA PHA
LDA #DUMMY LDA #DUMMY
STA DATA,X ; send another dummy STA DATA,X ; send another dummy

2
src/ProDOS.s
View File

@ -73,7 +73,7 @@ PRODOS: LDA DCMD ; get command
; ;
;******************************* ;*******************************
STATUS: LDA NO_ERR ; no error STATUS: LDA #NO_ERR ; Thanks for this one, Antoine!
JSR WRPROT JSR WRPROT
BCC @DONE BCC @DONE
LDA #ERR_NOWRITE; card write protected LDA #ERR_NOWRITE; card write protected