home *** CD-ROM | disk | FTP | other *** search
/ ABBUC Magazin 37B / ABBUC_Magazin_37_19xx_ABBUC_Side_B.atr / osdisk.src < prev    next >
Text File  |  2023-02-26  |  1KB  |  113 lines
  1. *    OS->DISK
  2. *
  3. *    liest OS aus und schreibt es
  4. *    als File "OS.DAT"
  5. *    auf Diskette
  6. *
  7. *    by RoBue
  8. *    27.04.1994
  9.  
  10.  
  11. * IOCB-Konstante
  12.  
  13. CIOV    EQU $E456
  14.  
  15. ICCOM    EQU $342
  16. ICSTA    EQU $343
  17. ICBAL    EQU $344
  18. ICBAH    EQU $345
  19. ICBLL    EQU $348
  20. ICBLH    EQU $349
  21. ICAX1    EQU $34A
  22. ICAX2    EQU $34B
  23.  
  24. * CIO-Befehle
  25.  
  26. COPEN    EQU   3
  27. CCLSE    EQU  12
  28. CGTXT    EQU   5
  29. CPTXT    EQU   9
  30. CGBIN    EQU   7
  31. CPBIN    EQU  11
  32.  
  33. EOL    EQU $9B
  34. KANNUM    EQU 32    KANAL 2
  35. PORTB    EQU $D301
  36.  
  37.  
  38.     ORG $0400,$A800
  39.  
  40. OPEN    LDX #KANNUM
  41.     LDA #8
  42.     STA ICAX1,X
  43.     LDA #0
  44.     STA ICAX2,X
  45.     LDA #COPEN
  46.     STA ICCOM,X
  47.     LDA #FNAME:L
  48.     STA ICBAL,X
  49.     LDA #FNAME:H
  50.     STA ICBAH,X
  51.     JSR CIOV
  52. *
  53.     LDA PORTB
  54.     STA PIA
  55.  
  56.  
  57. BPUT1    LDX #KANNUM    BEREICH    
  58.     LDA #CPBIN    VON
  59.     STA ICCOM,X    $C000-
  60.     LDA #0         $CFFF
  61.     STA ICBLL,X
  62.     LDA #$10
  63.     STA ICBLH,X
  64.     LDA #0
  65.     STA ICBAL,X
  66.     LDA #$C0
  67.     STA ICBAH,X
  68.     JSR CIOV
  69.  
  70. BPUT2    LDA PIA        SELBSTTEST
  71.     AND #%01111111    EINSCHALTEN    
  72.     STA PORTB
  73. *
  74.     LDX #KANNUM    BEREICH
  75.     LDA #CPBIN    VON
  76.     STA ICCOM,X    $5000-
  77.     LDA #0         $57FF
  78.     STA ICBLL,X    (IM OS:
  79.     LDA #$8        $D000-
  80.     STA ICBLH,X     $D7FF)
  81.     LDA #0
  82.     STA ICBAL,X
  83.     LDA #$50
  84.     STA ICBAH,X
  85.     JSR CIOV
  86.  
  87. BPUT3    LDA PIA        SELBSTTEST
  88.     STA PORTB    AUS
  89. *
  90.     LDA #CPBIN    BEREICH
  91.     STA ICCOM,X    VON
  92.     LDA #0        $D800-
  93.     STA ICBLL,X     $FFFF
  94.     LDA #$28
  95.     STA ICBLH,X
  96.     LDA #0
  97.     STA ICBAL,X
  98.     LDA #$D8
  99.     STA ICBAH,X
  100.     JSR CIOV
  101.  
  102. CLOSE    LDX #KANNUM
  103.     LDA #CCLSE
  104.     STA ICCOM,X
  105.     JSR CIOV
  106. *
  107.     RTS
  108.  
  109. FNAME    ASC "D:OS.DAT"
  110.     DFB EOL
  111.  
  112. LAENGE    DFB 0
  113. PIA    DFB 0¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯