Technical information

Micro-KIM Users Manual
©
)

CARD # LOC CODE CARD
989 1EAC 8D 42 17 STA SBD
990 1EAF 20 D4 1E JSR DELAY
991 1EB2 A2 08 LDX #$08
992 1EB4 AD 42 17 OUT1 LDA SBD DATA BIT
993 1EB7 29 FE AND #$FE
994 1EB9 46 FE LSR CHAR
995 1EBB 69 00 ADC #$00
996 1EBD 8D 42 17 STA SBD
997 1EC0 20 D4 1E JSR DELAY
998 1EC3 CA DEX
999 1EC4 D0 EE BNE OUT1
1000 1EC6 AD 42 17 LDA SBD STOP BIT
1001 1EC9 09 01 ORA #$01
1002 1ECB 8D 42 17 STA SBD
1003 1ECE 20 D4 1E JSR DELAY STOP BIT
1004 1ED1 A6 FD LDX TMPX RESTORE INDEX
1005 1ED3 60 RTS
1006 ;
1007 ; DELAY 1 BIT TIME
1008 ; AS DETERMEND BY DETCPS
1009 ;
1010 1ED4 AD F3 17 DELAY LDA CNTH30 THIS LOOP SIMULATES
1011 1ED7 8D F4 17 STA TIMH DETCPS SECTION AND WILL DELAY
1012 1EDA AD F2 17 LDA CNTL30 1 BIT TIME
1013 1EDD 38 DE2 SEC
1014 1EDE E9 01 DE4 SBC #$01
1015 1EE0 B0 03 BCS DE3
1016 1EE2 CE F4 17 DEC TIMH
1017 1EE5 AC F4 17 DE3 LDY TIMH
1018 1EE8 10 F3 BPL DE2
1019 1EEA 60 RTS
1020 ;
1021 ; DELAY 1/2 BIT TIME
1022 1EEB AD F3 17 DEHALF LDA CNTH30 DOUBLE RIGHT SHIFT OF DELAY
1023 1EEE 8D F4 17 STA TIMH CONSTANT FOR A DIV BY 2
1024 1EF1 AD F2 17 LDA CNTL30
1025 1EF4 4A LSR A
1026 1EF5 4E F4 17 LSR TIMH
1027 1EF8 90 E3 BCC DE2
1028 1EFA 09 80 ORA #$80
1029 1EFC B0 E0 BCS DE4
1030 ;
1031 ; SUB TO DETERMINE IF KEY IS
1032 ; DEPRESSED OR CONDITION OF SSW
1033 ; KEY NOT DEP OR TTY MODE A=0
1034 ; KEY DEP OR KB MODE A NOT ZERO
1035 ;
1036 ;
1037 1EFE A0 03 AK LDY #$03 3 ROWS
1038 1F00 A2 01 LDX #$01 DIGIT 0
1039 ;
1040 1F02 A9 FF ONEKEY LDA #$FF
1041 1F04 8E 42 17 AK1 STX SBD OUTPUT DIGIT
1042 1F07 E8 INX GET NEXT DIGIT
1043 1F08 E8 INX
1044 1F09 2D 40 17 AND SAD INPUT SEGMENTS
1045 1F0C 88 DEY
1046 1F0D D0 F5 BNE AK1