Transactor

home *** CD-ROM | disk | FTP | other *** search

/ Transactor / Transactor_04_1985_Transactor_Publishing.d64 / add (.txt) < prev next >

Wrap

Commodore BASIC | 1988-01-01 | 2.4 KB | 188 lines

0 rem add (sept 27/84) : 1 : 2 rem 1 statement, 0 functions 3 : 4 rem keyword characters: 3 5 : 6 rem keyword routine line ser # 7 rem add xadd 4474 055 8 : 9 rem e/iortns (39/056) 10 : 11 rem ================================ 12 : 39 setlfs = $ffba 40 setnam = $ffbd 41 open = $e1c1 42 chkin = $e11e 43 close = $e1cc 44 clrchn = $ffcc 45 getin = $e124 46 ; 114 .asc "ad[196]" 1114 .word xadd-1 4474 xadd jsr $ad9e 4476 jsr $b6a3 4478 sta t3 4480 txa 4482 pha 4484 tya 4486 pha 4488 lda t3 4490 jsr $b47d 4492 tax 4494 bne xa1 4496 jmp $af08 4498 xa1 clc 4500 adc #2 4502 sta t3 4504 jsr $b47d 4506 tay 4508 pla 4510 sta $23 4512 pla 4514 sta $22 4516 dey 4518 lda #"p" 4520 sta ($62),y 4522 dey 4524 lda #"," 4526 sta ($62),y 4528 xa2 dey 4530 bmi xa3 4532 lda ($22),y 4534 sta ($62),y 4536 bne xa2 4538 xa3 lda t3 4540 ldx $62 4542 ldy $63 4544 jsr setnam 4546 jsr $79 4548 beq xa4 4550 jsr $aefd 4552 jsr $b79e 4554 .byte $2c 4556 xa4 ldx #8 4558 lda #$63 4560 tay 4562 jsr setlfs 4564 jsr open 4566 ldx #$63 4568 jsr chkin 4570 jsr dskget 4572 jsr dskget 4574 xa5 jsr dskget 4578 jsr dskget 4580 bne xa7 4582 jsr clsclr 4584 jsr $a659 4586 jmp $e386 4590 xa7 jsr dskget 4592 sta $14 4594 jsr dskget 4596 sta $15 4598 ldy #0 4600 xa8 jsr dskget 4602 sta $200,y 4604 beq xa9 4606 iny 4608 bne xa8 4610 xa9 tya 4612 clc 4614 adc #5 4616 sta $0b 4618 jsr $a613 4620 bcc xa13 4622 ldy #1 4624 lda ($5f),y 4626 sta $23 4628 lda $2d 4630 sta $22 4632 lda $60 4634 sta $25 4636 lda $5f 4638 dey 4640 sbc ($5f),y 4642 clc 4644 adc $2d 4646 sta $2d 4648 sta $24 4650 lda $2e 4652 adc #$ff 4654 sta $2e 4656 sbc $60 4658 tax 4660 sec 4662 xa10 bcc xa5 4664 lda $5f 4666 sbc $2d 4668 tay 4670 bcs xa11 4672 inx 4674 dec $25 4676 xa11 clc 4678 adc $22 4680 bcc xa12 4682 dec $23 4684 clc 4686 xa12 lda ($22),y 4688 sta ($24),y 4690 iny 4692 bne xa12 4694 inc $23 4696 inc $25 4698 dex 4700 bne xa12 4702 xa13 jsr $a663 4704 jsr $a533 4706 clc 4708 lda $2d 4710 sta $5a 4712 adc $0b 4714 sta $58 4716 ldy $2e 4718 sty $5b 4720 bcc xa14 4722 iny 4724 xa14 sty $59 4726 jsr $a3b8 4728 lda $14 4730 ldy $15 4732 sta $1fe 4734 sty $1ff 4736 lda $31 4738 ldy $32 4740 sta $2d 4742 sty $2e 4744 ldy $0b 4746 dey 4748 xa15 lda $01fc,y 4750 sta ($5f),y 4752 dey 4754 bpl xa15 4756 jsr $a663 4758 jsr $a533 4760 clc 4762 bcc xa10 4764 ; 4766 dskget jsr getin 4768 pha 4770 lda $90 4772 and #$bf 4774 bne dkg1 4776 pla 4778 rts 4780 dkg1 jsr clsclr 4782 ldx #$1d 4784 lda #<mrgerr 4786 sta $22 4788 lda #>mrgerr 4790 jmp $a445 4792 ; 4794 mrgerr .asc "merg[197]" 4796 ; 4798 clsclr lda #$63 4800 jsr close 4802 jmp clrchn 4804 ;