Nasty bug in Status call fixed

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

Binary file not shown.

View File

@ -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

View File

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

View File

@ -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

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