Technical information

Micro-KIM Users Manual
©


CARD # LOC CODE CARD
1047 ;
1048 1F0F A0 07 LDY #$07
1049 1F11 8C 42 17 STY SBD
1050 ;
1051 1F14 09 80 ORA #$80
1052 1F16 49 FF EOR #$FF
1053 1F18 60 RTS
1054 ;
1055 ; SUB OUTPUT TO 7-SEGMENT DISPLAY
1056 ;
1057 1F19 A0 00 SCAND LDY #$00 GET DATA SPECIFIED
1058 1F1B B1 FA LDA (POINTL),Y BY POINT
1059 1F1D 85 F9 STA INH SET UP DISPLAY BUFFER
1060 1F1F A9 7F SCANDS LDA #$7F CHANGE SEG
1061 1F21 8D 41 17 STA PADD TO OUTPUT
1062 ;
1063 1F24 A2 09 LDX #$09 INIT DIGIT NUMBER
1064 1F26 A0 03 LDY #$03 OUTPUT 3 BYTES
1065 ;
1066 1F28 B9 F8 00 SCAND1 LDA INL,Y GET BYTE
1067 1F2B 4A LSR A GET MSD
1068 1F2C 4A LSR A
1069 1F2D 4A LSR A
1070 1F2E 4A LSR A
1071 1F2F 20 48 1F JSR CONVD OUTPUT CHAR
1072 1F32 B9 F8 00 LDA INL,Y GET BYTE AGAIN
1073 1F35 29 0F AND #$0F GET LSD
1074 1F37 20 48 1F JSR CONVD OUTPUT CHAR
1075 1F3A 88 DEY SET UP FOR NXT BYTE
1076 1F3B D0 EB BNE SCAND1
1077 1F3D 8E 42 17 STX SBD ALL DIGITS OFF
1078 1F40 A9 00 LDA #$00 CHANGE SEGMENT
1079 1F42 8D 41 17 STA PADD TO INPUTS
1080 1F45 4C FE 1E JMP AK GET ANY KEY
1081 ;
1082 ; CONVERT AND DISPLAY HEX
1083 ; USED BY SCAND ONLY
1084 ;
1085 1F48 84 FC CONVD STY TEMP SAVE Y
1086 1F4A A8 TAY USE CHAR AS INDEX
1087 1F4B B9 E7 1F LDA TABLE,Y LOOKUP CONVERSION
1088 1F4E A0 00 LDY #$00 TURN OFF SEGMENTS
1089 1F50 8C 40 17 STY SAD
1090 1F53 8E 42 17 STX SBD OUTPUT DIGIT ENABLE
1091 1F56 8D 40 17 STA SAD OUT PUT SEGMENTS
1092 ;
1093 1F59 A0 7F LDY #$7F DELAY 500 CYCLES APPROX.
1094 1F5B 88 CONVD1 DEY
1095 1F5C D0 FD BNE CONVD1
1096 ;
1097 1F5E E8 INX GET NEXT DIGIT NUMBER
1098 1F5F E8 INX ADD 2
1099 1F60 A4 FC LDY TEMP RESTORE Y
1100 1F62 60 RTS
1101 ;
1102 ; SUB TO INCREMENT POINT
1103 ;
1104 1F63 E6 FA INCPT INC POINTL