home *** CD-ROM | disk | FTP | other *** search
/ ftp.elysium.pl / ftp.elysium.pl.tar / ftp.elysium.pl / gnu-generation / YTM / d-100m.src.gz / d-100m.src
Text File  |  2001-07-29  |  7KB  |  367 lines
  1. ;13.09.1997 ;ZROBIC JESZCZE DWIE WERSJE
  2. ;14.09.1997 ;W DWOCH ROZDZIELCZOSCIACH
  3. ;26.10.1997
  4.  
  5. ;02.06.1999 ;WERSJA SERIAL
  6.  
  7. ;BY ═ACIEJ '┘╘═/┴LLIANCE' ╫ITKOWIAK
  8.  
  9. LOADW    .MACRO
  10.          LDA #<\1
  11.          STA \2
  12.          LDA #>\1
  13.          STA \2+1
  14.          .ENDM
  15.  
  16.          *= $7902
  17.  
  18. MWEK     = $02
  19. SWEK     = $03
  20.  
  21. PROUT    = $FFA8
  22.  
  23.          ;JMP INIT4PRINT
  24.          .BYTE $79
  25.          JMP STARTPR
  26.          JMP PRINTLINE
  27.          JMP STOPPR
  28.          JMP GETDIMENSIONS
  29.          JMP PRINTASCII
  30.          JMP STARTASCII
  31.          JMP SETNLQ
  32.  
  33.          .NULL "D-100M"
  34. ;---------------------------------------
  35. INIT4PRINT
  36.          #LOADW $851E,2
  37.          #LOADW MERK,4
  38.          #LOADW 420,6
  39.          JSR $C17E
  40.          #LOADW PARAM,MWEK
  41.          JSR $C256
  42.          LDA MWEK
  43.          CMP #4
  44.          BEQ NIEHI
  45.          LDA #"L"
  46.          STA HI
  47.          LDA #<(640*2)
  48.          STA ILOSC
  49.          LDA #>(640*2)
  50.          STA ILOSC+1
  51.          LDA #$20
  52.          STA TWICE
  53.          JMP ENDIN
  54.  
  55. NIEHI    LDA #"K"
  56.          STA HI
  57.          LDA #<640
  58.          STA ILOSC
  59.          LDA #>640
  60.          STA ILOSC+1
  61.          LDA #$FC
  62.          STA TWICE
  63.  
  64. ENDIN    #LOADW MERK,2
  65.          #LOADW $851E,4
  66.          #LOADW 420,6
  67.          JSR $C17E
  68.          LDX #0
  69.          RTS
  70.  
  71. PARAM    .BYTE $01
  72.          .BYTE 32+8
  73.          .BYTE 127+8
  74.          .WORD 64
  75.          .WORD 255
  76.  
  77.          .BYTE 11,20,20
  78.          .WORD TXT
  79.          .BYTE 3,1,72
  80.          .BYTE 4,17,72
  81.          .BYTE 0
  82.  
  83. TXT      .BYTE 24
  84.          .TEXT "HIGH QUALITY ?"
  85.          .BYTE 27,0
  86. ;---------------------------------------
  87. STOPPR   LDA STAT
  88.          BEQ NIEASCI
  89.          JSR OPEN
  90.          LDA #13
  91.          JSR PROUT
  92.          JMP CLOSE
  93. NIEASCI  JMP CHECKBUF
  94. ;---------------------------------------
  95. STARTPR  LDA #0
  96.          STA STAT
  97.          JMP ALLSTART
  98. ;---------------------------------------
  99. STARTASCII LDA #1
  100.          STA STAT
  101. ALLSTART JSR START
  102.          TXA
  103.          BNE SAFAULT
  104.          JSR SENDINIT
  105.          LDX #0
  106. SAFAULT  RTS
  107. ;---------------------------------------
  108. SENDINIT JSR OPEN
  109.          LDX #0
  110. SNDINLP  LDA INISTRING,X
  111.          JSR PROUT
  112.          INX
  113.          CPX #INSEND-INISTRING
  114.          BNE SNDINLP
  115.          JSR CLOSE
  116.          RTS
  117. ;---------------------------------------
  118. START    LDA #0
  119.          STA $90
  120.          JSR OPEN
  121.          LDA $90
  122.          TAX
  123.          BNE FAULT
  124.          JSR CLOSE
  125.          LDX #0
  126.          RTS
  127. FAULT    JSR CLOSE
  128.          LDX #$80
  129.          RTS
  130. ;---------------------------------------
  131. SETNLQ   JSR OPEN
  132.          LDA #27
  133.          JSR PROUT
  134.          LDA #120
  135.          JSR PROUT
  136.          LDA #1
  137.          JSR PROUT
  138.          JMP CLOSE
  139. ;---------------------------------------
  140. PRINTLINE JSR OPEN
  141.          LDA MWEK
  142.          PHA
  143.          LDA SWEK
  144.          PHA
  145.          JSR COPYBUF
  146.          JSR DRWIERSZ
  147.          PLA
  148.          STA SWEK
  149.          PLA
  150.          STA MWEK
  151.          JSR CLOSE
  152.          RTS
  153. ;---------------------------------------
  154. PRINTASCII
  155.          JSR OPEN
  156.          LDY #0
  157. PRASLP   LDA (MWEK),Y
  158.          BEQ PRASEND
  159.          JSR PROUT
  160.          INC MWEK
  161.          BNE PRASLP
  162.          INC SWEK
  163.          JMP PRASLP
  164. PRASEND  JSR CLOSE
  165.          RTS
  166. ;---------------------------------------
  167. OPEN     LDA #4
  168.          JSR $C2B0
  169.          JSR $C25C
  170.          LDA #4
  171.          JSR $FFB1
  172.          LDA #$67
  173.          JMP $FF93
  174. ;---------------------------------------
  175. CLOSE    JSR $FFAE
  176.          JSR $C25F
  177.          LDX #0
  178.          RTS
  179. ;---------------------------------------
  180. GETDIMENSIONS
  181.          LDA #0
  182.          LDX #80
  183.          LDY #99
  184.          RTS
  185. ;---------------------------------------
  186. DRWIERSZ
  187.          JSR CHECK0BUF
  188.          TXA
  189.          BEQ LINEFEED
  190.  
  191.          LDX #0
  192. DRWLP    LDA ROZKAZ,X
  193.          JSR PROUT
  194.          INX
  195.          CPX #ROZEND-ROZKAZ
  196.          BNE DRWLP
  197.          LDA #0
  198.          STA KOL
  199. DRWLP1   JSR READMEM
  200.          JSR PRCHR
  201.          INC KOL
  202.          LDA KOL
  203.          CMP #80
  204.          BNE DRWLP1
  205. LINEFEED LDA #13
  206.          JSR PROUT
  207.          RTS
  208. ;---------------------------------------
  209. READMEM  LDY #0
  210. LOOP2    LDA (MWEK),Y
  211.          STA TABELKA,Y
  212.          INY
  213.          CPY #8
  214.          BNE LOOP2
  215.          LDA MWEK
  216.          CLC
  217.          ADC #8
  218.          STA MWEK
  219.          LDA SWEK
  220.          ADC #0
  221.          STA SWEK
  222.          RTS
  223. ;---------------------------------------
  224. PRCHR    LDA #0
  225.          STA ZNAK
  226.          LDY #0
  227. LOOP3    LDX #0
  228.          STX ZNAK
  229. LOOP4    LDA TABELKA,X
  230.          CLC
  231.          ASL A
  232.          STA TABELKA,X
  233.          ROL ZNAK
  234.          INX
  235.          CPX #8
  236.          BNE LOOP4
  237.          LDA ZNAK
  238.          JSR PROUT
  239. TWICE    JSR PROUT
  240.          INY
  241.          CPY #8
  242.          BNE LOOP3
  243.          RTS
  244. ;---------------------------------------
  245. COPYBUF  LDY #0
  246.          LDA SWEK
  247.          PHA
  248.          LDA 5
  249.          PHA
  250. COLOP1   O
  251.  
  252. 1SO)Y
  253.          STA TABELKA,Y
  254.        LDAEK
  255.          BNE PRASLP
  256.        BN5    LD2 5
  257.          PHA
  258. COLOP1   O
  259.  
  260. 1SO)Y
  261.          STA TABELKA,Y
  262.        LD2EK
  263.          BNE PRASLP
  264.        BN5    LD3 5
  265.          PHA
  266. COLOP1   O
  267.  
  268. 1SO)Y
  269.          STA TABELKA,Y
  270.      $LDA KOL
  271.            LD3 PLA
  272.          STA SWEK
  273.     5 PLA
  274.          STA SWEK
  275.       ADC #0
  276.          STA SWEK
  277.          RTS
  278. ;------------------DRWIERSZ
  279. -------------
  280. COPYBUF  LDY #0
  281.          C0 LDA 5
  282.          PHA
  283. COLOP1        0     TAX
  284.       TA TABELKA,Y
  285.      0 LDAEK
  286.          BNE PRASLP
  287.        BN5  0 LD2 5
  288.          PHA
  289. COLOP1        0     TAX
  290.       TA TABELKA,Y
  291.      0 LD2EK
  292.          BNE PRASLP
  293.        BN5  0 LD3 5
  294.          PHA
  295. COLOP1        0     TAX
  296.       TA TABELKA,Y
  297.      $LDA KOL
  298.          0 LD3 PLA
  299.          STA SWEK
  300.     S ADC #8
  301.         JSR $C17E
  302.          0           STA SWEK
  303.     S ADC #8
  304.         JS  RTS
  305.  
  306. PARAM     STA SWEK
  307.          RTS
  308. ;------------------DRWIESZ
  309. -------------
  310. COPYBUF  LDY #0
  311.          -----
  312. COPYBUF     PHA
  313.        H LDA 5
  314.          PHA
  315. COLOP1       SO)Y
  316.          S          TAX
  317.       TA TABELKA,Y
  318.      H LDAEK
  319.          BNE PRASLP
  320.        BN5  H LD2 5
  321.          PHA
  322. COLOP1       SO)Y
  323.          S          TAX
  324.       TA TABELKA,Y
  325.      H LD2EK
  326.          BNE PRASLP
  327.        BN5  H LD3 5
  328.          PHA
  329. COLOP1       SO)Y
  330.          S          TAX
  331.       TA TABELKA,Y
  332.      $LDA KOL
  333.          H LD3 PLA
  334.          STA SWEK
  335.     5 PLA
  336.          STA SWEK
  337.       ADC #0
  338.          
  339. C  LDX #0    STA SWEK
  340.     5 PLA
  341.          STA SWEK
  342.       ADC #0
  343.       JMP STARTPR
  344.  SR CLOSE
  345.          RTS
  346. ;---------------------2
  347.     BYTE 4,1 IN 
  348.     BYTE 4,1
  349. ------   BYTE 4,1
  350. NE L
  351.     BYTE 4,1
  352.  
  353.         GH QUALITY"@",ITY"8"
  354.     IN
  355.  
  356.  
  357.       IGH QUALITY"3",IAEK
  358.        ;GESTOSC 1/9 CA   EK
  359.        H QUALIT   ;TRYB GRAFICZA T             .BYK"
  360.  A #>     .BYTE 10
  361.     IN
  362.  
  363.    ASL   BYTE 4,,,,,,,,,,,,,,,
  364.  
  365. WICE
  366.  
  367.