Proof KEYRUPT_UPRUPT

* Fix typo UPCK -> UPOK. Row 86.
* Ref. https://www.ibiblio.org/apollo/ScansForConversion/Luminary099/1339.jpg
pull/823/head
carolili 2021-10-01 23:29:23 +02:00
parent 343e5bcde5
commit 4722fb6484
1 changed files with 1 additions and 1 deletions

View File

@ -83,7 +83,7 @@ UPRPT1 CAF LOW5 # TEST FOR TRIPLE CHAR REDUNDANCY
COM
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)
EXTEND # IF CODE DOES NOT = 'ERROR RESET', ACCEPT
BZF CLUPLOCK # CODE ONLY IF UPLOCKFL IS CLEAR (=0).