home *** CD-ROM | disk | FTP | other *** search
/ ABBUC Magazin 37A / ABBUC_Magazin_37_19xx_ABBUC_Side_A.atr / deskjet.src < prev    next >
Text File  |  2023-02-26  |  2KB  |  169 lines
  1. SAVMSC    EPZ $58
  2. KANAL    EPZ $F0
  3. AUX1    EPZ $F1
  4. AUX2    EPZ $F2
  5. LAENGE    EPZ $F3
  6. BUFFER    EPZ $F5
  7. FILEN    EPZ $F7
  8. HILF    EPZ $98
  9. HILF1    EPZ $9A
  10. OPEN    EQU $2003
  11. BPUT    EQU $2006
  12. CLOSE    EQU $2009
  13. PMODE    EQU $2022
  14.  
  15.     ORG $4E00
  16.  
  17. START    LDA #1
  18.     STA KANAL
  19.     LDA #8
  20.     STA AUX1
  21.     LDA #0
  22.     STA AUX2
  23.     LDA #FILE
  24.     STA FILEN
  25.     LDA #FILE/256
  26.     STA FILEN+1
  27.     JSR OPEN
  28.  
  29.     LDA #RESET
  30.     STA BUFFER
  31.     LDA #RESET/256
  32.     STA BUFFER+1
  33.     LDA #12
  34.     STA LAENGE
  35.     LDA #0
  36.     STA LAENGE+1
  37.     JSR BPUT
  38.  
  39.     LDX #0
  40.     LDA PMODE
  41.     ASL
  42.     ASL
  43.     ASL
  44.     TAY
  45. LOOP    LDA AUFL,Y
  46.     STA MEM,X
  47.     INX
  48.     INY
  49.     CPX #7
  50.     BNE LOOP
  51.  
  52.     LDA #MEM
  53.     STA BUFFER
  54.     LDA #MEM/256
  55.     STA BUFFER+1
  56.     LDA #7
  57.     STA LAENGE
  58.     LDA #0
  59.     STA LAENGE+1
  60.     JSR BPUT
  61.  
  62.     LDA #OFFSET
  63.     STA BUFFER
  64.     LDA #OFFSET/256
  65.     STA BUFFER+1
  66.     LDA #5
  67.     STA LAENGE
  68.     LDA #0
  69.     STA LAENGE+1
  70.     JSR BPUT
  71.  
  72.     LDA #0
  73.     STA HILF1
  74. LOOP1    LDA #ANZ
  75.     STA BUFFER
  76.     LDA #ANZ/256
  77.     STA BUFFER+1
  78.     LDA #6
  79.     STA LAENGE
  80.     LDA #0
  81.     STA LAENGE+1
  82.     JSR BPUT
  83.     JSR DRUCK
  84.     INC HILF1
  85.     LDA HILF1
  86.     CMP #192
  87.     BNE LOOP1
  88.  
  89.     LDA #ENDE
  90.     STA BUFFER
  91.     LDA #ENDE/256
  92.     STA BUFFER+1
  93.     LDA #10
  94.     STA LAENGE
  95.     LDA #0
  96.     STA LAENGE+1
  97.     JSR BPUT
  98.     JSR CLOSE
  99.     RTS
  100.  
  101. DRUCK    JSR MUL40
  102.     CLC
  103.     LDA HILF
  104.     ADC SAVMSC
  105.     STA HILF
  106.     LDA HILF+1
  107.     ADC SAVMSC+1
  108.     STA HILF+1
  109.     LDA HILF
  110.     STA BUFFER
  111.     LDA HILF+1
  112.     STA BUFFER+1
  113.     LDA #40
  114.     STA LAENGE
  115.     LDA #0
  116.     STA LAENGE+1
  117.     JSR BPUT
  118.     RTS
  119.  
  120. MUL40    LDA HILF1
  121.     STA HILF
  122.     LDA #0
  123.     STA HILF+1
  124.     ASL HILF
  125.     ROL HILF+1
  126.     ASL HILF
  127.     ROL HILF+1
  128.     CLC
  129.     LDA HILF1
  130.     ADC HILF
  131.     STA HILF
  132.     LDA HILF+1
  133.     ADC #0
  134.     STA HILF+1
  135.     ASL HILF
  136.     ROL HILF+1
  137.     ASL HILF
  138.     ROL HILF+1
  139.     ASL HILF
  140.     ROL HILF+1
  141.     RTS
  142.  
  143. FILE    ASC "P: "
  144. AUFL    DFB $1B
  145.     ASC "*t75R"
  146.     DFB 0,0
  147.     DFB $1B
  148.     ASC "*t100R"
  149.     DFB 0
  150.     DFB $1B
  151.     ASC "*t150R"
  152.     DFB 0
  153.     DFB $1B
  154.     ASC "*t300R"
  155.     DFB 0
  156.  
  157. RESET    DFB $1B,$45
  158.     DFB $1B,$26,$6C,$30,$48
  159.     DFB $1B,$2A,$72,$31,$55
  160.  
  161. OFFSET    DFB $1B,$2A,$62,$30,$59
  162.  
  163. ANZ    DFB $1B,$2A,$62,$34,$30,$57
  164.  
  165. ENDE    DFB $1B,$2A,$72,$62,$43
  166.     DFB $1B,$26,$6C,$30,$48
  167.  
  168. MEM    DFB 0,0,0,0,0,0,0,0
  169. ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯