Technical information
Micro-KIM Users Manual
©
CARD # LOC CODE CARD
872 1DFE 4C 4F 1C STV JMP START
873 1E01 4C 42 1D DUMPV JMP DUMP
874 1E04 4C E7 1C LOADV JMP LOAD
875 ;
876 1E07 38 FEED SEC
877 1E08 A5 FA LDA POINTL DEC DOUBLE BYTE
878 1E0A E9 01 SBC #$01 AT POINTL AND POINTH
879 1E0C 85 FA STA POINTL
880 1E0E B0 02 BCS FEED1
881 1E10 C6 FB DEC POINTH
882 1E12 4C AC 1D FEED1 JMP SHOW
883 ;
884 1E15 A0 00 MODIFY LDY #$00 GET CONTENTS OF INPUT BUFF
885 1E17 A5 F8 LDA INL INL AND STORE IN LOC
886 1E19 91 FA STA (POINTL),Y SPECIFIED BY POINT
887 1E1B 4C C2 1D JMP RTRN
888 ;
889 ; END OF MAIN LINE
891 ; SUBROUTINES FOLLOW
892 ;
893 ;
894 ;
895 ; SUB TO PRINT POINTL,POINTH
896 ;
897 1E1E A5 FB PRTPNT LDA POINTH
898 1E20 20 3B 1E JSR PRTBYT
899 1E23 20 91 1F JSR CHK
900 1E26 A5 FA LDA POINTL
901 1E28 20 3B 1E JSR PRTBYT
902 1E2B 20 91 1F JSR CHK
903 1E2E 60 RTS
904 ;
905 ; PRINT STRING OF ASCII CHARS FROM
906 ; TOP+X TO TOP
907 ;
908 1E2F A2 07 CRLF LDX #$07
909 1E31 BD D5 1F PRTST LDA TOP,X
910 1E34 20 A0 1E JSR OUTCH
911 1E37 CA DEX
912 1E38 10 F7 BPL PRTST STOP ON INDEX ZERO
913 1E3A 60 RTS
914 ;
915 ; PRINT 1 HEX BYTE AS TWO ASCII CHAR'S
916 ;
917 1E3B 85 FC PRTBYT STA TEMP
918 1E3D 4A LSR A SHIFT CHAR RIGHT 4 BITS
919 1E3E 4A LSR A
920 1E3F 4A LSR A
921 1E40 4A LSR A
922 1E41 20 4C 1E JSR HEXTA CONVERT TO HEX AND PRINT
923 1E44 A5 FC LDA TEMP GET OTHER HALF
924 1E46 20 4C 1E JSR HEXTA CONVERT TO HEX AND PRINT
925 1E49 A5 FC LDA TEMP RESTORE BYTE IN A AND RETURN
926 1E4B 60 RTS
927 ;
928 1E4C 29 0F HEXTA AND #$0F MASK HI 4 BITS
929 1E4E C9 0A CMP #$0A
930 1E50 18 CLC