;›                      ;FLIB›                      ;›                      ;Function library›                      ;for SOFTKEYS›                      ;›                      ;Equates›                      ;›                      DOSINI = $0C›                      MEMLO  = $02E7›                      ENDWARM = $0470›                      DISKIOEND = $2934›                      GLBABS = $02E0›                      KRPDEL = $02D9›                      KEYREP = $02DA›                      NOCLIK = $02DB›                      SHORTD = $14›                      FSTRTE = $03›                      LONGD  = $30›                      SLORTE = $06›                      NOKEY  = $FF›                      CH     = $02FC›                      VERIFY = $57›                      NOVER  = $50›                      DVERIF = $0779›                      COLDSV = $E477›                      RTCLOK = $12›                      KCTRLX = $96›                      J0     = $0416›                      J1     = $041D›                      J2     = $0424›                      J3     = $042B›                      J4     = $0432›                      J5     = $0439›                      J6     = $0440›                      J7     = $0447›                      J8     = $044E›                      J9     = $0455›                      ;›                          *= variable›                      ;›FLIB FLIB FLIB        ;›                      ;Toggle key click›  3    2              ;›                      ;›0600 1CFC 2935 ADDB02 CLICK LDA NOCLIK›0603 1CFF 2938 4901       EOR #$01›0605 1D01 293A 8DDB02     STA NOCLIK›0608 1D04 293D A9FF   EXXIT LDA #NOKEY›060A 1D06 293F 8DFC02     STA CH›060D 1D09 2942 68         PLA ›060E 1D0A 2943 40         RTI ›                      ;›                      ;Toggle key›                      ;repeat delay›                      ;and rate›                      ;from normal›                      ;to fast or›                      ;back.›                      ;›0600 1D0B 2944 A930   REPEAT LDA #LONGD›0611 1D0D 2946 CDD902     CMP KRPDEL›0614 1D10 2949 F00A       BEQ FAST›0616 1D12 294B 8DD902 SLOW STA KRPDEL›0619 1D15 294E A906       LDA #SLORTE›061B 1D17 2950 8DDA02     STA KEYREP›061E 1D1A 2953 D0E8       BNE EXXIT›0620 1D1C 2955 A914   FAST LDA #SHORTD›0622 1D1E 2957 8DD902     STA KRPDEL›0625 1D21 295A A903       LDA #FSTRTE›0627 1D23 295C 8DDA02     STA KEYREP›062A 1D26 295F D0DC       BNE EXXIT›                      ;›                      ;Toggle disk›                      ;write-verify.›                      ;›062C 1D28 2961 AE7907 DISK LDX DVERIF›062F 1D2B 2964 A957       LDA #VERIFY›0631 1D2D 2966 8D7907     STA DVERIF›0634 1D30 2969 E057       CPX #VERIFY›0636 1D32 296B D0D0       BNE EXXIT›0638 1D34 296D A950       LDA #NOVER›063A 1D36 296F 8D7907     STA DVERIF›063D 1D39 2972 D0C9       BNE EXXIT›                      ;›                      ;Cold start›                      ;›                      ;Initialization›                      ;for this routine›                      ;changes SOFTKEYS›                      ;to look for›                      ;[CONTROL][X]›                      ;›                      ;instead of [0].›                      ;›063F 1D3B 2974 A900   COLDST LDA #0›0641 1D3D 2976 8514       STA RTCLOK+2›0643 1D3F 2978 A514   DELAY LDA RTCLOK+2›0645 1D41 297A C930       CMP #$30›0647 1D43 297C D0FA       BNE DELAY›0649 1D45 297E 4C77E4     JMP COLDSV›064C 1D48 2981        ENDLIB›                      ;›                      ;Function library›                      ;initialization›                      ;›064C 1D48 2981            *=  J1›041D 041D 041D 4Cxxxx     JMP CLICK›                      ;›0420 0420 0420            *=  J2›0424 0424 0424 4Cxxxx     JMP REPEAT›                      ;›0427 0427 0427            *=  J3›042B 042B 042B 4Cxxxx     JMP DISK›                      ;›042E 042E 042E            *=  J0-3›0413 0413 0413 96         .BYTE KCTRLX›0414 0414 0414            *=  J0›0416 0416 0416 4Cxxxx     JMP COLDST›                      ;›FLIB3 not             ;Protect from›protected             ;system›                      ;›     0419 0419            *=  ENDWARM›     0470 0470 A2xx       LDX # <ENDLIB›     0472 0472 A0xx       LDY # >ENDLIB›     0474 0474 8EE702     STX MEMLO›     0477 0477 8CE802     STY MEMLO+1›     047A 047A 60         RTS ›                      ;›                      ;Initialization›                      ;tailer›                      ;›     047B 047B            *=  GLBABS+2›     02E2 02E2 7004       .WORD ENDWARM›                      ;››