home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 83 / 083.d81 / hardcopy.ebud < prev    next >
Text File  |  2022-08-26  |  1KB  |  122 lines
  1. .org 49152
  2. .mem
  3. ;.obj "ghardcopy.o"
  4.  
  5. ;hardcopy of screen
  6. ;sys49152,lm,tm,rm,bm,sa,gon,goff
  7. ;sys49152,x,y,x1,y1,secondary address,chr$(graphic mode on),chr$(graphic mode off)
  8.  
  9. setlfs = 65466
  10. open   = 65472
  11. chkout = 65481
  12. chrout = 65490
  13. close  = 65475
  14. clrchn = 65484
  15. setnam = 65469
  16. comnum = 47089
  17. screen = 1024 
  18. zp     = 251
  19.  
  20. jsr comnum
  21. stx lm
  22. jsr comnum
  23. stx tm
  24. jsr comnum
  25. inx
  26. stx rm
  27. jsr comnum
  28. inx
  29. stx bm
  30. jsr comnum
  31. stx sa
  32. jsr comnum
  33. stx gon
  34. jsr comnum
  35. stx goff
  36.  
  37. lda <screen
  38. sta zp
  39. lda >screen
  40. sta zp+1
  41. ldy tm
  42. beq printscreen
  43. ldy #0
  44. - clc
  45. lda zp
  46. adc #40
  47. sta zp
  48. lda zp+1
  49. adc #0
  50. sta zp+1
  51. iny
  52. cpy tm
  53. bne -
  54.  
  55. printscreen =*
  56.  
  57. jsr clrchn
  58. lda #4
  59. ldx #4
  60. ldy sa
  61. jsr setlfs
  62. lda #0
  63. ldx #0
  64. ldy #0
  65. jsr setnam
  66. jsr open 
  67. ldx #4
  68. jsr chkout
  69.  
  70. ldx tm  
  71. - ldy lm
  72. - sty y
  73. lda (zp),y
  74. cmp #0
  75. php
  76. and #127
  77. ldy #4
  78. - dey
  79. cmp upplim,y
  80. bcs -
  81. eor fliptb,y
  82. plp
  83. jsr chrout
  84. ldy y
  85. iny
  86. cpy rm
  87. bne --
  88. lda gon
  89. jsr chrout
  90. lda #13
  91. jsr chrout
  92. lda goff
  93. jsr chrout
  94.  
  95. clc
  96. lda zp
  97. adc #40
  98. sta zp
  99. lda zp+1
  100. adc #0
  101. sta zp+1
  102.  
  103. inx
  104. cpx bm
  105. bne ---
  106. lda #4
  107. jsr close
  108. jsr clrchn
  109. rts
  110.  
  111. y    .byte 0
  112. sa   .byte 0
  113. rm   .byte 0
  114. lm   .byte 0
  115. tm   .byte 0
  116. bm   .byte 0
  117. gon  .byte 8
  118. goff .byte 15
  119.  
  120. upplim .byte 128,96,64,32
  121. fliptb .byte 192,32,0,64
  122.