home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / forum3.lzh / ASM / preset.a
Text File  |  1987-10-30  |  8KB  |  303 lines
  1.  
  2.                     nam   preset
  3.                     ttl   Funktionstasten_Vorbelegung
  4.  
  5. * Dieses Prgrm belegt einige Funktionstasten beim Booten mit einem String,
  6. * wenn dieses File beim Booten in startup steht. Dann wird die folgende
  7. * Vorbelegung erhalten:
  8. * Kann natⁿrlich aus CMDS zu jeder Zeit ausgefⁿhrt werden.
  9. *
  10. *   F1 :'dir '          F2:'umacs '                    F3:'work.a '
  11. *   F4 :'r68 '          F5:'l68 '                      F6:'-l=usr.l '
  12. *   F7 :'-o='           F8:'work.r '                   F9:'work'
  13. *   F10:'dsave -ieb128'
  14. *
  15. *   Ziffernblock oben:
  16. *   als F16, F17, F18 in /DEFS/keydef eingearbeitet
  17. *
  18. *   Prozent dick:'/d0'  Stern:'/d1'                    Prozent dⁿnn:'/r0'
  19. *   Ziffernblock Null:'CtrH' (Backspace)
  20. *
  21. *   Hauptfeld:
  22. *   LF:'Ctrx,CtrC' Aussprung aus umacs
  23. *
  24. *   Und nun auch noch die eckigen und geschweiften Klammern!
  25. *   Und etwas Nⁿtzliches fⁿr C!
  26. *
  27. *   z00:"main()"
  28. *   z7: "/* "          z8:" */"     z9:"<stdio.h>"  z-:"#include " 
  29. *   z4: eckig auf      z5: eckig zu z6:"Strich vorwΣrts+n"
  30. *   z1: geschweift auf z2: geschweift zu  z3:Strich vorwΣrts
  31. * 
  32. *   Gilt vorlΣufig fⁿr Operator und umacs mit 1Mbyte Speicher mit /r0=512k
  33. *   Von /d1/WRK werden das gerade zu bearbeitende File, das bei mir immer
  34. *   work.a hei▀t, sowie oskdefs.d und keydef mit dsave -ieb128 /r0 von
  35. *   /d1/WRK in die Ramdisk geladen. Nach Ende der Sitzung wird von /r0
  36. *   aus zurⁿckgeladen.(ⁿberholt: em z.B. statt umacs)  
  37. *   Fⁿr andere Strings auf den Tasten ist es nur erforderlich, die Strings
  38. *   zu Σndern und dann mit r68 preset.a -o=preset.r zu assemblieren und
  39. *   mit l68 preset.r -l=usr.l -o=preset zu linken. In /d0/cmds steht dann
  40. *   das geΣnderte preset.
  41. *   Ein paar Umstellungen sind notwendig, wenn die ben÷tigten Files auf an-
  42. *   deren Disketten gesucht werden mⁿssen.
  43.  
  44.                     use /r0/oskdefs.d    evt. anpassen!!
  45.                     use /r0/keydef       dito
  46.  
  47. Edition       equ  1                 
  48. Type_Lang   equ  (Prgrm<<8)+Objct      
  49. Attr_Rev    equ  (ReEnt<<8)+0          
  50.                                          
  51.             psect  work,Type_Lang,Attr_Rev,Edition,0,Entry
  52.  
  53. StdIn  equ   0                         
  54. StdOut equ   1                         
  55. StdErr equ   2                         
  56.  
  57.  
  58. Clr_String  dc.b   ClrScrnChar,HomeChar 
  59. Clr_Len     equ    *-Clr_String         
  60.  
  61. F1_String   dc.b    $1c,F1Key,"dir ",00     Hier kann geΣndert werden:"..."
  62. F1_Len      equ     *-F1_String
  63.  
  64. F2_String   dc.b    $1c,F2Key,"umacs ",00
  65. F2_Len      equ     *-F2_String
  66.  
  67. F3_String   dc.b    $1c,F3Key,"work.a ",00
  68. F3_Len      equ     *-F3_String
  69.  
  70. F4_String   dc.b    $1c,F4Key,"r68 ",00
  71. F4_Len      equ     *-F4_String
  72.  
  73. F5_String   dc.b    $1c,F5Key,"l68 ",00
  74. F5_Len      equ     *-F5_String
  75.  
  76. F6_String   dc.b    $1c,F6Key,"-l=usr.l ",00
  77. F6_Len      equ     *-F6_String
  78.  
  79. F7_String   dc.b    $1c,F7Key,"-o=",00
  80. F7_Len      equ     *-F7_String
  81.  
  82. F8_String   dc.b    $1c,F8Key,"work.r ",00
  83. F8_Len      equ     *-F8_String
  84.  
  85. F9_String   dc.b    $1c,F9Key,"dsave -ieb128k ",00
  86. F9_Len      equ     *-F9_String
  87.  
  88. F16_String  dc.b    $1c,143,"/d0",00   Ziffernblock oben weitergezΣhlt mit
  89. F16_Len     equ     *-F16_String      F16,F17 etc.
  90.  
  91. F17_String  dc.b    $1c,144,"/d1",00
  92. F17_Len     equ     *-F17_String
  93.  
  94. F18_String  dc.b    $1c,145,"/r0",00
  95. F18_Len     equ     *-F18_String
  96.  
  97. F_z0_String dc.b    $1c,220,8,00      z0:Ziffernblock Null  ;220 ist der von  
  98. F_z0_Len    equ     *-F_z0_String     Ziffer-Null gelieferte Code:$DC der
  99. *                                      Tastatur-Eproms Vers. 1.32 bzw.1.42 
  100. F_LF_String dc.b    $1c,96,24,3,00    Tastencode:96=$60 String:^x^c=24,3 
  101. F_LF_Len    equ     *-F_LF_String 
  102.  
  103. F_z4_String dc.b    $1c,$C5,$5B,00    Nun brauchen wir ja fⁿr C auch noch 
  104. F_z4_Len    equ     *-F_z4_String     die Klammern!
  105.  
  106. F_z5_String dc.b    $1c,$CC,$5D,00
  107. F_z5_Len    equ     *-F_z5_String
  108.  
  109. F_z1_String dc.b    $1C,$F3,$7B,00
  110. F_z1_Len    equ     *-F_z1_String
  111.  
  112. F_z2_String dc.b    $1C,$F4,$7D,00
  113. F_z2_Len    equ     *-F_z2_String
  114.  
  115.  
  116. F_z00_String dc.b    $1c,$B8,"main() ",00
  117. F_z00_Len    equ     *-F_z00_String
  118.  
  119.  
  120. F_z7_String dc.b    $1c,$B9,"/* ",00
  121. F_z7_Len    equ     *-F_z7_String
  122.  
  123.  
  124. F_z8_String dc.b    $1c,$BC," */",00
  125. F_z8_Len    equ     *-F_z8_String
  126.  
  127.  
  128. F_z9_String dc.b    $1c,$C2,"<stdio.h>",00
  129. F_z9_Len    equ     *-F_z9_String
  130.  
  131.  
  132. F_zm_String dc.b    $1c,$D3,"#include ",00
  133. F_zm_Len    equ     *-F_zm_String
  134.  
  135.  
  136. F_z6_String dc.b    $1c,$F2,$5C,$6E,00
  137. F_z6_Len    equ     *-F_z6_String
  138.  
  139.  
  140. F_z3_String dc.b    $1c,$F5,$5C,00
  141. F_z3_Len    equ     *-F_z3_String
  142.  
  143. OK_String   dc.b    "Funktionstasten belegt!",DownChar,CRChar
  144. OK_Len      equ     *-OK_String
  145.  
  146.  
  147. Entry       moveq   #1,d0              Klar Schiff!!
  148.             moveq   #Clr_Len,d1
  149.             lea     Clr_String(pc),a0
  150.  
  151.             os9     I$Write
  152.  
  153. *Funktionstastenbelegung!
  154.  
  155.             moveq   #StdOut,d0
  156.             moveq   #F1_Len,d1
  157.             lea     F1_String(pc),a0
  158.             os9     I$Write
  159.  
  160.             moveq   #StdOut,d0
  161.             moveq   #F2_Len,d1
  162.             lea     F2_String(pc),a0
  163.             os9     I$Write
  164.  
  165.             moveq   #StdOut,d0
  166.             moveq   #F3_Len,d1
  167.             lea     F3_String(pc),a0            
  168.             os9      I$Write
  169.  
  170.             moveq   #StdOut,d0
  171.             moveq   #F4_Len,d1
  172.             lea     F4_String(pc),a0
  173.             os9      I$Write
  174.             
  175.             moveq   #StdOut,d0
  176.             moveq   #F5_Len,d1
  177.             lea     F5_String(pc),a0
  178.             os9      I$Write
  179.             
  180.             moveq   #StdOut,d0
  181.             moveq   #F6_Len,d1
  182.             lea     F6_String(pc),a0
  183.             os9      I$Write
  184.        
  185.             moveq   #StdOut,d0
  186.             moveq   #F7_Len,d1
  187.             lea     F7_String(pc),a0
  188.             os9      I$Write
  189.       
  190.             moveq   #StdOut,d0
  191.             moveq   #F8_Len,d1
  192.             lea     F8_String(pc),a0
  193.             os9      I$Write
  194.  
  195.             moveq   #StdOut,d0
  196.             moveq   #F9_Len,d1
  197.             lea     F9_String(pc),a0
  198.             os9      I$Write
  199.      
  200.             moveq   #StdOut,d0
  201.             moveq   #F16_Len,d1
  202.             lea     F16_String(pc),a0
  203.             os9      I$Write
  204.      
  205.             moveq   #StdOut,d0
  206.             moveq   #F17_Len,d1
  207.             lea     F17_String(pc),a0
  208.             os9      I$Write
  209.           
  210.             moveq   #StdOut,d0
  211.             moveq   #F18_Len,d1
  212.             lea     F18_String(pc),a0
  213.             os9      I$Write
  214.  
  215.             moveq   #StdOut,d0
  216.             moveq   #F_z0_Len,d1
  217.             lea     F_z0_String(pc),a0
  218.             os9      I$Write
  219.  
  220.             moveq   #StdOut,d0
  221.             moveq   #F_LF_Len,d1
  222.             lea     F_LF_String(pc),a0
  223.             os9      I$Write 
  224.  
  225.             moveq   #StdOut,d0
  226.             moveq   #F_z4_Len,d1
  227.             lea     F_z4_String(pc),a0
  228.             os9      I$Write
  229.  
  230.             moveq   #StdOut,d0
  231.             moveq   #F_z5_Len,d1
  232.             lea     F_z5_String(pc),a0
  233.             os9      I$Write
  234.  
  235.             moveq   #StdOut,d0
  236.             moveq   #F_z1_Len,d1
  237.             lea     F_z1_String(pc),a0
  238.             os9      I$Write
  239.  
  240.             moveq   #StdOut,d0
  241.             moveq   #F_z2_Len,d1
  242.             lea     F_z2_String(pc),a0
  243.             os9      I$Write
  244.  
  245.  
  246.             moveq   #StdOut,d0
  247.             moveq   #F_z00_Len,d1
  248.             lea     F_z00_String(pc),a0
  249.             os9      I$Write
  250.  
  251.  
  252.             moveq   #StdOut,d0
  253.             moveq   #F_z7_Len,d1
  254.             lea     F_z7_String(pc),a0
  255.             os9      I$Write
  256.  
  257.  
  258.             moveq   #StdOut,d0
  259.             moveq   #F_z8_Len,d1
  260.             lea     F_z8_String(pc),a0
  261.             os9      I$Write
  262.  
  263.  
  264.             moveq   #StdOut,d0
  265.             moveq   #F_z9_Len,d1
  266.             lea     F_z9_String(pc),a0
  267.             os9      I$Write
  268.  
  269.  
  270.             moveq   #StdOut,d0
  271.             moveq   #F_zm_Len,d1
  272.             lea     F_zm_String(pc),a0
  273.             os9      I$Write
  274.  
  275.  
  276.             moveq   #StdOut,d0
  277.             moveq   #F_z6_Len,d1
  278.             lea     F_z6_String(pc),a0
  279.             os9      I$Write
  280.  
  281.  
  282.             moveq   #StdOut,d0
  283.             moveq   #F_z3_Len,d1
  284.             lea     F_z3_String(pc),a0
  285.             os9      I$Write
  286.  
  287. *Aussprung      
  288.  
  289.            moveq   #StdOut,d0
  290.            moveq   #OK_Len,d1
  291.            lea     OK_String(pc),a0
  292.            os9     I$Write
  293.            moveq   #0,d1            
  294.            os9     F$Exit           
  295. *Herzlichen Dank fⁿr die Schreibarbeit!
  296.           ends          
  297.                      
  298.  
  299.  
  300.             
  301.  
  302.  
  303.