Nasty bug in Status call fixed

AppleIISd.hex

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

src/AppleIISd.s

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

src/Helper.s

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

src/ProDOS.s

@@ -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
             BCC   @DONE
             LDA   #ERR_NOWRITE; card write protected