Mijo es el mismo caso anterior.dogdark escribió:80FB 9D4903
Código: Seleccionar todo
80F8 AD0380 M LDA %3+1
80FB 9D4903 M STA ICBLEN+1,X
80FE 2056E4 M JSR CIO
Saludos
wn porfiado turbo software parte II + codigos
Re: wn porfiado turbo software parte II + codigos
Saludos
Re: wn porfiado turbo software parte II + codigos
yo creo que por ahi esta el problema, en los tipeos del codigo mismo, hay otro error que yo lo repare en la linea
2770 se repite dos veces la primera lo deje como 2710 y la otra como 2770 con sus respectivos codigos
2770 se repite dos veces la primera lo deje como 2710 y la otra como 2770 con sus respectivos codigos
Re: wn porfiado turbo software parte II + codigos
ya el tenis1.mac estaria sin errores, revisado con pinzas, ahora voy por el tenis2.mac. a ver donde quedan esos errores malditos que no deja que funcione el proyecto
Re: wn porfiado turbo software parte II + codigos
revise nuevamente el codigo y solo tengo problema en la linea 1100 la direccion que me devuelve no corresponde, es la unica linea con el problema
esta 30D9 A9F5 1100 LDA # <FIN-GAMEA
y deberia 30D9 A914 1100 LDA # <FIN-GAMEA
lo raro que todo lo demas esta igual al documento original
ensamblador + iomac + sysequ
esta 30D9 A9F5 1100 LDA # <FIN-GAMEA
y deberia 30D9 A914 1100 LDA # <FIN-GAMEA
lo raro que todo lo demas esta igual al documento original
ensamblador + iomac + sysequ
Código: Seleccionar todo
PAGE 1 IOMAC.LIB -- OSS system I/O macros
0100 ; SAVE #D:ENSAMBLA.MAC
0110 ; ASM,#P:,#D2:TURBO.XEX
0115 ;
=F2B0 0120 PRINTBYTE = $F2B0
=F2F8 0130 GETBYTE = $F2F8
0135 ;
0140 .SET 4,70
0150 .OPT LIST
0160 .OPT NO MLIST
0170 .INCLUDE #D:SYSEQU.M65
1000 .PAGE "FTe SYSTEM EQUATES FOR ATARI"
?PAGE 2 IOMAC.LIB -- OSS system I/O macros
FTe SYSTEM EQUATES FOR ATARI D:SYSEQU.M65?
1010 ;
1020 ; FILE = #DN:SYSEQU.ASM
1030 ;
1040 ;
1050 ; I/O CONTROL BLOCK EQUATES
1060 ;
=0000 1065 SAVEPC = * ; SAVE CURRENT ORG
1067 ;
0000 1070 *= $0340 ;START OF SYSTEM IOCBS
0340 1075 IOCB
1080 ;
0340 1090 ICHID *= *+1 ;DEVICE HANDLER IS (SET BY OS)
0341 1100 ICDNO *= *+1 ;DEVICE NUMBER (SET BY OS)
0342 1110 ICCOM *= *+1 ;I/O COMMAND
0343 1120 ICSTA *= *+1 ;I/O STATUS
0344 1130 ICBADR *= *+2 ;BUFFER ADDRESS
0346 1140 ICPUT *= *+2 ;DH PUT ROUTINE (ADR-1)
0348 1150 ICBLEN *= *+2 ;BUFFER LENGTH
034A 1160 ICAUX1 *= *+1 ;AUX 1
034B 1170 ICAUX2 *= *+1 ;AUX 2
034C 1180 ICAUX3 *= *+1 ;AUX 3
034D 1190 ICAUX4 *= *+1 ;AUX 4
034E 1200 ICAUX5 *= *+1 ;AUX 5
034F 1210 ICAUX6 *= *+1 ;AUX 6
1220 ;
=0010 1230 IOCBLEN = *-IOCB ;LENGTH OF ONE IOCB
1240 ;
1250 ; IOCB COMMAND VALUE EQUATES
1260 ;
=0003 1270 COPN = 3 ;OPEN
=0007 1280 CGBINR = 7 ;GET BINARY RECORD
=0005 1290 CGTXTR = 5 ;GET TEXT RECORD
=000B 1300 CPBINR = 11 ;PUT BINARY RECORD
=0009 1310 CPTXTR = 9 ;PUT TEXT RECORD
=000C 1320 CCLOSE = 12 ;CLOSE
=000D 1330 CSTAT = 13 ;GET STATUS
1340 ;
1350 ; DEVICE DEPENDENT COMMAND EQUATES FOR FILE MANAGER
1360 ;
=0020 1370 CREN = 32 ;RENAME
=0021 1380 CERA = 33 ;ERASE
=0023 1390 CPRO = 35 ;PROTECT
=0024 1400 CUNP = 36 ;UNPROTECT
=0025 1410 CPOINT = 37 ;POINT
=0026 1420 CNOTE = 38 ;NOTE
1430 ;
1440 ; AUX1 VALUES REQD FOR OPEN
1450 ;
=0004 1460 OPIN = 4 ;OPEN INPUT
=0008 1470 OPOUT = 8 ;OPEN OUTPUT
=000C 1480 OPUPD = 12 ;OPEN UPDATE
=0009 1490 OPAPND = 9 ;OPEN APPEND
=0006 1500 OPDIR = 6 ;OPEN DIRECTORY
1510 ;
1520 .PAGE
?PAGE 3 IOMAC.LIB -- OSS system I/O macros
FTe SYSTEM EQUATES FOR ATARI D:SYSEQU.M65?
1530 ;
1540 ; EXECUTE FLAG DEFINES
1550 ;
=0080 1560 EXCYES = $80 ; EXECUTE IN PROGRESS
=0040 1570 EXCSCR = $40 ; ECHO EXCUTE INPUT TO SCREEN
=0010 1580 EXCNEW = $10 ; EXECUTE START UP MODE
=0020 1590 EXCSUP = $20 ; COLD START EXEC FLAG
1600 ;
1610 ; MISC ADDRESS EQUATES
1620 ;
=000A 1630 CPALOC = $0A ; POINTER TO CP/A
=0008 1640 WARMST = $08 ; WAR, START (0=COLD)
=02E7 1650 MEMLO = $02E7 ; AVAIL MEM (LOW) PTR
=02E5 1660 MEMTOP = $02E5 ; AVAIL MEM (HIGH) PTR
=000E 1670 APPMHI = $0E ; UPPER LIMIT OF APPLICATION MEMORY
=02E2 1680 INITADR = $02E2 ; ATARI LOAD/INIT ADR
=02E0 1690 GOADR = $02E0 ; ATARI LOAD/GO ADR
=BFFA 1700 CARTLOC = $BFFA ; CARTRIDGE RUN LOCATION
=E456 1710 CIO = $E456 ;CIO ENTRY ADR
=009B 1720 EOL = $9B ; END OF LINE CHAR
1730 ;
1740 ; CP/A FUNCTION AND VALUE DISPLACEMSNT
1750 ; (INDIRECT THROUGH CPALOC)
1760 ; IE. (CPALOC),Y
1770 ;
=0003 1780 CPGNFN = 3 ; GET NEXT FILE NAME
=0007 1790 CPDFDV = $07 ; DEFAULT DRIVE (3 BYTES)
=000A 1800 CPBUFP = $0A ; CMD BUFF NEXT CHAR POINTR (1 BYTE)
=000B 1810 CPEXFL = $0B ; EXECUTE FLAG
=000C 1820 CPEXFN = $0C ; EXECUTE FILE NAME (16 BYTES)
=001C 1830 CPEXNP = $1C ; EXECUTE NOTE/POINT VALUES
=0021 1840 CPFNAM = $21 ; FILENAME BUFFER
=003D 1850 RUNLOC = $3D ; CP/A LOAD/RUN ADR
=003F 1860 CPCMDB = $3F ; COMMAND BUFFER (60 BYTES)
=00F3 1870 CPCMDGO = $F3
1880 ;
0350 1890 *= SAVEPC ; RESTORE PC
1900 ;
0180 .INCLUDE #D:IOMAC.MAC
1000 .TITLE "IOMAC.LIB -- OSS system I/O macros"
1010 .PAGE " Support Macros"
?PAGE 4 IOMAC.LIB -- OSS system I/O macros
Support Macros D:IOMAC.MAC?
=0000 1020 .IF .NOT .DEF IOCB
1030 .ERROR "You must include SYSEQU.M65 ahead of this!!"
1040 .ENDIF
1050 ;
1060 ; These macros are called by the actual I/O macros
1070 ; to perform the rudimentary register load functions.
1080 ;
1090 ;
1100 ; MACRO: @CH
1110 ;
1120 ; Loads IOCB number (parameter 1) into X register.
1130 ;
1140 ; If parameter value is 0 to 7, immediate channel number
1150 ; is assumed.
1160 ;
1170 ; If parameter value is > 7 then a memory location
1180 ; is assumed to contain the channel number.
1190 ;
1200 .MACRO @CH
1210 .IF %1>7
1220 LDA %1
1230 ASL A
1240 ASL A
1250 ASL A
1260 ASL A
1270 TAX
1280 .ELSE
1290 LDX #%1*16
1300 .ENDIF
1310 .ENDM
1320 ;
1330 ;
1340 ; MACRO: @CV
1350 ;
1360 ; Loads Constant or Value into accumultor (A-register)
1370 ;
1380 ; If value of parameter 1 is 0-255, @CV
1390 ; assumes it's an (immediate) constant.
1400 ;
1410 ; Otherwise the value is assumed to
1420 ; be a memory location (non-zero page).
1430 ;
1440 ;
1450 ;
1460 .MACRO @CV
1470 .IF %1<256
1480 LDA #%1
1490 .ELSE
1500 LDA %1
1510 .ENDIF
1520 .ENDM
1530 ;
1540 ;
1550 ;
1560 ;
1570 ; MACRO: @FL
1580 ;
1590 ; @FL is used to establish a filespec (file name)
1600 ;
1610 ; If a literal string is passed, @FL will
1620 ; generate the string in line, jump
1630 ; around it, and place its address
?PAGE 5 IOMAC.LIB -- OSS system I/O macros
Support Macros D:IOMAC.MAC?
1640 ; in the IOCB pointed to by the X-register.
1650 ;
1660 ; If a non-zero page label is passed
1670 ; the MACRO assumes it to be the label
1680 ; of a valid filespec and uses it instead.
1690 ;
1700 ;
1710 ;
1720 .MACRO @FL
1730 .IF %1<256
1740 JMP *+%1+4
1750 @F .BYTE %$1,0
1760 LDA # <@F
1770 STA ICBADR,X
1780 LDA # >@F
1790 STA ICBADR+1,X
1800 .ELSE
1810 LDA # <%1
1820 STA ICBADR,X
1830 LDA # >%1
1840 STA ICBADR+1,X
1850 .ENDIF
1860 .ENDM
1870 .PAGE " XIO macro"
?PAGE 6 IOMAC.LIB -- OSS system I/O macros
XIO macro D:IOMAC.MAC?
1880 ;
1890 ; MACRO: XIO
1900 ;
1910 ; FORM: XIO cmd,ch[,aux1,aux2][,filespec]
1920 ;
1930 ; ch is given as in the @CH macro
1940 ; cmd, aux1, aux2 are given as in the @CV macro
1950 ; filespec is given as in the @FL macro
1960 ;
1970 ; performs familiar XIO operations with/for OS/A+
1980 ;
1990 ; If aux1 is given, aux2 must also be given
2000 ; If aux1 and aux2 are omitted, they are set to zero
2010 ; If the filespec is omitted, "S:" is assumed
2020 ;
2030 .MACRO XIO
2040 .IF %0<2 .OR %0>5
2050 .ERROR "XIO: wrong number of arguments"
2060 .ELSE
2070 @CH %2
2080 @CV %1
2090 STA ICCOM,X ; COMMAND
2100 .IF %0>=4
2110 @CV %3
2120 STA ICAUX1,X
2130 @CV %4
2140 STA ICAUX2,X
2150 .ELSE
2160 LDA #0
2170 STA ICAUX1,X
2180 STA ICAUX2,X
2190 .ENDIF
2200 .IF %0=2 .OR %0=4
2210 @FL "S:"
2220 .ELSE
2230 @@IO .= %0
2240 @FL %$(@@IO)
2250 .ENDIF
2260 JSR CIO
2270 .ENDIF
2280 .ENDM
2290 .PAGE " OPEN macro"
?PAGE 7 IOMAC.LIB -- OSS system I/O macros
OPEN macro D:IOMAC.MAC?
2300 ;
2310 ; MACRO: OPEN
2320 ;
2330 ; FORM: OPEN ch,aux1,aux2,filespec
2340 ;
2350 ; ch is given as in the @CH macro
2360 ; aux1 and aux2 are given as in the @CV macro
2370 ; filespec is given as in the @FL macro
2380 ;
2390 ; will attempt to open the given file name on
2400 ; the given channel, using the open "modes"
2410 ; specified by aux1 and aux2
2420 ;
2430 .MACRO OPEN
2440 .IF %0<>4
2450 .ERROR "OPEN: wrong number of arguments"
2460 .ELSE
2470 .IF %4<256
2480 XIO COPN,%1,%2,%3,%$4
2490 .ELSE
2500 XIO COPN,%1,%2,%3,%4
2510 .ENDIF
2520 .ENDIF
2530 .ENDM
2540 .PAGE " BGET and BPUT macros"
?PAGE 8 IOMAC.LIB -- OSS system I/O macros
BGET and BPUT macros D:IOMAC.MAC?
2550 ;
2560 ; MACROS: BGET and BPUT
2570 ;
2580 ; FORM: BGET ch,buf,len
2590 ; BPUT ch,buf,len
2600 ;
2610 .MACRO @GP2
2611 @CH %1
2612 LDA #%4
2613 STA ICCOM,X
2614 LDA # <%2
2615 STA ICBADR,X
2616 LDA # >%2
2617 STA ICBADR+1,X
2618 LDA %3
2619 STA ICBLEN,X
2620 LDA %3+1
2621 STA ICBLEN+1,X
2622 JSR CIO
2623 .ENDM
2630 ; and actual value...never a memory address
2640 ; buf must be the address of an appropriate
2650 ; buffer in memory
2660 ;
2670 ; puts or gets length bytes to/from the
2680 ; specified buffer, uses binary read/write
2690 ;
2700 ;
2710 ; first: a common macro
2720 ;
2730 .MACRO @GP
2740 @CH %1
2750 LDA #%4
2760 STA ICCOM,X
2770 LDA # <%2
2780 STA ICBADR,X
2790 LDA # >%2
2800 STA ICBADR+1,X
2810 LDA # <%3
2820 STA ICBLEN,X
2830 LDA # >%3
2840 STA ICBLEN+1,X
2850 JSR CIO
2860 .ENDM
2870 ;
2880 .MACRO BGET
2890 .IF %0<>3
2900 .ERROR "BGET: wrong number of parameters"
2910 .ELSE
2920 @GP2 %1,%2,%3,CGBINR
2930 .ENDIF
2940 .ENDM
2950 ;
2960 .MACRO BPUT
2970 .IF %0<>3
2980 .ERROR "BPUT: wrong number of parameters"
2990 .ELSE
3000 @GP %1,%2,%3,CPBINR
3010 .ENDIF
3020 .ENDM
3030 ;
3040 .PAGE " PRINT macro"
?PAGE 9 IOMAC.LIB -- OSS system I/O macros
PRINT macro D:IOMAC.MAC?
3050 ;
3060 ; MACRO: PRINT
3070 ;
3080 ; FORM: PRINT ch[,buffer[,length]]
3090 ;
3100 ; ch is as given in @CH macro
3110 ; if no buffer, prints just a RETURN
3120 ; if no length given, 255 assumed
3130 ;
3140 ; used to print text. To print text without RETURN,
3150 ; length must be given. See OS/A+ manual
3160 ;
3170 ; EXCEPTION: second parameter may be a literal
3180 ; string (e.g., PRINT 0,"test"), in which
3190 ; case the length (if given) is ignored.
3200 ;
3210 .MACRO PRINT
3220 .IF %0<1 .OR %0>3
3230 .ERROR "PRINT: wrong number of parameters"
3240 .ELSE
3250 .IF %0>1
3260 .IF %2<128
3270 JMP *+4+%2
3280 @IO .BYTE %$2,$9B
3290 @GP %1,@IO,%2+1,CPTXTR
3300 .ELSE
3310 .IF %0=2
3320 @GP %1,%2,255,CPTXTR
3330 .ELSE
3340 @GP %1,%2,%3,CPTXTR
3350 .ENDIF
3360 .ENDIF
3370 .ELSE
3380 JMP *+4
3390 @IO .BYTE $9B
3400 @GP %1,@IO,1,CPTXTR
3410 .ENDIF
3420 .ENDIF
3430 .ENDM
3440 ;
3450 .PAGE " INPUT macro"
?PAGE 10 IOMAC.LIB -- OSS system I/O macros
INPUT macro D:IOMAC.MAC?
3460 ;
3470 ; MACRO: INPUT
3480 ;
3490 ; FORM: INPUT ch,buf,len
3500 ;
3510 ; ch is given as in the @CH macro
3520 ; buf MUST be a proper buffer address
3530 ; len may be omitted, in which case 255 is assumed
3540 ;
3550 ; gets a line of text input to the given
3560 ; buffer, maximum of length bytes
3570 ;
3580 .MACRO INPUT
3590 .IF %0<2 .OR %0>3
3600 .ERROR "INPUT: wrong number of parameters"
3610 .ELSE
3620 .IF %0=2
3630 @GP %1,%2,255,CGTXTR
3640 .ELSE
3650 @GP %1,%2,%3,CGTXTR
3660 .ENDIF
3670 .ENDIF
3680 .ENDM
3690 .PAGE " CLOSE macro"
?PAGE 11 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:IOMAC.MAC?
3700 ;
3710 ; MACRO: CLOSE
3720 ;
3730 ; FORM: CLOSE ch
3740 ;
3750 ; ch is given as in the @CH macro
3760 ;
3770 ; closes channel ch
3780 ;
3790 .MACRO CLOSE
3800 .IF %0<>1
3810 .ERROR "CLOSE: wrong number of parameters"
3820 .ELSE
3830 @CH %1
3840 LDA #CCLOSE
3850 STA ICCOM,X
3860 JSR CIO
3870 .ENDIF
3880 .ENDM
3890 ;
3900 ;;;;;;;;;;; END OF IOMAC.LIB ;;;;;;;;;;;;
3910 ;
0190 .INCLUDE #D:TENIS1.MAC
Última edición por dogdark el Lun Feb 03, 2014 3:24 am, editado 1 vez en total.
Re: wn porfiado turbo software parte II + codigos
tenis1.mac
Código: Seleccionar todo
0100 ;SAVE#D2:TENIS1.MAC
=00B3 0110 TURBO = $B3
0000 0120 *= $D301
D301 FE 0130 .BYTE $FE
D302 0140 *= $BC20
BC20 01 0150 .BYTE 1
BC21 00BB 0160 .WORD NEWDL
BC23 0170 VOLVERE
BC23 0180 *= $BB00
BB00 0190 NEWDL
BB00 707042 0200 .BYTE 112,112,66
BB03 09BB 0210 .WORD LINE0
BB05 3001 0220 .BYTE 48,1
BB07 23BC 0230 .WORD VOLVERE
BB09 0240 LINE0
BB09 8080A3AF 0250 .SBYTE "??????S??????????????"
BB0D AE8033F5
BB11 E2F2F5F4
BB15 E9EEE180
BB19 808080A3
BB1D 8D
BB1E 0260 C?
BB1E 90909080 0270 .SBYTE "???????????R???????"
BB22 808080B3
BB26 A9AE8032
BB2A E5F3E5F4
BB2E 808080
BB31 A3AFAE 0280 CON .SBYTE "???"
BB34 B3A9AE 0290 SIN .SBYTE "???"
BB37 3030309B 0300 SECTOR .BYTE "000",$9B
BB3B 322E339B 0310 FACTOR .BYTE "2.3",$9B
BB3F 0320 *= $8000
8000 00 0330 EORBYTE .BYTE $00
8001 00 0340 BYTEMULA .BYTE $00
8002 0040 0350 CANTR .WORD $4000
8004 0040 0360 CANTW .WORD $4000
8006 0040 0370 LASTCANT .WORD $4000
=000C 0380 DESDE = $0C
=000E 0390 HASTA = $0E
?PAGE 12 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
=00D4 0400 FRO = $D4
=00CB 0410 RAM = $CB
=00CD 0420 ROM = $CD
8008 00 0430 FEOR .BYTE 0
8009 00 0440 FEOF .BYTE 0
800A 00 0450 BANCO .BYTE 0
800B 00 0460 GUARDABANCO .BYTE 0
800C 0470 SUB
800C 20E7DC 0480 JSR USERSUB+Z
800F 0490 SINRES
800F 4C9203 0500 JMP $0392
8012 0510 CONRES
8012 6CFCFF 0520 JMP ($FFFC)
=9B04 0530 SET = PROGRAMA-RAMPROG
8015 0540 STRING
8015 44313A 0550 .BYTE "D1:"
8018 0560 NOMBRE
8018 0570 *= *+20
802C 0580 PABONITO
802C 10101000 0590 .SBYTE "000 BLOQUES A GRABAR "
8030 00222C2F
8034 31352533
8038 00210027
803C 32212221
8040 3200
8042 0600 GRABAMULA
8042 8D0180 0610 STA BYTEMULA
8045 206A80 0620 JSR LINEA10?
8048 A9A3 0630 LDA #163
804A 8D0FD2 0640 STA $D20F
804D 206A80 0650 JSR LINEA10?
8050 A207 0660 LDX #$07
8052 0670 LOOPMULA
8052 A9A3 0680 LDA #163
8054 0E0180 0690 ASL BYTEMULA
8057 9002 0700 BCC MULA0
8059 A923 0710 LDA #35
805B 0720 MULA0
805B 8D0FD2 0730 STA $D20F
805E 206A80 0740 JSR LINEA10?
8061 CA 0750 DEX
8062 10EE 0760 BPL LOOPMULA
8064 A923 0770 LDA #35
8066 8D0FD2 0780 STA $D20F
8069 60 0790 RTS
806A 0800 LINEA10?
806A AD0BD4 0810 LDA $D40B
806D C90A 0820 CMP #10
806F D0F9 0830 BNE LINEA10?
8071 8D0AD4 0840 STA $D40A
8074 8D0AD4 0850 STA $D40A
8077 60 0860 RTS
8078 0870 EOREO
8078 A000 0880 LDY #$00
807A B10C 0890 LDA (DESDE),Y
807C 4D0080 0900 EOR EORBYTE
807F 910C 0910 STA (DESDE),Y
8081 E60C 0920 INC DESDE
8083 D002 0930 BNE NOINCDESDE1
8085 E60D 0940 INC DESDE+1
8087 0950 NOINCDESDE1
8087 A50D 0960 LDA DESDE+1
?PAGE 13 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
8089 C50F 0970 CMP HASTA+1
808B D0EB 0980 BNE EOREO
808D A50C 0990 LDA DESDE
808F C50E 1000 CMP HASTA
8091 D0E5 1010 BNE EOREO
8093 60 1020 RTS
8094 1030 BANQUEO
8094 0908 1040 ORA #$08
8096 18 1050 CLC
8097 2A 1060 ROL A
8098 2A 1070 ROL A
8099 48 1080 PHA
809A A9C3 1090 LDA #$C3
809C 2D01D3 1100 AND $D301
809F 8D01D3 1110 STA $D301
80A2 68 1120 PLA
80A3 0D01D3 1130 ORA $D301
80A6 29FE 1140 AND #$FE
80A8 8D01D3 1150 STA $D301
80AB 60 1160 RTS
80AC 1170 SUBCLOSE
1180 CLOSE 1
80AC A210 M LDX #%1*16
80AE A90C M LDA #CCLOSE
80B0 9D4203 M STA ICCOM,X
80B3 2056E4 M JSR CIO
80B6 60 1190 RTS
80B7 1200 SUBOPEN
1210 OPEN 1,4,128,STRING
80B7 A210 M LDX #%1*16
80B9 A903 M LDA #%1
80BB 9D4203 M STA ICCOM,X ; COMMAND
80BE A904 M LDA #%1
80C0 9D4A03 M STA ICAUX1,X
80C3 A980 M LDA #%1
80C5 9D4B03 M STA ICAUX2,X
80C8 A915 M LDA # <%1
80CA 9D4403 M STA ICBADR,X
80CD A980 M LDA # >%1
80CF 9D4503 M STA ICBADR+1,X
80D2 2056E4 M JSR CIO
80D5 1009 1220 BPL OPENOK
80D7 20AC80 1230 JSR SUBCLOSE
80DA 20D781 1240 JSR SUBDIRECTORIO
80DD 4CB780 1250 JMP SUBOPEN
80E0 1260 OPENOK
80E0 60 1270 RTS
80E1 1280 SUBBGET
1290 BGET 1,$4000,CANTR
80E1 A210 M LDX #%1*16
80E3 A907 M LDA #%4
80E5 9D4203 M STA ICCOM,X
80E8 A900 M LDA # <%2
80EA 9D4403 M STA ICBADR,X
80ED A940 M LDA # >%2
80EF 9D4503 M STA ICBADR+1,X
80F2 AD0280 M LDA %3
80F5 9D4803 M STA ICBLEN,X
80F8 AD0380 M LDA %3+1
80FB 9D4903 M STA ICBLEN+1,X
80FE 2056E4 M JSR CIO
8101 60 1300 RTS
?PAGE 14 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
8102 1310 SUBREAD
8102 20B780 1320 JSR SUBOPEN
8105 A904 1330 LDA #$04
8107 8D0A80 1340 STA BANCO
810A 1350 LOOPBANCOS
810A CE0A80 1360 DEC BANCO
810D AD0A80 1370 LDA BANCO
8110 209480 1380 JSR BANQUEO
8113 20E180 1390 JSR SUBBGET
8116 AD5803 1400 LDA 856
8119 CD0280 1410 CMP CANTR
811C D008 1420 BNE FINCARGA
811E AD5903 1430 LDA 857
8121 CD0380 1440 CMP CANTR+1
8124 F0E4 1450 BEQ LOOPBANCOS
8126 1460 FINCARGA
8126 AD0A80 1470 LDA BANCO
8129 8D0B80 1480 STA GUARDABANCO
812C AD5803 1490 LDA 856
812F 8D0680 1500 STA LASTCANT
8132 85D4 1510 STA FRO
8134 AD5903 1520 LDA 857
8137 8D0780 1530 STA LASTCANT+1
813A 85D5 1540 STA FRO+1
813C A202 1550 LDX #$02
813E A990 1560 LDA #'?-32
8140 1570 VUELVEA0
8140 9D2C80 1580 STA PABONITO,X
8143 AC0880 1590 LDY FEOR
8146 F002 1600 BEQ NOEORFF
8148 49FF 1610 EOR #$FF
814A 1620 NOEORFF
814A 9D3132 1630 STA TENMEBLK,X
814D CA 1640 DEX
814E 10F0 1650 BPL VUELVEA0
8150 A203 1660 LDX #$03
8152 1670 CALCULOASC
8152 EC0B80 1680 CPX GUARDABANCO
8155 F012 1690 BEQ NOFINCALCULO
8157 18 1700 CLC
8158 A5D4 1710 LDA FRO
815A 6D0280 1720 ADC CANTR
815D 85D4 1730 STA FRO
815F A5D5 1740 LDA FRO+1
8161 6D0380 1750 ADC CANTR+1
8164 85D5 1760 STA FRO+1
8166 CA 1770 DEX
8167 10E9 1780 BPL CALCULOASC
8169 1790 NOFINCALCULO
8169 A001 1800 LDY #$01
816B A5D4 1810 LDA FRO
816D 297F 1820 AND #$7F
816F F001 1830 BEQ FINCALCULO
8171 C8 1840 INY
8172 1850 FINCALCULO
8172 A206 1860 LDX #$06
8174 1870 LOOPFINCALCULO
8174 46D5 1880 LSR FRO+1
8176 66D4 1890 ROR FRO
8178 CA 1900 DEX
8179 10F9 1910 BPL LOOPFINCALCULO
817B 18 1920 CLC
?PAGE 15 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
817C 98 1930 TYA
817D 65D4 1940 ADC FRO
817F 85D4 1950 STA FRO
8181 A5D5 1960 LDA FRO+1
8183 6900 1970 ADC #$00
8185 85D5 1980 STA FRO+1
8187 20AAD9 1990 JSR $D9AA
818A 20E6D8 2000 JSR $D8E6
818D A000 2010 LDY #$00
818F 2020 LOOPPOSITIVO
818F B1F3 2030 LDA ($F3),Y
8191 3003 2040 BMI ESNEGATIVO
8193 C8 2050 INY
8194 10F9 2060 BPL LOOPPOSITIVO
8196 2070 ESNEGATIVO
8196 38 2080 SEC
8197 E920 2090 SBC #32
8199 8D2E80 2100 STA PABONITO+2
819C AE0880 2110 LDX FEOR
819F F002 2120 BEQ NOEORFF1
81A1 49FF 2130 EOR #$FF
81A3 2140 NOEORFF1
81A3 8D3332 2150 STA TENMEBLK+2
81A6 88 2160 DEY
81A7 302B 2170 BMI NOQUEDANMAS
81A9 B1F3 2180 LDA ($F3),Y
81AB 0980 2190 ORA #$80
81AD 38 2200 SEC
81AE E920 2210 SBC #32
81B0 8D2D80 2220 STA PABONITO+1
81B3 AE0880 2230 LDX FEOR
81B6 F002 2240 BEQ NOEORFF2
81B8 49FF 2250 EOR #$FF
81BA 2260 NOEORFF2
81BA 8D3232 2270 STA TENMEBLK+1
81BD 88 2280 DEY
81BE 3014 2290 BMI NOQUEDANMAS
81C0 B1F3 2300 LDA ($F3),Y
81C2 4980 2310 EOR #$80
81C4 38 2320 SEC
81C5 E920 2330 SBC #32
81C7 8D2C80 2340 STA PABONITO
81CA AE0880 2350 LDX FEOR
81CD F002 2360 BEQ NOEORFF3
81CF 49FF 2370 EOR #$FF
81D1 2380 NOEORFF3
81D1 8D3132 2390 STA TENMEBLK
81D4 2400 NOQUEDANMAS
81D4 4CAC80 2410 JMP SUBCLOSE
81D7 2420 SUBDIRECTORIO
81D7 A97D 2430 LDA #'}
81D9 20B0F2 2440 JSR PRINTBYTE
2450 OPEN 1,6,0,"D:*.*"
81DC A210 M LDX #%1*16
81DE A903 M LDA #%1
81E0 9D4203 M STA ICCOM,X ; COMMAND
81E3 A906 M LDA #%1
81E5 9D4A03 M STA ICAUX1,X
81E8 A900 M LDA #%1
81EA 9D4B03 M STA ICAUX2,X
81ED 4CF681 M JMP *+%1+4
81F0 443A2A2E M @F .BYTE %$1,0
?PAGE 16 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
81F4 2A00
81F6 A9F0 M LDA # <@F
81F8 9D4403 M STA ICBADR,X
81FB A981 M LDA # >@F
81FD 9D4503 M STA ICBADR+1,X
8200 2056E4 M JSR CIO
8203 2460 DIRECTORIO
2470 INPUT 1,NOMBRE
8203 A210 M LDX #%1*16
8205 A905 M LDA #%4
8207 9D4203 M STA ICCOM,X
820A A918 M LDA # <%2
820C 9D4403 M STA ICBADR,X
820F A980 M LDA # >%2
8211 9D4503 M STA ICBADR+1,X
8214 A9FF M LDA # <%3
8216 9D4803 M STA ICBLEN,X
8219 A900 M LDA # >%3
821B 9D4903 M STA ICBLEN+1,X
821E 2056E4 M JSR CIO
8221 3021 2480 BMI FINDIRECTORIO
2490 PRINT 0,NOMBRE
8223 A200 M LDX #%1*16
8225 A909 M LDA #%4
8227 9D4203 M STA ICCOM,X
822A A918 M LDA # <%2
822C 9D4403 M STA ICBADR,X
822F A980 M LDA # >%2
8231 9D4503 M STA ICBADR+1,X
8234 A9FF M LDA # <%3
8236 9D4803 M STA ICBLEN,X
8239 A900 M LDA # >%3
823B 9D4903 M STA ICBLEN+1,X
823E 2056E4 M JSR CIO
8241 4C0382 2500 JMP DIRECTORIO
8244 2510 FINDIRECTORIO
8244 20AC80 2520 JSR SUBCLOSE
8247 A99B 2530 LDA #$9B
8249 20B0F2 2540 JSR PRINTBYTE
824C A99B 2550 LDA #$9B
824E 20B0F2 2560 JSR PRINTBYTE
2570 PRINT 0," ELIJA FILE A GRABAR!"
8251 4C6B82 M JMP *+4+%2
8254 2020454C M @IO .BYTE %$2,$9B
8258 494A4120
825C 46494C45
8260 20412047
8264 52414241
8268 52219B
826B A200 M LDX #%1*16
826D A909 M LDA #%4
826F 9D4203 M STA ICCOM,X
8272 A954 M LDA # <%2
8274 9D4403 M STA ICBADR,X
8277 A982 M LDA # >%2
8279 9D4503 M STA ICBADR+1,X
827C A917 M LDA # <%3
827E 9D4803 M STA ICBLEN,X
8281 A900 M LDA # >%3
8283 9D4903 M STA ICBLEN+1,X
8286 2056E4 M JSR CIO
8289 A9FF 2580 LDA #$FF
?PAGE 17 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
828B 209480 2590 JSR BANQUEO
828E A213 2600 LDX #19
8290 A900 2610 LDA #$00
8292 2620 SINNOMBRE
8292 9D1880 2630 STA NOMBRE,X
8295 CA 2640 DEX
8296 10FA 2650 BPL SINNOMBRE
8298 2660 TOMEFILE
8298 A558 2670 LDA $58
829A 8500 2680 STA $00
829C A559 2690 LDA $59
829E 8501 2700 STA $01
82A0 2710 INVIERTA
82A0 20BC83 2720 JSR INVERSO
82A3 2730 QUEAPRETO?
82A3 A9FF 2740 LDA #$FF
82A5 8DFC02 2750 STA 764
82A8 2760 WTECLA
82A8 ADFC02 2770 LDA 764
82AB C9FF 2780 CMP #$FF
82AD F0F9 2790 BEQ WTECLA
82AF C91C 2800 CMP #28
82B1 D001 2810 BNE NOOTRO
82B3 60 2820 RTS
82B4 2830 NOOTRO
82B4 C93E 2840 CMP #62
82B6 D040 2850 BNE NOCSUB
82B8 A200 2860 LDX #$00
82BA A002 2870 LDY #$02
82BC B909BB 2880 LDA LINE0,Y
82BF C9A3 2890 CMP #'?-32
82C1 F01B 2900 BEQ PONSINSUB
82C3 2910 PONCONSUB
82C3 BD31BB 2920 LDA CON,X
82C6 9909BB 2930 STA LINE0,Y
82C9 BD0C80 2940 LDA SUB,X
82CC 2C0880 2950 BIT FEOR
82CF F002 2960 BEQ NOEOR29A
82D1 4929 2970 EOR #$29
82D3 2980 NOEOR29A
82D3 9DD944 2990 STA CONSUBRUTINA,X
82D6 C8 3000 INY
82D7 E8 3010 INX
82D8 E003 3020 CPX #$03
82DA D0E7 3030 BNE PONCONSUB
82DC F0C5 3040 BEQ QUEAPRETO?
82DE 3050 PONSINSUB
82DE BD34BB 3060 LDA SIN,X
82E1 9909BB 3070 STA LINE0,Y
82E4 A9EA 3080 LDA #$EA
82E6 2C0880 3090 BIT FEOR
82E9 F002 3100 BEQ NOEOR29B
82EB 4929 3110 EOR #$29
82ED 3120 NOEOR29B
82ED 9DD944 3130 STA CONSUBRUTINA,X
82F0 C8 3140 INY
82F1 E8 3150 INX
82F2 E003 3160 CPX #$03
82F4 D0E8 3170 BNE PONSINSUB
82F6 F0AB 3180 BEQ QUEAPRETO?
82F8 3190 NOCSUB
82F8 C928 3200 CMP #40
?PAGE 18 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
82FA D043 3210 BNE NOCRES
82FC A200 3220 LDX #$00
82FE A01C 3230 LDY #28
8300 B909BB 3240 LDA LINE0,Y
8303 C9A3 3250 CMP #'?-32
8305 F01C 3260 BEQ PONSINRES
8307 3270 PONCONRES
8307 BD31BB 3280 LDA CON,X
830A 9909BB 3290 STA LINE0,Y
830D BD1280 3300 LDA CONRES,X
8310 2C0880 3310 BIT FEOR
8313 F002 3320 BEQ NOEOR29C
8315 4929 3330 EOR #$29
8317 3340 NOEOR29C
8317 9D8445 3350 STA SINRESET,X
831A C8 3360 INY
831B E8 3370 INX
831C E003 3380 CPX #$03
831E D0E7 3390 BNE PONCONRES
8320 4CA382 3400 JMP QUEAPRETO?
8323 3410 PONSINRES
8323 BD34BB 3420 LDA SIN,X
8326 9909BB 3430 STA LINE0,Y
8329 BD0F80 3440 LDA SINRES,X
832C 2C0880 3450 BIT FEOR
832F F002 3460 BEQ NOEOR29D
8331 4929 3470 EOR #$29
8333 3480 NOEOR29D
8333 9D8445 3490 STA SINRESET,X
8336 C8 3500 INY
8337 E8 3510 INX
8338 E003 3520 CPX #$03
833A D0E7 3530 BNE PONSINRES
833C 4CA382 3540 JMP QUEAPRETO?
833F 3550 NOCRES
833F C90F 3560 CMP #15
8341 D01C 3570 BNE NOUPALE
8343 20BC83 3580 JSR INVERSO
8346 18 3590 CLC
8347 A500 3600 LDA $00
8349 6928 3610 ADC #40
834B 8500 3620 STA $00
834D A501 3630 LDA $01
834F 6900 3640 ADC #$00
8351 8501 3650 STA $01
8353 A003 3660 LDY #$03
8355 B100 3670 LDA ($00),Y
8357 F003 3680 BEQ NOTOMEFIL
8359 4C9882 3690 JMP TOMEFILE
835C 3700 NOTOMEFIL
835C 4CA082 3710 JMP INVIERTA
835F 3720 NOUPALE
835F C90E 3730 CMP #14
8361 D022 3740 BNE NOBAJALE
8363 20BC83 3750 JSR INVERSO
8366 A500 3760 LDA $00
8368 C558 3770 CMP $58
836A D009 3780 BNE BAJE
836C A501 3790 LDA $01
836E C559 3800 CMP $59
8370 D003 3810 BNE BAJE
8372 4C9882 3820 JMP TOMEFILE
?PAGE 19 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
8375 3830 BAJE
8375 38 3840 SEC
8376 A500 3850 LDA $00
8378 E928 3860 SBC #40
837A 8500 3870 STA $00
837C A501 3880 LDA $01
837E E900 3890 SBC #$00
8380 8501 3900 STA $01
8382 4CA082 3910 JMP INVIERTA
8385 3920 NOBAJALE
8385 C90C 3930 CMP #12
8387 F003 3940 BEQ ELCOK
8389 4CA382 3950 JMP QUEAPRETO?
838C 3960 ELCOK
838C 20BC83 3970 JSR INVERSO
838F A004 3980 LDY #$04
8391 A200 3990 LDX #$00
8393 4000 ESTAFILE
8393 B100 4010 LDA ($00),Y
8395 F00C 4020 BEQ PUNTO
8397 18 4030 CLC
8398 6920 4040 ADC #$20
839A 9D1880 4050 STA NOMBRE,X
839D E8 4060 INX
839E C8 4070 INY
839F C00C 4080 CPY #$0C
83A1 D0F0 4090 BNE ESTAFILE
83A3 4100 PUNTO
83A3 A00C 4110 LDY #$0C
83A5 A92E 4120 LDA #'.
83A7 9D1880 4130 STA NOMBRE,X
83AA E8 4140 INX
83AB 4150 LOPUNTO
83AB B100 4160 LDA ($00),Y
83AD F00C 4170 BEQ FINPUNTO
83AF 18 4180 CLC
83B0 6920 4190 ADC #$20
83B2 9D1880 4200 STA NOMBRE,X
83B5 E8 4210 INX
83B6 C8 4220 INY
83B7 C00F 4230 CPY #$0F
83B9 D0F0 4240 BNE LOPUNTO
83BB 4250 FINPUNTO
83BB 60 4260 RTS
83BC 4270 INVERSO
83BC A00F 4280 LDY #$0F
83BE 4290 LOINVIERTO
83BE B100 4300 LDA ($00),Y
83C0 4980 4310 EOR #$80
83C2 9100 4320 STA ($00),Y
83C4 88 4330 DEY
83C5 C003 4340 CPY #$03
83C7 D0F5 4350 BNE LOINVIERTO
83C9 A002 4360 LDY #$02
83CB A990 4370 LDA #'?-32
83CD 4380 BORREC
83CD 991EBB 4390 STA C?,Y
83D0 88 4400 DEY
83D1 10FA 4410 BPL BORREC
83D3 A010 4420 LDY #$10
83D5 A200 4430 LDX #$00
83D7 4440 TOMENUM
?PAGE 20 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
83D7 B100 4450 LDA ($00),Y
83D9 18 4460 CLC
83DA 6920 4470 ADC #$20
83DC 9D37BB 4480 STA SECTOR,X
83DF C8 4490 INY
83E0 E8 4500 INX
83E1 E003 4510 CPX #$03
83E3 D0F2 4520 BNE TOMENUM
83E5 A93B 4530 LDA # <FACTOR
83E7 85F3 4540 STA $F3
83E9 A9BB 4550 LDA # >FACTOR
83EB 85F4 4560 STA $F4
83ED A900 4570 LDA #$00
83EF 85F2 4580 STA $F2
83F1 2000D8 4590 JSR $D800
83F4 9003 4600 BCC NOC1000
83F6 4C8584 4610 JMP C1000?
83F9 4620 NOC1000
83F9 20B6DD 4630 JSR $DDB6
83FC A937 4640 LDA # <SECTOR
83FE 85F3 4650 STA $F3
8400 A9BB 4660 LDA # >SECTOR
8402 85F4 4670 STA $F4
8404 A900 4680 LDA #$00
8406 85F2 4690 STA $F2
8408 2000D8 4700 JSR $D800
840B B078 4710 BCS C1000?
840D 20DBDA 4720 JSR $DADB
8410 B073 4730 BCS C1000?
8412 20B6DD 4740 JSR $DDB6
8415 A957 4750 LDA #87
8417 85D4 4760 STA $D4
8419 A900 4770 LDA #$00
841B 85D5 4780 STA $D5
841D 20AAD9 4790 JSR $D9AA
8420 2066DA 4800 JSR $DA66
8423 20B6DD 4810 JSR $DDB6
8426 A91E 4820 LDA #30
8428 85D4 4830 STA $D4
842A A900 4840 LDA #$00
842C 85D5 4850 STA $D5
842E 20AAD9 4860 JSR $D9AA
8431 A005 4870 LDY #$05
8433 4880 FR1FR0
8433 B9D400 4890 LDA $D4,Y
8436 48 4900 PHA
8437 B9E000 4910 LDA $E0,Y
843A 99D400 4920 STA $D4,Y
843D 68 4930 PLA
843E 99E000 4940 STA $E0,Y
8441 88 4950 DEY
8442 10EF 4960 BPL FR1FR0
8444 2028DB 4970 JSR $DB28
8447 B03C 4980 BCS C1000?
8449 20D2D9 4990 JSR $D9D2
844C B037 5000 BCS C1000?
844E E6D4 5010 INC $D4
8450 D002 5020 BNE NOINCD5
8452 E6D5 5030 INC $D5
8454 5040 NOINCD5
8454 20AAD9 5050 JSR $D9AA
8457 20E6D8 5060 JSR $D8E6
?PAGE 21 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
845A A000 5070 LDY #$00
845C 5080 ESASC?
845C B1F3 5090 LDA ($F3),Y
845E 3003 5100 BMI FINASC
8460 C8 5110 INY
8461 D0F9 5120 BNE ESASC?
8463 5130 FINASC
8463 B1F3 5140 LDA ($F3),Y
8465 38 5150 SEC
8466 E920 5160 SBC #32
8468 8D20BB 5170 STA C?+2
846B 88 5180 DEY
846C 3017 5190 BMI C1000?
846E B1F3 5200 LDA ($F3),Y
8470 38 5210 SEC
8471 E920 5220 SBC #32
8473 0980 5230 ORA #$80
8475 8D1FBB 5240 STA C?+1
8478 88 5250 DEY
8479 300A 5260 BMI C1000?
847B B1F3 5270 LDA ($F3),Y
847D 38 5280 SEC
847E E920 5290 SBC #32
8480 0980 5300 ORA #$80
8482 8D1EBB 5310 STA C?
8485 5320 C1000?
8485 60 5330 RTS
8486 5340 INICIOPROGRAMA
8486 A900 5350 LDA #$00
8488 8D0880 5360 STA FEOR
848B A9FE 5370 LDA #$FE
848D 8D01D3 5380 STA $D301
8490 8D4402 5390 STA $0244
8493 A970 5400 LDA #112
8495 8510 5410 STA 16
8497 8D0ED2 5420 STA 53774
849A A9EA 5430 LDA #$EA
849C 8D71FD 5440 STA 64881
849F 8D72FD 5450 STA 64882
84A2 A960 5460 LDA #$60
84A4 8DFCFD 5470 STA 65020
84A7 A900 5480 LDA #$00
84A9 8DC602 5490 STA 710
84AC A901 5500 LDA #1
84AE 8DF002 5510 STA 752
84B1 A204 5520 LDX #4
84B3 A9EA 5530 LDA #$EA
84B5 5540 LOOPIRG1
84B5 9DC6EB 5550 STA $EBC6,X
84B8 CA 5560 DEX
84B9 10FA 5570 BPL LOOPIRG1
84BB A9B3 5580 LDA #TURBO
84BD 85CF 5590 STA $CF
84BF 5600 CAMBIADISCO
5610 PRINT 0,"} INGRESE DISCO CON FILE A GRABAR"
84BF 4CE584 M JMP *+4+%2
84C2 7D202049 M @IO .BYTE %$2,$9B
84C6 4E475245
84CA 53452044
84CE 4953434F
84D2 20434F4E
84D6 2046494C
?PAGE 22 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
84DA 45204120
84DE 47524142
84E2 41529B
84E5 A200 M LDX #%1*16
84E7 A909 M LDA #%4
84E9 9D4203 M STA ICCOM,X
84EC A9C2 M LDA # <%2
84EE 9D4403 M STA ICBADR,X
84F1 A984 M LDA # >%2
84F3 9D4503 M STA ICBADR+1,X
84F6 A923 M LDA # <%3
84F8 9D4803 M STA ICBLEN,X
84FB A900 M LDA # >%3
84FD 9D4903 M STA ICBLEN+1,X
8500 2056E4 M JSR CIO
8503 A9FF 5620 LDA #$FF
8505 8DFC02 5630 STA 764
8508 20F8F2 5640 JSR GETBYTE
850B 20D781 5650 JSR SUBDIRECTORIO
850E 200281 5660 JSR SUBREAD
8511 5670 OTRACOPIA
5680 PRINT 0,"} RETURN PARA COMENZAR GRABACION"
8511 4C3785 M JMP *+4+%2
8514 7D202020 M @IO .BYTE %$2,$9B
8518 52455455
851C 524E2050
8520 41524120
8524 434F4D45
8528 4E5A4152
852C 20475241
8530 42414349
8534 4F4E9B
8537 A200 M LDX #%1*16
8539 A909 M LDA #%4
853B 9D4203 M STA ICCOM,X
853E A914 M LDA # <%2
8540 9D4403 M STA ICBADR,X
8543 A985 M LDA # >%2
8545 9D4503 M STA ICBADR+1,X
8548 A923 M LDA # <%3
854A 9D4803 M STA ICBLEN,X
854D A900 M LDA # >%3
854F 9D4903 M STA ICBLEN+1,X
8552 2056E4 M JSR CIO
8555 A082 5690 LDY #130
8557 A200 5700 LDX #0
8559 5710 LOOPBONITO
8559 BD2C80 5720 LDA PABONITO,X
855C 9158 5730 STA ($58),Y
855E C8 5740 INY
855F E8 5750 INX
8560 E015 5760 CPX #21
8562 D0F5 5770 BNE LOOPBONITO
8564 A0D8 5780 LDY #216
8566 A200 5790 LDX #$00
8568 5800 BELLO
8568 BD1880 5810 LDA NOMBRE,X
856B 38 5820 SEC
856C E920 5830 SBC #$20
856E 3006 5840 BMI FINBELISIMO
8570 9158 5850 STA ($58),Y
8572 C8 5860 INY
?PAGE 23 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
8573 E8 5870 INX
8574 D0F2 5880 BNE BELLO
8576 5890 FINBELISIMO
8576 A9FF 5900 LDA #$FF
8578 8DFC02 5910 STA 764
857B 20F8F2 5920 JSR GETBYTE
857E C91B 5930 CMP #'?
8580 D003 5940 BNE NOCAMBIADISCO
8582 4CBF84 5950 JMP CAMBIADISCO
8585 5960 NOCAMBIADISCO
8585 A97D 5970 LDA #'}
8587 20B0F2 5980 JSR $F2B0
858A A0D7 5990 LDY #215
858C A200 6000 LDX #$00
858E 6010 NUMEROSCREEN
858E BD2C80 6020 LDA PABONITO,X
8591 9158 6030 STA ($58),Y
8593 C8 6040 INY
8594 E8 6050 INX
8595 E003 6060 CPX #$03
8597 D0F5 6070 BNE NUMEROSCREEN
8599 C8 6080 INY
859A 6090 NOMBRESCREEN
859A BD1580 6100 LDA STRING,X
859D 38 6110 SEC
859E E920 6120 SBC #$20
85A0 3006 6130 BMI ENDNAME
85A2 9158 6140 STA ($58),Y
85A4 E8 6150 INX
85A5 C8 6160 INY
85A6 D0F2 6170 BNE NOMBRESCREEN
85A8 6180 ENDNAME
85A8 A208 6190 LDX #$08
85AA 6200 NUEVEBLKS
85AA A0D9 6210 LDY #217
85AC 6220 NUEVEBLKS1
85AC B158 6230 LDA ($58),Y
85AE 18 6240 CLC
85AF 6901 6250 ADC #$01
85B1 C99A 6260 CMP #'?-31
85B3 F007 6270 BEQ NUEVE9
85B5 9158 6280 STA ($58),Y
85B7 CA 6290 DEX
85B8 10F0 6300 BPL NUEVEBLKS
85BA 3009 6310 BMI FINNUEVE
85BC 6320 NUEVE9
85BC A990 6330 LDA #'?-32
85BE 9158 6340 STA ($58),Y
85C0 88 6350 DEY
85C1 C0D6 6360 CPY #214
85C3 D0E7 6370 BNE NUEVEBLKS1
85C5 6380 FINNUEVE
85C5 A9FF 6390 LDA #$FF
85C7 209480 6400 JSR BANQUEO
85CA 2084A0 6410 JSR GRABABLKUNO
85CD A900 6420 LDA #$00
85CF 8514 6430 STA 20
85D1 8D8004 6440 STA $0480
85D4 8D8104 6450 STA $0481
85D7 8D0980 6460 STA FEOF
85DA A9F5 6470 LDA # <FIN-GAMEA
85DC 8D0480 6480 STA CANTW
?PAGE 24 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
85DF A905 6490 LDA # >FIN-GAMEA
85E1 8D0580 6500 STA CANTW+1
85E4 202186 6510 JSR WRITETOCASSETTE
85E7 A9F8 6520 LDA #$00-8
85E9 8514 6530 STA 20
85EB 6540 W1SEG
85EB A514 6550 LDA 20
85ED D0FC 6560 BNE W1SEG
85EF A910 6570 LDA #$10
85F1 8514 6580 STA 20
85F3 A901 6590 LDA #1
85F5 8D0980 6600 STA FEOF
85F8 AD0280 6610 LDA CANTR
85FB 8D0480 6620 STA CANTW
85FE AD0380 6630 LDA CANTR+1
8601 8D0580 6640 STA CANTW+1
8604 A904 6650 LDA #$04
8606 8D0A80 6660 STA BANCO
8609 202186 6670 JSR WRITETOCASSETTE
860C A9F8 6680 LDA #$00-8
860E 8514 6690 STA 20
8610 6700 LOPLEAD1
8610 A514 6710 LDA 20
8612 D0FC 6720 BNE LOPLEAD1
8614 A002 6730 LDY #$02
8616 6740 SAVEC0LENTO
8616 A9C0 6750 LDA #$C0
8618 204280 6760 JSR GRABAMULA
861B 88 6770 DEY
861C 10F8 6780 BPL SAVEC0LENTO
861E 4C1185 6790 JMP OTRACOPIA
8621 6800 WRITETOCASSETTE
8621 2034FD 6810 JSR $FD34
8624 6820 LEADERTIME
8624 A514 6830 LDA 20
8626 C920 6840 CMP #$20
8628 90FA 6850 BCC LEADERTIME
862A AD0980 6860 LDA FEOF
862D F021 6870 BEQ NOLASTBANCO
862F 6880 GRABANDOP02
862F CE0A80 6890 DEC BANCO
8632 AD0A80 6900 LDA BANCO
8635 48 6910 PHA
8636 209480 6920 JSR BANQUEO
8639 68 6930 PLA
863A CD0B80 6940 CMP GUARDABANCO
863D D011 6950 BNE NOLASTBANCO
863F AD0680 6960 LDA LASTCANT
8642 8D0480 6970 STA CANTW
8645 AD0780 6980 LDA LASTCANT+1
8648 8D0580 6990 STA CANTW+1
864B A9FF 7000 LDA #$FF
864D 8D0980 7010 STA FEOF
8650 7020 NOLASTBANCO
8650 A900 7030 LDA # <$4000
8652 8500 7040 STA $00
8654 A940 7050 LDA # >$4000
8656 8501 7060 STA $01
8658 A900 7070 LDA #$00
865A 8502 7080 STA $02
865C 8503 7090 STA $03
865E 7100 WRITECASSETTE
?PAGE 25 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
865E AD1FD0 7110 LDA $D01F
8661 C903 7120 CMP #$03
8663 D003 7130 BNE SIGAGRBANDO
8665 4CD6FD 7140 JMP $FDD6
8668 7150 SIGAGRBANDO
8668 A000 7160 LDY #$00
866A B100 7170 LDA ($00),Y
866C 20B4FD 7180 JSR $FDB4
866F D02B 7190 BNE NONUEVOBLK
8671 A087 7200 LDY #135
8673 7210 BUFSCREEN
8673 B9FF03 7220 LDA $03FF,Y
8676 9158 7230 STA ($58),Y
8678 88 7240 DEY
8679 D0F8 7250 BNE BUFSCREEN
867B A0D9 7260 LDY #217
867D A202 7270 LDX #$02
867F 7280 DECBELLO
867F B158 7290 LDA ($58),Y
8681 38 7300 SEC
8682 E901 7310 SBC #$01
8684 C98F 7320 CMP #'?-33
8686 F004 7330 BEQ NINEBELLO
8688 9158 7340 STA ($58),Y
868A D008 7350 BNE FINBELLO
868C 7360 NINEBELLO
868C A999 7370 LDA #'?-32
868E 9158 7380 STA ($58),Y
8690 88 7390 DEY
8691 CA 7400 DEX
8692 10EB 7410 BPL DECBELLO
8694 7420 FINBELLO
8694 EE8004 7430 INC $0480
8697 D003 7440 BNE NONUEVOBLK
8699 EE8104 7450 INC $0481
869C 7460 NONUEVOBLK
869C E600 7470 INC $00
869E D002 7480 BNE NOINCHIBIS
86A0 E601 7490 INC $01
86A2 7500 NOINCHIBIS
86A2 E602 7510 INC $02
86A4 D002 7520 BNE NOINCHIS
86A6 E603 7530 INC $03
86A8 7540 NOINCHIS
86A8 A503 7550 LDA $03
86AA CD0580 7560 CMP CANTW+1
86AD D0AF 7570 BNE WRITECASSETTE
86AF A502 7580 LDA $02
86B1 CD0480 7590 CMP CANTW
86B4 D0A8 7600 BNE WRITECASSETTE
86B6 AD0980 7610 LDA FEOF
86B9 F005 7620 BEQ FINP01
86BB 3003 7630 BMI FINP01
86BD 4C2F86 7640 JMP GRABANDOP02
86C0 7650 FINP01
86C0 A63D 7660 LDX $3D
86C2 F010 7670 BEQ TERMINOWRITE
86C4 A07F 7680 LDY #$7F
86C6 7690 POKEANDOESPERO
86C6 8C0AD4 7700 STY $D40A
86C9 88 7710 DEY
86CA D0FA 7720 BNE POKEANDOESPERO
?PAGE 26 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
86CC 8E7F04 7730 STX $047F
86CF A9FA 7740 LDA #$FA
86D1 207CFE 7750 JSR $FE7C
86D4 7760 TERMINOWRITE
86D4 EE8004 7770 INC $0480
86D7 D003 7780 BNE NOINC481
86D9 EE8104 7790 INC $0481
86DC 7800 NOINC481
86DC AD0980 7810 LDA FEOF
86DF D003 7820 BNE SIEOF
86E1 4CD6FD 7830 JMP $FDD6
86E4 7840 SIEOF
86E4 A27F 7850 LDX #$7F
86E6 A900 7860 LDA #$00
86E8 7870 FILLBUFFER
86E8 9D0004 7880 STA $0400,X
86EB 8D0AD4 7890 STA $D40A
86EE CA 7900 DEX
86EF 10F7 7910 BPL FILLBUFFER
86F1 A9FE 7920 LDA #$FE
86F3 207CFE 7930 JSR $FE7C
86F6 4CD6FD 7940 JMP $FDD6
86F9 7950 *= $02E0
02E0 8684 7960 .WORD INICIOPROGRAMA
=003B 7970 EORLEN = FINFIRST-AEOREAR+1
=037D 7980 ADR = $0380-3
=03FF 7990 RESTABYTE = $03FF
=9C83 8000 DIF = $A000-ADR
02E2 8010 *= ADR+DIF
A000 8020 AGRABAR
A000 5555 8030 .BYTE $55,$55
A002 FA 8040 .BYTE $FA
A003 8050 BLKUNO
A003 00 8060 .BYTE $00
A004 01 8070 .BYTE $01
A005 8003 8080 .WORD *-2-DIF
A007 56E4 8090 .WORD $E456
A009 A23B 8100 LDX #EORLEN
A00B 9A 8110 TXS
A00C 8120 EORLOOP
A00C 38 8130 SEC
A00D BD9903 8140 LDA AEOREAR-DIF,X
A010 A8 8150 TAY
A011 EDFF03 8160 SBC RESTABYTE
A014 8CFF03 8170 STY RESTABYTE
A017 48 8180 PHA
A018 CA 8190 DEX
A019 10F1 8200 BPL EORLOOP
A01B 60 8210 RTS
A01C 8220 AEOREAR
A01C 01 8230 .BYTE $01
A01D 01 8240 .BYTE $01
A01E A201 8250 LDX #$01
A020 8E4402 8260 STX $0244
A023 CA 8270 DEX
A024 8E2F02 8280 STX $022F
A027 8E00D4 8290 STX $D400
A02A 8641 8300 STX $41
A02C 8310 RELOS
A02C A2EC 8320 LDX #$00-20
A02E 8614 8330 STX 20
A030 8340 ESPERASINCRO
?PAGE 27 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
A030 AD0FD2 8350 LDA $D20F
A033 2910 8360 AND #$10
A035 D0F5 8370 BNE RELOS
A037 A614 8380 LDX 20
A039 D0F5 8390 BNE ESPERASINCRO
A03B 8400 TERMINA0
A03B AD0FD2 8410 LDA $D20F
A03E 2910 8420 AND #$10
A040 F0F9 8430 BEQ TERMINA0
A042 A20B 8440 LDX #$0B
A044 8450 TRANSFER
A044 BDD503 8460 LDA DATIX1-DIF,X
A047 9D0003 8470 STA $0300,X
A04A CA 8480 DEX
A04B 10F7 8490 BPL TRANSFER
A04D 2059E4 8500 JSR $E459
A050 A2FF 8510 LDX #$FF
A052 9A 8520 TXS
A053 6C0403 8530 JMP ($0304)
A056 8540 FINFIRST
A056 68 8550 PLA
A057 40 8560 RTI
A058 8570 DATIX1
A058 60 8580 .BYTE $60
A059 00 8590 .BYTE $00
A05A 52 8600 .BYTE $52
A05B 40 8610 .BYTE $40
A05C 0020 8620 .WORD BLKFALSO
A05E 23 8630 .BYTE $23
A05F 00 8640 .BYTE $00
A060 3A02 8650 .WORD FINBLKFALSO-BLKFALSO
A062 00 8660 .BYTE $00
A063 80 8670 .BYTE $80
A064 8680 *= $03EA+DIF
A06D 00 8690 .BYTE $00
A06E 8700 *= AGRABAR+$84
A084 8710 GRABABLKUNO
A084 AD0880 8720 LDA FEOR
A087 F003 8730 BEQ EORNOLISTO
A089 4C0BA1 8740 JMP EORLISTO
A08C 8750 EORNOLISTO
A08C A934 8760 LDA # <EORBLOCK
A08E 850C 8770 STA DESDE
A090 A920 8780 LDA # >EORBLOCK
A092 850D 8790 STA DESDE+1
A094 A93A 8800 LDA # <FINBLKFALSO
A096 850E 8810 STA HASTA
A098 A922 8820 LDA # >FINBLKFALSO
A09A 850F 8830 STA HASTA+1
A09C A946 8840 LDA #$46
A09E 8D0080 8850 STA EORBYTE
A0A1 207880 8860 JSR EOREO
A0A4 A92F 8870 LDA # <EORBLOCK1
A0A6 850C 8880 STA DESDE
A0A8 A930 8890 LDA # >EORBLOCK1
A0AA 850D 8900 STA DESDE+1
A0AC A9FA 8910 LDA # <FINBLKDOS
A0AE 850E 8920 STA HASTA
A0B0 A933 8930 LDA # >FINBLKDOS
A0B2 850F 8940 STA HASTA+1
A0B4 A9FF 8950 LDA #$FF
A0B6 8D0080 8960 STA EORBYTE
?PAGE 28 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
A0B9 207880 8970 JSR EOREO
A0BC A922 8980 LDA # <GAME1A
A0BE 850C 8990 STA DESDE
A0C0 A940 9000 LDA # >GAME1A
A0C2 850D 9010 STA DESDE+1
A0C4 A9F5 9020 LDA # <FIN
A0C6 850E 9030 STA HASTA
A0C8 A945 9040 LDA # >FIN
A0CA 850F 9050 STA HASTA+1
A0CC A929 9060 LDA #$29
A0CE 8D0080 9070 STA EORBYTE
A0D1 207880 9080 JSR EOREO
A0D4 A23B 9090 LDX #EORLEN
A0D6 8E0880 9100 STX FEOR
A0D9 9110 EORLOOP1
A0D9 18 9120 CLC
A0DA BD1CA0 9130 LDA AEOREAR,X
A0DD 6D8AA1 9140 ADC SUMABYTE
A0E0 8D8AA1 9150 STA SUMABYTE
A0E3 9D1CA0 9160 STA AEOREAR,X
A0E6 CA 9170 DEX
A0E7 10F0 9180 BPL EORLOOP1
A0E9 A900 9190 LDA #0
A0EB 8D65A1 9200 STA CHKSUM
A0EE A282 9210 LDX #$82
A0F0 A901 9220 LDA #$01
A0F2 9D00A0 9230 STA AGRABAR,X
A0F5 9240 ADCHKSUM
A0F5 BD00A0 9250 LDA AGRABAR,X
A0F8 18 9260 CLC
A0F9 6D65A1 9270 ADC CHKSUM
A0FC 6900 9280 ADC #0
A0FE 8D65A1 9290 STA CHKSUM
A101 CA 9300 DEX
A102 C9FF 9310 CMP #$FF
A104 D0EF 9320 BNE ADCHKSUM
A106 A283 9330 LDX #$83
A108 9D03A0 9340 STA BLKUNO,X
A10B 9350 EORLISTO
A10B 2034FD 9360 JSR $FD34
A10E 18 9370 CLC
A10F A514 9380 LDA 20
A111 6964 9390 ADC #100
A113 9400 WLEADERTIME
A113 C514 9410 CMP 20
A115 D0FC 9420 BNE WLEADERTIME
A117 A20B 9430 LDX #$0B
A119 9440 ?LOOP
A119 BD66A1 9450 LDA DATA1,X
A11C 9D0003 9460 STA $0300,X
A11F CA 9470 DEX
A120 10F7 9480 BPL ?LOOP
A122 2059E4 9490 JSR $E459
A125 18 9500 CLC
A126 A514 9510 LDA 20
A128 6903 9520 ADC #3
A12A 9530 ESPERIX
A12A C514 9540 CMP 20
A12C D0FC 9550 BNE ESPERIX
A12E 208170 9560 JSR GRABATRAMPA
A131 18 9570 CLC
A132 A514 9580 LDA 20
?PAGE 29 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
A134 6903 9590 ADC #3
A136 9600 WFALSO
A136 C514 9610 CMP 20
A138 D0FC 9620 BNE WFALSO
A13A A20B 9630 LDX #$0B
A13C 9640 SAVEFALSO
A13C BD7EA1 9650 LDA DATAFALSA,X
A13F 9D0003 9660 STA $0300,X
A142 CA 9670 DEX
A143 10F7 9680 BPL SAVEFALSO
A145 2059E4 9690 JSR $E459
A148 18 9700 CLC
A149 A514 9710 LDA 20
A14B 6906 9720 ADC #6
A14D 9730 WFORIRGTIME
A14D C514 9740 CMP 20
A14F D0FC 9750 BNE WFORIRGTIME
A151 A20B 9760 LDX #$0B
A153 9770 ?LOOP1
A153 BD72A1 9780 LDA DATA2,X
A156 9D0003 9790 STA $0300,X
A159 CA 9800 DEX
A15A 10F7 9810 BPL ?LOOP1
A15C 2059E4 9820 JSR $E459
A15F A93C 9830 LDA #60
A161 8D02D3 9840 STA 54018
A164 60 9850 RTS
A165 9860 CHKSUM
A165 00 9870 .BYTE 0
A166 9880 DATA1
A166 60005780 9890 .BYTE $60,0,$57,$80
A16A 00A0 9900 .WORD AGRABAR
A16C 2300 9910 .BYTE $23,0
A16E 8300 9920 .WORD $83
A170 0080 9930 .BYTE 0,$80
A172 9940 DATA2
A172 60005780 9950 .BYTE $60,0,$57,$80
A176 0030 9960 .WORD BLKDOS
A178 2300 9970 .BYTE $23,0
A17A FA03 9980 .WORD FINBLKDOS-BLKDOS
A17C 00 9990 .BYTE 0
A17D 80 010000 .BYTE $80
A17E 010010 DATAFALSA
A17E 60005780 010020 .BYTE $60,0,$57,$80
A182 0020 010030 .WORD BLKFALSO
A184 2300 010040 .BYTE $23,0
A186 3A02 010050 .WORD FINBLKFALSO-BLKFALSO
A188 0080 010060 .BYTE 0,$80
A18A 010070 SUMABYTE
A18A FA 010080 .BYTE $FA
A18B 010090 *= $7000-4
6FFC 010100 TRAMPA
6FFC 5555FC 010110 .BYTE $55,$55,$FC
6FFF 01 010120 .BYTE $01
7000 0070 010130 .WORD $7000
7002 56E4 010140 .WORD $E456
7004 A900 010150 LDA #$00
7006 A002 010160 LDY #$02
7008 9158 010170 STA ($58),Y
700A 8DC602 010180 STA 710
700D 8541 010190 STA $41
700F A210 010200 LDX #$10
?PAGE 30 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
7011 A903 010210 LDA #$03
7013 9DEC02 010220 STA $02EC,X
7016 9D4203 010230 STA $0342,X
7019 A904 010240 LDA #$04
701B 9D4A03 010250 STA $034A,X
701E A980 010260 LDA #$80
7020 9D4B03 010270 STA $034B,X
7023 A931 010280 LDA # <$C431
7025 9D4403 010290 STA $0344,X
7028 A9C4 010300 LDA # >$C431
702A 9D4503 010310 STA $0345,X
702D 2056E4 010320 JSR $E456
7030 A900 010330 LDA #$00
7032 9D4403 010340 STA $0344,X
7035 9D4803 010350 STA $0348,X
7038 A907 010360 LDA #$07
703A 9D4503 010370 STA $0345,X
703D A906 010380 LDA #$06
703F 9D4903 010390 STA $0349,X
7042 A907 010400 LDA #$07
7044 9D4203 010410 STA $0342,X
7047 2056E4 010420 JSR $E456
704A 88 010430 DEY
704B 010440 LOOPTRAMPA
704B B90007 010450 LDA $0700,Y
704E 590008 010460 EOR $0800,Y
7051 9D0007 010470 STA $0700,X
7054 88 010480 DEY
7055 D0F4 010490 BNE LOOPTRAMPA
7057 A966 010500 LDA # <DLTRAMPA+2
7059 8D3002 010510 STA 560
705C A970 010520 LDA # >DLTRAMPA+2
705E 8D3102 010530 STA 561
7061 4C0007 010540 JMP $0700
7064 010550 DLTRAMPA
7064 70707046 010560 .BYTE 112,112,112,64+6
7068 6D70 010570 .WORD TEXTOTRAMPA+2
706A 41 010580 .BYTE 65
706B 010590 TEXTOTRAMPA
706B 00000074 010600 .SBYTE " turbo SOFTWARE "
706F 7572626F
7073 00332F26
7077 34372132
707B 25000000
707F 010610 *= $707F
707F 010620 CHEQUEO
707F 00 010630 .BYTE 0
7080 010640 FCHK
7080 00 010650 .BYTE 0
7081 010660 GRABATRAMPA
7081 AD8070 010670 LDA FCHK
7084 D020 010680 BNE CHEQUEOK
7086 EE8070 010690 INC FCHK
7089 A900 010700 LDA #$00
708B 8D7F70 010710 STA CHEQUEO
708E A282 010720 LDX #$82
7090 010730 CHKTRAMPA
7090 BDFC6F 010740 LDA TRAMPA,X
7093 18 010750 CLC
7094 6900 010760 ADC #$00
7096 6D7F70 010770 ADC CHEQUEO
7099 8D7F70 010780 STA CHEQUEO
?PAGE 31 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
709C CA 010790 DEX
709D E0FF 010800 CPX #$FF
709F D0EF 010810 BNE CHKTRAMPA
70A1 A283 010820 LDX #$83
70A3 9DFC6F 010830 STA TRAMPA,X
70A6 010840 CHEQUEOK
70A6 A20B 010850 LDX #$0B
70A8 010860 LOOPTRAMPIX
70A8 BDE770 010870 LDA DATATRAMPA,X
70AB 9D0003 010880 STA $0300,X
70AE CA 010890 DEX
70AF 10F7 010900 BPL LOOPTRAMPIX
70B1 2059E4 010910 JSR $E459
70B4 18 010920 CLC
70B5 A514 010930 LDA 20
70B7 6903 010940 ADC #3
70B9 010950 ESPERATRAMPA
70B9 C514 010960 CMP 20
70BB D0FC 010970 BNE ESPERATRAMPA
70BD A983 010980 LDA #$83
70BF 8D48FE 010990 STA $FE48
70C2 20EAFD 011000 JSR $FDEA
70C5 A985 011010 LDA #133
70C7 8D48FE 011020 STA $FE48
70CA A9A3 011030 LDA #163
70CC 8D0FD2 011040 STA $D20F
70CF A204 011050 LDX #$04
70D1 AC0BD4 011060 LDY $D40B
70D4 011070 LOOPLINEA
70D4 CC0BD4 011080 CPY $D40B
70D7 F0FB 011090 BEQ LOOPLINEA
70D9 011100 WLINE
70D9 CC0BD4 011110 CPY $D40B
70DC D0FB 011120 BNE WLINE
70DE CA 011130 DEX
70DF 10F3 011140 BPL LOOPLINEA
70E1 A923 011150 LDA #35
70E3 8D0FD2 011160 STA $D20F
70E6 60 011170 RTS
70E7 011180 DATATRAMPA
70E7 60005780 011190 .BYTE $60,$00,$57,$80
70EB FC6F 011200 .WORD TRAMPA
70ED 2300 011210 .BYTE $23,$00
70EF 8300 011220 .WORD $83
70F1 0080 011230 .BYTE $00,$80
70F3 011240 *= $2000
2000 011250 BLKFALSO
2000 5555 011260 .BYTE $55,$55
2002 98 011270 TYA
2003 100B 011280 BPL BLOCKOK
2005 A922 011290 LDA #34
2007 8D2F02 011300 STA 559
200A 20C7ED 011310 JSR $EDC7
200D 4CFCC8 011320 JMP $C8FC
2010 011330 BLOCKOK
2010 AD3420 011340 LDA EORBLOCK
2013 4946 011350 EOR #$46
2015 8D3420 011360 STA EORBLOCK
2018 EE1620 011370 INC BLOCKOK+6
201B EE1120 011380 INC BLOCKOK+1
201E D006 011390 BNE NOINCBLOCK2
2020 EE1720 011400 INC BLOCKOK+7
?PAGE 32 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
2023 EE1220 011410 INC BLOCKOK+2
2026 011420 NOINCBLOCK2
2026 AD1220 011430 LDA BLOCKOK+2
2029 C922 011440 CMP # >FINBLKFALSO
202B D0E3 011450 BNE BLOCKOK
202D AD1120 011460 LDA BLOCKOK+1
2030 C93A 011470 CMP # <FINBLKFALSO
2032 D0DC 011480 BNE BLOCKOK
2034 011490 EORBLOCK
2034 A900 011500 LDA #$00
2036 8DC602 011510 STA 710
2039 A9FF 011520 LDA #$FF
203B 8D01D3 011530 STA $D301
203E 20EC21 011540 JSR ROMARAM
2041 A922 011550 LDA #34
2043 8D2F02 011560 STA 559
2046 8D00D4 011570 STA $D400
2049 A9C5 011580 LDA # <DL
204B 8D3002 011590 STA 560
204E A921 011600 LDA # >DL
2050 8D3102 011610 STA 561
2053 011620 LINEAPOSITIVA
2053 AC0BD4 011630 LDY $D40B
2056 30FB 011640 BMI LINEAPOSITIVA
2058 A9FF 011650 LDA #$FF
205A 8550 011660 STA $50
205C A99B 011670 LDA # <MUS
205E 8D2202 011680 STA $0222
2061 A920 011690 LDA # >MUS
2063 8D2302 011700 STA $0223
2066 A20B 011710 LDX #$0B
2068 011720 CARGALASTBLOCK
2068 BDB921 011730 LDA DATALAST,X
206B 9D0003 011740 STA $0300,X
206E CA 011750 DEX
206F 10F7 011760 BPL CARGALASTBLOCK
2071 A9FD 011770 LDA #$FF-2
2073 8514 011780 STA 20
2075 011790 WVBI
2075 A514 011800 LDA 20
2077 D0FC 011810 BNE WVBI
2079 A013 011820 LDY #19
207B 011830 CHECKTURBO
207B 18 011840 CLC
207C B9D821 011850 LDA DATA,Y
207F 6D8B20 011860 ADC BITLOCO+1
2082 6900 011870 ADC #$00
2084 8D8B20 011880 STA BITLOCO+1
2087 88 011890 DEY
2088 10F1 011900 BPL CHECKTURBO
208A 011910 BITLOCO
208A A900 011920 LDA #$00
208C 38 011930 SEC
208D E99A 011940 SBC #$9A
208F 3007 011950 BMI NODIO
2091 F002 011960 BEQ SIDIO
2093 1003 011970 BPL NODIO
2095 011980 SIDIO
2095 2059E4 011990 JSR $E459
2098 012000 NODIO
2098 6C0403 012010 JMP ($0304)
209B 012020 MUS
?PAGE 33 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
209B A982 012030 LDA #$82
209D 8D03D2 012040 STA $D203
20A0 CEDE20 012050 DEC SCUIS
20A3 ADDE20 012060 LDA SCUIS
20A6 D005 012070 BNE NO0SCUIS
20A8 A978 012080 LDA #120
20AA 8DDE20 012090 STA SCUIS
20AD 012100 NO0SCUIS
20AD 8D02D2 012110 STA $D202
20B0 CEDD20 012120 DEC VOLUME
20B3 ADDD20 012130 LDA VOLUME
20B6 8D01D2 012140 STA $D201
20B9 C9A2 012150 CMP #$A2
20BB D01D 012160 BNE FINMUS
20BD A9AA 012170 LDA #$AA
20BF 8DDD20 012180 STA VOLUME
20C2 EEDF20 012190 INC QUENOTA
20C5 AEDF20 012200 LDX QUENOTA
20C8 BDE020 012210 LDA TONOS,X
20CB C9FF 012220 CMP #$FF
20CD D008 012230 BNE NOFINMUS
20CF A917 012240 LDA #23
20D1 8DDF20 012250 STA QUENOTA
20D4 4C9B20 012260 JMP MUS
20D7 012270 NOFINMUS
20D7 8D00D2 012280 STA $D200
20DA 012290 FINMUS
20DA 4C5FE4 012300 JMP $E45F
20DD AA 012310 VOLUME .BYTE $AA
20DE 82 012320 SCUIS .BYTE 130
20DF 00 012330 QUENOTA .BYTE 0
20E0 012340 TONOS
20E0 00000000 012350 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0
20E4 00000000
20E8 00000000
20EC 00000000 012360 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0
20F0 00000000
20F4 00000000
20F8 A2515151 012370 .BYTE 162,81,81,81,81,81,91,81,81,81,81,81
20FC 51515B51
2100 51515151
2104 66515151 012380 .BYTE 102,81,81,81,81,81,108,81,81,81,81,81
2108 51516C51
210C 51515151
2110 79515151 012390 .BYTE 121,81,81,81,81,81,121,91,136,102,144,108
2114 5151795B
2118 8866906C
211C A279906C 012400 .BYTE 162,121,144,108,136,102,144,108,162,121,182,136
2120 8866906C
2124 A279B688
2128 A279906C 012410 .BYTE 162,121,144,108,136,102,144,108,162,121,182,136
212C 8866906C
2130 A279B688
2134 CC90D9A2 012420 .BYTE 204,144,217,162,243,204,243,182,217,162,204,217
2138 F3CCF3B6
213C D9A2CCD9
2140 A279906C 012430 .BYTE 162,121,144,108,136,102,144,108,162,121,182,136
2144 8866906C
2148 A279B688
214C A279906C 012440 .BYTE 162,121,144,108,136,102,144,108,162,121,182,136
2150 8866906C
2154 A279B688
?PAGE 34 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
2158 6C006C6C 012450 .BYTE 108,0,108,108,0,121,0,0,0,0,0,0
215C 00790000
2160 00000000
2164 88008888 012460 .BYTE 136,0,136,136,0,144,0,0,0,0,0,0
2168 00900000
216C 00000000
2170 A200A200 012470 .BYTE 162,0,162,0,162,0,144,0,144,0,144,0
2174 A2009000
2178 90009000
217C 88008800 012480 .BYTE 136,0,136,0,144,0,162,0,0,0,0,0
2180 9000A200
2184 00000000
2188 6C006C6C 012490 .BYTE 108,0,108,108,0,121,0,0,0,0,0,0
218C 00790000
2190 00000000
2194 88008888 012500 .BYTE 136,0,136,136,0,144,0,0,0,0,0,0
2198 00900000
219C 00000000
21A0 A200A200 012510 .BYTE 162,0,162,0,0,162,144,0,144,0,0,144
21A4 00A29000
21A8 90000090
21AC 88008890 012520 .BYTE 136,0,136,144,0,162,0,0,0,0,0,0,$FF
21B0 00A20000
21B4 00000000
21B8 FF
21B9 012530 DATALAST
21B9 60 012540 .BYTE $60
21BA 00 012550 .BYTE $00
21BB 52 012560 .BYTE $52
21BC 40 012570 .BYTE $40
21BD 0030 012580 .WORD BLKDOS
21BF 23 012590 .BYTE $23
21C0 00 012600 .BYTE $00
21C1 FA03 012610 .WORD FINBLKDOS-BLKDOS
21C3 00 012620 .BYTE $00
21C4 80 012630 .BYTE $80
21C5 012640 DL
21C5 70707046 012650 .BYTE 112,112,112,64+6
21C9 012660 CAMBIO1
21C9 D821 012670 .WORD DATA
21CB 70707070 012680 .BYTE 112,112,112,112,112,112,112,112,112,112
21CF 70707070
21D3 7070
21D5 41 012690 .BYTE 65
21D6 C521 012700 .WORD DL
21D8 012710 DATA
21D8 00000074 012720 .SBYTE " turbo SOFTWARE "
21DC 7572626F
21E0 00332F26
21E4 34372132
21E8 25000000
21EC 012730 ROMARAM
21EC A940 012740 LDA #$40
21EE 48 012750 PHA
21EF AA 012760 TAX
21F0 A900 012770 LDA #$00
21F2 48 012780 PHA
21F3 A8 012790 TAY
21F4 84CD 012800 STY ROM
21F6 84CB 012810 STY RAM
21F8 012820 REENTRE
21F8 86CC 012830 STX RAM+1
?PAGE 35 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS1.MAC?
21FA A2C0 012840 LDX #$C0
21FC 012850 LOOPCITO
21FC 86CE 012860 STX ROM+1
21FE 012870 LOOP1
21FE B1CD 012880 LDA (ROM),Y
2200 91CB 012890 STA (RAM),Y
2202 88 012900 DEY
2203 D0F9 012910 BNE LOOP1
2205 E6CC 012920 INC RAM+1
2207 E6CE 012930 INC ROM+1
2209 E8 012940 INX
220A F008 012950 BEQ ROMOFF
220C E0D0 012960 CPX #$D0
220E D0EE 012970 BNE LOOP1
2210 A2D8 012980 LDX #$D8
2212 D0E8 012990 BNE LOOPCITO
2214 013000 ROMOFF
2214 78 013010 SEI
2215 68 013020 PLA
2216 8D0ED4 013030 STA $D40E
2219 AD01D3 013040 LDA $D301
221C 29FE 013050 AND #$FE
221E 8D01D3 013060 STA $D301
2221 013070 RETURN
2221 A9CB 013080 LDA #RAM
2223 8DFF21 013090 STA LOOP1+1
2226 A9CD 013100 LDA #ROM
2228 8D0122 013110 STA LOOP1+3
222B A960 013120 LDA #$60
222D 8D1922 013130 STA ROMOFF+5
2230 A958 013140 LDA #$58
2232 8D1422 013150 STA ROMOFF
2235 A240 013160 LDX #$40
2237 4CF821 013170 JMP REENTRE
223A 013180 FINBLKFALSO
Re: wn porfiado turbo software parte II + codigos
tenis2.mac
Código: Seleccionar todo
0200 .INCLUDE #D:TENIS2.MAC
0100 ; SAVE#D:TENIS2.MAC
223A 0110 *= $3000
3000 0120 BLKDOS
3000 5555 0130 .BYTE $55,$55
=3000 0140 ORIGEN = $3000
=CC00 0150 PROGRAMA = $CC00
3002 98 0160 TYA
3003 1006 0170 BPL BLKOK
3005 20C7ED 0180 JSR $EDC7
3008 4CFCC8 0190 JMP $C8FC
300B 0200 BLKOK
300B AD2F30 0210 LDA EORBLOCK1
300E 49FF 0220 EOR #$FF
3010 8D2F30 0230 STA EORBLOCK1
3013 EE1130 0240 INC BLKOK+6
3016 EE0C30 0250 INC BLKOK+1
3019 D006 0260 BNE NOICRHI
301B EE1230 0270 INC BLKOK+7
301E EE0D30 0280 INC BLKOK+2
3021 0290 NOICRHI
3021 AD0D30 0300 LDA BLKOK+2
3024 C933 0310 CMP # >FINBLKDOS
3026 D0E3 0320 BNE BLKOK
3028 AD0C30 0330 LDA BLKOK+1
302B C9FA 0340 CMP # <FINBLKDOS
302D D0DC 0350 BNE BLKOK
?PAGE 36 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
302F 0360 EORBLOCK1
302F AD5AE4 0370 LDA $E45A
3032 8D2D32 0380 STA SALTO
3035 AD5BE4 0390 LDA $E45B
3038 8D2E32 0400 STA SALTO+1
303B A900 0410 LDA # <RAMPROG+SET
303D 8D5AE4 0420 STA $E45A
3040 85CD 0430 STA ROM
3042 A9CC 0440 LDA # >RAMPROG+SET
3044 8D5BE4 0450 STA $E45B
3047 85CE 0460 STA ROM+1
3049 A9FC 0470 LDA # <RAMPROG
304B 85CB 0480 STA RAM
304D A930 0490 LDA # >RAMPROG
304F 85CC 0500 STA RAM+1
3051 A000 0510 LDY #0
3053 A203 0520 LDX #3
3055 0530 ARRIBAROM
3055 B1CB 0540 LDA (RAM),Y
3057 91CD 0550 STA (ROM),Y
3059 C8 0560 INY
305A D0F9 0570 BNE ARRIBAROM
305C E6CC 0580 INC RAM+1
305E E6CE 0590 INC ROM+1
3060 CA 0600 DEX
3061 10F2 0610 BPL ARRIBAROM
3063 A202 0620 LDX #$02
3065 0630 LOOPINTERRUPCION
3065 BDF630 0640 LDA JSRINTERRUPCION,X
3068 9D59EB 0650 STA $EB59,X
306B BDF930 0660 LDA ERRORYA,X
306E 9D1DEB 0670 STA $EB1D,X
3071 CA 0680 DEX
3072 10F1 0690 BPL LOOPINTERRUPCION
3074 8EDB02 0700 STX $02DB
3077 8EF803 0710 STX $03F8
307A 8E0DFE 0720 STX $FE0D
307D A662 0730 LDX $62
307F A900 0740 LDA #$00
3081 8D8004 0750 STA $0480
3084 8D8104 0760 STA $0481
3087 9D91FE 0770 STA $FE91,X
308A A932 0780 LDA #$32
308C 9D93FE 0790 STA $FE93,X
308F A9EA 0800 LDA #$EA
3091 8DF3EB 0810 STA $EBF3
3094 8DF4EB 0820 STA $EBF4
3097 A9C0 0830 LDA #$C0
3099 856A 0840 STA $6A
309B A985 0850 LDA #133
309D 8D48FE 0860 STA $FE48
30A0 A90C 0870 LDA #12
30A2 8DFC02 0880 STA 764
30A5 A240 0890 LDX #$40
30A7 A90C 0900 LDA #$0C
30A9 9D4203 0910 STA $0342,X
30AC 2056E4 0920 JSR $E456
30AF A240 0930 LDX #$40
30B1 A903 0940 LDA #$03
30B3 9D4203 0950 STA $0342,X
30B6 A904 0960 LDA #$04
30B8 9D4A03 0970 STA $034A,X
?PAGE 37 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
30BB A980 0980 LDA #$80
30BD 9D4B03 0990 STA $034B,X
30C0 A9F3 1000 LDA # <C
30C2 9D4403 1010 STA $0344,X
30C5 A930 1020 LDA # >C
30C7 9D4503 1030 STA $0345,X
30CA 2056E4 1040 JSR $E456
30CD A240 1050 LDX #$40
30CF A900 1060 LDA # <GAMEA+Z
30D1 9D4403 1070 STA $0344,X
30D4 A9D8 1080 LDA # >GAMEA+Z
30D6 9D4503 1090 STA $0345,X
30D9 A9F5 1100 LDA # <FIN-GAMEA
30DB 9D4803 1110 STA $0348,X
30DE A905 1120 LDA # >FIN-GAMEA
30E0 9D4903 1130 STA $0349,X
30E3 A907 1140 LDA #$07
30E5 9D4203 1150 STA $0342,X
30E8 A9F0 1160 LDA #$F0
30EA 8D34CD 1170 STA QUEBLK+SET+1
30ED 2056E4 1180 JSR $E456
30F0 4C00D8 1190 JMP GAMEA+Z
30F3 1200 C
30F3 433A9B 1210 .BYTE "C:",$9B
30F6 1220 JSRINTERRUPCION
30F6 2010CD 1230 JSR INTERRUPCION+SET
30F9 1240 ERRORYA
30F9 2032CC 1250 JSR ERROR?+SET
30FC 1260 RAMPROG
30FC AD0003 1270 LDA $0300
30FF C960 1280 CMP #$60
3101 D028 1290 BNE READBLOCK
3103 1300 NEXT
3103 202FCC 1310 JSR READBLOCK+SET
3106 3034 1320 BMI ERROR
3108 1330 VUELTABLK1
3108 AD8004 1340 LDA $0480
310B 8D33CD 1350 STA QUEBLK+SET
310E AD8104 1360 LDA $0481
3111 8D34CD 1370 STA QUEBLK+SET+1
3114 A202 1380 LDX #$02
3116 1390 COUNTBLOCK
3116 DE0ECE 1400 DEC BLK+SET,X
3119 BD0ECE 1410 LDA BLK+SET,X
311C C98F 1420 CMP #'?-33
311E D008 1430 BNE FINCOUNT
3120 A999 1440 LDA #'?-32
3122 9D0ECE 1450 STA BLK+SET,X
3125 CA 1460 DEX
3126 10EE 1470 BPL COUNTBLOCK
3128 1480 FINCOUNT
3128 A001 1490 LDY #$01
312A 60 1500 RTS
312B 1510 READBLOCK
312B 6C31CD 1520 JMP (SALTO+SET)
312E 1530 ERROR?
312E F00A 1540 BEQ ERRORAZO
3130 A430 1550 LDY $30
3132 3006 1560 BMI ERRORAZO
3134 AD1703 1570 LDA $0317
3137 F001 1580 BEQ ERRORAZO
3139 60 1590 RTS
?PAGE 38 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
313A 1600 ERRORAZO
313A 68 1610 PLA
313B 68 1620 PLA
313C 1630 ERROR
313C 20C7ED 1640 JSR $EDC7
313F C088 1650 CPY #136
3141 D002 1660 BNE NOESEOF
3143 98 1670 TYA
3144 60 1680 RTS
3145 1690 NOESEOF
3145 A20A 1700 LDX #$0A
3147 1710 LOOPCORRIGIENDO
3147 BD78CE 1720 LDA CORRECCION+SET,X
314A 9DEECD 1730 STA LEYENDO+SET,X
314D CA 1740 DEX
314E 10F7 1750 BPL LOOPCORRIGIENDO
3150 18 1760 CLC
3151 AD3002 1770 LDA 560
3154 8500 1780 STA $00
3156 AD3102 1790 LDA 561
3159 8501 1800 STA $01
315B A00A 1810 LDY #$0A
315D 1820 SAVEVIEJO
315D B100 1830 LDA ($00),Y
315F 48 1840 PHA
3160 C8 1850 INY
3161 C00D 1860 CPY #$0D
3163 D0F8 1870 BNE SAVEVIEJO
3165 1880 JUSTO
3165 AD0BD4 1890 LDA $D40B
3168 30FB 1900 BMI JUSTO
316A A00A 1910 LDY #$0A
316C A901 1920 LDA #$01
316E 9100 1930 STA ($00),Y
3170 AD3102 1940 LDA 561
3173 C9CE 1950 CMP # >DISPLIST+SET
3175 D006 1960 BNE NOTENNIS
3177 A9BB 1970 LDA # <DL1+SET
3179 A2CE 1980 LDX # >DL1+SET
317B D004 1990 BNE SITENNIS
317D 2000 NOTENNIS
317D A9B4 2010 LDA # <DL2+SET
317F A2CE 2020 LDX # >DL2+SET
3181 2030 SITENNIS
3181 C8 2040 INY
3182 9100 2050 STA ($00),Y
3184 8A 2060 TXA
3185 C8 2070 INY
3186 9100 2080 STA ($00),Y
3188 20F8F2 2090 JSR $F2F8
318B 2100 JUSTO1
318B AD0BD4 2110 LDA $D40B
318E 30FB 2120 BMI JUSTO1
3190 A00C 2130 LDY #$0C
3192 2140 RESTAURA
3192 68 2150 PLA
3193 9100 2160 STA ($00),Y
3195 88 2170 DEY
3196 C009 2180 CPY #$09
3198 D0F8 2190 BNE RESTAURA
319A A934 2200 LDA #$34
319C 8D02D3 2210 STA $D302
?PAGE 39 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
319F A514 2220 LDA $14
31A1 18 2230 CLC
31A2 6932 2240 ADC #50
31A4 2250 WMOTOR
31A4 C514 2260 CMP $14
31A6 D0FC 2270 BNE WMOTOR
31A8 2280 ESPERE
31A8 AC0BD4 2290 LDY $D40B
31AB A205 2300 LDX #$05
31AD 2310 ESPERE1
31AD 8E0AD4 2320 STX $D40A
31B0 2330 ESIRG
31B0 AD0FD2 2340 LDA $D20F
31B3 2910 2350 AND #$10
31B5 F0F1 2360 BEQ ESPERE
31B7 CC0BD4 2370 CPY $D40B
31BA D0F4 2380 BNE ESIRG
31BC CA 2390 DEX
31BD D0EE 2400 BNE ESPERE1
31BF 2410 NOESIGUAL
31BF A940 2420 LDA #$40
31C1 8D0303 2430 STA $0303
31C4 202FCC 2440 JSR READBLOCK+SET
31C7 100A 2450 BPL NOERRORFALSO
31C9 20C7ED 2460 JSR $EDC7
31CC A934 2470 LDA #$34
31CE 8D02D3 2480 STA $D302
31D1 D0D5 2490 BNE ESPERE
31D3 2500 NOERRORFALSO
31D3 AD34CD 2510 LDA QUEBLK+SET+1
31D6 101C 2520 BPL NOBLK1
31D8 AD8004 2530 LDA $0480
31DB 0D8104 2540 ORA $0481
31DE D029 2550 BNE VALLAERROR
31E0 20EACC 2560 JSR CHANGEMSG+SET
31E3 4C0CCC 2570 JMP VUELTABLK1+SET
31E6 2580 CHANGEMSG
31E6 A20A 2590 LDX #$0A
31E8 2600 LOOPLECTURA
31E8 BD82CE 2610 LDA LECTURA+SET,X
31EB 9DEECD 2620 STA LEYENDO+SET,X
31EE CA 2630 DEX
31EF 10F7 2640 BPL LOOPLECTURA
31F1 A001 2650 LDY #$01
31F3 60 2660 RTS
31F4 2670 NOBLK1
31F4 A201 2680 LDX #$01
31F6 2690 LOOPLUGAR
31F6 BD8004 2700 LDA $0480,X
31F9 DD33CD 2710 CMP QUEBLK+SET,X
31FC 90C1 2720 BCC NOESIGUAL
31FE D009 2730 BNE VALLAERROR
3200 CA 2740 DEX
3201 10F3 2750 BPL LOOPLUGAR
3203 20EACC 2760 JSR CHANGEMSG+SET
3206 4C07CC 2770 JMP NEXT+SET
3209 2780 VALLAERROR
3209 4C40CC 2790 JMP ERROR+SET
320C 2800 INTERRUPCION
320C ADEECD 2810 LDA LEYENDO+SET
320F 297F 2820 AND #$7F
3211 F002 2830 BEQ BYTESLOOP
?PAGE 40 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
3213 D014 2840 BNE NOES9I
3215 2850 BYTESLOOP
3215 A204 2860 LDX #$04
3217 2870 BYTESLOOP1
3217 FE00CE 2880 INC BYTES+SET,X
321A BD00CE 2890 LDA BYTES+SET,X
321D C99A 2900 CMP #'?-31
321F D008 2910 BNE NOES9I
3221 A990 2920 LDA #'?-32
3223 9D00CE 2930 STA BYTES+SET,X
3226 CA 2940 DEX
3227 10EE 2950 BPL BYTESLOOP1
3229 2960 NOES9I
3229 AD0DD2 2970 LDA $D20D
322C 60 2980 RTS
322D 0000 2990 SALTO .DBYTE 0
322F 0000 3000 QUEBLK .DBYTE 0
3231 3010 TENMEBLK
3231 B0B0B0 3020 .BYTE "???"
3234 3030 MENSAJEERROR
3234 00000032 3040 .SBYTE " REBOBINE SU CASSETTE 3 VUELTAS DE "
3238 25222F22
323C 292E2500
3240 33350023
3244 21333325
3248 34342500
324C 13003635
3250 252C3421
3254 33002425
3258 00000000
325C 00000023 3050 .SBYTE " CONTADOR, PRESIONE ??????Y???????? "
3260 2F2E3421
3264 242F320C
3268 00303225
326C 33292F2E
3270 2500D9B0
3274 ACA1B959
3278 39D9B2A5
327C B4B5B2AE
3280 59000000
3284 3060 PANTALLA
3284 AAAAAAAA 3070 .BYTE "????????????????????"
3288 AAAAAAAA
328C AAAAAAAA
3290 AAAAAAAA
3294 AAAAAAAA
3298 8080 3080 PERS .SBYTE "??"
329A 909090 3090 NUMERO1 .SBYTE "???"
329D 80808080 3100 .SBYTE "??????????????????????????????"
32A1 808A8091
32A5 80AAB5A7
32A9 A1A4AFB2
32AD 8DA6B2AF
32B1 AEB4AFAE
32B5 808A8080
32B9 8080
32BB 90909080 3110 NUMERO2 .SBYTE "?????"
32BF 80
32C0 3120 MENSAJE
32C0 8080ADB0 3130 .SBYTE "????????????????????????????????????????"
32C4 AD808080
32C8 808A80A3
?PAGE 41 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
32CC A1B2A7A1
32D0 AEA4AF80
32D4 80B0B2AF
32D8 A7B2A1AD
32DC A1808A80
32E0 808080AD
32E4 B0AD8080
32E8 8080 3140 .SBYTE "??"
32EA 3150 LEYENDO
32EA 8088B289 3160 .SBYTE "??????????????????"
32EE 8D919998
32F2 98808080
32F6 A2B9B4A5
32FA B39A
32FC 3170 BYTES
32FC 90909090 3180 .SBYTE "??????????????"
3300 908080A2
3304 ACAFB1B5
3308 A59A
330A 3190 BLK
330A 90909080 3200 .SBYTE "??????"
330E 8080
3310 AAAAAAAA 3210 .BYTE "????????????????????"
3314 AAAAAAAA
3318 AAAAAAAA
331C AAAAAAAA
3320 AAAAAAAA
3324 3220 PER2
3324 80809090 3230 .SBYTE "????????????????????????????????????????"
3328 90808080
332C 80808A80
3330 9280AAB5
3334 A7A1A4AF
3338 B2A5B38D
333C B4A5AEA9
3340 B3808A80
3344 80808090
3348 90908080
334C 3240 PER1
334C 80809090 3250 .SBYTE "????????????????????????????????????????"
3350 90808080
3354 80808A80
3358 9180AAB5
335C A7A1A4AF
3360 B28DA6B2
3364 AFAEB4AF
3368 AE808A80
336C 80808090
3370 90908080
3374 3260 CORRECCION
3374 A3AFB2B2 3270 .SBYTE "??????????"
3378 A5A3A3A9
337C AFAE
337E 3280 LECTURA
337E 8088B289 3290 .SBYTE "??????????"
3382 8D919998
3386 9880
3388 3300 CARGADO
3388 80808080 3310 .SBYTE "????????????????????????????????????????"
338C B0B2AFA7
3390 B2A1ADA1
3394 80A3A1B2
?PAGE 42 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
3398 A7A1A4AF
339C 8C80B0B2
33A0 A5B3A9AF
33A4 AEA580B3
33A8 B4A1B2B4
33AC 80808080
33B0 3320 DL2
33B0 42 3330 .BYTE 64+2
33B1 38CD 3340 .WORD MENSAJEERROR+SET
33B3 0241 3350 .BYTE 2,65
33B5 20BC 3360 .WORD $BC20
33B7 3370 DL1
33B7 42 3380 .BYTE 64+2
33B8 38CD 3390 .WORD MENSAJEERROR+SET
33BA 02707070 3400 .BYTE 2,112,112,112,112,112,112,112,112,112,112,112,11
2,112,112,112,112
33BE 70707070
33C2 70707070
33C6 70707070
33CA 70
33CB 42 3410 .BYTE 64+2
33CC C4CD 3420 .WORD MENSAJE+SET
33CE 020808 3430 .BYTE 2,8,8
33D1 41 3440 .BYTE 65
33D2 D8CE 3450 .WORD DISPLIST+SET
33D4 3460 DISPLIST
33D4 48 3470 .BYTE 64+8
33D5 88CD 3480 .WORD PANTALLA+SET
33D7 08027070 3490 .BYTE 8,2,112,112,112,112,112,112,112
33DB 70707070
33DF 70
33E0 3500 AQUIJUMP
33E0 70707070 3510 .BYTE 112,112,112,112,112,112,112,112,112,112,112,112,
112,112,112,112,0
33E4 70707070
33E8 70707070
33EC 70707070
33F0 00
33F1 42 3520 .BYTE 64+2
33F2 3530 CUALPANTALLA
33F2 C4CD 3540 .WORD MENSAJE+SET
33F4 020808 3550 .BYTE 2,8,8
33F7 41 3560 .BYTE 65
33F8 D8CE 3570 .WORD DISPLIST+SET
33FA 3580 BUFFER
33FA 3590 FINBLKDOS
33FA 3600 *= $4000
4000 3610 GAMEA
=9800 3620 Z = $D800-*
4000 A922 3630 LDA # <GAME1A+Z
4002 85CB 3640 STA $CB
4004 A9D8 3650 LDA # >GAME1A+Z
4006 85CC 3660 STA $CC
4008 A000 3670 LDY #$00
400A 3680 EOR29LOOP
400A B1CB 3690 LDA ($CB),Y
400C 4929 3700 EOR #$29
400E 91CB 3710 STA ($CB),Y
4010 E6CB 3720 INC $CB
4012 D002 3730 BNE BCC
4014 E6CC 3740 INC $CC
4016 3750 BCC
?PAGE 43 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
4016 A5CC 3760 LDA $CC
4018 C9DD 3770 CMP # >FIN+Z
401A D0EE 3780 BNE EOR29LOOP
401C A5CB 3790 LDA $CB
401E C9F5 3800 CMP # <FIN+Z
4020 D0E8 3810 BNE EOR29LOOP
4022 3820 GAME1A
4022 4C85D8 3830 JMP COMIENZOLOAD+Z
4025 3840 SETCANT
4025 A210 3850 LDX #$10
4027 9D4803 3860 STA $0348,X
402A 98 3870 TYA
402B 9D4903 3880 STA $0349,X
402E 60 3890 RTS
402F 3900 READ2
402F A902 3910 LDA #$02
4031 A000 3920 LDY #$00
4033 2025D8 3930 JSR SETCANT+Z
4036 3940 READ3
4036 A9F5 3950 LDA # <FIN+Z
4038 A0DD 3960 LDY # >FIN+Z
403A 3970 SETPOS
403A 9D4403 3980 STA $0344,X
403D 98 3990 TYA
403E 9D4503 4000 STA $0345,X
4041 A907 4010 LDA #$07
4043 9D4203 4020 STA $0342,X
4046 2056E4 4030 JSR $E456
4049 1003 4040 BPL NOEOF
404B 4CF2DC 4050 JMP INICIOBOOT+Z
404E 4060 NOEOF
404E A210 4070 LDX #$10
4050 60 4080 RTS
4051 00 4090 BYTELENTO .BYTE $00
4052 4100 LEEMULA
4052 A901 4110 LDA #$01
4054 8D51D8 4120 STA BYTELENTO+Z
4057 4130 LEEMULA1
4057 AD0FD2 4140 LDA $D20F
405A 2910 4150 AND #$10
405C F0F9 4160 BEQ LEEMULA1
405E 4170 FINSTART
405E AD0FD2 4180 LDA $D20F
4061 2910 4190 AND #$10
4063 D0F9 4200 BNE FINSTART
4065 A9F4 4210 LDA #$00-12
4067 8514 4220 STA 20
4069 4230 ESPERO12
4069 A514 4240 LDA 20
406B D0FC 4250 BNE ESPERO12
406D 4260 LEOBIT
406D 18 4270 CLC
406E AD0FD2 4280 LDA $D20F
4071 2910 4290 AND #$10
4073 F001 4300 BEQ LEICERO
4075 38 4310 SEC
4076 4320 LEICERO
4076 2E51D8 4330 ROL BYTELENTO+Z
4079 B006 4340 BCS FINBYTELENTO
407B A9F8 4350 LDA #$00-8
407D 8514 4360 STA 20
407F D0E8 4370 BNE ESPERO12
?PAGE 44 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
4081 4380 FINBYTELENTO
4081 AD51D8 4390 LDA BYTELENTO+Z
4084 60 4400 RTS
4085 4410 COMIENZOLOAD
4085 AC0BD4 4420 LDY $D40B
4088 30FB 4430 BMI COMIENZOLOAD
408A A95F 4440 LDA # <$E45F
408C 8D2202 4450 STA $0222
408F A9E4 4460 LDA # >$E45F
4091 8D2302 4470 STA $0223
4094 A900 4480 LDA #$00
4096 8D00D2 4490 STA $D200
4099 8D01D2 4500 STA $D201
409C 8D02D2 4510 STA $D202
409F 4520 BORRAMEM
409F A904 4530 LDA #$04
40A1 8501 4540 STA $01
40A3 A900 4550 LDA #$00
40A5 8500 4560 STA $00
40A7 A8 4570 TAY
40A8 4580 ERASERAM
40A8 9100 4590 STA ($00),Y
40AA C8 4600 INY
40AB D0FB 4610 BNE ERASERAM
40AD E601 4620 INC $01
40AF A601 4630 LDX $01
40B1 4640 PONERC0
40B1 E0C0 4650 CPX #$C0
40B3 D0F3 4660 BNE ERASERAM
40B5 A202 4670 LDX #$02
40B7 4680 ZLOOPCEROS
40B7 BD35CD 4690 LDA TENMEBLK+SET,X
40BA 9D0ECE 4700 STA BLK+SET,X
40BD A990 4710 LDA #'?-32
40BF 9D02CE 4720 STA BYTES+2+SET,X
40C2 CA 4730 DEX
40C3 10F2 4740 BPL ZLOOPCEROS
40C5 8D01CE 4750 STA BYTES+1+SET
40C8 A203 4760 LDX #$03
40CA A900 4770 LDA #$00
40CC 4780 NIRUNNISTART
40CC 9DE002 4790 STA $02E0,X
40CF CA 4800 DEX
40D0 10FA 4810 BPL NIRUNNISTART
40D2 8DF1DD 4820 STA FBOOT+Z
=00DC 4830 PMBASE = $DC
=D300 4840 JOYST = $D300
=D010 4850 BOTON1 = $D010
=D011 4860 BOTON2 = $D011
=02C0 4870 COLORP0 = $02C0
=D000 4880 HPOSP0 = $D000
=D001 4890 HPOSP1 = $D001
=D002 4900 HPOSP2 = $D002
=D007 4910 DIVISION = $D007
=D01F 4920 CONSOL = $D01F
=D20A 4930 RANDOM = $D20A
=DF10 4940 BOLITA = PMBASE*$0100+768+16
=DE10 4950 P0 = PMBASE*$0100+512+16
=DE90 4960 P1 = PMBASE*$0100+640+16
40D5 4970 INICIO
40D5 A011 4980 LDY #17
40D7 A9EA 4990 LDA #$EA
?PAGE 45 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
40D9 5000 NOPDLIVBI
40D9 9937C1 5010 STA $C137,Y
40DC 88 5020 DEY
40DD 10FA 5030 BPL NOPDLIVBI
40DF A002 5040 LDY #$02
40E1 5050 NOSHADOWS
40E1 996FC1 5060 STA $C16F,Y
40E4 9978C1 5070 STA $C178,Y
40E7 88 5080 DEY
40E8 10F7 5090 BPL NOSHADOWS
40EA A900 5100 LDA #0
40EC 8D74D9 5110 STA START+Z
40EF A282 5120 LDX #$82
40F1 5130 LOOPCLR
40F1 9D10DF 5140 STA BOLITA,X
40F4 9D0EDE 5150 STA P0-2,X
40F7 9D8EDE 5160 STA P1-2,X
40FA CA 5170 DEX
40FB E0FF 5180 CPX #$FF
40FD D0F2 5190 BNE LOOPCLR
40FF E8 5200 INX
4100 5210 LOOPCLR1
4100 9D00DE 5220 STA $DE00,X
4103 9D00DF 5230 STA $DF00,X
4106 CA 5240 DEX
4107 D0F7 5250 BNE LOOPCLR1
4109 A9BF 5260 LDA #191
410B 8D00D0 5270 STA HPOSP0
410E A900 5280 LDA #0
4110 8D01D0 5290 STA HPOSP1
4113 A9BF 5300 LDA #191
4115 8D02D0 5310 STA HPOSP2
4118 A22A 5320 LDX #42
411A 8E04D0 5330 STX $D004
411D A2CE 5340 LDX #206
411F 8E05D0 5350 STX $D005
4122 2055D9 5360 JSR SETPERS+Z
4125 A93F 5370 LDA #63
4127 8D0CD0 5380 STA $D00C
412A A903 5390 LDA #$03
412C AE6DD9 5400 LDX YPOS0+Z
412F A00C 5410 LDY #$0C
4131 5420 DIBP1
4131 9D10DE 5430 STA P0,X
4134 9D90DE 5440 STA P1,X
4137 E8 5450 INX
4138 88 5460 DEY
4139 10F6 5470 BPL DIBP1
413B A901 5480 LDA #1
413D AE6FD9 5490 LDX YPOS2+Z
4140 9D10DF 5500 STA BOLITA,X
4143 5510 WFORSET
4143 AD0BD4 5520 LDA $D40B
4146 30FB 5530 BMI WFORSET
4148 A97A 5540 LDA # <VBI+Z
414A 8D2202 5550 STA $0222
414D A9D9 5560 LDA # >VBI+Z
414F 8D2302 5570 STA $0223
4152 4C3EDC 5580 JMP OPEN+Z
4155 5590 SETPERS
4155 A902 5600 LDA #2
4157 8D6F02 5610 STA 623
?PAGE 46 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
415A 8D1DD0 5620 STA $D01D
415D A9DC 5630 LDA #PMBASE
415F 8D07D4 5640 STA $D407
4162 A200 5650 LDX #0
4164 8E07D0 5660 STX DIVISION
4167 A97F 5670 LDA #$7F
4169 8D11D0 5680 STA $D011
416C 60 5690 RTS
416D 30 5700 YPOS0 .BYTE 48
416E 30 5710 YPOS1 .BYTE 48
416F 30 5720 YPOS2 .BYTE 48
4170 BF 5730 XPOS2 .BYTE 191
4171 00 5740 XPOS1 .BYTE 0
4172 FF 5750 FX .BYTE $FF
4173 00 5760 FY .BYTE 0
4174 00 5770 START .BYTE 0
4175 00 5780 IMPULSO .BYTE 0
4176 00 5790 SELECT .BYTE 0
4177 FF 5800 JUEGO .BYTE $FF
4178 0000 5810 SAVEVBI .DBYTE 0
417A 5820 VBI
417A A9CE 5830 LDA # >DISPLIST+SET
417C 8D03D4 5840 STA $D403
417F 8D4402 5850 STA $0244
4182 8D3102 5860 STA 561
4185 A9D8 5870 LDA # <DISPLIST+SET
4187 8D02D4 5880 STA $D402
418A 8D3002 5890 STA 560
418D A900 5900 LDA #0
418F 854D 5910 STA 77
4191 8D18D0 5920 STA $D018
4194 A9E0 5930 LDA #$E0
4196 8D09D4 5940 STA $D409
4199 A90E 5950 LDA #$0E
419B 8D12D0 5960 STA $D012
419E 8D13D0 5970 STA $D013
41A1 8D14D0 5980 STA $D014
41A4 8D16D0 5990 STA $D016
41A7 8D17D0 6000 STA $D017
41AA 8D19D0 6010 STA $D019
41AD A9D4 6020 LDA #212
41AF 8D1AD0 6030 STA $D01A
41B2 A92A 6040 LDA #42
41B4 8D00D4 6050 STA $D400
41B7 A9A0 6060 LDA #$A0
41B9 8D01D2 6070 STA $D201
41BC A900 6080 LDA #$00
41BE 8D00D2 6090 STA $D200
41C1 AD1FD0 6100 LDA CONSOL
41C4 C905 6110 CMP #$05
41C6 D04A 6120 BNE SELECT0
41C8 AD76D9 6130 LDA SELECT+Z
41CB D04A 6140 BNE NOCAMBIO
41CD A901 6150 LDA #1
41CF 8D76D9 6160 STA SELECT+Z
41D2 A900 6170 LDA #0
41D4 8D74D9 6180 STA START+Z
41D7 A027 6190 LDY #39
41D9 AD77D9 6200 LDA JUEGO+Z
41DC 49FF 6210 EOR #$FF
41DE 8D77D9 6220 STA JUEGO+Z
41E1 3018 6230 BMI ESUNO
?PAGE 47 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
41E3 6240 CHANGE ; 2 PERS
41E3 B928CE 6250 LDA PER2+SET,Y
41E6 999CCD 6260 STA PERS+SET,Y
41E9 88 6270 DEY
41EA 10F7 6280 BPL CHANGE
41EC A932 6290 LDA #50
41EE 8D01D0 6300 STA HPOSP1
41F1 8D71D9 6310 STA XPOS1+Z
41F4 A97F 6320 LDA #127
41F6 8D07D0 6330 STA DIVISION
41F9 D014 6340 BNE TERMINELO
41FB 6350 ESUNO ; 1PER
41FB B950CE 6360 LDA PER1+SET,Y
41FE 999CCD 6370 STA PERS+SET,Y
4201 88 6380 DEY
4202 10F7 6390 BPL ESUNO
4204 A900 6400 LDA #0
4206 8D01D0 6410 STA HPOSP1
4209 8D71D9 6420 STA XPOS1+Z
420C 8D07D0 6430 STA DIVISION
420F 6440 TERMINELO
420F 4C5FE4 6450 JMP $E45F
4212 6460 SELECT0
4212 A900 6470 LDA #0
4214 8D76D9 6480 STA SELECT+Z
4217 6490 NOCAMBIO
4217 AD74D9 6500 LDA START+Z
421A D045 6510 BNE STARTED
421C A900 6520 LDA #0
421E AE6FD9 6530 LDX YPOS2+Z
4221 9D10DF 6540 STA BOLITA,X
4224 AD1FD0 6550 LDA CONSOL
4227 C906 6560 CMP #$06
4229 D005 6570 BNE NOSTART
422B A9FF 6580 LDA #$FF
422D 8D74D9 6590 STA START+Z
4230 6600 NOSTART
4230 AD70D9 6610 LDA XPOS2+Z
4233 1017 6620 BPL BOTON2?
4235 AD10D0 6630 LDA BOTON1
4238 D024 6640 BNE JOY
423A AD6DD9 6650 LDA YPOS0+Z
423D 8D6FD9 6660 STA YPOS2+Z
4240 A9BE 6670 LDA #190
4242 8D70D9 6680 STA XPOS2+Z
4245 6690 EMPIEZELO
4245 A9FF 6700 LDA #$FF
4247 8D74D9 6710 STA START+Z
424A D0C3 6720 BNE TERMINELO
424C 6730 BOTON2?
424C AD11D0 6740 LDA BOTON2
424F D00D 6750 BNE JOY
4251 AD6ED9 6760 LDA YPOS1+Z
4254 8D6FD9 6770 STA YPOS2+Z
4257 A933 6780 LDA #51
4259 8D70D9 6790 STA XPOS2+Z
425C D0E7 6800 BNE EMPIEZELO
425E 6810 JOY
425E 4C92DB 6820 JMP JOYSTS+Z
4261 6830 STARTED
4261 AD72D9 6840 LDA FX+Z
4264 1006 6850 BPL INCRX
?PAGE 48 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
4266 2088DA 6860 JSR DECREX+Z
4269 4C6FDA 6870 JMP UD+Z
426C 6880 INCRX
426C 20FADA 6890 JSR INCREX+Z
426F 6900 UD
426F A900 6910 LDA #0
4271 AE6FD9 6920 LDX YPOS2+Z
4274 9D10DF 6930 STA BOLITA,X
4277 AD73D9 6940 LDA FY+Z
427A 1006 6950 BPL INCRY
427C 2080DB 6960 JSR DECREY+Z
427F 4C92DB 6970 JMP JOYSTS+Z
4282 6980 INCRY
4282 2056DB 6990 JSR INCREY+Z
4285 4C92DB 7000 JMP JOYSTS+Z
4288 7010 DECREX
4288 AD0ED0 7020 LDA $D00E
428B 2902 7030 AND #$02
428D F020 7040 BEQ NOREBOTE
428F A933 7050 LDA #$33
4291 8D00D2 7060 STA $D200
4294 A9AC 7070 LDA #$AC
4296 8D01D2 7080 STA $D201
4299 AD00D3 7090 LDA JOYST
429C 4A 7100 LSR A
429D 4A 7110 LSR A
429E 4A 7120 LSR A
429F 4A 7130 LSR A
42A0 C90F 7140 CMP #$0F
42A2 F002 7150 BEQ NOIMPULSE1
42A4 A9FF 7160 LDA #$FF
42A6 7170 NOIMPULSE1
42A6 8D75D9 7180 STA IMPULSO+Z
42A9 AE70D9 7190 LDX XPOS2+Z
42AC 4CEBDA 7200 JMP CHANGEXF+Z
42AF 7210 NOREBOTE
42AF CE70D9 7220 DEC XPOS2+Z
42B2 CE70D9 7230 DEC XPOS2+Z
42B5 AE70D9 7240 LDX XPOS2+Z
42B8 E02D 7250 CPX #45
42BA B037 7260 BCS FINDECREX
42BC AD71D9 7270 LDA XPOS1+Z
42BF C928 7280 CMP #40
42C1 9005 7290 BCC OUT2
42C3 A900 7300 LDA #0
42C5 8D74D9 7310 STA START+Z
42C8 7320 OUT2
42C8 A988 7330 LDA #$88
42CA 8D00D2 7340 STA $D200
42CD A9AC 7350 LDA #$AC
42CF 8D01D2 7360 STA $D201
42D2 A002 7370 LDY #2
42D4 7380 ZERO1
42D4 B99ECD 7390 LDA NUMERO1+SET,Y
42D7 C999 7400 CMP #'9-32+128
42D9 F008 7410 BEQ NINE1
42DB 18 7420 CLC
42DC 6901 7430 ADC #1
42DE 999ECD 7440 STA NUMERO1+SET,Y
42E1 D008 7450 BNE CHANGEXF
42E3 7460 NINE1
42E3 A990 7470 LDA #'0+128-32
?PAGE 49 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
42E5 999ECD 7480 STA NUMERO1+SET,Y
42E8 88 7490 DEY
42E9 10E9 7500 BPL ZERO1
42EB 7510 CHANGEXF
42EB AD72D9 7520 LDA FX+Z
42EE 49FF 7530 EOR #$FF
42F0 8D72D9 7540 STA FX+Z
42F3 7550 FINDECREX
42F3 8E70D9 7560 STX XPOS2+Z
42F6 8E02D0 7570 STX HPOSP2
42F9 60 7580 RTS
42FA 7590 INCREX
42FA AD0ED0 7600 LDA $D00E
42FD 2901 7610 AND #$01
42FF F01E 7620 BEQ NOREBOTE1
4301 A9AC 7630 LDA #$AC
4303 8D01D2 7640 STA $D201
4306 A933 7650 LDA #$33
4308 8D00D2 7660 STA $D200
430B AD00D3 7670 LDA JOYST
430E 290F 7680 AND #$0F
4310 C90F 7690 CMP #$0F
4312 F002 7700 BEQ NOIMPULSE
4314 A9FF 7710 LDA #$FF
4316 7720 NOIMPULSE
4316 8D75D9 7730 STA IMPULSO+Z
4319 AE70D9 7740 LDX XPOS2+Z
431C 4CEBDA 7750 JMP CHANGEXF+Z
431F 7760 NOREBOTE1
431F EE70D9 7770 INC XPOS2+Z
4322 EE70D9 7780 INC XPOS2+Z
4325 AE70D9 7790 LDX XPOS2+Z
4328 E0CD 7800 CPX #205
432A 90C7 7810 BCC FINDECREX
432C 7820 SELEFUE
432C A900 7830 LDA #0
432E 8D74D9 7840 STA START+Z
4331 A988 7850 LDA #$88
4333 8D00D2 7860 STA $D200
4336 A9AC 7870 LDA #$AC
4338 8D01D2 7880 STA $D201
433B A002 7890 LDY #2
433D 7900 ZERO2
433D B9BFCD 7910 LDA NUMERO2+SET,Y
4340 C999 7920 CMP #'9-32+128
4342 F008 7930 BEQ NINE2
4344 18 7940 CLC
4345 6901 7950 ADC #1
4347 99BFCD 7960 STA NUMERO2+SET,Y
434A D09F 7970 BNE CHANGEXF
434C 7980 NINE2
434C A990 7990 LDA #'0+128-32
434E 99BFCD 8000 STA NUMERO2+SET,Y
4351 88 8010 DEY
4352 10E9 8020 BPL ZERO2
4354 3095 8030 BMI CHANGEXF
4356 8040 INCREY
4356 EE6FD9 8050 INC YPOS2+Z
4359 AD75D9 8060 LDA IMPULSO+Z
435C 1003 8070 BPL BOTAR1
435E EE6FD9 8080 INC YPOS2+Z
4361 8090 BOTAR1
?PAGE 50 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
4361 AE6FD9 8100 LDX YPOS2+Z
4364 E05C 8110 CPX #92
4366 9012 8120 BCC FININCRY
4368 8130 CHANGEFY
4368 AD73D9 8140 LDA FY+Z
436B 49FF 8150 EOR #$FF
436D 8D73D9 8160 STA FY+Z
4370 A950 8170 LDA #$50
4372 8D00D2 8180 STA $D200
4375 A9AC 8190 LDA #$AC
4377 8D01D2 8200 STA $D201
437A 8210 FININCRY
437A A901 8220 LDA #1
437C 9D10DF 8230 STA BOLITA,X
437F 60 8240 RTS
4380 8250 DECREY
4380 CE6FD9 8260 DEC YPOS2+Z
4383 AD75D9 8270 LDA IMPULSO+Z
4386 1003 8280 BPL BOTAR2
4388 CE6FD9 8290 DEC YPOS2+Z
438B 8300 BOTAR2
438B AE6FD9 8310 LDX YPOS2+Z
438E 30D8 8320 BMI CHANGEFY
4390 10E8 8330 BPL FININCRY
4392 8340 JOYSTS
4392 A900 8350 LDA #0
4394 8D1ED0 8360 STA $D01E
4397 AD00D3 8370 LDA JOYST
439A 290F 8380 AND #$0F
439C C90F 8390 CMP #15
439E F011 8400 BEQ JOY2
43A0 C90E 8410 CMP #14
43A2 D006 8420 BNE DWN1
43A4 20D0DB 8430 JSR J1UP+Z
43A7 4CB1DB 8440 JMP JOY2+Z
43AA 8450 DWN1
43AA C90D 8460 CMP #13
43AC D003 8470 BNE JOY2
43AE 2000DC 8480 JSR J1DWN+Z
43B1 8490 JOY2
43B1 AD00D3 8500 LDA JOYST
43B4 4A 8510 LSR A
43B5 4A 8520 LSR A
43B6 4A 8530 LSR A
43B7 4A 8540 LSR A
43B8 C90F 8550 CMP #15
43BA F011 8560 BEQ EXIT
43BC C90E 8570 CMP #14
43BE D006 8580 BNE DWN2
43C0 20E8DB 8590 JSR J2UP+Z
43C3 4C5FE4 8600 JMP $E45F
43C6 8610 DWN2
43C6 C90D 8620 CMP #13
43C8 D003 8630 BNE EXIT
43CA 201FDC 8640 JSR J2DWN+Z
43CD 8650 EXIT
43CD 4C5FE4 8660 JMP $E45F
43D0 8670 J1UP
43D0 AC6DD9 8680 LDY YPOS0+Z
43D3 F012 8690 BEQ FINJ1UP
43D5 A210 8700 LDX #16
43D7 8710 LOOPJ1UP
?PAGE 51 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
43D7 B910DE 8720 LDA P0,Y
43DA 990EDE 8730 STA P0-2,Y
43DD C8 8740 INY
43DE CA 8750 DEX
43DF 10F6 8760 BPL LOOPJ1UP
43E1 CE6DD9 8770 DEC YPOS0+Z
43E4 CE6DD9 8780 DEC YPOS0+Z
43E7 8790 FINJ1UP
43E7 60 8800 RTS
43E8 8810 J2UP
43E8 AC6ED9 8820 LDY YPOS1+Z
43EB F012 8830 BEQ FINJ2UP
43ED A210 8840 LDX #16
43EF 8850 LOOPJ2UP
43EF B990DE 8860 LDA P1,Y
43F2 998EDE 8870 STA P1-2,Y
43F5 C8 8880 INY
43F6 CA 8890 DEX
43F7 10F6 8900 BPL LOOPJ2UP
43F9 CE6ED9 8910 DEC YPOS1+Z
43FC CE6ED9 8920 DEC YPOS1+Z
43FF 8930 FINJ2UP
43FF 60 8940 RTS
4400 8950 J1DWN
4400 AC6DD9 8960 LDY YPOS0+Z
4403 C050 8970 CPY #80
4405 F017 8980 BEQ FINJ1DWN
4407 98 8990 TYA
4408 18 9000 CLC
4409 690E 9010 ADC #14
440B A8 9020 TAY
440C A210 9030 LDX #16
440E 9040 LOOPJ1DWN
440E B90EDE 9050 LDA P0-2,Y
4411 9910DE 9060 STA P0,Y
4414 88 9070 DEY
4415 CA 9080 DEX
4416 10F6 9090 BPL LOOPJ1DWN
4418 EE6DD9 9100 INC YPOS0+Z
441B EE6DD9 9110 INC YPOS0+Z
441E 9120 FINJ1DWN
441E 60 9130 RTS
441F 9140 J2DWN
441F AC6ED9 9150 LDY YPOS1+Z
4422 C050 9160 CPY #80
4424 F017 9170 BEQ FINJ2DWN
4426 98 9180 TYA
4427 18 9190 CLC
4428 690E 9200 ADC #14
442A A8 9210 TAY
442B A210 9220 LDX #16
442D 9230 LOOPJ2DWN
442D B98EDE 9240 LDA P1-2,Y
4430 9990DE 9250 STA P1,Y
4433 88 9260 DEY
4434 CA 9270 DEX
4435 10F6 9280 BPL LOOPJ2DWN
4437 EE6ED9 9290 INC YPOS1+Z
443A EE6ED9 9300 INC YPOS1+Z
443D 9310 FINJ2DWN
443D 60 9320 RTS
443E 9330 OPEN
?PAGE 52 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
443E A2FF 9340 LDX #$FF
4440 8D4003 9350 STA $0340
4443 A210 9360 LDX #$10
4445 A903 9370 LDA #$03
4447 9D4203 9380 STA $0342,X
444A A9F2 9390 LDA # <DEVICE+Z
444C 9D4403 9400 STA $0344,X
444F A9DD 9410 LDA # >DEVICE+Z
4451 9D4503 9420 STA $0345,X
4454 A904 9430 LDA #$04
4456 9D4A03 9440 STA $034A,X
4459 A980 9450 LDA #$80
445B 9D4B03 9460 STA $034B,X
445E A90C 9470 LDA #$0C
4460 8DFC02 9480 STA 764
4463 2056E4 9490 JSR $E456
4466 9500 ZREAD
4466 202FD8 9510 JSR READ2+Z
4469 ADF5DD 9520 LDA FIN+Z
446C 2DF6DD 9530 AND FIN+1+Z
446F C9FF 9540 CMP #$FF
4471 D00F 9550 BNE SERABOOT?
4473 A973 9560 LDA # <$E474-1
4475 850C 9570 STA $0C
4477 A9E4 9580 LDA # >$E474-1
4479 850D 9590 STA $0D
447B A901 9600 LDA #$01
447D 8DF1DD 9610 STA FBOOT+Z
4480 D0E4 9620 BNE ZREAD
4482 9630 SERABOOT?
4482 ADE002 9640 LDA $02E0
4485 0DE102 9650 ORA $02E1
4488 D00C 9660 BNE RUNOK
448A ADF5DD 9670 LDA FIN+Z
448D 8DE002 9680 STA $02E0
4490 ADF6DD 9690 LDA FIN+1+Z
4493 8DE102 9700 STA $02E1
4496 9710 RUNOK
4496 ADF1DD 9720 LDA FBOOT+Z
4499 D003 9730 BNE NOESBOOT
449B 4C87DD 9740 JMP ESBOOT+Z
449E 9750 NOESBOOT
449E ADF5DD 9760 LDA FIN+Z
44A1 8D4002 9770 STA $0240
44A4 ADF6DD 9780 LDA FIN+1+Z
44A7 8D4102 9790 STA $0241
44AA 202FD8 9800 JSR READ2+Z
44AD 38 9810 SEC
44AE ADF5DD 9820 LDA FIN+Z
44B1 ED4002 9830 SBC $0240
44B4 9D4803 9840 STA $0348,X
44B7 ADF6DD 9850 LDA FIN+1+Z
44BA ED4102 9860 SBC $0241
44BD 9D4903 9870 STA $0349,X
44C0 FE4803 9880 INC $0348,X
44C3 D003 9890 BNE NOCARRYY
44C5 FE4903 9900 INC $0349,X
44C8 9910 NOCARRYY
44C8 AD4002 9920 LDA $0240
44CB AC4102 9930 LDY $0241
44CE 203AD8 9940 JSR SETPOS+Z
44D1 ADE202 9950 LDA $02E2
?PAGE 53 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
44D4 0DE302 9960 ORA $02E3
44D7 F00B 9970 BEQ NOSUBRUTIN
44D9 9980 CONSUBRUTINA
44D9 20E7DC 9990 JSR USERSUB+Z
44DC A900 010000 LDA #$00
44DE 8DE202 010010 STA $02E2
44E1 8DE302 010020 STA $02E3
44E4 010030 NOSUBRUTIN
44E4 4C66DC 010040 JMP ZREAD+Z
44E7 010050 USERSUB
44E7 6CE202 010060 JMP ($02E2)
44EA 010070 CORREPROGRAMA
44EA A9FF 010080 LDA #$FF
44EC 8D01D3 010090 STA $D301
44EF 6CE002 010100 JMP ($02E0)
44F2 010110 INICIOBOOT
44F2 A9E2 010120 LDA #$00-30
44F4 8514 010130 STA 20
44F6 010140 WRELOS
44F6 AD0FD2 010150 LDA $D20F
44F9 2910 010160 AND #$10
44FB F0F5 010170 BEQ INICIOBOOT
44FD A514 010180 LDA 20
44FF D0F5 010190 BNE WRELOS
4501 A002 010200 LDY #$02
4503 010210 LEOLENTO
4503 2052D8 010220 JSR LEEMULA+Z
4506 99E003 010230 STA $03E0,Y
4509 88 010240 DEY
450A 10F7 010250 BPL LEOLENTO
450C ADE003 010260 LDA $03E0
450F CDE203 010270 CMP $03E2
4512 F015 010280 BEQ JUSTOAHORA
4514 CDE103 010290 CMP $03E1
4517 F010 010300 BEQ JUSTOAHORA
4519 ADE203 010310 LDA $03E2
451C CDE103 010320 CMP $03E1
451F F008 010330 BEQ JUSTOAHORA
4521 010340 LEYODISTINTO
4521 A903 010350 LDA #$03
4523 8DB2D8 010360 STA PONERC0+Z+1
4526 4C9FD8 010370 JMP BORRAMEM+Z
4529 010380 JUSTOAHORA
4529 A93C 010390 LDA #$3C
452B 8D02D3 010400 STA $D302
452E A227 010410 LDX #39
4530 010420 PROGRAMAENMEMORIA
4530 BD8CCE 010430 LDA CARGADO+SET,X
4533 9DC4CD 010440 STA MENSAJE+SET,X
4536 CA 010450 DEX
4537 10F7 010460 BPL PROGRAMAENMEMORIA
4539 010470 PRESIONOCAMBIO?
4539 AD1FD0 010480 LDA CONSOL
453C C906 010490 CMP #$06
453E D0F9 010500 BNE PRESIONOCAMBIO?
4540 A207 010510 LDX #$07
4542 010520 LLEVARAM
4542 BDEADC 010530 LDA CORREPROGRAMA+Z,X
4545 9D9203 010540 STA $0392,X
4548 CA 010550 DEX
4549 10F7 010560 BPL LLEVARAM
454B 010570 JUSTO2
?PAGE 54 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
454B AD0BD4 010580 LDA $D40B
454E 30FB 010590 BMI JUSTO2
4550 A95F 010600 LDA # <$E45F
4552 8D2202 010610 STA $0222
4555 A9E4 010620 LDA # >$E45F
4557 8D2302 010630 STA $0223
455A A900 010640 LDA #$00
455C 8D6F02 010650 STA 623
455F A21F 010660 LDX #$1F
4561 010670 PMARGEN
4561 9D00D0 010680 STA $D000,X
4564 CA 010690 DEX
4565 10FA 010700 BPL PMARGEN
4567 A900 010710 LDA #$00
4569 8D4402 010720 STA $0244
456C A902 010730 LDA #$02
456E 8509 010740 STA $09
4570 ADE002 010750 LDA $02E0
4573 8502 010760 STA $02
4575 850A 010770 STA $0A
4577 ADE102 010780 LDA $02E1
457A 8503 010790 STA $03
457C 850B 010800 STA $0B
457E A50D 010810 LDA $0D
4580 48 010820 PHA
4581 A50C 010830 LDA $0C
4583 48 010840 PHA
4584 010850 SINRESET
4584 4C9203 010860 JMP $0392
4587 010870 ESBOOT
4587 ADF5DD 010880 LDA FIN+Z
458A 8D4002 010890 STA $0240
458D ADF6DD 010900 LDA FIN+1+Z
4590 8D4102 010910 STA $0241
4593 202FD8 010920 JSR READ2+Z
4596 18 010930 CLC
4597 ADF5DD 010940 LDA FIN+Z
459A 6906 010950 ADC #$06
459C 8504 010960 STA $04
459E ADF6DD 010970 LDA FIN+1+Z
45A1 6900 010980 ADC #$00
45A3 8505 010990 STA $05
45A5 202FD8 011000 JSR READ2+Z
45A8 ADF5DD 011010 LDA FIN+Z
45AB 850C 011020 STA $0C
45AD ADF6DD 011030 LDA FIN+1+Z
45B0 850D 011040 STA $0D
45B2 A006 011050 LDY #$06
45B4 011060 MULTIPLICA
45B4 0E4102 011070 ASL $0241
45B7 2E4002 011080 ROL $0240
45BA 88 011090 DEY
45BB 10F7 011100 BPL MULTIPLICA
45BD AD4002 011110 LDA $0240
45C0 9D4903 011120 STA $0349,X
45C3 AD4102 011130 LDA $0241
45C6 9D4803 011140 STA $0348,X
45C9 A504 011150 LDA $04
45CB 9D4403 011160 STA $0344,X
45CE 8DE002 011170 STA $02E0
45D1 A505 011180 LDA $05
45D3 9D4503 011190 STA $0345,X
?PAGE 55 IOMAC.LIB -- OSS system I/O macros
CLOSE macro D:TENIS2.MAC?
45D6 8DE102 011200 STA $02E1
45D9 A907 011210 LDA #$07
45DB 9D4203 011220 STA $0342,X
45DE 2056E4 011230 JSR $E456
45E1 38 011240 SEC
45E2 A50C 011250 LDA $0C
45E4 E901 011260 SBC #$01
45E6 850C 011270 STA $0C
45E8 A50D 011280 LDA $0D
45EA E900 011290 SBC #$00
45EC 850D 011300 STA $0D
45EE 4CF2DC 011310 JMP INICIOBOOT+Z
45F1 011320 FBOOT
45F1 00 011330 .BYTE 0
45F2 011340 DEVICE
45F2 433A9B 011350 .BYTE "C:",$9B
45F5 011360 FIN
45F5 011370 .END
*** ASSEMBLY ERRORS: 0 16947 BYTES FREE
?PAGE 56 IOMAC.LIB -- OSS system I/O macros
SYMBOLS
=0005 @@IO %1E3D @CH %1E7D @CV
81F0 @F %1EA3 @FL %2158 @GP %20D4 @GP2
8514 @IO
A0F5 ADCHKSUM =037D ADR A01C AEOREAR A000 AGRABAR
=000E APPMHI 33E0 AQUIJUMP 3055 ARRIBAROM
8375 BAJE 800A BANCO 8094 BANQUEO 4016 BCC
8568 BELLO %21DD BGET 208A BITLOCO 330A BLK
3000 BLKDOS 2000 BLKFALSO 300B BLKOK A003 BLKUNO
2010 BLOCKOK =DF10 BOLITA 409F BORRAMEM 83CD BORREC
4361 BOTAR1 438B BOTAR2 =D010 BOTON1 =D011 BOTON2
424C BOTON2? %2237 BPUT 33FA BUFFER 8673 BUFSCREEN
4051 BYTELENTO 8001 BYTEMULA 32FC BYTES 3215 BYTESLOOP
3217 BYTESLOOP1
30F3 C 8485 C1000? BB1E C? 8152 CALCULOASC
84BF CAMBIADISCO 21C9 CAMBIO1 8002 CANTR 8004 CANTW
3388 CARGADO 2068 CARGALASTBLOCK =BFFA CARTLOC
=000C CCLOSE =0021 CERA =0007 CGBINR =0005 CGTXTR
41E3 CHANGE 4368 CHANGEFY 31E6 CHANGEMSG 42EB CHANGEXF
207B CHECKTURBO 707F CHEQUEO 70A6 CHEQUEOK A165 CHKSUM
7090 CHKTRAMPA =E456 CIO %2438 CLOSE =0026 CNOTE
=02C0 COLORP0 4085 COMIENZOLOAD BB31 CON 8012 CONRES
=D01F CONSOL 44D9 CONSUBRUTINA =0003 COPN 3374 CORRECCION
44EA CORREPROGRAMA 3116 COUNTBLOCK =000A CPALOC =000B CPBINR
=000A CPBUFP =003F CPCMDB =00F3 CPCMDGO =0007 CPDFDV
=000B CPEXFL =000C CPEXFN =001C CPEXNP =0021 CPFNAM
=0003 CPGNFN =0025 CPOINT =0023 CPRO =0009 CPTXTR
=0020 CREN =000D CSTAT 33F2 CUALPANTALLA =0024 CUNP
21D8 DATA A166 DATA1 A172 DATA2
A17E DATAFALSA 21B9 DATALAST 70E7 DATATRAMPA A058 DATIX1
867F DECBELLO 4288 DECREX 4380 DECREY =000C DESDE
45F2 DEVICE 4131 DIBP1 =9C83 DIF 8203 DIRECTORIO
33D4 DISPLIST =D007 DIVISION 21C5 DL 33B7 DL1
33B0 DL2 7064 DLTRAMPA 43AA DWN1 43C6 DWN2
838C ELCOK 4245 EMPIEZELO 85A8 ENDNAME =009B EOL
400A EOR29LOOP 2034 EORBLOCK 302F EORBLOCK1 8000 EORBYTE
8078 EOREO =003B EORLEN A10B EORLISTO A00C EORLOOP
A0D9 EORLOOP1 A08C EORNOLISTO 40A8 ERASERAM 313C ERROR
312E ERROR? 313A ERRORAZO 30F9 ERRORYA 845C ESASC?
4587 ESBOOT 31B0 ESIRG 8196 ESNEGATIVO A030 ESPERASINCRO
70B9 ESPERATRAMPA 31A8 ESPERE 31AD ESPERE1 A12A ESPERIX
4069 ESPERO12 8393 ESTAFILE 41FB ESUNO =0010 EXCNEW
=0040 EXCSCR =0020 EXCSUP =0080 EXCYES 43CD EXIT
BB3B FACTOR 45F1 FBOOT 7080 FCHK 8009 FEOF
8008 FEOR 86E8 FILLBUFFER 45F5 FIN 8463 FINASC
8576 FINBELISIMO 8694 FINBELLO 33FA FINBLKDOS 223A FINBLKFALSO
4081 FINBYTELENTO 8172 FINCALCULO 8126 FINCARGA 3128 FINCOUNT
42F3 FINDECREX 8244 FINDIRECTORIO A056 FINFIRST 437A FININCRY
441E FINJ1DWN 43E7 FINJ1UP 443D FINJ2DWN 43FF FINJ2UP
20DA FINMUS 85C5 FINNUEVE 86C0 FINP01 83BB FINPUNTO
405E FINSTART 8433 FR1FR0 =00D4 FRO 4172 FX
4173 FY
4022 GAME1A 4000 GAMEA =F2F8 GETBYTE =02E0 GOADR
A084 GRABABLKUNO 8042 GRABAMULA 862F GRABANDOP02 7081 GRABATRAMPA
800B GUARDABANCO
=000E HASTA =D000 HPOSP0 =D001 HPOSP1 =D002 HPOSP2
034A ICAUX1 034B ICAUX2 034C ICAUX3 034D ICAUX4
034E ICAUX5 034F ICAUX6 0344 ICBADR 0348 ICBLEN
0342 ICCOM 0341 ICDNO 0340 ICHID 0346 ICPUT
0343 ICSTA 4175 IMPULSO 42FA INCREX 4356 INCREY
426C INCRX 4282 INCRY 40D5 INICIO 44F2 INICIOBOOT
8486 INICIOPROGRAMA =02E2 INITADR %23AA INPUT
?PAGE 57 IOMAC.LIB -- OSS system I/O macros
SYMBOLS
320C INTERRUPCION 83BC INVERSO 82A0 INVIERTA 0340 IOCB
=0010 IOCBLEN
4400 J1DWN 43D0 J1UP 441F J2DWN 43E8 J2UP
425E JOY 43B1 JOY2 =D300 JOYST 4392 JOYSTS
30F6 JSRINTERRUPCION 4177 JUEGO 3165 JUSTO
318B JUSTO1 454B JUSTO2 4529 JUSTOAHORA
8006 LASTCANT 8624 LEADERTIME 337E LECTURA 4052 LEEMULA
4057 LEEMULA1 4076 LEICERO 406D LEOBIT 4503 LEOLENTO
32EA LEYENDO 4521 LEYODISTINTO BB09 LINE0 806A LINEA10?
2053 LINEAPOSITIVA 4542 LLEVARAM 83BE LOINVIERTO 21FE LOOP1
810A LOOPBANCOS 8559 LOOPBONITO 21FC LOOPCITO 40F1 LOOPCLR
4100 LOOPCLR1 3147 LOOPCORRIGIENDO 8174 LOOPFINCALCULO
3065 LOOPINTERRUPCION 84B5 LOOPIRG1 440E LOOPJ1DWN
43D7 LOOPJ1UP 442D LOOPJ2DWN 43EF LOOPJ2UP 31E8 LOOPLECTURA
70D4 LOOPLINEA 31F6 LOOPLUGAR 8052 LOOPMULA 818F LOOPPOSITIVO
704B LOOPTRAMPA 70A8 LOOPTRAMPIX 8610 LOPLEAD1 83AB LOPUNTO
=02E7 MEMLO =02E5 MEMTOP 32C0 MENSAJE 3234 MENSAJEERROR
805B MULA0 45B4 MULTIPLICA 209B MUS
BB00 NEWDL 3103 NEXT 42E3 NINE1 434C NINE2
868C NINEBELLO 40CC NIRUNNISTART 20AD NO0SCUIS 8385 NOBAJALE
31F4 NOBLK1 83F9 NOC1000 8585 NOCAMBIADISCO 4217 NOCAMBIO
44C8 NOCARRYY 833F NOCRES 82F8 NOCSUB 2098 NODIO
404E NOEOF 82D3 NOEOR29A 82ED NOEOR29B 8317 NOEOR29C
8333 NOEOR29D 814A NOEORFF 81A3 NOEORFF1 81BA NOEORFF2
81D1 NOEORFF3 31D3 NOERRORFALSO 3229 NOES9I 449E NOESBOOT
3145 NOESEOF 31BF NOESIGUAL 8169 NOFINCALCULO 20D7 NOFINMUS
3021 NOICRHI 4316 NOIMPULSE 42A6 NOIMPULSE1 86DC NOINC481
2026 NOINCBLOCK2 8454 NOINCD5 8087 NOINCDESDE1 86A2 NOINCHIBIS
86A8 NOINCHIS 8650 NOLASTBANCO 8018 NOMBRE 859A NOMBRESCREEN
869C NONUEVOBLK 82B4 NOOTRO 40D9 NOPDLIVBI 81D4 NOQUEDANMAS
42AF NOREBOTE 431F NOREBOTE1 40E1 NOSHADOWS 4230 NOSTART
44E4 NOSUBRUTIN 317D NOTENNIS 835C NOTOMEFIL 835F NOUPALE
85BC NUEVE9 85AA NUEVEBLKS 85AC NUEVEBLKS1 329A NUMERO1
32BB NUMERO2 858E NUMEROSCREEN
=0009 OPAPND =0006 OPDIR 443E OPEN %2049 OPEN
80E0 OPENOK =0004 OPIN =0008 OPOUT =000C OPUPD
=3000 ORIGEN 8511 OTRACOPIA 42C8 OUT2
=DE10 P0 =DE90 P1 802C PABONITO 3284 PANTALLA
334C PER1 3324 PER2 3298 PERS 4561 PMARGEN
=00DC PMBASE 86C6 POKEANDOESPERO 8307 PONCONRES
82C3 PONCONSUB 40B1 PONERC0 8323 PONSINRES 82DE PONSINSUB
4539 PRESIONOCAMBIO? %2290 PRINT =F2B0 PRINTBYTE
=CC00 PROGRAMA 4530 PROGRAMAENMEMORIA 83A3 PUNTO
82A3 QUEAPRETO? 322F QUEBLK 20DF QUENOTA
=00CB RAM 30FC RAMPROG =D20A RANDOM 402F READ2
4036 READ3 312B READBLOCK 21F8 REENTRE A02C RELOS
=03FF RESTABYTE 3192 RESTAURA 2221 RETURN =00CD ROM
21EC ROMARAM 2214 ROMOFF =003D RUNLOC 4496 RUNOK
322D SALTO 8616 SAVEC0LENTO A13C SAVEFALSO =0000 SAVEPC
4178 SAVEVBI 315D SAVEVIEJO 20DE SCUIS BB37 SECTOR
4176 SELECT 4212 SELECT0 432C SELEFUE 4482 SERABOOT?
=9B04 SET 4025 SETCANT 4155 SETPERS 403A SETPOS
2095 SIDIO 86E4 SIEOF 8668 SIGAGRBANDO BB34 SIN
8292 SINNOMBRE 800F SINRES 4584 SINRESET 3181 SITENNIS
4174 START 4261 STARTED 8015 STRING 800C SUB
80E1 SUBBGET 80AC SUBCLOSE 81D7 SUBDIRECTORIO 80B7 SUBOPEN
8102 SUBREAD A18A SUMABYTE
3231 TENMEBLK A03B TERMINA0 420F TERMINELO 86D4 TERMINOWRITE
706B TEXTOTRAMPA 8298 TOMEFILE 83D7 TOMENUM 20E0 TONOS
6FFC TRAMPA A044 TRANSFER =00B3 TURBO
426F UD 44E7 USERSUB
3209 VALLAERROR 417A VBI 20DD VOLUME BC23 VOLVERE
?PAGE 58 IOMAC.LIB -- OSS system I/O macros
SYMBOLS
3108 VUELTABLK1 8140 VUELVEA0
85EB W1SEG =0008 WARMST A136 WFALSO A14D WFORIRGTIME
4143 WFORSET A113 WLEADERTIME 70D9 WLINE 31A4 WMOTOR
44F6 WRELOS 865E WRITECASSETTE 8621 WRITETOCASSETTE
82A8 WTECLA 2075 WVBI
%1F2D XIO 4171 XPOS1 4170 XPOS2
416D YPOS0 416E YPOS1 416F YPOS2
=9800 Z 42D4 ZERO1
433D ZERO2 40B7 ZLOOPCEROS 4466 ZREAD
Re: wn porfiado turbo software parte II + codigos
Como ya comparaste 1000% lo tipeado y aun hay algunas diferencias cuando ensamblamos, tanto la linea 1100 y también si te fijas en la simbologia de la compilación hay muchas diferencias en que posiciones de memoria usaran algunas etiquetas y variables.
Lo único que se me ocurre que el ambiente para compilar no es el mismo que usaron, ya que por la versión del sistema operativo o el mac/65 estas etiquetas cambian de posiciones de memoria.
Haz probado el programa en el atari real
Saludos.
Lo único que se me ocurre que el ambiente para compilar no es el mismo que usaron, ya que por la versión del sistema operativo o el mac/65 estas etiquetas cambian de posiciones de memoria.
Haz probado el programa en el atari real
Saludos.
Re: wn porfiado turbo software parte II + codigos
Después de un bueeen tiempo, obtuve una respuesta a los mensajes que le envié a Pedro:
Pedro Caraball escribió:Antes que nada quiero decirte que admiro su perseverancia y agradezco sus logros.
En este momento de mi vida me encuentro en un proyecto muy importante para mi, pues estuve trabajando por mas de un año para lograr tener la oportunidad que hoy tengo reinventando una fábrica que dará empleo a mucha gente y por sobre todo a mi.
Es por esta razón que no he estado muy activo respecto de lo que me has enviado, pero te aseguro que es algo circunstancial que no tiene nada que ver con el material en sí, sobre lo cual pienso (y me gustaría) ayudarles en lo que requieran cuando mi fábrica entre en régimen de producción.
Tengo poco tiempo pero me alcanza para decirte que yo utilizaba el MAC/65 para mis proyectos en assembler.
Afectuosos saludos
Pedro Pablo Caraball A.
Re: wn porfiado turbo software parte II + codigos
Hola!
La relación código fuente -> código de máquina en ASM es 1 a 1 por lo que no creo que se trate de un problema de ambiente o de compilador la diferencia que tienen en la linea 1100
Mirando rápidamente, veo en la página 37 del doc3.zip en donde aparecen estas etiquetas (TENISBAS2.MAC):
En ese caso, LDA #<FIN-GAMEA quedará como
En cambio en el código que publicaron acá tienen
Lo que es consistente con que LDA #<FIN-GAMEA les de
Cual es el archivo original que están mirando que no les coincide?
Saludos
La relación código fuente -> código de máquina en ASM es 1 a 1 por lo que no creo que se trate de un problema de ambiente o de compilador la diferencia que tienen en la linea 1100
Mirando rápidamente, veo en la página 37 del doc3.zip en donde aparecen estas etiquetas (TENISBAS2.MAC):
Código: Seleccionar todo
4000 GAMEA
4514 FINCódigo: Seleccionar todo
A914Código: Seleccionar todo
4000 GAMEA
45F5 FINCódigo: Seleccionar todo
A9F5Saludos
Re: wn porfiado turbo software parte II + codigos
hola franco, el documento con el cual estamos trabajando el el Turbo soft 2.pdf
donde existen los siguientes archivos
ensambla.mac
tenis1.mac
tenis2.mac
y en base a este documento es que nos da el problema, por lo que leo de Suppawer Pedro trabajaba en base al mac65, la compilación en assembler yo la realizo siempre con el mac65 y después lo pruebo con el dos 256kb porque no me carga con otro sistema. hare las pruebas en mi atari 800 recién armadito en 256 y le haré las pruebas.
en todo caso estoy con probando y verificando las dos versiones tanto el turbo soft 1.pdf como el turbo 2.pdf. esperando que alguna funcione. la publicada desde la mitad de este post fue la version turbo soft 2.pdf que es la que con ascrnet hemos tratado de terminar.
donde existen los siguientes archivos
ensambla.mac
tenis1.mac
tenis2.mac
y en base a este documento es que nos da el problema, por lo que leo de Suppawer Pedro trabajaba en base al mac65, la compilación en assembler yo la realizo siempre con el mac65 y después lo pruebo con el dos 256kb porque no me carga con otro sistema. hare las pruebas en mi atari 800 recién armadito en 256 y le haré las pruebas.
en todo caso estoy con probando y verificando las dos versiones tanto el turbo soft 1.pdf como el turbo 2.pdf. esperando que alguna funcione. la publicada desde la mitad de este post fue la version turbo soft 2.pdf que es la que con ascrnet hemos tratado de terminar.
Re: wn porfiado turbo software parte II + codigos
Ok, revisado. Hay una inconsistencia en la impresión
Ten la seguridad de que el valor correcto es
Ya que FIN queda en 45F5 (página 45)
Algo debe haber pasado con esa impresión que salió el valor A9 14
No te desgastes en esa inconsistencia.
Saludos
Ten la seguridad de que el valor correcto es
Código: Seleccionar todo
A9 F5Algo debe haber pasado con esa impresión que salió el valor A9 14
No te desgastes en esa inconsistencia.
Saludos
Re: wn porfiado turbo software parte II + codigos
fcatrin escribió:Hay una inconsistencia en la impresión
No es la única que hemos detectado 
gracias franco por echarle un ojo a mi se me había pasado, ya que en la simbologia hay varias que cambian. Como dije antes el listado no es 100% fiable. vamos a tener que proceder a las pruebas en el atari real nomas y ver si explota Saludos
Re: wn porfiado turbo software parte II + codigos
procedido muchachos en el atari real, uffff no salio humo por lo menos
detallo:
carga de mac65 OK
carga de ensamblador
LOAD#D:ENSAMBLA.MAC OK
ENSAMBLAMIENTO
ASM,,#D:TURBO.XEX OK
Apago y enciendo atari con dos256kb OK
carga del fichero con opcion L
TURBO.XEX OK
inicia copiador ok
solicita disco ok
cargo disco con juego alien ambush elijo la opcion ok
carga de juego a la memoria ok
hasta ahi todo esta a pedir de boca, funciona tanto el directorio como las opciones para la carga del archivo y queda almacenado en la memoria del atari
grabo el juego en un cassette y cueccccccccccccccccccccc, despelote
comienza la grabación ok
pero no tiene el plazo de los 10 segundos que al iniciar antes del primer bloque solo pasan 1 a dos segundos y comienza la grabacion, entre el primer y segundo bloque tampoco existe ese espacio y tan tan, es ahí el problema en la salida de la grabacion al cassette lo demas todo ok
adjunto el audio para que vean
detallo:
carga de mac65 OK
carga de ensamblador
LOAD#D:ENSAMBLA.MAC OK
ENSAMBLAMIENTO
ASM,,#D:TURBO.XEX OK
Apago y enciendo atari con dos256kb OK
carga del fichero con opcion L
TURBO.XEX OK
inicia copiador ok
solicita disco ok
cargo disco con juego alien ambush elijo la opcion ok
carga de juego a la memoria ok
hasta ahi todo esta a pedir de boca, funciona tanto el directorio como las opciones para la carga del archivo y queda almacenado en la memoria del atari
grabo el juego en un cassette y cueccccccccccccccccccccc, despelote
comienza la grabación ok
pero no tiene el plazo de los 10 segundos que al iniciar antes del primer bloque solo pasan 1 a dos segundos y comienza la grabacion, entre el primer y segundo bloque tampoco existe ese espacio y tan tan, es ahí el problema en la salida de la grabacion al cassette lo demas todo ok
adjunto el audio para que vean
- Adjuntos
-
- alienprueba.rar
- (2.12 MiB) Descargado 259 veces
Re: wn porfiado turbo software parte II + codigos
¿Qué diferencia hay cuando grabas en cassette con las opciones "CON Subrutina" y "SIN Subrutina"?
Re: wn porfiado turbo software parte II + codigos
con subrutina o sin subrutina pasa absolutamente lo mismo, por lo que veo se salta la parte de inicio cuando tiene que abrir el open #1,8,128,"C:" y no corren los 10 primeros segundos del pito, sobre la subrutina ahí no cache que es lo que hace. Suppawer si pudieras por favor sacar los códigos en ocr te los agradeceria de antemano.
md:
realize la siguiente prueba colocando el siguiente codigo
lo coloque antes de ingrese disco con file,,, solo lo hice para probar y resulta que deberia mandarme el sonido del pito de los 10 segundos y no lo hace, eso me lleva que hay problemas en la libreria iomac a la cual se refiere la apertura de los puertos...
md:
realize la siguiente prueba colocando el siguiente codigo
Código: Seleccionar todo
close 1
open 1,8,128,"C:"
close 1
Re: wn porfiado turbo software parte II + codigos
Si hay problemas de sincronia con el primer bloque al grabar en casete, en eso estamos de acuerdo.
Proceso de grabación en cinta
Por ejemplo en el turbo2 el iomac solo se usa como XIO de atari basic para leer el directorio y leer un archivo binario. para la grabación en casete se usan como 3 rutinas diferentes.
Saludos
Proceso de grabación en cinta
Por ejemplo en el turbo2 el iomac solo se usa como XIO de atari basic para leer el directorio y leer un archivo binario. para la grabación en casete se usan como 3 rutinas diferentes.
Saludos
Re: wn porfiado turbo software parte II + codigos
si capte, con la info que me diste ahora entiendo un poco mas de como trabaja, el io esta ok, pero no capto cual sera el otro drama entonces
Re: wn porfiado turbo software parte II + codigos
El drama que solo hace 5 segundos de sincronización antes de grabar el primer bloque de información. Así que me puse a debugear y ahora hace los 20 segundos de sincronización que es la estándar
Este es la versión TeniBas que corresponde al primer listado, para probarlo tiene que leer un archivo de atari basic (.bas) y grabarlo....
Saludos
Este es la versión TeniBas que corresponde al primer listado, para probarlo tiene que leer un archivo de atari basic (.bas) y grabarlo....
Saludos
- Adjuntos
-
- TBas.zip
- Versión de prueba....
- (3.94 KiB) Descargado 236 veces
Re: wn porfiado turbo software parte II + codigos
oka, se cumple ahora con la normativa de los 20 segundos del pito por algo se empieza, solo que cae en error después no se oscurece después de leído el primer sector , por lo menos ascrnet algo es algo, felicitaciones perrin, te quedo bien el debug para empezar