home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Serious Magazine 5
/
Serious_Magazine_05_1999_Dial_pl_Side_B.atr
/
sstuff05.arc
/
ARASEK.ARC
/
TMCNV_S5.ASM
next >
Wrap
Assembly Source File
|
1988-09-01
|
15KB
|
1 lines
ûקלב¡®לנגá≡β⌠⌠σ≥∈áπ∈÷é¢ûöצσ≥Θ∩⌡≤áúŒá÷σ≥≤Θ∩∈ö颢 opt 37¢¢buf equ $2000¢size equ $2000¢sizeh equ $26¢sizeh2 equ 1084¢sizeh3 equ $400¢modh equ $5000¢¢ org $80¢adrf org *+2¢adrp org *+2¢adrc org *+2¢_adr1 org *+2¢_adr2 org *+2¢_adr3 org *+2¢¢ org $b000¢dom dta c'D0:'¢text org *+120¢¢runn lda $301¢ bne *+4¢ lda #8¢ ora #48¢ sta dom+1¢¢ jsr eol¢ ldx <titl¢ ldy >titl¢ jsr $c642¢ ldx <tit2¢ ldy >tit2¢ jsr $c642¢ ldx <titl2¢ ldy >titl2¢ jsr $c642¢rnme jsr eol¢ jmp skk¢¢ ldx <titl3¢ ldy >titl3¢ jsr $c642¢ ldx <titl4¢ ldy >titl4¢ jsr $c642¢ ldx <titl5¢ ldy >titl5¢ jsr $c642¢¢keyr lda $2fc¢ cmp #$ff¢ beq *-5¢ pha¢ jsr $f983¢ pla¢ tay¢ lda #$ff¢ sta $2fc¢ lda ($79),y¢ cmp #'a'¢ bne *+5¢ jmp modtmc¢ cmp #'b'¢ bne *+5¢ jmp tmcmod¢ cmp #''¢ bne keyr¢ jmp ($a)¢¢ûלנגƒקלבé¢* tego jeszcze nie ma (ale bedzie) :)¢modtmc jsr eol¢ ldx <titl3+4¢ ldy >titl3+4¢ jsr $c642¢get1 jsr eol¢ ldx <l¢ ldy >l¢ jsr $c642¢ jsr getfnm¢ cpy #1¢ beq *+8¢ jsr error¢ jmp get1¢ dec $348¢ bne *+5¢ jmp ($a)¢ jsr dir¢ cpy #1¢ beq *+8¢ jsr error¢ jmp get1¢ jmp *¢¢skk equ *¢ûקלבƒלנגé¢tmcmod jsr tmc1¢* jsr eol¢* ldx <titl4+4¢* ldy >titl4+4¢* jsr $c642¢get2 jsr eol¢ ldx <l¢ ldy >l¢ jsr $c642¢ jsr getfnm¢ cpy #1¢ beq *+8¢ jsr error¢ jmp get2¢ dec $348¢ bne *+5¢ jmp ($a)¢ jsr dir¢ cpy #$ff¢ beq load¢ cpy #1¢ beq *+5¢ jsr error¢ jmp get2¢¢û∮∩βΣáקלבáµΘ∮σé¢load ldx #$10¢ jsr close¢ ldx #$10¢ lda adrf¢ ldy adrf+1¢ clc¢ jsr openf¢ bpl *+8¢ jsr error¢ jmp get2¢ûΦσβΣσ≥é¢ lda <sizeh¢ sta siz3¢ lda >sizeh¢ sta siz3+1¢ lda <buf¢ ldy >buf¢ jsr read¢ cpy #1¢ beq *+8¢ jsr error¢ jmp get2¢¢ lda buf¢ cmp #$ff¢ bne badt¢ cmp #$ff¢ bne badt¢ lda buf+$23¢ cmp #' '¢ beq ok1¢badt ldy #$ff¢ jsr error¢ jmp get2¢û∩δé¢ok1 ldy #0¢tmca lda buf+6,y¢ sta tmcnm,y¢ iny¢ cpy #29¢ bne tmca¢ lda #$9b¢ sta tmcnm,y¢ lda buf+$24¢ ora #48¢ sta tmcnm2+7¢ lda buf+$25¢ ora #48¢ sta tmcnm3+7¢ jsr eol¢ ldx <tmcnm_¢ ldy >tmcnm_¢ jsr $c642¢ ldx <tmcnm2¢ ldy >tmcnm2¢ jsr $c642¢ ldx <tmcnm3¢ ldy >tmcnm3¢ jsr $c642¢ jsr eol¢û≥σ≤⌠é¢ ldx #$10¢ lda <size-sizeh¢ sta siz3¢ lda >size-sizeh¢ sta siz3+1¢ lda <buf+sizeh¢ ldy >buf+sizeh¢ jsr read¢ cpy #136¢ beq *+8¢ jsr error¢ jmp get2¢¢ lda buf+$126¢ sec¢ sbc buf+3¢ sta _adr3+1¢ lda buf+$a6¢ sec¢ sbc buf+2¢ sta _adr3¢ bcs *+4¢ dec _adr3+1¢¢ lda _adr3+1¢ clc¢ adc >buf+6¢ sta _adr3+1¢ lda _adr3¢ clc¢ adc <buf+6¢ sta _adr3¢ bcc *+4¢ inc _adr3+1¢¢ lda <buf+$1a6¢ sta zng+1¢ lda >buf+$1a6¢ sta zng+2¢¢ lda #0¢ sta ilep¢¢ ldy #15¢zng lda buf+$1a6,y¢ cmp #$ff¢ beq sst1¢ clc¢ lda zng+1¢ adc #16¢ sta zng+1¢ bcc *+5¢ inc zng+2¢ inc ilep¢ lda zng+1¢ cmp _adr3¢ bne zng¢ lda zng+2¢ cmp _adr3+1¢ bne zng¢sst1 equ *¢¢ lda ilep¢ cmp #34¢ bcc ook¢ lda #34¢ook equ *¢ sta ilep¢¢ûϕδáלנגáΦσβΣσ≥é¢ ldy #0¢ tya¢mkmo sta modh,y¢ sta modh+$100,y¢ sta modh+$200,y¢ sta modh+$300,y¢ sta modh+$400,y¢ iny¢ bne mkmo¢head lda buf+6,y¢ sta modh,y¢ iny¢ cpy #20¢ bne head¢¢ lda <modh+49¢ sta modd1+1¢ lda >modh+49¢ sta modd1+2¢ ldy #31¢ lda #1¢modd1 sta modh+49¢ lda modd1+1¢ clc¢ adc #30¢ sta modd1+1¢ bcc *+5¢ inc modd1+2¢ dey¢ bne modd1-2¢¢ ldx ilep¢ bne okj¢ ldx #1¢okj stx modh+950¢ lda #$7f¢ sta modh+951¢ lda #'M'¢ sta modh+1080¢ lda #'K'¢ sta modh+1082¢ lda #'.'¢ sta modh+1081¢ sta modh+1083¢¢ lda ilep¢ beq skkp¢¢ ldy #0¢ord tya¢ sta modh+952,y¢ iny¢ cpy ilep¢ bne ord¢ jmp skkp¢¢û≤β÷σáβ≤áלנגé¢skkp jsr mod1¢get3 jsr eol¢ ldx <s¢ ldy >s¢ jsr $c642¢¢ jsr getfnm¢¢ cpy #1¢ beq *+8¢ jsr error¢ jmp get3¢ dec $348¢ bne *+5¢ jmp ($a)¢ jsr dir¢ cpy #$ff¢ beq save¢ cpy #1¢ beq *+5¢ jsr error¢ jmp get3¢¢save ldx #$10¢ jsr close¢ ldx #$10¢ lda adrf¢ ldy adrf+1¢ sec¢ jsr openf¢ bpl *+8¢ jsr error¢ jmp get3¢¢ lda <sizeh2¢ sta siz3¢ lda >sizeh2¢ sta siz3+1¢ lda <modh¢ ldy >modh¢ jsr write¢ cpy #1¢ beq *+8¢ jsr error¢ jmp get3¢¢ lda <buf+$1a6+7¢ sta sng+1¢ lda >buf+$1a6+7¢ sta sng+2¢¢ lda ilep¢ bne kkbn¢ ldy #0¢ tya¢m_m2 sta modh,y¢ sta modh+$100,y¢ sta modh+$200,y¢ sta modh+$300,y¢ sta modh+$400,y¢ iny¢ bne m_m2¢ jsr stopa¢ jmp sss¢¢kkbn jsr run¢¢ dec ilep¢ beq sss¢¢ lda sng+1¢ clc¢ adc #16¢ sta sng+1¢ bcc *+5¢ inc sng+2¢ jmp kkbn¢¢sss ldx #$10¢ jsr close¢ jsr eol¢ ldx <compl¢ ldy >compl¢ jsr $c642¢ jmp rnme¢ilep brk¢¢û≡⌠≥∈áπ∩∈÷áףקלבƒלנג§é¢run ldy #0¢ tya¢mkm2 sta modh,y¢ sta modh+$100,y¢ sta modh+$200,y¢ sta modh+$300,y¢ sta modh+$400,y¢ iny¢ bne mkm2¢¢ lda <modh¢ sta adrc¢ sta _adr1¢ lda >modh¢ sta adrc+1¢ sta _adr1+1¢¢ lda #8¢ sta song+1¢¢song ldy #8¢sng lda buf+$1a6+7,y¢ cmp #$ff¢ bne nnic¢¢ lda #1¢ sta ilep¢ rts¢¢nnic tay¢¢ dec song+1¢ dec song+1¢¢ lda buf+$126,y¢ sec¢ sbc buf+3¢ sta adrp+1¢ lda buf+$a6,y¢ sec¢ sbc buf+2¢ sta adrp¢ bcs *+4¢ dec adrp+1¢¢ lda adrp+1¢ clc¢ adc >buf+6¢ sta adrp+1¢ lda adrp¢ clc¢ adc <buf+6¢ sta adrp¢ bcc *+4¢ inc adrp+1¢¢lop1 lda #0¢ sta pozm¢ sta pozm+1¢ sta pozm+2¢ sta pozm+3¢¢cnv1 ldy #0¢ lda (adrp),y¢ beq zer1¢ cmp #$40¢ bcc nuta1¢ beq prmtr¢ cmp #$80¢ bcc nuta2_¢ cmp #$c0¢ bcc newin_¢ cmp #$ff¢ beq endpt_¢ sec¢ sbc #$c0¢ tax¢ inx¢here ldy #16¢ jsr add2¢ dex¢ bne here¢ ldy #1¢ jsr add¢ jmp cnv1¢newin_ jmp newin¢endpt_ jmp endpt¢nuta2_ jmp nuta2¢¢û≡⌠≥∈áπ∩Σσ´áãé¢zer1 iny¢ iny¢ jsr add¢ jmp cnv1¢¢û≡⌠≥∈áπ∩Σσ´áõ¡ñøµé¢nuta1 jsr nuta_¢ ldy #0¢ lda pozm¢ sta (adrc),y¢ iny¢ lda pozm+1¢ sta (adrc),y¢ iny¢ lda pozm+2¢ sta (adrc),y¢ iny¢ lda pozm+3¢ sta (adrc),y¢ lda #16¢ clc¢ adc adrc¢ sta adrc¢ bcc *+4¢ inc adrc+1¢ ldy #2¢ jsr add¢ jmp cnv1¢¢û≡⌠≥∈áπ∩Σσ´áñœãé¢prmtr iny¢ lda (adrp),y¢ sta por¢ and #$7f¢ sta pozm+3¢ lda pozm+2¢ and #$f0¢ ora #$f¢ sta pozm+2¢ lda por¢ and #$7f¢ bne nobrk¢ lda pozm+2¢ and #$f0¢ ora #$d¢ sta pozm+2¢ lda #0¢ sta pozm+3¢nobrk lda por¢ and #$80¢ beq noin¢ iny¢noin iny¢ jsr add¢ jmp cnv1¢¢û≡⌠≥∈áπ∩Σσ´áñœõ¡ñõé¢nuta2 and #$3f¢ jsr nuta_¢¢ ldy #1¢ lda (adrp),y¢ sta por¢ and #$7f¢ sta pozm+3¢ lda pozm+2¢ and #$f0¢ ora #$f¢ sta pozm+2¢ lda por¢ and #$7f¢ bne nobrk_¢ lda pozm+2¢ and #$f0¢ ora #$d¢ sta pozm+2¢ lda #0¢ sta pozm+3¢nobrk_ iny¢ iny¢ jsr add¢¢ ldy #0¢ lda pozm¢ sta (adrc),y¢ iny¢ lda pozm+1¢ sta (adrc),y¢ iny¢ lda pozm+2¢ sta (adrc),y¢ iny¢ lda pozm+3¢ sta (adrc),y¢ lda #16¢ clc¢ adc adrc¢ sta adrc¢ bcc *+4¢ inc adrc+1¢¢ lda pozm+2¢ and #$f0¢ sta pozm+2¢ lda #0¢ sta pozm+3¢ jmp cnv1¢¢û≡⌠≥∈áπ∩Σσ´áñÕã¡ñΓµé¢newin clc¢ adc #1¢ cmp #$9f¢ bcc oke¢ lda #$9f¢oke pha¢ lda pozm+2¢ and #$f¢ sta por¢ pla¢ pha¢ and #%00011111¢ asl @¢ asl @¢ asl @¢ asl @¢ ora por¢ sta pozm+2¢ pla¢ and #%00010000¢ bne biton¢¢ lda pozm¢ and #%11101111¢ sta pozm¢bitt ldy #1¢ jsr add¢ jmp cnv1¢¢biton lda pozm¢ ora #%00010000¢ sta pozm¢ jmp bitt¢¢û≡⌠≥∈áπ∩Σσ´áñµµé¢endpt ldy #1¢ jsr add¢ clc¢ lda #4¢ adc _adr1¢ sta _adr1¢ bcc *+4¢ inc _adr1+1¢ lda _adr1¢ sta adrc¢ lda _adr1+1¢ sta adrc+1¢ lda song+1¢ beq stopa¢ jmp song¢¢stopa lda <sizeh3¢ sta siz3¢ lda >sizeh3¢ sta siz3+1¢ lda <modh¢ ldy >modh¢ ldx #$10¢ jsr write¢ cpy #1¢ beq *+8¢ jsr error¢ jmp get3¢ rts¢¢nuta_ sta por¢ ldy #0¢srch lda tmcn,y¢ cmp por¢ beq mam¢ iny¢ bne srch¢¢mam lda modlo,y¢ sta pozm+1¢ lda modhi,y¢ sta por¢¢ lda pozm¢ and #%00010000¢ ora por¢ sta pozm¢ rts¢¢pozm dta b(0),b(0),b(0),b(0)¢por brk¢patt brk¢¢tmcn dta b(1),b(3),b(5),b(6),b(8)¢ dta b($a),b($c),b(2),b(4),b(7)¢ dta b(9),b($b)¢¢ dta b($d),b($f),b($11),b($12)¢ dta b($14),b($16),b($18),b($e)¢ dta b($10),b($13),b($15),b($17)¢¢ dta b($19),b($1b),b($1d),b($1e)¢ dta b($20),b($22),b($24),b($1a)¢ dta b($1c),b($1f),b($21),b($23)¢¢ dta b($25),b($27),b($29),b($2a)¢ dta b($2c),b($2e),b($30),b($26)¢ dta b($28),b($2b),b($2d),b($2f)¢¢ dta b($31),b($33),b($35),b($36)¢ dta b($38),b($3a),b($3c),b($32)¢ dta b($34),b($37),b($39),b($3b)¢¢ dta b($3e),b($3d),b($3f)¢¢modlo dta b($58),b($fa),b($a6),b($80)¢ dta b($3a),b($fc),b($c5),b($28)¢ dta b($d0),b($5c),b($1a),b($e0)¢¢ dta b($ac),b($7d),b($53),b($40)¢ dta b($1d),b($fe),b($e2),b($94)¢ dta b($68),b($2e),b($0d),b($f0)¢¢ dta b($d6),b($be),b($aa),b($a0)¢ dta b($8f),b($7f),b($71),b($ca)¢ dta b($b4),b($97),b($87),b($78)¢¢ dta b($d6),b($be),b($aa),b($a0)¢ dta b($8f),b($7f),b($71),b($ca)¢ dta b($b4),b($97),b($87),b($78)¢¢ dta b($d6),b($be),b($aa),b($a0)¢ dta b($8f),b($7f),b($71),b($ca)¢ dta b($b4),b($97),b($87),b($78)¢¢ dta b($ca),b($d6),b($be)¢¢modhi dta b(3),b(2),b(2),b(2),b(2)¢ dta b(1),b(1),b(3),b(2),b(2),b(2)¢ dta b(1)¢¢ dta b(1),b(1),b(1),b(1),b(1),b(0)¢ dta b(0),b(1),b(1),b(1),b(1),b(0)¢¢ dta b(0),b(0),b(0),b(0),b(0),b(0)¢ dta b(0),b(0),b(0),b(0),b(0),b(0)¢¢ dta b(0),b(0),b(0),b(0),b(0),b(0)¢ dta b(0),b(0),b(0),b(0),b(0),b(0)¢¢ dta b(0),b(0),b(0),b(0),b(0),b(0)¢ dta b(0),b(0),b(0),b(0),b(0),b(0)¢¢ dta b(0),b(0),b(0)¢¢add tya¢ clc¢ adc adrp¢ sta adrp¢ bcc *+4¢ inc adrp+1¢ rts¢¢add2 tya¢ clc¢ adc adrc¢ sta adrc¢ bcc *+4¢ inc adrc+1¢ rts¢¢ûΣΘ≥σπ⌠∩≥∙™é¢dir lda #':'¢ cmp text+1¢ beq std¢ cmp text+2¢ beq std¢ lda <dom¢ sta adrf¢ lda >dom¢ sta adrf+1¢ jmp dir2¢std lda <text¢ sta adrf¢ lda >text¢ sta adrf+1¢dir2 ldy #119¢ lda text,y¢ cmp #'*'¢ beq dir3¢ cmp #'?'¢ beq dir3¢ dey¢ bpl dir2+2¢ jsr ext¢ ldy #$ff¢ rts¢dir3 jsr ext¢ ldx #$10¢ jsr close¢ lda #3¢ sta $342,x¢ lda adrf¢ sta $344,x¢ lda adrf+1¢ sta $345,x¢ lda #6¢ sta $34a,x¢ lda #0¢ sta $34b,x¢ jsr $e456¢ bpl dir4¢ rts¢dir4 ldx #$10¢ lda #0¢ sta $348¢ sta $349¢ sta $348,x¢ sta $349,x¢ lda #5¢ sta $342,x¢ jsr $e456¢ bpl noend¢ cpy #136¢ bne ic¢ ldy #1¢ic rts¢noend ldx #11¢ stx $342¢ ldx #0¢ jsr $e456¢ jmp dir4¢¢mod1 lda <emod¢ sta ekst+1¢ lda >emod¢ sta ekst+2¢ rts¢tmc1 lda <etmc¢ sta ekst+1¢ lda >etmc¢ sta ekst+2¢ rts¢¢ext ldy #119¢ lda text,y¢ cmp #'.'¢ beq dir5¢ dey¢ bpl ext+2¢dir6 iny¢ lda text,y¢ cmp #$9b¢ beq *+4¢ bne dir6¢ ldx #4¢ekst lda etmc,x¢ sta text,y¢ iny¢ dex¢ bpl dir6+12¢dir5 rts¢¢û∩≡σ∈´áβ¼∙©µ∈ϕá°©πΦ∈∮é¢ûáπ©ãá≥σβΣ¼áπ©õá≈≥Θ⌠σé¢openf sta $344,x¢ tya¢ sta $345,x¢ lda #3¢ sta $342,x¢ lda #4¢ bcc *+3¢ asl @¢ sta $34a,x¢ lda #0¢ sta $34b,x¢ jmp $e456¢¢û≈≥Θ⌠σ´áβ¼∙©Γ⌡µ¼á°©πΦ∈∮é¢ûááááááá≤Θ·ø©Γ⌡µá≤Θ·σááé¢write sta $344,x¢ tya¢ sta $345,x¢ lda #11¢ sta $342,x¢ lda siz3¢ sta $348,x¢ lda siz3+1¢ sta $349,x¢ jmp $e456¢siz3 brk¢ brk¢¢û≥σβΣ´áβ¼∙©Γ⌡µ¼á°©πΦ∈∮é¢ûáááááá≤Θ·ø©Γ⌡µá≤Θ·σááé¢read sta $344,x¢ tya¢ sta $345,x¢ lda #7¢ sta $342,x¢ lda siz3¢ sta $348,x¢ lda siz3+1¢ sta $349,x¢ jsr $e456¢ lda $348,x¢ sta siz3¢ lda $349,x¢ sta siz3+1¢ ldy $343,x¢ rts¢¢û≥∩⌡⌠Θ∈σ≤é¢eol ldx <eol_¢ ldy >eol_¢ jmp $c642¢¢close lda #12¢ sta $342,x¢ jmp $e456¢¢getfnm ldy #119¢ lda #0¢getfn sta text,y¢ dey¢ bne getfn¢¢ ldx #0¢ lda #5¢ sta $342¢ lda <text¢ sta $344¢ lda >text¢ sta $345¢ lda #$f¢ sta $349¢ jmp $e456¢¢outm ldx <outm_¢ ldy >outm_¢ jmp $c642¢notf ldx <notf_¢ ldy >notf_¢ jmp $c642¢break ldx <break_¢ ldy >break_¢ jmp $c642¢dskfl ldx <dskfl_¢ ldy >dskfl_¢ jmp $c642¢tmcbad ldx <tmcbd_¢ ldy >tmcbd_¢ jmp $c642¢¢error sty byte¢ jsr eol¢ ldy byte¢ cpy #1¢ beq outm¢ cpy #170¢ beq notf¢ cpy #128¢ beq break¢ cpy #162¢ beq dskfl¢ cpy #$ff¢ beq tmcbad¢ jsr cnv¢ ldy #2¢ lda wrd¢ jsr dsp_2¢ lda wrd+1¢ jsr dsp_1¢ ldx <errx¢ ldy >errx¢ jmp $c642¢cnv lda #0¢ sta wrd¢ sta wrd+1¢ ldx #8¢ sed¢cv1 asl byte¢ lda wrd¢ adc wrd¢ sta wrd¢ rol wrd+1¢ dex¢ bne cv1¢ cld¢ rts¢dsp_2 pha¢ jsr dsp_1¢ pla¢ lsr @¢ lsr @¢ lsr @¢ lsr @¢ jsr dsp_1¢ rts¢dsp_1 and #$f¢ ora #48¢ sta num,y¢ dey¢ rts¢byte brk¢wrd brk¢ brk¢¢emod dta b($9b),c'DOM.'¢etmc dta b($9b),c'CMT.'¢¢ûϕσ≤≤βτσ≤é¢titl dta c'ûקלבƒלנגáπö∈÷á÷ã«øáöΓσ⌠βöé',b($9b)¢tit2 dta c' Serious #5 ver. [2nd edit]',b($9b)¢eol_ equ *-1¢titl2 dta c' ars+mateoos/aids 99-8-30',b($9b)¢titl3 dta c'[A] MODTMC',b($9b)¢titl4 dta c'[B] TMCMOD',b($9b)¢titl5 dta c'[] Exit',b($9b)¢l dta c'Source:',b($9b)¢s dta c'Target:',b($9b)¢compl dta c'④Complete④',b($9b)¢errx dta c'²Error #'¢num dta c' ',b($9b)¢outm_ dta c'²Out of memory',b($9b)¢notf_ dta c'²File not found',b($9b)¢break_ dta c'²Break abort',b($9b)¢dskfl_ dta c'²Disk full',b($9b)¢tmcbd_ dta c'²Not TMC file',b($9b)¢tmcnm2 dta c'Speed: ?',b($9b)¢tmcnm3 dta c'Frame: ?',b($9b)¢tmcnm_ dta c'Title: '¢tmcnm org *+33¢¢ org $2e0¢ dta a(runn)¢