0100 .OPT NO LIST
0110 ;
0120 ; GRABADOR SISTEMA NHP VER 3.6
0130 ;
0140 ; SAVE #D8:GRABB
0150 ;
0160 ;
0170 ; ASM,,#D8:GRABB.COM
0180 ;
0190 @LEN = LEN+2
0200 @LBAF = LEN+4
0210 PPILA = LEN+5
0220 PCRSR = $CB
0230 ORG = PCRSR
0240 SVMSC = $58
0250 POSXY = $54
0260 LENGHT = $4000
0270 BAFER = $4000
0280 FR0 = $D4
0290 CIX = $F2
0300 AFP = $D800
0310 IFP = $D9AA
0320 FPI = $D9D2
0330 FASC = $D8E6
0340 ZFR0 = $DA44
0350 FDIV = $DB28
0360 FMUL = $DADB
0370 FMOVE = $DDB6
0380 INBUFF = $F3
0390 LBUFF = $0580
0400 LLOAD = PAG7-LOAD
0410 LVBLANK = LOADER-VBLANK
0420 LAUTO = PAG4-PAG7
0430 BL4 = LAUTO/128
0440 LAST = LAUTO-128*BL4
0450 ;
0460 *= $2000
0470 .INCLUDE #D8:KEM2
0480 RY
0490 .BYTE 0,0
0500 LEN
0510 .BYTE 0,0,0,0,0,0
0520 CONT
0530 .BYTE 0,0
0540 STARTF
0550 .BYTE 0,0
0560 FINISH
0570 .BYTE 0,0
0580 @BL4
0590 .BYTE 0
0600 ?FILE
0610 .BYTE "D:"
0620 ??FILE
0630 .BYTE " "
0640 BBLQS
0650 .BYTE "000",$9B
0660 ALL
0670 .BYTE "D:*.*",$9B
0680 DNHP
0690 .BYTE $60,$00,$50,$80
0700 .WORD ??DIR
0710 .BYTE $35,$00,$00,$01,$00,$80
0720 BAKBYT
0730 .SBYTE "00000"
0740 BAKBLQ
0750 .SBYTE "000"
0760 TURBO
0770 .SBYTE "TURBO"
0780 FTURBO
0790 .BYTE $FF
0800 TON
0810 .SBYTE "ON "
0820 RESTORE
0830 LDY #19
0840 ?RESTORE
0850 LDA #$20
0860 STA ??FILE,Y
0870 LDA #$00
0880 STA NAME,Y
0890 STA FILE,Y
0900 DEY
0910 BPL ?RESTORE
0920 LDY #23
0930 ??RESTORE
0940 LDA #$00
0950 STA CRSR,Y
0960 DEY
0970 BPL ??RESTORE
0980 LDY #34
0990 ???RESTORE
1000 LDA #$00
1010 STA FILE,Y
1020 DEY
1030 BPL ???RESTORE
1040 LDA #63
1050 STA CRSR
1060 STA FILE
1070 LDA #$10
1080 LDY #$04
1090 RESNUM
1100 STA BYTES,Y
1110 DEY
1120 BPL RESNUM
1130 STA BLOQUES
1140 STA BLOQUES+1
1150 STA BLOQUES+2
1160 LDA #$FF
1170 STA $D301
1180 RTS
1190 ASCINT
1200 CMP #32
1210 BCC ADD64
1220 CMP #96
1230 BCC SUB32
1240 CMP #128
1250 BCC REMAIN
1260 CMP #160
1270 BCC ADD64
1280 CMP #224
1290 BCC SUB32
1300 BCS REMAIN
1310 ADD64
1320 CLC
1330 ADC #64
1340 BCC REMAIN
1350 SUB32
1360 SEC
1370 SBC #32
1380 REMAIN
1390 RTS
1400 SETUR
1410 LDX #$04
1420 LOSTR
1430 LDA TURBO,X
1440 CMP CRSR,X
1450 BNE EXSTUR
1460 DEX
1470 BPL LOSTR
1480 LDA FTURBO
1490 EOR #$01
1500 STA FTURBO
1510 LDX #$02
1520 LOMVTR
1530 LDA TON,X
1540 PHA
1550 LDA TOF,X
1560 STA TON,X
1570 PLA
1580 STA TOF,X
1590 DEX
1600 BPL LOMVTR
1610 LDX #$00
1620 TXS
1630 JMP START
1640 EXSTUR
1650 RTS
1660 CLS
1670 LDX # 1680 LDY # >??DIR
1690 STX PCRSR
1700 STY PCRSR+1
1710 LDY #$00
1720 LDX #$00
1730 ?CLS
1740 LDA #$00
1750 STA (PCRSR),Y
1760 INY
1770 BNE ??CLS
1780 INX
1790 INC PCRSR+1
1800 ??CLS
1810 CPY #104
1820 BNE ?CLS
1830 CPX #$01
1840 BNE ?CLS
1850 RTS
1860 OPEN
1870 LDX #$10
1880 LDA #$03
1890 STA $0342,X
1900 LDA # 1910 STA $0344,X
1920 LDA # >?FILE
1930 STA $0345,X
1940 LDA #$04
1950 STA $034A,X
1960 LDA #$80
1970 STA $034B,X
1980 JSR $E456
1990 DEY
2000 BNE DIR
2010 RTS
2020 CLOSE
2030 LDX #$10
2040 LDA #$0C
2050 STA $0342,X
2060 JMP $E456
2070 DIR
2080 JSR CLOSE
2090 JSR CLS
2100 LDX # 2110 LDY # >?DIR
2120 STX $0230
2130 STY $0231
2140 LDX # 2150 LDY # >??DIR
2160 STX PCRSR
2170 STY PCRSR+1
2180 LDX #$10
2190 LDA #$03
2200 STA $0342,X
2210 LDA # 2220 STA $0344,X
2230 LDA # >ALL
2240 STA $0345,X
2250 LDA #$06
2260 STA $034A,X
2270 LDA #$00
2280 STA $034B,X
2290 JSR $E456
2300 LDA #$07
2310 STA $0342,X
2320 LDA #$00
2330 STA $0348,X
2340 STA $0349,X
2350 STA RY
2360 STA RY+1
2370 LEDIR
2380 JSR $E456
2390 BMI ?EXIT
2400 CMP #155
2410 BEQ EXIT
2420 JSR ASCINT
2430 LDY RY
2440 STA (PCRSR),Y
2450 INC RY
2460 BNE F0
2470 INC PCRSR+1
2480 INC RY+1
2490 F0
2500 LDY RY+1
2510 CPY #$01
2520 BNE F1
2530 LDY RY
2540 CPY #104
2550 BCC F1
2560 JSR PAUSE
2570 INC RY
2580 F1
2590 JMP LEDIR
2600 EXIT
2610 INC RY
2620 INC RY
2630 INC RY
2640 JMP LEDIR
2650 ?EXIT
2660 JSR CLOSE
2670 JSR PAUSE
2680 JSR CLS
2690 PLA
2700 PLA
2710 JMP START
2720 PAUSE
2730 LDA 53279
2740 CMP #$06
2750 BNE PAUSE
2760 JSR CLS
2770 LDA #$00
2780 STA RY
2790 STA RY+1
2800 LDA # 2810 STA PCRSR
2820 LDA # >??DIR
2830 STA PCRSR+1
2840 LDX #$10
2850 RTS
2860 FLSH
2870 LDY RY
2880 LDA (PCRSR),Y
2890 EOR #63
2900 STA (PCRSR),Y
2910 LDA #$10
2920 STA $021A
2930 RTS
2940 OPENK
2950 LDA #255
2960 STA 764
2970 LDX #$10
2980 LDA #$03
2990 STA $0342,X
3000 STA $0345,X
3010 LDA #$26
3020 STA $0344,X
3030 LDA #$04
3040 STA $034A,X
3050 JSR $E456
3060 LDA #$07
3070 STA $0342,X
3080 LDA #$00
3090 STA $0348,X
3100 STA $0349,X
3110 STA RY
3120 RTS
3130 RUTLEE
3140 LDX # 3150 LDY # >FLSH
3160 LDA #$10
3170 STX $0228
3180 STY $0229
3190 STA $021A
3200 JSR OPENK
3210 GETEC
3220 JSR $E456
3230 CMP #'~
3240 BNE C0
3250 LDY RY
3260 BEQ GETEC
3270 LDA #$00
3280 STA (PCRSR),Y
3290 LDA #63
3300 DEY
3310 STA (PCRSR),Y
3320 DEC RY
3330 JMP GETEC
3340 C0
3350 CMP #155
3360 BEQ C2
3370 JSR ASCINT
3380 LDY RY
3390 STA (PCRSR),Y
3400 CPY #20
3410 BEQ C1
3420 INC RY
3430 C1
3440 JMP GETEC
3450 C2
3460 JSR CLOSE
3470 LDA #$00
3480 STA $021A
3490 LDY RY
3500 STA (PCRSR),Y
3510 RTS
3520 FGET
3530 LDA #$DF
3540 STA $D301
3550 LDA #$00
3560 STA LEN
3570 STA LEN+1
3580 LOPFGET
3590 LDX #$10
3600 LDA #$07
3610 STA $0342,X
3620 LDA # 3630 STA $0344,X
3640 LDA # >BAFER
3650 STA $0345,X
3660 LDA # 3670 STA $0348,X
3680 LDA # >LENGHT
3690 STA $0349,X
3700 ??FGET
3710 JSR $E456
3720 CLC
3730 LDA LEN
3740 ADC $0348,X
3750 STA LEN
3760 LDA LEN+1
3770 ADC $0349,X
3780 STA LEN+1
3790 CLC
3800 LDA $D301
3810 ADC #$04
3820 STA $D301
3830 LDA $0349,X
3840 CMP # >LENGHT
3850 BEQ LOPFGET
3860 CPY #136
3870 BEQ ?FGET
3880 JSR CLOSE
3890 JSR CLS
3900 LDX #$00
3910 TXS
3920 JMP START
3930 ?FGET
3940 JSR ZFR0
3950 LDA #252
3960 STA FR0
3970 JSR IFP
3980 JSR FMOVE
3990 LDA LEN
4000 STA FR0
4010 LDA LEN+1
4020 STA FR0+1
4030 JSR IFP
4040 JSR PONBYTES
4050 JSR FDIV
4060 JSR PONBLOQUES
4070 JSR FPI
4080 LDA FR0
4090 PHA
4100 DEC FR0
4110 JSR IFP
4120 JSR FMOVE
4130 LDA #252
4140 STA FR0
4150 LDA #$00
4160 STA FR0+1
4170 JSR IFP
4180 JSR FMUL
4190 JSR FPI
4200 SEC
4210 LDA LEN
4220 SBC FR0
4230 STA CONT+1
4240 INC CONT+1
4250 PLA
4260 STA CONT
4270 LDX #$10
4280 RTS
4290 PONBYTES
4300 JSR NBYTES
4310 STY RY
4320 LDY #$04
4330 ?PONBYTES
4340 LDA LBUFF,X
4350 AND #$5F
4360 STA BYTES,Y
4370 DEY
4380 DEX
4390 DEC RY
4400 BPL ?PONBYTES
4410 RTS
4420 PONBLOQUES
4430 JSR NBYTES
4440 STY RY
4450 LDY #$02
4460 ?PONBLOQUES
4470 LDA LBUFF,X
4480 AND #$5F
4490 STA BLOQUES,Y
4500 DEY
4510 DEX
4520 DEC RY
4530 BPL ?PONBLOQUES
4540 LDA BLOQUES+2
4550 CMP #$19
4560 BEQ ??PP0
4570 INC BLOQUES+2
4580 PP0
4590 LDY #$02
4600 MVBLQ
4610 LDA BLOQUES,Y
4620 ORA #$20
4630 STA BBLQS,Y
4640 DEY
4650 BPL MVBLQ
4660 LDX # 4670 LDY # >BBLQS
4680 LDA #$00
4690 STX INBUFF
4700 STY INBUFF+1
4710 STA CIX
4720 JMP AFP
4730 ??PP0
4740 LDA #$10
4750 STA BLOQUES+2
4760 LDA BLOQUES+1
4770 CMP #$19
4780 BEQ ???PP0
4790 INC BLOQUES+1
4800 JMP PP0
4810 ???PP0
4820 LDA #$10
4830 STA BLOQUES+1
4840 INC BLOQUES
4850 JMP PP0
4860 NBYTES
4870 JSR FASC
4880 LDX #$00
4890 LDY #$00
4900 LDA LBUFF
4910 CMP #'0
4920 BNE PL0
4930 INX
4940 PL0
4950 LDA LBUFF,X
4960 CMP #$80
4970 BCS PL1
4980 CMP #'.
4990 BEQ PL2
5000 INX
5010 INY
5020 JMP PL0
5030 PL1
5040 RTS
5050 PL2
5060 DEX
5070 LDA LBUFF,X
5080 ORA #$80
5090 STA LBUFF,X
5100 DEY
5110 RTS
5120 LOAD
5130 .BYTE "UU",162,"D  L&`R@#ppppppppppppGFppppppppppppBZA%prisma"
5140 .BYTE "#!2'!2!$%.42/$%"
5150 BLQ
5160 .BYTE "000",34,",/15%32%42/#%$!65%,4!3902%3)/.%"
5170 .BYTE 162,"0έ1έ/έέ`",162,"Ν΍0΍1΍/΍΍"
5180 .BYTE "`",162,"%̎0ԍ1ԩ:/ԩ ԩ",162,"?͝Z",162,"̍A̎B`(F",162,""
5190 .BYTE "A̎B` Dͩ<ө  iLͩ4",162,"",162,")LY` "
5200 .BYTE "J ",162," ̝ Y0ͱΐLͭ",162,"qqq αΠML"
5210 .BYTE "",162,"_ \",162,"",162,"",34,"/<",162,"Ӛ",162,"l"
5220 .BYTE " ͍L ͍M-L ͍ ͍ ͍LM LMLHέ",162," "
5230 .BYTE " iͬ",162,"L)",162,"ΝL< `l"
5240 PFIN
5250 .BYTE 0
5260 PAG7
5270 .BYTE "UU  k",162,"ЩнЊ ˹m̠@ˈ~ˈ8~A",162," "
5280 .BYTE "_ Y``R@#",162,"Ԏˆ",162,"`BOOpp<",162,""
5290 .BYTE "xHԆ̄˱ӑ ؅",162,"Lg",162,"댨ꙅ"
5300 .BYTE "7hX`}bd}m8d",162,"OmLL="
5310 PAG4
5320 .BYTE "UU)",162," p Y0L5",34,"/ԠUX<|}tu~xy"
5330 .BYTE "`L#!2'5%.5%6!-%.4%`R@#"
5340 .WORD LLOAD
5350 .BYTE ""
5360 .WORD LVBLANK
5370 VBLANK
5380 .BYTE "UULXWiйeҩҩd",162,"5 \cL_dҬWi",162,""
5390 .BYTE " \L_",162,"b \`b ",162,"x \L_ )bjcb",162," \L_c"
5400 .BYTE "bc",162," \L_jH",162,"LNhL",162,"ގLN d",162,"5 \L_",162,""
5410 .BYTE "x \L_cbѭ)HC> 9L_",162,"(/Ҍҩd",162,"8LN",162,""
5420 .BYTE "5 \L_",162,"b \L_䘮cjH",162,"LNhLd<"
5430 LOADER
5440 .BYTE "UUV",162,"/Ӛ)ʍӽP]HA/`D1ySZ!UYYS'8ҪɝyeW 2PW;"
5450 .BYTE "^."
5460 OPENC
5470 LDA $D40B
5480 BNE OPENC
5490 LDA #$FF
5500 STA 764
5510 ?OPENC
5520 LDA 764
5530 CMP #$FF
5540 BEQ ?OPENC
5550 LDA #$FF
5560 STA 764
5570 JMP $FD40
5580 PONDATA
5590 LDX #$02
5600 ?PONDATA
5610 LDA BLOQUES,X
5620 STA BLQ,X
5630 DEX
5640 BPL ?PONDATA
5650 RTS
5660 INITSIOV
5670 LDY #$0B
5680 ?INITSIOV
5690 LDA DNHP,Y
5700 STA $0300,Y
5710 DEY
5720 BPL ?INITSIOV
5730 LDA #$00
5740 STA 77
5750 RTS
5760 AUTORUN
5770 JSR INITSIOV
5780 LDX # 5790 LDY # >LOADER
5800 STX $0304
5810 STY $0305
5820 LDX #131
5830 LDY #$00
5840 STX $0308
5850 STY $0309
5860 JSR $E459
5870 JSR INITSIOV
5880 LDX # 5890 LDY # >PAG7
5900 STX $0304
5910 STY $0305
5920 LDX # 5930 LDY # >LAUTO
5940 STX $0308
5950 STY $0309
5960 JSR $E459
5970 JMP PAUSA
5980 GAUTO
5990 LDA #$FF
6000 STA $D301
6010 JSR AUTORUN
6020 JSR INITSIOV
6030 LDX # <131
6040 LDY # >131
6050 STX $0308
6060 STY $0309
6070 LDX # 6080 LDY # >PAG4
6090 STX $0304
6100 STY $0305
6110 JSR $E459
6120 LDA $D301
6130 AND FTURBO
6140 STA $D301
6150 JSR INITSIOV
6160 LDX # 6170 LDY # >LLOAD
6180 STX $0308
6190 STY $0309
6200 LDX # 6210 LDY # >LOAD
6220 STX $0304
6230 STY $0305
6240 JSR $E459
6250 JSR INITSIOV
6260 LDX # 6270 LDY # >LVBLANK
6280 STX $0308
6290 STY $0309
6300 LDX # 6310 LDY # >VBLANK
6320 STX $0304
6330 STY $0305
6340 JMP $E459
6350 PAUSA
6360 LDX #$20
6370 STX $021C
6380 ONROM
6390 LDX $021C
6400 BNE ONROM
6410 RTS
6420 REST
6430 LDY #$04
6440 ??REST
6450 LDA BYTES,Y
6460 STA BAKBYT,Y
6470 DEY
6480 BPL ??REST
6490 LDY #$02
6500 ???REST
6510 LDA BLOQUES,Y
6520 STA BAKBLQ,Y
6530 DEY
6540 BPL ???REST
6550 RTS
6560 ?REST
6570 LDY #$04
6580 ????REST
6590 LDA BAKBYT,Y
6600 STA BYTES,Y
6610 DEY
6620 BPL ????REST
6630 LDY #$02
6640 ?????REST
6650 LDA BAKBLQ,Y
6660 STA BLOQUES,Y
6670 DEY
6680 BPL ?????REST
6690 LDA CONT
6700 STA PFIN
6710 RTS
6720 NHPUT
6730 LDX LEN
6740 LDY LEN+1
6750 STX @LEN
6760 STY @LEN+1
6770 TSX
6780 STX PPILA
6790 LDA #$00
6800 STA @LBAF
6810 LDA #$55
6820 STA ??DIR
6830 STA ??DIR+1
6840 LDA #252
6850 STA ??DIR+255
6860 LDA FTURBO
6870 AND #$DF
6880 STA $D301
6890 LDX # 6900 LDY # >BAFER
6910 STX M+1
6920 STY M+2
6930 LDX #$00
6940 LDY #$00
6950 STY $02E2
6960 JSR GRABACION
6970 JMP ?MVBF
6980 GRABACION
6990 LDA PFIN
7000 STA ??DIR+2
7010 RTS
7020 ?MVBF
7030 JSR GBYTE
7040 STA STARTF
7050 JSR GBYTE
7060 STA STARTF+1
7070 AND STARTF
7080 CMP #$FF
7090 BEQ ?MVBF
7100 JSR GBYTE
7110 STA FINISH
7120 JSR GBYTE
7130 STA FINISH+1
7140 NHLOP
7150 JSR GBYTE
7160 LDA STARTF
7170 CMP #$E3
7180 BNE ?NHLOP
7190 LDA STARTF+1
7200 CMP #$02
7210 BNE ?NHLOP
7220 STA $02E2
7230 ?NHLOP
7240 LDA STARTF
7250 CMP FINISH
7260 BNE NHCONT
7270 LDA STARTF+1
7280 CMP FINISH+1
7290 BEQ ?MVBF
7300 NHCONT
7310 INC STARTF
7320 BNE NOHI
7330 INC STARTF+1
7340 NOHI
7350 JMP NHLOP
7360 GBYTE
7370 LDA @LEN
7380 ORA @LEN+1
7390 BEQ EGRAB
7400 CPY #252 ; ??DIR+255
7410 BEQ EGRAB
7420 INC @LBAF
7430 DEC @LEN
7440 LDA @LEN
7450 CMP #$FF
7460 BNE @NODLEN
7470 DEC @LEN+1
7480 @NODLEN
7490 TYA
7500 M
7510 EOR BAFER,X
7520 STA ??DIR+3,Y
7530 TYA
7540 EOR ??DIR+3,Y
7550 INY
7560 INX
7570 BNE EXNHPIT
7580 INC M+2
7590 BPL EXNHPIT
7600 PHA
7610 CLC
7620 LDA $D301
7630 ADC #$04
7640 STA $D301
7650 LDA # >BAFER
7660 STA M+2
7670 PLA
7680 EXNHPIT
7690 RTS
7700 EXNHPUT
7710 LDA #$80
7720 STA 77
7730 LDX PPILA
7740 TXS
7750 RTS
7760 EGRAB
7770 DEC PFIN
7780 LDA @LBAF
7790 STA ??DIR+255
7800 TXA
7810 PHA
7820 JSR INITSIOV
7830 JSR $E459
7840 LDA @LEN
7850 ORA @LEN+1
7860 BEQ EXNHPUT
7870 LDX #$02
7880 DECBL01
7890 LDA BLOQUES,X
7900 CMP #$10
7910 BNE DECBL02
7920 LDA #$19
7930 STA BLOQUES,X
7940 DEX
7950 BPL DECBL01
7960 DECBL02
7970 DEC BLOQUES,X
7980 PLA
7990 TAX
8000 LDA $02E2
8010 BNE SLOWB
8020 SIGUE
8030 JSR GRABACION
8040 LDY #$00
8050 STY @LBAF
8060 JMP GBYTE
8070 SLOWB
8080 TXA
8090 PHA
8100 LDX # <350
8110 LDY # >350
8120 STX $021C
8130 STY $021D
8140 IRG
8150 LDA $021D
8160 BNE IRG
8170 LDA $021C
8180 BNE IRG
8190 LDA #$00
8200 STA $02E2
8210 PLA
8220 TAX
8230 JMP SIGUE
8240 DLS
8250 .BYTE $70,$70,$70,$46
8260 .WORD SHOW
8270 .BYTE $70,$70,$02
8280 .BYTE "ppp",$02
8290 .BYTE "ppp",$06,"ppp",$02
8300 .BYTE "ppp",$06,"ppp",$02,$41
8310 .WORD DLS
8320 ; -------------------------
8330 ; DEFINICION DEL DISPLAY
8340 ; PARA DIRECTORIO
8350 ; -------------------------
8360 ?DIR
8370 .BYTE "pppppppp",$46
8380 .WORD ???DIR
8390 .BYTE $70,$02,$02,$02,$02
8400 .BYTE $02,$02,$02,$02,$02,$41
8410 .WORD ?DIR
8420 SHOW
8430 .SBYTE " NHP CON SIMON 1991 "
8440 .SBYTE " РϠϠ͠ҠŠϠ "
8450 .SBYTE "Š"
8460 CRSR
8470 .SBYTE "_ "
8480 NAME
8490 .SBYTE " "
8500 .SBYTE "ź"
8510 FILE
8520 .SBYTE "_ "
8530 .SBYTE " TURBO "
8540 TOF
8550 .SBYTE "OFF "
8560 .SBYTE "ӠӺ "
8570 BYTES
8580 .SBYTE "***** Ӻ "
8590 BLOQUES
8600 .SBYTE "*** "
8610 ???DIR
8620 .SBYTE " DIRECTORIO "
8630 ??DIR
8640 .SBYTE " "
8650 .SBYTE " "
8660 .SBYTE " "
8670 .SBYTE " "
8680 .SBYTE " "
8690 .SBYTE " "
8700 .SBYTE " "
8710 .SBYTE " "
8720 .SBYTE " "
8730 .SBYTE " "
8740 DOS
8750 JMP ($0C)
8760 START
8770 JSR DOS
8780 LDX # 8790 LDY # >DLS
8800 STX $0230
8810 STY $0231
8820 LDA #$90
8830 STA $02C8
8840 STA $02C6
8850 LDA #$CA
8860 STA $02C5
8870 JSR RESTORE
8880 LDX # 8890 LDY # >CRSR
8900 STX PCRSR
8910 STY PCRSR+1
8920 JSR RUTLEE
8930 JSR SETUR
8940 TYA
8950 BEQ NOTITLE
8960 LSR A
8970 STA RY+1
8980 LDA #10
8990 SEC
9000 SBC RY+1
9010 STA RY+1
9020 LDX #$00
9030 LDY RY+1
9040 WRITE
9050 LDA CRSR,X
9060 STA NAME,Y
9070 INY
9080 INX
9090 CPX RY
9100 BNE WRITE
9110 NOTITLE
9120 LDX # 9130 LDY # >FILE
9140 STX PCRSR
9150 STY PCRSR+1
9160 JSR RUTLEE
9170 LDY #19
9180 CONV
9190 LDA FILE,Y
9200 BEQ ?REMAIN
9210 AND #$7F
9220 CMP #64
9230 BCC ADD32
9240 CMP #96
9250 BCC SUB64
9260 BCS ?REMAIN
9270 ADD32
9280 CLC
9290 ADC #32
9300 BCC OKLET
9310 SUB64
9320 SEC
9330 SBC #64
9340 ?REMAIN
9350 LDA #$9B
9360 OKLET
9370 STA ??FILE,Y
9380 DEY
9390 BPL CONV
9400 JSR OPEN
9410 JSR FGET
9420 JSR CLOSE
9430 JSR PONDATA
9440 JSR REST
9450 OTRACOPIA
9460 JSR ?REST
9470 JSR OPENC
9480 JSR GAUTO
9490 JSR NHPUT
9500 LDX #$3C
9510 LDA #$03
9520 STA 53775
9530 STX $D302
9540 WAIT
9550 LDA 53279
9560 CMP #$07
9570 BEQ WAIT
9580 CMP #$06
9590 BEQ OTRACOPIA
9600 CMP #$03
9610 BNE WAIT
9620 JMP START
9630 PIRATAS
9640 JSR CLOSE
9650 LDX # 9660 LDY # >OPENK
9670 ; JSR $5000
9680 JSR CLOSE
9690 JSR KEM
9700 LDX #$00
9710 STX 580
9720 DEX
9730 STX $08
9740 LDX # 9750 LDY # >START
9760 LDA #$03
9770 STX $02
9780 STY $03
9790 STA $09
9800 JMP START
9810 *= $02E0
9820 .WORD PIRATAS