Proof KEYRUPT_UPRUPT

* Fix typo UPCK -> UPOK. Row 86.
* Ref. https://www.ibiblio.org/apollo/ScansForConversion/Luminary099/1339.jpg
This commit is contained in:
carolili 2021-10-01 23:29:23 +02:00
parent 343e5bcde5
commit 4722fb6484

View file

@ -83,7 +83,7 @@ UPRPT1 CAF LOW5 # TEST FOR TRIPLE CHAR REDUNDANCY
COM COM
TC UPTEST TC UPTEST
UPCK CS ELRCODE # CODE IS GOOD. IF CODE = 'ERROR RESET', UPOK CS ELRCODE # CODE IS GOOD. IF CODE = 'ERROR RESET',
AD KEYTEMP1 # CLEAR UPLOCKFL(SET BIT4 OF FLAGWRD7 = 0) AD KEYTEMP1 # CLEAR UPLOCKFL(SET BIT4 OF FLAGWRD7 = 0)
EXTEND # IF CODE DOES NOT = 'ERROR RESET', ACCEPT EXTEND # IF CODE DOES NOT = 'ERROR RESET', ACCEPT
BZF CLUPLOCK # CODE ONLY IF UPLOCKFL IS CLEAR (=0). BZF CLUPLOCK # CODE ONLY IF UPLOCKFL IS CLEAR (=0).