home *** CD-ROM | disk | FTP | other *** search
/ Top-Magazin 1992 March / Top_Magazin_1992_03_Top_Crew_de_Side_B.atr / menue.src < prev    next >
Text File  |  2023-02-26  |  3KB  |  169 lines
  1. ************************************
  2. * MENUEPROGRAMM V1.0
  3. * (PD) HENDRIK VOIGTLAENDER
  4. * TOP-MAGAZIN AUSGABE MAERZ 1992
  5. ************************************
  6. *
  7. * DEF I/O-CONTROLL-BLOCK 0
  8. *
  9. ICCOM    EQU $342        KOMMANDO
  10. ICBAL    EQU $344        ARBEITS-
  11. ICBAH    EQU $345        ADRESSE
  12. ICAX1    EQU $34A        CONTROLBYTE
  13. ICBLL    EQU $348        LAENGE LO
  14. ICBLH    EQU $349               HI
  15. *
  16. * KOMMANDOCODES FUER ICCOM
  17. *
  18. OPEN    EQU 3        OPEN
  19. CCLOSE    EQU 12        CLOSE
  20. CPBIN    EQU 11        BPUT
  21. CPTXT    EQU 9        PRINT
  22. CGBIN    EQU 7        BGET
  23. CGTXT    EQU 5        INPUT
  24. *
  25. CIOV    EQU $E456    CIO-VEKTOR
  26. *
  27. FARGR0    EQU 710        HINTERGRUND
  28. *            FARBE
  29. BLOAD    EQU $15A9    LADEVEKTOR
  30. *
  31. COLDST    EQU $E474    KALTSTART-
  32. *            VEKTOR
  33. *
  34.     ORG $A800
  35. *
  36. *BEI EIGENER VERWENDUNG HINTER DAS DOS
  37. *LEGEN,ALSO ORG $2000,$A800
  38. *DIESE VERSION MIT ESC U ODER G $A800
  39. *AUFRUFBAR
  40. *
  41. * MENUETEXT AUSGABE
  42. *
  43. START    LDA #$00        POKE 710,0
  44.     STA FARGR0
  45.     LDX #$00        KANAL 0!!!
  46.     LDA #CPBIN    BPUT AB
  47.     STA ICCOM,X    
  48.     LDA #TEXT:L    TEXT
  49.     STA ICBAL,X
  50.     LDA #TEXT:H    MIT
  51.     STA ICBAH,X
  52.     LDA #209        LAENGE 209
  53.     STA ICBLL,X     (DEZIMAL!)
  54.     LDA #0        HI LAENGE=0
  55.     STA ICBLH,X
  56.     JSR CIOV
  57.     JMP AUSWAH
  58. *
  59. *  TEXT FUER MENU-AUSWAHL
  60. *
  61. TEXT    DFB $7D        CLS
  62.     DFB $9B,$9B    4*EOL
  63.     DFB $9B,$9B    =4*PRINT
  64.     ASC "           (A) FILE 1"
  65.     DFB $9B
  66.     ASC "           (B) FILE 2"
  67.     DFB $9B
  68.     ASC "           (C) FILE 3"
  69.     DFB $9B
  70.     ASC "           (D) FILE 4"
  71.     DFB $9B
  72.     ASC "           (E) FILE 5"
  73.     DFB $9B
  74.     ASC "           (F) FILE 6"
  75.     DFB $9B
  76.     ASC "           (G) FILE 7"
  77.     DFB $9B
  78.     ASC "           (H) FILE 8"
  79.     DFB $9B,$9B,$9B,$9B
  80.     ASC "          SELECT PROGRAM"
  81.     DFB $9B
  82. *
  83. PUFFER DFB $00
  84. *
  85. * EIN ZEICHEN VON TASTATUR HOLEN
  86. *
  87. KEY    ASC "K:"        FILENAME F.
  88.     DFB $9B        OPEN #1,K:
  89. HOLZEI    LDX #$10
  90.     LDA #CCLOSE    CLOSE#1
  91.     STA ICCOM,X
  92.     JSR CIOV
  93.     LDA #OPEN
  94.     STA ICCOM,X    OPEN#1,4,0,K:
  95.     LDA #KEY:H
  96.     STA ICBAH,X
  97.     LDA #KEY:L
  98.     STA ICBAL,X
  99.     LDA #$04
  100.     STA ICAX1,X
  101.     JSR CIOV     
  102.     LDA #CGBIN    ZEICHEN MIT
  103.     STA ICCOM,X    BGET HOLEN
  104.     LDA #$0        STEHT IM
  105.     STA ICBLL,X    AKKU, DA
  106.     STA ICBLH,X    ICBL=0
  107.     JSR CIOV
  108.     STA PUFFER    ASCIIPUFFER
  109.     LDA #CCLOSE
  110.     STA ICCOM,X
  111.     JSR CIOV
  112.     RTS
  113. *
  114. * AUSWAHL UND LADEROUTINE
  115. *
  116. AUSWAH    JSR HOLZEI    HOLE ASCII
  117.     LDA PUFFER
  118.     CMP #$9B        RETURN ->
  119.     BEQ COLD          REBOOT
  120.     JMP OK
  121. COLD    JMP COLDST
  122. OK    SEC        (AKKU-41)
  123.     SBC #$41        ->AKKU
  124.     BMI AUSWAH    AKKU<0?
  125.     CMP #$8        AKKU>=8?
  126.     BPL AUSWAH
  127.     ASL        ;AKKU*2
  128.     TAY        AKKU->Y-REG
  129.     LDX #$10
  130.     LDA FILES,Y    ANFANGSADR.
  131.     STA ICBAL,X       FILENAMEN
  132.     INY        IN ICBA
  133.     LDA FILES,Y    UND DOS
  134.     STA ICBAH,X    ANSPRINGEN
  135.     JMP BLOAD
  136. *
  137. * DOS ERLEDIGT OPEN, BEI EINPSRUNG
  138. * IN $15C8 ERST OPEN AUSFUEHREN !
  139. *
  140. * ADRESSEN FUER DOS2.5 GUELTIG
  141. *
  142. FILES    DFW FILE1    ANFANGS-
  143.     DFW FILE2    ADRESSEN
  144.     DFW FILE3    DER
  145.     DFW FILE4    FILENAMEN
  146.     DFW FILE5
  147.     DFW FILE6
  148.     DFW FILE7
  149.     DFW FILE8
  150. *
  151. * FILENAMEN
  152. *
  153. FILE1    ASC "D:FILE1.COM"
  154.     DFB $9B
  155. FILE2    ASC "D:FILE2.COM"
  156.     DFB $9B
  157. FILE3    ASC "D:FILE3.COM"
  158.     DFB $9B
  159. FILE4    ASC "D:FILE4.COM"
  160.     DFB $9B
  161. FILE5    ASC "D:FILE5.COM"
  162.     DFB $9B
  163. FILE6    ASC "D:FILE6.COM"
  164.     DFB $9B
  165. FILE7    ASC "D:FILE7.COM"
  166.     DFB $9B
  167. FILE8    ASC "D:FILE8.COM"
  168.     DFB $9B
  169. ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯