Command execution from hex keyboard
0654 1C77 ; MAIN ROTINE FOR KEY BOARD 0655 1C77 ; AND DISPLAY 0656 1C77 ; 0657 1C77 20 19 1F TTYKB JSR SCAND ; IF A=0 NO KEY 0658 1C7A D0 D3 BNE START 0659 1C7C A9 01 TTYKB1 LDA #$01 0660 1C7E 2C 40 17 BIT SAD 0661 1C81 F0 CC BEQ START 0662 1C83 20 19 1F JSR SCAND 0663 1C86 F0 F4 BEQ TTYKB1 0664 1C88 20 19 1F JSR SCAND 0665 1C8B F0 EF BEQ TTYKB1 0666 1C8D ; 0667 1C8D 20 6A 1F JSR GETKEY 0668 1C90 C9 15 CMP #$15 0669 1C92 10 BB BPL START 0670 1C94 C9 14 CMP #$14 0671 1C96 F0 44 BEQ PCCMD ; DISPLAY PC 0672 1C98 C9 10 CMP #$10 ; ADDR MODE=1 0673 1C9A F0 2C BEQ ADDRM 0674 1C9C C9 11 CMP #$11 ; DATA MODE=1 0675 1C9E F0 2C BEQ DATAM 0676 1CA0 C9 12 CMP #$12 ; STEP 0677 1CA2 F0 2F BEQ STEP 0678 1CA4 C9 13 CMP #$13 ; RUN 0679 1CA6 F0 31 BEQ GOV 0680 1CA8 0A ASL A ; SHIFT CHAR INTO HIGH 0681 1CA9 0A ASL A ; ORDER NIBBLE 0682 1CAA 0A ASL A 0683 1CAB 0A ASL A 0684 1CAC 85 FC STA TEMP ; STORE IN TEMP 0685 1CAE A2 04 LDX #$04 0686 1CB0 A4 FF DATA1 LDY MODE ; TEST MODE 1=ADDR 0687 1CB2 D0 0A BNE ADDR ; MODE=0 DATA 0688 1CB4 B1 FA LDA (POINTL),Y ; GET DATA 0689 1CB6 06 FC ASL TEMP ; SHIFT CHAR 0690 1CB8 2A ROL A ; SHIFT DATA 0691 1CB9 91 FA STA (POINTL),Y ; STORE OUT DATA 0692 1CBB 4C C3 1C JMP DATA2 0693 1CBE ; 0694 1CBE 0A ADDR ASL A ; SHIFT CHAR 0695 1CBF 26 FA ROL POINTL ; SHIFT ADDR 0696 1CC1 26 FB ROL POINTH ; SHIFT ADDR HI 0697 1CC3 CA DATA2 DEX 0698 1CC4 D0 EA BNE DATA1 ; DO 4 TIMES 0699 1CC6 F0 08 BEQ DATAM2 ; EXIT HERE 0700 1CC8 ; 0701 1CC8 A9 01 ADDRM LDA #$01 0702 1CCA D0 02 BNE DATAM1 0703 1CCC ; 0704 1CCC A9 00 DATAM LDA #$00 0705 1CCE 85 FF DATAM1 STA MODE 0706 1CD0 4C 4F 1C DATAM2 JMP START 0707 1CD3 ; 0708 1CD3 20 63 1F STEP JSR INCPT 0709 1CD6 4C 4F 1C JMP START 0710 1CD9 ; 0711 1CD9 4C C8 1D GOV JMP GOEXEC 0712 1CDC ; 0713 1CDC ; 0714 1CDC ; DISPLAY PC BY MOVING 0715 1CDC ; PC TO POINT 0716 1CDC ; 0717 1CDC A5 EF PCCMD LDA PCL 0718 1CDE 85 FA STA POINTL 0719 1CE0 A5 F0 LDA PCH 0720 1CE2 85 FB STA POINTH 0721 1CE4 4C 4F 1C JMP START 0714 1CDC ; DISPLAY PC BY MOVING 0715 1CDC ; PC TO POINT 0716 1CDC ; 0717 1CDC A5 EF PCCMD LDA PCL 0718 1CDE 85 FA STA POINTL 0719 1CE0 A5 F0 LDA PCH 0720 1CE2 85 FB STA POINTH 0721 1CE4 4C 4F 1C JMP START