home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / assemblr / library / sampler0 / pfk.asm < prev    next >
Encoding:
Assembly Source File  |  1980-01-01  |  7.0 KB  |  136 lines
  1.        PAGE ,132
  2.        TITLE PF keys redefinition program
  3.        NAME  PFKEYS
  4. ;
  5. ;Author : Rick Mallinak
  6. ;         
  7. ;Date   : Version 1.0  March, 1982
  8. ;                 1.1  April, 1982
  9. ;                 2.0  May,   1983
  10. ;          2.1  May,   1983 - JAC * 40 Keys
  11. ;                 2.3  Nov,   1983 - Hard disk /Subdirectory support
  12. ;
  13. PFK      SEGMENT PUBLIC 'CODE'
  14.          ASSUME  CS:PFK,DS:PFK,ES:PFK,SS:PFK
  15.          ORG     5CH
  16. FCB      DB      1 DUP (?)              ;Default FCB (contains command arg)   
  17.          ORG     100H                   ;PF keys redefinition program
  18. MAINPGM  PROC    NEAR
  19.          MOV     SI,OFFSET FCB          ;Point to FCB in Program Segment Prefix
  20.          CLD
  21.          CMP     BYTE PTR [SI+1],'H'    ;Check for 'help' request
  22.          JNE     SETPFK
  23.          MOV     DX,OFFSET HELP         ;Point to 'help' screen
  24.          MOV     AH,9                   ;Set Register AH to DOS Print String Function
  25.          INT     21H                    ;DOS Function Call
  26.          RET
  27. SETPFK:  MOV     DX,OFFSET KEYS         ;Point Register DX to Key definition
  28.          MOV     AH,9                   ;Set Register AH to DOS Print String Function
  29.          INT     21H                    ;DOS Function Call
  30.          RET
  31. MAINPGM  ENDP      
  32. HELP     DB   40 DUP(205)
  33.          DB   203
  34.          DB   38 DUP(205)
  35.          DB   0DH,0AH
  36.          DB   'F-01 : Copy next character              ',186
  37.          DB   ' F-21 : CLS                  Ctrl F-01',0DH,0AH
  38.          DB   'F-02 : Copy all char. up to spec. char. ',186
  39.          DB   ' F-22 : BEEP                 Ctrl F-02',0DH,0AH
  40.          DB   'F-03 : Copy all remaining characters    ',186
  41.          DB   ' F-23 : PM                   Ctrl F-03',0DH,0AH
  42.          DB   'F-04 : Skip over all char to spec. char ',186
  43.          DB   ' F-24 : BDS MX BASICA        Ctrl F-04',0DH,0AH
  44.          DB   'F-05 : Accept line for cont. editing    ',186
  45.          DB   ' F-25 : MODE LPT1: 80,6      Ctrl F-05',0DH,0AH
  46.          DB   'F-06 : CTRL-Z (eof)                     ',186
  47.          DB   ' F-26 : MODE LPT1: 132,6     Ctrl F-06',0DH,0AH
  48.          DB   'F-07 : SD E:                            ',186
  49.          DB   ' F-27 : TREE /F>prn          Ctrl F-07',0DH,0AH
  50.          DB   'F-08 : SPFPC D:\                        ',186
  51.          DB   ' F-28 : PATH                 Ctrl F-08',0DH,0AH
  52.          DB   'F-09 : spfpc D:\                        ',186
  53.          DB   ' F-29 : COPY A:*.* B:*.*     Ctrl F-09',0DH,0AH       
  54.          DB   'F-10 : PM__                             ',186
  55.          DB   ' F-30 : COPY B:*.* A:*.*     Ctrl F-10',0DH,0AH
  56.          DB   40 DUP(196)
  57.          DB   215
  58.          DB   38 DUP(196)
  59.          DB   0DH,0AH
  60.          DB   'F-11 : PARK                  Shift F-01 ',186
  61.          DB   ' F-31 : CD \UT                Alt F-01',0DH,0AH
  62.          DB   'F-12 : FULIST /Q/SN/M678     Shift F-02 ',186
  63.          DB   ' F-32 : CD \TP                Alt F-02',0DH,0AH
  64.          DB   'F-13 : VERIFY ON             Shift F-03 ',186
  65.          DB   ' F-33 : CD \WP                Alt F-03',0DH,0AH
  66.          DB   'F-14 : VERIFY OFF            Shift F-04 ',186
  67.          DB   ' F-34 : CD  \                 Alt F-04',0DH,0AH
  68.          DB   'F-15 : CD \asm               Shift F-05 ',186
  69.          DB   ' F-35 : E:                    Alt F-05',0DH,0AH
  70.          DB   'F-16 : CD \bas               Shift F-06 ',186
  71.          DB   ' F-36 : F:                    Alt F-06',0DH,0AH
  72.          DB   'F-17 : CD \UTEXE             Shift F-07 ',186
  73.          DB   ' F-37 : C:                    Alt F-07',0DH,0AH
  74.          DB   'F-18 : CD \UTCOM             Shift F-08 ',186
  75.          DB   ' F-38 : D:                    Alt F-08',0DH,0AH
  76.          DB   'F-19 : CD \db                Shift F-09 ',186
  77.          DB   ' F-39 : A:                    Alt F-09',0DH,0AH
  78.          DB   'F-20 : CD \rbbs              Shift F-10 ',186
  79.          DB   ' F-40 : B:                    Alt F-10',0DH,0AH
  80.          DB   40 DUP(205)
  81.          DB   202
  82.          DB   38 DUP(205)
  83.          DB   0DH,0AH
  84.          DB   '$'
  85. KEYS     db   27,'[0;131;"copy con: lpt1:";13;12;13;26;13p' ;page 
  86. ; Shift keys
  87.          DB   27,'[0;84;"PARK";13p'               ;Shift-PF-01
  88.          DB   27,'[0;85;"FULIST /Q/SN/M678";13p'  ;Shift-PF-02
  89.          DB   27,'[0;86;"VERIFY ON";13p'          ;Shift-PF-03        
  90.          DB   27,'[0;87;"VERIFY OFF";13p'         ;Shift-PF-04
  91.          DB   27,'[0;88;"CD \asm  ";13p'          ;Shift-PF-05
  92.          DB   27,'[0;89;"CD \bas  ";13p'          ;Shift-PF-06
  93.          DB   27,'[0;90;"CD \UTEXE";13p'          ;Shift-PF-07        
  94.          DB   27,'[0;91;"CD \UTCOM";13p'          ;Shift-PF-08        
  95.          DB   27,'[0;92;"CD \db   ";13p'          ;Shift-PF-09        
  96.          DB   27,'[0;93;"CD \rbbs ";13p'          ;Shift-PF-10        
  97. ; CTRL keys
  98.          DB   27,'[0;94;"CLS";13p'                ;Ctrl-PF-01        
  99.          DB   27,'[0;95;"BEEP";13p'               ;Ctrl-PF-02        
  100.          DB   27,'[0;96;"PM  ";32p'               ;Ctrl-PF-03        
  101.          DB   27,'[0;97;"BDS MX BASICA ";13p'     ;Ctrl-PF-04        
  102.          DB   27,'[0;98;"MODE LPT1:  80,6";13p'   ;Ctrl-PF-05
  103.          DB   27,'[0;99;"MODE LPT1: 132,6";13p'   ;Ctrl-PF-06        
  104.          DB   27,'[0;100;"TREE /F>PRN";13p'       ;Ctrl-PF-07        
  105.          DB   27,'[0;101;"PATH  ";13p'            ;Ctrl-PF-08
  106.          DB   27,'[0;102;"COPY A:*.* B:*.";42p'   ;Ctrl-PF-09
  107.          DB   27,'[0;103;"COPY B:*.* A:*.";42p'   ;Ctrl-PF-10
  108. ; ALT keys
  109.          DB   27,'[0;104;"CD \UT";13p'            ;Alt-PF-01
  110.          DB   27,'[0;105;"CD \TP";13p'            ;Alt-PF-02
  111.          DB   27,'[0;106;"CD \WP";13p'            ;Alt-PF-03        
  112.          DB   27,'[0;107;"CD \";13p'              ;Alt-PF-04        
  113.          DB   27,'[0;108;"E:";13p'                ;Alt-PF-05        
  114.          DB   27,'[0;109;"F:";13p'                ;Alt-PF-06        
  115.          DB   27,'[0;110;"C:";13p'                ;Alt-PF-07        
  116.          DB   27,'[0;111;"D:";13p'                ;Alt-PF-08        
  117.          DB   27,'[0;112;"A:";13p'                ;Alt-PF-09        
  118.          DB   27,'[0;113;"B:";13p'                ;Alt-PF-10        
  119. ; MAIN keys
  120. ;        DB   27,'[0;104;"CD \UT";13p'            ; * -PF-01
  121. ;        DB   27,'[0;105;"CD \TP";13p'            ; * -PF-02
  122. ;        DB   27,'[0;106;"CD \WP";13p'            ; * -PF-03        
  123. ;        DB   27,'[0;107;"CD \";13p'              ; * -PF-04        
  124. ;        DB   27,'[0;108;"E:";13p'                ; * -PF-05        
  125. ;        DB   27,'[0;109;"F:";13p'                ; * -PF-06        
  126. ;   >>>> KEYS 1 - 6  LEFT UNDISTURBED <<<<<       ;
  127. ;                                                 
  128.          DB   27,'[0;65;"SD E:";13p'             ; * -PF-07        
  129.          DB   27,'[0;66;"SPFPC  D:\ ";13p'       ; * -PF-08        
  130.          DB   27,'[0;67;"SPFPC  D:\ ";13p'       ; * -PF-09        
  131.          DB   27,'[0;68;"PM ";20p'               ; * -PF-10        
  132.          DB   '$'
  133. KEYLEN   EQU  $-KEYS
  134. PFK      ENDS         
  135.      END  MAINPGM
  136.