home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_06_1985_Transactor_Publishing.d64
/
within
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
91 lines
0 rem within (aug 25/84) :
1 :
2 rem 0 statements, 1 function
3 :
4 rem keyword characters: 7
5 :
6 rem keyword routine line ser #
7 rem f/within( within 3698 028
8 :
9 rem u/pshfp1 (3270/063)
10 rem u/pul57 (3308/064)
11 :
12 rem ================================
13 :
607 .asc "within[168]"
1607 .word within-1
3270 pshfp1 lda #3
3272 jsr $a3fb
3274 pla
3276 sta $71
3278 pla
3280 sta $72
3282 jsr $bbca
3284 ldx #0
3286 phf1 lda $57,x
3288 pha
3290 inx
3292 cpx #5
3294 bne phf1
3296 phf2 lda $72
3298 pha
3300 lda $71
3302 pha
3304 rts
3306 ;
3308 pul57 pla
3310 sta $71
3312 pla
3314 sta $72
3316 ldx #4
3318 pl57 pla
3320 sta $57,x
3322 dex
3324 bpl pl57
3326 bmi phf2
3328 ;
3698 within jsr $ad8a
3700 jsr comtst
3702 php
3704 jsr comtst
3706 bcc wth1
3708 plp
3710 pha
3712 bcc wth1
3714 lda #$ff
3716 .byte $2c
3718 wth1 lda #0
3720 jsr $bc3c
3722 pla
3724 jmp $aef7
3726 ;
3728 comtst jsr pshfp1
3730 jsr $79
3732 pha
3734 jsr $73
3736 jsr $ad8a
3738 pla
3740 cmp #","
3742 beq ct1
3744 cmp #";"
3746 bne ct4
3748 clc
3750 .byte $24
3752 ct1 sec
3754 ror t3
3756 jsr pul57
3758 lda #$57
3760 ldy #0
3762 jsr $bc5b
3764 bmi ct3
3766 bit t3
3768 bpl ct2
3770 tax
3772 beq ct3
3774 ct2 sec
3776 rts
3778 ct3 clc
3780 rts
3782 ct4 jmp $af08
3784 ;