Technical information

Micro-KIM Users Manual
©
!

CARD # LOC CODE CARD
1105 1F65 D0 02 BNE INCPT2
1106 1F67 E6 FB INC POINTH
1107 1F69 60 INCPT2 RTS
1108 ;
1109 ; GET KEY FROM KEY BOARD
1110 ; RETURN WITH A=KEY VALUE
1111 ; GT. 15 THEN ILLEGAL OR NO KEY
1112 ;
1113 ;
1114 1F6A A2 21 GETKEY LDX #$21 START AT DIGIT 0
1115 1F6C A0 01 GETKE5 LDY #$01 GET 1 ROW
1116 1F6E 20 02 1F JSR ONEKEY
1117 1F71 D0 07 BNE KEYIN A=0 NO KEY
1118 1F73 E0 27 CPX #$27 TEST FOR DIGIT 2
1119 1F75 D0 F5 BNE GETKE5
1120 1F77 A9 15 LDA #$15 15=NOKEY
1121 1F79 60 RTS
1122 1F7A A0 FF KEYIN LDY #$FF
1123 1F7C 0A KEYIN1 ASL A SHIFT LEFT
1124 1F7D B0 03 BCS KEYIN2 UNTIL Y=KEY NUM
1125 1F7F C8 INY
1126 1F80 10 FA BPL KEYIN1
1127 1F82 8A KEYIN2 TXA
1128 1F83 29 0F AND #$0F MASK MSD
1129 1F85 4A LSR A DIVIDE BY 2
1130 1F86 AA TAX
1131 1F87 98 TYA
1132 1F88 10 03 BPL KEYIN4
1133 1F8A 18 KEYIN3 CLC
1134 1F8B 69 07 ADC #$07 MULT (X-1) TIMES A
1135 1F8D CA KEYIN4 DEX
1136 1F8E D0 FA BNE KEYIN3
1137 1F90 60 RTS
1138 ;
1139 ; SUB TO COMPUTE CHECK SUM
1140 ;
1141 1F91 18 CHK CLC
1142 1F92 65 F7 ADC CHKSUM
1143 1F94 85 F7 STA CHKSUM
1144 1F96 A5 F6 LDA CHKHI
1145 1F98 69 00 ADC #$00
1146 1F9A 85 F6 STA CHKHI
1147 1F9C 60 RTS
1148 ;
1149 ; GET 2 HEX CHAR'S AND PACK
1150 ; INTO INL AND INH
1151 ; X PRESERVED Y RETURNED = 0
1152 ; NON HEX CHAR WILL BE LOADED AS NEAREST HEX EQU
1153 ;
1154 1F9D 20 5A 1E GETBYT JSR GETCH
1155 1FA0 20 AC 1F JSR PACK
1156 1FA3 20 5A 1E JSR GETCH
1157 1FA6 20 AC 1F JSR PACK
1158 1FA9 A5 F8 LDA INL
1159 1FAB 60 RTS
1160 ;
1161 ; SHIFT CHAR IN A INTO
1162 ; INL AND INH