home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_04_1985_Transactor_Publishing.d64 / add (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  188 lines
  1. 0 rem add (sept 27/84)                :
  2. 1 :
  3. 2 rem  1 statement, 0 functions
  4. 3 :
  5. 4 rem keyword characters:  3
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem add         xadd     4474    055
  9. 8 :
  10. 9 rem e/iortns (39/056)
  11. 10 :
  12. 11 rem ================================
  13. 12 :
  14. 39 setlfs   = $ffba
  15. 40 setnam   = $ffbd
  16. 41 open     = $e1c1
  17. 42 chkin    = $e11e
  18. 43 close    = $e1cc
  19. 44 clrchn   = $ffcc
  20. 45 getin    = $e124
  21. 46 ;
  22. 114 .asc "ad[196]"
  23. 1114 .word xadd-1
  24. 4474 xadd jsr $ad9e
  25. 4476 jsr $b6a3
  26. 4478 sta t3
  27. 4480 txa
  28. 4482 pha
  29. 4484 tya
  30. 4486 pha
  31. 4488 lda t3
  32. 4490 jsr $b47d
  33. 4492 tax
  34. 4494 bne xa1
  35. 4496 jmp $af08
  36. 4498 xa1 clc
  37. 4500 adc #2
  38. 4502 sta t3
  39. 4504 jsr $b47d
  40. 4506 tay
  41. 4508 pla
  42. 4510 sta $23
  43. 4512 pla
  44. 4514 sta $22
  45. 4516 dey
  46. 4518 lda #"p"
  47. 4520 sta ($62),y
  48. 4522 dey
  49. 4524 lda #","
  50. 4526 sta ($62),y
  51. 4528 xa2 dey
  52. 4530 bmi xa3
  53. 4532 lda ($22),y
  54. 4534 sta ($62),y
  55. 4536 bne xa2
  56. 4538 xa3 lda t3
  57. 4540 ldx $62
  58. 4542 ldy $63
  59. 4544 jsr setnam
  60. 4546 jsr $79
  61. 4548 beq xa4
  62. 4550 jsr $aefd
  63. 4552 jsr $b79e
  64. 4554 .byte $2c
  65. 4556 xa4 ldx #8
  66. 4558 lda #$63
  67. 4560 tay
  68. 4562 jsr setlfs
  69. 4564 jsr open
  70. 4566 ldx #$63
  71. 4568 jsr chkin
  72. 4570 jsr dskget
  73. 4572 jsr dskget
  74. 4574 xa5 jsr dskget
  75. 4578 jsr dskget
  76. 4580 bne xa7
  77. 4582 jsr clsclr
  78. 4584 jsr $a659
  79. 4586 jmp $e386
  80. 4590 xa7 jsr dskget
  81. 4592 sta $14
  82. 4594 jsr dskget
  83. 4596 sta $15
  84. 4598 ldy #0
  85. 4600 xa8 jsr dskget
  86. 4602 sta $200,y
  87. 4604 beq xa9
  88. 4606 iny
  89. 4608 bne xa8
  90. 4610 xa9 tya
  91. 4612 clc
  92. 4614 adc #5
  93. 4616 sta $0b
  94. 4618 jsr $a613
  95. 4620 bcc xa13
  96. 4622 ldy #1
  97. 4624 lda ($5f),y
  98. 4626 sta $23
  99. 4628 lda $2d
  100. 4630 sta $22
  101. 4632 lda $60
  102. 4634 sta $25
  103. 4636 lda $5f
  104. 4638 dey
  105. 4640 sbc ($5f),y
  106. 4642 clc
  107. 4644 adc $2d
  108. 4646 sta $2d
  109. 4648 sta $24
  110. 4650 lda $2e
  111. 4652 adc #$ff
  112. 4654 sta $2e
  113. 4656 sbc $60
  114. 4658 tax
  115. 4660 sec
  116. 4662 xa10 bcc xa5
  117. 4664 lda $5f
  118. 4666 sbc $2d
  119. 4668 tay
  120. 4670 bcs xa11
  121. 4672 inx
  122. 4674 dec $25
  123. 4676 xa11 clc
  124. 4678 adc $22
  125. 4680 bcc xa12
  126. 4682 dec $23
  127. 4684 clc
  128. 4686 xa12 lda ($22),y
  129. 4688 sta ($24),y
  130. 4690 iny
  131. 4692 bne xa12
  132. 4694 inc $23
  133. 4696 inc $25
  134. 4698 dex
  135. 4700 bne xa12
  136. 4702 xa13 jsr $a663
  137. 4704 jsr $a533
  138. 4706 clc
  139. 4708 lda $2d
  140. 4710 sta $5a
  141. 4712 adc $0b
  142. 4714 sta $58
  143. 4716 ldy $2e
  144. 4718 sty $5b
  145. 4720 bcc xa14
  146. 4722 iny
  147. 4724 xa14 sty $59
  148. 4726 jsr $a3b8
  149. 4728 lda $14
  150. 4730 ldy $15
  151. 4732 sta $1fe
  152. 4734 sty $1ff
  153. 4736 lda $31
  154. 4738 ldy $32
  155. 4740 sta $2d
  156. 4742 sty $2e
  157. 4744 ldy $0b
  158. 4746 dey
  159. 4748 xa15 lda $01fc,y
  160. 4750 sta ($5f),y
  161. 4752 dey
  162. 4754 bpl xa15
  163. 4756 jsr $a663
  164. 4758 jsr $a533
  165. 4760 clc
  166. 4762 bcc xa10
  167. 4764 ;
  168. 4766 dskget jsr getin
  169. 4768 pha
  170. 4770 lda $90
  171. 4772 and #$bf
  172. 4774 bne dkg1
  173. 4776 pla
  174. 4778 rts
  175. 4780 dkg1 jsr clsclr
  176. 4782 ldx #$1d
  177. 4784 lda #<mrgerr
  178. 4786 sta $22
  179. 4788 lda #>mrgerr
  180. 4790 jmp $a445
  181. 4792 ;
  182. 4794 mrgerr .asc "merg[197]"
  183. 4796 ;
  184. 4798 clsclr lda #$63
  185. 4800 jsr close
  186. 4802 jmp clrchn
  187. 4804 ;
  188.