DLLD
This commit is contained in:
Antoine Vignau
parent
3191037883
commit
065f066503
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
|
|
@ -0,0 +1,19 @@
|
|||
31000 IF NOT DISC THEN RETURN : REM SET UP SERIAL PORT FOR LASERDISC
|
||||
31010 PRINT CHR$ (4);"PR#2": REM INITIALIZE SERIAL PORT
|
||||
31020 POKE 49322,11: REM COMMAND-NO PARITY, NO ECHO, ACTIVATE RTS, NO INTERRUPTS, ACTIVATE DTR
|
||||
31030 POKE 49323,28: REM CONTROL-1 STOP BIT, 8 DATA BITS, BAUD RATE GENERATOR ENABLED, 4800 BPS
|
||||
31040 PRINT CHR$ (4);"PR#0"
|
||||
31999 REM KS: EVERYTHING I KNOW ABOUT APPLE 2 SERIAL COMM I LEARNED FROM https://groups.google.com/forum/#!topic/comp.sys.apple2.programmer/ZF9iyC6vVQo
|
||||
32000 RETURN
|
||||
|
||||
40000 REM PLAY VIDEO CLIP
|
||||
40010 IF NOT DISC THEN RETURN
|
||||
40020 FOR I = 1 TO LEN (VC$)
|
||||
40030 IF MID$ (VC$,I,1) = "/" THEN POKE 49320,13: WAIT 49321,8:J = PEEK (49320): GOTO 40060
|
||||
40040 POKE 49320, ASC ( MID$ (VC$,I,1))
|
||||
40060 NEXT I
|
||||
40070 RETURN
|
||||
|
||||
34016 VC$ = "FR30032SE/FR30214PL/": GOSUB 40000
|
||||
goes to fram 30032
|
||||
play until frame 30214
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,272 @@
|
|||
0 REM ADVENTURES IN VIDEOLAND - ROLLERCOASTER. BY @DAVIDLUBAR. PUBLISHED IN CREATIVE COMPUTING MAGAINE V8N1, JANUARY 1982. UPGRADES BY @KEVINSAVETZ, 2018. ORIG. GAME AND UPGRADES ARE IN THE PUBLIC DOMAIN.
|
||||
1 DISC = 1: REM SET DISC=0 FOR NO LASERDISC. DISC=1 FOR PIONEER LD-V2200 OR COMPATIBLE LASERDISC PLAYER CONNECTED TO SLOT 2
|
||||
2 GOSUB 30000: REM INITIALIZE
|
||||
3 GOSUB 34000: REM INSTRUCTIONS
|
||||
4 GOSUB 22000: REM DISPLAY 1ST ROOM
|
||||
10 GOSUB 1000: REM INPUT ROUTINE
|
||||
30 IF NOT SPACE THEN V$ = A$
|
||||
40 IF A$ = " " THEN 10
|
||||
45 PRINT : PRINT
|
||||
50 IF ASC (V$) = 32 AND LEN (V$) > 1 THEN V$ = RIGHT$ (V$, LEN (V$) - 1):A$ = RIGHT$ (A$, LEN (A$) - 1): GOTO 50
|
||||
60 IF LEN (V$) = LEN (A$) THEN NFLAG = 0: GOTO 90
|
||||
70 N$ = RIGHT$ (A$, LEN (A$) - LEN (V$))
|
||||
80 IF ASC (N$) = 32 AND LEN (N$) > 1 THEN N$ = RIGHT$ (N$, LEN (N$) - 1): GOTO 80
|
||||
85 IF N$ = " " THEN NFLAG = 0
|
||||
90 A = ASC (V$) - 64
|
||||
100 IF A < 1 OR A > 26 THEN 10
|
||||
110 ON A GOSUB 10100,10200,10300,10400,10500,10600,10700,10800,10900,11000,11100,11200,11300,11400,11500,11600,11700,11800,11900,12000,12100,12200,12300,12400,12500,12600
|
||||
120 IF NOT KW THEN PRINT "I DON'T KNOW HOW TO DO THAT":KW = 1
|
||||
125 T = T + 1: IF T > 150 THEN INVERSE : PRINT "I THINK TIME JUST RAN OUT": NORMAL :T = 0:VC$ = "FR19801SE/FR20007PL/": GOSUB 40000: GOTO 50000
|
||||
130 PRINT : GOTO 10
|
||||
1000 A$ = " ":SPACE = 0:N$ = " ":V$ = " ":NFLAG = 1
|
||||
1010 GET B$: IF ASC (B$) = 13 THEN RETURN
|
||||
1020 IF ASC (B$) = 8 AND SPACE AND RIGHT$ (A$,1) = " " THEN SPACE = 0
|
||||
1025 IF LEN (A$) = 1 AND B$ = " " THEN 1010
|
||||
1030 IF ASC (B$) = 8 AND LEN (A$) > 1 THEN A$ = LEFT$ (A$, LEN (A$) - 1): PRINT B$;" ";B$;: GOTO 1010
|
||||
1040 IF B$ = " " AND NOT SPACE THEN V$ = A$:SPACE = 1: GOTO 1060
|
||||
1050 IF ASC (B$) < 65 OR ASC (B$) > 91 THEN 1010
|
||||
1060 PRINT B$;
|
||||
1070 A$ = A$ + B$
|
||||
1080 GOTO 1010
|
||||
9999 REM FOLLOWING ROUTINES ACT ON THE INPUT. KW IS KEYWORD FLAG
|
||||
10100 KW = 0: RETURN
|
||||
10200 IF A$ = "BREAK BOX" THEN 53000
|
||||
10210 IF A$ = "BREAK DOOR" THEN PRINT "TOO SOLID TO EVEN TRY": RETURN
|
||||
10299 KW = 0: RETURN
|
||||
10300 KW = 0: RETURN
|
||||
10400 IF V$ = "DROP" AND NFLAG THEN 26000
|
||||
10499 KW = 0: RETURN
|
||||
10500 IF A$ = "E" THEN D = 2: GOTO 20000
|
||||
10501 IF V$ = "EXAMINE" AND NFLAG THEN 27000
|
||||
10599 KW = 0: RETURN
|
||||
10600 IF A$ = "FIND BATTERIES" THEN PRINT "TRY THE BEAR": RETURN
|
||||
10610 IF V$ = "FIND" THEN PRINT "I CAN'T HELP YOU": RETURN
|
||||
10699 KW = 0: RETURN
|
||||
10700 IF V$ = "GO" THEN 19000
|
||||
10710 IF A$ = "GIVE COINS" AND L = 5 THEN 43000
|
||||
10720 IF A$ = "GIVE TICKET" AND L = 16 THEN 48000
|
||||
10799 KW = 0: RETURN
|
||||
10800 IF V$ = "HELP" THEN PRINT "JUST KEEP MOVING AND EXAMINING THINGS, AND AVOID DANGEROUS PLACES.": RETURN
|
||||
10899 KW = 0: RETURN
|
||||
10900 IF A$ = "I" OR A$ = "INV" OR A$ = "INVENTORY" THEN 24000
|
||||
10999 KW = 0: RETURN
|
||||
11000 IF V$ = "JAM" THEN 54000
|
||||
11099 KW = 0: RETURN
|
||||
11100 IF V$ = "KILL" THEN PRINT "THAT IS BEYOND MY POWER.": RETURN
|
||||
11199 KW = 0: RETURN
|
||||
11200 IF A$ = "LOOK" THEN 22000
|
||||
11210 IF V$ = "LOOK" AND NFLAG THEN 27000
|
||||
11299 KW = 0: RETURN
|
||||
11300 IF A$ = "MAKE JAMMER" THEN 55000
|
||||
11399 KW = 0: RETURN
|
||||
11400 IF A$ = "N" THEN D = 1: GOTO 20000
|
||||
11499 KW = 0: RETURN
|
||||
11500 IF A$ = "OPEN BEAR" THEN PRINT "TWO BATTERIES JUST FELL ": PRINT "OUT OF THE BACK.": PRINT "THEY'RE ON THE GROUND":OB(11) = L: RETURN
|
||||
11599 KW = 0: RETURN
|
||||
11600 IF (V$ = "PUT" OR V$ = "PLACE") AND NFLAG THEN 28000
|
||||
11610 IF V$ = "PLAY" AND L = 6 THEN 43000
|
||||
11620 IF V$ = "PLAY" AND L = 16 THEN 48000
|
||||
11630 IF (A$ = "PUSH BUTTON" OR A$ = "PRESS BUTTON") AND L = 2 THEN 53000
|
||||
11699 KW = 0: RETURN
|
||||
11700 IF A$ = "QUIT" THEN END
|
||||
11799 KW = 0: RETURN
|
||||
11800 IF (A$ = "READ BOOK") AND (OB(4) = 0 OR OB(4) = L) THEN PRINT "YOU NOW KNOW HOU TO MAKE A": PRINT "JAMMER FROM A RADIO":BK = 1: RETURN
|
||||
11810 IF A$ = "READ TICKET" THEN A$ = "LOOK TICKET": GOTO 27000
|
||||
11899 KW = 0: RETURN
|
||||
11900 IF A$ = "S" THEN D = 3: GOTO 20000
|
||||
11910 IF V$ = "SHOOT" THEN 43000
|
||||
11920 IF A$ = "SHOW TICKET" AND L = 16 THEN 48000
|
||||
11999 KW = 0: RETURN
|
||||
12000 IF V$ = "TAKE" AND NFLAG THEN 25000
|
||||
12010 IF (A$ = "TURN KNOB" OR A$ = "TURN DIAL") AND L = 2 THEN 53000
|
||||
12099 KW = 0: RETURN
|
||||
12100 IF A$ = "USE JAMMER" THEN 54000
|
||||
12199 KW = 0: RETURN
|
||||
12200 IF A$ = "VISIT DANCER" THEN PRINT "SHE DOESN'T WANT TO SEE YOU": RETURN
|
||||
12299 KW = 0: RETURN
|
||||
12300 IF A$ = "W" THEN D = 4: GOTO 20000
|
||||
12310 IF (A$ = "WEAR UNIFORM") AND (OB(9) = 0 OR OB(9) = L) THEN VC$ = "FR5890SE/": GOSUB 40000: PRINT "IT FITS WELL AND MAKES A GOOD": PRINT "DISGUISE":KW = 1:OB(9) = 0: RETURN
|
||||
12399 KW = 0: RETURN
|
||||
12400 KW = 0: RETURN
|
||||
12500 KW = 0: RETURN
|
||||
12600 POP : STOP : REM DEBUGGING AID. INPUT OF Z STOPS PROGRAM.
|
||||
19000 REM PARSER FOR DIRECTION
|
||||
20000 REM MOVE ROUTINE:D=DIRECTION:R=ROOM MOVED INTO:L=PRESENT LOCATION
|
||||
20060 R = ASC ( MID$ (R$(L),D,1)) - 64
|
||||
20070 IF NOT R THEN PRINT "YOU CAN'T GO THAT WAY": RETURN
|
||||
20080 L = R
|
||||
22000 IF DISC AND RND (1) > .6 AND A$ = "LOOK" THEN VC$ = "FR2550SE/": GOSUB 40000
|
||||
22001 IF V$(L) < > "" THEN VC$ = V$(L): GOSUB 40000:V$(L) = ""
|
||||
22005 PRINT "YOU ARE IN ";
|
||||
22010 PRINT RM$(L): PRINT RD$(L): PRINT "THIS LOCATION CONTAINS ";:F1 = 0
|
||||
22020 FOR I = 1 TO NO
|
||||
22030 IF OB(I) = L THEN PRINT OB$(I):F1 = 1
|
||||
22040 NEXT I: IF NOT F1 THEN PRINT "NOTHING"
|
||||
22050 PRINT "VISIBLE EXITS: ";
|
||||
22060 FOR I = 1 TO 4
|
||||
22070 IF MID$ (R$(L),I,1) < > "@" THEN PRINT DIR$(I);" ";:F1 = 1
|
||||
22080 NEXT I: IF NOT F1 THEN PRINT "DON'T EXIST"
|
||||
22081 PRINT : IF L = 5 THEN 41000
|
||||
22082 IF L = 8 THEN 47000
|
||||
22083 IF L = 15 THEN 47100
|
||||
22084 IF L = 18 THEN PRINT "YOU FOLLOW A WINDING PATH, FINALLY": PRINT "RETURNING TO FAMILIAR GROUND":L = 1: GOTO 22000
|
||||
22085 IF L = 9 THEN 49000
|
||||
22090 RETURN
|
||||
24000 F1 = 0: PRINT "YOU ARE CARRYING": FOR I = 1 TO NO
|
||||
24010 IF OB(I) = 0 THEN PRINT OB$(I):F1 = 1
|
||||
24020 NEXT I: IF NOT F1 THEN PRINT "NOTHING"
|
||||
24030 RETURN
|
||||
25000 F1 = 0:F2 = 0: FOR I = 1 TO NO
|
||||
25005 IF N$ = OB$(I) AND OB(I) = 0 THEN PRINT "YOU ALREADY HAVE THE ";N$: RETURN
|
||||
25010 IF (N$ = OB$(I) OR N$ = "ALL" OR N$ = "EVERYTHING") AND (OB(I) = (L)) THEN OB(I) = 0: PRINT OB$(I);" TAKEN":F1 = 1
|
||||
25020 IF N$ = OB$(I) THEN F2 = 1
|
||||
25025 NEXT I
|
||||
25030 IF F1 = 0 AND F2 = 0 AND N$ < > "ALL" AND N$ < > "EVERVTHING" THEN PRINT "I CAN'T TAKE THE ";N$: RETURN
|
||||
25035 IF F1 = 0 AND F2 = 0 THEN PRINT "THERE IS NOTHING HERE I CAN TAKE."
|
||||
25040 IF F1 = 0 AND F2 = 1 THEN PRINT "I DON'T SEE IT HERE."
|
||||
25060 RETURN
|
||||
26000 F1 = 0: FOR I = 1 TO NO
|
||||
26010 IF ((OB$(I) = N$ OR N$ = "ALL" OR N$ = "EVERYTHING") AND (OB(I) = 0)) THEN OB(I) = L:F1 = 1
|
||||
26020 NEXT I
|
||||
26030 IF NOT F1 THEN PRINT "YOU CAN'T DROP WHAT YOU AREN'T CARRYING": RETURN
|
||||
26040 PRINT "OK": RETURN
|
||||
27000 F1 = 0: FOR I = 1 TO NO
|
||||
27010 IF (OB(I) = 0 OR OB(I) = L) AND (OB$(I) = N$) THEN F1 = 1: PRINT OD$(I): IF OD$(I) = "" THEN PRINT "I SEE NOTHING IMPORTANT.": RETURN
|
||||
27020 IF (FL(I) = (L) OR FL(I) = 0) AND (FR$(I) = N$) THEN F1 = 1: PRINT FD$(I): IF FD$(I) = "" THEN PRINT "NOTHING EXTRAORDINARY HERE": RETURN
|
||||
27030 IF F1 THEN RETURN
|
||||
27040 NEXT I
|
||||
27050 PRINT "I CAN'T DESCRIBE THAT"
|
||||
27060 RETURN
|
||||
28000 FOR I = 1 TO NO
|
||||
28010 IF N$ < > OB$(I) OR OB(I) < > 0 THEN NEXT I: PRINT "YOU AREN'T CARRYING THE ";N$: RETURN
|
||||
28090 PRINT "WHERE?"
|
||||
28095 T$ = N$
|
||||
28100 GOSUB 1000
|
||||
28102 N$ = T$
|
||||
28105 PRINT
|
||||
28106 IF A$ = " DOWN" THEN 26000
|
||||
28110 IF V$ < > " IN" AND V$ < > " ON" THEN PRINT "I CAN'T DO THAT": RETURN
|
||||
28115 T$ = RIGHT$ (A$, LEN (A$) - LEN (V$))
|
||||
28116 IF LEFT$ (T$,1) = " " AND LEN (T$) > 1 THEN T$ = RIGHT$ (T$, LEN (T$) - 1)
|
||||
28117 IF T$ = "FLOOR" OR T$ = "TABLE" THEN 26000
|
||||
28120 FOR I = 1 TO NO
|
||||
28130 IF T$ < > OB$(I) OR (OB(I) < > L AND OB(I) < > 0) THEN NEXT I: PRINT "THE ";T$;" ISN'T HERE": RETURN
|
||||
28140 PRINT "OK": IF (T$ = "RADIO" OR T$ = "JAMMER") AND N$ = "BATTERIES" THEN B = 1
|
||||
28200 RETURN
|
||||
30000 DIM OB(12),OB$(12),RM$(18),RD$(18),R$(18),OD$(12),FR$(12),FL(12),FD$(12),V$(18)
|
||||
30001 RM$(1) = "THE MIDWAY":RM$(2) = "THE FIRST AID STATION":RM$(3) = "THE MIDWAY":RM$(4) = "THE MIDWAY":RM$(5) = "A RESTAURANT":RM$(6) = "A SHOOTING GALLERY"
|
||||
30002 RM$(7) = "A MAINTAINANCE ROOM":RM$(8) = "THE BELLY DANCER'S TENT":RM$(9) = "THE TOP OF THE ROLLER COASTER":RM$(10) = "A CLOSET"
|
||||
30003 RM$(11) = "AN ALLEY":RM$(12) = "THE OBSERVATION TOWER":RM$(13) = "A CRAWLWAY":RM$(14) = "A STORAGE ROOM":RM$(15) = "A SMALL SHACK":RM$(16) = "A GAME BOOTH":RM$(17) = "A NARROW TUNNEL":RM$(18) = "A DARK, TWISTING PATH"
|
||||
30010 R$(1) = "EDKC":R$(2) = "@JC@":R$(3) = "BAFG":R$(4) = "@PHA":R$(5) = "@@A@":R$(6) = "C@@@":R$(7) = "MCQ@":R$(8) = "D@N@":R$(9) = "@@M@"
|
||||
30011 R$(10) = "@@@B":R$(11) = "A@O@":R$(12) = "Q@@@":R$(13) = "I@G@":R$(14) = "@@@R":R$(15) = "K@@@":R$(16) = "@@@D":R$(17) = "G@L@":R$(18) = "@@@@"
|
||||
30020 L = 1:NO = 12
|
||||
30030 OB$(1) = "COINS":OB$(2) = "TOOLKIT":OB$(3) = "TICKET":OB$(4) = "BOOK":OB$(5) = "LAMP":OB$(6) = "TOWELS":OB$(7) = "POSTER":OB$(8) = "BEAR"
|
||||
30031 OB$(9) = "UNIFORM":OB$(10) = "RADIO":OB$(11) = "BATTERIES":OB$(12) = "JAMMER"
|
||||
30040 OB(1) = 4:OB(2) = 7:OB(3) = 14:OB(4) = 15:OB(5) = - 1:OB(6) = - 1:OB(7) = - 1:OB(8) = - 1
|
||||
30045 OB(9) = 10:OB(10) = - 1:OB(11) = - 1:OB(12) = - 1
|
||||
30050 DIR$(1) = "NORTH":DIR$(3) = "SOUTH":DIR$(2) = "EAST":DIR$(4) = "WEST"
|
||||
30060 RD$(1) = "WHICH STRETCHES TO THE EAST AND WEST. A RESTAURANT IS TO THE NORTH"
|
||||
30061 RD$(2) = "CONTAINING STRANGE EQUIPMENT. LIGHTS FLASH FROM AN ELECTRONIC BOX"
|
||||
30062 RD$(3) = "AN AID STATION IS TO THE NORTH. THE SOUND OF GUNFIRE COMES FROM A SHOOTING GALLERY TO THE SOUTH."
|
||||
30063 RD$(4) = "FROM A TENT TO THE SOUTH YOU HEAR EXOTICMUSIC
|
||||
30064 RD$(5) = "THE ROOM IS CROWDED BUT YOU SEE AN EMPTYTABLE IN THE CORNER"
|
||||
30065 RD$(6) = "A SIGN READS '3 SHOTS FOR 25 CENTS'"
|
||||
30066 RD$(7) = "THERE ARE DOORS TO THE NORTH AND SOUTH. THE NORTHERN DOOR IS OPEN. YOU CAN HEAR THE ROLLER COASTER."
|
||||
30067 RD$(8) = "SHE STOPS AND LOOKS AT YOU"
|
||||
30068 RD$(9) = "A DANGEROUS PLACE TO BE."
|
||||
30069 RD$(10) = "":RD$(11) = "THERE IS A DOOR LEADING TO A SMALL ROOM TO THE SOUTH"
|
||||
30070 RD$(12) = "BELOW, YOU CAN SEE THE WHOLE CARNIVAL. THE TOP OF THE ROLLER COASTER IS IN SIGHT."
|
||||
30071 RD$(13) = "THE PASSAGE LEADS NORTH TO THE TOP OF THE ROLLER COASTER. THE NOISE IS QUITE LOUD"
|
||||
30072 RD$(14) = "THE DOOR IS LOCKED BEHIND YOU, BUT THEREIS A WINDOW TO THE WEST"
|
||||
30073 RD$(15) = "THE ROOM IS LITTERED WITH FRAGMENTS OF ELECTRONIC PARTS, BUT NONE OF IT IS SALVAGEABLE. A GUARD BLOCKS YOUR PATH"
|
||||
30074 RD$(16) = "A SIGN SAYS, '50 CENTS A BALL. WINNER'S CHOICE.'"
|
||||
30075 RD$(17) = "THE PASSAGE LEADS SOUTH TO THE TOP OF THE OBSERVATION TOWER"
|
||||
30100 OD$(1) = "TWO DIMES AND A NICKEL":OD$(2) = "IT CONTAINS EVERYTHING NEEDED FOR SMALL ELECTRONIC REPAIRS"
|
||||
30101 OD$(4) = "THE TITLE IS 'RADIO FREQUENCY JAMMING TECHNIQUES'":OD$(5) = "IT IS VERY GAUDY":OD$(6) = "NICE AND FLUFFY":OD$(7) = "WHOOPIE--IT'S THE DALLAS CHEERLEADERS":OD$(8) = "WHEN YOU PUSH THE BUTTON ON ITS BACK, ITSAYS 'I WUV YOU'"
|
||||
30102 OD$(3) = "IT SAYS, 'GOOD FOR 1 FREE GAME AT THE BALL TOSS, COURTESY OF CREATIVE COMPUTING, THE #1 MAGAZINE OF SOFTUARE AND APPLICATIONS.'"
|
||||
30200 FR$(1) = "BOX":FD$(1) = "IT IS FIRMLY ATTACHED TO THE TABLE. THERE ARE KNOBS AND A BUTTON ON IT"
|
||||
30201 FR$(2) = "RIFLE":FL(2) = 6:FD$(2) = "IT IS CHAINED TO THE COUNTER"
|
||||
30202 FR$(3) = "GUN":FL(3) = 6:FD$(3) = "IT IS CHAINED TO THE COUNTER"
|
||||
30300 V$(1) = "FR4002SE/":V$(2) = "FR21130SE/":V$(3) = "FR4627SE/":V$(4) = "FR4750SE/"
|
||||
30310 V$(5) = "FR23100SE/":V$(6) = "FR11000SE/":V$(7) = "FR14038SE/FR14100PL/":V$(8) = "FR11818SE/FR11907PL/":V$(9) = "FR15362SE/"
|
||||
30320 V$(10) = "":V$(12) = "FR8300SE/FR8488PL/":V$(13) = "FR14724SE/FR14855PL/":V$(14) = "FR33900SE/":V$(15) = "FR28322SE/":V$(16) = "FR7343SE/"
|
||||
30330 V$(17) = "":V$(18) = ""
|
||||
30400 KW = 1
|
||||
31000 IF NOT DISC THEN RETURN : REM SET UP SERIAL PORT FOR LASERDISC
|
||||
31010 PRINT CHR$ (4);"PR#2": REM INITIALIZE SERIAL PORT
|
||||
31020 POKE 49322,11: REM COMMAND-NO PARITY, NO ECHO, ACTIVATE RTS, NO INTERRUPTS, ACTIVATE DTR
|
||||
31030 POKE 49323,28: REM CONTROL-1 STOP BIT, 8 DATA BITS, BAUD RATE GENERATOR ENABLED, 4800 BPS
|
||||
31040 PRINT CHR$ (4);"PR#0"
|
||||
31999 REM KS: EVERYTHING I KNOW ABOUT APPLE 2 SERIAL COMM I LEARNED FROM https://groups.google.com/forum/#!topic/comp.sys.apple2.programmer/ZF9iyC6vVQo
|
||||
32000 RETURN
|
||||
34000 VC$ = "FR2818SE/": GOSUB 40000: TEXT : HOME
|
||||
34001 PRINT "WHAT IS YOUR FIRST NAME?": GOSUB 1000:NA$ = A$
|
||||
34010 PRINT : PRINT "YOU HAVE JUST RECEIVED AN ANONYMOUS": PRINT "TIP THAT A BOMB HAS BEEN PLANTED": PRINT "ON A ROLLER COASTER.": FOR I = 1 TO 1000: NEXT I
|
||||
34011 VC$ = "FR6726SE/FR6959PL/": GOSUB 40000
|
||||
34015 PRINT : PRINT "YOU ARE CALLED TO INVESTIGATE AND FLY": PRINT "OFF TO STOP THE SABOTEUR.": FOR I = 1 TO 1000: NEXT I
|
||||
34016 VC$ = "FR30032SE/FR30214PL/": GOSUB 40000
|
||||
34018 PRINT
|
||||
34020 PRINT "ON HIS SIDE, HE HAS THE BRILLIANCE OF": PRINT "AN INSANE MIND, AND THE AID OF ALLIES": PRINT "WHO ARE DETERMINED TO SEE THAT YOU FAIL"
|
||||
34030 PRINT : PRINT "ON YOUR SIDE, YOU HAVE CUNNING, ": PRINT "TRAINING, AND DEDICATION"
|
||||
34055 PRINT : PRINT "YOU HAVE INFILTRATED THE PARK WITH": PRINT "THE KNOWLEDGE THAT THE SABOTEUR": PRINT "WILL STRIKE SOMETIME TONIGHT": PRINT : PRINT "ALL YOU NEED DO IS STOP HIM."
|
||||
34056 PRINT : INVERSE : PRINT "PRESS ANY KEY TO CONTINUE";: GET A$: NORMAL : HOME
|
||||
34060 PRINT "BY GIVING THE RIGHT COMMAND, YOU CAN ": PRINT "MOVE, EXAMINE OBJECTS, AND PERFORM ": PRINT "OTHER ACTIONS"
|
||||
34070 PRINT : PRINT "I UNDERSTAND TWO-WORD COMMANDS SUCH AS": PRINT "'DROP BOOK' OR 'TAKE KNIFE'.": PRINT "TO MOVE, YOU CAN SIMPLY ENTER 'N' FOR": PRINT "NORTH, ETC."
|
||||
34080 PRINT : PRINT "AT TIMES, I WILL AWAIT YOUR COMMAND": PRINT "IN OTHER SITUATIONS, I WILL PRESENT YOU": PRINT "WITH A CHOICE OF ACTIONS": PRINT : PRINT "BUT SUCCESS OR FAILURE IS UP TO YOU."
|
||||
34090 PRINT : INVERSE : PRINT "PRESS ANY KEY TO BEGIN. MAY LUCK BE": PRINT "WITH YOU,";NA$;: GET A$: NORMAL : PRINT : RETURN
|
||||
40000 REM PLAY VIDEO CLIP
|
||||
40010 IF NOT DISC THEN RETURN
|
||||
40020 FOR I = 1 TO LEN (VC$)
|
||||
40030 IF MID$ (VC$,I,1) = "/" THEN POKE 49320,13: WAIT 49321,8:J = PEEK (49320): GOTO 40060
|
||||
40040 POKE 49320, ASC ( MID$ (VC$,I,1))
|
||||
40060 NEXT I
|
||||
40070 RETURN
|
||||
41000 PRINT : PRINT "A WAITER APPROACHES AND ASKS IF YOU": PRINT "WOULD LIKE A SEAT": PRINT : PRINT "SINCE YOU MISSED LUNCH TODAY, YOU": PRINT "ARE HUNGRY"
|
||||
41010 PRINT : PRINT "DO YOU WANT TO EAT?": GOSUB 1000
|
||||
41020 IF A$ < > " NO" AND A$ < > " YES" THEN PRINT "PLEASE ANSWER YES OR NO": GOTO 41010
|
||||
41025 PRINT
|
||||
41030 IF A$ = " NO" THEN PRINT "THE WAITER CALLED YOU A STIFF": PRINT "AND THREW YOU OUT":L = 3: GOTO 22000
|
||||
41040 PRINT : PRINT "YOU ARE SERVED A DELICIOUS MEAL": PRINT "UNFORTUNATELY, THE SERVICE IS": PRINT "RATHER SLOW":VC$ = "FR19453SE/FR19799PL/": GOSUB 40000
|
||||
41045 PRINT
|
||||
41050 PRINT "THE BOMB WENT OFF AND THE BOMBER ESCAPED": FOR I = 1 TO 3000: NEXT I: GOTO 50000
|
||||
43000 IF OB(1) < > 0 THEN PRINT "THE MAN BEHIND THE COUNTER TELLS": PRINT "YOU, 'IF YOU WANNA PLAY YOU GOTTA PAY.'": RETURN
|
||||
43010 PRINT "YOU HAND OVER THE COINS AND PICK": PRINT "UP THE GUN":OB(1) = - 1
|
||||
43020 VC$ = "FR10960SE/FR11107PL/": GOSUB 40000
|
||||
43030 PRINT "GOOD SHOOTING": PRINT "HE HANDS YOU A TEDDY BEAR":OB(8) = 0
|
||||
43035 PRINT "A PASSERBY LOOKS AT THE BEAR AND": PRINT "SAYS, 'MODERN NONSENSE. WHAT EVER HAPPENED TO SIMPLE STUFFED ANIMALS?'": PRINT "HE SHAKES HIS HEAD AND LEAVES."
|
||||
43040 RETURN
|
||||
47000 PRINT : IF OB(8) < > 0 AND OB(8) < > - 2 THEN PRINT "SHE SAYS YOU CAN'T COME IN UNLESS YOU": PRINT "HAVE A PRESENT FOR HER. SHE PUSHES YOU OUT.":L = 4: GOTO 22000
|
||||
47005 IF OB(8) = - 2 THEN PRINT "SHE SAYS, 'YOU THINK ONE PRESENT": PRINT "ENTITLES YOU TO COME IN HERE ANY TIME": PRINT "YOU WANT?' SHE TURNS HER BACK AND IGNORES YOU.": RETURN
|
||||
47010 PRINT "SHE LETS YOU IN AND EYES THE BEAR.": PRINT "DO YOU WANT TO GIVE IT TO HER? ": GOSUB 1000
|
||||
47020 PRINT : IF A$ < > " Y" AND A$ < > " YES" THEN PRINT "SHE THROWS YOU OUT":L = 4: GOTO 22000
|
||||
47030 OB(8) = - 2: PRINT "SHE UNLOCKS THE DOOR TO THE SOUTH"
|
||||
47040 RETURN
|
||||
47100 IF OB(9) < > 0 THEN PRINT "HE SAYS, 'EMPLOYEES ONLY' AND THROWS YOU OUT":L = 11: GOTO 22000
|
||||
47110 PRINT "HE SEES YOUR UNIFORM AND LETS YOU IN"
|
||||
47120 RETURN
|
||||
48000 IF OB(3) < > 0 THEN PRINT "YOU CAN'T AFFORD THE GAME": RETURN
|
||||
48010 PRINT "YOU HAND OVER THE TICKET AND THROW THE BALL.": PRINT CHR$ (7); CHR$ (7); CHR$ (7): PRINT "IT'S A WINNER.": PRINT "YOU HAVE A CHOICE OF FOUR PRIZES!"
|
||||
48020 PRINT "A LAMP, TOWELS, RADIO, OR POSTER."
|
||||
48025 OB(3) = - 2
|
||||
48030 PRINT "WHICH DO YOU WANT?": GOSUB 1000
|
||||
48040 A$ = RIGHT$ (A$, LEN (A$) - 1): FOR I = 5 TO 10
|
||||
48050 IF OB$(I) = A$ THEN OB(I) = 0: PRINT : PRINT "IT'S YOURS": IF A$ = "RADIO" THEN VC$ = "FR1234SE/": GOSUB 40000: RETURN
|
||||
48055 IF OB$(I) = A$ THEN RETURN
|
||||
48060 NEXT I: PRINT : PRINT "PLEASE ANSWER WITH LAMP, POSTER, RADIO OR TOWELS.": GOTO 48030
|
||||
49000 INVERSE : SPEED= 200: PRINT "IF YOU LOOK BACK, YOU'LL NOTICE": PRINT "A CAR SPEEDING TOWARD YOU":VC$ = "FR16185SE/FR16223PL/"
|
||||
49010 NORMAL : SPEED= 255: GOSUB 40000: GOTO 50000
|
||||
50000 HOME : VTAB 10: PRINT "IT IS ONE YEAR LATER": PRINT "THE ROLLER COASTER HAS BEEN REBUILT": PRINT "THE SABOTEUR PLANS TO DESTROY IT AGAIN": PRINT "WOULD YOU LIKE TO TRY TO SAVE IT?"
|
||||
50010 GOSUB 1000: PRINT
|
||||
50020 IF A$ = " YES" OR A$ = " Y" THEN GOSUB 30001: GOTO 22000
|
||||
50030 IF A$ < > " N" AND A$ < > " NO" THEN PRINT "YES OR NO";: GOSUB 1000: PRINT : GOTO 50020
|
||||
50040 END
|
||||
53000 PRINT "UH OH, I THINK THAT WAS A MISTAKE":VC$ = "FR18722SE/FR18807PL/": GOSUB 40000: PRINT "YOU SET OFF THE BOMB": FOR I = 1 TO 2000: NEXT I: GOTO 50000
|
||||
54000 IF L < > 12 THEN PRINT "YOU AREN'T IN LINE OF SIGHT WITH": PRINT "THE ROLLER COASTER": RETURN
|
||||
54010 IF OB(12) THEN PRINT "YOU DON'T HAVE A JAMMER": RETURN
|
||||
54020 IF NOT B THEN PRINT "IT DOESN'T WORK, MAYBE IT NEEDS BATTERIES": RETURN
|
||||
54030 VC$ = "FR12169SE/FR12227PL/": GOSUB 40000
|
||||
54040 HOME : VTAB 10: HTAB 12: INVERSE : SPEED= 100: PRINT "CONGRATULATIONS": NORMAL : PRINT : HTAB 6: PRINT "YOU SAVED THE ROLLER COASTER": SPEED= 255: END
|
||||
55000 IF NOT BK THEN PRINT "YOU DON'T KNOW HOW": RETURN
|
||||
55010 IF OB(10) < > 0 THEN PRINT "SOMETHING VITAL IS MISSING": RETURN
|
||||
55020 IF OB(2) < > 0 THEN PRINT "YOU DON'T HAVE THE REQUIRED TOOLS": RETURN
|
||||
55030 PRINT "CONGRATULATIONS, YOU NOW HAVE A ": PRINT "JAMMER":OB(10) = - 1:OB(12) = 0: RETURN
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 24 KiB |
Binary file not shown.
|
|
@ -0,0 +1,2 @@
|
|||
dlld=Type(06),AuxType(2000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||
dlld2=Type(06),AuxType(2000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||
Binary file not shown.
|
|
@ -0,0 +1,446 @@
|
|||
*
|
||||
* DLLD
|
||||
* Let's play Dragon's Lair :-)
|
||||
*
|
||||
* (c) 2024, Brutal Deluxe Software
|
||||
*
|
||||
|
||||
mx %11
|
||||
org $2000
|
||||
lst off
|
||||
|
||||
*-----------------------------------
|
||||
* MACROS
|
||||
*-----------------------------------
|
||||
|
||||
_sendLD mac
|
||||
ldx #>]1
|
||||
ldy #<]1
|
||||
jsr sendSERIAL
|
||||
eom
|
||||
|
||||
_receiveLD mac
|
||||
ldx #>]1
|
||||
ldy #<]1
|
||||
jsr receiveSERIAL
|
||||
eom
|
||||
|
||||
_sendLDCommand mac
|
||||
ldx #>]1
|
||||
ldy #<]1
|
||||
jsr sendLDCommand
|
||||
eom
|
||||
|
||||
_sendreceiveLD mac
|
||||
ldx #>]1
|
||||
ldy #<]1
|
||||
jsr sendreceiveLD
|
||||
eom
|
||||
|
||||
_readSTRING mac
|
||||
ldx #>]1
|
||||
ldy #<]1
|
||||
jsr receiveSERIAL
|
||||
eom
|
||||
|
||||
_sendSTRING mac
|
||||
ldx #>]1
|
||||
ldy #<]1
|
||||
jsr sendSerialString
|
||||
eom
|
||||
|
||||
*-----------------------------------
|
||||
* EQUATES
|
||||
*-----------------------------------
|
||||
|
||||
dpFROM = $fc
|
||||
dpTO = dpFROM+2
|
||||
|
||||
KBD = $c000
|
||||
KBDSTROBE = $c010
|
||||
RDVBLBAR = $c019
|
||||
|
||||
HOME = $fc58
|
||||
WAIT = $fca8
|
||||
COUT = $fded
|
||||
|
||||
chrCTRLA = $01
|
||||
chrLINEFEED = $0a
|
||||
chrRETURN = $0d
|
||||
chrSPACE = $20
|
||||
|
||||
*-----------------------------------
|
||||
* CODE
|
||||
*-----------------------------------
|
||||
|
||||
jsr initSERIAL ; set the serial addresses
|
||||
jsr initPORT ; init the serial port for LD support
|
||||
jsr initLDDS ; show text
|
||||
jsr initLDCO ; close the door
|
||||
jsr initLDSA ; spin the disc
|
||||
jmp initLDPL ; start playing
|
||||
jmp initLDC ; get register C
|
||||
|
||||
jmp resetSERIAL ; do not activate it when code is light
|
||||
; or all commands will not be handled
|
||||
|
||||
*-----------------------------------
|
||||
* LASERDISC
|
||||
*-----------------------------------
|
||||
|
||||
initLDDS _sendLDCommand #strDS ; 4-28 DISPLAY TEXT
|
||||
_sendLDCommand #strAV ; 4-28 DISPLAY TEXT
|
||||
rts
|
||||
initLDCO _sendLDCommand #strCO ; 4-11 CLOSE
|
||||
rts
|
||||
initLDSA _sendLDCommand #strSA ; 4-12 START
|
||||
rts
|
||||
initLDPL _sendLDCommand #strPL ; 4-13 PLAY
|
||||
rts
|
||||
initLDC _sendLDCommand #strC ; 4-45 $C
|
||||
rts
|
||||
|
||||
*---------- Send LD command and Receive answer
|
||||
|
||||
sendreceiveLD
|
||||
jsr sendSERIAL
|
||||
|
||||
nop
|
||||
lda #150
|
||||
jsr WAIT
|
||||
nop
|
||||
|
||||
_readSTRING #responseBUF
|
||||
rts
|
||||
|
||||
*-----------------------------------
|
||||
* SERIAL PORT (MODEM)
|
||||
*-----------------------------------
|
||||
|
||||
*---------- Init modem port for LD support
|
||||
|
||||
initPORT jsr resetSERIAL
|
||||
_sendSTRING #strED ; Don't echo output
|
||||
_sendSTRING #strBE ; Input buffering: on
|
||||
_sendSTRING #str12B ; Baud rate: 4800 BPS
|
||||
_sendSTRING #str0D ; Data/Stop bits: 8/1
|
||||
_sendSTRING #str0P ; Parity: none
|
||||
_sendSTRING #str0N ; Line length: 0
|
||||
_sendSTRING #strAD ; Do not implement basic tabs
|
||||
_sendSTRING #strCD ; Disable line formatting
|
||||
_sendSTRING #strXD ; Ignore XOFF
|
||||
_sendSTRING #strFD ; Disable keyboard input
|
||||
_sendSTRING #strLD ; Do not add line feeds after CR
|
||||
_sendSTRING #strME ; Mask line feed in
|
||||
_sendSTRING #strZ ; Suppress control characters
|
||||
jsr checkSerialInputReady
|
||||
rts
|
||||
|
||||
*---------- Check serial input is ready
|
||||
|
||||
checkSerialInputReady
|
||||
]lp lda #1 ; is input ready?
|
||||
jsr statusSERIAL
|
||||
beq checkSIR9
|
||||
|
||||
jsr readSERIAL ; exit when nothing to read
|
||||
bcs ]lp
|
||||
|
||||
checkSIR9 rts
|
||||
|
||||
*---------- Check the input is ready
|
||||
|
||||
checkInputReady
|
||||
]lp jsr getSerialInputStatus
|
||||
bne checkIR1
|
||||
|
||||
lda #0
|
||||
jsr WAIT
|
||||
jsr WAIT
|
||||
|
||||
lda KBD
|
||||
bpl ]lp
|
||||
bit KBDSTROBE
|
||||
lda #1
|
||||
rts
|
||||
checkIR1 lda #0
|
||||
rts
|
||||
|
||||
*---------- Get serial output status
|
||||
|
||||
getSerialOutputStatus
|
||||
lda #0
|
||||
jsr statusSERIAL
|
||||
rts
|
||||
|
||||
*---------- Get serial input status
|
||||
|
||||
getSerialInputStatus
|
||||
lda #1
|
||||
jsr statusSERIAL
|
||||
rts
|
||||
|
||||
*---------- Set all addressses
|
||||
|
||||
initSERIAL
|
||||
lda $c10d
|
||||
sta resetSERIAL+5
|
||||
lda $c10e
|
||||
sta readSERIAL+5
|
||||
lda $c10f
|
||||
sta writeSERIAL+5
|
||||
lda $c110
|
||||
sta statusSERIAL+5
|
||||
rts
|
||||
|
||||
*---------- Reset port, restore control panel defaults
|
||||
|
||||
resetSERIAL
|
||||
ldx #$c2
|
||||
ldy #$20
|
||||
jsr $c10d
|
||||
bcs resetSER1
|
||||
lda #0 ; carry clear, not ready
|
||||
beq resetSER2
|
||||
resetSER1 lda #1 ; carry set, ready
|
||||
|
||||
resetSER2 cpx #0 ; check error code
|
||||
beq resetSER3
|
||||
lda #2 ; reset error!
|
||||
resetSER3 rts
|
||||
|
||||
*---------- Wait for and get next character
|
||||
|
||||
readSERIAL
|
||||
ldx #$c2 ; yes
|
||||
ldy #$20
|
||||
jsr $c10e
|
||||
cpx #0 ; carry holds the error
|
||||
beq readSER1 ; and A the character
|
||||
sec
|
||||
hex 24
|
||||
readSER1 clc
|
||||
rts
|
||||
|
||||
*---------- Send a LD command
|
||||
|
||||
sendLDCommand
|
||||
sty dpFROM
|
||||
stx dpFROM+1
|
||||
|
||||
jsr checkSerialInputReady
|
||||
bne sendLDC9
|
||||
|
||||
jsr sendCRString
|
||||
bne sendLDC9
|
||||
|
||||
jsr receiveLDAnswer
|
||||
|
||||
sendLDC9 rts
|
||||
|
||||
*---------- Send a serial string (it begins with a 1)
|
||||
|
||||
sendSerialString
|
||||
sty dpFROM
|
||||
stx dpFROM+1
|
||||
|
||||
lda #chrCTRLA
|
||||
jsr sendSerialCharacter
|
||||
bne sendCRS9 ; on error, jump to the end
|
||||
; or goes below to sendCRString
|
||||
|
||||
*---------- Send CR string
|
||||
|
||||
sendCRString
|
||||
]lp lda (dpFROM)
|
||||
beq sendCRS1 ; end of string?
|
||||
jsr sendSerialCharacter
|
||||
bne sendCRS9 ; error!
|
||||
|
||||
inc dpFROM
|
||||
bne ]lp
|
||||
inc dpFROM+1
|
||||
bne ]lp
|
||||
|
||||
sendCRS1 lda #chrRETURN ; yes, add a final CR
|
||||
jsr sendSerialCharacter
|
||||
sendCRS9 rts
|
||||
|
||||
*---------- Send serial character
|
||||
|
||||
sendSerialCharacter
|
||||
pha
|
||||
|
||||
]lp jsr getSerialOutputStatus
|
||||
bne sensSC1
|
||||
|
||||
pla
|
||||
lda #1 ; return busy
|
||||
rts
|
||||
|
||||
sensSC1 pla
|
||||
jsr writeSERIAL
|
||||
|
||||
*---------- Send character
|
||||
|
||||
writeSERIAL
|
||||
ldx #$c2
|
||||
ldy #$20
|
||||
jsr $c10f
|
||||
cpx #0
|
||||
beq writeSER1
|
||||
ldx #2
|
||||
writeSER1 txa
|
||||
rts
|
||||
|
||||
*---------- Inquire if character has been received
|
||||
|
||||
statusSERIAL
|
||||
ldx #$c2
|
||||
ldy #$20
|
||||
jsr $c110
|
||||
cpx #0
|
||||
beq statusSER1
|
||||
ldx #2
|
||||
statusSER1 txa
|
||||
rts
|
||||
|
||||
*---------- Receive a LD answer
|
||||
|
||||
receiveLDAnswer
|
||||
ldx #>responseBUF
|
||||
ldy #<responseBUF
|
||||
jsr receiveSTRING
|
||||
|
||||
lda responseBUF
|
||||
ora #$80
|
||||
jsr COUT
|
||||
rts
|
||||
|
||||
*---------- Receive String
|
||||
|
||||
receiveSTRING
|
||||
sty dpTO
|
||||
stx dpTO+1
|
||||
|
||||
]lp jsr checkInputReady
|
||||
cmp #1
|
||||
bne receiveSTR1
|
||||
rts
|
||||
|
||||
receiveSTR1 jsr readSERIAL
|
||||
bcc receiveSTR2
|
||||
lda #2
|
||||
rts
|
||||
|
||||
receiveSTR2 sta (dpTO)
|
||||
cmp #chrRETURN
|
||||
beq receiveSTR3
|
||||
|
||||
inc dpTO
|
||||
bne ]lp
|
||||
inc dpTO+1
|
||||
bne ]lp
|
||||
|
||||
receiveSTR3 lda #0
|
||||
rts
|
||||
|
||||
*---------- Receive string
|
||||
|
||||
receiveSERIAL
|
||||
sty dpTO
|
||||
stx dpTO+1
|
||||
|
||||
]lp nop
|
||||
nop
|
||||
lda #1
|
||||
jsr statusSERIAL
|
||||
bcc ]lp
|
||||
|
||||
nop
|
||||
clc
|
||||
jsr readSERIAL
|
||||
and #$7f
|
||||
pha
|
||||
ora #$80
|
||||
jsr COUT
|
||||
pla
|
||||
cmp #chrSPACE
|
||||
bcs ]lp
|
||||
rts
|
||||
|
||||
ldy #0
|
||||
receiveSER1 phy
|
||||
]lp lda #1 ; Do you have input ready?
|
||||
jsr statusSERIAL
|
||||
bcc ]lp ; no
|
||||
jsr readSERIAL ; yes, jump below
|
||||
ply
|
||||
sta (dpTO),y
|
||||
cmp #chrRETURN
|
||||
beq receiveSER9
|
||||
cmp #chrLINEFEED
|
||||
beq receiveSER9
|
||||
iny
|
||||
bne receiveSER1
|
||||
receiveSER9 rts
|
||||
|
||||
*---------- Send string
|
||||
|
||||
sendSERIAL sty dpFROM
|
||||
stx dpFROM+1
|
||||
|
||||
ldy #0
|
||||
sendSERIAL1 lda (dpFROM),y
|
||||
beq sendSERIAL9
|
||||
phy
|
||||
pha
|
||||
|
||||
]lp lda #0 ; Are you ready to accept output?
|
||||
jsr statusSERIAL
|
||||
bcc ]lp ; no
|
||||
|
||||
pla
|
||||
jsr writeSERIAL
|
||||
ply
|
||||
iny
|
||||
bne sendSERIAL1 ; limit to 256 characters
|
||||
sendSERIAL9 rts
|
||||
|
||||
*-----------------------------------
|
||||
* DATA
|
||||
*-----------------------------------
|
||||
|
||||
*---------- Serial data
|
||||
|
||||
strED asc 'ED'00 ; *Don't echo output
|
||||
strBE asc 'BE'00 ; *Input buffering: on
|
||||
str12B asc '12B'00 ; *Baud rate: 4800 BPS
|
||||
str0D asc '0D'00 ; *Data/Stop bits: 8/1
|
||||
str0P asc '0P'00 ; *Parity: none
|
||||
str0N asc '0N'00 ; Line length: 0
|
||||
strAD asc 'AD'00 ; *Do not implement basic tabs
|
||||
strCD asc 'CD'00 ; *Disable line formatting
|
||||
strXD asc 'XD'00 ; *Ignore XOFF
|
||||
strFD asc 'FD'00 ; *Disable keyboard input
|
||||
strLD asc 'LD'00 ; Do not add line feeds after CR
|
||||
strME asc 'ME'00 ; Mask line feed in
|
||||
strZ asc 'Z'00 ; *Suppress control characters
|
||||
|
||||
*---------- Laserdisc
|
||||
|
||||
strDS asc '1DS CS'00
|
||||
strAV asc 'ANTOINE'00
|
||||
strCO asc 'CO'00
|
||||
strSA asc 'SA'00
|
||||
strPL asc 'PL'00
|
||||
strC asc '$C'00
|
||||
|
||||
ds \
|
||||
|
||||
responseBUF ds 256 ; LD player response
|
||||
|
||||
*-----------------------------------
|
||||
* END OF CODE
|
||||
*-----------------------------------
|
||||
|
||||
Binary file not shown.
|
|
@ -0,0 +1,464 @@
|
|||
*
|
||||
* DLLD
|
||||
* Let's play Dragon's Lair :-)
|
||||
*
|
||||
* (c) 2024, Brutal Deluxe Software
|
||||
*
|
||||
|
||||
mx %11
|
||||
org $2000
|
||||
lst off
|
||||
|
||||
use 4/Int.Macs
|
||||
use 4/Util.Macs
|
||||
|
||||
*-----------------------------------
|
||||
* MACROS
|
||||
*-----------------------------------
|
||||
|
||||
_sendSTRING mac
|
||||
ldx #>]1
|
||||
ldy #<]1
|
||||
jsr sendString
|
||||
eom
|
||||
|
||||
*-----------------------------------
|
||||
* EQUATES
|
||||
*-----------------------------------
|
||||
|
||||
SLOT = 2
|
||||
N0 = SLOT*16
|
||||
CN = SLOT!$C0
|
||||
|
||||
dpFROM = $fc
|
||||
dpTO = dpFROM+2
|
||||
|
||||
chrRETURN = $0d
|
||||
|
||||
KBD = $c000
|
||||
KBDSTROBE = $c010
|
||||
|
||||
HOME = $fc58
|
||||
COUT = $fded
|
||||
|
||||
*-----------------------------------
|
||||
* CODE
|
||||
*-----------------------------------
|
||||
|
||||
jsr HOME
|
||||
jsr initSERIAL ; set the serial addresses
|
||||
jsr initPORT ; init the serial port for LD support
|
||||
|
||||
jsr showFRAME
|
||||
|
||||
ldx #>strSA ; start the player
|
||||
ldy #<strSA
|
||||
jsr sendLDCommand
|
||||
|
||||
*---
|
||||
|
||||
mainLOOP
|
||||
]lp lda KBD ; wait for a key
|
||||
bpl ]lp
|
||||
bit KBDSTROBE
|
||||
sta $427
|
||||
|
||||
ldx #0 ; quelle touche ?
|
||||
]lp cmp tblKEY,x
|
||||
beq foundIT
|
||||
inx
|
||||
cpx #13
|
||||
bcc ]lp
|
||||
bra mainLOOP
|
||||
foundIT txa
|
||||
asl
|
||||
tax
|
||||
lda tblADR,x
|
||||
sta gotoIT+1
|
||||
lda tblADR+1,x
|
||||
sta gotoIT+2
|
||||
|
||||
gotoIT jsr $bdbd
|
||||
bcc doIT
|
||||
|
||||
ldx #>strRJ ; Set frame and search
|
||||
ldy #<strRJ
|
||||
jsr sendLDCommand
|
||||
rts
|
||||
|
||||
doIT ldx #>strFR ; Set frame and search
|
||||
ldy #<strFR
|
||||
jsr sendLDCommand
|
||||
bra mainLOOP
|
||||
|
||||
*---
|
||||
|
||||
doQ sec
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
doA lda #8*30
|
||||
bne doREVERSE
|
||||
doZ lda #5*30
|
||||
bne doREVERSE
|
||||
doE lda #2*30
|
||||
bne doREVERSE
|
||||
doR lda #1*30
|
||||
bne doREVERSE
|
||||
doT lda #1
|
||||
|
||||
doREVERSE sta theINDEX
|
||||
|
||||
clc
|
||||
xce
|
||||
rep #$30
|
||||
|
||||
lda theFRAME
|
||||
sec
|
||||
sbc theINDEX
|
||||
beq revONE
|
||||
bpl revOK
|
||||
revONE lda #1
|
||||
revOK sta theFRAME
|
||||
|
||||
pha
|
||||
lda #'00'
|
||||
sta strFRAME
|
||||
sta strFRAME+2
|
||||
sta strFRAME+3
|
||||
PushLong #strFRAME
|
||||
PushWord #5
|
||||
PushWord #0
|
||||
_Int2Dec
|
||||
|
||||
sec
|
||||
xce
|
||||
sep #$30
|
||||
clc
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
doY lda #1
|
||||
bne doFORWARD
|
||||
doU lda #1*30
|
||||
bne doFORWARD
|
||||
doI lda #2*30
|
||||
bne doFORWARD
|
||||
doO lda #5*30
|
||||
bne doFORWARD
|
||||
doP lda #8*30
|
||||
|
||||
doFORWARD sta theINDEX
|
||||
|
||||
clc
|
||||
xce
|
||||
rep #$30
|
||||
|
||||
lda theFRAME
|
||||
clc
|
||||
adc theINDEX
|
||||
bcc ffOK
|
||||
lda #65535
|
||||
ffOK sta theFRAME
|
||||
|
||||
pha
|
||||
lda #'00'
|
||||
sta strFRAME
|
||||
sta strFRAME+2
|
||||
sta strFRAME+3
|
||||
PushLong #strFRAME
|
||||
PushWord #5
|
||||
PushWord #0
|
||||
_Int2Dec
|
||||
|
||||
sec
|
||||
xce
|
||||
sep #$30
|
||||
clc
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
doSPACE lda #0
|
||||
eor #1
|
||||
sta doSPACE+1
|
||||
bne doST
|
||||
|
||||
ldx #>strPL ; play the disc
|
||||
ldy #<strPL
|
||||
bne doSPACE2
|
||||
|
||||
doST ldx #>strST ; still me
|
||||
ldy #<strST
|
||||
|
||||
doSPACE2 jsr sendLDCommand
|
||||
clc
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
showFRAME ldx #>strDS ; on veut la frame number
|
||||
ldy #<strDS
|
||||
jsr sendLDCommand
|
||||
clc
|
||||
rts
|
||||
|
||||
*--- Data
|
||||
|
||||
strDS asc '1DS'00 ; display frame number
|
||||
strCO asc 'CO'00 ; close the door
|
||||
strSA asc 'SA'00 ; start player
|
||||
strRJ asc 'RJ'00 ; stop the player
|
||||
|
||||
strFR asc 'FR' ; set frame...
|
||||
strFRAME asc '00001'
|
||||
asc 'SE'00 ; ...and search
|
||||
strPL asc 'PL'00 ; play laserdisc
|
||||
strST asc 'ST'00 ; still
|
||||
|
||||
*---
|
||||
|
||||
theINDEX dw 0 ; variation en nombre de frames
|
||||
theFRAME dw 1 ; the frame number (1.65535)
|
||||
|
||||
tblKEY asc "X "
|
||||
asc "QWERTYUIOPF"
|
||||
|
||||
tblADR da doQ ; 0
|
||||
da doSPACE ; 1
|
||||
da doA ; 2
|
||||
da doZ ; 3
|
||||
da doE ; 4
|
||||
da doR ; 5
|
||||
da doT ; 6
|
||||
da doY ; 7
|
||||
da doU ; 8
|
||||
da doI ; 9
|
||||
da doO ; 10
|
||||
da doP ; 11
|
||||
da showFRAME ; 12
|
||||
|
||||
*-----------------------------------
|
||||
* SERIAL PORT (MODEM)
|
||||
*-----------------------------------
|
||||
|
||||
*---------- Set all addressses
|
||||
|
||||
initSERIAL
|
||||
lda $c20d
|
||||
sta doinit+1
|
||||
lda $c20e
|
||||
sta doread+1
|
||||
lda $c20f
|
||||
sta dowrite+1
|
||||
lda $c210
|
||||
sta dostatus+1
|
||||
rts
|
||||
|
||||
doinit jmp $c20d
|
||||
doread jmp $c20e
|
||||
dowrite jmp $c20f
|
||||
dostatus jmp $c210
|
||||
|
||||
*---------- Init modem port for LD support
|
||||
|
||||
initPORT ldx #CN
|
||||
ldy #N0
|
||||
jsr doinit
|
||||
|
||||
_sendSTRING #strED ; Don't echo output
|
||||
_sendSTRING #strBE ; Input buffering: on
|
||||
_sendSTRING #str12B ; Baud rate: 4800 BPS
|
||||
_sendSTRING #str0D ; Data/Stop bits: 8/1
|
||||
_sendSTRING #str0P ; Parity: none
|
||||
_sendSTRING #str0N ; Line length: 0
|
||||
_sendSTRING #strAD ; Do not implement basic tabs
|
||||
_sendSTRING #strCD ; Disable line formatting
|
||||
_sendSTRING #strXD ; Ignore XOFF
|
||||
_sendSTRING #strFD ; Disable keyboard input
|
||||
_sendSTRING #strLD ; Do not add line feeds after CR
|
||||
_sendSTRING #strME ; Mask line feed in
|
||||
_sendSTRING #strZ ; Suppress control characters
|
||||
jsr checkInputReady
|
||||
rts
|
||||
|
||||
*---------- Check the input is ready
|
||||
|
||||
checkInputReady
|
||||
ldx #8
|
||||
ldy #0
|
||||
|
||||
]lp phx
|
||||
phy
|
||||
|
||||
* lda #"I"
|
||||
* sta $427
|
||||
|
||||
ldx #CN
|
||||
ldy #N0
|
||||
lda #1
|
||||
jsr dostatus
|
||||
bcs checkIR1
|
||||
|
||||
ply
|
||||
plx
|
||||
dey
|
||||
bne ]lp
|
||||
dex
|
||||
bne ]lp
|
||||
|
||||
sec
|
||||
rts
|
||||
checkIR1 ply
|
||||
plx
|
||||
clc
|
||||
rts
|
||||
|
||||
*---------- Check the output is ready
|
||||
|
||||
checkOutputReady
|
||||
ldx #8
|
||||
ldy #0
|
||||
|
||||
]lp phx
|
||||
phy
|
||||
|
||||
* lda #"O"
|
||||
* sta $427
|
||||
|
||||
ldx #CN
|
||||
ldy #N0
|
||||
lda #0
|
||||
jsr dostatus
|
||||
bcs checkOR1
|
||||
|
||||
ply
|
||||
plx
|
||||
dey
|
||||
bne ]lp
|
||||
dex
|
||||
bne ]lp
|
||||
|
||||
sec
|
||||
rts
|
||||
checkOR1 ply
|
||||
plx
|
||||
clc
|
||||
rts
|
||||
|
||||
*---------- Send a LD command
|
||||
|
||||
sendLDCommand
|
||||
jsr sendString
|
||||
bcs sendLDError
|
||||
jsr receiveString
|
||||
sendLDError rts
|
||||
|
||||
*---------- Send a string
|
||||
|
||||
sendString
|
||||
* lda #"S"
|
||||
* sta $426
|
||||
|
||||
sty dpFROM
|
||||
stx dpFROM+1
|
||||
|
||||
]lp lda (dpFROM)
|
||||
beq sendCRS1 ; end of string?
|
||||
jsr sendCharacter
|
||||
bcs sendError ; error!
|
||||
|
||||
inc dpFROM
|
||||
bne ]lp
|
||||
inc dpFROM+1
|
||||
bne ]lp
|
||||
|
||||
sendCRS1 lda #chrRETURN ; yes, add a final CR
|
||||
jsr sendCharacter
|
||||
|
||||
sendError rts
|
||||
|
||||
*---------- Send serial character
|
||||
|
||||
sendCharacter
|
||||
pha
|
||||
|
||||
]lp jsr checkOutputReady
|
||||
bcc sensSC1
|
||||
pla
|
||||
sec
|
||||
rts
|
||||
|
||||
sensSC1 pla
|
||||
ldx #CN
|
||||
ldy #N0
|
||||
jsr dowrite
|
||||
clc
|
||||
rts
|
||||
|
||||
*---------- Receive string
|
||||
|
||||
receiveString
|
||||
* lda #"R"
|
||||
* sta $426
|
||||
|
||||
ldx #>responseBUF
|
||||
ldy #<responseBUF
|
||||
sty dpTO
|
||||
stx dpTO+1
|
||||
|
||||
ldy #0
|
||||
receiveSTR1 phy
|
||||
]lp jsr checkInputReady
|
||||
bcs receiveSTR9
|
||||
|
||||
ldx #CN
|
||||
ldy #N0
|
||||
jsr doread
|
||||
cpx #0
|
||||
bne receiveSTR9
|
||||
|
||||
ply
|
||||
sta (dpTO),y
|
||||
cmp #chrRETURN
|
||||
beq receiveSTR8
|
||||
iny
|
||||
bne receiveSTR1
|
||||
receiveSTR8 clc
|
||||
rts
|
||||
receiveSTR9 ply
|
||||
sec
|
||||
rts
|
||||
|
||||
*-----------------------------------
|
||||
* DATA
|
||||
*-----------------------------------
|
||||
|
||||
*---------- Serial data
|
||||
|
||||
strED asc 01'ED'00 ; *Don't echo output
|
||||
strBE asc 01'BE'00 ; *Input buffering: on
|
||||
str12B asc 01'12B'00 ; *Baud rate: 4800 BPS
|
||||
str0D asc 01'0D'00 ; *Data/Stop bits: 8/1
|
||||
str0P asc 01'0P'00 ; *Parity: none
|
||||
str0N asc 01'0N'00 ; Line length: 0
|
||||
strAD asc 01'AD'00 ; *Do not implement basic tabs
|
||||
strCD asc 01'CD'00 ; *Disable line formatting
|
||||
strXD asc 01'XD'00 ; *Ignore XOFF
|
||||
strFD asc 01'FD'00 ; *Disable keyboard input
|
||||
strLD asc 01'LD'00 ; Do not add line feeds after CR
|
||||
strME asc 01'ME'00 ; Mask line feed in
|
||||
strZ asc 01'Z'00 ; *Suppress control characters
|
||||
|
||||
*---------- Laserdisc
|
||||
|
||||
ds \
|
||||
|
||||
responseBUF ds 256 ; LD player response
|
||||
|
||||
*-----------------------------------
|
||||
* END OF CODE
|
||||
*-----------------------------------
|
||||
|
||||
|
|
@ -0,0 +1,604 @@
|
|||
------+-------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code
|
||||
------+-------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
1 | 1 dlld2.s 1 | Comment | 11 | | 0 | 00/8000 | *
|
||||
2 | 1 dlld2.s 2 | Comment | 11 | | 0 | 00/8000 | * DLLD
|
||||
3 | 1 dlld2.s 3 | Comment | 11 | | 0 | 00/8000 | * Let's play Dragon's Lair :-)
|
||||
4 | 1 dlld2.s 4 | Comment | 11 | | 0 | 00/8000 | *
|
||||
5 | 1 dlld2.s 5 | Comment | 11 | | 0 | 00/8000 | * (c) 2024, Brutal Deluxe Software
|
||||
6 | 1 dlld2.s 6 | Comment | 11 | | 0 | 00/8000 | *
|
||||
7 | 1 dlld2.s 7 | Empty | 11 | | 0 | 00/8000 |
|
||||
8 | 1 dlld2.s 8 | Directive | 11 | | 0 | 00/8000 | mx %11
|
||||
9 | 1 dlld2.s 9 | Directive | 11 | | 0 | 00/8000 | org $2000
|
||||
10 | 1 dlld2.s 10 | Directive | 11 | | 0 | 00/2000 | lst off
|
||||
11 | 1 dlld2.s 11 | Empty | 11 | | 0 | 00/2000 |
|
||||
12 | 1 dlld2.s 12 | Directive | 11 | | 0 | 00/2000 | use 4/Int.Macs
|
||||
13 | 1 dlld2.s 13 | Directive | 11 | | 0 | 00/2000 | use 4/Util.Macs
|
||||
14 | 1 dlld2.s 14 | Empty | 11 | | 0 | 00/2000 |
|
||||
15 | 1 dlld2.s 15 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
||||
16 | 1 dlld2.s 16 | Comment | 11 | | 0 | 00/2000 | * MACROS
|
||||
17 | 1 dlld2.s 17 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
||||
18 | 1 dlld2.s 18 | Empty | 11 | | 0 | 00/2000 |
|
||||
19 | 1 dlld2.s 19 | Directive | 11 | | 0 | 00/2000 | _sendSTRING mac
|
||||
20 | 1 dlld2.s 20 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
|
||||
21 | 1 dlld2.s 21 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
|
||||
22 | 1 dlld2.s 22 | Directive | 11 | | 0 | 00/2000 | jsr sendString
|
||||
23 | 1 dlld2.s 23 | Directive | 11 | | 0 | 00/2000 | eom
|
||||
24 | 1 dlld2.s 24 | Empty | 11 | | 0 | 00/2000 |
|
||||
25 | 1 dlld2.s 25 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
||||
26 | 1 dlld2.s 26 | Comment | 11 | | 0 | 00/2000 | * EQUATES
|
||||
27 | 1 dlld2.s 27 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
||||
28 | 1 dlld2.s 28 | Empty | 11 | | 0 | 00/2000 |
|
||||
29 | 1 dlld2.s 29 | Equivalence | 11 | | 0 | 00/2000 | SLOT = 2
|
||||
30 | 1 dlld2.s 30 | Equivalence | 11 | | 0 | 00/2000 | N0 = {2}*16
|
||||
31 | 1 dlld2.s 31 | Equivalence | 11 | | 0 | 00/2000 | CN = {2}!$C0
|
||||
32 | 1 dlld2.s 32 | Empty | 11 | | 0 | 00/2000 |
|
||||
33 | 1 dlld2.s 33 | Equivalence | 11 | | 0 | 00/2000 | dpFROM = $fc
|
||||
34 | 1 dlld2.s 34 | Equivalence | 11 | | 0 | 00/2000 | dpTO = {$fc}+2
|
||||
35 | 1 dlld2.s 35 | Empty | 11 | | 0 | 00/2000 |
|
||||
36 | 1 dlld2.s 36 | Equivalence | 11 | | 0 | 00/2000 | chrRETURN = $0d
|
||||
37 | 1 dlld2.s 37 | Empty | 11 | | 0 | 00/2000 |
|
||||
38 | 1 dlld2.s 38 | Equivalence | 11 | | 0 | 00/2000 | KBD = $c000
|
||||
39 | 1 dlld2.s 39 | Equivalence | 11 | | 0 | 00/2000 | KBDSTROBE = $c010
|
||||
40 | 1 dlld2.s 40 | Empty | 11 | | 0 | 00/2000 |
|
||||
41 | 1 dlld2.s 41 | Equivalence | 11 | | 0 | 00/2000 | HOME = $fc58
|
||||
42 | 1 dlld2.s 42 | Equivalence | 11 | | 0 | 00/2000 | COUT = $fded
|
||||
43 | 1 dlld2.s 43 | Empty | 11 | | 0 | 00/2000 |
|
||||
44 | 1 dlld2.s 44 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
||||
45 | 1 dlld2.s 45 | Comment | 11 | | 0 | 00/2000 | * CODE
|
||||
46 | 1 dlld2.s 46 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
||||
47 | 1 dlld2.s 47 | Empty | 11 | | 0 | 00/2000 |
|
||||
48 | 1 dlld2.s 48 | Code | 11 | | 3 | 00/2000 : 20 58 FC | jsr {$fc58}
|
||||
49 | 1 dlld2.s 49 | Code | 11 | | 3 | 00/2003 : 20 5A 21 | jsr initSERIAL ; set the serial addresses
|
||||
50 | 1 dlld2.s 50 | Code | 11 | | 3 | 00/2006 : 20 7F 21 | jsr initPORT ; init the serial port for LD support
|
||||
51 | 1 dlld2.s 51 | Empty | 11 | | 0 | 00/2009 |
|
||||
52 | 1 dlld2.s 52 | Code | 11 | | 3 | 00/2009 : 20 09 21 | jsr showFRAME
|
||||
53 | 1 dlld2.s 53 | Empty | 11 | | 0 | 00/200C |
|
||||
54 | 1 dlld2.s 54 | Code | 11 | | 2 | 00/200C : A2 21 | ldx #>strSA ; start the player
|
||||
55 | 1 dlld2.s 55 | Code | 11 | | 2 | 00/200E : A0 19 | ldy #<strSA
|
||||
56 | 1 dlld2.s 56 | Code | 11 | | 3 | 00/2010 : 20 23 22 | jsr sendLDCommand
|
||||
57 | 1 dlld2.s 57 | Empty | 11 | | 0 | 00/2013 |
|
||||
58 | 1 dlld2.s 58 | Comment | 11 | | 0 | 00/2013 | *---
|
||||
59 | 1 dlld2.s 59 | Empty | 11 | | 0 | 00/2013 |
|
||||
60 | 1 dlld2.s 60 | Empty | 11 | | 0 | 00/2013 | mainLOOP
|
||||
61 | 1 dlld2.s 61 | Code | 11 | | 3 | 00/2013 : AD 00 C0 | ozunid_1 lda {$c000} ; wait for a key
|
||||
62 | 1 dlld2.s 62 | Code | 11 | | 2 | 00/2016 : 10 FB | bpl ozunid_1
|
||||
63 | 1 dlld2.s 63 | Code | 11 | | 3 | 00/2018 : 2C 10 C0 | bit {$c010}
|
||||
64 | 1 dlld2.s 64 | Code | 11 | | 3 | 00/201B : 8D 27 04 | sta $427
|
||||
65 | 1 dlld2.s 65 | Empty | 11 | | 0 | 00/201E |
|
||||
66 | 1 dlld2.s 66 | Code | 11 | | 2 | 00/201E : A2 00 | ldx #0 ; quelle touche ?
|
||||
67 | 1 dlld2.s 67 | Code | 11 | | 3 | 00/2020 : DD 33 21 | ozunid_2 cmp tblKEY,x
|
||||
68 | 1 dlld2.s 68 | Code | 11 | | 2 | 00/2023 : F0 07 | beq foundIT
|
||||
69 | 1 dlld2.s 69 | Code | 11 | | 1 | 00/2025 : E8 | inx
|
||||
70 | 1 dlld2.s 70 | Code | 11 | | 2 | 00/2026 : E0 0D | cpx #13
|
||||
71 | 1 dlld2.s 71 | Code | 11 | | 2 | 00/2028 : 90 F6 | bcc ozunid_2
|
||||
72 | 1 dlld2.s 72 | Code | 11 | | 2 | 00/202A : 80 E7 | bra mainLOOP
|
||||
73 | 1 dlld2.s 73 | Code | 11 | | 1 | 00/202C : 8A | foundIT txa
|
||||
74 | 1 dlld2.s 74 | Code | 11 | | 1 | 00/202D : 0A | asl
|
||||
75 | 1 dlld2.s 75 | Code | 11 | | 1 | 00/202E : AA | tax
|
||||
76 | 1 dlld2.s 76 | Code | 11 | | 3 | 00/202F : BD 40 21 | lda tblADR,x
|
||||
77 | 1 dlld2.s 77 | Code | 11 | | 3 | 00/2032 : 8D 3C 20 | sta gotoIT+1
|
||||
78 | 1 dlld2.s 78 | Code | 11 | | 3 | 00/2035 : BD 41 21 | lda tblADR+1,x
|
||||
79 | 1 dlld2.s 79 | Code | 11 | | 3 | 00/2038 : 8D 3D 20 | sta gotoIT+2
|
||||
80 | 1 dlld2.s 80 | Empty | 11 | | 0 | 00/203B |
|
||||
81 | 1 dlld2.s 81 | Code | 11 | | 3 | 00/203B : 20 BD BD | gotoIT jsr $bdbd
|
||||
82 | 1 dlld2.s 82 | Code | 11 | | 2 | 00/203E : 90 08 | bcc doIT
|
||||
83 | 1 dlld2.s 83 | Empty | 11 | | 0 | 00/2040 |
|
||||
84 | 1 dlld2.s 84 | Code | 11 | | 2 | 00/2040 : A2 21 | ldx #>strRJ ; Set frame and search
|
||||
85 | 1 dlld2.s 85 | Code | 11 | | 2 | 00/2042 : A0 1C | ldy #<strRJ
|
||||
86 | 1 dlld2.s 86 | Code | 11 | | 3 | 00/2044 : 20 23 22 | jsr sendLDCommand
|
||||
87 | 1 dlld2.s 87 | Code | 11 | | 1 | 00/2047 : 60 | rts
|
||||
88 | 1 dlld2.s 88 | Empty | 11 | | 0 | 00/2048 |
|
||||
89 | 1 dlld2.s 89 | Code | 11 | | 2 | 00/2048 : A2 21 | doIT ldx #>strFR ; Set frame and search
|
||||
90 | 1 dlld2.s 90 | Code | 11 | | 2 | 00/204A : A0 1F | ldy #<strFR
|
||||
91 | 1 dlld2.s 91 | Code | 11 | | 3 | 00/204C : 20 23 22 | jsr sendLDCommand
|
||||
92 | 1 dlld2.s 92 | Code | 11 | | 2 | 00/204F : 80 C2 | bra mainLOOP
|
||||
93 | 1 dlld2.s 93 | Empty | 11 | | 0 | 00/2051 |
|
||||
94 | 1 dlld2.s 94 | Comment | 11 | | 0 | 00/2051 | *---
|
||||
95 | 1 dlld2.s 95 | Empty | 11 | | 0 | 00/2051 |
|
||||
96 | 1 dlld2.s 96 | Code | 11 | | 1 | 00/2051 : 38 | doQ sec
|
||||
97 | 1 dlld2.s 97 | Code | 11 | | 1 | 00/2052 : 60 | rts
|
||||
98 | 1 dlld2.s 98 | Empty | 11 | | 0 | 00/2053 |
|
||||
99 | 1 dlld2.s 99 | Comment | 11 | | 0 | 00/2053 | *---
|
||||
100 | 1 dlld2.s 100 | Empty | 11 | | 0 | 00/2053 |
|
||||
101 | 1 dlld2.s 101 | Code | 11 | | 2 | 00/2053 : A9 F0 | doA lda #8*30
|
||||
102 | 1 dlld2.s 102 | Code | 11 | | 2 | 00/2055 : D0 0E | bne doREVERSE
|
||||
103 | 1 dlld2.s 103 | Code | 11 | | 2 | 00/2057 : A9 96 | doZ lda #5*30
|
||||
104 | 1 dlld2.s 104 | Code | 11 | | 2 | 00/2059 : D0 0A | bne doREVERSE
|
||||
105 | 1 dlld2.s 105 | Code | 11 | | 2 | 00/205B : A9 3C | doE lda #2*30
|
||||
106 | 1 dlld2.s 106 | Code | 11 | | 2 | 00/205D : D0 06 | bne doREVERSE
|
||||
107 | 1 dlld2.s 107 | Code | 11 | | 2 | 00/205F : A9 1E | doR lda #1*30
|
||||
108 | 1 dlld2.s 108 | Code | 11 | | 2 | 00/2061 : D0 02 | bne doREVERSE
|
||||
109 | 1 dlld2.s 109 | Code | 11 | | 2 | 00/2063 : A9 01 | doT lda #1
|
||||
110 | 1 dlld2.s 110 | Empty | 11 | | 0 | 00/2065 |
|
||||
111 | 1 dlld2.s 111 | Code | 11 | | 3 | 00/2065 : 8D 2F 21 | doREVERSE sta theINDEX
|
||||
112 | 1 dlld2.s 112 | Empty | 11 | | 0 | 00/2068 |
|
||||
113 | 1 dlld2.s 113 | Code | 11 | | 1 | 00/2068 : 18 | clc
|
||||
114 | 1 dlld2.s 114 | Code | 11 | | 1 | 00/2069 : FB | xce
|
||||
115 | 1 dlld2.s 115 | Code | 00 | | 2 | 00/206A : C2 30 | rep #$30
|
||||
116 | 1 dlld2.s 116 | Empty | 00 | | 0 | 00/206C |
|
||||
117 | 1 dlld2.s 117 | Code | 00 | | 3 | 00/206C : AD 31 21 | lda theFRAME
|
||||
118 | 1 dlld2.s 118 | Code | 00 | | 1 | 00/206F : 38 | sec
|
||||
119 | 1 dlld2.s 119 | Code | 00 | | 3 | 00/2070 : ED 2F 21 | sbc theINDEX
|
||||
120 | 1 dlld2.s 120 | Code | 00 | | 2 | 00/2073 : F0 02 | beq revONE
|
||||
121 | 1 dlld2.s 121 | Code | 00 | | 2 | 00/2075 : 10 03 | bpl revOK
|
||||
122 | 1 dlld2.s 122 | Code | 00 | | 3 | 00/2077 : A9 01 00 | revONE lda #1
|
||||
123 | 1 dlld2.s 123 | Code | 00 | | 3 | 00/207A : 8D 31 21 | revOK sta theFRAME
|
||||
124 | 1 dlld2.s 124 | Empty | 00 | | 0 | 00/207D |
|
||||
125 | 1 dlld2.s 125 | Code | 00 | | 1 | 00/207D : 48 | pha
|
||||
126 | 1 dlld2.s 126 | Code | 00 | | 3 | 00/207E : A9 30 30 | lda #'00'
|
||||
127 | 1 dlld2.s 127 | Code | 00 | | 3 | 00/2081 : 8D 21 21 | sta strFRAME
|
||||
128 | 1 dlld2.s 128 | Code | 00 | | 3 | 00/2084 : 8D 23 21 | sta strFRAME+2
|
||||
129 | 1 dlld2.s 129 | Code | 00 | | 3 | 00/2087 : 8D 24 21 | sta strFRAME+3
|
||||
130 | 1 dlld2.s 130 | Macro | 00 | | 0 | 00/208A | PushLong #strFRAME
|
||||
134 | 1 dlld2.s 130 | Code | 00 | | 3 | 00/208A : F4 00 00 | PEA #^#strFRAME
|
||||
141 | 1 dlld2.s 130 | Code | 00 | | 3 | 00/208D : F4 21 21 | PEA #strFRAME
|
||||
144 | 1 dlld2.s 131 | Macro | 00 | | 0 | 00/2090 | PushWord #5
|
||||
146 | 1 dlld2.s 131 | Code | 00 | | 3 | 00/2090 : F4 05 00 | PEA #5
|
||||
149 | 1 dlld2.s 132 | Macro | 00 | | 0 | 00/2093 | PushWord #0
|
||||
151 | 1 dlld2.s 132 | Code | 00 | | 3 | 00/2093 : F4 00 00 | PEA #0
|
||||
154 | 1 dlld2.s 133 | Macro | 00 | | 0 | 00/2096 | _Int2Dec
|
||||
156 | 1 dlld2.s 133 | Code | 00 | | 3 | 00/2096 : A2 0B 26 | LDX #$260B ; load tool call #
|
||||
157 | 1 dlld2.s 133 | Code | 00 | | 4 | 00/2099 : 22 00 00 E1 | JSL $E10000 ; go to dispatcher
|
||||
158 | 1 dlld2.s 134 | Empty | 00 | | 0 | 00/209D |
|
||||
159 | 1 dlld2.s 135 | Code | 00 | | 1 | 00/209D : 38 | sec
|
||||
160 | 1 dlld2.s 136 | Code | 11 | | 1 | 00/209E : FB | xce
|
||||
161 | 1 dlld2.s 137 | Code | 11 | | 2 | 00/209F : E2 30 | sep #$30
|
||||
162 | 1 dlld2.s 138 | Code | 11 | | 1 | 00/20A1 : 18 | clc
|
||||
163 | 1 dlld2.s 139 | Code | 11 | | 1 | 00/20A2 : 60 | rts
|
||||
164 | 1 dlld2.s 140 | Empty | 11 | | 0 | 00/20A3 |
|
||||
165 | 1 dlld2.s 141 | Comment | 11 | | 0 | 00/20A3 | *---
|
||||
166 | 1 dlld2.s 142 | Empty | 11 | | 0 | 00/20A3 |
|
||||
167 | 1 dlld2.s 143 | Code | 11 | | 2 | 00/20A3 : A9 01 | doY lda #1
|
||||
168 | 1 dlld2.s 144 | Code | 11 | | 2 | 00/20A5 : D0 0E | bne doFORWARD
|
||||
169 | 1 dlld2.s 145 | Code | 11 | | 2 | 00/20A7 : A9 1E | doU lda #1*30
|
||||
170 | 1 dlld2.s 146 | Code | 11 | | 2 | 00/20A9 : D0 0A | bne doFORWARD
|
||||
171 | 1 dlld2.s 147 | Code | 11 | | 2 | 00/20AB : A9 3C | doI lda #2*30
|
||||
172 | 1 dlld2.s 148 | Code | 11 | | 2 | 00/20AD : D0 06 | bne doFORWARD
|
||||
173 | 1 dlld2.s 149 | Code | 11 | | 2 | 00/20AF : A9 96 | doO lda #5*30
|
||||
174 | 1 dlld2.s 150 | Code | 11 | | 2 | 00/20B1 : D0 02 | bne doFORWARD
|
||||
175 | 1 dlld2.s 151 | Code | 11 | | 2 | 00/20B3 : A9 F0 | doP lda #8*30
|
||||
176 | 1 dlld2.s 152 | Empty | 11 | | 0 | 00/20B5 |
|
||||
177 | 1 dlld2.s 153 | Code | 11 | | 3 | 00/20B5 : 8D 2F 21 | doFORWARD sta theINDEX
|
||||
178 | 1 dlld2.s 154 | Empty | 11 | | 0 | 00/20B8 |
|
||||
179 | 1 dlld2.s 155 | Code | 11 | | 1 | 00/20B8 : 18 | clc
|
||||
180 | 1 dlld2.s 156 | Code | 11 | | 1 | 00/20B9 : FB | xce
|
||||
181 | 1 dlld2.s 157 | Code | 00 | | 2 | 00/20BA : C2 30 | rep #$30
|
||||
182 | 1 dlld2.s 158 | Empty | 00 | | 0 | 00/20BC |
|
||||
183 | 1 dlld2.s 159 | Code | 00 | | 3 | 00/20BC : AD 31 21 | lda theFRAME
|
||||
184 | 1 dlld2.s 160 | Code | 00 | | 1 | 00/20BF : 18 | clc
|
||||
185 | 1 dlld2.s 161 | Code | 00 | | 3 | 00/20C0 : 6D 2F 21 | adc theINDEX
|
||||
186 | 1 dlld2.s 162 | Code | 00 | | 2 | 00/20C3 : 90 03 | bcc ffOK
|
||||
187 | 1 dlld2.s 163 | Code | 00 | | 3 | 00/20C5 : A9 FF FF | lda #65535
|
||||
188 | 1 dlld2.s 164 | Code | 00 | | 3 | 00/20C8 : 8D 31 21 | ffOK sta theFRAME
|
||||
189 | 1 dlld2.s 165 | Empty | 00 | | 0 | 00/20CB |
|
||||
190 | 1 dlld2.s 166 | Code | 00 | | 1 | 00/20CB : 48 | pha
|
||||
191 | 1 dlld2.s 167 | Code | 00 | | 3 | 00/20CC : A9 30 30 | lda #'00'
|
||||
192 | 1 dlld2.s 168 | Code | 00 | | 3 | 00/20CF : 8D 21 21 | sta strFRAME
|
||||
193 | 1 dlld2.s 169 | Code | 00 | | 3 | 00/20D2 : 8D 23 21 | sta strFRAME+2
|
||||
194 | 1 dlld2.s 170 | Code | 00 | | 3 | 00/20D5 : 8D 24 21 | sta strFRAME+3
|
||||
195 | 1 dlld2.s 171 | Macro | 00 | | 0 | 00/20D8 | PushLong #strFRAME
|
||||
199 | 1 dlld2.s 171 | Code | 00 | | 3 | 00/20D8 : F4 00 00 | PEA #^#strFRAME
|
||||
206 | 1 dlld2.s 171 | Code | 00 | | 3 | 00/20DB : F4 21 21 | PEA #strFRAME
|
||||
209 | 1 dlld2.s 172 | Macro | 00 | | 0 | 00/20DE | PushWord #5
|
||||
211 | 1 dlld2.s 172 | Code | 00 | | 3 | 00/20DE : F4 05 00 | PEA #5
|
||||
214 | 1 dlld2.s 173 | Macro | 00 | | 0 | 00/20E1 | PushWord #0
|
||||
216 | 1 dlld2.s 173 | Code | 00 | | 3 | 00/20E1 : F4 00 00 | PEA #0
|
||||
219 | 1 dlld2.s 174 | Macro | 00 | | 0 | 00/20E4 | _Int2Dec
|
||||
221 | 1 dlld2.s 174 | Code | 00 | | 3 | 00/20E4 : A2 0B 26 | LDX #$260B ; load tool call #
|
||||
222 | 1 dlld2.s 174 | Code | 00 | | 4 | 00/20E7 : 22 00 00 E1 | JSL $E10000 ; go to dispatcher
|
||||
223 | 1 dlld2.s 175 | Empty | 00 | | 0 | 00/20EB |
|
||||
224 | 1 dlld2.s 176 | Code | 00 | | 1 | 00/20EB : 38 | sec
|
||||
225 | 1 dlld2.s 177 | Code | 11 | | 1 | 00/20EC : FB | xce
|
||||
226 | 1 dlld2.s 178 | Code | 11 | | 2 | 00/20ED : E2 30 | sep #$30
|
||||
227 | 1 dlld2.s 179 | Code | 11 | | 1 | 00/20EF : 18 | clc
|
||||
228 | 1 dlld2.s 180 | Code | 11 | | 1 | 00/20F0 : 60 | rts
|
||||
229 | 1 dlld2.s 181 | Empty | 11 | | 0 | 00/20F1 |
|
||||
230 | 1 dlld2.s 182 | Comment | 11 | | 0 | 00/20F1 | *---
|
||||
231 | 1 dlld2.s 183 | Empty | 11 | | 0 | 00/20F1 |
|
||||
232 | 1 dlld2.s 184 | Code | 11 | | 2 | 00/20F1 : A9 00 | doSPACE lda #0
|
||||
233 | 1 dlld2.s 185 | Code | 11 | | 2 | 00/20F3 : 49 01 | eor #1
|
||||
234 | 1 dlld2.s 186 | Code | 11 | | 3 | 00/20F5 : 8D F2 20 | sta doSPACE+1
|
||||
235 | 1 dlld2.s 187 | Code | 11 | | 2 | 00/20F8 : D0 06 | bne doST
|
||||
236 | 1 dlld2.s 188 | Empty | 11 | | 0 | 00/20FA |
|
||||
237 | 1 dlld2.s 189 | Code | 11 | | 2 | 00/20FA : A2 21 | ldx #>strPL ; play the disc
|
||||
238 | 1 dlld2.s 190 | Code | 11 | | 2 | 00/20FC : A0 29 | ldy #<strPL
|
||||
239 | 1 dlld2.s 191 | Code | 11 | | 2 | 00/20FE : D0 04 | bne doSPACE2
|
||||
240 | 1 dlld2.s 192 | Empty | 11 | | 0 | 00/2100 |
|
||||
241 | 1 dlld2.s 193 | Code | 11 | | 2 | 00/2100 : A2 21 | doST ldx #>strST ; still me
|
||||
242 | 1 dlld2.s 194 | Code | 11 | | 2 | 00/2102 : A0 2C | ldy #<strST
|
||||
243 | 1 dlld2.s 195 | Empty | 11 | | 0 | 00/2104 |
|
||||
244 | 1 dlld2.s 196 | Code | 11 | | 3 | 00/2104 : 20 23 22 | doSPACE2 jsr sendLDCommand
|
||||
245 | 1 dlld2.s 197 | Code | 11 | | 1 | 00/2107 : 18 | clc
|
||||
246 | 1 dlld2.s 198 | Code | 11 | | 1 | 00/2108 : 60 | rts
|
||||
247 | 1 dlld2.s 199 | Empty | 11 | | 0 | 00/2109 |
|
||||
248 | 1 dlld2.s 200 | Comment | 11 | | 0 | 00/2109 | *---
|
||||
249 | 1 dlld2.s 201 | Empty | 11 | | 0 | 00/2109 |
|
||||
250 | 1 dlld2.s 202 | Code | 11 | | 2 | 00/2109 : A2 21 | showFRAME ldx #>strDS ; on veut la frame number
|
||||
251 | 1 dlld2.s 203 | Code | 11 | | 2 | 00/210B : A0 12 | ldy #<strDS
|
||||
252 | 1 dlld2.s 204 | Code | 11 | | 3 | 00/210D : 20 23 22 | jsr sendLDCommand
|
||||
253 | 1 dlld2.s 205 | Code | 11 | | 1 | 00/2110 : 18 | clc
|
||||
254 | 1 dlld2.s 206 | Code | 11 | | 1 | 00/2111 : 60 | rts
|
||||
255 | 1 dlld2.s 207 | Empty | 11 | | 0 | 00/2112 |
|
||||
256 | 1 dlld2.s 208 | Comment | 11 | | 0 | 00/2112 | *--- Data
|
||||
257 | 1 dlld2.s 209 | Empty | 11 | | 0 | 00/2112 |
|
||||
258 | 1 dlld2.s 210 | Data | 11 | | 4 | 00/2112 : 31 44 53 00 | strDS asc '1DS'00 ; display frame number
|
||||
259 | 1 dlld2.s 211 | Data | 11 | | 3 | 00/2116 : 43 4F 00 | strCO asc 'CO'00 ; close the door
|
||||
260 | 1 dlld2.s 212 | Data | 11 | | 3 | 00/2119 : 53 41 00 | strSA asc 'SA'00 ; start player
|
||||
261 | 1 dlld2.s 213 | Data | 11 | | 3 | 00/211C : 52 4A 00 | strRJ asc 'RJ'00 ; stop the player
|
||||
262 | 1 dlld2.s 214 | Empty | 11 | | 0 | 00/211F |
|
||||
263 | 1 dlld2.s 215 | Data | 11 | | 2 | 00/211F : 46 52 | strFR asc 'FR' ; set frame...
|
||||
264 | 1 dlld2.s 216 | Data | 11 | | 5 | 00/2121 : 30 30 30 30 | strFRAME asc '00001'
|
||||
| | | | | | 31 |
|
||||
265 | 1 dlld2.s 217 | Data | 11 | | 3 | 00/2126 : 53 45 00 | asc 'SE'00 ; ...and search
|
||||
266 | 1 dlld2.s 218 | Data | 11 | | 3 | 00/2129 : 50 4C 00 | strPL asc 'PL'00 ; play laserdisc
|
||||
267 | 1 dlld2.s 219 | Data | 11 | | 3 | 00/212C : 53 54 00 | strST asc 'ST'00 ; still
|
||||
268 | 1 dlld2.s 220 | Empty | 11 | | 0 | 00/212F |
|
||||
269 | 1 dlld2.s 221 | Comment | 11 | | 0 | 00/212F | *---
|
||||
270 | 1 dlld2.s 222 | Empty | 11 | | 0 | 00/212F |
|
||||
271 | 1 dlld2.s 223 | Data | 11 | | 2 | 00/212F : 00 00 | theINDEX dw 0 ; variation en nombre de frames
|
||||
272 | 1 dlld2.s 224 | Data | 11 | | 2 | 00/2131 : 01 00 | theFRAME dw 1 ; the frame number (1.65535)
|
||||
273 | 1 dlld2.s 225 | Empty | 11 | | 0 | 00/2133 |
|
||||
274 | 1 dlld2.s 226 | Data | 11 | | 2 | 00/2133 : D8 A0 | tblKEY asc "X "
|
||||
275 | 1 dlld2.s 227 | Data | 11 | | 11 | 00/2135 : D1 D7 C5 D2 | asc "QWERTYUIOPF"
|
||||
| | | | | | D4 D9 D5 C9 |
|
||||
| | | | | | CF D0 C6 |
|
||||
276 | 1 dlld2.s 228 | Empty | 11 | | 0 | 00/2140 |
|
||||
277 | 1 dlld2.s 229 | Data | 11 | | 2 | 00/2140 : 51 20 | tblADR da doQ ; 0
|
||||
278 | 1 dlld2.s 230 | Data | 11 | | 2 | 00/2142 : F1 20 | da doSPACE ; 1
|
||||
279 | 1 dlld2.s 231 | Data | 11 | | 2 | 00/2144 : 53 20 | da doA ; 2
|
||||
280 | 1 dlld2.s 232 | Data | 11 | | 2 | 00/2146 : 57 20 | da doZ ; 3
|
||||
281 | 1 dlld2.s 233 | Data | 11 | | 2 | 00/2148 : 5B 20 | da doE ; 4
|
||||
282 | 1 dlld2.s 234 | Data | 11 | | 2 | 00/214A : 5F 20 | da doR ; 5
|
||||
283 | 1 dlld2.s 235 | Data | 11 | | 2 | 00/214C : 63 20 | da doT ; 6
|
||||
284 | 1 dlld2.s 236 | Data | 11 | | 2 | 00/214E : A3 20 | da doY ; 7
|
||||
285 | 1 dlld2.s 237 | Data | 11 | | 2 | 00/2150 : A7 20 | da doU ; 8
|
||||
286 | 1 dlld2.s 238 | Data | 11 | | 2 | 00/2152 : AB 20 | da doI ; 9
|
||||
287 | 1 dlld2.s 239 | Data | 11 | | 2 | 00/2154 : AF 20 | da doO ; 10
|
||||
288 | 1 dlld2.s 240 | Data | 11 | | 2 | 00/2156 : B3 20 | da doP ; 11
|
||||
289 | 1 dlld2.s 241 | Data | 11 | | 2 | 00/2158 : 09 21 | da showFRAME ; 12
|
||||
290 | 1 dlld2.s 242 | Empty | 11 | | 0 | 00/215A |
|
||||
291 | 1 dlld2.s 243 | Comment | 11 | | 0 | 00/215A | *-----------------------------------
|
||||
292 | 1 dlld2.s 244 | Comment | 11 | | 0 | 00/215A | * SERIAL PORT (MODEM)
|
||||
293 | 1 dlld2.s 245 | Comment | 11 | | 0 | 00/215A | *-----------------------------------
|
||||
294 | 1 dlld2.s 246 | Empty | 11 | | 0 | 00/215A |
|
||||
295 | 1 dlld2.s 247 | Comment | 11 | | 0 | 00/215A | *---------- Set all addressses
|
||||
296 | 1 dlld2.s 248 | Empty | 11 | | 0 | 00/215A |
|
||||
297 | 1 dlld2.s 249 | Empty | 11 | | 0 | 00/215A | initSERIAL
|
||||
298 | 1 dlld2.s 250 | Code | 11 | | 3 | 00/215A : AD 0D C2 | lda $c20d
|
||||
299 | 1 dlld2.s 251 | Code | 11 | | 3 | 00/215D : 8D 74 21 | sta doinit+1
|
||||
300 | 1 dlld2.s 252 | Code | 11 | | 3 | 00/2160 : AD 0E C2 | lda $c20e
|
||||
301 | 1 dlld2.s 253 | Code | 11 | | 3 | 00/2163 : 8D 77 21 | sta doread+1
|
||||
302 | 1 dlld2.s 254 | Code | 11 | | 3 | 00/2166 : AD 0F C2 | lda $c20f
|
||||
303 | 1 dlld2.s 255 | Code | 11 | | 3 | 00/2169 : 8D 7A 21 | sta dowrite+1
|
||||
304 | 1 dlld2.s 256 | Code | 11 | | 3 | 00/216C : AD 10 C2 | lda $c210
|
||||
305 | 1 dlld2.s 257 | Code | 11 | | 3 | 00/216F : 8D 7D 21 | sta dostatus+1
|
||||
306 | 1 dlld2.s 258 | Code | 11 | | 1 | 00/2172 : 60 | rts
|
||||
307 | 1 dlld2.s 259 | Empty | 11 | | 0 | 00/2173 |
|
||||
308 | 1 dlld2.s 260 | Code | 11 | | 3 | 00/2173 : 4C 0D C2 | doinit jmp $c20d
|
||||
309 | 1 dlld2.s 261 | Code | 11 | | 3 | 00/2176 : 4C 0E C2 | doread jmp $c20e
|
||||
310 | 1 dlld2.s 262 | Code | 11 | | 3 | 00/2179 : 4C 0F C2 | dowrite jmp $c20f
|
||||
311 | 1 dlld2.s 263 | Code | 11 | | 3 | 00/217C : 4C 10 C2 | dostatus jmp $c210
|
||||
312 | 1 dlld2.s 264 | Empty | 11 | | 0 | 00/217F |
|
||||
313 | 1 dlld2.s 265 | Comment | 11 | | 0 | 00/217F | *---------- Init modem port for LD support
|
||||
314 | 1 dlld2.s 266 | Empty | 11 | | 0 | 00/217F |
|
||||
315 | 1 dlld2.s 267 | Code | 11 | | 2 | 00/217F : A2 C2 | initPORT ldx #{{2}!$C0}
|
||||
316 | 1 dlld2.s 268 | Code | 11 | | 2 | 00/2181 : A0 20 | ldy #{{2}*16}
|
||||
317 | 1 dlld2.s 269 | Code | 11 | | 3 | 00/2183 : 20 73 21 | jsr doinit
|
||||
318 | 1 dlld2.s 270 | Empty | 11 | | 0 | 00/2186 |
|
||||
319 | 1 dlld2.s 271 | Macro | 11 | | 0 | 00/2186 | _sendSTRING #strED ; Don't echo output
|
||||
320 | 1 dlld2.s 271 | Code | 11 | | 2 | 00/2186 : A2 22 | ldx #>#strED
|
||||
321 | 1 dlld2.s 271 | Code | 11 | | 2 | 00/2188 : A0 84 | ldy #<#strED
|
||||
322 | 1 dlld2.s 271 | Code | 11 | | 3 | 00/218A : 20 2C 22 | jsr sendString
|
||||
323 | 1 dlld2.s 272 | Macro | 11 | | 0 | 00/218D | _sendSTRING #strBE ; Input buffering: on
|
||||
324 | 1 dlld2.s 272 | Code | 11 | | 2 | 00/218D : A2 22 | ldx #>#strBE
|
||||
325 | 1 dlld2.s 272 | Code | 11 | | 2 | 00/218F : A0 88 | ldy #<#strBE
|
||||
326 | 1 dlld2.s 272 | Code | 11 | | 3 | 00/2191 : 20 2C 22 | jsr sendString
|
||||
327 | 1 dlld2.s 273 | Macro | 11 | | 0 | 00/2194 | _sendSTRING #str12B ; Baud rate: 4800 BPS
|
||||
328 | 1 dlld2.s 273 | Code | 11 | | 2 | 00/2194 : A2 22 | ldx #>#str12B
|
||||
329 | 1 dlld2.s 273 | Code | 11 | | 2 | 00/2196 : A0 8C | ldy #<#str12B
|
||||
330 | 1 dlld2.s 273 | Code | 11 | | 3 | 00/2198 : 20 2C 22 | jsr sendString
|
||||
331 | 1 dlld2.s 274 | Macro | 11 | | 0 | 00/219B | _sendSTRING #str0D ; Data/Stop bits: 8/1
|
||||
332 | 1 dlld2.s 274 | Code | 11 | | 2 | 00/219B : A2 22 | ldx #>#str0D
|
||||
333 | 1 dlld2.s 274 | Code | 11 | | 2 | 00/219D : A0 91 | ldy #<#str0D
|
||||
334 | 1 dlld2.s 274 | Code | 11 | | 3 | 00/219F : 20 2C 22 | jsr sendString
|
||||
335 | 1 dlld2.s 275 | Macro | 11 | | 0 | 00/21A2 | _sendSTRING #str0P ; Parity: none
|
||||
336 | 1 dlld2.s 275 | Code | 11 | | 2 | 00/21A2 : A2 22 | ldx #>#str0P
|
||||
337 | 1 dlld2.s 275 | Code | 11 | | 2 | 00/21A4 : A0 95 | ldy #<#str0P
|
||||
338 | 1 dlld2.s 275 | Code | 11 | | 3 | 00/21A6 : 20 2C 22 | jsr sendString
|
||||
339 | 1 dlld2.s 276 | Macro | 11 | | 0 | 00/21A9 | _sendSTRING #str0N ; Line length: 0
|
||||
340 | 1 dlld2.s 276 | Code | 11 | | 2 | 00/21A9 : A2 22 | ldx #>#str0N
|
||||
341 | 1 dlld2.s 276 | Code | 11 | | 2 | 00/21AB : A0 99 | ldy #<#str0N
|
||||
342 | 1 dlld2.s 276 | Code | 11 | | 3 | 00/21AD : 20 2C 22 | jsr sendString
|
||||
343 | 1 dlld2.s 277 | Macro | 11 | | 0 | 00/21B0 | _sendSTRING #strAD ; Do not implement basic tabs
|
||||
344 | 1 dlld2.s 277 | Code | 11 | | 2 | 00/21B0 : A2 22 | ldx #>#strAD
|
||||
345 | 1 dlld2.s 277 | Code | 11 | | 2 | 00/21B2 : A0 9D | ldy #<#strAD
|
||||
346 | 1 dlld2.s 277 | Code | 11 | | 3 | 00/21B4 : 20 2C 22 | jsr sendString
|
||||
347 | 1 dlld2.s 278 | Macro | 11 | | 0 | 00/21B7 | _sendSTRING #strCD ; Disable line formatting
|
||||
348 | 1 dlld2.s 278 | Code | 11 | | 2 | 00/21B7 : A2 22 | ldx #>#strCD
|
||||
349 | 1 dlld2.s 278 | Code | 11 | | 2 | 00/21B9 : A0 A1 | ldy #<#strCD
|
||||
350 | 1 dlld2.s 278 | Code | 11 | | 3 | 00/21BB : 20 2C 22 | jsr sendString
|
||||
351 | 1 dlld2.s 279 | Macro | 11 | | 0 | 00/21BE | _sendSTRING #strXD ; Ignore XOFF
|
||||
352 | 1 dlld2.s 279 | Code | 11 | | 2 | 00/21BE : A2 22 | ldx #>#strXD
|
||||
353 | 1 dlld2.s 279 | Code | 11 | | 2 | 00/21C0 : A0 A5 | ldy #<#strXD
|
||||
354 | 1 dlld2.s 279 | Code | 11 | | 3 | 00/21C2 : 20 2C 22 | jsr sendString
|
||||
355 | 1 dlld2.s 280 | Macro | 11 | | 0 | 00/21C5 | _sendSTRING #strFD ; Disable keyboard input
|
||||
356 | 1 dlld2.s 280 | Code | 11 | | 2 | 00/21C5 : A2 22 | ldx #>#strFD
|
||||
357 | 1 dlld2.s 280 | Code | 11 | | 2 | 00/21C7 : A0 A9 | ldy #<#strFD
|
||||
358 | 1 dlld2.s 280 | Code | 11 | | 3 | 00/21C9 : 20 2C 22 | jsr sendString
|
||||
359 | 1 dlld2.s 281 | Macro | 11 | | 0 | 00/21CC | _sendSTRING #strLD ; Do not add line feeds after CR
|
||||
360 | 1 dlld2.s 281 | Code | 11 | | 2 | 00/21CC : A2 22 | ldx #>#strLD
|
||||
361 | 1 dlld2.s 281 | Code | 11 | | 2 | 00/21CE : A0 AD | ldy #<#strLD
|
||||
362 | 1 dlld2.s 281 | Code | 11 | | 3 | 00/21D0 : 20 2C 22 | jsr sendString
|
||||
363 | 1 dlld2.s 282 | Macro | 11 | | 0 | 00/21D3 | _sendSTRING #strME ; Mask line feed in
|
||||
364 | 1 dlld2.s 282 | Code | 11 | | 2 | 00/21D3 : A2 22 | ldx #>#strME
|
||||
365 | 1 dlld2.s 282 | Code | 11 | | 2 | 00/21D5 : A0 B1 | ldy #<#strME
|
||||
366 | 1 dlld2.s 282 | Code | 11 | | 3 | 00/21D7 : 20 2C 22 | jsr sendString
|
||||
367 | 1 dlld2.s 283 | Macro | 11 | | 0 | 00/21DA | _sendSTRING #strZ ; Suppress control characters
|
||||
368 | 1 dlld2.s 283 | Code | 11 | | 2 | 00/21DA : A2 22 | ldx #>#strZ
|
||||
369 | 1 dlld2.s 283 | Code | 11 | | 2 | 00/21DC : A0 B5 | ldy #<#strZ
|
||||
370 | 1 dlld2.s 283 | Code | 11 | | 3 | 00/21DE : 20 2C 22 | jsr sendString
|
||||
371 | 1 dlld2.s 284 | Code | 11 | | 3 | 00/21E1 : 20 E5 21 | jsr checkInputReady
|
||||
372 | 1 dlld2.s 285 | Code | 11 | | 1 | 00/21E4 : 60 | rts
|
||||
373 | 1 dlld2.s 286 | Empty | 11 | | 0 | 00/21E5 |
|
||||
374 | 1 dlld2.s 287 | Comment | 11 | | 0 | 00/21E5 | *---------- Check the input is ready
|
||||
375 | 1 dlld2.s 288 | Empty | 11 | | 0 | 00/21E5 |
|
||||
376 | 1 dlld2.s 289 | Empty | 11 | | 0 | 00/21E5 | checkInputReady
|
||||
377 | 1 dlld2.s 290 | Code | 11 | | 2 | 00/21E5 : A2 08 | ldx #8
|
||||
378 | 1 dlld2.s 291 | Code | 11 | | 2 | 00/21E7 : A0 00 | ldy #0
|
||||
379 | 1 dlld2.s 292 | Empty | 11 | | 0 | 00/21E9 |
|
||||
380 | 1 dlld2.s 293 | Code | 11 | | 1 | 00/21E9 : DA | ozunid_3 phx
|
||||
381 | 1 dlld2.s 294 | Code | 11 | | 1 | 00/21EA : 5A | phy
|
||||
382 | 1 dlld2.s 295 | Empty | 11 | | 0 | 00/21EB |
|
||||
383 | 1 dlld2.s 296 | Comment | 11 | | 0 | 00/21EB | * lda #"I"
|
||||
384 | 1 dlld2.s 297 | Comment | 11 | | 0 | 00/21EB | * sta $427
|
||||
385 | 1 dlld2.s 298 | Empty | 11 | | 0 | 00/21EB |
|
||||
386 | 1 dlld2.s 299 | Code | 11 | | 2 | 00/21EB : A2 C2 | ldx #{{2}!$C0}
|
||||
387 | 1 dlld2.s 300 | Code | 11 | | 2 | 00/21ED : A0 20 | ldy #{{2}*16}
|
||||
388 | 1 dlld2.s 301 | Code | 11 | | 2 | 00/21EF : A9 01 | lda #1
|
||||
389 | 1 dlld2.s 302 | Code | 11 | | 3 | 00/21F1 : 20 7C 21 | jsr dostatus
|
||||
390 | 1 dlld2.s 303 | Code | 11 | | 2 | 00/21F4 : B0 0A | bcs checkIR1
|
||||
391 | 1 dlld2.s 304 | Empty | 11 | | 0 | 00/21F6 |
|
||||
392 | 1 dlld2.s 305 | Code | 11 | | 1 | 00/21F6 : 7A | ply
|
||||
393 | 1 dlld2.s 306 | Code | 11 | | 1 | 00/21F7 : FA | plx
|
||||
394 | 1 dlld2.s 307 | Code | 11 | | 1 | 00/21F8 : 88 | dey
|
||||
395 | 1 dlld2.s 308 | Code | 11 | | 2 | 00/21F9 : D0 EE | bne ozunid_3
|
||||
396 | 1 dlld2.s 309 | Code | 11 | | 1 | 00/21FB : CA | dex
|
||||
397 | 1 dlld2.s 310 | Code | 11 | | 2 | 00/21FC : D0 EB | bne ozunid_3
|
||||
398 | 1 dlld2.s 311 | Empty | 11 | | 0 | 00/21FE |
|
||||
399 | 1 dlld2.s 312 | Code | 11 | | 1 | 00/21FE : 38 | sec
|
||||
400 | 1 dlld2.s 313 | Code | 11 | | 1 | 00/21FF : 60 | rts
|
||||
401 | 1 dlld2.s 314 | Code | 11 | | 1 | 00/2200 : 7A | checkIR1 ply
|
||||
402 | 1 dlld2.s 315 | Code | 11 | | 1 | 00/2201 : FA | plx
|
||||
403 | 1 dlld2.s 316 | Code | 11 | | 1 | 00/2202 : 18 | clc
|
||||
404 | 1 dlld2.s 317 | Code | 11 | | 1 | 00/2203 : 60 | rts
|
||||
405 | 1 dlld2.s 318 | Empty | 11 | | 0 | 00/2204 |
|
||||
406 | 1 dlld2.s 319 | Comment | 11 | | 0 | 00/2204 | *---------- Check the output is ready
|
||||
407 | 1 dlld2.s 320 | Empty | 11 | | 0 | 00/2204 |
|
||||
408 | 1 dlld2.s 321 | Empty | 11 | | 0 | 00/2204 | checkOutputReady
|
||||
409 | 1 dlld2.s 322 | Code | 11 | | 2 | 00/2204 : A2 08 | ldx #8
|
||||
410 | 1 dlld2.s 323 | Code | 11 | | 2 | 00/2206 : A0 00 | ldy #0
|
||||
411 | 1 dlld2.s 324 | Empty | 11 | | 0 | 00/2208 |
|
||||
412 | 1 dlld2.s 325 | Code | 11 | | 1 | 00/2208 : DA | ozunid_4 phx
|
||||
413 | 1 dlld2.s 326 | Code | 11 | | 1 | 00/2209 : 5A | phy
|
||||
414 | 1 dlld2.s 327 | Empty | 11 | | 0 | 00/220A |
|
||||
415 | 1 dlld2.s 328 | Comment | 11 | | 0 | 00/220A | * lda #"O"
|
||||
416 | 1 dlld2.s 329 | Comment | 11 | | 0 | 00/220A | * sta $427
|
||||
417 | 1 dlld2.s 330 | Empty | 11 | | 0 | 00/220A |
|
||||
418 | 1 dlld2.s 331 | Code | 11 | | 2 | 00/220A : A2 C2 | ldx #{{2}!$C0}
|
||||
419 | 1 dlld2.s 332 | Code | 11 | | 2 | 00/220C : A0 20 | ldy #{{2}*16}
|
||||
420 | 1 dlld2.s 333 | Code | 11 | | 2 | 00/220E : A9 00 | lda #0
|
||||
421 | 1 dlld2.s 334 | Code | 11 | | 3 | 00/2210 : 20 7C 21 | jsr dostatus
|
||||
422 | 1 dlld2.s 335 | Code | 11 | | 2 | 00/2213 : B0 0A | bcs checkOR1
|
||||
423 | 1 dlld2.s 336 | Empty | 11 | | 0 | 00/2215 |
|
||||
424 | 1 dlld2.s 337 | Code | 11 | | 1 | 00/2215 : 7A | ply
|
||||
425 | 1 dlld2.s 338 | Code | 11 | | 1 | 00/2216 : FA | plx
|
||||
426 | 1 dlld2.s 339 | Code | 11 | | 1 | 00/2217 : 88 | dey
|
||||
427 | 1 dlld2.s 340 | Code | 11 | | 2 | 00/2218 : D0 EE | bne ozunid_4
|
||||
428 | 1 dlld2.s 341 | Code | 11 | | 1 | 00/221A : CA | dex
|
||||
429 | 1 dlld2.s 342 | Code | 11 | | 2 | 00/221B : D0 EB | bne ozunid_4
|
||||
430 | 1 dlld2.s 343 | Empty | 11 | | 0 | 00/221D |
|
||||
431 | 1 dlld2.s 344 | Code | 11 | | 1 | 00/221D : 38 | sec
|
||||
432 | 1 dlld2.s 345 | Code | 11 | | 1 | 00/221E : 60 | rts
|
||||
433 | 1 dlld2.s 346 | Code | 11 | | 1 | 00/221F : 7A | checkOR1 ply
|
||||
434 | 1 dlld2.s 347 | Code | 11 | | 1 | 00/2220 : FA | plx
|
||||
435 | 1 dlld2.s 348 | Code | 11 | | 1 | 00/2221 : 18 | clc
|
||||
436 | 1 dlld2.s 349 | Code | 11 | | 1 | 00/2222 : 60 | rts
|
||||
437 | 1 dlld2.s 350 | Empty | 11 | | 0 | 00/2223 |
|
||||
438 | 1 dlld2.s 351 | Comment | 11 | | 0 | 00/2223 | *---------- Send a LD command
|
||||
439 | 1 dlld2.s 352 | Empty | 11 | | 0 | 00/2223 |
|
||||
440 | 1 dlld2.s 353 | Empty | 11 | | 0 | 00/2223 | sendLDCommand
|
||||
441 | 1 dlld2.s 354 | Code | 11 | | 3 | 00/2223 : 20 2C 22 | jsr sendString
|
||||
442 | 1 dlld2.s 355 | Code | 11 | | 2 | 00/2226 : B0 03 | bcs sendLDError
|
||||
443 | 1 dlld2.s 356 | Code | 11 | | 3 | 00/2228 : 20 5A 22 | jsr receiveString
|
||||
444 | 1 dlld2.s 357 | Code | 11 | | 1 | 00/222B : 60 | sendLDError rts
|
||||
445 | 1 dlld2.s 358 | Empty | 11 | | 0 | 00/222C |
|
||||
446 | 1 dlld2.s 359 | Comment | 11 | | 0 | 00/222C | *---------- Send a string
|
||||
447 | 1 dlld2.s 360 | Empty | 11 | | 0 | 00/222C |
|
||||
448 | 1 dlld2.s 361 | Empty | 11 | | 0 | 00/222C | sendString
|
||||
449 | 1 dlld2.s 362 | Comment | 11 | | 0 | 00/222C | * lda #"S"
|
||||
450 | 1 dlld2.s 363 | Comment | 11 | | 0 | 00/222C | * sta $426
|
||||
451 | 1 dlld2.s 364 | Empty | 11 | | 0 | 00/222C |
|
||||
452 | 1 dlld2.s 365 | Code | 11 | | 2 | 00/222C : 84 FC | sty {$fc}
|
||||
453 | 1 dlld2.s 366 | Code | 11 | | 2 | 00/222E : 86 FD | stx {$fc}+1
|
||||
454 | 1 dlld2.s 367 | Empty | 11 | | 0 | 00/2230 |
|
||||
455 | 1 dlld2.s 368 | Code | 11 | | 2 | 00/2230 : B2 FC | ozunid_5 lda ({$fc})
|
||||
456 | 1 dlld2.s 369 | Code | 11 | | 2 | 00/2232 : F0 0D | beq sendCRS1 ; end of string?
|
||||
457 | 1 dlld2.s 370 | Code | 11 | | 3 | 00/2234 : 20 47 22 | jsr sendCharacter
|
||||
458 | 1 dlld2.s 371 | Code | 11 | | 2 | 00/2237 : B0 0D | bcs sendError ; error!
|
||||
459 | 1 dlld2.s 372 | Empty | 11 | | 0 | 00/2239 |
|
||||
460 | 1 dlld2.s 373 | Code | 11 | | 2 | 00/2239 : E6 FC | inc {$fc}
|
||||
461 | 1 dlld2.s 374 | Code | 11 | | 2 | 00/223B : D0 F3 | bne ozunid_5
|
||||
462 | 1 dlld2.s 375 | Code | 11 | | 2 | 00/223D : E6 FD | inc {$fc}+1
|
||||
463 | 1 dlld2.s 376 | Code | 11 | | 2 | 00/223F : D0 EF | bne ozunid_5
|
||||
464 | 1 dlld2.s 377 | Empty | 11 | | 0 | 00/2241 |
|
||||
465 | 1 dlld2.s 378 | Code | 11 | | 2 | 00/2241 : A9 0D | sendCRS1 lda #{$0d} ; yes, add a final CR
|
||||
466 | 1 dlld2.s 379 | Code | 11 | | 3 | 00/2243 : 20 47 22 | jsr sendCharacter
|
||||
467 | 1 dlld2.s 380 | Empty | 11 | | 0 | 00/2246 |
|
||||
468 | 1 dlld2.s 381 | Code | 11 | | 1 | 00/2246 : 60 | sendError rts
|
||||
469 | 1 dlld2.s 382 | Empty | 11 | | 0 | 00/2247 |
|
||||
470 | 1 dlld2.s 383 | Comment | 11 | | 0 | 00/2247 | *---------- Send serial character
|
||||
471 | 1 dlld2.s 384 | Empty | 11 | | 0 | 00/2247 |
|
||||
472 | 1 dlld2.s 385 | Empty | 11 | | 0 | 00/2247 | sendCharacter
|
||||
473 | 1 dlld2.s 386 | Code | 11 | | 1 | 00/2247 : 48 | pha
|
||||
474 | 1 dlld2.s 387 | Empty | 11 | | 0 | 00/2248 |
|
||||
475 | 1 dlld2.s 388 | Code | 11 | | 3 | 00/2248 : 20 04 22 | ozunid_6 jsr checkOutputReady
|
||||
476 | 1 dlld2.s 389 | Code | 11 | | 2 | 00/224B : 90 03 | bcc sensSC1
|
||||
477 | 1 dlld2.s 390 | Code | 11 | | 1 | 00/224D : 68 | pla
|
||||
478 | 1 dlld2.s 391 | Code | 11 | | 1 | 00/224E : 38 | sec
|
||||
479 | 1 dlld2.s 392 | Code | 11 | | 1 | 00/224F : 60 | rts
|
||||
480 | 1 dlld2.s 393 | Empty | 11 | | 0 | 00/2250 |
|
||||
481 | 1 dlld2.s 394 | Code | 11 | | 1 | 00/2250 : 68 | sensSC1 pla
|
||||
482 | 1 dlld2.s 395 | Code | 11 | | 2 | 00/2251 : A2 C2 | ldx #{{2}!$C0}
|
||||
483 | 1 dlld2.s 396 | Code | 11 | | 2 | 00/2253 : A0 20 | ldy #{{2}*16}
|
||||
484 | 1 dlld2.s 397 | Code | 11 | | 3 | 00/2255 : 20 79 21 | jsr dowrite
|
||||
485 | 1 dlld2.s 398 | Code | 11 | | 1 | 00/2258 : 18 | clc
|
||||
486 | 1 dlld2.s 399 | Code | 11 | | 1 | 00/2259 : 60 | rts
|
||||
487 | 1 dlld2.s 400 | Empty | 11 | | 0 | 00/225A |
|
||||
488 | 1 dlld2.s 401 | Comment | 11 | | 0 | 00/225A | *---------- Receive string
|
||||
489 | 1 dlld2.s 402 | Empty | 11 | | 0 | 00/225A |
|
||||
490 | 1 dlld2.s 403 | Empty | 11 | | 0 | 00/225A | receiveString
|
||||
491 | 1 dlld2.s 404 | Comment | 11 | | 0 | 00/225A | * lda #"R"
|
||||
492 | 1 dlld2.s 405 | Comment | 11 | | 0 | 00/225A | * sta $426
|
||||
493 | 1 dlld2.s 406 | Empty | 11 | | 0 | 00/225A |
|
||||
494 | 1 dlld2.s 407 | Code | 11 | | 2 | 00/225A : A2 23 | ldx #>responseBUF
|
||||
495 | 1 dlld2.s 408 | Code | 11 | | 2 | 00/225C : A0 00 | ldy #<responseBUF
|
||||
496 | 1 dlld2.s 409 | Code | 11 | | 2 | 00/225E : 84 FE | sty {{$fc}+2}
|
||||
497 | 1 dlld2.s 410 | Code | 11 | | 2 | 00/2260 : 86 FF | stx {{$fc}+2}+1
|
||||
498 | 1 dlld2.s 411 | Empty | 11 | | 0 | 00/2262 |
|
||||
499 | 1 dlld2.s 412 | Code | 11 | | 2 | 00/2262 : A0 00 | ldy #0
|
||||
500 | 1 dlld2.s 413 | Code | 11 | | 1 | 00/2264 : 5A | receiveSTR1 phy
|
||||
501 | 1 dlld2.s 414 | Code | 11 | | 3 | 00/2265 : 20 E5 21 | ozunid_7 jsr checkInputReady
|
||||
502 | 1 dlld2.s 415 | Code | 11 | | 2 | 00/2268 : B0 17 | bcs receiveSTR9
|
||||
503 | 1 dlld2.s 416 | Empty | 11 | | 0 | 00/226A |
|
||||
504 | 1 dlld2.s 417 | Code | 11 | | 2 | 00/226A : A2 C2 | ldx #{{2}!$C0}
|
||||
505 | 1 dlld2.s 418 | Code | 11 | | 2 | 00/226C : A0 20 | ldy #{{2}*16}
|
||||
506 | 1 dlld2.s 419 | Code | 11 | | 3 | 00/226E : 20 76 21 | jsr doread
|
||||
507 | 1 dlld2.s 420 | Code | 11 | | 2 | 00/2271 : E0 00 | cpx #0
|
||||
508 | 1 dlld2.s 421 | Code | 11 | | 2 | 00/2273 : D0 0C | bne receiveSTR9
|
||||
509 | 1 dlld2.s 422 | Empty | 11 | | 0 | 00/2275 |
|
||||
510 | 1 dlld2.s 423 | Code | 11 | | 1 | 00/2275 : 7A | ply
|
||||
511 | 1 dlld2.s 424 | Code | 11 | | 2 | 00/2276 : 91 FE | sta ({{$fc}+2}),y
|
||||
512 | 1 dlld2.s 425 | Code | 11 | | 2 | 00/2278 : C9 0D | cmp #{$0d}
|
||||
513 | 1 dlld2.s 426 | Code | 11 | | 2 | 00/227A : F0 03 | beq receiveSTR8
|
||||
514 | 1 dlld2.s 427 | Code | 11 | | 1 | 00/227C : C8 | iny
|
||||
515 | 1 dlld2.s 428 | Code | 11 | | 2 | 00/227D : D0 E5 | bne receiveSTR1
|
||||
516 | 1 dlld2.s 429 | Code | 11 | | 1 | 00/227F : 18 | receiveSTR8 clc
|
||||
517 | 1 dlld2.s 430 | Code | 11 | | 1 | 00/2280 : 60 | rts
|
||||
518 | 1 dlld2.s 431 | Code | 11 | | 1 | 00/2281 : 7A | receiveSTR9 ply
|
||||
519 | 1 dlld2.s 432 | Code | 11 | | 1 | 00/2282 : 38 | sec
|
||||
520 | 1 dlld2.s 433 | Code | 11 | | 1 | 00/2283 : 60 | rts
|
||||
521 | 1 dlld2.s 434 | Empty | 11 | | 0 | 00/2284 |
|
||||
522 | 1 dlld2.s 435 | Comment | 11 | | 0 | 00/2284 | *-----------------------------------
|
||||
523 | 1 dlld2.s 436 | Comment | 11 | | 0 | 00/2284 | * DATA
|
||||
524 | 1 dlld2.s 437 | Comment | 11 | | 0 | 00/2284 | *-----------------------------------
|
||||
525 | 1 dlld2.s 438 | Empty | 11 | | 0 | 00/2284 |
|
||||
526 | 1 dlld2.s 439 | Comment | 11 | | 0 | 00/2284 | *---------- Serial data
|
||||
527 | 1 dlld2.s 440 | Empty | 11 | | 0 | 00/2284 |
|
||||
528 | 1 dlld2.s 441 | Data | 11 | | 4 | 00/2284 : 01 45 44 00 | strED asc 01'ED'00 ; *Don't echo output
|
||||
529 | 1 dlld2.s 442 | Data | 11 | | 4 | 00/2288 : 01 42 45 00 | strBE asc 01'BE'00 ; *Input buffering: on
|
||||
530 | 1 dlld2.s 443 | Data | 11 | | 5 | 00/228C : 01 31 32 42 | str12B asc 01'12B'00 ; *Baud rate: 4800 BPS
|
||||
| | | | | | 00 |
|
||||
531 | 1 dlld2.s 444 | Data | 11 | | 4 | 00/2291 : 01 30 44 00 | str0D asc 01'0D'00 ; *Data/Stop bits: 8/1
|
||||
532 | 1 dlld2.s 445 | Data | 11 | | 4 | 00/2295 : 01 30 50 00 | str0P asc 01'0P'00 ; *Parity: none
|
||||
533 | 1 dlld2.s 446 | Data | 11 | | 4 | 00/2299 : 01 30 4E 00 | str0N asc 01'0N'00 ; Line length: 0
|
||||
534 | 1 dlld2.s 447 | Data | 11 | | 4 | 00/229D : 01 41 44 00 | strAD asc 01'AD'00 ; *Do not implement basic tabs
|
||||
535 | 1 dlld2.s 448 | Data | 11 | | 4 | 00/22A1 : 01 43 44 00 | strCD asc 01'CD'00 ; *Disable line formatting
|
||||
536 | 1 dlld2.s 449 | Data | 11 | | 4 | 00/22A5 : 01 58 44 00 | strXD asc 01'XD'00 ; *Ignore XOFF
|
||||
537 | 1 dlld2.s 450 | Data | 11 | | 4 | 00/22A9 : 01 46 44 00 | strFD asc 01'FD'00 ; *Disable keyboard input
|
||||
538 | 1 dlld2.s 451 | Data | 11 | | 4 | 00/22AD : 01 4C 44 00 | strLD asc 01'LD'00 ; Do not add line feeds after CR
|
||||
539 | 1 dlld2.s 452 | Data | 11 | | 4 | 00/22B1 : 01 4D 45 00 | strME asc 01'ME'00 ; Mask line feed in
|
||||
540 | 1 dlld2.s 453 | Data | 11 | | 3 | 00/22B5 : 01 5A 00 | strZ asc 01'Z'00 ; *Suppress control characters
|
||||
541 | 1 dlld2.s 454 | Empty | 11 | | 0 | 00/22B8 |
|
||||
542 | 1 dlld2.s 455 | Comment | 11 | | 0 | 00/22B8 | *---------- Laserdisc
|
||||
543 | 1 dlld2.s 456 | Empty | 11 | | 0 | 00/22B8 |
|
||||
544 | 1 dlld2.s 457 | Data | 11 | | 72 | 00/22B8 : 00 00 00 00 | ds \
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
545 | 1 dlld2.s 458 | Empty | 11 | | 0 | 00/2300 |
|
||||
546 | 1 dlld2.s 459 | Data | 11 | | 256 | 00/2300 : 00 00 00 00 | responseBUF ds 256 ; LD player response
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
547 | 1 dlld2.s 460 | Empty | 11 | | 0 | 00/2400 |
|
||||
548 | 1 dlld2.s 461 | Comment | 11 | | 0 | 00/2400 | *-----------------------------------
|
||||
549 | 1 dlld2.s 462 | Comment | 11 | | 0 | 00/2400 | * END OF CODE
|
||||
550 | 1 dlld2.s 463 | Comment | 11 | | 0 | 00/2400 | *-----------------------------------
|
||||
551 | 1 dlld2.s 464 | Empty | 11 | | 0 | 00/2400 |
|
||||
552 | 1 dlld2.s 465 | Empty | 11 | | 0 | 00/2400 |
|
||||
------+-------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
|
|
@ -0,0 +1,616 @@
|
|||
------+------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code
|
||||
------+------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
1 | 1 dlld.s 1 | Comment | 11 | | 0 | 00/8000 | *
|
||||
2 | 1 dlld.s 2 | Comment | 11 | | 0 | 00/8000 | * DLLD
|
||||
3 | 1 dlld.s 3 | Comment | 11 | | 0 | 00/8000 | * Let's play Dragon's Lair :-)
|
||||
4 | 1 dlld.s 4 | Comment | 11 | | 0 | 00/8000 | *
|
||||
5 | 1 dlld.s 5 | Comment | 11 | | 0 | 00/8000 | * (c) 2024, Brutal Deluxe Software
|
||||
6 | 1 dlld.s 6 | Comment | 11 | | 0 | 00/8000 | *
|
||||
7 | 1 dlld.s 7 | Empty | 11 | | 0 | 00/8000 |
|
||||
8 | 1 dlld.s 8 | Directive | 11 | | 0 | 00/8000 | mx %11
|
||||
9 | 1 dlld.s 9 | Directive | 11 | | 0 | 00/8000 | org $2000
|
||||
10 | 1 dlld.s 10 | Directive | 11 | | 0 | 00/2000 | lst off
|
||||
11 | 1 dlld.s 11 | Empty | 11 | | 0 | 00/2000 |
|
||||
12 | 1 dlld.s 12 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
||||
13 | 1 dlld.s 13 | Comment | 11 | | 0 | 00/2000 | * MACROS
|
||||
14 | 1 dlld.s 14 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
||||
15 | 1 dlld.s 15 | Empty | 11 | | 0 | 00/2000 |
|
||||
16 | 1 dlld.s 16 | Directive | 11 | | 0 | 00/2000 | _sendLD mac
|
||||
17 | 1 dlld.s 17 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
|
||||
18 | 1 dlld.s 18 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
|
||||
19 | 1 dlld.s 19 | Directive | 11 | | 0 | 00/2000 | jsr sendSERIAL
|
||||
20 | 1 dlld.s 20 | Directive | 11 | | 0 | 00/2000 | eom
|
||||
21 | 1 dlld.s 21 | Empty | 11 | | 0 | 00/2000 |
|
||||
22 | 1 dlld.s 22 | Directive | 11 | | 0 | 00/2000 | _receiveLD mac
|
||||
23 | 1 dlld.s 23 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
|
||||
24 | 1 dlld.s 24 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
|
||||
25 | 1 dlld.s 25 | Directive | 11 | | 0 | 00/2000 | jsr receiveSERIAL
|
||||
26 | 1 dlld.s 26 | Directive | 11 | | 0 | 00/2000 | eom
|
||||
27 | 1 dlld.s 27 | Empty | 11 | | 0 | 00/2000 |
|
||||
28 | 1 dlld.s 28 | Directive | 11 | | 0 | 00/2000 | _sendLDCommand mac
|
||||
29 | 1 dlld.s 29 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
|
||||
30 | 1 dlld.s 30 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
|
||||
31 | 1 dlld.s 31 | Directive | 11 | | 0 | 00/2000 | jsr sendLDCommand
|
||||
32 | 1 dlld.s 32 | Directive | 11 | | 0 | 00/2000 | eom
|
||||
33 | 1 dlld.s 33 | Empty | 11 | | 0 | 00/2000 |
|
||||
34 | 1 dlld.s 34 | Directive | 11 | | 0 | 00/2000 | _sendreceiveLD mac
|
||||
35 | 1 dlld.s 35 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
|
||||
36 | 1 dlld.s 36 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
|
||||
37 | 1 dlld.s 37 | Directive | 11 | | 0 | 00/2000 | jsr sendreceiveLD
|
||||
38 | 1 dlld.s 38 | Directive | 11 | | 0 | 00/2000 | eom
|
||||
39 | 1 dlld.s 39 | Empty | 11 | | 0 | 00/2000 |
|
||||
40 | 1 dlld.s 40 | Directive | 11 | | 0 | 00/2000 | _readSTRING mac
|
||||
41 | 1 dlld.s 41 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
|
||||
42 | 1 dlld.s 42 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
|
||||
43 | 1 dlld.s 43 | Directive | 11 | | 0 | 00/2000 | jsr receiveSERIAL
|
||||
44 | 1 dlld.s 44 | Directive | 11 | | 0 | 00/2000 | eom
|
||||
45 | 1 dlld.s 45 | Empty | 11 | | 0 | 00/2000 |
|
||||
46 | 1 dlld.s 46 | Directive | 11 | | 0 | 00/2000 | _sendSTRING mac
|
||||
47 | 1 dlld.s 47 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
|
||||
48 | 1 dlld.s 48 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
|
||||
49 | 1 dlld.s 49 | Directive | 11 | | 0 | 00/2000 | jsr sendSerialString
|
||||
50 | 1 dlld.s 50 | Directive | 11 | | 0 | 00/2000 | eom
|
||||
51 | 1 dlld.s 51 | Empty | 11 | | 0 | 00/2000 |
|
||||
52 | 1 dlld.s 52 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
||||
53 | 1 dlld.s 53 | Comment | 11 | | 0 | 00/2000 | * EQUATES
|
||||
54 | 1 dlld.s 54 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
||||
55 | 1 dlld.s 55 | Empty | 11 | | 0 | 00/2000 |
|
||||
56 | 1 dlld.s 56 | Equivalence | 11 | | 0 | 00/2000 | dpFROM = $fc
|
||||
57 | 1 dlld.s 57 | Equivalence | 11 | | 0 | 00/2000 | dpTO = {$fc}+2
|
||||
58 | 1 dlld.s 58 | Empty | 11 | | 0 | 00/2000 |
|
||||
59 | 1 dlld.s 59 | Equivalence | 11 | | 0 | 00/2000 | KBD = $c000
|
||||
60 | 1 dlld.s 60 | Equivalence | 11 | | 0 | 00/2000 | KBDSTROBE = $c010
|
||||
61 | 1 dlld.s 61 | Equivalence | 11 | | 0 | 00/2000 | RDVBLBAR = $c019
|
||||
62 | 1 dlld.s 62 | Empty | 11 | | 0 | 00/2000 |
|
||||
63 | 1 dlld.s 63 | Equivalence | 11 | | 0 | 00/2000 | HOME = $fc58
|
||||
64 | 1 dlld.s 64 | Equivalence | 11 | | 0 | 00/2000 | WAIT = $fca8
|
||||
65 | 1 dlld.s 65 | Equivalence | 11 | | 0 | 00/2000 | COUT = $fded
|
||||
66 | 1 dlld.s 66 | Empty | 11 | | 0 | 00/2000 |
|
||||
67 | 1 dlld.s 67 | Equivalence | 11 | | 0 | 00/2000 | chrCTRLA = $01
|
||||
68 | 1 dlld.s 68 | Equivalence | 11 | | 0 | 00/2000 | chrLINEFEED = $0a
|
||||
69 | 1 dlld.s 69 | Equivalence | 11 | | 0 | 00/2000 | chrRETURN = $0d
|
||||
70 | 1 dlld.s 70 | Equivalence | 11 | | 0 | 00/2000 | chrSPACE = $20
|
||||
71 | 1 dlld.s 71 | Empty | 11 | | 0 | 00/2000 |
|
||||
72 | 1 dlld.s 72 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
||||
73 | 1 dlld.s 73 | Comment | 11 | | 0 | 00/2000 | * CODE
|
||||
74 | 1 dlld.s 74 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
||||
75 | 1 dlld.s 75 | Empty | 11 | | 0 | 00/2000 |
|
||||
76 | 1 dlld.s 76 | Code | 11 | | 3 | 00/2000 : 20 EF 20 | jsr initSERIAL ; set the serial addresses
|
||||
77 | 1 dlld.s 77 | Code | 11 | | 3 | 00/2003 : 20 59 20 | jsr initPORT ; init the serial port for LD support
|
||||
78 | 1 dlld.s 78 | Code | 11 | | 3 | 00/2006 : 20 18 20 | jsr initLDDS ; show text
|
||||
79 | 1 dlld.s 79 | Code | 11 | | 3 | 00/2009 : 20 27 20 | jsr initLDCO ; close the door
|
||||
80 | 1 dlld.s 80 | Code | 11 | | 3 | 00/200C : 20 2F 20 | jsr initLDSA ; spin the disc
|
||||
81 | 1 dlld.s 81 | Code | 11 | | 3 | 00/200F : 4C 37 20 | jmp initLDPL ; start playing
|
||||
82 | 1 dlld.s 82 | Code | 11 | | 3 | 00/2012 : 4C 3F 20 | jmp initLDC ; get register C
|
||||
83 | 1 dlld.s 83 | Empty | 11 | | 0 | 00/2015 |
|
||||
84 | 1 dlld.s 84 | Code | 11 | | 3 | 00/2015 : 4C 08 21 | jmp resetSERIAL ; do not activate it when code is light
|
||||
85 | 1 dlld.s 85 | Comment | 11 | | 0 | 00/2018 | ; or all commands will not be handled
|
||||
86 | 1 dlld.s 86 | Empty | 11 | | 0 | 00/2018 |
|
||||
87 | 1 dlld.s 87 | Comment | 11 | | 0 | 00/2018 | *-----------------------------------
|
||||
88 | 1 dlld.s 88 | Comment | 11 | | 0 | 00/2018 | * LASERDISC
|
||||
89 | 1 dlld.s 89 | Comment | 11 | | 0 | 00/2018 | *-----------------------------------
|
||||
90 | 1 dlld.s 90 | Empty | 11 | | 0 | 00/2018 |
|
||||
91 | 1 dlld.s 91 | Macro | 11 | | 0 | 00/2018 | initLDDS _sendLDCommand #strDS ; 4-28 DISPLAY TEXT
|
||||
92 | 1 dlld.s 91 | Code | 11 | | 2 | 00/2018 : A2 22 | ldx #>#strDS
|
||||
93 | 1 dlld.s 91 | Code | 11 | | 2 | 00/201A : A0 41 | ldy #<#strDS
|
||||
94 | 1 dlld.s 91 | Code | 11 | | 3 | 00/201C : 20 2D 21 | jsr sendLDCommand
|
||||
95 | 1 dlld.s 92 | Macro | 11 | | 0 | 00/201F | _sendLDCommand #strAV ; 4-28 DISPLAY TEXT
|
||||
96 | 1 dlld.s 92 | Code | 11 | | 2 | 00/201F : A2 22 | ldx #>#strAV
|
||||
97 | 1 dlld.s 92 | Code | 11 | | 2 | 00/2021 : A0 48 | ldy #<#strAV
|
||||
98 | 1 dlld.s 92 | Code | 11 | | 3 | 00/2023 : 20 2D 21 | jsr sendLDCommand
|
||||
99 | 1 dlld.s 93 | Code | 11 | | 1 | 00/2026 : 60 | rts
|
||||
100 | 1 dlld.s 94 | Macro | 11 | | 0 | 00/2027 | initLDCO _sendLDCommand #strCO ; 4-11 CLOSE
|
||||
101 | 1 dlld.s 94 | Code | 11 | | 2 | 00/2027 : A2 22 | ldx #>#strCO
|
||||
102 | 1 dlld.s 94 | Code | 11 | | 2 | 00/2029 : A0 50 | ldy #<#strCO
|
||||
103 | 1 dlld.s 94 | Code | 11 | | 3 | 00/202B : 20 2D 21 | jsr sendLDCommand
|
||||
104 | 1 dlld.s 95 | Code | 11 | | 1 | 00/202E : 60 | rts
|
||||
105 | 1 dlld.s 96 | Macro | 11 | | 0 | 00/202F | initLDSA _sendLDCommand #strSA ; 4-12 START
|
||||
106 | 1 dlld.s 96 | Code | 11 | | 2 | 00/202F : A2 22 | ldx #>#strSA
|
||||
107 | 1 dlld.s 96 | Code | 11 | | 2 | 00/2031 : A0 53 | ldy #<#strSA
|
||||
108 | 1 dlld.s 96 | Code | 11 | | 3 | 00/2033 : 20 2D 21 | jsr sendLDCommand
|
||||
109 | 1 dlld.s 97 | Code | 11 | | 1 | 00/2036 : 60 | rts
|
||||
110 | 1 dlld.s 98 | Macro | 11 | | 0 | 00/2037 | initLDPL _sendLDCommand #strPL ; 4-13 PLAY
|
||||
111 | 1 dlld.s 98 | Code | 11 | | 2 | 00/2037 : A2 22 | ldx #>#strPL
|
||||
112 | 1 dlld.s 98 | Code | 11 | | 2 | 00/2039 : A0 56 | ldy #<#strPL
|
||||
113 | 1 dlld.s 98 | Code | 11 | | 3 | 00/203B : 20 2D 21 | jsr sendLDCommand
|
||||
114 | 1 dlld.s 99 | Code | 11 | | 1 | 00/203E : 60 | rts
|
||||
115 | 1 dlld.s 100 | Macro | 11 | | 0 | 00/203F | initLDC _sendLDCommand #strC ; 4-45 $C
|
||||
116 | 1 dlld.s 100 | Code | 11 | | 2 | 00/203F : A2 22 | ldx #>#strC
|
||||
117 | 1 dlld.s 100 | Code | 11 | | 2 | 00/2041 : A0 59 | ldy #<#strC
|
||||
118 | 1 dlld.s 100 | Code | 11 | | 3 | 00/2043 : 20 2D 21 | jsr sendLDCommand
|
||||
119 | 1 dlld.s 101 | Code | 11 | | 1 | 00/2046 : 60 | rts
|
||||
120 | 1 dlld.s 102 | Empty | 11 | | 0 | 00/2047 |
|
||||
121 | 1 dlld.s 103 | Comment | 11 | | 0 | 00/2047 | *---------- Send LD command and Receive answer
|
||||
122 | 1 dlld.s 104 | Empty | 11 | | 0 | 00/2047 |
|
||||
123 | 1 dlld.s 105 | Empty | 11 | | 0 | 00/2047 | sendreceiveLD
|
||||
124 | 1 dlld.s 106 | Code | 11 | | 3 | 00/2047 : 20 FE 21 | jsr sendSERIAL
|
||||
125 | 1 dlld.s 107 | Empty | 11 | | 0 | 00/204A |
|
||||
126 | 1 dlld.s 108 | Code | 11 | | 1 | 00/204A : EA | nop
|
||||
127 | 1 dlld.s 109 | Code | 11 | | 2 | 00/204B : A9 96 | lda #150
|
||||
128 | 1 dlld.s 110 | Code | 11 | | 3 | 00/204D : 20 A8 FC | jsr {$fca8}
|
||||
129 | 1 dlld.s 111 | Code | 11 | | 1 | 00/2050 : EA | nop
|
||||
130 | 1 dlld.s 112 | Empty | 11 | | 0 | 00/2051 |
|
||||
131 | 1 dlld.s 113 | Macro | 11 | | 0 | 00/2051 | _readSTRING #responseBUF
|
||||
132 | 1 dlld.s 113 | Code | 11 | | 2 | 00/2051 : A2 23 | ldx #>#responseBUF
|
||||
133 | 1 dlld.s 113 | Code | 11 | | 2 | 00/2053 : A0 00 | ldy #<#responseBUF
|
||||
134 | 1 dlld.s 113 | Code | 11 | | 3 | 00/2055 : 20 C2 21 | jsr receiveSERIAL
|
||||
135 | 1 dlld.s 114 | Code | 11 | | 1 | 00/2058 : 60 | rts
|
||||
136 | 1 dlld.s 115 | Empty | 11 | | 0 | 00/2059 |
|
||||
137 | 1 dlld.s 116 | Comment | 11 | | 0 | 00/2059 | *-----------------------------------
|
||||
138 | 1 dlld.s 117 | Comment | 11 | | 0 | 00/2059 | * SERIAL PORT (MODEM)
|
||||
139 | 1 dlld.s 118 | Comment | 11 | | 0 | 00/2059 | *-----------------------------------
|
||||
140 | 1 dlld.s 119 | Empty | 11 | | 0 | 00/2059 |
|
||||
141 | 1 dlld.s 120 | Comment | 11 | | 0 | 00/2059 | *---------- Init modem port for LD support
|
||||
142 | 1 dlld.s 121 | Empty | 11 | | 0 | 00/2059 |
|
||||
143 | 1 dlld.s 122 | Code | 11 | | 3 | 00/2059 : 20 08 21 | initPORT jsr resetSERIAL
|
||||
144 | 1 dlld.s 123 | Macro | 11 | | 0 | 00/205C | _sendSTRING #strED ; Don't echo output
|
||||
145 | 1 dlld.s 123 | Code | 11 | | 2 | 00/205C : A2 22 | ldx #>#strED
|
||||
146 | 1 dlld.s 123 | Code | 11 | | 2 | 00/205E : A0 1A | ldy #<#strED
|
||||
147 | 1 dlld.s 123 | Code | 11 | | 3 | 00/2060 : 20 3F 21 | jsr sendSerialString
|
||||
148 | 1 dlld.s 124 | Macro | 11 | | 0 | 00/2063 | _sendSTRING #strBE ; Input buffering: on
|
||||
149 | 1 dlld.s 124 | Code | 11 | | 2 | 00/2063 : A2 22 | ldx #>#strBE
|
||||
150 | 1 dlld.s 124 | Code | 11 | | 2 | 00/2065 : A0 1D | ldy #<#strBE
|
||||
151 | 1 dlld.s 124 | Code | 11 | | 3 | 00/2067 : 20 3F 21 | jsr sendSerialString
|
||||
152 | 1 dlld.s 125 | Macro | 11 | | 0 | 00/206A | _sendSTRING #str12B ; Baud rate: 4800 BPS
|
||||
153 | 1 dlld.s 125 | Code | 11 | | 2 | 00/206A : A2 22 | ldx #>#str12B
|
||||
154 | 1 dlld.s 125 | Code | 11 | | 2 | 00/206C : A0 20 | ldy #<#str12B
|
||||
155 | 1 dlld.s 125 | Code | 11 | | 3 | 00/206E : 20 3F 21 | jsr sendSerialString
|
||||
156 | 1 dlld.s 126 | Macro | 11 | | 0 | 00/2071 | _sendSTRING #str0D ; Data/Stop bits: 8/1
|
||||
157 | 1 dlld.s 126 | Code | 11 | | 2 | 00/2071 : A2 22 | ldx #>#str0D
|
||||
158 | 1 dlld.s 126 | Code | 11 | | 2 | 00/2073 : A0 24 | ldy #<#str0D
|
||||
159 | 1 dlld.s 126 | Code | 11 | | 3 | 00/2075 : 20 3F 21 | jsr sendSerialString
|
||||
160 | 1 dlld.s 127 | Macro | 11 | | 0 | 00/2078 | _sendSTRING #str0P ; Parity: none
|
||||
161 | 1 dlld.s 127 | Code | 11 | | 2 | 00/2078 : A2 22 | ldx #>#str0P
|
||||
162 | 1 dlld.s 127 | Code | 11 | | 2 | 00/207A : A0 27 | ldy #<#str0P
|
||||
163 | 1 dlld.s 127 | Code | 11 | | 3 | 00/207C : 20 3F 21 | jsr sendSerialString
|
||||
164 | 1 dlld.s 128 | Macro | 11 | | 0 | 00/207F | _sendSTRING #str0N ; Line length: 0
|
||||
165 | 1 dlld.s 128 | Code | 11 | | 2 | 00/207F : A2 22 | ldx #>#str0N
|
||||
166 | 1 dlld.s 128 | Code | 11 | | 2 | 00/2081 : A0 2A | ldy #<#str0N
|
||||
167 | 1 dlld.s 128 | Code | 11 | | 3 | 00/2083 : 20 3F 21 | jsr sendSerialString
|
||||
168 | 1 dlld.s 129 | Macro | 11 | | 0 | 00/2086 | _sendSTRING #strAD ; Do not implement basic tabs
|
||||
169 | 1 dlld.s 129 | Code | 11 | | 2 | 00/2086 : A2 22 | ldx #>#strAD
|
||||
170 | 1 dlld.s 129 | Code | 11 | | 2 | 00/2088 : A0 2D | ldy #<#strAD
|
||||
171 | 1 dlld.s 129 | Code | 11 | | 3 | 00/208A : 20 3F 21 | jsr sendSerialString
|
||||
172 | 1 dlld.s 130 | Macro | 11 | | 0 | 00/208D | _sendSTRING #strCD ; Disable line formatting
|
||||
173 | 1 dlld.s 130 | Code | 11 | | 2 | 00/208D : A2 22 | ldx #>#strCD
|
||||
174 | 1 dlld.s 130 | Code | 11 | | 2 | 00/208F : A0 30 | ldy #<#strCD
|
||||
175 | 1 dlld.s 130 | Code | 11 | | 3 | 00/2091 : 20 3F 21 | jsr sendSerialString
|
||||
176 | 1 dlld.s 131 | Macro | 11 | | 0 | 00/2094 | _sendSTRING #strXD ; Ignore XOFF
|
||||
177 | 1 dlld.s 131 | Code | 11 | | 2 | 00/2094 : A2 22 | ldx #>#strXD
|
||||
178 | 1 dlld.s 131 | Code | 11 | | 2 | 00/2096 : A0 33 | ldy #<#strXD
|
||||
179 | 1 dlld.s 131 | Code | 11 | | 3 | 00/2098 : 20 3F 21 | jsr sendSerialString
|
||||
180 | 1 dlld.s 132 | Macro | 11 | | 0 | 00/209B | _sendSTRING #strFD ; Disable keyboard input
|
||||
181 | 1 dlld.s 132 | Code | 11 | | 2 | 00/209B : A2 22 | ldx #>#strFD
|
||||
182 | 1 dlld.s 132 | Code | 11 | | 2 | 00/209D : A0 36 | ldy #<#strFD
|
||||
183 | 1 dlld.s 132 | Code | 11 | | 3 | 00/209F : 20 3F 21 | jsr sendSerialString
|
||||
184 | 1 dlld.s 133 | Macro | 11 | | 0 | 00/20A2 | _sendSTRING #strLD ; Do not add line feeds after CR
|
||||
185 | 1 dlld.s 133 | Code | 11 | | 2 | 00/20A2 : A2 22 | ldx #>#strLD
|
||||
186 | 1 dlld.s 133 | Code | 11 | | 2 | 00/20A4 : A0 39 | ldy #<#strLD
|
||||
187 | 1 dlld.s 133 | Code | 11 | | 3 | 00/20A6 : 20 3F 21 | jsr sendSerialString
|
||||
188 | 1 dlld.s 134 | Macro | 11 | | 0 | 00/20A9 | _sendSTRING #strME ; Mask line feed in
|
||||
189 | 1 dlld.s 134 | Code | 11 | | 2 | 00/20A9 : A2 22 | ldx #>#strME
|
||||
190 | 1 dlld.s 134 | Code | 11 | | 2 | 00/20AB : A0 3C | ldy #<#strME
|
||||
191 | 1 dlld.s 134 | Code | 11 | | 3 | 00/20AD : 20 3F 21 | jsr sendSerialString
|
||||
192 | 1 dlld.s 135 | Macro | 11 | | 0 | 00/20B0 | _sendSTRING #strZ ; Suppress control characters
|
||||
193 | 1 dlld.s 135 | Code | 11 | | 2 | 00/20B0 : A2 22 | ldx #>#strZ
|
||||
194 | 1 dlld.s 135 | Code | 11 | | 2 | 00/20B2 : A0 3F | ldy #<#strZ
|
||||
195 | 1 dlld.s 135 | Code | 11 | | 3 | 00/20B4 : 20 3F 21 | jsr sendSerialString
|
||||
196 | 1 dlld.s 136 | Code | 11 | | 3 | 00/20B7 : 20 BB 20 | jsr checkSerialInputReady
|
||||
197 | 1 dlld.s 137 | Code | 11 | | 1 | 00/20BA : 60 | rts
|
||||
198 | 1 dlld.s 138 | Empty | 11 | | 0 | 00/20BB |
|
||||
199 | 1 dlld.s 139 | Comment | 11 | | 0 | 00/20BB | *---------- Check serial input is ready
|
||||
200 | 1 dlld.s 140 | Empty | 11 | | 0 | 00/20BB |
|
||||
201 | 1 dlld.s 141 | Empty | 11 | | 0 | 00/20BB | checkSerialInputReady
|
||||
202 | 1 dlld.s 142 | Code | 11 | | 2 | 00/20BB : A9 01 | ozunid_1 lda #1 ; is input ready?
|
||||
203 | 1 dlld.s 143 | Code | 11 | | 3 | 00/20BD : 20 7E 21 | jsr statusSERIAL
|
||||
204 | 1 dlld.s 144 | Code | 11 | | 2 | 00/20C0 : F0 05 | beq checkSIR9
|
||||
205 | 1 dlld.s 145 | Empty | 11 | | 0 | 00/20C2 |
|
||||
206 | 1 dlld.s 146 | Code | 11 | | 3 | 00/20C2 : 20 1E 21 | jsr readSERIAL ; exit when nothing to read
|
||||
207 | 1 dlld.s 147 | Code | 11 | | 2 | 00/20C5 : B0 F4 | bcs ozunid_1
|
||||
208 | 1 dlld.s 148 | Empty | 11 | | 0 | 00/20C7 |
|
||||
209 | 1 dlld.s 149 | Code | 11 | | 1 | 00/20C7 : 60 | checkSIR9 rts
|
||||
210 | 1 dlld.s 150 | Empty | 11 | | 0 | 00/20C8 |
|
||||
211 | 1 dlld.s 151 | Comment | 11 | | 0 | 00/20C8 | *---------- Check the input is ready
|
||||
212 | 1 dlld.s 152 | Empty | 11 | | 0 | 00/20C8 |
|
||||
213 | 1 dlld.s 153 | Empty | 11 | | 0 | 00/20C8 | checkInputReady
|
||||
214 | 1 dlld.s 154 | Code | 11 | | 3 | 00/20C8 : 20 E9 20 | ozunid_2 jsr getSerialInputStatus
|
||||
215 | 1 dlld.s 155 | Code | 11 | | 2 | 00/20CB : D0 13 | bne checkIR1
|
||||
216 | 1 dlld.s 156 | Empty | 11 | | 0 | 00/20CD |
|
||||
217 | 1 dlld.s 157 | Code | 11 | | 2 | 00/20CD : A9 00 | lda #0
|
||||
218 | 1 dlld.s 158 | Code | 11 | | 3 | 00/20CF : 20 A8 FC | jsr {$fca8}
|
||||
219 | 1 dlld.s 159 | Code | 11 | | 3 | 00/20D2 : 20 A8 FC | jsr {$fca8}
|
||||
220 | 1 dlld.s 160 | Empty | 11 | | 0 | 00/20D5 |
|
||||
221 | 1 dlld.s 161 | Code | 11 | | 3 | 00/20D5 : AD 00 C0 | lda {$c000}
|
||||
222 | 1 dlld.s 162 | Code | 11 | | 2 | 00/20D8 : 10 EE | bpl ozunid_2
|
||||
223 | 1 dlld.s 163 | Code | 11 | | 3 | 00/20DA : 2C 10 C0 | bit {$c010}
|
||||
224 | 1 dlld.s 164 | Code | 11 | | 2 | 00/20DD : A9 01 | lda #1
|
||||
225 | 1 dlld.s 165 | Code | 11 | | 1 | 00/20DF : 60 | rts
|
||||
226 | 1 dlld.s 166 | Code | 11 | | 2 | 00/20E0 : A9 00 | checkIR1 lda #0
|
||||
227 | 1 dlld.s 167 | Code | 11 | | 1 | 00/20E2 : 60 | rts
|
||||
228 | 1 dlld.s 168 | Empty | 11 | | 0 | 00/20E3 |
|
||||
229 | 1 dlld.s 169 | Comment | 11 | | 0 | 00/20E3 | *---------- Get serial output status
|
||||
230 | 1 dlld.s 170 | Empty | 11 | | 0 | 00/20E3 |
|
||||
231 | 1 dlld.s 171 | Empty | 11 | | 0 | 00/20E3 | getSerialOutputStatus
|
||||
232 | 1 dlld.s 172 | Code | 11 | | 2 | 00/20E3 : A9 00 | lda #0
|
||||
233 | 1 dlld.s 173 | Code | 11 | | 3 | 00/20E5 : 20 7E 21 | jsr statusSERIAL
|
||||
234 | 1 dlld.s 174 | Code | 11 | | 1 | 00/20E8 : 60 | rts
|
||||
235 | 1 dlld.s 175 | Empty | 11 | | 0 | 00/20E9 |
|
||||
236 | 1 dlld.s 176 | Comment | 11 | | 0 | 00/20E9 | *---------- Get serial input status
|
||||
237 | 1 dlld.s 177 | Empty | 11 | | 0 | 00/20E9 |
|
||||
238 | 1 dlld.s 178 | Empty | 11 | | 0 | 00/20E9 | getSerialInputStatus
|
||||
239 | 1 dlld.s 179 | Code | 11 | | 2 | 00/20E9 : A9 01 | lda #1
|
||||
240 | 1 dlld.s 180 | Code | 11 | | 3 | 00/20EB : 20 7E 21 | jsr statusSERIAL
|
||||
241 | 1 dlld.s 181 | Code | 11 | | 1 | 00/20EE : 60 | rts
|
||||
242 | 1 dlld.s 182 | Empty | 11 | | 0 | 00/20EF |
|
||||
243 | 1 dlld.s 183 | Comment | 11 | | 0 | 00/20EF | *---------- Set all addressses
|
||||
244 | 1 dlld.s 184 | Empty | 11 | | 0 | 00/20EF |
|
||||
245 | 1 dlld.s 185 | Empty | 11 | | 0 | 00/20EF | initSERIAL
|
||||
246 | 1 dlld.s 186 | Code | 11 | | 3 | 00/20EF : AD 0D C1 | lda $c10d
|
||||
247 | 1 dlld.s 187 | Code | 11 | | 3 | 00/20F2 : 8D 0D 21 | sta resetSERIAL+5
|
||||
248 | 1 dlld.s 188 | Code | 11 | | 3 | 00/20F5 : AD 0E C1 | lda $c10e
|
||||
249 | 1 dlld.s 189 | Code | 11 | | 3 | 00/20F8 : 8D 23 21 | sta readSERIAL+5
|
||||
250 | 1 dlld.s 190 | Code | 11 | | 3 | 00/20FB : AD 0F C1 | lda $c10f
|
||||
251 | 1 dlld.s 191 | Code | 11 | | 3 | 00/20FE : 8D 74 21 | sta writeSERIAL+5
|
||||
252 | 1 dlld.s 192 | Code | 11 | | 3 | 00/2101 : AD 10 C1 | lda $c110
|
||||
253 | 1 dlld.s 193 | Code | 11 | | 3 | 00/2104 : 8D 83 21 | sta statusSERIAL+5
|
||||
254 | 1 dlld.s 194 | Code | 11 | | 1 | 00/2107 : 60 | rts
|
||||
255 | 1 dlld.s 195 | Empty | 11 | | 0 | 00/2108 |
|
||||
256 | 1 dlld.s 196 | Comment | 11 | | 0 | 00/2108 | *---------- Reset port, restore control panel defaults
|
||||
257 | 1 dlld.s 197 | Empty | 11 | | 0 | 00/2108 |
|
||||
258 | 1 dlld.s 198 | Empty | 11 | | 0 | 00/2108 | resetSERIAL
|
||||
259 | 1 dlld.s 199 | Code | 11 | | 2 | 00/2108 : A2 C2 | ldx #$c2
|
||||
260 | 1 dlld.s 200 | Code | 11 | | 2 | 00/210A : A0 20 | ldy #$20
|
||||
261 | 1 dlld.s 201 | Code | 11 | | 3 | 00/210C : 20 0D C1 | jsr $c10d
|
||||
262 | 1 dlld.s 202 | Code | 11 | | 2 | 00/210F : B0 04 | bcs resetSER1
|
||||
263 | 1 dlld.s 203 | Code | 11 | | 2 | 00/2111 : A9 00 | lda #0 ; carry clear, not ready
|
||||
264 | 1 dlld.s 204 | Code | 11 | | 2 | 00/2113 : F0 02 | beq resetSER2
|
||||
265 | 1 dlld.s 205 | Code | 11 | | 2 | 00/2115 : A9 01 | resetSER1 lda #1 ; carry set, ready
|
||||
266 | 1 dlld.s 206 | Empty | 11 | | 0 | 00/2117 |
|
||||
267 | 1 dlld.s 207 | Code | 11 | | 2 | 00/2117 : E0 00 | resetSER2 cpx #0 ; check error code
|
||||
268 | 1 dlld.s 208 | Code | 11 | | 2 | 00/2119 : F0 02 | beq resetSER3
|
||||
269 | 1 dlld.s 209 | Code | 11 | | 2 | 00/211B : A9 02 | lda #2 ; reset error!
|
||||
270 | 1 dlld.s 210 | Code | 11 | | 1 | 00/211D : 60 | resetSER3 rts
|
||||
271 | 1 dlld.s 211 | Empty | 11 | | 0 | 00/211E |
|
||||
272 | 1 dlld.s 212 | Comment | 11 | | 0 | 00/211E | *---------- Wait for and get next character
|
||||
273 | 1 dlld.s 213 | Empty | 11 | | 0 | 00/211E |
|
||||
274 | 1 dlld.s 214 | Empty | 11 | | 0 | 00/211E | readSERIAL
|
||||
275 | 1 dlld.s 215 | Code | 11 | | 2 | 00/211E : A2 C2 | ldx #$c2 ; yes
|
||||
276 | 1 dlld.s 216 | Code | 11 | | 2 | 00/2120 : A0 20 | ldy #$20
|
||||
277 | 1 dlld.s 217 | Code | 11 | | 3 | 00/2122 : 20 0E C1 | jsr $c10e
|
||||
278 | 1 dlld.s 218 | Code | 11 | | 2 | 00/2125 : E0 00 | cpx #0 ; carry holds the error
|
||||
279 | 1 dlld.s 219 | Code | 11 | | 2 | 00/2127 : F0 02 | beq readSER1 ; and A the character
|
||||
280 | 1 dlld.s 220 | Code | 11 | | 1 | 00/2129 : 38 | sec
|
||||
281 | 1 dlld.s 221 | Data | 11 | | 1 | 00/212A : 24 | hex 24
|
||||
282 | 1 dlld.s 222 | Code | 11 | | 1 | 00/212B : 18 | readSER1 clc
|
||||
283 | 1 dlld.s 223 | Code | 11 | | 1 | 00/212C : 60 | rts
|
||||
284 | 1 dlld.s 224 | Empty | 11 | | 0 | 00/212D |
|
||||
285 | 1 dlld.s 225 | Comment | 11 | | 0 | 00/212D | *---------- Send a LD command
|
||||
286 | 1 dlld.s 226 | Empty | 11 | | 0 | 00/212D |
|
||||
287 | 1 dlld.s 227 | Empty | 11 | | 0 | 00/212D | sendLDCommand
|
||||
288 | 1 dlld.s 228 | Code | 11 | | 2 | 00/212D : 84 FC | sty {$fc}
|
||||
289 | 1 dlld.s 229 | Code | 11 | | 2 | 00/212F : 86 FD | stx {$fc}+1
|
||||
290 | 1 dlld.s 230 | Empty | 11 | | 0 | 00/2131 |
|
||||
291 | 1 dlld.s 231 | Code | 11 | | 3 | 00/2131 : 20 BB 20 | jsr checkSerialInputReady
|
||||
292 | 1 dlld.s 232 | Code | 11 | | 2 | 00/2134 : D0 08 | bne sendLDC9
|
||||
293 | 1 dlld.s 233 | Empty | 11 | | 0 | 00/2136 |
|
||||
294 | 1 dlld.s 234 | Code | 11 | | 3 | 00/2136 : 20 4A 21 | jsr sendCRString
|
||||
295 | 1 dlld.s 235 | Code | 11 | | 2 | 00/2139 : D0 03 | bne sendLDC9
|
||||
296 | 1 dlld.s 236 | Empty | 11 | | 0 | 00/213B |
|
||||
297 | 1 dlld.s 237 | Code | 11 | | 3 | 00/213B : 20 8D 21 | jsr receiveLDAnswer
|
||||
298 | 1 dlld.s 238 | Empty | 11 | | 0 | 00/213E |
|
||||
299 | 1 dlld.s 239 | Code | 11 | | 1 | 00/213E : 60 | sendLDC9 rts
|
||||
300 | 1 dlld.s 240 | Empty | 11 | | 0 | 00/213F |
|
||||
301 | 1 dlld.s 241 | Comment | 11 | | 0 | 00/213F | *---------- Send a serial string (it begins with a 1)
|
||||
302 | 1 dlld.s 242 | Empty | 11 | | 0 | 00/213F |
|
||||
303 | 1 dlld.s 243 | Empty | 11 | | 0 | 00/213F | sendSerialString
|
||||
304 | 1 dlld.s 244 | Code | 11 | | 2 | 00/213F : 84 FC | sty {$fc}
|
||||
305 | 1 dlld.s 245 | Code | 11 | | 2 | 00/2141 : 86 FD | stx {$fc}+1
|
||||
306 | 1 dlld.s 246 | Empty | 11 | | 0 | 00/2143 |
|
||||
307 | 1 dlld.s 247 | Code | 11 | | 2 | 00/2143 : A9 01 | lda #{$01}
|
||||
308 | 1 dlld.s 248 | Code | 11 | | 3 | 00/2145 : 20 61 21 | jsr sendSerialCharacter
|
||||
309 | 1 dlld.s 249 | Code | 11 | | 2 | 00/2148 : D0 16 | bne sendCRS9 ; on error, jump to the end
|
||||
310 | 1 dlld.s 250 | Comment | 11 | | 0 | 00/214A | ; or goes below to sendCRString
|
||||
311 | 1 dlld.s 251 | Empty | 11 | | 0 | 00/214A |
|
||||
312 | 1 dlld.s 252 | Comment | 11 | | 0 | 00/214A | *---------- Send CR string
|
||||
313 | 1 dlld.s 253 | Empty | 11 | | 0 | 00/214A |
|
||||
314 | 1 dlld.s 254 | Empty | 11 | | 0 | 00/214A | sendCRString
|
||||
315 | 1 dlld.s 255 | Code | 11 | | 2 | 00/214A : B2 FC | ozunid_3 lda ({$fc})
|
||||
316 | 1 dlld.s 256 | Code | 11 | | 2 | 00/214C : F0 0D | beq sendCRS1 ; end of string?
|
||||
317 | 1 dlld.s 257 | Code | 11 | | 3 | 00/214E : 20 61 21 | jsr sendSerialCharacter
|
||||
318 | 1 dlld.s 258 | Code | 11 | | 2 | 00/2151 : D0 0D | bne sendCRS9 ; error!
|
||||
319 | 1 dlld.s 259 | Empty | 11 | | 0 | 00/2153 |
|
||||
320 | 1 dlld.s 260 | Code | 11 | | 2 | 00/2153 : E6 FC | inc {$fc}
|
||||
321 | 1 dlld.s 261 | Code | 11 | | 2 | 00/2155 : D0 F3 | bne ozunid_3
|
||||
322 | 1 dlld.s 262 | Code | 11 | | 2 | 00/2157 : E6 FD | inc {$fc}+1
|
||||
323 | 1 dlld.s 263 | Code | 11 | | 2 | 00/2159 : D0 EF | bne ozunid_3
|
||||
324 | 1 dlld.s 264 | Empty | 11 | | 0 | 00/215B |
|
||||
325 | 1 dlld.s 265 | Code | 11 | | 2 | 00/215B : A9 0D | sendCRS1 lda #{$0d} ; yes, add a final CR
|
||||
326 | 1 dlld.s 266 | Code | 11 | | 3 | 00/215D : 20 61 21 | jsr sendSerialCharacter
|
||||
327 | 1 dlld.s 267 | Code | 11 | | 1 | 00/2160 : 60 | sendCRS9 rts
|
||||
328 | 1 dlld.s 268 | Empty | 11 | | 0 | 00/2161 |
|
||||
329 | 1 dlld.s 269 | Comment | 11 | | 0 | 00/2161 | *---------- Send serial character
|
||||
330 | 1 dlld.s 270 | Empty | 11 | | 0 | 00/2161 |
|
||||
331 | 1 dlld.s 271 | Empty | 11 | | 0 | 00/2161 | sendSerialCharacter
|
||||
332 | 1 dlld.s 272 | Code | 11 | | 1 | 00/2161 : 48 | pha
|
||||
333 | 1 dlld.s 273 | Empty | 11 | | 0 | 00/2162 |
|
||||
334 | 1 dlld.s 274 | Code | 11 | | 3 | 00/2162 : 20 E3 20 | ozunid_4 jsr getSerialOutputStatus
|
||||
335 | 1 dlld.s 275 | Code | 11 | | 2 | 00/2165 : D0 04 | bne sensSC1
|
||||
336 | 1 dlld.s 276 | Empty | 11 | | 0 | 00/2167 |
|
||||
337 | 1 dlld.s 277 | Code | 11 | | 1 | 00/2167 : 68 | pla
|
||||
338 | 1 dlld.s 278 | Code | 11 | | 2 | 00/2168 : A9 01 | lda #1 ; return busy
|
||||
339 | 1 dlld.s 279 | Code | 11 | | 1 | 00/216A : 60 | rts
|
||||
340 | 1 dlld.s 280 | Empty | 11 | | 0 | 00/216B |
|
||||
341 | 1 dlld.s 281 | Code | 11 | | 1 | 00/216B : 68 | sensSC1 pla
|
||||
342 | 1 dlld.s 282 | Code | 11 | | 3 | 00/216C : 20 6F 21 | jsr writeSERIAL
|
||||
343 | 1 dlld.s 283 | Empty | 11 | | 0 | 00/216F |
|
||||
344 | 1 dlld.s 284 | Comment | 11 | | 0 | 00/216F | *---------- Send character
|
||||
345 | 1 dlld.s 285 | Empty | 11 | | 0 | 00/216F |
|
||||
346 | 1 dlld.s 286 | Empty | 11 | | 0 | 00/216F | writeSERIAL
|
||||
347 | 1 dlld.s 287 | Code | 11 | | 2 | 00/216F : A2 C2 | ldx #$c2
|
||||
348 | 1 dlld.s 288 | Code | 11 | | 2 | 00/2171 : A0 20 | ldy #$20
|
||||
349 | 1 dlld.s 289 | Code | 11 | | 3 | 00/2173 : 20 0F C1 | jsr $c10f
|
||||
350 | 1 dlld.s 290 | Code | 11 | | 2 | 00/2176 : E0 00 | cpx #0
|
||||
351 | 1 dlld.s 291 | Code | 11 | | 2 | 00/2178 : F0 02 | beq writeSER1
|
||||
352 | 1 dlld.s 292 | Code | 11 | | 2 | 00/217A : A2 02 | ldx #2
|
||||
353 | 1 dlld.s 293 | Code | 11 | | 1 | 00/217C : 8A | writeSER1 txa
|
||||
354 | 1 dlld.s 294 | Code | 11 | | 1 | 00/217D : 60 | rts
|
||||
355 | 1 dlld.s 295 | Empty | 11 | | 0 | 00/217E |
|
||||
356 | 1 dlld.s 296 | Comment | 11 | | 0 | 00/217E | *---------- Inquire if character has been received
|
||||
357 | 1 dlld.s 297 | Empty | 11 | | 0 | 00/217E |
|
||||
358 | 1 dlld.s 298 | Empty | 11 | | 0 | 00/217E | statusSERIAL
|
||||
359 | 1 dlld.s 299 | Code | 11 | | 2 | 00/217E : A2 C2 | ldx #$c2
|
||||
360 | 1 dlld.s 300 | Code | 11 | | 2 | 00/2180 : A0 20 | ldy #$20
|
||||
361 | 1 dlld.s 301 | Code | 11 | | 3 | 00/2182 : 20 10 C1 | jsr $c110
|
||||
362 | 1 dlld.s 302 | Code | 11 | | 2 | 00/2185 : E0 00 | cpx #0
|
||||
363 | 1 dlld.s 303 | Code | 11 | | 2 | 00/2187 : F0 02 | beq statusSER1
|
||||
364 | 1 dlld.s 304 | Code | 11 | | 2 | 00/2189 : A2 02 | ldx #2
|
||||
365 | 1 dlld.s 305 | Code | 11 | | 1 | 00/218B : 8A | statusSER1 txa
|
||||
366 | 1 dlld.s 306 | Code | 11 | | 1 | 00/218C : 60 | rts
|
||||
367 | 1 dlld.s 307 | Empty | 11 | | 0 | 00/218D |
|
||||
368 | 1 dlld.s 308 | Comment | 11 | | 0 | 00/218D | *---------- Receive a LD answer
|
||||
369 | 1 dlld.s 309 | Empty | 11 | | 0 | 00/218D |
|
||||
370 | 1 dlld.s 310 | Empty | 11 | | 0 | 00/218D | receiveLDAnswer
|
||||
371 | 1 dlld.s 311 | Code | 11 | | 2 | 00/218D : A2 23 | ldx #>responseBUF
|
||||
372 | 1 dlld.s 312 | Code | 11 | | 2 | 00/218F : A0 00 | ldy #<responseBUF
|
||||
373 | 1 dlld.s 313 | Code | 11 | | 3 | 00/2191 : 20 9D 21 | jsr receiveSTRING
|
||||
374 | 1 dlld.s 314 | Empty | 11 | | 0 | 00/2194 |
|
||||
375 | 1 dlld.s 315 | Code | 11 | | 3 | 00/2194 : AD 00 23 | lda responseBUF
|
||||
376 | 1 dlld.s 316 | Code | 11 | | 2 | 00/2197 : 09 80 | ora #$80
|
||||
377 | 1 dlld.s 317 | Code | 11 | | 3 | 00/2199 : 20 ED FD | jsr {$fded}
|
||||
378 | 1 dlld.s 318 | Code | 11 | | 1 | 00/219C : 60 | rts
|
||||
379 | 1 dlld.s 319 | Empty | 11 | | 0 | 00/219D |
|
||||
380 | 1 dlld.s 320 | Comment | 11 | | 0 | 00/219D | *---------- Receive String
|
||||
381 | 1 dlld.s 321 | Empty | 11 | | 0 | 00/219D |
|
||||
382 | 1 dlld.s 322 | Empty | 11 | | 0 | 00/219D | receiveSTRING
|
||||
383 | 1 dlld.s 323 | Code | 11 | | 2 | 00/219D : 84 FE | sty {{$fc}+2}
|
||||
384 | 1 dlld.s 324 | Code | 11 | | 2 | 00/219F : 86 FF | stx {{$fc}+2}+1
|
||||
385 | 1 dlld.s 325 | Empty | 11 | | 0 | 00/21A1 |
|
||||
386 | 1 dlld.s 326 | Code | 11 | | 3 | 00/21A1 : 20 C8 20 | ozunid_5 jsr checkInputReady
|
||||
387 | 1 dlld.s 327 | Code | 11 | | 2 | 00/21A4 : C9 01 | cmp #1
|
||||
388 | 1 dlld.s 328 | Code | 11 | | 2 | 00/21A6 : D0 01 | bne receiveSTR1
|
||||
389 | 1 dlld.s 329 | Code | 11 | | 1 | 00/21A8 : 60 | rts
|
||||
390 | 1 dlld.s 330 | Empty | 11 | | 0 | 00/21A9 |
|
||||
391 | 1 dlld.s 331 | Code | 11 | | 3 | 00/21A9 : 20 1E 21 | receiveSTR1 jsr readSERIAL
|
||||
392 | 1 dlld.s 332 | Code | 11 | | 2 | 00/21AC : 90 03 | bcc receiveSTR2
|
||||
393 | 1 dlld.s 333 | Code | 11 | | 2 | 00/21AE : A9 02 | lda #2
|
||||
394 | 1 dlld.s 334 | Code | 11 | | 1 | 00/21B0 : 60 | rts
|
||||
395 | 1 dlld.s 335 | Empty | 11 | | 0 | 00/21B1 |
|
||||
396 | 1 dlld.s 336 | Code | 11 | | 2 | 00/21B1 : 92 FE | receiveSTR2 sta ({{$fc}+2})
|
||||
397 | 1 dlld.s 337 | Code | 11 | | 2 | 00/21B3 : C9 0D | cmp #{$0d}
|
||||
398 | 1 dlld.s 338 | Code | 11 | | 2 | 00/21B5 : F0 08 | beq receiveSTR3
|
||||
399 | 1 dlld.s 339 | Empty | 11 | | 0 | 00/21B7 |
|
||||
400 | 1 dlld.s 340 | Code | 11 | | 2 | 00/21B7 : E6 FE | inc {{$fc}+2}
|
||||
401 | 1 dlld.s 341 | Code | 11 | | 2 | 00/21B9 : D0 E6 | bne ozunid_5
|
||||
402 | 1 dlld.s 342 | Code | 11 | | 2 | 00/21BB : E6 FF | inc {{$fc}+2}+1
|
||||
403 | 1 dlld.s 343 | Code | 11 | | 2 | 00/21BD : D0 E2 | bne ozunid_5
|
||||
404 | 1 dlld.s 344 | Empty | 11 | | 0 | 00/21BF |
|
||||
405 | 1 dlld.s 345 | Code | 11 | | 2 | 00/21BF : A9 00 | receiveSTR3 lda #0
|
||||
406 | 1 dlld.s 346 | Code | 11 | | 1 | 00/21C1 : 60 | rts
|
||||
407 | 1 dlld.s 347 | Empty | 11 | | 0 | 00/21C2 |
|
||||
408 | 1 dlld.s 348 | Comment | 11 | | 0 | 00/21C2 | *---------- Receive string
|
||||
409 | 1 dlld.s 349 | Empty | 11 | | 0 | 00/21C2 |
|
||||
410 | 1 dlld.s 350 | Empty | 11 | | 0 | 00/21C2 | receiveSERIAL
|
||||
411 | 1 dlld.s 351 | Code | 11 | | 2 | 00/21C2 : 84 FE | sty {{$fc}+2}
|
||||
412 | 1 dlld.s 352 | Code | 11 | | 2 | 00/21C4 : 86 FF | stx {{$fc}+2}+1
|
||||
413 | 1 dlld.s 353 | Empty | 11 | | 0 | 00/21C6 |
|
||||
414 | 1 dlld.s 354 | Code | 11 | | 1 | 00/21C6 : EA | ozunid_6 nop
|
||||
415 | 1 dlld.s 355 | Code | 11 | | 1 | 00/21C7 : EA | nop
|
||||
416 | 1 dlld.s 356 | Code | 11 | | 2 | 00/21C8 : A9 01 | lda #1
|
||||
417 | 1 dlld.s 357 | Code | 11 | | 3 | 00/21CA : 20 7E 21 | jsr statusSERIAL
|
||||
418 | 1 dlld.s 358 | Code | 11 | | 2 | 00/21CD : 90 F7 | bcc ozunid_6
|
||||
419 | 1 dlld.s 359 | Empty | 11 | | 0 | 00/21CF |
|
||||
420 | 1 dlld.s 360 | Code | 11 | | 1 | 00/21CF : EA | nop
|
||||
421 | 1 dlld.s 361 | Code | 11 | | 1 | 00/21D0 : 18 | clc
|
||||
422 | 1 dlld.s 362 | Code | 11 | | 3 | 00/21D1 : 20 1E 21 | jsr readSERIAL
|
||||
423 | 1 dlld.s 363 | Code | 11 | | 2 | 00/21D4 : 29 7F | and #$7f
|
||||
424 | 1 dlld.s 364 | Code | 11 | | 1 | 00/21D6 : 48 | pha
|
||||
425 | 1 dlld.s 365 | Code | 11 | | 2 | 00/21D7 : 09 80 | ora #$80
|
||||
426 | 1 dlld.s 366 | Code | 11 | | 3 | 00/21D9 : 20 ED FD | jsr {$fded}
|
||||
427 | 1 dlld.s 367 | Code | 11 | | 1 | 00/21DC : 68 | pla
|
||||
428 | 1 dlld.s 368 | Code | 11 | | 2 | 00/21DD : C9 20 | cmp #{$20}
|
||||
429 | 1 dlld.s 369 | Code | 11 | | 2 | 00/21DF : B0 E5 | bcs ozunid_6
|
||||
430 | 1 dlld.s 370 | Code | 11 | | 1 | 00/21E1 : 60 | rts
|
||||
431 | 1 dlld.s 371 | Empty | 11 | | 0 | 00/21E2 |
|
||||
432 | 1 dlld.s 372 | Code | 11 | | 2 | 00/21E2 : A0 00 | ldy #0
|
||||
433 | 1 dlld.s 373 | Code | 11 | | 1 | 00/21E4 : 5A | receiveSER1 phy
|
||||
434 | 1 dlld.s 374 | Code | 11 | | 2 | 00/21E5 : A9 01 | ozunid_7 lda #1 ; Do you have input ready?
|
||||
435 | 1 dlld.s 375 | Code | 11 | | 3 | 00/21E7 : 20 7E 21 | jsr statusSERIAL
|
||||
436 | 1 dlld.s 376 | Code | 11 | | 2 | 00/21EA : 90 F9 | bcc ozunid_7 ; no
|
||||
437 | 1 dlld.s 377 | Code | 11 | | 3 | 00/21EC : 20 1E 21 | jsr readSERIAL ; yes, jump below
|
||||
438 | 1 dlld.s 378 | Code | 11 | | 1 | 00/21EF : 7A | ply
|
||||
439 | 1 dlld.s 379 | Code | 11 | | 2 | 00/21F0 : 91 FE | sta ({{$fc}+2}),y
|
||||
440 | 1 dlld.s 380 | Code | 11 | | 2 | 00/21F2 : C9 0D | cmp #{$0d}
|
||||
441 | 1 dlld.s 381 | Code | 11 | | 2 | 00/21F4 : F0 07 | beq receiveSER9
|
||||
442 | 1 dlld.s 382 | Code | 11 | | 2 | 00/21F6 : C9 0A | cmp #{$0a}
|
||||
443 | 1 dlld.s 383 | Code | 11 | | 2 | 00/21F8 : F0 03 | beq receiveSER9
|
||||
444 | 1 dlld.s 384 | Code | 11 | | 1 | 00/21FA : C8 | iny
|
||||
445 | 1 dlld.s 385 | Code | 11 | | 2 | 00/21FB : D0 E7 | bne receiveSER1
|
||||
446 | 1 dlld.s 386 | Code | 11 | | 1 | 00/21FD : 60 | receiveSER9 rts
|
||||
447 | 1 dlld.s 387 | Empty | 11 | | 0 | 00/21FE |
|
||||
448 | 1 dlld.s 388 | Comment | 11 | | 0 | 00/21FE | *---------- Send string
|
||||
449 | 1 dlld.s 389 | Empty | 11 | | 0 | 00/21FE |
|
||||
450 | 1 dlld.s 390 | Code | 11 | | 2 | 00/21FE : 84 FC | sendSERIAL sty {$fc}
|
||||
451 | 1 dlld.s 391 | Code | 11 | | 2 | 00/2200 : 86 FD | stx {$fc}+1
|
||||
452 | 1 dlld.s 392 | Empty | 11 | | 0 | 00/2202 |
|
||||
453 | 1 dlld.s 393 | Code | 11 | | 2 | 00/2202 : A0 00 | ldy #0
|
||||
454 | 1 dlld.s 394 | Code | 11 | | 2 | 00/2204 : B1 FC | sendSERIAL1 lda ({$fc}),y
|
||||
455 | 1 dlld.s 395 | Code | 11 | | 2 | 00/2206 : F0 11 | beq sendSERIAL9
|
||||
456 | 1 dlld.s 396 | Code | 11 | | 1 | 00/2208 : 5A | phy
|
||||
457 | 1 dlld.s 397 | Code | 11 | | 1 | 00/2209 : 48 | pha
|
||||
458 | 1 dlld.s 398 | Empty | 11 | | 0 | 00/220A |
|
||||
459 | 1 dlld.s 399 | Code | 11 | | 2 | 00/220A : A9 00 | ozunid_8 lda #0 ; Are you ready to accept output?
|
||||
460 | 1 dlld.s 400 | Code | 11 | | 3 | 00/220C : 20 7E 21 | jsr statusSERIAL
|
||||
461 | 1 dlld.s 401 | Code | 11 | | 2 | 00/220F : 90 F9 | bcc ozunid_8 ; no
|
||||
462 | 1 dlld.s 402 | Empty | 11 | | 0 | 00/2211 |
|
||||
463 | 1 dlld.s 403 | Code | 11 | | 1 | 00/2211 : 68 | pla
|
||||
464 | 1 dlld.s 404 | Code | 11 | | 3 | 00/2212 : 20 6F 21 | jsr writeSERIAL
|
||||
465 | 1 dlld.s 405 | Code | 11 | | 1 | 00/2215 : 7A | ply
|
||||
466 | 1 dlld.s 406 | Code | 11 | | 1 | 00/2216 : C8 | iny
|
||||
467 | 1 dlld.s 407 | Code | 11 | | 2 | 00/2217 : D0 EB | bne sendSERIAL1 ; limit to 256 characters
|
||||
468 | 1 dlld.s 408 | Code | 11 | | 1 | 00/2219 : 60 | sendSERIAL9 rts
|
||||
469 | 1 dlld.s 409 | Empty | 11 | | 0 | 00/221A |
|
||||
470 | 1 dlld.s 410 | Comment | 11 | | 0 | 00/221A | *-----------------------------------
|
||||
471 | 1 dlld.s 411 | Comment | 11 | | 0 | 00/221A | * DATA
|
||||
472 | 1 dlld.s 412 | Comment | 11 | | 0 | 00/221A | *-----------------------------------
|
||||
473 | 1 dlld.s 413 | Empty | 11 | | 0 | 00/221A |
|
||||
474 | 1 dlld.s 414 | Comment | 11 | | 0 | 00/221A | *---------- Serial data
|
||||
475 | 1 dlld.s 415 | Empty | 11 | | 0 | 00/221A |
|
||||
476 | 1 dlld.s 416 | Data | 11 | | 3 | 00/221A : 45 44 00 | strED asc 'ED'00 ; *Don't echo output
|
||||
477 | 1 dlld.s 417 | Data | 11 | | 3 | 00/221D : 42 45 00 | strBE asc 'BE'00 ; *Input buffering: on
|
||||
478 | 1 dlld.s 418 | Data | 11 | | 4 | 00/2220 : 31 32 42 00 | str12B asc '12B'00 ; *Baud rate: 4800 BPS
|
||||
479 | 1 dlld.s 419 | Data | 11 | | 3 | 00/2224 : 30 44 00 | str0D asc '0D'00 ; *Data/Stop bits: 8/1
|
||||
480 | 1 dlld.s 420 | Data | 11 | | 3 | 00/2227 : 30 50 00 | str0P asc '0P'00 ; *Parity: none
|
||||
481 | 1 dlld.s 421 | Data | 11 | | 3 | 00/222A : 30 4E 00 | str0N asc '0N'00 ; Line length: 0
|
||||
482 | 1 dlld.s 422 | Data | 11 | | 3 | 00/222D : 41 44 00 | strAD asc 'AD'00 ; *Do not implement basic tabs
|
||||
483 | 1 dlld.s 423 | Data | 11 | | 3 | 00/2230 : 43 44 00 | strCD asc 'CD'00 ; *Disable line formatting
|
||||
484 | 1 dlld.s 424 | Data | 11 | | 3 | 00/2233 : 58 44 00 | strXD asc 'XD'00 ; *Ignore XOFF
|
||||
485 | 1 dlld.s 425 | Data | 11 | | 3 | 00/2236 : 46 44 00 | strFD asc 'FD'00 ; *Disable keyboard input
|
||||
486 | 1 dlld.s 426 | Data | 11 | | 3 | 00/2239 : 4C 44 00 | strLD asc 'LD'00 ; Do not add line feeds after CR
|
||||
487 | 1 dlld.s 427 | Data | 11 | | 3 | 00/223C : 4D 45 00 | strME asc 'ME'00 ; Mask line feed in
|
||||
488 | 1 dlld.s 428 | Data | 11 | | 2 | 00/223F : 5A 00 | strZ asc 'Z'00 ; *Suppress control characters
|
||||
489 | 1 dlld.s 429 | Empty | 11 | | 0 | 00/2241 |
|
||||
490 | 1 dlld.s 430 | Comment | 11 | | 0 | 00/2241 | *---------- Laserdisc
|
||||
491 | 1 dlld.s 431 | Empty | 11 | | 0 | 00/2241 |
|
||||
492 | 1 dlld.s 432 | Data | 11 | | 7 | 00/2241 : 31 44 53 20 | strDS asc '1DS CS'00
|
||||
| | | | | | 43 53 00 |
|
||||
493 | 1 dlld.s 433 | Data | 11 | | 8 | 00/2248 : 41 4E 54 4F | strAV asc 'ANTOINE'00
|
||||
| | | | | | 49 4E 45 00 |
|
||||
494 | 1 dlld.s 434 | Data | 11 | | 3 | 00/2250 : 43 4F 00 | strCO asc 'CO'00
|
||||
495 | 1 dlld.s 435 | Data | 11 | | 3 | 00/2253 : 53 41 00 | strSA asc 'SA'00
|
||||
496 | 1 dlld.s 436 | Data | 11 | | 3 | 00/2256 : 50 4C 00 | strPL asc 'PL'00
|
||||
497 | 1 dlld.s 437 | Data | 11 | | 3 | 00/2259 : 24 43 00 | strC asc '$C'00
|
||||
498 | 1 dlld.s 438 | Empty | 11 | | 0 | 00/225C |
|
||||
499 | 1 dlld.s 439 | Data | 11 | | 164 | 00/225C : 00 00 00 00 | ds \
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
500 | 1 dlld.s 440 | Empty | 11 | | 0 | 00/2300 |
|
||||
501 | 1 dlld.s 441 | Data | 11 | | 256 | 00/2300 : 00 00 00 00 | responseBUF ds 256 ; LD player response
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
502 | 1 dlld.s 442 | Empty | 11 | | 0 | 00/2400 |
|
||||
503 | 1 dlld.s 443 | Comment | 11 | | 0 | 00/2400 | *-----------------------------------
|
||||
504 | 1 dlld.s 444 | Comment | 11 | | 0 | 00/2400 | * END OF CODE
|
||||
505 | 1 dlld.s 445 | Comment | 11 | | 0 | 00/2400 | *-----------------------------------
|
||||
506 | 1 dlld.s 446 | Empty | 11 | | 0 | 00/2400 |
|
||||
507 | 1 dlld.s 447 | Empty | 11 | | 0 | 00/2400 |
|
||||
------+------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
Binary file not shown.
|
|
@ -0,0 +1,266 @@
|
|||
* XC
|
||||
* TR
|
||||
* TR ADR
|
||||
*
|
||||
|
||||
mx %11
|
||||
org $2000
|
||||
lst off
|
||||
|
||||
COUT = $fded
|
||||
|
||||
* GS Port Driver Bios
|
||||
* written by Andy Nicholas on July 26, 1987
|
||||
*
|
||||
* History:
|
||||
*
|
||||
* 11/07/89 AMW
|
||||
* 1. History section added
|
||||
* 2. Checked and or modified for LLUCE
|
||||
* 3. Section titles added
|
||||
*
|
||||
* 11/10/89 AMW
|
||||
* Added interrupt buffers
|
||||
*--------------------------
|
||||
* rel
|
||||
*SLOT KBD 'Slot to assemble for (1/2)'
|
||||
SLOT = 2
|
||||
N0 = SLOT*16
|
||||
CN = SLOT!$C0
|
||||
SLTADR = SLOT!$C0*256
|
||||
FLAG = SLOT-1
|
||||
|
||||
CR = $0d
|
||||
LF = $0a
|
||||
|
||||
jsr INIT
|
||||
jsr SETSPEED
|
||||
ldx #>strSA
|
||||
ldy #<strSA
|
||||
jsr sendSTRING
|
||||
jsr receiveSTRING
|
||||
|
||||
ldx #>strPL
|
||||
ldy #<strPL
|
||||
jsr sendSTRING
|
||||
jsr receiveSTRING
|
||||
rts
|
||||
|
||||
receiveSTRING
|
||||
]lp jsr INP
|
||||
beq receive9
|
||||
cmp #CR
|
||||
beq receive9
|
||||
ora #$80
|
||||
jsr COUT
|
||||
bra ]lp
|
||||
receive9 rts
|
||||
|
||||
sendSTRING sty sendstr1+1
|
||||
stx sendstr1+2
|
||||
|
||||
ldx #0
|
||||
sendstr1 lda $bdbd,x
|
||||
beq sendstr2
|
||||
jsr OUT
|
||||
inx
|
||||
bne sendstr1
|
||||
|
||||
sendstr2 lda #CR
|
||||
jsr OUT
|
||||
rts
|
||||
|
||||
strSA asc 'SA'00
|
||||
strPL asc 'PL'00
|
||||
|
||||
*-------------------------------
|
||||
*-------------------------------
|
||||
|
||||
MODEM DB N0 ;serial card slot * 16
|
||||
INITSPD DB 0 ;init speed for modem
|
||||
CALLSPD DB 0 ;Speed of current call
|
||||
|
||||
BYTCNT DB 0,0,0
|
||||
|
||||
DOINIT JMP SLTADR
|
||||
DOREAD JMP SLTADR
|
||||
DOWRITE JMP SLTADR
|
||||
DOSTATUS JMP SLTADR
|
||||
DOEXT JMP SLTADR
|
||||
|
||||
* init the serial port pascal locations
|
||||
*-------------------------------
|
||||
|
||||
INIT LDA SLTADR+$D ;get init address
|
||||
STA DOINIT+1
|
||||
LDA SLTADR+$E ;get read address
|
||||
STA DOREAD+1
|
||||
LDA SLTADR+$F ;get write address
|
||||
STA DOWRITE+1
|
||||
LDA SLTADR+$10 ;get status address
|
||||
STA DOSTATUS+1
|
||||
LDA SLTADR+$12
|
||||
STA DOEXT+1
|
||||
|
||||
RTS
|
||||
|
||||
* input data
|
||||
*-------------------------------
|
||||
|
||||
INP PHX ;Save x
|
||||
PHY
|
||||
LDX #CN ;are we ready?
|
||||
LDY #N0
|
||||
LDA #1
|
||||
JSR DOSTATUS
|
||||
BCC :INP2 ;nope, exit
|
||||
|
||||
LDX #CN ;yes, read
|
||||
LDY #N0
|
||||
JSR DOREAD
|
||||
|
||||
SEC
|
||||
:INP1 PLY
|
||||
PLX ;Restore & return
|
||||
RTS
|
||||
|
||||
:INP2 LDA #0
|
||||
BRA :INP1
|
||||
|
||||
* output data
|
||||
*-------------------------------
|
||||
|
||||
OUT PHX ;Save x
|
||||
PHY ;Save y
|
||||
PHA ;Save a
|
||||
|
||||
:OUT1 LDX #CN ;ready for send?
|
||||
LDY #N0
|
||||
LDA #0
|
||||
JSR DOSTATUS
|
||||
BCC :OUT1 ;nope
|
||||
|
||||
PLA ;Get a
|
||||
LDX #CN
|
||||
LDY #N0
|
||||
JSR DOWRITE ;send it
|
||||
|
||||
PLY ;Get y
|
||||
PLX ;Get x
|
||||
RTS
|
||||
|
||||
* wait routine
|
||||
*-------------------------------
|
||||
|
||||
WAIT SEC ;from apple ][+ ref man - pg 147
|
||||
:WAIT2 PHA
|
||||
:WAIT3 SBC #1
|
||||
BNE :WAIT3
|
||||
PLA
|
||||
SBC #1
|
||||
BNE :WAIT2
|
||||
RTS
|
||||
|
||||
* set the rs-232 speed [speed offset in Y]
|
||||
*
|
||||
* 0 = 300 baud
|
||||
* 1 = 1200 baud
|
||||
* 2 = 2400 baud
|
||||
* 3 = 4800 baud
|
||||
* 4 = 9600 baud
|
||||
* 5 = 19200 baud
|
||||
*-------------------------------
|
||||
|
||||
SETSPEED LDX #<B4800
|
||||
LDA #>B4800
|
||||
|
||||
:SETBAUD STX :BAUDRD+1
|
||||
STA :BAUDRD+2
|
||||
|
||||
LDX #CN
|
||||
LDY #N0
|
||||
JSR DOINIT
|
||||
|
||||
LDX #0
|
||||
:BAUDRD LDA -1,X
|
||||
BEQ :FINISH
|
||||
JSR OUT
|
||||
INX
|
||||
BRA :BAUDRD
|
||||
|
||||
:FINISH LDX #0
|
||||
:LOOP LDA PORTINIT,X
|
||||
BEQ :DONE
|
||||
JSR OUT
|
||||
INX
|
||||
BRA :LOOP
|
||||
|
||||
:DONE LDA #<OUT_BUF
|
||||
LDX #>OUT_BUF
|
||||
LDY #0
|
||||
JSR DOEXT
|
||||
|
||||
RTS
|
||||
|
||||
PORTINIT DB 1
|
||||
ASC '0D' ;8 bits
|
||||
DB 1
|
||||
ASC '0P' ;no parity
|
||||
* db 1
|
||||
* asc '0N'
|
||||
db 1
|
||||
asc 'LD'
|
||||
db 1
|
||||
asc 'ME'
|
||||
DB 1
|
||||
ASC 'AD' ;auto-tabbing
|
||||
DB 1
|
||||
ASC 'XD' ;no xoff recognition
|
||||
DB 1
|
||||
ASC 'FD' ;no find keyboard
|
||||
DB 1
|
||||
ASC 'CD' ;no column overflow
|
||||
DB 1
|
||||
ASC 'ED' ;echo disabled
|
||||
* DB 1
|
||||
* ASC 'MD' ;no lf masking
|
||||
DB 1
|
||||
ASC 'BE' ;buffering enabled
|
||||
DB 1
|
||||
ASC 'Z'
|
||||
DB 0 ;no more control characters
|
||||
|
||||
B4800 DB 1
|
||||
ASC '12B'00 ;accept 4800 Baud
|
||||
|
||||
*-------------------------------
|
||||
|
||||
OUT_BUF DB 4 ;Parameters to set the
|
||||
DB $13 ;Output buffer
|
||||
DA 0
|
||||
ADRL BUFFER ;Buffer it where
|
||||
DA 2 ;Buffer 2 bytes
|
||||
|
||||
*-------------------------------
|
||||
|
||||
CARRLIST DB 3 ;Parameter list for
|
||||
DB 6 ;detecting carrier drop
|
||||
DA 0
|
||||
CARRBITS DA 0 ;Carrier status here
|
||||
|
||||
*-------------------------------
|
||||
|
||||
DTRLST DB 3 ;Parameter list for
|
||||
DB $B ;setting DTR
|
||||
DA 0
|
||||
DTRSTATE DA 0 ;Bit 7 affects DTR
|
||||
|
||||
*-------------------------------
|
||||
|
||||
FLUSHLST DB 2 ;parameter list for flushing input queue
|
||||
DB $14
|
||||
DA 0
|
||||
|
||||
*-------------------------------
|
||||
|
||||
BUFFER ds 256
|
||||
|
|
@ -0,0 +1,334 @@
|
|||
------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code
|
||||
------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
1 | 1 gsport.s 1 | Comment | 11 | | 0 | 00/8000 | * XC
|
||||
2 | 1 gsport.s 2 | Comment | 11 | | 0 | 00/8000 | * TR
|
||||
3 | 1 gsport.s 3 | Comment | 11 | | 0 | 00/8000 | * TR ADR
|
||||
4 | 1 gsport.s 4 | Comment | 11 | | 0 | 00/8000 | *
|
||||
5 | 1 gsport.s 5 | Empty | 11 | | 0 | 00/8000 |
|
||||
6 | 1 gsport.s 6 | Directive | 11 | | 0 | 00/8000 | mx %11
|
||||
7 | 1 gsport.s 7 | Directive | 11 | | 0 | 00/8000 | org $2000
|
||||
8 | 1 gsport.s 8 | Directive | 11 | | 0 | 00/2000 | lst off
|
||||
9 | 1 gsport.s 9 | Empty | 11 | | 0 | 00/2000 |
|
||||
10 | 1 gsport.s 10 | Equivalence | 11 | | 0 | 00/2000 | COUT = $fded
|
||||
11 | 1 gsport.s 11 | Empty | 11 | | 0 | 00/2000 |
|
||||
12 | 1 gsport.s 12 | Comment | 11 | | 0 | 00/2000 | * GS Port Driver Bios
|
||||
13 | 1 gsport.s 13 | Comment | 11 | | 0 | 00/2000 | * written by Andy Nicholas on July 26, 1987
|
||||
14 | 1 gsport.s 14 | Comment | 11 | | 0 | 00/2000 | *
|
||||
15 | 1 gsport.s 15 | Comment | 11 | | 0 | 00/2000 | * History:
|
||||
16 | 1 gsport.s 16 | Comment | 11 | | 0 | 00/2000 | *
|
||||
17 | 1 gsport.s 17 | Comment | 11 | | 0 | 00/2000 | * 11/07/89 AMW
|
||||
18 | 1 gsport.s 18 | Comment | 11 | | 0 | 00/2000 | * 1. History section added
|
||||
19 | 1 gsport.s 19 | Comment | 11 | | 0 | 00/2000 | * 2. Checked and or modified for LLUCE
|
||||
20 | 1 gsport.s 20 | Comment | 11 | | 0 | 00/2000 | * 3. Section titles added
|
||||
21 | 1 gsport.s 21 | Comment | 11 | | 0 | 00/2000 | *
|
||||
22 | 1 gsport.s 22 | Comment | 11 | | 0 | 00/2000 | * 11/10/89 AMW
|
||||
23 | 1 gsport.s 23 | Comment | 11 | | 0 | 00/2000 | * Added interrupt buffers
|
||||
24 | 1 gsport.s 24 | Comment | 11 | | 0 | 00/2000 | *--------------------------
|
||||
25 | 1 gsport.s 25 | Comment | 11 | | 0 | 00/2000 | * rel
|
||||
26 | 1 gsport.s 26 | Comment | 11 | | 0 | 00/2000 | *SLOT KBD 'Slot to assemble for (1/2)'
|
||||
27 | 1 gsport.s 27 | Equivalence | 11 | | 0 | 00/2000 | SLOT = 2
|
||||
28 | 1 gsport.s 28 | Equivalence | 11 | | 0 | 00/2000 | N0 = {2}*16
|
||||
29 | 1 gsport.s 29 | Equivalence | 11 | | 0 | 00/2000 | CN = {2}!$C0
|
||||
30 | 1 gsport.s 30 | Equivalence | 11 | | 0 | 00/2000 | SLTADR = {2}!$C0*256
|
||||
31 | 1 gsport.s 31 | Equivalence | 11 | | 0 | 00/2000 | FLAG = {2}-1
|
||||
32 | 1 gsport.s 32 | Empty | 11 | | 0 | 00/2000 |
|
||||
33 | 1 gsport.s 33 | Equivalence | 11 | | 0 | 00/2000 | CR = $0d
|
||||
34 | 1 gsport.s 34 | Equivalence | 11 | | 0 | 00/2000 | LF = $0a
|
||||
35 | 1 gsport.s 35 | Empty | 11 | | 0 | 00/2000 |
|
||||
36 | 1 gsport.s 36 | Code | 11 | | 3 | 00/2000 : 20 60 20 | jsr INIT
|
||||
37 | 1 gsport.s 37 | Code | 11 | | 3 | 00/2003 : 20 C0 20 | jsr SETSPEED
|
||||
38 | 1 gsport.s 38 | Code | 11 | | 2 | 00/2006 : A2 20 | ldx #>strSA
|
||||
39 | 1 gsport.s 39 | Code | 11 | | 2 | 00/2008 : A0 45 | ldy #<strSA
|
||||
40 | 1 gsport.s 40 | Code | 11 | | 3 | 00/200A : 20 2C 20 | jsr sendSTRING
|
||||
41 | 1 gsport.s 41 | Code | 11 | | 3 | 00/200D : 20 1B 20 | jsr receiveSTRING
|
||||
42 | 1 gsport.s 42 | Empty | 11 | | 0 | 00/2010 |
|
||||
43 | 1 gsport.s 43 | Code | 11 | | 2 | 00/2010 : A2 20 | ldx #>strPL
|
||||
44 | 1 gsport.s 44 | Code | 11 | | 2 | 00/2012 : A0 48 | ldy #<strPL
|
||||
45 | 1 gsport.s 45 | Code | 11 | | 3 | 00/2014 : 20 2C 20 | jsr sendSTRING
|
||||
46 | 1 gsport.s 46 | Code | 11 | | 3 | 00/2017 : 20 1B 20 | jsr receiveSTRING
|
||||
47 | 1 gsport.s 47 | Code | 11 | | 1 | 00/201A : 60 | rts
|
||||
48 | 1 gsport.s 48 | Empty | 11 | | 0 | 00/201B |
|
||||
49 | 1 gsport.s 49 | Empty | 11 | | 0 | 00/201B | receiveSTRING
|
||||
50 | 1 gsport.s 50 | Code | 11 | | 3 | 00/201B : 20 7F 20 | ozunid_1 jsr INP
|
||||
51 | 1 gsport.s 51 | Code | 11 | | 2 | 00/201E : F0 0B | beq receive9
|
||||
52 | 1 gsport.s 52 | Code | 11 | | 2 | 00/2020 : C9 0D | cmp #{$0d}
|
||||
53 | 1 gsport.s 53 | Code | 11 | | 2 | 00/2022 : F0 07 | beq receive9
|
||||
54 | 1 gsport.s 54 | Code | 11 | | 2 | 00/2024 : 09 80 | ora #$80
|
||||
55 | 1 gsport.s 55 | Code | 11 | | 3 | 00/2026 : 20 ED FD | jsr {$fded}
|
||||
56 | 1 gsport.s 56 | Code | 11 | | 2 | 00/2029 : 80 F0 | bra ozunid_1
|
||||
57 | 1 gsport.s 57 | Code | 11 | | 1 | 00/202B : 60 | receive9 rts
|
||||
58 | 1 gsport.s 58 | Empty | 11 | | 0 | 00/202C |
|
||||
59 | 1 gsport.s 59 | Code | 11 | | 3 | 00/202C : 8C 35 20 | sendSTRING sty sendstr1+1
|
||||
60 | 1 gsport.s 60 | Code | 11 | | 3 | 00/202F : 8E 36 20 | stx sendstr1+2
|
||||
61 | 1 gsport.s 61 | Empty | 11 | | 0 | 00/2032 |
|
||||
62 | 1 gsport.s 62 | Code | 11 | | 2 | 00/2032 : A2 00 | ldx #0
|
||||
63 | 1 gsport.s 63 | Code | 11 | | 3 | 00/2034 : BD BD BD | sendstr1 lda $bdbd,x
|
||||
64 | 1 gsport.s 64 | Code | 11 | | 2 | 00/2037 : F0 06 | beq sendstr2
|
||||
65 | 1 gsport.s 65 | Code | 11 | | 3 | 00/2039 : 20 9B 20 | jsr OUT
|
||||
66 | 1 gsport.s 66 | Code | 11 | | 1 | 00/203C : E8 | inx
|
||||
67 | 1 gsport.s 67 | Code | 11 | | 2 | 00/203D : D0 F5 | bne sendstr1
|
||||
68 | 1 gsport.s 68 | Empty | 11 | | 0 | 00/203F |
|
||||
69 | 1 gsport.s 69 | Code | 11 | | 2 | 00/203F : A9 0D | sendstr2 lda #{$0d}
|
||||
70 | 1 gsport.s 70 | Code | 11 | | 3 | 00/2041 : 20 9B 20 | jsr OUT
|
||||
71 | 1 gsport.s 71 | Code | 11 | | 1 | 00/2044 : 60 | rts
|
||||
72 | 1 gsport.s 72 | Empty | 11 | | 0 | 00/2045 |
|
||||
73 | 1 gsport.s 73 | Data | 11 | | 3 | 00/2045 : 53 41 00 | strSA asc 'SA'00
|
||||
74 | 1 gsport.s 74 | Data | 11 | | 3 | 00/2048 : 50 4C 00 | strPL asc 'PL'00
|
||||
75 | 1 gsport.s 75 | Empty | 11 | | 0 | 00/204B |
|
||||
76 | 1 gsport.s 76 | Comment | 11 | | 0 | 00/204B | *-------------------------------
|
||||
77 | 1 gsport.s 77 | Comment | 11 | | 0 | 00/204B | *-------------------------------
|
||||
78 | 1 gsport.s 78 | Empty | 11 | | 0 | 00/204B |
|
||||
79 | 1 gsport.s 79 | Data | 11 | | 1 | 00/204B : 20 | MODEM DB {{2}*16} ;serial card slot * 16
|
||||
80 | 1 gsport.s 80 | Data | 11 | | 1 | 00/204C : 00 | INITSPD DB 0 ;init speed for modem
|
||||
81 | 1 gsport.s 81 | Data | 11 | | 1 | 00/204D : 00 | CALLSPD DB 0 ;Speed of current call
|
||||
82 | 1 gsport.s 82 | Empty | 11 | | 0 | 00/204E |
|
||||
83 | 1 gsport.s 83 | Data | 11 | | 3 | 00/204E : 00 00 00 | BYTCNT DB 0,0,0
|
||||
84 | 1 gsport.s 84 | Empty | 11 | | 0 | 00/2051 |
|
||||
85 | 1 gsport.s 85 | Code | 11 | | 3 | 00/2051 : 4C 00 C2 | DOINIT JMP {{2}!$C0*256}
|
||||
86 | 1 gsport.s 86 | Code | 11 | | 3 | 00/2054 : 4C 00 C2 | DOREAD JMP {{2}!$C0*256}
|
||||
87 | 1 gsport.s 87 | Code | 11 | | 3 | 00/2057 : 4C 00 C2 | DOWRITE JMP {{2}!$C0*256}
|
||||
88 | 1 gsport.s 88 | Code | 11 | | 3 | 00/205A : 4C 00 C2 | DOSTATUS JMP {{2}!$C0*256}
|
||||
89 | 1 gsport.s 89 | Code | 11 | | 3 | 00/205D : 4C 00 C2 | DOEXT JMP {{2}!$C0*256}
|
||||
90 | 1 gsport.s 90 | Empty | 11 | | 0 | 00/2060 |
|
||||
91 | 1 gsport.s 91 | Comment | 11 | | 0 | 00/2060 | * init the serial port pascal locations
|
||||
92 | 1 gsport.s 92 | Comment | 11 | | 0 | 00/2060 | *-------------------------------
|
||||
93 | 1 gsport.s 93 | Empty | 11 | | 0 | 00/2060 |
|
||||
94 | 1 gsport.s 94 | Code | 11 | | 3 | 00/2060 : AD 0D C2 | INIT LDA {{2}!$C0*256}+$D ;get init address
|
||||
95 | 1 gsport.s 95 | Code | 11 | | 3 | 00/2063 : 8D 52 20 | STA DOINIT+1
|
||||
96 | 1 gsport.s 96 | Code | 11 | | 3 | 00/2066 : AD 0E C2 | LDA {{2}!$C0*256}+$E ;get read address
|
||||
97 | 1 gsport.s 97 | Code | 11 | | 3 | 00/2069 : 8D 55 20 | STA DOREAD+1
|
||||
98 | 1 gsport.s 98 | Code | 11 | | 3 | 00/206C : AD 0F C2 | LDA {{2}!$C0*256}+$F ;get write address
|
||||
99 | 1 gsport.s 99 | Code | 11 | | 3 | 00/206F : 8D 58 20 | STA DOWRITE+1
|
||||
100 | 1 gsport.s 100 | Code | 11 | | 3 | 00/2072 : AD 10 C2 | LDA {{2}!$C0*256}+$10;get status address
|
||||
101 | 1 gsport.s 101 | Code | 11 | | 3 | 00/2075 : 8D 5B 20 | STA DOSTATUS+1
|
||||
102 | 1 gsport.s 102 | Code | 11 | | 3 | 00/2078 : AD 12 C2 | LDA {{2}!$C0*256}+$12
|
||||
103 | 1 gsport.s 103 | Code | 11 | | 3 | 00/207B : 8D 5E 20 | STA DOEXT+1
|
||||
104 | 1 gsport.s 104 | Empty | 11 | | 0 | 00/207E |
|
||||
105 | 1 gsport.s 105 | Code | 11 | | 1 | 00/207E : 60 | RTS
|
||||
106 | 1 gsport.s 106 | Empty | 11 | | 0 | 00/207F |
|
||||
107 | 1 gsport.s 107 | Comment | 11 | | 0 | 00/207F | * input data
|
||||
108 | 1 gsport.s 108 | Comment | 11 | | 0 | 00/207F | *-------------------------------
|
||||
109 | 1 gsport.s 109 | Empty | 11 | | 0 | 00/207F |
|
||||
110 | 1 gsport.s 110 | Code | 11 | | 1 | 00/207F : DA | INP PHX ;Save x
|
||||
111 | 1 gsport.s 111 | Code | 11 | | 1 | 00/2080 : 5A | PHY
|
||||
112 | 1 gsport.s 112 | Code | 11 | | 2 | 00/2081 : A2 C2 | LDX #{{2}!$C0} ;are we ready?
|
||||
113 | 1 gsport.s 113 | Code | 11 | | 2 | 00/2083 : A0 20 | LDY #{{2}*16}
|
||||
114 | 1 gsport.s 114 | Code | 11 | | 2 | 00/2085 : A9 01 | LDA #1
|
||||
115 | 1 gsport.s 115 | Code | 11 | | 3 | 00/2087 : 20 5A 20 | JSR DOSTATUS
|
||||
116 | 1 gsport.s 116 | Code | 11 | | 2 | 00/208A : 90 0B | BCC _INP2 ;nope, exit
|
||||
117 | 1 gsport.s 117 | Empty | 11 | | 0 | 00/208C |
|
||||
118 | 1 gsport.s 118 | Code | 11 | | 2 | 00/208C : A2 C2 | LDX #{{2}!$C0} ;yes, read
|
||||
119 | 1 gsport.s 119 | Code | 11 | | 2 | 00/208E : A0 20 | LDY #{{2}*16}
|
||||
120 | 1 gsport.s 120 | Code | 11 | | 3 | 00/2090 : 20 54 20 | JSR DOREAD
|
||||
121 | 1 gsport.s 121 | Empty | 11 | | 0 | 00/2093 |
|
||||
122 | 1 gsport.s 122 | Code | 11 | | 1 | 00/2093 : 38 | SEC
|
||||
123 | 1 gsport.s 123 | Code | 11 | | 1 | 00/2094 : 7A | _INP1 PLY
|
||||
124 | 1 gsport.s 124 | Code | 11 | | 1 | 00/2095 : FA | PLX ;Restore & return
|
||||
125 | 1 gsport.s 125 | Code | 11 | | 1 | 00/2096 : 60 | RTS
|
||||
126 | 1 gsport.s 126 | Empty | 11 | | 0 | 00/2097 |
|
||||
127 | 1 gsport.s 127 | Code | 11 | | 2 | 00/2097 : A9 00 | _INP2 LDA #0
|
||||
128 | 1 gsport.s 128 | Code | 11 | | 2 | 00/2099 : 80 F9 | BRA _INP1
|
||||
129 | 1 gsport.s 129 | Empty | 11 | | 0 | 00/209B |
|
||||
130 | 1 gsport.s 130 | Comment | 11 | | 0 | 00/209B | * output data
|
||||
131 | 1 gsport.s 131 | Comment | 11 | | 0 | 00/209B | *-------------------------------
|
||||
132 | 1 gsport.s 132 | Empty | 11 | | 0 | 00/209B |
|
||||
133 | 1 gsport.s 133 | Code | 11 | | 1 | 00/209B : DA | OUT PHX ;Save x
|
||||
134 | 1 gsport.s 134 | Code | 11 | | 1 | 00/209C : 5A | PHY ;Save y
|
||||
135 | 1 gsport.s 135 | Code | 11 | | 1 | 00/209D : 48 | PHA ;Save a
|
||||
136 | 1 gsport.s 136 | Empty | 11 | | 0 | 00/209E |
|
||||
137 | 1 gsport.s 137 | Code | 11 | | 2 | 00/209E : A2 C2 | _OUT1 LDX #{{2}!$C0} ;ready for send?
|
||||
138 | 1 gsport.s 138 | Code | 11 | | 2 | 00/20A0 : A0 20 | LDY #{{2}*16}
|
||||
139 | 1 gsport.s 139 | Code | 11 | | 2 | 00/20A2 : A9 00 | LDA #0
|
||||
140 | 1 gsport.s 140 | Code | 11 | | 3 | 00/20A4 : 20 5A 20 | JSR DOSTATUS
|
||||
141 | 1 gsport.s 141 | Code | 11 | | 2 | 00/20A7 : 90 F5 | BCC _OUT1 ;nope
|
||||
142 | 1 gsport.s 142 | Empty | 11 | | 0 | 00/20A9 |
|
||||
143 | 1 gsport.s 143 | Code | 11 | | 1 | 00/20A9 : 68 | PLA ;Get a
|
||||
144 | 1 gsport.s 144 | Code | 11 | | 2 | 00/20AA : A2 C2 | LDX #{{2}!$C0}
|
||||
145 | 1 gsport.s 145 | Code | 11 | | 2 | 00/20AC : A0 20 | LDY #{{2}*16}
|
||||
146 | 1 gsport.s 146 | Code | 11 | | 3 | 00/20AE : 20 57 20 | JSR DOWRITE ;send it
|
||||
147 | 1 gsport.s 147 | Empty | 11 | | 0 | 00/20B1 |
|
||||
148 | 1 gsport.s 148 | Code | 11 | | 1 | 00/20B1 : 7A | PLY ;Get y
|
||||
149 | 1 gsport.s 149 | Code | 11 | | 1 | 00/20B2 : FA | PLX ;Get x
|
||||
150 | 1 gsport.s 150 | Code | 11 | | 1 | 00/20B3 : 60 | RTS
|
||||
151 | 1 gsport.s 151 | Empty | 11 | | 0 | 00/20B4 |
|
||||
152 | 1 gsport.s 152 | Comment | 11 | | 0 | 00/20B4 | * wait routine
|
||||
153 | 1 gsport.s 153 | Comment | 11 | | 0 | 00/20B4 | *-------------------------------
|
||||
154 | 1 gsport.s 154 | Empty | 11 | | 0 | 00/20B4 |
|
||||
155 | 1 gsport.s 155 | Code | 11 | | 1 | 00/20B4 : 38 | WAIT SEC ;from apple ][+ ref man - pg 147
|
||||
156 | 1 gsport.s 156 | Code | 11 | | 1 | 00/20B5 : 48 | _WAIT2 PHA
|
||||
157 | 1 gsport.s 157 | Code | 11 | | 2 | 00/20B6 : E9 01 | _WAIT3 SBC #1
|
||||
158 | 1 gsport.s 158 | Code | 11 | | 2 | 00/20B8 : D0 FC | BNE _WAIT3
|
||||
159 | 1 gsport.s 159 | Code | 11 | | 1 | 00/20BA : 68 | PLA
|
||||
160 | 1 gsport.s 160 | Code | 11 | | 2 | 00/20BB : E9 01 | SBC #1
|
||||
161 | 1 gsport.s 161 | Code | 11 | | 2 | 00/20BD : D0 F6 | BNE _WAIT2
|
||||
162 | 1 gsport.s 162 | Code | 11 | | 1 | 00/20BF : 60 | RTS
|
||||
163 | 1 gsport.s 163 | Empty | 11 | | 0 | 00/20C0 |
|
||||
164 | 1 gsport.s 164 | Comment | 11 | | 0 | 00/20C0 | * set the rs-232 speed [speed offset in Y]
|
||||
165 | 1 gsport.s 165 | Comment | 11 | | 0 | 00/20C0 | *
|
||||
166 | 1 gsport.s 166 | Comment | 11 | | 0 | 00/20C0 | * 0 = 300 baud
|
||||
167 | 1 gsport.s 167 | Comment | 11 | | 0 | 00/20C0 | * 1 = 1200 baud
|
||||
168 | 1 gsport.s 168 | Comment | 11 | | 0 | 00/20C0 | * 2 = 2400 baud
|
||||
169 | 1 gsport.s 169 | Comment | 11 | | 0 | 00/20C0 | * 3 = 4800 baud
|
||||
170 | 1 gsport.s 170 | Comment | 11 | | 0 | 00/20C0 | * 4 = 9600 baud
|
||||
171 | 1 gsport.s 171 | Comment | 11 | | 0 | 00/20C0 | * 5 = 19200 baud
|
||||
172 | 1 gsport.s 172 | Comment | 11 | | 0 | 00/20C0 | *-------------------------------
|
||||
173 | 1 gsport.s 173 | Empty | 11 | | 0 | 00/20C0 |
|
||||
174 | 1 gsport.s 174 | Code | 11 | | 2 | 00/20C0 : A2 15 | SETSPEED LDX #<B4800
|
||||
175 | 1 gsport.s 175 | Code | 11 | | 2 | 00/20C2 : A9 21 | LDA #>B4800
|
||||
176 | 1 gsport.s 176 | Empty | 11 | | 0 | 00/20C4 |
|
||||
177 | 1 gsport.s 177 | Code | 11 | | 3 | 00/20C4 : 8E D4 20 | _SETBAUD STX _BAUDRD+1
|
||||
178 | 1 gsport.s 178 | Code | 11 | | 3 | 00/20C7 : 8D D5 20 | STA _BAUDRD+2
|
||||
179 | 1 gsport.s 179 | Empty | 11 | | 0 | 00/20CA |
|
||||
180 | 1 gsport.s 180 | Code | 11 | | 2 | 00/20CA : A2 C2 | LDX #{{2}!$C0}
|
||||
181 | 1 gsport.s 181 | Code | 11 | | 2 | 00/20CC : A0 20 | LDY #{{2}*16}
|
||||
182 | 1 gsport.s 182 | Code | 11 | | 3 | 00/20CE : 20 51 20 | JSR DOINIT
|
||||
183 | 1 gsport.s 183 | Empty | 11 | | 0 | 00/20D1 |
|
||||
184 | 1 gsport.s 184 | Code | 11 | | 2 | 00/20D1 : A2 00 | LDX #0
|
||||
185 | 1 gsport.s 185 | Code | 11 | | 2 | 00/20D3 : B5 FF | _BAUDRD LDA -1,X
|
||||
186 | 1 gsport.s 186 | Code | 11 | | 2 | 00/20D5 : F0 06 | BEQ _FINISH
|
||||
187 | 1 gsport.s 187 | Code | 11 | | 3 | 00/20D7 : 20 9B 20 | JSR OUT
|
||||
188 | 1 gsport.s 188 | Code | 11 | | 1 | 00/20DA : E8 | INX
|
||||
189 | 1 gsport.s 189 | Code | 11 | | 2 | 00/20DB : 80 F6 | BRA _BAUDRD
|
||||
190 | 1 gsport.s 190 | Empty | 11 | | 0 | 00/20DD |
|
||||
191 | 1 gsport.s 191 | Code | 11 | | 2 | 00/20DD : A2 00 | _FINISH LDX #0
|
||||
192 | 1 gsport.s 192 | Code | 11 | | 3 | 00/20DF : BD F4 20 | _LOOP LDA PORTINIT,X
|
||||
193 | 1 gsport.s 193 | Code | 11 | | 2 | 00/20E2 : F0 06 | BEQ _DONE
|
||||
194 | 1 gsport.s 194 | Code | 11 | | 3 | 00/20E4 : 20 9B 20 | JSR OUT
|
||||
195 | 1 gsport.s 195 | Code | 11 | | 1 | 00/20E7 : E8 | INX
|
||||
196 | 1 gsport.s 196 | Code | 11 | | 2 | 00/20E8 : 80 F5 | BRA _LOOP
|
||||
197 | 1 gsport.s 197 | Empty | 11 | | 0 | 00/20EA |
|
||||
198 | 1 gsport.s 198 | Code | 11 | | 2 | 00/20EA : A9 1A | _DONE LDA #<OUT_BUF
|
||||
199 | 1 gsport.s 199 | Code | 11 | | 2 | 00/20EC : A2 21 | LDX #>OUT_BUF
|
||||
200 | 1 gsport.s 200 | Code | 11 | | 2 | 00/20EE : A0 00 | LDY #0
|
||||
201 | 1 gsport.s 201 | Code | 11 | | 3 | 00/20F0 : 20 5D 20 | JSR DOEXT
|
||||
202 | 1 gsport.s 202 | Empty | 11 | | 0 | 00/20F3 |
|
||||
203 | 1 gsport.s 203 | Code | 11 | | 1 | 00/20F3 : 60 | RTS
|
||||
204 | 1 gsport.s 204 | Empty | 11 | | 0 | 00/20F4 |
|
||||
205 | 1 gsport.s 205 | Data | 11 | | 1 | 00/20F4 : 01 | PORTINIT DB 1
|
||||
206 | 1 gsport.s 206 | Data | 11 | | 2 | 00/20F5 : 30 44 | ASC '0D' ;8 bits
|
||||
207 | 1 gsport.s 207 | Data | 11 | | 1 | 00/20F7 : 01 | DB 1
|
||||
208 | 1 gsport.s 208 | Data | 11 | | 2 | 00/20F8 : 30 50 | ASC '0P' ;no parity
|
||||
209 | 1 gsport.s 209 | Comment | 11 | | 0 | 00/20FA | * db 1
|
||||
210 | 1 gsport.s 210 | Comment | 11 | | 0 | 00/20FA | * asc '0N'
|
||||
211 | 1 gsport.s 211 | Data | 11 | | 1 | 00/20FA : 01 | db 1
|
||||
212 | 1 gsport.s 212 | Data | 11 | | 2 | 00/20FB : 4C 44 | asc 'LD'
|
||||
213 | 1 gsport.s 213 | Data | 11 | | 1 | 00/20FD : 01 | db 1
|
||||
214 | 1 gsport.s 214 | Data | 11 | | 2 | 00/20FE : 4D 45 | asc 'ME'
|
||||
215 | 1 gsport.s 215 | Data | 11 | | 1 | 00/2100 : 01 | DB 1
|
||||
216 | 1 gsport.s 216 | Data | 11 | | 2 | 00/2101 : 41 44 | ASC 'AD' ;auto-tabbing
|
||||
217 | 1 gsport.s 217 | Data | 11 | | 1 | 00/2103 : 01 | DB 1
|
||||
218 | 1 gsport.s 218 | Data | 11 | | 2 | 00/2104 : 58 44 | ASC 'XD' ;no xoff recognition
|
||||
219 | 1 gsport.s 219 | Data | 11 | | 1 | 00/2106 : 01 | DB 1
|
||||
220 | 1 gsport.s 220 | Data | 11 | | 2 | 00/2107 : 46 44 | ASC 'FD' ;no find keyboard
|
||||
221 | 1 gsport.s 221 | Data | 11 | | 1 | 00/2109 : 01 | DB 1
|
||||
222 | 1 gsport.s 222 | Data | 11 | | 2 | 00/210A : 43 44 | ASC 'CD' ;no column overflow
|
||||
223 | 1 gsport.s 223 | Data | 11 | | 1 | 00/210C : 01 | DB 1
|
||||
224 | 1 gsport.s 224 | Data | 11 | | 2 | 00/210D : 45 44 | ASC 'ED' ;echo disabled
|
||||
225 | 1 gsport.s 225 | Comment | 11 | | 0 | 00/210F | * DB 1
|
||||
226 | 1 gsport.s 226 | Comment | 11 | | 0 | 00/210F | * ASC 'MD' ;no lf masking
|
||||
227 | 1 gsport.s 227 | Data | 11 | | 1 | 00/210F : 01 | DB 1
|
||||
228 | 1 gsport.s 228 | Data | 11 | | 2 | 00/2110 : 42 45 | ASC 'BE' ;buffering enabled
|
||||
229 | 1 gsport.s 229 | Data | 11 | | 1 | 00/2112 : 01 | DB 1
|
||||
230 | 1 gsport.s 230 | Data | 11 | | 1 | 00/2113 : 5A | ASC 'Z'
|
||||
231 | 1 gsport.s 231 | Data | 11 | | 1 | 00/2114 : 00 | DB 0 ;no more control characters
|
||||
232 | 1 gsport.s 232 | Empty | 11 | | 0 | 00/2115 |
|
||||
233 | 1 gsport.s 233 | Data | 11 | | 1 | 00/2115 : 01 | B4800 DB 1
|
||||
234 | 1 gsport.s 234 | Data | 11 | | 4 | 00/2116 : 31 32 42 00 | ASC '12B'00 ;accept 4800 Baud
|
||||
235 | 1 gsport.s 235 | Empty | 11 | | 0 | 00/211A |
|
||||
236 | 1 gsport.s 236 | Comment | 11 | | 0 | 00/211A | *-------------------------------
|
||||
237 | 1 gsport.s 237 | Empty | 11 | | 0 | 00/211A |
|
||||
238 | 1 gsport.s 238 | Data | 11 | | 1 | 00/211A : 04 | OUT_BUF DB 4 ;Parameters to set the
|
||||
239 | 1 gsport.s 239 | Data | 11 | | 1 | 00/211B : 13 | DB $13 ;Output buffer
|
||||
240 | 1 gsport.s 240 | Data | 11 | | 2 | 00/211C : 00 00 | DA 0
|
||||
241 | 1 gsport.s 241 | Data | 11 | | 4 | 00/211E : 34 21 00 00 | ADRL BUFFER ;Buffer it where
|
||||
242 | 1 gsport.s 242 | Data | 11 | | 2 | 00/2122 : 02 00 | DA 2 ;Buffer 2 bytes
|
||||
243 | 1 gsport.s 243 | Empty | 11 | | 0 | 00/2124 |
|
||||
244 | 1 gsport.s 244 | Comment | 11 | | 0 | 00/2124 | *-------------------------------
|
||||
245 | 1 gsport.s 245 | Empty | 11 | | 0 | 00/2124 |
|
||||
246 | 1 gsport.s 246 | Data | 11 | | 1 | 00/2124 : 03 | CARRLIST DB 3 ;Parameter list for
|
||||
247 | 1 gsport.s 247 | Data | 11 | | 1 | 00/2125 : 06 | DB 6 ;detecting carrier drop
|
||||
248 | 1 gsport.s 248 | Data | 11 | | 2 | 00/2126 : 00 00 | DA 0
|
||||
249 | 1 gsport.s 249 | Data | 11 | | 2 | 00/2128 : 00 00 | CARRBITS DA 0 ;Carrier status here
|
||||
250 | 1 gsport.s 250 | Empty | 11 | | 0 | 00/212A |
|
||||
251 | 1 gsport.s 251 | Comment | 11 | | 0 | 00/212A | *-------------------------------
|
||||
252 | 1 gsport.s 252 | Empty | 11 | | 0 | 00/212A |
|
||||
253 | 1 gsport.s 253 | Data | 11 | | 1 | 00/212A : 03 | DTRLST DB 3 ;Parameter list for
|
||||
254 | 1 gsport.s 254 | Data | 11 | | 1 | 00/212B : 0B | DB $B ;setting DTR
|
||||
255 | 1 gsport.s 255 | Data | 11 | | 2 | 00/212C : 00 00 | DA 0
|
||||
256 | 1 gsport.s 256 | Data | 11 | | 2 | 00/212E : 00 00 | DTRSTATE DA 0 ;Bit 7 affects DTR
|
||||
257 | 1 gsport.s 257 | Empty | 11 | | 0 | 00/2130 |
|
||||
258 | 1 gsport.s 258 | Comment | 11 | | 0 | 00/2130 | *-------------------------------
|
||||
259 | 1 gsport.s 259 | Empty | 11 | | 0 | 00/2130 |
|
||||
260 | 1 gsport.s 260 | Data | 11 | | 1 | 00/2130 : 02 | FLUSHLST DB 2 ;parameter list for flushing input queue
|
||||
261 | 1 gsport.s 261 | Data | 11 | | 1 | 00/2131 : 14 | DB $14
|
||||
262 | 1 gsport.s 262 | Data | 11 | | 2 | 00/2132 : 00 00 | DA 0
|
||||
263 | 1 gsport.s 263 | Empty | 11 | | 0 | 00/2134 |
|
||||
264 | 1 gsport.s 264 | Comment | 11 | | 0 | 00/2134 | *-------------------------------
|
||||
265 | 1 gsport.s 265 | Empty | 11 | | 0 | 00/2134 |
|
||||
266 | 1 gsport.s 266 | Data | 11 | | 256 | 00/2134 : 00 00 00 00 | BUFFER ds 256
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
267 | 1 gsport.s 267 | Empty | 11 | | 0 | 00/2234 |
|
||||
------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
Binary file not shown.
|
|
@ -0,0 +1,134 @@
|
|||
DISK CONTENT EXTRACTION LOG
|
||||
Performed by Applesauce v1.88.4
|
||||
www.applesaucefdc.com
|
||||
|
||||
Timestamp: 12 Mar 2024 at 16:51
|
||||
|
||||
Media: 3.5" Floppy Disk
|
||||
Format: Apple IIgs GS/OS
|
||||
|
||||
== STATUS ======================================================================
|
||||
|
||||
11 files were detected on the disk.
|
||||
No issues were encountered with the extraction process.
|
||||
|
||||
== CATALOG =====================================================================
|
||||
|
||||
TERRASIDE1
|
||||
|
||||
NAME TYPE BLOCKS MODIFIED CREATED ENDFILE SUBTYPE
|
||||
|
||||
*WARMUP.GFX PNT 19 06-APR-92 14:52 06-APR-92 13:20 8818
|
||||
*THEBIGDIG S16 283 24-MAR-92 15:32 13-AUG-91 08:54 142889
|
||||
*TERRA1.TXT NON 87 19-FEB-92 11:00 12-AUG-91 15:57 43878
|
||||
*WARMUP.GPT BIN 1 06-APR-92 14:52 06-APR-92 13:20 32 A=$00C0
|
||||
*TERRA1FRM.DAT NON 53 19-FEB-92 11:17 13-AUG-91 08:55 26568
|
||||
*TERRA1FRM.IND NON 39 19-FEB-92 11:17 13-AUG-91 08:56 19180
|
||||
*TERRA1.CTL NON 21 14-AUG-91 10:39 12-AUG-91 15:47 9762
|
||||
*TERRA1.GPT BIN 17 20-AUG-91 13:38 01-JUL-91 15:47 8096 A=$00C0
|
||||
*TERRA1.GFX PNT 965 20-AUG-91 13:38 20-AUG-91 13:25 491260
|
||||
*TERRA1.VID NON 10 19-FEB-92 10:58 12-AUG-91 15:42 4138
|
||||
FINDER.DATA FND 1 10-APR-92 09:56 06-APR-92 17:29 238
|
||||
|
||||
|
||||
== FILE DETAILS ================================================================
|
||||
|
||||
WARMUP.GFX
|
||||
PNT - Packed Super Hi-Res Image ($C0) MD5: f3a7db3b1566c351e920f495063c9023
|
||||
|
||||
File Type: $C0 Aux Type: $00C0 Storage: Sapling ($2)
|
||||
Sparse: No Block Qty: 19 File Size: 8818 Index Qty: 1
|
||||
Data Size: 8818 Data Blks: 18
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
THEBIGDIG
|
||||
S16 - GS/OS Application File ($B3) MD5: bbc3e5a5a262832e0deb5be722cd9e54
|
||||
|
||||
File Type: $B3 Aux Type: $0000 Storage: Tree ($3)
|
||||
Sparse: No Block Qty: 283 File Size: 142889 Index Qty: 3
|
||||
Data Size: 142889 Data Blks: 280
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
TERRA1.TXT
|
||||
NON - Unknown File ($00) MD5: 4850e3f5ba1203e2de57b04e7b2d4721
|
||||
|
||||
File Type: $00 Aux Type: $0000 Storage: Sapling ($2)
|
||||
Sparse: No Block Qty: 87 File Size: 43878 Index Qty: 1
|
||||
Data Size: 43878 Data Blks: 86
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
WARMUP.GPT
|
||||
BIN - Binary File ($06) MD5: 28c1f46b6d53feb46cd33de845a19c79
|
||||
|
||||
File Type: $06 Aux Type: $00C0 Storage: Seedling ($1)
|
||||
Sparse: No Block Qty: 1 File Size: 32 Index Qty: 0
|
||||
Data Size: 32 Data Blks: 1
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
TERRA1FRM.DAT
|
||||
NON - Unknown File ($00) MD5: e27dd60040d987b8ac40e99e06e2f8fd
|
||||
|
||||
File Type: $00 Aux Type: $0000 Storage: Sapling ($2)
|
||||
Sparse: No Block Qty: 53 File Size: 26568 Index Qty: 1
|
||||
Data Size: 26568 Data Blks: 52
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
TERRA1FRM.IND
|
||||
NON - Unknown File ($00) MD5: 5e0eac31770f33ddfb90e7aa92cee07a
|
||||
|
||||
File Type: $00 Aux Type: $0000 Storage: Sapling ($2)
|
||||
Sparse: No Block Qty: 39 File Size: 19180 Index Qty: 1
|
||||
Data Size: 19180 Data Blks: 38
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
TERRA1.CTL
|
||||
NON - Unknown File ($00) MD5: 0b0cb1fa99945f5be7f6299113a1631f
|
||||
|
||||
File Type: $00 Aux Type: $0000 Storage: Sapling ($2)
|
||||
Sparse: No Block Qty: 21 File Size: 9762 Index Qty: 1
|
||||
Data Size: 9762 Data Blks: 20
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
TERRA1.GPT
|
||||
BIN - Binary File ($06) MD5: b3eba29020668d9dcc27f09fcffd59d6
|
||||
|
||||
File Type: $06 Aux Type: $00C0 Storage: Sapling ($2)
|
||||
Sparse: No Block Qty: 17 File Size: 8096 Index Qty: 1
|
||||
Data Size: 8096 Data Blks: 16
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
TERRA1.GFX
|
||||
PNT - Packed Super Hi-Res Image ($C0) MD5: b97f3440de9d68a25beac3e71557821d
|
||||
|
||||
File Type: $C0 Aux Type: $00C0 Storage: Tree ($3)
|
||||
Sparse: No Block Qty: 965 File Size: 491260 Index Qty: 5
|
||||
Data Size: 491260 Data Blks: 960
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
TERRA1.VID
|
||||
NON - Unknown File ($00) MD5: ca037a612f1f94d765fb6230370b29ac
|
||||
|
||||
File Type: $00 Aux Type: $0000 Storage: Sapling ($2)
|
||||
Sparse: No Block Qty: 10 File Size: 4138 Index Qty: 1
|
||||
Data Size: 4138 Data Blks: 9
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
FINDER.DATA
|
||||
FND - Finder Data ($C9) MD5: 298c90896b37dddb1d803db199705066
|
||||
|
||||
File Type: $C9 Aux Type: $0000 Storage: Seedling ($1)
|
||||
Sparse: No Block Qty: 1 File Size: 238 Index Qty: 0
|
||||
Data Size: 238 Data Blks: 1
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
1 MAIN 0000
|
||||
2 GLOBALS 4001
|
||||
3 ARRAYS 4001
|
||||
4 MENUSTUFF 0000
|
||||
5 GSDEGUB 4000
|
||||
6 VIDEOPEDIA 0000
|
||||
7 MEDIACLIP 0000
|
||||
8 INTERACT 0000
|
||||
9 DOLESSON 0000
|
||||
A HANDLER 0000
|
||||
B ATLASES 0000
|
||||
C IMSFONT 0000
|
||||
D LAB 0000
|
||||
E DIRECT 0012
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,92 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L012E43
|
||||
EXT L0A099A
|
||||
EXT L0A0A89
|
||||
EXT L0A0C52
|
||||
EXT L0D10DC
|
||||
EXT L0A0D20
|
||||
EXT L01175E
|
||||
EXT L01179F
|
||||
EXT L0A0B63
|
||||
EXT L0118F9
|
||||
EXT L0A01F0
|
||||
EXT L011DEB
|
||||
EXT L020078
|
||||
EXT L020094
|
||||
EXT L0200B0
|
||||
EXT L020084
|
||||
EXT L0200A0
|
||||
EXT L0200BC
|
||||
EXT L020080
|
||||
EXT L02009C
|
||||
EXT L0200B8
|
||||
EXT L02007C
|
||||
EXT L020098
|
||||
EXT L0200B4
|
||||
EXT L020090
|
||||
EXT L0200A4
|
||||
EXT L0200C0
|
||||
EXT L020088
|
||||
EXT L0200A8
|
||||
EXT L0200C4
|
||||
EXT L02008C
|
||||
EXT L0200AC
|
||||
EXT L0200C8
|
||||
EXT L018E9C
|
||||
EXT L019605
|
||||
EXT L01A12E
|
||||
EXT L016D40
|
||||
EXT L0195C6
|
||||
EXT L019D47
|
||||
EXT L017380
|
||||
EXT L016CC6
|
||||
EXT L019EA7
|
||||
EXT L01A48E
|
||||
EXT L016B46
|
||||
EXT L01A10B
|
||||
EXT L0170B4
|
||||
EXT L01A020
|
||||
EXT L01A425
|
||||
EXT L01A50D
|
||||
EXT L016B81
|
||||
EXT L0194EA
|
||||
EXT L0168DF
|
||||
EXT L019EFD
|
||||
EXT L01749D
|
||||
EXT L0173E4
|
||||
EXT L019ECC
|
||||
EXT L019915
|
||||
EXT L019FAA
|
||||
EXT L01A46B
|
||||
EXT L018E6E
|
||||
EXT L017AD2
|
||||
EXT L018DED
|
||||
EXT L019946
|
||||
EXT L01A269
|
||||
EXT L018EDC
|
||||
EXT L01A4F6
|
||||
EXT L01A0F4
|
||||
EXT L017467
|
||||
EXT L01A448
|
||||
EXT L0198B9
|
||||
EXT L016F16
|
||||
EXT L01EDCE
|
||||
EXT L01E548
|
||||
EXT L01F1BA
|
||||
EXT L01EB12
|
||||
EXT L01E605
|
||||
EXT L01ED7A
|
||||
EXT L01E518
|
||||
EXT L01F0CE
|
||||
EXT L01E9AD
|
||||
EXT L01E530
|
||||
EXT L01EF54
|
||||
EXT L01EAFA
|
||||
EXT L01F2EC
|
||||
EXT L01ED32
|
||||
EXT L01ECD4
|
||||
|
||||
|
|
@ -0,0 +1,471 @@
|
|||
|
||||
*---------------------------------------------------------*
|
||||
* Disassembled with The Flaming Bird Disassembler *
|
||||
* (c) Phoenix corp. 1992,93 - All rights reserved *
|
||||
*---------------------------------------------------------*
|
||||
|
||||
REL
|
||||
|
||||
L0B0000 ENT
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00E9
|
||||
TCD
|
||||
ADC #$FF7E
|
||||
TCS
|
||||
STZ $D6
|
||||
PEA ^L033CC5
|
||||
PEA L033CC5
|
||||
JSL L050256
|
||||
PLY
|
||||
PLY
|
||||
LDX $F5
|
||||
LDA $F3
|
||||
STX $E2
|
||||
STA $E0
|
||||
LDA $F7
|
||||
AND #$00FF
|
||||
CMP #$0020
|
||||
BNE L0B0074
|
||||
LDX $E2
|
||||
LDA $E0
|
||||
STX $DE
|
||||
STA $DC
|
||||
L0B0033 LDX #$0000
|
||||
LDA #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDY #$0002
|
||||
LDA [$DC],Y
|
||||
TAX
|
||||
LDA [$DC]
|
||||
JSL L013333
|
||||
BEQ L0B0071
|
||||
LDY #$0002
|
||||
LDA [$DC],Y
|
||||
TAX
|
||||
LDA [$DC]
|
||||
PHX
|
||||
PHA
|
||||
PEA ^L033CDD
|
||||
PEA L033CDD
|
||||
JSL L050256
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
LDA $DC
|
||||
CLC
|
||||
ADC #$0009
|
||||
STA $DC
|
||||
BCC L0B006D
|
||||
INC $DE
|
||||
L0B006D INC $D6
|
||||
BRA L0B0033
|
||||
L0B0071 BRL L0B0197
|
||||
L0B0074 LDY #$0002
|
||||
LDA [$E0],Y
|
||||
TAX
|
||||
LDA [$E0]
|
||||
STA $E4
|
||||
STX $E6
|
||||
LDA [$E4]
|
||||
AND #$00FF
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L037E33
|
||||
LDX #^L037E33
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $E4
|
||||
STX $E6
|
||||
LDA [$E4]
|
||||
AND #$00FF
|
||||
AND #$0001
|
||||
TAY
|
||||
BEQ L0B00B8
|
||||
LDY #$0002
|
||||
LDA [$E0],Y
|
||||
TAX
|
||||
LDA [$E0]
|
||||
STA $E4
|
||||
STX $E6
|
||||
LDA [$E4]
|
||||
AND #$00FF
|
||||
BRA L0B00D1
|
||||
L0B00B8 LDY #$0002
|
||||
LDA [$E0],Y
|
||||
TAX
|
||||
LDA [$E0]
|
||||
STA $E4
|
||||
STX $E6
|
||||
LDA [$E4]
|
||||
AND #$00FF
|
||||
SEC
|
||||
SBC #$0061
|
||||
CLC
|
||||
ADC #$0041
|
||||
L0B00D1 PHA
|
||||
LDA $F7
|
||||
AND #$00FF
|
||||
PLX
|
||||
STX $E4
|
||||
SEC
|
||||
SBC $E4
|
||||
BEQ L0B00F5
|
||||
BVS L0B00E4
|
||||
EOR #$8000
|
||||
L0B00E4 BPL L0B00F5
|
||||
LDA $E0
|
||||
CLC
|
||||
ADC #$0009
|
||||
STA $E0
|
||||
BCC L0B00F2
|
||||
INC $E2
|
||||
L0B00F2 BRL L0B0074
|
||||
L0B00F5 LDX $E2
|
||||
LDA $E0
|
||||
STX $DE
|
||||
STA $DC
|
||||
L0B00FD LDX #$0000
|
||||
LDA #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDY #$0002
|
||||
LDA [$DC],Y
|
||||
TAX
|
||||
LDA [$DC]
|
||||
JSL L013333
|
||||
BNE L0B0116
|
||||
BRL L0B0197
|
||||
L0B0116 LDY #$0002
|
||||
LDA [$DC],Y
|
||||
TAX
|
||||
LDA [$DC]
|
||||
STA $E4
|
||||
STX $E6
|
||||
LDA [$E4]
|
||||
AND #$00FF
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L037E33
|
||||
LDX #^L037E33
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $E4
|
||||
STX $E6
|
||||
LDA [$E4]
|
||||
AND #$00FF
|
||||
AND #$0001
|
||||
TAY
|
||||
BEQ L0B015A
|
||||
LDY #$0002
|
||||
LDA [$DC],Y
|
||||
TAX
|
||||
LDA [$DC]
|
||||
STA $E4
|
||||
STX $E6
|
||||
LDA [$E4]
|
||||
AND #$00FF
|
||||
BRA L0B0173
|
||||
L0B015A LDY #$0002
|
||||
LDA [$DC],Y
|
||||
TAX
|
||||
LDA [$DC]
|
||||
STA $E4
|
||||
STX $E6
|
||||
LDA [$E4]
|
||||
AND #$00FF
|
||||
SEC
|
||||
SBC #$0061
|
||||
CLC
|
||||
ADC #$0041
|
||||
L0B0173 PHA
|
||||
LDA $F9
|
||||
AND #$00FF
|
||||
PLX
|
||||
STX $E4
|
||||
SEC
|
||||
SBC $E4
|
||||
BVS L0B0184
|
||||
EOR #$8000
|
||||
L0B0184 BPL L0B0197
|
||||
LDA $DC
|
||||
CLC
|
||||
ADC #$0009
|
||||
STA $DC
|
||||
BCC L0B0192
|
||||
INC $DE
|
||||
L0B0192 INC $D6
|
||||
BRL L0B00FD
|
||||
L0B0197 LDA $D6
|
||||
STA $AE
|
||||
LDA $FF
|
||||
LDX #$0000
|
||||
PEA $0000
|
||||
PEA $0009
|
||||
CLC
|
||||
JSL L013048
|
||||
LDX $E2
|
||||
LDA $E0
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
SEC
|
||||
SBC #$0009
|
||||
PHA
|
||||
TXA
|
||||
SBC #$0000
|
||||
TAX
|
||||
PLA
|
||||
STA $E4
|
||||
STX $E6
|
||||
LDA #$0080
|
||||
SEP #$20
|
||||
LDY #$0004
|
||||
STA [$E4],Y
|
||||
REP #$20
|
||||
LDA $FF
|
||||
STA $DA
|
||||
PEI $DA
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$000A
|
||||
PHA
|
||||
JSL L013F1E
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
LDA $F7
|
||||
AND #$00FF
|
||||
CMP #$0020
|
||||
BNE L0B0211
|
||||
PEI $F1
|
||||
PEI $EF
|
||||
PEA ^L033CE4
|
||||
PEA L033CE4
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$FFC0
|
||||
PHA
|
||||
JSL L01508C
|
||||
TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$000C
|
||||
TCS
|
||||
TYA
|
||||
BRA L0B023C
|
||||
L0B0211 LDA $F9
|
||||
AND #$00FF
|
||||
PHA
|
||||
LDA $F7
|
||||
AND #$00FF
|
||||
PHA
|
||||
PEI $F1
|
||||
PEI $EF
|
||||
PEA ^L033CED
|
||||
PEA L033CED
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$FFC0
|
||||
PHA
|
||||
JSL L01508C
|
||||
TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0010
|
||||
TCS
|
||||
TYA
|
||||
L0B023C PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$FFC0
|
||||
PHA
|
||||
JSL L013A1F
|
||||
PLY
|
||||
PLY
|
||||
LDX #$0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$FFC0
|
||||
STX $46
|
||||
STA $44
|
||||
LDX $E2
|
||||
LDA $E0
|
||||
STX $C4
|
||||
STA $C2
|
||||
LDX $E2
|
||||
LDA $E0
|
||||
STX $0E
|
||||
STA $0C
|
||||
LDAL L031DDC
|
||||
TAX
|
||||
LDAL L031DDA
|
||||
STX $90
|
||||
STA $8E
|
||||
L0B0274 LDA #$0001
|
||||
BNE L0B027C
|
||||
BRL L0B03A4
|
||||
L0B027C PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$00D8
|
||||
PHA
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$000A
|
||||
PHA
|
||||
JSL L01493B
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
STA $DA
|
||||
LDA $D8
|
||||
CMP #$0002
|
||||
BNE L0B02E6
|
||||
LDA $DA
|
||||
BEQ L0B02E0
|
||||
LDA $DA
|
||||
LDX #$0000
|
||||
PEA $0000
|
||||
PEA $0009
|
||||
CLC
|
||||
JSL L013048
|
||||
LDX $E2
|
||||
LDA $E0
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
SEC
|
||||
SBC #$0009
|
||||
PHA
|
||||
TXA
|
||||
SBC #$0000
|
||||
TAX
|
||||
PLA
|
||||
STA $E4
|
||||
STX $E6
|
||||
LDY #$0004
|
||||
LDA [$E4],Y
|
||||
AND #$00FF
|
||||
EOR #$0080
|
||||
SEP #$20
|
||||
LDY #$0004
|
||||
STA [$E4],Y
|
||||
REP #$20
|
||||
L0B02E0 BRL L0B03A4
|
||||
BRL L0B03A1
|
||||
L0B02E6 LDA $DA
|
||||
STA $B4
|
||||
LDA $D8
|
||||
CMP #$0000
|
||||
BNE L0B0333
|
||||
JSL L014C78
|
||||
LDA $DA
|
||||
LDX #$0000
|
||||
PEA $0000
|
||||
PEA $0009
|
||||
CLC
|
||||
JSL L013048
|
||||
LDX $E2
|
||||
LDA $E0
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
SEC
|
||||
SBC #$0009
|
||||
PHA
|
||||
TXA
|
||||
SBC #$0000
|
||||
TAX
|
||||
PLA
|
||||
STA $E4
|
||||
STX $E6
|
||||
LDY #$0007
|
||||
LDA [$E4],Y
|
||||
TAX
|
||||
LDY #$0005
|
||||
LDA [$E4],Y
|
||||
PHX
|
||||
PHA
|
||||
JSL L0133D4
|
||||
PLY
|
||||
PLY
|
||||
BRA L0B0397
|
||||
L0B0333 JSL L014C78
|
||||
LDA $DA
|
||||
LDX #$0000
|
||||
PEA $0000
|
||||
PEA $0009
|
||||
CLC
|
||||
JSL L013048
|
||||
LDX $E2
|
||||
LDA $E0
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
SEC
|
||||
SBC #$0009
|
||||
PHA
|
||||
TXA
|
||||
SBC #$0000
|
||||
TAX
|
||||
PLA
|
||||
STA $E4
|
||||
STX $E6
|
||||
LDY #$0007
|
||||
LDA [$E4],Y
|
||||
TAX
|
||||
LDY #$0005
|
||||
LDA [$E4],Y
|
||||
PHX
|
||||
PHA
|
||||
PEA ^L033CF9
|
||||
PEA L033CF9
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$FF80
|
||||
PHA
|
||||
JSL L01508C
|
||||
TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$000C
|
||||
TCS
|
||||
TYA
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$FF80
|
||||
PHA
|
||||
JSL L0133D4
|
||||
PLY
|
||||
PLY
|
||||
L0B0397 PEI $FD
|
||||
PEI $FB
|
||||
JSL L0133D4
|
||||
PLY
|
||||
PLY
|
||||
L0B03A1 BRL L0B0274
|
||||
L0B03A4 TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$016A
|
||||
TCS
|
||||
TYA
|
||||
PLD
|
||||
RTL
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L013048
|
||||
EXT L012E77
|
||||
EXT L0133D4
|
||||
EXT L031DDC
|
||||
EXT L031DDA
|
||||
EXT L013333
|
||||
EXT L050256
|
||||
EXT L013F1E
|
||||
EXT L01493B
|
||||
EXT L014C78
|
||||
EXT L013A1F
|
||||
EXT L01508C
|
||||
EXT L033CC5
|
||||
EXT L033CDD
|
||||
EXT L037E33
|
||||
EXT L033CE4
|
||||
EXT L033CED
|
||||
EXT L033CF9
|
||||
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
|
||||
*---------------------------------------------------------*
|
||||
* Disassembled with The Flaming Bird Disassembler *
|
||||
* (c) Phoenix corp. 1992,93 - All rights reserved *
|
||||
*---------------------------------------------------------*
|
||||
|
||||
REL
|
||||
|
||||
L0E0000 ENT
|
||||
DS $1000
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,163 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L0133D4
|
||||
EXT L020002
|
||||
EXT L031DDC
|
||||
EXT L031DDA
|
||||
EXT L080498
|
||||
EXT L0A0F31
|
||||
EXT L012E82
|
||||
EXT L0200E0
|
||||
EXT L0200E2
|
||||
EXT L0200D4
|
||||
EXT L0200D2
|
||||
EXT L0200D8
|
||||
EXT L0200D6
|
||||
EXT L0D0522
|
||||
EXT L020052
|
||||
EXT L020074
|
||||
EXT L0D03D5
|
||||
EXT L0117E0
|
||||
EXT L012D95
|
||||
EXT L0804DD
|
||||
EXT L0A06DC
|
||||
EXT L0A061E
|
||||
EXT L0A0484
|
||||
EXT L0A0316
|
||||
EXT L0A021A
|
||||
EXT L01160B
|
||||
EXT L01151A
|
||||
EXT L0800C0
|
||||
EXT L0D0000
|
||||
EXT L0D0DEE
|
||||
EXT L0D097D
|
||||
EXT L0D1184
|
||||
EXT L0D127E
|
||||
EXT L0D0637
|
||||
EXT L0D002A
|
||||
EXT L0D0198
|
||||
EXT L01200B
|
||||
EXT L011BFE
|
||||
EXT L011A39
|
||||
EXT L011C23
|
||||
EXT L0121F5
|
||||
EXT L0122B0
|
||||
EXT L011E16
|
||||
EXT L011C91
|
||||
EXT L011CAE
|
||||
EXT L01194F
|
||||
EXT L011976
|
||||
EXT L012E43
|
||||
EXT L011647
|
||||
EXT L020056
|
||||
EXT L020072
|
||||
EXT L020058
|
||||
EXT L031DFE
|
||||
EXT L031E0A
|
||||
EXT L0321A8
|
||||
EXT L031E10
|
||||
EXT L031E17
|
||||
EXT L031E21
|
||||
EXT L0322E7
|
||||
EXT L031E27
|
||||
EXT L03245E
|
||||
EXT L031E2F
|
||||
EXT L0324BE
|
||||
EXT L031E37
|
||||
EXT L03251E
|
||||
EXT L031E3F
|
||||
EXT L03257E
|
||||
EXT L031E47
|
||||
EXT L0329BD
|
||||
EXT L031E4F
|
||||
EXT L0325D4
|
||||
EXT L031E58
|
||||
EXT L03262A
|
||||
EXT L031E61
|
||||
EXT L032680
|
||||
EXT L031E6A
|
||||
EXT L0326D6
|
||||
EXT L031E73
|
||||
EXT L03272C
|
||||
EXT L031E7C
|
||||
EXT L032782
|
||||
EXT L031E85
|
||||
EXT L0327D8
|
||||
EXT L031E8E
|
||||
EXT L03282E
|
||||
EXT L031E97
|
||||
EXT L032884
|
||||
EXT L031EA0
|
||||
EXT L032A09
|
||||
EXT L031EA8
|
||||
EXT L032A61
|
||||
EXT L031EB1
|
||||
EXT L032AB9
|
||||
EXT L031EBA
|
||||
EXT L032AFC
|
||||
EXT L031EC3
|
||||
EXT L032B54
|
||||
EXT L031ECC
|
||||
EXT L032409
|
||||
EXT L031ED5
|
||||
EXT L031EDA
|
||||
EXT L031EDF
|
||||
EXT L031EE4
|
||||
EXT L032BC8
|
||||
EXT L031EE9
|
||||
EXT L032C24
|
||||
EXT L031EEF
|
||||
EXT L032C80
|
||||
EXT L031EF5
|
||||
EXT L032CDC
|
||||
EXT L031EFB
|
||||
EXT L032D38
|
||||
EXT L031F01
|
||||
EXT L032D98
|
||||
EXT L031F08
|
||||
EXT L032DF8
|
||||
EXT L031F0F
|
||||
EXT L032E58
|
||||
EXT L031F16
|
||||
EXT L031F1B
|
||||
EXT L031F25
|
||||
EXT L032E8D
|
||||
EXT L031F2F
|
||||
EXT L032320
|
||||
EXT L031F38
|
||||
EXT L031F48
|
||||
EXT L031F53
|
||||
EXT L031F63
|
||||
EXT L031F73
|
||||
EXT L031F7E
|
||||
EXT L0323AD
|
||||
EXT L031F8F
|
||||
EXT L031FA1
|
||||
EXT L033259
|
||||
EXT L031FB3
|
||||
EXT L03332C
|
||||
EXT L031FBF
|
||||
EXT L031FD0
|
||||
EXT L03333C
|
||||
EXT L031FE1
|
||||
EXT L032EC6
|
||||
EXT L031FEA
|
||||
EXT L032FE6
|
||||
EXT L031FF5
|
||||
EXT L032003
|
||||
EXT L0330CC
|
||||
EXT L03200E
|
||||
EXT L03201C
|
||||
EXT L032FF6
|
||||
EXT L032028
|
||||
EXT L0323D1
|
||||
EXT L032031
|
||||
EXT L032040
|
||||
EXT L0331F8
|
||||
EXT L03204F
|
||||
EXT L033249
|
||||
EXT L03205E
|
||||
|
||||
|
|
@ -0,0 +1,409 @@
|
|||
|
||||
*---------------------------------------------------------*
|
||||
* Disassembled with The Flaming Bird Disassembler *
|
||||
* (c) Phoenix corp. 1992,93 - All rights reserved *
|
||||
*---------------------------------------------------------*
|
||||
|
||||
REL
|
||||
|
||||
L020000 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020002 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020004 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020006 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020008 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02000A ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02000C ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02000E ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020010 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020012 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020014 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020016 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020018 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02001A ENT
|
||||
ADRL L03002E
|
||||
L02001E ENT
|
||||
ADRL L03006B
|
||||
L020022 ENT
|
||||
ADRL L0300A4
|
||||
L020026 ENT
|
||||
ADRL L0300D7
|
||||
L02002A ENT
|
||||
ADRL L0300F9
|
||||
DB $FF
|
||||
DB $FF
|
||||
DB $FF
|
||||
DB $FF
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L020038 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02003A ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02003C ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02003E ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020040 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020042 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020044 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020046 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020048 ENT
|
||||
DB $01
|
||||
DB $00
|
||||
L02004A ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02004C ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02004E ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020050 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020052 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020054 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020056 ENT
|
||||
DB $01
|
||||
DB $00
|
||||
L020058 ENT
|
||||
DB $01
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L02006E ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020070 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020072 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020074 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020076 ENT
|
||||
DB $66
|
||||
DB $00
|
||||
L020078 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02007A ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02007C ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02007E ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020080 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020082 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020084 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020086 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020088 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02008A ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02008C ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02008E ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020090 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020092 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020094 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L020098 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L02009C ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L0200A0 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L0200A4 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L0200A8 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L0200AC ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L0200B0 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L0200B4 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L0200B8 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L0200BC ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L0200C0 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200C2 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200C4 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L0200C8 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
DB $00
|
||||
L0200CC ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200CE ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200D0 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200D2 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200D4 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200D6 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200D8 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200DA ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200DC ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200DE ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200E0 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200E2 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200E4 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200E6 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200E8 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200EA ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200EC ENT
|
||||
DB $01
|
||||
DB $00
|
||||
L0200EE ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200F0 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200F2 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200F4 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200F6 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200F8 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200FA ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200FC ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L0200FE ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020100 ENT
|
||||
DB $01
|
||||
DB $00
|
||||
L020102 ENT
|
||||
DB $00
|
||||
L020103 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020105 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020107 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020109 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02010B ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02010D ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02010F ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020111 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020113 ENT
|
||||
ADRL L038E82
|
||||
L020117 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020119 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02011B ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02011D ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02011F ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020121 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020123 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020125 ENT
|
||||
DB $01
|
||||
DB $00
|
||||
L020127 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L020129 ENT
|
||||
DB $00
|
||||
DB $00
|
||||
L02012B ENT
|
||||
DB $00
|
||||
DB $00
|
||||
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L03002E
|
||||
EXT L03006B
|
||||
EXT L0300A4
|
||||
EXT L0300D7
|
||||
EXT L0300F9
|
||||
EXT L038E82
|
||||
|
||||
|
|
@ -0,0 +1,427 @@
|
|||
|
||||
*---------------------------------------------------------*
|
||||
* Disassembled with The Flaming Bird Disassembler *
|
||||
* (c) Phoenix corp. 1992,93 - All rights reserved *
|
||||
*---------------------------------------------------------*
|
||||
|
||||
REL
|
||||
|
||||
L050000 PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00FB
|
||||
TCD
|
||||
ADC #$00F2
|
||||
TCS
|
||||
LDX #$0000
|
||||
LDA #$C20D
|
||||
STA $F6
|
||||
STX $F8
|
||||
LDA [$F6]
|
||||
AND #$00FF
|
||||
PHA
|
||||
LDA #$C200
|
||||
PLX
|
||||
STX $FA
|
||||
CLC
|
||||
ADC $FA
|
||||
STA $F4
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $00C2
|
||||
PEA $0020
|
||||
PEI $F4
|
||||
_FWEntry
|
||||
PLA
|
||||
PLA
|
||||
STA L020002
|
||||
PLA
|
||||
PLA
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0008
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
L050053 PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00F9
|
||||
TCD
|
||||
ADC #$00F0
|
||||
TCS
|
||||
LDX #$0000
|
||||
LDA #$C20F
|
||||
STA $F4
|
||||
STX $F6
|
||||
LDA [$F4]
|
||||
AND #$00FF
|
||||
PHA
|
||||
LDA #$C200
|
||||
PLX
|
||||
STX $F8
|
||||
CLC
|
||||
ADC $F8
|
||||
STA $F2
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEI $FF
|
||||
PEA $00C2
|
||||
PEA $0020
|
||||
PEI $F2
|
||||
_FWEntry
|
||||
PLA
|
||||
PLA
|
||||
STA L020002
|
||||
PLA
|
||||
PLA
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0008
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
L0500A5 PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00FB
|
||||
TCD
|
||||
ADC #$00F2
|
||||
TCS
|
||||
LDX #$0000
|
||||
LDA #$C20E
|
||||
STA $F6
|
||||
STX $F8
|
||||
LDA [$F6]
|
||||
AND #$00FF
|
||||
PHA
|
||||
LDA #$C200
|
||||
PLX
|
||||
STX $FA
|
||||
CLC
|
||||
ADC $FA
|
||||
STA $F4
|
||||
LDA #$0000
|
||||
BEQ L0500D5
|
||||
LDA #$0000
|
||||
BRA L0500FA
|
||||
L0500D5 PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $00C2
|
||||
PEA $0020
|
||||
PEI $F4
|
||||
_FWEntry
|
||||
PLA
|
||||
PLA
|
||||
STA L020002
|
||||
PLA
|
||||
PLX
|
||||
L0500FA TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0008
|
||||
TCS
|
||||
TYA
|
||||
PLD
|
||||
RTL
|
||||
|
||||
L050104 PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00FB
|
||||
TCD
|
||||
ADC #$00F2
|
||||
TCS
|
||||
LDX #$0000
|
||||
LDA #$C210
|
||||
STA $F6
|
||||
STX $F8
|
||||
LDA [$F6]
|
||||
AND #$00FF
|
||||
PHA
|
||||
LDA #$C200
|
||||
PLX
|
||||
STX $FA
|
||||
CLC
|
||||
ADC $FA
|
||||
STA $F4
|
||||
LDA #$0000
|
||||
BEQ L050134
|
||||
LDA #$0000
|
||||
BRA L050166
|
||||
L050134 PHP
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0001
|
||||
PEA $00C2
|
||||
PEA $0020
|
||||
PEI $F4
|
||||
_FWEntry
|
||||
PLA
|
||||
PLA
|
||||
STA L020002
|
||||
PLA
|
||||
PLP
|
||||
PLP
|
||||
BCC L050162
|
||||
LDA #$0001
|
||||
BRA L050165
|
||||
L050162 LDA #$0000
|
||||
L050165 PLP
|
||||
L050166 TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0008
|
||||
TCS
|
||||
TYA
|
||||
PLD
|
||||
RTL
|
||||
|
||||
L050170 PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00F7
|
||||
TCD
|
||||
ADC #$00F0
|
||||
TCS
|
||||
PEA $0001
|
||||
JSL L050053
|
||||
PLY
|
||||
L050183 LDA [$FD]
|
||||
AND #$00FF
|
||||
BEQ L0501A5
|
||||
LDX $FF
|
||||
LDA $FD
|
||||
INC $FD
|
||||
BNE L050194
|
||||
INC $FF
|
||||
L050194 STA $F2
|
||||
STX $F4
|
||||
LDA [$F2]
|
||||
AND #$00FF
|
||||
PHA
|
||||
JSL L050053
|
||||
PLY
|
||||
BRA L050183
|
||||
L0501A5 TSC
|
||||
CLC
|
||||
ADC #$0006
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00FB
|
||||
TCD
|
||||
ADC #$00F4
|
||||
TCS
|
||||
JSL L050000
|
||||
PEA ^L030130
|
||||
PEA L030130
|
||||
JSL L050170
|
||||
PLY
|
||||
PLY
|
||||
PEA ^L030133
|
||||
PEA L030133
|
||||
JSL L050170
|
||||
PLY
|
||||
PLY
|
||||
PEA ^L030136
|
||||
PEA L030136
|
||||
JSL L050170
|
||||
PLY
|
||||
PLY
|
||||
PEA ^L030139
|
||||
PEA L030139
|
||||
JSL L050170
|
||||
PLY
|
||||
PLY
|
||||
PEA ^L03013C
|
||||
PEA L03013C
|
||||
JSL L050170
|
||||
PLY
|
||||
PLY
|
||||
PEA ^L03013F
|
||||
PEA L03013F
|
||||
JSL L050170
|
||||
PLY
|
||||
PLY
|
||||
PEA ^L030142
|
||||
PEA L030142
|
||||
JSL L050170
|
||||
PLY
|
||||
PLY
|
||||
PEA ^L030145
|
||||
PEA L030145
|
||||
JSL L050170
|
||||
PLY
|
||||
PLY
|
||||
PEA ^L030148
|
||||
PEA L030148
|
||||
JSL L050170
|
||||
PLY
|
||||
PLY
|
||||
PEA ^L03014B
|
||||
PEA L03014B
|
||||
JSL L050170
|
||||
PLY
|
||||
PLY
|
||||
PEA ^L03014E
|
||||
PEA L03014E
|
||||
JSL L050170
|
||||
PLY
|
||||
PLY
|
||||
L050240 JSL L050104
|
||||
TAY
|
||||
BEQ L05024D
|
||||
JSL L0500A5
|
||||
BRA L050240
|
||||
L05024D TSC
|
||||
CLC
|
||||
ADC #$0006
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
RTL
|
||||
|
||||
L050256 ENT
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00F7
|
||||
TCD
|
||||
ADC #$00F0
|
||||
TCS
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0006
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
L050269 ENT
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00F7
|
||||
TCD
|
||||
ADC #$00F0
|
||||
TCS
|
||||
LDA L020038
|
||||
PHA
|
||||
INC
|
||||
STA L020038
|
||||
PLA
|
||||
ASL
|
||||
ASL
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L030165
|
||||
LDX #^L030165
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $F2
|
||||
STX $F4
|
||||
LDX $FF
|
||||
LDA $FD
|
||||
LDY #$0002
|
||||
PHA
|
||||
TXA
|
||||
STA [$F2],Y
|
||||
PLA
|
||||
STA [$F2]
|
||||
PEI $FF
|
||||
PEI $FD
|
||||
PEA ^L030150
|
||||
PEA L030150
|
||||
JSL L050256
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0006
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
L0502BC ENT
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00FB
|
||||
TCD
|
||||
ADC #$00F4
|
||||
TCS
|
||||
LDA L020038
|
||||
DEC
|
||||
STA L020038
|
||||
ASL
|
||||
ASL
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L030165
|
||||
LDX #^L030165
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $F6
|
||||
STX $F8
|
||||
LDY #$0002
|
||||
LDA [$F6],Y
|
||||
TAX
|
||||
LDA [$F6]
|
||||
PHX
|
||||
PHA
|
||||
PEA ^L030159
|
||||
PEA L030159
|
||||
JSL L050256
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0006
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00FB
|
||||
TCD
|
||||
ADC #$00F4
|
||||
TCS
|
||||
PEA ^L030162
|
||||
PEA L030162
|
||||
JSL L050256
|
||||
PLY
|
||||
PLY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0006
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L012E77
|
||||
EXT L020002
|
||||
EXT L020038
|
||||
EXT L030130
|
||||
EXT L030133
|
||||
EXT L030136
|
||||
EXT L030139
|
||||
EXT L03013C
|
||||
EXT L03013F
|
||||
EXT L030142
|
||||
EXT L030145
|
||||
EXT L030148
|
||||
EXT L03014B
|
||||
EXT L03014E
|
||||
EXT L030165
|
||||
EXT L030150
|
||||
EXT L030159
|
||||
EXT L030162
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,118 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L013048
|
||||
EXT L012E77
|
||||
EXT L0133D4
|
||||
EXT L020002
|
||||
EXT L031DDC
|
||||
EXT L031DDA
|
||||
EXT L013333
|
||||
EXT L050256
|
||||
EXT L01493B
|
||||
EXT L014C78
|
||||
EXT L013003
|
||||
EXT L0B0000
|
||||
EXT L033C86
|
||||
EXT L0338EB
|
||||
EXT L033B90
|
||||
EXT L031DE0
|
||||
EXT L0718EE
|
||||
EXT L031DEE
|
||||
EXT L0D0522
|
||||
EXT L060000
|
||||
EXT L01457A
|
||||
EXT L014572
|
||||
EXT L020054
|
||||
EXT L020052
|
||||
EXT L020074
|
||||
EXT L032081
|
||||
EXT L032089
|
||||
EXT L032093
|
||||
EXT L03209E
|
||||
EXT L0320A8
|
||||
EXT L0320B3
|
||||
EXT L0320BD
|
||||
EXT L033359
|
||||
EXT L033342
|
||||
EXT L033375
|
||||
EXT L03335E
|
||||
EXT L033391
|
||||
EXT L03337A
|
||||
EXT L0333AD
|
||||
EXT L033396
|
||||
EXT L0333C9
|
||||
EXT L0333B2
|
||||
EXT L0333D6
|
||||
EXT L0333CE
|
||||
EXT L0333E3
|
||||
EXT L0333DB
|
||||
EXT L0333F0
|
||||
EXT L0333E8
|
||||
EXT L0333FD
|
||||
EXT L0333F5
|
||||
EXT L03340A
|
||||
EXT L033402
|
||||
EXT L033417
|
||||
EXT L03340F
|
||||
EXT L033427
|
||||
EXT L03341C
|
||||
EXT L03342C
|
||||
EXT L033433
|
||||
EXT L03343A
|
||||
EXT L033441
|
||||
EXT L033448
|
||||
EXT L03344F
|
||||
EXT L033457
|
||||
EXT L03345F
|
||||
EXT L033466
|
||||
EXT L03346D
|
||||
EXT L033477
|
||||
EXT L03347E
|
||||
EXT L033486
|
||||
EXT L03348E
|
||||
EXT L033496
|
||||
EXT L03349E
|
||||
EXT L0334A6
|
||||
EXT L0334AE
|
||||
EXT L0334B6
|
||||
EXT L0334BE
|
||||
EXT L0334C6
|
||||
EXT L0334CE
|
||||
EXT L0334E0
|
||||
EXT L0334ED
|
||||
EXT L0334FD
|
||||
EXT L033505
|
||||
EXT L033518
|
||||
EXT L033523
|
||||
EXT L03352E
|
||||
EXT L033536
|
||||
EXT L03353F
|
||||
EXT L033554
|
||||
EXT L03355F
|
||||
EXT L03356D
|
||||
EXT L03357C
|
||||
EXT L033598
|
||||
EXT L0335A5
|
||||
EXT L0335B9
|
||||
EXT L0335CD
|
||||
EXT L0335D2
|
||||
EXT L0335E6
|
||||
EXT L0335FD
|
||||
EXT L033611
|
||||
EXT L033616
|
||||
EXT L033626
|
||||
EXT L033630
|
||||
EXT L033638
|
||||
EXT L033647
|
||||
EXT L033654
|
||||
EXT L033663
|
||||
EXT L03883C
|
||||
EXT L038861
|
||||
EXT L038885
|
||||
EXT L0388A9
|
||||
EXT L0388C2
|
||||
EXT L0388F4
|
||||
|
||||
|
|
@ -0,0 +1,786 @@
|
|||
|
||||
*---------------------------------------------------------*
|
||||
* Disassembled with The Flaming Bird Disassembler *
|
||||
* (c) Phoenix corp. 1992,93 - All rights reserved *
|
||||
*---------------------------------------------------------*
|
||||
|
||||
REL
|
||||
|
||||
L0C0000 ENT
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00F5
|
||||
TCD
|
||||
ADC #$00EB
|
||||
TCS
|
||||
LDA $FF
|
||||
SEC
|
||||
SBC #$0001
|
||||
STA $FF
|
||||
LDA $FF
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDX $FD
|
||||
LDA $FB
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $F0
|
||||
STX $F2
|
||||
LDA [$F0]
|
||||
AND #$00FF
|
||||
ASL
|
||||
ASL
|
||||
ASL
|
||||
ASL
|
||||
SEP #$20
|
||||
STA $EF
|
||||
REP #$20
|
||||
LDA $FF
|
||||
STA $ED
|
||||
BRA L0C00BB
|
||||
L0C003D LDA $ED
|
||||
LDX #$0000
|
||||
TAY
|
||||
BPL L0C0046
|
||||
DEX
|
||||
L0C0046 PHX
|
||||
PHA
|
||||
LDX $FD
|
||||
LDA $FB
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
SEC
|
||||
SBC #$0001
|
||||
PHA
|
||||
TXA
|
||||
SBC #$0000
|
||||
TAX
|
||||
PLA
|
||||
STA $F0
|
||||
STX $F2
|
||||
LDA [$F0]
|
||||
AND #$00FF
|
||||
ASL
|
||||
ASL
|
||||
ASL
|
||||
ASL
|
||||
PHA
|
||||
LDA #$0004
|
||||
PHA
|
||||
LDA $ED
|
||||
LDX #$0000
|
||||
TAY
|
||||
BPL L0C0078
|
||||
DEX
|
||||
L0C0078 PHX
|
||||
PHA
|
||||
LDX $FD
|
||||
LDA $FB
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $F0
|
||||
STX $F2
|
||||
LDA [$F0]
|
||||
AND #$00FF
|
||||
SEC
|
||||
JSL L013B5F
|
||||
PLA
|
||||
PLX
|
||||
STX $F4
|
||||
ORA $F4
|
||||
PHA
|
||||
LDA $ED
|
||||
LDX #$0000
|
||||
TAY
|
||||
BPL L0C00A2
|
||||
DEX
|
||||
L0C00A2 PHX
|
||||
PHA
|
||||
LDX $FD
|
||||
LDA $FB
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $F0
|
||||
STX $F2
|
||||
PLA
|
||||
SEP #$20
|
||||
STA [$F0]
|
||||
REP #$20
|
||||
DEC $ED
|
||||
L0C00BB LDA $ED
|
||||
SEC
|
||||
SBC #$0000
|
||||
BEQ L0C00CD
|
||||
BVS L0C00C8
|
||||
EOR #$8000
|
||||
L0C00C8 BPL L0C00CD
|
||||
BRL L0C003D
|
||||
L0C00CD LDA $EF
|
||||
AND #$00FF
|
||||
PHA
|
||||
LDA #$0004
|
||||
PHA
|
||||
LDA [$FB]
|
||||
AND #$00FF
|
||||
SEC
|
||||
JSL L013B5F
|
||||
PLA
|
||||
PLX
|
||||
STX $F4
|
||||
ORA $F4
|
||||
SEP #$20
|
||||
STA [$FB]
|
||||
REP #$20
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0009
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
L0C00F5 ENT
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00F1
|
||||
TCD
|
||||
ADC #$00D4
|
||||
TCS
|
||||
LDA $FB
|
||||
BRL L0C0128
|
||||
L0C0105 LDA #$0012
|
||||
STA $EA
|
||||
LDA #$FFDF
|
||||
STA $DE
|
||||
BRL L0C0136
|
||||
L0C0112 LDA #$000C
|
||||
STA $EA
|
||||
LDA #$003E
|
||||
STA $DE
|
||||
BRL L0C0136
|
||||
L0C011F BRL L0C0136
|
||||
L0C0122 DA L0C0105
|
||||
DA L0C0112
|
||||
DA L0C011F
|
||||
L0C0128 DEC
|
||||
CMP #$0002
|
||||
BCC L0C0131
|
||||
LDA #$0002
|
||||
L0C0131 ASL
|
||||
TAX
|
||||
JMP (L0C0122,X)
|
||||
|
||||
L0C0136 LDA $FD
|
||||
STA $D8
|
||||
LDA $FF
|
||||
STA $D6
|
||||
LDA $FF
|
||||
CLC
|
||||
ADC $EA
|
||||
STA $DA
|
||||
LDA $FD
|
||||
STA $E8
|
||||
PEI $F9
|
||||
PEI $F7
|
||||
JSL L0140CE
|
||||
PLY
|
||||
PLY
|
||||
STA $E6
|
||||
STZ $E4
|
||||
BRL L0C028D
|
||||
L0C015A LDA $E4
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDX $F9
|
||||
LDA $F7
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EC
|
||||
STX $EE
|
||||
LDA [$EC]
|
||||
AND #$00FF
|
||||
CLC
|
||||
ADC $DE
|
||||
STA $E0
|
||||
LDA $E4
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDX $F9
|
||||
LDA $F7
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EC
|
||||
STX $EE
|
||||
LDA [$EC]
|
||||
AND #$00FF
|
||||
CMP #$0020
|
||||
BEQ L0C019B
|
||||
BRL L0C01D0
|
||||
L0C019B LDA $FB
|
||||
BRL L0C01BF
|
||||
L0C01A0 LDA $E8
|
||||
CLC
|
||||
ADC #$0006
|
||||
STA $E8
|
||||
BRL L0C01CD
|
||||
L0C01AB LDA $E8
|
||||
CLC
|
||||
ADC #$0004
|
||||
STA $E8
|
||||
BRL L0C01CD
|
||||
L0C01B6 BRL L0C01CD
|
||||
L0C01B9 DA L0C01A0
|
||||
DA L0C01AB
|
||||
DA L0C01B6
|
||||
L0C01BF DEC
|
||||
CMP #$0002
|
||||
BCC L0C01C8
|
||||
LDA #$0002
|
||||
L0C01C8 ASL
|
||||
TAX
|
||||
JMP (L0C01B9,X)
|
||||
|
||||
L0C01CD BRL L0C028B
|
||||
L0C01D0 LDA $E4
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDX $F9
|
||||
LDA $F7
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EC
|
||||
STX $EE
|
||||
LDY #$0001
|
||||
LDA [$EC],Y
|
||||
AND #$00FF
|
||||
CMP #$006A
|
||||
BEQ L0C01F5
|
||||
BRL L0C023E
|
||||
L0C01F5 LDA $E4
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDX $F9
|
||||
LDA $F7
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EC
|
||||
STX $EE
|
||||
LDA [$EC]
|
||||
AND #$00FF
|
||||
BRL L0C0220
|
||||
L0C0212 LDA #$0001
|
||||
STA $E2
|
||||
BRL L0C023C
|
||||
L0C021A STZ $E2
|
||||
BRA L0C023C
|
||||
BRA L0C023C
|
||||
L0C0220 CMP #$0067
|
||||
BEQ L0C0212
|
||||
CMP #$006A
|
||||
BEQ L0C0212
|
||||
CMP #$0070
|
||||
BEQ L0C0212
|
||||
CMP #$0071
|
||||
BEQ L0C0212
|
||||
CMP #$0079
|
||||
BEQ L0C0212
|
||||
JMP L0C021A
|
||||
|
||||
L0C023C BRA L0C0260
|
||||
L0C023E LDA $E0
|
||||
ASL
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L033F26
|
||||
LDX #^L033F26
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EC
|
||||
STX $EE
|
||||
LDY #$0001
|
||||
LDA [$EC],Y
|
||||
AND #$00FF
|
||||
STA $E2
|
||||
L0C0260 LDA $E0
|
||||
ASL
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L033F26
|
||||
LDX #^L033F26
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EC
|
||||
STX $EE
|
||||
LDA [$EC]
|
||||
AND #$00FF
|
||||
CLC
|
||||
ADC $E2
|
||||
PHA
|
||||
LDA $E8
|
||||
PLX
|
||||
STX $F0
|
||||
CLC
|
||||
ADC $F0
|
||||
STA $E8
|
||||
L0C028B INC $E4
|
||||
L0C028D LDA $E4
|
||||
CMP $E6
|
||||
BCS L0C0296
|
||||
BRL L0C015A
|
||||
L0C0296 LDA $E8
|
||||
STA $DC
|
||||
PEA $000E
|
||||
_SetSolidPenPat
|
||||
BCS L0C02A9
|
||||
LDA #$0000
|
||||
L0C02A9 STAL L020002
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$00D6
|
||||
PHA
|
||||
_PaintRect
|
||||
BCS L0C02C2
|
||||
LDA #$0000
|
||||
L0C02C2 STAL L020002
|
||||
TSC
|
||||
CLC
|
||||
ADC #$001C
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
L0C02CE ENT
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00EF
|
||||
TCD
|
||||
ADC #$00D0
|
||||
TCS
|
||||
LDA $FF
|
||||
AND #$00FF
|
||||
AND #$000F
|
||||
SEP #$20
|
||||
STA $FF
|
||||
REP #$20
|
||||
LDA $F9
|
||||
BRL L0C0319
|
||||
L0C02EC LDA #$0012
|
||||
STA $E8
|
||||
LDA #$00B4
|
||||
STA $E6
|
||||
LDA #$FFDF
|
||||
STA $D2
|
||||
BRL L0C0327
|
||||
L0C02FE LDA #$000C
|
||||
STA $E8
|
||||
LDA #$00BA
|
||||
STA $E6
|
||||
LDA #$003E
|
||||
STA $D2
|
||||
BRL L0C0327
|
||||
L0C0310 BRL L0C0327
|
||||
L0C0313 DA L0C02EC
|
||||
DA L0C02FE
|
||||
DA L0C0310
|
||||
L0C0319 DEC
|
||||
CMP #$0002
|
||||
BCC L0C0322
|
||||
LDA #$0002
|
||||
L0C0322 ASL
|
||||
TAX
|
||||
JMP (L0C0313,X)
|
||||
|
||||
L0C0327 LDA $FD
|
||||
CMP #$000C
|
||||
BEQ L0C0336
|
||||
BCC L0C0336
|
||||
LDA $FD
|
||||
CMP $E6
|
||||
BCC L0C0345
|
||||
L0C0336 PEA ^L0364D7
|
||||
PEA L0364D7
|
||||
JSL L050256
|
||||
PLY
|
||||
PLY
|
||||
BRL L0C0617
|
||||
L0C0345 LDA $FB
|
||||
STA $E4
|
||||
PEI $F7
|
||||
PEI $F5
|
||||
JSL L0140CE
|
||||
PLY
|
||||
PLY
|
||||
STA $E2
|
||||
STZ $E0
|
||||
BRL L0C060E
|
||||
L0C035A LDA $E0
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDX $F7
|
||||
LDA $F5
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EA
|
||||
STX $EC
|
||||
LDA [$EA]
|
||||
AND #$00FF
|
||||
CLC
|
||||
ADC $D2
|
||||
STA $D4
|
||||
LDA $E0
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDX $F7
|
||||
LDA $F5
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EA
|
||||
STX $EC
|
||||
LDA [$EA]
|
||||
AND #$00FF
|
||||
CMP #$0020
|
||||
BEQ L0C039B
|
||||
BRL L0C03D0
|
||||
L0C039B LDA $F9
|
||||
BRL L0C03BF
|
||||
L0C03A0 LDA $E4
|
||||
CLC
|
||||
ADC #$0006
|
||||
STA $E4
|
||||
BRL L0C03CD
|
||||
L0C03AB LDA $E4
|
||||
CLC
|
||||
ADC #$0004
|
||||
STA $E4
|
||||
BRL L0C03CD
|
||||
L0C03B6 BRL L0C03CD
|
||||
L0C03B9 DA L0C03A0
|
||||
DA L0C03AB
|
||||
DA L0C03B6
|
||||
L0C03BF DEC
|
||||
CMP #$0002
|
||||
BCC L0C03C8
|
||||
LDA #$0002
|
||||
L0C03C8 ASL
|
||||
TAX
|
||||
JMP (L0C03B9,X)
|
||||
|
||||
L0C03CD BRL L0C060C
|
||||
L0C03D0 LDA $D4
|
||||
ASL
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L033F26
|
||||
LDX #^L033F26
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EA
|
||||
STX $EC
|
||||
LDA [$EA]
|
||||
AND #$00FF
|
||||
CMP #$0000
|
||||
BNE L0C041D
|
||||
LDA $E0
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDX $F7
|
||||
LDA $F5
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EA
|
||||
STX $EC
|
||||
LDA [$EA]
|
||||
AND #$00FF
|
||||
PHA
|
||||
PEA ^L03650B
|
||||
PEA L03650B
|
||||
JSL L050256
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
BRL L0C060C
|
||||
L0C041D LDA #$0002
|
||||
PHA
|
||||
LDA $D4
|
||||
ASL
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L033F26
|
||||
LDX #^L033F26
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EA
|
||||
STX $EC
|
||||
LDA [$EA]
|
||||
AND #$00FF
|
||||
SEC
|
||||
JSL L012E82
|
||||
PLY
|
||||
CLC
|
||||
ADC #$0001
|
||||
STA $DE
|
||||
LDA $DE
|
||||
PHA
|
||||
LDA $E8
|
||||
CLC
|
||||
JSL L013003
|
||||
PLA
|
||||
STA $DC
|
||||
LDA $D4
|
||||
ASL
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L033F26
|
||||
LDX #^L033F26
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EA
|
||||
STX $EC
|
||||
LDA [$EA]
|
||||
AND #$00FF
|
||||
PHA
|
||||
LDA $E4
|
||||
PLX
|
||||
STX $EE
|
||||
CLC
|
||||
ADC $EE
|
||||
STA $DA
|
||||
PEI $DC
|
||||
LDA $D4
|
||||
ASL
|
||||
ASL
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L0361DF
|
||||
LDX #^L0361DF
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EA
|
||||
STX $EC
|
||||
LDY #$0002
|
||||
LDA [$EA],Y
|
||||
TAX
|
||||
LDA [$EA]
|
||||
PHX
|
||||
PHA
|
||||
PEA ^L036578
|
||||
PEA L036578
|
||||
JSL L013E61
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
LDA #$0002
|
||||
PHA
|
||||
LDA $E4
|
||||
CLC
|
||||
JSL L012E82
|
||||
PLA
|
||||
TAY
|
||||
BEQ L0C04D1
|
||||
PEI $DC
|
||||
PEA ^L036578
|
||||
PEA L036578
|
||||
JSL L0C0000
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
L0C04D1 LDA $FF
|
||||
AND #$00FF
|
||||
CMP #$000F
|
||||
BEQ L0C04F9
|
||||
LDA $FF
|
||||
AND #$00FF
|
||||
PHA
|
||||
LDA #$000F
|
||||
AND #$00FF
|
||||
PHA
|
||||
PEI $DC
|
||||
PEA ^L036578
|
||||
PEA L036578
|
||||
JSL L013D40
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
L0C04F9 LDA #$0002
|
||||
PHA
|
||||
LDA $E4
|
||||
CLC
|
||||
JSL L012E82
|
||||
PLA
|
||||
TAY
|
||||
BEQ L0C0510
|
||||
LDA $E4
|
||||
SEC
|
||||
SBC #$0001
|
||||
BRA L0C0512
|
||||
L0C0510 LDA $E4
|
||||
L0C0512 STA $D8
|
||||
LDA $DA
|
||||
CMP #$013F
|
||||
BEQ L0C051D
|
||||
BCS L0C0545
|
||||
L0C051D PEI $DE
|
||||
PEI $DC
|
||||
PEA $000E
|
||||
PEA $0020
|
||||
PEI $FD
|
||||
PEI $D8
|
||||
PEA $00E1
|
||||
PEA $2000
|
||||
PEA ^L036578
|
||||
PEA L036578
|
||||
JSL L014D17
|
||||
TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0014
|
||||
TCS
|
||||
TYA
|
||||
BRA L0C0551
|
||||
L0C0545 PEA ^L036542
|
||||
PEA L036542
|
||||
JSL L050256
|
||||
PLY
|
||||
PLY
|
||||
L0C0551 LDA $E0
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDX $F7
|
||||
LDA $F5
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EA
|
||||
STX $EC
|
||||
LDY #$0001
|
||||
LDA [$EA],Y
|
||||
AND #$00FF
|
||||
CMP #$006A
|
||||
BEQ L0C0576
|
||||
BRL L0C05BF
|
||||
L0C0576 LDA $E0
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDX $F7
|
||||
LDA $F5
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EA
|
||||
STX $EC
|
||||
LDA [$EA]
|
||||
AND #$00FF
|
||||
BRL L0C05A1
|
||||
L0C0593 LDA #$0001
|
||||
STA $D6
|
||||
BRL L0C05BD
|
||||
L0C059B STZ $D6
|
||||
BRA L0C05BD
|
||||
BRA L0C05BD
|
||||
L0C05A1 CMP #$0067
|
||||
BEQ L0C0593
|
||||
CMP #$006A
|
||||
BEQ L0C0593
|
||||
CMP #$0070
|
||||
BEQ L0C0593
|
||||
CMP #$0071
|
||||
BEQ L0C0593
|
||||
CMP #$0079
|
||||
BEQ L0C0593
|
||||
JMP L0C059B
|
||||
|
||||
L0C05BD BRA L0C05E1
|
||||
L0C05BF LDA $D4
|
||||
ASL
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L033F26
|
||||
LDX #^L033F26
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EA
|
||||
STX $EC
|
||||
LDY #$0001
|
||||
LDA [$EA],Y
|
||||
AND #$00FF
|
||||
STA $D6
|
||||
L0C05E1 LDA $D4
|
||||
ASL
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L033F26
|
||||
LDX #^L033F26
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $EA
|
||||
STX $EC
|
||||
LDA [$EA]
|
||||
AND #$00FF
|
||||
CLC
|
||||
ADC $D6
|
||||
PHA
|
||||
LDA $E4
|
||||
PLX
|
||||
STX $EE
|
||||
CLC
|
||||
ADC $EE
|
||||
STA $E4
|
||||
L0C060C INC $E0
|
||||
L0C060E LDA $E0
|
||||
CMP $E2
|
||||
BCS L0C0617
|
||||
BRL L0C035A
|
||||
L0C0617 TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$001E
|
||||
TCS
|
||||
TYA
|
||||
PLD
|
||||
RTL
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L012E77
|
||||
EXT L020002
|
||||
EXT L050256
|
||||
EXT L013003
|
||||
EXT L0140CE
|
||||
EXT L012E82
|
||||
EXT L013B5F
|
||||
EXT L013E61
|
||||
EXT L013D40
|
||||
EXT L014D17
|
||||
EXT L033F26
|
||||
EXT L0364D7
|
||||
EXT L03650B
|
||||
EXT L0361DF
|
||||
EXT L036578
|
||||
EXT L036542
|
||||
|
||||
|
|
@ -0,0 +1,617 @@
|
|||
|
||||
*---------------------------------------------------------*
|
||||
* Disassembled with The Flaming Bird Disassembler *
|
||||
* (c) Phoenix corp. 1992,93 - All rights reserved *
|
||||
*---------------------------------------------------------*
|
||||
|
||||
REL
|
||||
|
||||
L080000 PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00F7
|
||||
TCD
|
||||
ADC #$00F0
|
||||
TCS
|
||||
LDA $FD
|
||||
CLC
|
||||
ADC #$0010
|
||||
LDX $FF
|
||||
BCC L080016
|
||||
INX
|
||||
L080016 TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0006
|
||||
TCS
|
||||
TYA
|
||||
PLD
|
||||
RTL
|
||||
|
||||
L080020 PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00FB
|
||||
TCD
|
||||
ADC #$00F4
|
||||
TCS
|
||||
LDX L020046
|
||||
LDA L020044
|
||||
STX $F6
|
||||
ORA $F6
|
||||
BNE L08003A
|
||||
BRL L0800B8
|
||||
L08003A LDX #$0000
|
||||
LDA #$0032
|
||||
PHX
|
||||
PHA
|
||||
LDX L020046
|
||||
LDA L020044
|
||||
STA $F6
|
||||
STX $F8
|
||||
LDY #$0002
|
||||
LDA [$F6],Y
|
||||
TAX
|
||||
LDA [$F6]
|
||||
STA $F6
|
||||
STX $F8
|
||||
LDY #$0022
|
||||
LDA [$F6],Y
|
||||
TAX
|
||||
LDY #$0020
|
||||
LDA [$F6],Y
|
||||
JSL L013333
|
||||
BEQ L080070
|
||||
BVS L08006E
|
||||
EOR #$8000
|
||||
L08006E BMI L0800B8
|
||||
L080070 LDX L020046
|
||||
LDA L020044
|
||||
STA $F6
|
||||
STX $F8
|
||||
LDY #$0002
|
||||
LDA [$F6],Y
|
||||
TAX
|
||||
LDA [$F6]
|
||||
STA $F6
|
||||
STX $F8
|
||||
LDX $F8
|
||||
LDA #$0008
|
||||
CLC
|
||||
ADC $F6
|
||||
BCC L080091
|
||||
INX
|
||||
L080091 STX L020070
|
||||
STA L02006E
|
||||
PEA $0000
|
||||
LDX L020046
|
||||
LDA L020044
|
||||
PHX
|
||||
PHA
|
||||
_HiliteControl
|
||||
BCS L0800AE
|
||||
LDA #$0000
|
||||
L0800AE STAL L020002
|
||||
STZ L020044
|
||||
STZ L020046
|
||||
L0800B8 TSC
|
||||
CLC
|
||||
ADC #$0006
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
L0800C0 ENT
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00DF
|
||||
TCD
|
||||
ADC #$008C
|
||||
TCS
|
||||
STZ $D8
|
||||
STZ $D6
|
||||
LDA #$0103
|
||||
LDY #$0004
|
||||
STA [$E5],Y
|
||||
LDX #$FFFF
|
||||
LDA #$FFFF
|
||||
LDY #$0002
|
||||
PHA
|
||||
TXA
|
||||
STA [$E5],Y
|
||||
PLA
|
||||
STA [$E5]
|
||||
PHA
|
||||
PEA $FFFF
|
||||
PEA $0000
|
||||
_FlushEvents
|
||||
BCS L0800FA
|
||||
LDA #$0000
|
||||
L0800FA STAL L020002
|
||||
PLA
|
||||
PHX
|
||||
PHA
|
||||
_GetDblTime
|
||||
BCS L08010D
|
||||
LDA #$0000
|
||||
L08010D STAL L020002
|
||||
PLA
|
||||
PLX
|
||||
STX $CA
|
||||
STA $C8
|
||||
STZ $C0
|
||||
STZ $C2
|
||||
STZ $A0
|
||||
STZ $A2
|
||||
LDX #$0000
|
||||
LDA #$0F7D
|
||||
STX $BE
|
||||
STA $BC
|
||||
LDA L020050
|
||||
STA $9E
|
||||
L08012E LDA $D8
|
||||
BEQ L080135
|
||||
BRL L08048E
|
||||
L080135 LDX $EF
|
||||
LDA $ED
|
||||
STX $DA
|
||||
ORA $DA
|
||||
BEQ L080165
|
||||
LDA $ED
|
||||
LDX $EF
|
||||
JSL L014572
|
||||
TAY
|
||||
BEQ L080165
|
||||
LDA #$0103
|
||||
LDY #$0004
|
||||
STA [$E5],Y
|
||||
LDX #$0000
|
||||
LDA #$000D
|
||||
LDY #$0002
|
||||
PHA
|
||||
TXA
|
||||
STA [$E5],Y
|
||||
PLA
|
||||
STA [$E5]
|
||||
BRL L08048E
|
||||
L080165 PHA
|
||||
PEA $FFFF
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$00A8
|
||||
PHA
|
||||
_TaskMaster
|
||||
BCS L08017E
|
||||
LDA #$0000
|
||||
L08017E STAL L020002
|
||||
PLA
|
||||
STA $D0
|
||||
LDA $D0
|
||||
CMP #$0000
|
||||
BNE L0801D1
|
||||
SEC
|
||||
LDA $B8
|
||||
SBC #$0000
|
||||
BNE L08019B
|
||||
LDA $BA
|
||||
SBC #$0000
|
||||
BRA L0801A2
|
||||
L08019B LDA $BA
|
||||
SBC #$0000
|
||||
REP #$02
|
||||
L0801A2 BEQ L0801D1
|
||||
LDX $BA
|
||||
LDA $B8
|
||||
STA $9A
|
||||
LDX #$0000
|
||||
LDA #$0010
|
||||
PHX
|
||||
PHA
|
||||
LDX $BA
|
||||
LDA $B8
|
||||
CLC
|
||||
JSL L013B83
|
||||
PLA
|
||||
PLX
|
||||
STA $9C
|
||||
LDA $9A
|
||||
CMP $9E
|
||||
BNE L0801D1
|
||||
LDA $9C
|
||||
CMP #$0001
|
||||
BNE L0801D1
|
||||
LDA #$0001
|
||||
STA $D6
|
||||
L0801D1 LDA $D6
|
||||
BEQ L0801DF
|
||||
LDA $D0
|
||||
CMP #$0008
|
||||
BEQ L0801DF
|
||||
BRL L08012E
|
||||
L0801DF LDX $FB
|
||||
LDA $F9
|
||||
STX $DA
|
||||
ORA $DA
|
||||
BEQ L08022F
|
||||
PHA
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$00A8
|
||||
PHA
|
||||
_IsDialogEvent
|
||||
BCS L0801FF
|
||||
LDA #$0000
|
||||
L0801FF STAL L020002
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$00A8
|
||||
PHA
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$0096
|
||||
PHA
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$0092
|
||||
PHA
|
||||
_DialogSelect
|
||||
BCS L08022A
|
||||
LDA #$0000
|
||||
L08022A STAL L020002
|
||||
PLA
|
||||
L08022F LDA $D0
|
||||
BRL L080463
|
||||
L080234 PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$00A8
|
||||
PHA
|
||||
JSL L080000
|
||||
PLY
|
||||
PLY
|
||||
STX $CE
|
||||
STA $CC
|
||||
LDA [$CC]
|
||||
LDY #$0004
|
||||
STA [$E5],Y
|
||||
PEA $0000
|
||||
LDY #$0002
|
||||
LDA [$CC],Y
|
||||
PHA
|
||||
_HiliteMenu
|
||||
BCS L080263
|
||||
LDA #$0000
|
||||
L080263 STAL L020002
|
||||
LDA #$0001
|
||||
STA $D8
|
||||
BRL L080483
|
||||
L08026F PHX
|
||||
PHA
|
||||
_GetTick
|
||||
BCS L08027D
|
||||
LDA #$0000
|
||||
L08027D STAL L020002
|
||||
PLA
|
||||
PLX
|
||||
STX $C6
|
||||
STA $C4
|
||||
PHA
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$00A4
|
||||
PHA
|
||||
PEI $B4
|
||||
PEI $B2
|
||||
PEI $EB
|
||||
PEI $E9
|
||||
_FindControl
|
||||
BCS L0802A5
|
||||
LDA #$0000
|
||||
L0802A5 STAL L020002
|
||||
PLA
|
||||
STA $D4
|
||||
LDA $D4
|
||||
BRL L0803A9
|
||||
L0802B1 LDY #$0002
|
||||
LDA [$A4],Y
|
||||
TAX
|
||||
LDA [$A4]
|
||||
STA $DA
|
||||
STX $DC
|
||||
LDY #$0022
|
||||
LDA [$DA],Y
|
||||
TAX
|
||||
LDY #$0020
|
||||
LDA [$DA],Y
|
||||
LDY #$0002
|
||||
PHA
|
||||
TXA
|
||||
STA [$E5],Y
|
||||
PLA
|
||||
STA [$E5]
|
||||
LDX $FF
|
||||
LDA $FD
|
||||
STX $DA
|
||||
ORA $DA
|
||||
BEQ L0802F8
|
||||
LDX $FF
|
||||
LDA $FD
|
||||
PHX
|
||||
PHA
|
||||
LDY #$0002
|
||||
LDA [$E5],Y
|
||||
TAX
|
||||
LDA [$E5]
|
||||
JSL L013333
|
||||
BCS L0802F8
|
||||
LDA #$0001
|
||||
STA $D8
|
||||
BRL L08012E
|
||||
L0802F8 LDA $A0
|
||||
CMP $A4
|
||||
BNE L080329
|
||||
LDA $A2
|
||||
CMP $A6
|
||||
BNE L080329
|
||||
LDX $CA
|
||||
LDA $C8
|
||||
PHX
|
||||
PHA
|
||||
LDX $C6
|
||||
LDA $C4
|
||||
SEC
|
||||
SBC $C0
|
||||
PHA
|
||||
TXA
|
||||
SBC $C2
|
||||
TAX
|
||||
PLA
|
||||
JSL L013333
|
||||
BEQ L080329
|
||||
BCC L080329
|
||||
LDA #$0001
|
||||
STA $D8
|
||||
BRL L08012E
|
||||
BRA L080369
|
||||
L080329 JSL L080020
|
||||
LDY #$0002
|
||||
LDA [$A4],Y
|
||||
TAX
|
||||
LDA [$A4]
|
||||
STA $DA
|
||||
STX $DC
|
||||
LDX $DC
|
||||
LDA #$0008
|
||||
CLC
|
||||
ADC $DA
|
||||
BCC L080344
|
||||
INX
|
||||
L080344 STX L020070
|
||||
STA L02006E
|
||||
PEA $0002
|
||||
LDX $A6
|
||||
LDA $A4
|
||||
STX L020046
|
||||
STA L020044
|
||||
PHX
|
||||
PHA
|
||||
_HiliteControl
|
||||
BCS L080365
|
||||
LDA #$0000
|
||||
L080365 STAL L020002
|
||||
L080369 LDX $A6
|
||||
LDA $A4
|
||||
STX $A2
|
||||
STA $A0
|
||||
BRL L0803B8
|
||||
L080374 PHA
|
||||
PEI $B4
|
||||
PEI $B2
|
||||
PEI $F3
|
||||
PEI $F1
|
||||
PEI $A6
|
||||
PEI $A4
|
||||
_TrackControl
|
||||
BCS L08038D
|
||||
LDA #$0000
|
||||
L08038D STAL L020002
|
||||
PLA
|
||||
STA $D2
|
||||
BRL L0803B8
|
||||
L080397 JSL L080020
|
||||
BRL L0803B8
|
||||
BRL L0803B8
|
||||
L0803A1 DA L0802B1
|
||||
DA L080397
|
||||
DA L080374
|
||||
STA [$03],Y
|
||||
L0803A9 DEC
|
||||
DEC
|
||||
CMP #$0003
|
||||
BCC L0803B3
|
||||
LDA #$0003
|
||||
L0803B3 ASL
|
||||
TAX
|
||||
JMP (L0803A1,X)
|
||||
|
||||
L0803B8 BRL L080483
|
||||
L0803BB LDX $F7
|
||||
LDA $F5
|
||||
STX $DA
|
||||
ORA $DA
|
||||
BEQ L08043C
|
||||
LDA $AA
|
||||
CMP #$000D
|
||||
BNE L08043C
|
||||
LDA $AC
|
||||
CMP #$0000
|
||||
BNE L08043C
|
||||
LDA #$0103
|
||||
LDY #$0004
|
||||
STA [$E5],Y
|
||||
LDX #$0000
|
||||
LDA #$000D
|
||||
LDY #$0002
|
||||
PHA
|
||||
TXA
|
||||
STA [$E5],Y
|
||||
PLA
|
||||
STA [$E5]
|
||||
PEI $F7
|
||||
PEI $F5
|
||||
JSL L012A2D
|
||||
PLY
|
||||
PLY
|
||||
STX $90
|
||||
STA $8E
|
||||
STX $DA
|
||||
ORA $DA
|
||||
BEQ L080437
|
||||
JSL L080020
|
||||
LDY #$0002
|
||||
LDA [$8E],Y
|
||||
TAX
|
||||
LDA [$8E]
|
||||
STA $DA
|
||||
STX $DC
|
||||
LDX $DC
|
||||
LDA #$0008
|
||||
CLC
|
||||
ADC $DA
|
||||
BCC L08041A
|
||||
INX
|
||||
L08041A STX L020070
|
||||
STA L02006E
|
||||
PEA $0002
|
||||
PEI $90
|
||||
PEI $8E
|
||||
_HiliteControl
|
||||
BCS L080433
|
||||
LDA #$0000
|
||||
L080433 STAL L020002
|
||||
L080437 LDA #$0001
|
||||
STA $D8
|
||||
L08043C BRL L080483
|
||||
L08043F LDA $9A
|
||||
CMP $9E
|
||||
BEQ L08045C
|
||||
LDA $D6
|
||||
BEQ L08045C
|
||||
STZ $D6
|
||||
LDA $9E
|
||||
STA $9A
|
||||
LDA #$0001
|
||||
STA $D8
|
||||
LDA #$0192
|
||||
LDY #$0004
|
||||
STA [$E5],Y
|
||||
L08045C BRL L080483
|
||||
L08045F BRA L080483
|
||||
BRA L080483
|
||||
L080463 CMP #$0003
|
||||
BNE L08046B
|
||||
BRL L0803BB
|
||||
L08046B CMP #$0008
|
||||
BEQ L08043F
|
||||
CMP #$0011
|
||||
BNE L080478
|
||||
BRL L080234
|
||||
L080478 CMP #$0013
|
||||
BNE L080480
|
||||
BRL L08026F
|
||||
L080480 JMP L08045F
|
||||
|
||||
L080483 LDX $C6
|
||||
LDA $C4
|
||||
STX $C2
|
||||
STA $C0
|
||||
BRL L08012E
|
||||
L08048E TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0052
|
||||
TCS
|
||||
TYA
|
||||
PLD
|
||||
RTL
|
||||
|
||||
L080498 ENT
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00F3
|
||||
TCD
|
||||
ADC #$00EC
|
||||
TCS
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEI $FF
|
||||
PEI $FD
|
||||
PEI $FB
|
||||
PEI $F9
|
||||
JSL L0800C0
|
||||
TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$001C
|
||||
TCS
|
||||
TYA
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0006
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
L0804DD ENT
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00E7
|
||||
TCD
|
||||
ADC #$00E0
|
||||
TCS
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEI $FB
|
||||
PEI $F9
|
||||
PEI $FF
|
||||
PEI $FD
|
||||
PEA $0000
|
||||
PEA $0000
|
||||
PEI $F7
|
||||
PEI $F5
|
||||
PEI $F3
|
||||
PEI $F1
|
||||
PEI $EF
|
||||
PEI $ED
|
||||
JSL L0800C0
|
||||
TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$001C
|
||||
TCS
|
||||
TYA
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0006
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,16 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L020002
|
||||
EXT L013333
|
||||
EXT L014572
|
||||
EXT L013B83
|
||||
EXT L012A2D
|
||||
EXT L020046
|
||||
EXT L020044
|
||||
EXT L020070
|
||||
EXT L02006E
|
||||
EXT L020050
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,98 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L0371B8
|
||||
EXT L013048
|
||||
EXT L0371BC
|
||||
EXT L0371BA
|
||||
EXT L012E77
|
||||
EXT L0133D4
|
||||
EXT L031DE8
|
||||
EXT L031DE6
|
||||
EXT L013C06
|
||||
EXT L0132E0
|
||||
EXT L020002
|
||||
EXT L031DDC
|
||||
EXT L031DDA
|
||||
EXT L013333
|
||||
EXT L050256
|
||||
EXT L036F18
|
||||
EXT L036F34
|
||||
EXT L036FA4
|
||||
EXT L036F6C
|
||||
EXT L036F50
|
||||
EXT L036F88
|
||||
EXT L036FC0
|
||||
EXT L013F1E
|
||||
EXT L01493B
|
||||
EXT L014C78
|
||||
EXT L080498
|
||||
EXT L0A0F31
|
||||
EXT L01335E
|
||||
EXT L031DD8
|
||||
EXT L013003
|
||||
EXT L012AB8
|
||||
EXT L0140CE
|
||||
EXT L014524
|
||||
EXT L013A1F
|
||||
EXT L013A8B
|
||||
EXT L012E82
|
||||
EXT L031DFA
|
||||
EXT L031DF8
|
||||
EXT L01508C
|
||||
EXT L0A0082
|
||||
EXT L013B17
|
||||
EXT L012FF8
|
||||
EXT L0B0000
|
||||
EXT L0138ED
|
||||
EXT L0200E0
|
||||
EXT L0200E2
|
||||
EXT L0200DA
|
||||
EXT L0200D4
|
||||
EXT L0200D2
|
||||
EXT L0200D8
|
||||
EXT L0200D6
|
||||
EXT L0371C6
|
||||
EXT L0371BE
|
||||
EXT L0371D6
|
||||
EXT L0371CE
|
||||
EXT L0376A2
|
||||
EXT L0371D7
|
||||
EXT L0370E9
|
||||
EXT L03720F
|
||||
EXT L037229
|
||||
EXT L03722D
|
||||
EXT L037233
|
||||
EXT L03700F
|
||||
EXT L037332
|
||||
EXT L037368
|
||||
EXT L0376B2
|
||||
EXT L03736A
|
||||
EXT L0376C2
|
||||
EXT L03736C
|
||||
EXT L03736E
|
||||
EXT L0373CA
|
||||
EXT L0373FA
|
||||
EXT L03742D
|
||||
EXT L0374F1
|
||||
EXT L0374F7
|
||||
EXT L0374FD
|
||||
EXT L037503
|
||||
EXT L037509
|
||||
EXT L03756B
|
||||
EXT L037587
|
||||
EXT L037593
|
||||
EXT L0375A1
|
||||
EXT L0375AD
|
||||
EXT L0375B9
|
||||
EXT L0375C7
|
||||
EXT L033C86
|
||||
EXT L0375D2
|
||||
EXT L0338EB
|
||||
EXT L0375DA
|
||||
EXT L033B90
|
||||
EXT L0375F1
|
||||
EXT L03760D
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,430 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L031DE8
|
||||
EXT L031DE6
|
||||
EXT L020002
|
||||
EXT L031DDC
|
||||
EXT L031DDA
|
||||
EXT L050256
|
||||
EXT L031DD8
|
||||
EXT L031DFA
|
||||
EXT L031DF8
|
||||
EXT L0200E0
|
||||
EXT L0200E2
|
||||
EXT L0C0000
|
||||
EXT L037E33
|
||||
EXT L031DE0
|
||||
EXT L031DEE
|
||||
EXT L020046
|
||||
EXT L020044
|
||||
EXT L020070
|
||||
EXT L02006E
|
||||
EXT L020050
|
||||
EXT L070E5B
|
||||
EXT L031DF2
|
||||
EXT L031DF4
|
||||
EXT L031DF0
|
||||
EXT L02004A
|
||||
EXT L02004E
|
||||
EXT L02004C
|
||||
EXT L020078
|
||||
EXT L020084
|
||||
EXT L020080
|
||||
EXT L02007C
|
||||
EXT L020090
|
||||
EXT L0200C0
|
||||
EXT L020088
|
||||
EXT L02008C
|
||||
EXT L037A96
|
||||
EXT L037BA1
|
||||
EXT L038E82
|
||||
EXT L020004
|
||||
EXT L0E0000
|
||||
EXT L03002A
|
||||
EXT L030028
|
||||
EXT L03002C
|
||||
EXT L040000
|
||||
EXT L031DD2
|
||||
EXT L031DD4
|
||||
EXT L031DD6
|
||||
EXT L031DEC
|
||||
EXT L031DEA
|
||||
EXT L0702E0
|
||||
EXT L090072
|
||||
EXT L050269
|
||||
EXT L031DDE
|
||||
EXT L033DF0
|
||||
EXT L0502BC
|
||||
EXT L037D5B
|
||||
EXT L037D59
|
||||
EXT L037D73
|
||||
EXT L037D71
|
||||
EXT L037D8B
|
||||
EXT L037D89
|
||||
EXT L031DFC
|
||||
EXT L031DE4
|
||||
EXT L031DE2
|
||||
EXT L037F47
|
||||
EXT L037F45
|
||||
EXT L0382FF
|
||||
EXT L0382FD
|
||||
EXT L037FA0
|
||||
EXT L037F39
|
||||
EXT L037F37
|
||||
EXT L037F35
|
||||
EXT L0C02CE
|
||||
EXT L031DF6
|
||||
EXT L070C78
|
||||
EXT L0C00F5
|
||||
EXT L038F13
|
||||
EXT L038F16
|
||||
EXT L038F15
|
||||
EXT L038F18
|
||||
EXT L038EA8
|
||||
EXT L038EB2
|
||||
EXT L038EE4
|
||||
EXT L038EB6
|
||||
EXT L038EE8
|
||||
EXT L038EB4
|
||||
EXT L038EE6
|
||||
EXT L038EB8
|
||||
EXT L038EEA
|
||||
EXT L038ECA
|
||||
EXT L038ECE
|
||||
EXT L038EC2
|
||||
EXT L038EE2
|
||||
EXT L038EE0
|
||||
EXT L038F4D
|
||||
EXT L038F4A
|
||||
EXT L038F4C
|
||||
EXT L038F48
|
||||
EXT L038F44
|
||||
EXT L038F46
|
||||
EXT L038F47
|
||||
EXT L037F49
|
||||
EXT L037F4D
|
||||
EXT L037F4B
|
||||
EXT L037F53
|
||||
EXT L037F55
|
||||
EXT L037F4F
|
||||
EXT L037F51
|
||||
EXT L038329
|
||||
EXT L03833D
|
||||
EXT L038337
|
||||
EXT L03833B
|
||||
EXT L038339
|
||||
EXT L038341
|
||||
EXT L03833F
|
||||
EXT L038331
|
||||
EXT L03832F
|
||||
EXT L03832D
|
||||
EXT L03832B
|
||||
EXT L038333
|
||||
EXT L038335
|
||||
EXT L038303
|
||||
EXT L038301
|
||||
EXT L038307
|
||||
EXT L038305
|
||||
EXT L03830B
|
||||
EXT L03830F
|
||||
EXT L03830D
|
||||
EXT L038309
|
||||
EXT L038323
|
||||
EXT L038321
|
||||
EXT L03831F
|
||||
EXT L038315
|
||||
EXT L038313
|
||||
EXT L020014
|
||||
EXT L020012
|
||||
EXT L020018
|
||||
EXT L020016
|
||||
EXT L02000A
|
||||
EXT L020008
|
||||
EXT L020006
|
||||
EXT L02000E
|
||||
EXT L020010
|
||||
EXT L020000
|
||||
EXT L02000C
|
||||
EXT L0200F4
|
||||
EXT L0200F2
|
||||
EXT L0200F0
|
||||
EXT L0200EE
|
||||
EXT L0200CC
|
||||
EXT L020048
|
||||
EXT L0200CE
|
||||
EXT L02007E
|
||||
EXT L020076
|
||||
EXT L0200D0
|
||||
EXT L0200DC
|
||||
EXT L0200EA
|
||||
EXT L0200E8
|
||||
EXT L0200E6
|
||||
EXT L0200E4
|
||||
EXT L0200DE
|
||||
EXT L0200F8
|
||||
EXT L0200F6
|
||||
EXT L020086
|
||||
EXT L02008E
|
||||
EXT L02008A
|
||||
EXT L020100
|
||||
EXT L0200EC
|
||||
EXT L0200FC
|
||||
EXT L0200FA
|
||||
EXT L0200FE
|
||||
EXT L020092
|
||||
EXT L0200C2
|
||||
EXT L020082
|
||||
EXT L020102
|
||||
EXT L020111
|
||||
EXT L02007A
|
||||
EXT L02010B
|
||||
EXT L020109
|
||||
EXT L02010F
|
||||
EXT L02010D
|
||||
EXT L020107
|
||||
EXT L020105
|
||||
EXT L020103
|
||||
EXT L020123
|
||||
EXT L020125
|
||||
EXT L020113
|
||||
EXT L020115
|
||||
EXT L020121
|
||||
EXT L02011B
|
||||
EXT L020119
|
||||
EXT L02011F
|
||||
EXT L02011D
|
||||
EXT L020117
|
||||
EXT L020127
|
||||
EXT L02012B
|
||||
EXT L020129
|
||||
EXT L030000
|
||||
EXT L030020
|
||||
EXT L031C39
|
||||
EXT L031C52
|
||||
EXT L031C65
|
||||
EXT L031C70
|
||||
EXT L031C8F
|
||||
EXT L031C9A
|
||||
EXT L031BEB
|
||||
EXT L031CBD
|
||||
EXT L031CDB
|
||||
EXT L031D10
|
||||
EXT L031DCA
|
||||
EXT L031D45
|
||||
EXT L031D77
|
||||
EXT L031DB2
|
||||
EXT L031DA5
|
||||
EXT L031DC4
|
||||
EXT L033DF2
|
||||
EXT L033DFD
|
||||
EXT L033E0B
|
||||
EXT L033E0E
|
||||
EXT L033E15
|
||||
EXT L033E20
|
||||
EXT L033E2B
|
||||
EXT L033D50
|
||||
EXT L033DD4
|
||||
EXT L033E35
|
||||
EXT L033DEA
|
||||
EXT L033E5F
|
||||
EXT L033E57
|
||||
EXT L033E92
|
||||
EXT L033E60
|
||||
EXT L033EC6
|
||||
EXT L033E6D
|
||||
EXT L033E77
|
||||
EXT L033E83
|
||||
EXT L033EE6
|
||||
EXT L033E8A
|
||||
EXT L033F06
|
||||
EXT L03778B
|
||||
EXT L037853
|
||||
EXT L03785F
|
||||
EXT L03786B
|
||||
EXT L037877
|
||||
EXT L037883
|
||||
EXT L03788F
|
||||
EXT L03789B
|
||||
EXT L037C86
|
||||
EXT L037C8E
|
||||
EXT L037C96
|
||||
EXT L037CC0
|
||||
EXT L037F63
|
||||
EXT L031BB1
|
||||
EXT L03812F
|
||||
EXT L03813D
|
||||
EXT L038140
|
||||
EXT L03809D
|
||||
EXT L037DBB
|
||||
EXT L037D95
|
||||
EXT L038343
|
||||
EXT L0380B9
|
||||
EXT L037DF9
|
||||
EXT L0380F6
|
||||
EXT L038103
|
||||
EXT L038106
|
||||
EXT L038117
|
||||
EXT L03811A
|
||||
EXT L0380CB
|
||||
EXT L0380D0
|
||||
EXT L0380D5
|
||||
EXT L0380DA
|
||||
EXT L0380DD
|
||||
EXT L0380E2
|
||||
EXT L0380E8
|
||||
EXT L0380ED
|
||||
EXT L0380F2
|
||||
EXT L038064
|
||||
EXT L03809A
|
||||
EXT L0380BE
|
||||
EXT L0380C2
|
||||
EXT L038050
|
||||
EXT L038055
|
||||
EXT L03805D
|
||||
EXT L037FA1
|
||||
EXT L03808F
|
||||
EXT L038066
|
||||
EXT L038069
|
||||
EXT L03806C
|
||||
EXT L038070
|
||||
EXT L038073
|
||||
EXT L038076
|
||||
EXT L038079
|
||||
EXT L03807C
|
||||
EXT L03807F
|
||||
EXT L038082
|
||||
EXT L038085
|
||||
EXT L038088
|
||||
EXT L03808B
|
||||
EXT L038044
|
||||
EXT L038049
|
||||
EXT L038092
|
||||
EXT L038095
|
||||
EXT L03808D
|
||||
EXT L038147
|
||||
EXT L038156
|
||||
EXT L038164
|
||||
EXT L038167
|
||||
EXT L038168
|
||||
EXT L038176
|
||||
EXT L038180
|
||||
EXT L038183
|
||||
EXT L038184
|
||||
EXT L038192
|
||||
EXT L0381A0
|
||||
EXT L0381A3
|
||||
EXT L0381A4
|
||||
EXT L0381B2
|
||||
EXT L0381C0
|
||||
EXT L0381C3
|
||||
EXT L0381C4
|
||||
EXT L0381D2
|
||||
EXT L0381E1
|
||||
EXT L0381E4
|
||||
EXT L0381E5
|
||||
EXT L0381F3
|
||||
EXT L038203
|
||||
EXT L038206
|
||||
EXT L038207
|
||||
EXT L038215
|
||||
EXT L038222
|
||||
EXT L038225
|
||||
EXT L038226
|
||||
EXT L038234
|
||||
EXT L03823E
|
||||
EXT L038241
|
||||
EXT L038242
|
||||
EXT L038250
|
||||
EXT L03825F
|
||||
EXT L038262
|
||||
EXT L038263
|
||||
EXT L038271
|
||||
EXT L03827E
|
||||
EXT L038281
|
||||
EXT L038282
|
||||
EXT L038290
|
||||
EXT L03829D
|
||||
EXT L0382A0
|
||||
EXT L0382A1
|
||||
EXT L0382AF
|
||||
EXT L0382BB
|
||||
EXT L0382BE
|
||||
EXT L0382BF
|
||||
EXT L0382CD
|
||||
EXT L0382DA
|
||||
EXT L0382DD
|
||||
EXT L0382DE
|
||||
EXT L0382EC
|
||||
EXT L0382F9
|
||||
EXT L0382FC
|
||||
EXT L037FB0
|
||||
EXT L037FDD
|
||||
EXT L0380A6
|
||||
EXT L0380AA
|
||||
EXT L0380AE
|
||||
EXT L0380B2
|
||||
EXT L0380B6
|
||||
EXT L038578
|
||||
EXT L038708
|
||||
EXT L037DCD
|
||||
EXT L038CA9
|
||||
EXT L0389E9
|
||||
EXT L0387C6
|
||||
EXT L0387C7
|
||||
EXT L0387C9
|
||||
EXT L0387CB
|
||||
EXT L0387CD
|
||||
EXT L0387DE
|
||||
EXT L0387EF
|
||||
EXT L0387F2
|
||||
EXT L0387F5
|
||||
EXT L0387F7
|
||||
EXT L0387F9
|
||||
EXT L0387FB
|
||||
EXT L0387FF
|
||||
EXT L038808
|
||||
EXT L03880A
|
||||
EXT L03880C
|
||||
EXT L03896F
|
||||
EXT L038977
|
||||
EXT L038965
|
||||
EXT L03871A
|
||||
EXT L038748
|
||||
EXT L03877A
|
||||
EXT L0387AA
|
||||
EXT L038991
|
||||
EXT L0389B8
|
||||
EXT L038CC9
|
||||
EXT L038CD1
|
||||
EXT L037E09
|
||||
EXT L038912
|
||||
EXT L03893A
|
||||
EXT L0380A0
|
||||
EXT L0380A3
|
||||
EXT L038984
|
||||
EXT L03898C
|
||||
EXT L03897A
|
||||
EXT L0380C6
|
||||
EXT L038CF2
|
||||
EXT L038EA6
|
||||
EXT L038EF4
|
||||
EXT L038006
|
||||
EXT L038027
|
||||
EXT L037DE1
|
||||
EXT L038F1A
|
||||
EXT L038F6A
|
||||
EXT L038F73
|
||||
EXT L038F7C
|
||||
EXT L038F85
|
||||
EXT L039006
|
||||
EXT L039008
|
||||
EXT L038FFD
|
||||
EXT L03910A
|
||||
EXT L039110
|
||||
EXT L039117
|
||||
EXT L03911F
|
||||
EXT L03900A
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,99 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L013048
|
||||
EXT L012E77
|
||||
EXT L0133D4
|
||||
EXT L020002
|
||||
EXT L031DDC
|
||||
EXT L031DDA
|
||||
EXT L013333
|
||||
EXT L014C78
|
||||
EXT L01335E
|
||||
EXT L013003
|
||||
EXT L0140CE
|
||||
EXT L014524
|
||||
EXT L013A1F
|
||||
EXT L013A8B
|
||||
EXT L012E82
|
||||
EXT L01508C
|
||||
EXT L0138ED
|
||||
EXT L013E61
|
||||
EXT L030C4C
|
||||
EXT L030C4A
|
||||
EXT L030C64
|
||||
EXT L030C62
|
||||
EXT L030C7C
|
||||
EXT L030C7A
|
||||
EXT L015B49
|
||||
EXT L0148CF
|
||||
EXT L013EB9
|
||||
EXT L014120
|
||||
EXT L013150
|
||||
EXT L015A6C
|
||||
EXT L031DF2
|
||||
EXT L031DF4
|
||||
EXT L013620
|
||||
EXT L031B0F
|
||||
EXT L031B11
|
||||
EXT L031DF0
|
||||
EXT L031B13
|
||||
EXT L015CDA
|
||||
EXT L015D04
|
||||
EXT L01310E
|
||||
EXT L013212
|
||||
EXT L0A08CC
|
||||
EXT L014421
|
||||
EXT L010921
|
||||
EXT L010AB3
|
||||
EXT L012F07
|
||||
EXT L020040
|
||||
EXT L02003E
|
||||
EXT L020042
|
||||
EXT L02003A
|
||||
EXT L02003C
|
||||
EXT L02004A
|
||||
EXT L02004E
|
||||
EXT L02004C
|
||||
EXT L030CA8
|
||||
EXT L030CC1
|
||||
EXT L030CDE
|
||||
EXT L030CEE
|
||||
EXT L030D07
|
||||
EXT L030D25
|
||||
EXT L030C86
|
||||
EXT L0314F3
|
||||
EXT L031AFF
|
||||
EXT L030DB2
|
||||
EXT L030F2A
|
||||
EXT L030FB0
|
||||
EXT L031B55
|
||||
EXT L030FB2
|
||||
EXT L031B65
|
||||
EXT L030FB4
|
||||
EXT L030FB6
|
||||
EXT L030FCB
|
||||
EXT L030FE5
|
||||
EXT L031097
|
||||
EXT L0310DF
|
||||
EXT L031BA5
|
||||
EXT L031BAB
|
||||
EXT L031165
|
||||
EXT L03121F
|
||||
EXT L031B15
|
||||
EXT L0312A5
|
||||
EXT L03137D
|
||||
EXT L031B35
|
||||
EXT L031403
|
||||
EXT L03140D
|
||||
EXT L031417
|
||||
EXT L031421
|
||||
EXT L031431
|
||||
EXT L03143E
|
||||
EXT L03144F
|
||||
EXT L0314BB
|
||||
EXT L0314DD
|
||||
EXT L0314F0
|
||||
|
||||
|
|
@ -0,0 +1,123 @@
|
|||
|
||||
*---------------------------------------------------------*
|
||||
* Disassembled with The Flaming Bird Disassembler *
|
||||
* (c) Phoenix corp. 1992,93 - All rights reserved *
|
||||
*---------------------------------------------------------*
|
||||
|
||||
REL
|
||||
|
||||
L040000 ENT
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00FB
|
||||
TCD
|
||||
ADC #$00F4
|
||||
TCS
|
||||
PHX
|
||||
PHA
|
||||
LDX L02002C
|
||||
LDA L02002A
|
||||
PHX
|
||||
PHA
|
||||
_NewMenu
|
||||
BCS L040021
|
||||
LDA #$0000
|
||||
L040021 STAL L020002
|
||||
PEA $0000
|
||||
_InsertMenu
|
||||
BCS L040034
|
||||
LDA #$0000
|
||||
L040034 STAL L020002
|
||||
PHX
|
||||
PHA
|
||||
LDX L020028
|
||||
LDA L020026
|
||||
PHX
|
||||
PHA
|
||||
_NewMenu
|
||||
BCS L04004E
|
||||
LDA #$0000
|
||||
L04004E STAL L020002
|
||||
PEA $0000
|
||||
_InsertMenu
|
||||
BCS L040061
|
||||
LDA #$0000
|
||||
L040061 STAL L020002
|
||||
PHX
|
||||
PHA
|
||||
LDX L020024
|
||||
LDA L020022
|
||||
PHX
|
||||
PHA
|
||||
_NewMenu
|
||||
BCS L04007B
|
||||
LDA #$0000
|
||||
L04007B STAL L020002
|
||||
PEA $0000
|
||||
_InsertMenu
|
||||
BCS L04008E
|
||||
LDA #$0000
|
||||
L04008E STAL L020002
|
||||
PHX
|
||||
PHA
|
||||
LDX L020020
|
||||
LDA L02001E
|
||||
PHX
|
||||
PHA
|
||||
_NewMenu
|
||||
BCS L0400A8
|
||||
LDA #$0000
|
||||
L0400A8 STAL L020002
|
||||
PEA $0000
|
||||
_InsertMenu
|
||||
BCS L0400BB
|
||||
LDA #$0000
|
||||
L0400BB STAL L020002
|
||||
PHX
|
||||
PHA
|
||||
LDX L02001C
|
||||
LDA L02001A
|
||||
PHX
|
||||
PHA
|
||||
_NewMenu
|
||||
BCS L0400D5
|
||||
LDA #$0000
|
||||
L0400D5 STAL L020002
|
||||
PEA $0000
|
||||
_InsertMenu
|
||||
BCS L0400E8
|
||||
LDA #$0000
|
||||
L0400E8 STAL L020002
|
||||
PEA $000F
|
||||
PEA $0000
|
||||
PEA $00F0
|
||||
_SetBarColors
|
||||
BCS L040101
|
||||
LDA #$0000
|
||||
L040101 STAL L020002
|
||||
PEA $0001
|
||||
_FixAppleMenu
|
||||
BCS L040114
|
||||
LDA #$0000
|
||||
L040114 STAL L020002
|
||||
PHA
|
||||
_FixMenuBar
|
||||
BCS L040125
|
||||
LDA #$0000
|
||||
L040125 STAL L020002
|
||||
PLA
|
||||
PEA $0001
|
||||
PEA $010C
|
||||
_CheckMItem
|
||||
BCS L04013C
|
||||
LDA #$0000
|
||||
L04013C STAL L020002
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0006
|
||||
TCS
|
||||
PLD
|
||||
RTL
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,17 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L020002
|
||||
EXT L02002C
|
||||
EXT L02002A
|
||||
EXT L020028
|
||||
EXT L020026
|
||||
EXT L020024
|
||||
EXT L020022
|
||||
EXT L020020
|
||||
EXT L02001E
|
||||
EXT L02001C
|
||||
EXT L02001A
|
||||
|
||||
|
|
@ -0,0 +1,427 @@
|
|||
|
||||
*---------------------------------------------------------*
|
||||
* Disassembled with The Flaming Bird Disassembler *
|
||||
* (c) Phoenix corp. 1992,93 - All rights reserved *
|
||||
*---------------------------------------------------------*
|
||||
|
||||
REL
|
||||
|
||||
L060000 ENT
|
||||
PHD
|
||||
TSC
|
||||
SEC
|
||||
SBC #$00F7
|
||||
TCD
|
||||
ADC #$FF7E
|
||||
TCS
|
||||
LDA #L030909
|
||||
LDX #^L030909
|
||||
STX $F0
|
||||
STA $EE
|
||||
STZ $E4
|
||||
LDA $FD
|
||||
AND #$00FF
|
||||
CMP #$0020
|
||||
BNE L060052
|
||||
LDX $F0
|
||||
LDA $EE
|
||||
STX $EC
|
||||
STA $EA
|
||||
L060029 LDX #$0000
|
||||
LDA #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDY #$0002
|
||||
LDA [$EA],Y
|
||||
TAX
|
||||
LDA [$EA]
|
||||
JSL L013333
|
||||
BEQ L06004F
|
||||
LDA $EA
|
||||
CLC
|
||||
ADC #$0009
|
||||
STA $EA
|
||||
BCC L06004B
|
||||
INC $EC
|
||||
L06004B INC $E4
|
||||
BRA L060029
|
||||
L06004F BRL L060175
|
||||
L060052 LDY #$0002
|
||||
LDA [$EE],Y
|
||||
TAX
|
||||
LDA [$EE]
|
||||
STA $F2
|
||||
STX $F4
|
||||
LDA [$F2]
|
||||
AND #$00FF
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L037E33
|
||||
LDX #^L037E33
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $F2
|
||||
STX $F4
|
||||
LDA [$F2]
|
||||
AND #$00FF
|
||||
AND #$0001
|
||||
TAY
|
||||
BEQ L060096
|
||||
LDY #$0002
|
||||
LDA [$EE],Y
|
||||
TAX
|
||||
LDA [$EE]
|
||||
STA $F2
|
||||
STX $F4
|
||||
LDA [$F2]
|
||||
AND #$00FF
|
||||
BRA L0600AF
|
||||
L060096 LDY #$0002
|
||||
LDA [$EE],Y
|
||||
TAX
|
||||
LDA [$EE]
|
||||
STA $F2
|
||||
STX $F4
|
||||
LDA [$F2]
|
||||
AND #$00FF
|
||||
SEC
|
||||
SBC #$0061
|
||||
CLC
|
||||
ADC #$0041
|
||||
L0600AF PHA
|
||||
LDA $FD
|
||||
AND #$00FF
|
||||
PLX
|
||||
STX $F2
|
||||
SEC
|
||||
SBC $F2
|
||||
BEQ L0600D3
|
||||
BVS L0600C2
|
||||
EOR #$8000
|
||||
L0600C2 BPL L0600D3
|
||||
LDA $EE
|
||||
CLC
|
||||
ADC #$0009
|
||||
STA $EE
|
||||
BCC L0600D0
|
||||
INC $F0
|
||||
L0600D0 BRL L060052
|
||||
L0600D3 LDX $F0
|
||||
LDA $EE
|
||||
STX $EC
|
||||
STA $EA
|
||||
L0600DB LDX #$0000
|
||||
LDA #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDY #$0002
|
||||
LDA [$EA],Y
|
||||
TAX
|
||||
LDA [$EA]
|
||||
JSL L013333
|
||||
BNE L0600F4
|
||||
BRL L060175
|
||||
L0600F4 LDY #$0002
|
||||
LDA [$EA],Y
|
||||
TAX
|
||||
LDA [$EA]
|
||||
STA $F2
|
||||
STX $F4
|
||||
LDA [$F2]
|
||||
AND #$00FF
|
||||
LDX #$0000
|
||||
PHX
|
||||
PHA
|
||||
LDA #L037E33
|
||||
LDX #^L037E33
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
STA $F2
|
||||
STX $F4
|
||||
LDA [$F2]
|
||||
AND #$00FF
|
||||
AND #$0001
|
||||
TAY
|
||||
BEQ L060138
|
||||
LDY #$0002
|
||||
LDA [$EA],Y
|
||||
TAX
|
||||
LDA [$EA]
|
||||
STA $F2
|
||||
STX $F4
|
||||
LDA [$F2]
|
||||
AND #$00FF
|
||||
BRA L060151
|
||||
L060138 LDY #$0002
|
||||
LDA [$EA],Y
|
||||
TAX
|
||||
LDA [$EA]
|
||||
STA $F2
|
||||
STX $F4
|
||||
LDA [$F2]
|
||||
AND #$00FF
|
||||
SEC
|
||||
SBC #$0061
|
||||
CLC
|
||||
ADC #$0041
|
||||
L060151 PHA
|
||||
LDA $FF
|
||||
AND #$00FF
|
||||
PLX
|
||||
STX $F2
|
||||
SEC
|
||||
SBC $F2
|
||||
BVS L060162
|
||||
EOR #$8000
|
||||
L060162 BPL L060175
|
||||
LDA $EA
|
||||
CLC
|
||||
ADC #$0009
|
||||
STA $EA
|
||||
BCC L060170
|
||||
INC $EC
|
||||
L060170 INC $E4
|
||||
BRL L0600DB
|
||||
L060175 PEA $0001
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$0018
|
||||
PHA
|
||||
JSL L013F1E
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
LDA $E4
|
||||
STA $BC
|
||||
LDA $FD
|
||||
AND #$00FF
|
||||
CMP #$0020
|
||||
BNE L0601AF
|
||||
PEA ^L030BF4
|
||||
PEA L030BF4
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$FFC0
|
||||
PHA
|
||||
JSL L01508C
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
BRA L0601D6
|
||||
L0601AF LDA $FF
|
||||
AND #$00FF
|
||||
PHA
|
||||
LDA $FD
|
||||
AND #$00FF
|
||||
PHA
|
||||
PEA ^L030C05
|
||||
PEA L030C05
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$FFC0
|
||||
PHA
|
||||
JSL L01508C
|
||||
TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$000C
|
||||
TCS
|
||||
TYA
|
||||
L0601D6 PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$FFC0
|
||||
PHA
|
||||
JSL L013A1F
|
||||
PLY
|
||||
PLY
|
||||
LDA #$0080
|
||||
SEP #$20
|
||||
LDY #$0004
|
||||
STA [$EE],Y
|
||||
REP #$20
|
||||
LDA #$0001
|
||||
STA $E8
|
||||
LDX $F0
|
||||
LDA $EE
|
||||
STX $D2
|
||||
STA $D0
|
||||
LDX $F0
|
||||
LDA $EE
|
||||
STX $1C
|
||||
STA $1A
|
||||
LDAL L031DDC
|
||||
TAX
|
||||
LDAL L031DDA
|
||||
STX $9E
|
||||
STA $9C
|
||||
LDX #$0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$FFC0
|
||||
STX $54
|
||||
STA $52
|
||||
L06021F LDA #$0001
|
||||
BNE L060227
|
||||
BRL L060351
|
||||
L060227 PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$00E6
|
||||
PHA
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$0018
|
||||
PHA
|
||||
JSL L01493B
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
PLY
|
||||
STA $E8
|
||||
LDA $E6
|
||||
CMP #$0002
|
||||
BNE L060291
|
||||
LDA $E8
|
||||
BEQ L06028B
|
||||
LDA $E8
|
||||
LDX #$0000
|
||||
PEA $0000
|
||||
PEA $0009
|
||||
CLC
|
||||
JSL L013048
|
||||
LDX $F0
|
||||
LDA $EE
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
SEC
|
||||
SBC #$0009
|
||||
PHA
|
||||
TXA
|
||||
SBC #$0000
|
||||
TAX
|
||||
PLA
|
||||
STA $F2
|
||||
STX $F4
|
||||
LDY #$0004
|
||||
LDA [$F2],Y
|
||||
AND #$00FF
|
||||
EOR #$0080
|
||||
SEP #$20
|
||||
LDY #$0004
|
||||
STA [$F2],Y
|
||||
REP #$20
|
||||
L06028B BRL L060351
|
||||
BRL L06034E
|
||||
L060291 LDA $E8
|
||||
STA $C2
|
||||
LDA $E6
|
||||
CMP #$0000
|
||||
BNE L0602DE
|
||||
JSL L014C78
|
||||
LDA $E8
|
||||
LDX #$0000
|
||||
PEA $0000
|
||||
PEA $0009
|
||||
CLC
|
||||
JSL L013048
|
||||
LDX $F0
|
||||
LDA $EE
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
SEC
|
||||
SBC #$0009
|
||||
PHA
|
||||
TXA
|
||||
SBC #$0000
|
||||
TAX
|
||||
PLA
|
||||
STA $F2
|
||||
STX $F4
|
||||
LDY #$0007
|
||||
LDA [$F2],Y
|
||||
TAX
|
||||
LDY #$0005
|
||||
LDA [$F2],Y
|
||||
PHX
|
||||
PHA
|
||||
JSL L0133D4
|
||||
PLY
|
||||
PLY
|
||||
BRA L060342
|
||||
L0602DE LDA $E8
|
||||
LDX #$0000
|
||||
PEA $0000
|
||||
PEA $0009
|
||||
CLC
|
||||
JSL L013048
|
||||
LDX $F0
|
||||
LDA $EE
|
||||
JSL L012E77
|
||||
PLA
|
||||
PLX
|
||||
SEC
|
||||
SBC #$0009
|
||||
PHA
|
||||
TXA
|
||||
SBC #$0000
|
||||
TAX
|
||||
PLA
|
||||
STA $F2
|
||||
STX $F4
|
||||
LDY #$0007
|
||||
LDA [$F2],Y
|
||||
TAX
|
||||
LDY #$0005
|
||||
LDA [$F2],Y
|
||||
PHX
|
||||
PHA
|
||||
PEA ^L030C19
|
||||
PEA L030C19
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$FF80
|
||||
PHA
|
||||
JSL L01508C
|
||||
TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$000C
|
||||
TCS
|
||||
TYA
|
||||
JSL L014C78
|
||||
PEA $0000
|
||||
TDC
|
||||
CLC
|
||||
ADC #$FF80
|
||||
PHA
|
||||
JSL L0133D4
|
||||
PLY
|
||||
PLY
|
||||
L060342 PEA ^L030C1D
|
||||
PEA L030C1D
|
||||
JSL L0133D4
|
||||
PLY
|
||||
PLY
|
||||
L06034E BRL L06021F
|
||||
L060351 TAY
|
||||
TSC
|
||||
CLC
|
||||
ADC #$0178
|
||||
TCS
|
||||
TYA
|
||||
PLD
|
||||
RTL
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,23 @@
|
|||
|
||||
* TFBD generated externals
|
||||
* (c) PHC 1992,93
|
||||
|
||||
|
||||
EXT L013048
|
||||
EXT L012E77
|
||||
EXT L0133D4
|
||||
EXT L031DDC
|
||||
EXT L031DDA
|
||||
EXT L013333
|
||||
EXT L013F1E
|
||||
EXT L01493B
|
||||
EXT L014C78
|
||||
EXT L013A1F
|
||||
EXT L01508C
|
||||
EXT L037E33
|
||||
EXT L030909
|
||||
EXT L030BF4
|
||||
EXT L030C05
|
||||
EXT L030C19
|
||||
EXT L030C1D
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue