From dd57b9cadfb5d0aab57fd2c7e6e38c1c0ba68dc5 Mon Sep 17 00:00:00 2001 From: Antoine Vignau <34219772+antoinevignau@users.noreply.github.com> Date: Thu, 18 Apr 2024 10:19:10 +0200 Subject: [PATCH] on continue --- billpalmer/en/Bill Palmer Master EN.2mg | Bin 819264 -> 819264 bytes billpalmer/fr/solution.txt | 98 ++++ dlld/dlld.2mg | Bin 819264 -> 819264 bytes dlld/source/_FileInformation.txt | 1 + dlld/source/dlld3 | Bin 0 -> 1024 bytes dlld/source/dlld3.s | 478 ++++++++++++++++++ dlld/source/dlld3_Output.txt | 626 ++++++++++++++++++++++++ dlld/source/dlld4.s | 454 +++++++++++++++++ dlld/source/dlld5.s | 435 ++++++++++++++++ 9 files changed, 2092 insertions(+) create mode 100644 billpalmer/fr/solution.txt create mode 100644 dlld/source/dlld3 create mode 100644 dlld/source/dlld3.s create mode 100644 dlld/source/dlld3_Output.txt create mode 100644 dlld/source/dlld4.s create mode 100644 dlld/source/dlld5.s diff --git a/billpalmer/en/Bill Palmer Master EN.2mg b/billpalmer/en/Bill Palmer Master EN.2mg index 9c36f88b52123d7f29fadfe652586c62ab6c171b..f8255b5ed59809945035aa9e873b609350e94fe3 100644 GIT binary patch delta 80 zcmX@mV056tXoChT%R~bKzR5bQ%3#KHM@y!+%?@ns4s47-%ml>DK+FQftUwGBX9r>q RAm#*OE+FP!?!d-V1psTP6TAQb delta 80 zcmX@mV056tXoChTOTU4L=wuyMWiVs9qb1YZW(T%*2R23^W&&bnAZ7t#Rv-q6vjZ^) R5OV@C7Z7tVcVOeG0swFc6V3nt diff --git a/billpalmer/fr/solution.txt b/billpalmer/fr/solution.txt new file mode 100644 index 0000000..ffcedad --- /dev/null +++ b/billpalmer/fr/solution.txt @@ -0,0 +1,98 @@ +Solution Bill Palmer + +Main sur le capot de la voiture bleue +Îil sur le moteur de la voiture +Sud +Sud +Main sur la poubelle ˆ c™tŽ du vieillard +Prendre la laitue +Main sur la bo”te aux lettres +Prendre le journal +Main sur la poignŽe de porte +Main sur les livres en haut de lĠŽtagre +Prendre le manuel +Main sur la poche de la veste +Prendre la carte de crŽdit +Nord +Main sur cadenas du coffre +Prendre la souris mŽcanique +Prendre la machette +Main sur le coin en bas du coffre +Prendre le passeport +Sud +Sud +Sud +Nord +Main sur la bo”te ˆ gants +Prendre le briquet +Main sur la clŽ de contact +Nord +Main sur la carte de crŽdit de Bill +Prendre le billet +Main sur le billet de Bill +Main sur le passeport de Bill +Est +Sud +Nord +Main sur le livre de Bill +Main sur la laitue de Bill +Ouest +Nord +Main sur le signal dĠalarme +Main sur la fentre +Ouest +Ouest +Ouest +Main sur la souris mŽcanique de Bill +Main sur la machette de Bill +Prendre les brindilles +Est +Nord +Main sur les rochers +Nord +Main sur la grosse pierre +Sud +Sud +Main sur lĠhomme mort +Prendre la photographie +Main sur les rochers +Nord +Ouest +Main sur la photographie de Bill +Nord +Ouest +Poser les brindilles +Main sur le briquet de Bill +Est +Est +Îil sur la serrure +Îil sur la serrure +Îil sur la serrure +Îil sur la serrure +Nord +Main sur la porte +Main sur le premier tiroir de lĠarmoire +Prendre lĠappeau +Main sur le troisime tiroir de lĠarmoire +Prendre la mitraillette +Ouest +Sud +Sud +Nord +Bouche sur lĠappeau de Bill +Main +Main sur la mitraillette de Bill +Nord +Main sur la pointe du drapeau bleu +Main sur la main droite de Bill +Main sur lĠinterrupteur +Ouest +Main sur le premier tiroir +Prendre le pistolet +Bouche le micro +Main sur le pistolet +Prendre le fŽtiche +Main sur le bouton bleu +Main sur le bouton marron +Main +Main \ No newline at end of file diff --git a/dlld/dlld.2mg b/dlld/dlld.2mg index c32092dd79004905493737c1affe089ca8b0ec69..7fcf3739a2ccf1d4e834ee3ca6b5c14c643c8845 100644 GIT binary patch delta 749 zcmY+AUr19?9LImVcdluhu7p}a^gDM7Jw)9(qy>T#mq=Z3I;mVeoEJmrt%r!cY@lf& zmy|vDP}J>K#E=W4JqSIGOAp%9eGDT=BVQsD8WL`NbY zR6&DHCrtXdUOfnwM`W-F}%%8G?ow)!gB(CKnp6N z+WAn0G8VRq!U_S8F)>qwhh2E9X32=_`en!O)nh#(HAuE0EGe5RLU-rjzjXKd1s!chQuO zD*zkkgg-xA==@(0|0Y4^O>X|$GQCy;eGj)K+*Fstcg0Xu0#lBN{sW(?d?;lFZGDtk z?Y2J7tPWeh!K{$2XBgLlw$^TI9kv#-P1`_BF;g+_;c10%-$m9%4#%6>X*Zm6G4JAu zi-Lfc1>HtmwfBR!H@o$xX0QTXye}v;EQe5$D;xFsJ5{tPLyt z8AQb3uwp@EZOqx_Gxgd1clDhh_9~^|R^9o%weS2YijWWE23wG);(V(4mg_9c4VY<| zk=efnWa#qJ$z~zVzJe3TE;iPJJMyaYz5Kav(o^963)6|@Tq5ZqNhF!%CAE-zq$4Ch Psg=}5I{G$|4D|g2T8RmZ delta 1412 zcmXBSc~BEq90%}hc9Y$Z>`F{vV-hYw1f{h=1+ik|7(A+i0i`0AYeG@P0Xf8pVmO3) zfFh}-C`v_&P^nx6tsDkukt#T-?X)tasMT62Rn#H~Nc(=tAK&@R_wC!??wfhWOfO@m zS6wWD@eH35J;foOyk~|e%B4}o$N3m$(1<$*?EWai%P#bUs=;^ z?Cu|YI5Opg2^CHY7k?12P7{u{r0vT+dg3(t<;!i?`|g_lc>3zie_X+=*@B+iKmTfa z{MXCLw{{$yFJzru7QFAPUcEsRmXwiOT8*aNy*H$PI`Vqji!Wg9=6fvi_VM#yxoUk- z@a8QM(b~B9q&=BA=<6p-O3Thy);2V?{@8Q#7EFCHF@5l33#N_l0hvPzt<#vwF?%n}w*KgdsCEPMzmtUwi6rVbS zPFG!1`})nageSC-sXp4YRhwK;e5$d{IP~PzB$u*wv|qkrbx`oONNqx5YPv2X_fSz; zc~xCwTUU4gli|^csX06$BlGcFxi&6-S5nHJj6;PdD=)To-1+U{V}4O}ZRg_`<02T*^EFa-RI072NLk}hr ztAN9V2B;uD0gS{Bz(k|~Q^Wy4!8-yh~0e>nYi?;)z;x1s9I33VgTDJHRv=VU%P-$shVp@vYpoKRU@FR0X_W&Z=ooo9Ri diff --git a/dlld/source/_FileInformation.txt b/dlld/source/_FileInformation.txt index 2365b13..b7d27af 100644 --- a/dlld/source/_FileInformation.txt +++ b/dlld/source/_FileInformation.txt @@ -1 +1,2 @@ dlld2=Type(06),AuxType(2000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000) +dlld3=Type(06),AuxType(2000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000) diff --git a/dlld/source/dlld3 b/dlld/source/dlld3 new file mode 100644 index 0000000000000000000000000000000000000000..72311e6447efd35c8e3b843c47c4031bee6b1149 GIT binary patch literal 1024 zcmeH^KWGzC9LIlmhft+yqYg%=-@9~h5WF-L<0NUC5cIS$DOyj5Hx}F+q}*b`Se0^E zap<7vdFl|#L2wbA!o$Hh-6#dY7VIL_f}unH+26|pZNb&e2fzEg-|zeTeed4A1s%W} zZs6$-R{Qv{kF(uGM_9F-=INN}Y*=`P;SCm`zk*;Ao)ho`hR}$2PQ@Ek3Gtv5-VyLH zlQT8AH-^_cp@F#83-!Sh8rE^?Olfoa!18C=M^mrKZs9!{;TXd&NR^jV;i;(#2#lm`|83JU_Lahz@Gi4(M0hhS92MSG7RH6=FmA_$ zJtFK;VaG)ve8dt9O#c?1FbTI6T!lLdcNOj{EGaxvc%rbP@KoW2!Ycv_#)Bar)*Sh+ znuga{{gB&!5N&;mzGt}GPVAN8FEW|b4ZCRaXONVJMKgqCvmEX4YIm{sw!0m}39}yC z>_$H~d(n@YOnDL4*|IU0;d6r{USSFDL$x0y7k~NS&_~se4TK8&3em9pxZjLz8y}-@ v3GQaNmY)J`G7nm6d=fN^601aU3A8Nja}=`_1qz$uA~ibly8f?!@&|SSz7+Pr literal 0 HcmV?d00001 diff --git a/dlld/source/dlld3.s b/dlld/source/dlld3.s new file mode 100644 index 0000000..a835fc3 --- /dev/null +++ b/dlld/source/dlld3.s @@ -0,0 +1,478 @@ +* +* DLLD +* Let's play Dragon's Lair :-) +* +* (c) 2024, Brutal Deluxe Software +* + + mx %11 + org $2000 + lst off + + use 4/Int.Macs + use 4/Misc.Macs + use 4/Util.Macs + +*----------------------------------- +* MACROS +*----------------------------------- + +_sendSTRING mac + ldx #>]1 + ldy #<]1 + jsr sendString + eom + +*----------------------------------- +* EQUATES +*----------------------------------- + +frameIN = 323 +frameOUT = 1359 + +SLOT = 2 +N0 = SLOT*16 +CN = SLOT!$C0 + +chrRETURN = $0d + +dpFROM = $fc +dpTO = dpFROM+2 + +*---------- + +CH = $24 + +KBD = $c000 +CLR80VID = $c00c +KBDSTROBE = $c010 + +INIT = $FB2F +TABV = $FB5B +HOME = $FC58 +WAIT = $FCA8 +PRBYTE = $FDDA +COUT = $FDED +SETNORM = $FE84 +SETKBD = $FE89 + +*----------------------------------- +* CODE +*----------------------------------- + + bra jumpME + +theFRAME ds 2 + +jumpME sta CLR80VID + jsr INIT ; text screen + jsr SETNORM ; set normal text mode + jsr SETKBD ; reset input to keyboard + jsr HOME ; home cursor and clear to end of page + + clc + xce + rep #$30 + lda #frameIN + sta theFRAME + + sec + xce + sep #$30 + + jsr initSERIAL ; set the serial addresses + jsr initPORT ; init the serial port for LD support + +*---------- + ldx #>strDS ; on veut la frame number + ldy #strSA ; start the player + ldy #strSE ; Move to frame and wait for R + ldy #strPL ; Play and wait for R + ldy #strPA ; Pause and return + ldy #strRJ ; It's the end! + ldy #responseBUF + 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 +*----------------------------------- + diff --git a/dlld/source/dlld3_Output.txt b/dlld/source/dlld3_Output.txt new file mode 100644 index 0000000..cefa998 --- /dev/null +++ b/dlld/source/dlld3_Output.txt @@ -0,0 +1,626 @@ +------+-------------------+-------------+----+---------+------+-----------------------+------------------------------------------------------------------- + Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code +------+-------------------+-------------+----+---------+------+-----------------------+------------------------------------------------------------------- + 1 | 1 dlld3.s 1 | Comment | 11 | | 0 | 00/8000 | * + 2 | 1 dlld3.s 2 | Comment | 11 | | 0 | 00/8000 | * DLLD + 3 | 1 dlld3.s 3 | Comment | 11 | | 0 | 00/8000 | * Let's play Dragon's Lair :-) + 4 | 1 dlld3.s 4 | Comment | 11 | | 0 | 00/8000 | * + 5 | 1 dlld3.s 5 | Comment | 11 | | 0 | 00/8000 | * (c) 2024, Brutal Deluxe Software + 6 | 1 dlld3.s 6 | Comment | 11 | | 0 | 00/8000 | * + 7 | 1 dlld3.s 7 | Empty | 11 | | 0 | 00/8000 | + 8 | 1 dlld3.s 8 | Directive | 11 | | 0 | 00/8000 | mx %11 + 9 | 1 dlld3.s 9 | Directive | 11 | | 0 | 00/8000 | org $2000 + 10 | 1 dlld3.s 10 | Directive | 11 | | 0 | 00/2000 | lst off + 11 | 1 dlld3.s 11 | Empty | 11 | | 0 | 00/2000 | + 12 | 1 dlld3.s 12 | Directive | 11 | | 0 | 00/2000 | use 4/Int.Macs + 13 | 1 dlld3.s 13 | Directive | 11 | | 0 | 00/2000 | use 4/Misc.Macs + 14 | 1 dlld3.s 14 | Directive | 11 | | 0 | 00/2000 | use 4/Util.Macs + 15 | 1 dlld3.s 15 | Empty | 11 | | 0 | 00/2000 | + 16 | 1 dlld3.s 16 | Comment | 11 | | 0 | 00/2000 | *----------------------------------- + 17 | 1 dlld3.s 17 | Comment | 11 | | 0 | 00/2000 | * MACROS + 18 | 1 dlld3.s 18 | Comment | 11 | | 0 | 00/2000 | *----------------------------------- + 19 | 1 dlld3.s 19 | Empty | 11 | | 0 | 00/2000 | + 20 | 1 dlld3.s 20 | Directive | 11 | | 0 | 00/2000 | _sendSTRING mac + 21 | 1 dlld3.s 21 | Directive | 11 | | 0 | 00/2000 | ldx #>]1 + 22 | 1 dlld3.s 22 | Directive | 11 | | 0 | 00/2000 | ldy #<]1 + 23 | 1 dlld3.s 23 | Directive | 11 | | 0 | 00/2000 | jsr sendString + 24 | 1 dlld3.s 24 | Directive | 11 | | 0 | 00/2000 | eom + 25 | 1 dlld3.s 25 | Empty | 11 | | 0 | 00/2000 | + 26 | 1 dlld3.s 26 | Comment | 11 | | 0 | 00/2000 | *----------------------------------- + 27 | 1 dlld3.s 27 | Comment | 11 | | 0 | 00/2000 | * EQUATES + 28 | 1 dlld3.s 28 | Comment | 11 | | 0 | 00/2000 | *----------------------------------- + 29 | 1 dlld3.s 29 | Empty | 11 | | 0 | 00/2000 | + 30 | 1 dlld3.s 30 | Equivalence | 11 | | 0 | 00/2000 | frameIN = 323 + 31 | 1 dlld3.s 31 | Equivalence | 11 | | 0 | 00/2000 | frameOUT = 1359 + 32 | 1 dlld3.s 32 | Empty | 11 | | 0 | 00/2000 | + 33 | 1 dlld3.s 33 | Equivalence | 11 | | 0 | 00/2000 | SLOT = 2 + 34 | 1 dlld3.s 34 | Equivalence | 11 | | 0 | 00/2000 | N0 = {2}*16 + 35 | 1 dlld3.s 35 | Equivalence | 11 | | 0 | 00/2000 | CN = {2}!$C0 + 36 | 1 dlld3.s 36 | Empty | 11 | | 0 | 00/2000 | + 37 | 1 dlld3.s 37 | Equivalence | 11 | | 0 | 00/2000 | chrRETURN = $0d + 38 | 1 dlld3.s 38 | Empty | 11 | | 0 | 00/2000 | + 39 | 1 dlld3.s 39 | Equivalence | 11 | | 0 | 00/2000 | dpFROM = $fc + 40 | 1 dlld3.s 40 | Equivalence | 11 | | 0 | 00/2000 | dpTO = {$fc}+2 + 41 | 1 dlld3.s 41 | Empty | 11 | | 0 | 00/2000 | + 42 | 1 dlld3.s 42 | Comment | 11 | | 0 | 00/2000 | *---------- + 43 | 1 dlld3.s 43 | Empty | 11 | | 0 | 00/2000 | + 44 | 1 dlld3.s 44 | Equivalence | 11 | | 0 | 00/2000 | CH = $24 + 45 | 1 dlld3.s 45 | Empty | 11 | | 0 | 00/2000 | + 46 | 1 dlld3.s 46 | Equivalence | 11 | | 0 | 00/2000 | KBD = $c000 + 47 | 1 dlld3.s 47 | Equivalence | 11 | | 0 | 00/2000 | CLR80VID = $c00c + 48 | 1 dlld3.s 48 | Equivalence | 11 | | 0 | 00/2000 | KBDSTROBE = $c010 + 49 | 1 dlld3.s 49 | Empty | 11 | | 0 | 00/2000 | + 50 | 1 dlld3.s 50 | Equivalence | 11 | | 0 | 00/2000 | INIT = $FB2F + 51 | 1 dlld3.s 51 | Equivalence | 11 | | 0 | 00/2000 | TABV = $FB5B + 52 | 1 dlld3.s 52 | Equivalence | 11 | | 0 | 00/2000 | HOME = $FC58 + 53 | 1 dlld3.s 53 | Equivalence | 11 | | 0 | 00/2000 | WAIT = $FCA8 + 54 | 1 dlld3.s 54 | Equivalence | 11 | | 0 | 00/2000 | PRBYTE = $FDDA + 55 | 1 dlld3.s 55 | Equivalence | 11 | | 0 | 00/2000 | COUT = $FDED + 56 | 1 dlld3.s 56 | Equivalence | 11 | | 0 | 00/2000 | SETNORM = $FE84 + 57 | 1 dlld3.s 57 | Equivalence | 11 | | 0 | 00/2000 | SETKBD = $FE89 + 58 | 1 dlld3.s 58 | Empty | 11 | | 0 | 00/2000 | + 59 | 1 dlld3.s 59 | Comment | 11 | | 0 | 00/2000 | *----------------------------------- + 60 | 1 dlld3.s 60 | Comment | 11 | | 0 | 00/2000 | * CODE + 61 | 1 dlld3.s 61 | Comment | 11 | | 0 | 00/2000 | *----------------------------------- + 62 | 1 dlld3.s 62 | Empty | 11 | | 0 | 00/2000 | + 63 | 1 dlld3.s 63 | Code | 11 | | 2 | 00/2000 : 80 02 | bra jumpME + 64 | 1 dlld3.s 64 | Empty | 11 | | 0 | 00/2002 | + 65 | 1 dlld3.s 65 | Data | 11 | | 2 | 00/2002 : 00 00 | theFRAME ds 2 + 66 | 1 dlld3.s 66 | Empty | 11 | | 0 | 00/2004 | + 67 | 1 dlld3.s 67 | Code | 11 | | 3 | 00/2004 : 8D 0C C0 | jumpME sta {$c00c} + 68 | 1 dlld3.s 68 | Code | 11 | | 3 | 00/2007 : 20 2F FB | jsr {$FB2F} ; text screen + 69 | 1 dlld3.s 69 | Code | 11 | | 3 | 00/200A : 20 84 FE | jsr {$FE84} ; set normal text mode + 70 | 1 dlld3.s 70 | Code | 11 | | 3 | 00/200D : 20 89 FE | jsr {$FE89} ; reset input to keyboard + 71 | 1 dlld3.s 71 | Code | 11 | | 3 | 00/2010 : 20 58 FC | jsr {$FC58} ; home cursor and clear to end of page + 72 | 1 dlld3.s 72 | Empty | 11 | | 0 | 00/2013 | + 73 | 1 dlld3.s 73 | Code | 11 | | 1 | 00/2013 : 18 | clc + 74 | 1 dlld3.s 74 | Code | 11 | | 1 | 00/2014 : FB | xce + 75 | 1 dlld3.s 75 | Code | 00 | | 2 | 00/2015 : C2 30 | rep #$30 + 76 | 1 dlld3.s 76 | Code | 00 | | 3 | 00/2017 : A9 43 01 | lda #{323} + 77 | 1 dlld3.s 77 | Code | 00 | | 3 | 00/201A : 8D 02 20 | sta theFRAME + 78 | 1 dlld3.s 78 | Empty | 00 | | 0 | 00/201D | + 79 | 1 dlld3.s 79 | Code | 00 | | 1 | 00/201D : 38 | sec + 80 | 1 dlld3.s 80 | Code | 11 | | 1 | 00/201E : FB | xce + 81 | 1 dlld3.s 81 | Code | 11 | | 2 | 00/201F : E2 30 | sep #$30 + 82 | 1 dlld3.s 82 | Empty | 11 | | 0 | 00/2021 | + 83 | 1 dlld3.s 83 | Code | 11 | | 3 | 00/2021 : 20 37 21 | jsr initSERIAL ; set the serial addresses + 84 | 1 dlld3.s 84 | Code | 11 | | 3 | 00/2024 : 20 5C 21 | jsr initPORT ; init the serial port for LD support + 85 | 1 dlld3.s 85 | Empty | 11 | | 0 | 00/2027 | + 86 | 1 dlld3.s 86 | Comment | 11 | | 0 | 00/2027 | *---------- + 87 | 1 dlld3.s 87 | Code | 11 | | 2 | 00/2027 : A2 20 | ldx #>strDS ; on veut la frame number + 88 | 1 dlld3.s 88 | Code | 11 | | 2 | 00/2029 : A0 97 | ldy #strSA ; start the player + 92 | 1 dlld3.s 92 | Code | 11 | | 2 | 00/2030 : A0 9E | ldy #strSE ; Move to frame and wait for R + 104 | 1 dlld3.s 104 | Code | 11 | | 2 | 00/2042 : A0 AD | ldy #strPL ; Play and wait for R + 108 | 1 dlld3.s 108 | Code | 11 | | 2 | 00/2049 : A0 B7 | ldy #strPA ; Pause and return + 142 | 1 dlld3.s 142 | Code | 11 | | 2 | 00/207F : A0 A4 | ldy #strRJ ; It's the end! + 154 | 1 dlld3.s 154 | Code | 11 | | 2 | 00/2091 : A0 A1 | ldy ##strED + 333 | 1 dlld3.s 285 | Code | 11 | | 2 | 00/2165 : A0 72 | ldy #<#strED + 334 | 1 dlld3.s 285 | Code | 11 | | 3 | 00/2167 : 20 1A 22 | jsr sendString + 335 | 1 dlld3.s 286 | Macro | 11 | | 0 | 00/216A | _sendSTRING #strBE ; Input buffering: on + 336 | 1 dlld3.s 286 | Code | 11 | | 2 | 00/216A : A2 22 | ldx #>#strBE + 337 | 1 dlld3.s 286 | Code | 11 | | 2 | 00/216C : A0 76 | ldy #<#strBE + 338 | 1 dlld3.s 286 | Code | 11 | | 3 | 00/216E : 20 1A 22 | jsr sendString + 339 | 1 dlld3.s 287 | Macro | 11 | | 0 | 00/2171 | _sendSTRING #str12B ; Baud rate: 4800 BPS + 340 | 1 dlld3.s 287 | Code | 11 | | 2 | 00/2171 : A2 22 | ldx #>#str12B + 341 | 1 dlld3.s 287 | Code | 11 | | 2 | 00/2173 : A0 7A | ldy #<#str12B + 342 | 1 dlld3.s 287 | Code | 11 | | 3 | 00/2175 : 20 1A 22 | jsr sendString + 343 | 1 dlld3.s 288 | Macro | 11 | | 0 | 00/2178 | _sendSTRING #str0D ; Data/Stop bits: 8/1 + 344 | 1 dlld3.s 288 | Code | 11 | | 2 | 00/2178 : A2 22 | ldx #>#str0D + 345 | 1 dlld3.s 288 | Code | 11 | | 2 | 00/217A : A0 7F | ldy #<#str0D + 346 | 1 dlld3.s 288 | Code | 11 | | 3 | 00/217C : 20 1A 22 | jsr sendString + 347 | 1 dlld3.s 289 | Macro | 11 | | 0 | 00/217F | _sendSTRING #str0P ; Parity: none + 348 | 1 dlld3.s 289 | Code | 11 | | 2 | 00/217F : A2 22 | ldx #>#str0P + 349 | 1 dlld3.s 289 | Code | 11 | | 2 | 00/2181 : A0 83 | ldy #<#str0P + 350 | 1 dlld3.s 289 | Code | 11 | | 3 | 00/2183 : 20 1A 22 | jsr sendString + 351 | 1 dlld3.s 290 | Macro | 11 | | 0 | 00/2186 | _sendSTRING #str0N ; Line length: 0 + 352 | 1 dlld3.s 290 | Code | 11 | | 2 | 00/2186 : A2 22 | ldx #>#str0N + 353 | 1 dlld3.s 290 | Code | 11 | | 2 | 00/2188 : A0 87 | ldy #<#str0N + 354 | 1 dlld3.s 290 | Code | 11 | | 3 | 00/218A : 20 1A 22 | jsr sendString + 355 | 1 dlld3.s 291 | Macro | 11 | | 0 | 00/218D | _sendSTRING #strAD ; Do not implement basic tabs + 356 | 1 dlld3.s 291 | Code | 11 | | 2 | 00/218D : A2 22 | ldx #>#strAD + 357 | 1 dlld3.s 291 | Code | 11 | | 2 | 00/218F : A0 8B | ldy #<#strAD + 358 | 1 dlld3.s 291 | Code | 11 | | 3 | 00/2191 : 20 1A 22 | jsr sendString + 359 | 1 dlld3.s 292 | Macro | 11 | | 0 | 00/2194 | _sendSTRING #strCD ; Disable line formatting + 360 | 1 dlld3.s 292 | Code | 11 | | 2 | 00/2194 : A2 22 | ldx #>#strCD + 361 | 1 dlld3.s 292 | Code | 11 | | 2 | 00/2196 : A0 8F | ldy #<#strCD + 362 | 1 dlld3.s 292 | Code | 11 | | 3 | 00/2198 : 20 1A 22 | jsr sendString + 363 | 1 dlld3.s 293 | Macro | 11 | | 0 | 00/219B | _sendSTRING #strXD ; Ignore XOFF + 364 | 1 dlld3.s 293 | Code | 11 | | 2 | 00/219B : A2 22 | ldx #>#strXD + 365 | 1 dlld3.s 293 | Code | 11 | | 2 | 00/219D : A0 93 | ldy #<#strXD + 366 | 1 dlld3.s 293 | Code | 11 | | 3 | 00/219F : 20 1A 22 | jsr sendString + 367 | 1 dlld3.s 294 | Macro | 11 | | 0 | 00/21A2 | _sendSTRING #strFD ; Disable keyboard input + 368 | 1 dlld3.s 294 | Code | 11 | | 2 | 00/21A2 : A2 22 | ldx #>#strFD + 369 | 1 dlld3.s 294 | Code | 11 | | 2 | 00/21A4 : A0 97 | ldy #<#strFD + 370 | 1 dlld3.s 294 | Code | 11 | | 3 | 00/21A6 : 20 1A 22 | jsr sendString + 371 | 1 dlld3.s 295 | Macro | 11 | | 0 | 00/21A9 | _sendSTRING #strLD ; Do not add line feeds after CR + 372 | 1 dlld3.s 295 | Code | 11 | | 2 | 00/21A9 : A2 22 | ldx #>#strLD + 373 | 1 dlld3.s 295 | Code | 11 | | 2 | 00/21AB : A0 9B | ldy #<#strLD + 374 | 1 dlld3.s 295 | Code | 11 | | 3 | 00/21AD : 20 1A 22 | jsr sendString + 375 | 1 dlld3.s 296 | Macro | 11 | | 0 | 00/21B0 | _sendSTRING #strME ; Mask line feed in + 376 | 1 dlld3.s 296 | Code | 11 | | 2 | 00/21B0 : A2 22 | ldx #>#strME + 377 | 1 dlld3.s 296 | Code | 11 | | 2 | 00/21B2 : A0 9F | ldy #<#strME + 378 | 1 dlld3.s 296 | Code | 11 | | 3 | 00/21B4 : 20 1A 22 | jsr sendString + 379 | 1 dlld3.s 297 | Macro | 11 | | 0 | 00/21B7 | _sendSTRING #strZ ; Suppress control characters + 380 | 1 dlld3.s 297 | Code | 11 | | 2 | 00/21B7 : A2 22 | ldx #>#strZ + 381 | 1 dlld3.s 297 | Code | 11 | | 2 | 00/21B9 : A0 A3 | ldy #<#strZ + 382 | 1 dlld3.s 297 | Code | 11 | | 3 | 00/21BB : 20 1A 22 | jsr sendString + 383 | 1 dlld3.s 298 | Code | 11 | | 3 | 00/21BE : 20 C2 21 | jsr checkInputReady + 384 | 1 dlld3.s 299 | Code | 11 | | 1 | 00/21C1 : 60 | rts + 385 | 1 dlld3.s 300 | Empty | 11 | | 0 | 00/21C2 | + 386 | 1 dlld3.s 301 | Comment | 11 | | 0 | 00/21C2 | *---------- Check the input is ready + 387 | 1 dlld3.s 302 | Empty | 11 | | 0 | 00/21C2 | + 388 | 1 dlld3.s 303 | Empty | 11 | | 0 | 00/21C2 | checkInputReady + 389 | 1 dlld3.s 304 | Code | 11 | | 2 | 00/21C2 : A2 08 | ldx #8 + 390 | 1 dlld3.s 305 | Code | 11 | | 2 | 00/21C4 : A0 00 | ldy #0 + 391 | 1 dlld3.s 306 | Empty | 11 | | 0 | 00/21C6 | + 392 | 1 dlld3.s 307 | Code | 11 | | 1 | 00/21C6 : DA | ozunid_3 phx + 393 | 1 dlld3.s 308 | Code | 11 | | 1 | 00/21C7 : 5A | phy + 394 | 1 dlld3.s 309 | Empty | 11 | | 0 | 00/21C8 | + 395 | 1 dlld3.s 310 | Code | 11 | | 2 | 00/21C8 : A2 C2 | ldx #{{2}!$C0} + 396 | 1 dlld3.s 311 | Code | 11 | | 2 | 00/21CA : A0 20 | ldy #{{2}*16} + 397 | 1 dlld3.s 312 | Code | 11 | | 2 | 00/21CC : A9 01 | lda #1 + 398 | 1 dlld3.s 313 | Code | 11 | | 3 | 00/21CE : 20 59 21 | jsr dostatus + 399 | 1 dlld3.s 314 | Code | 11 | | 2 | 00/21D1 : B0 0A | bcs checkIR1 + 400 | 1 dlld3.s 315 | Empty | 11 | | 0 | 00/21D3 | + 401 | 1 dlld3.s 316 | Code | 11 | | 1 | 00/21D3 : 7A | ply + 402 | 1 dlld3.s 317 | Code | 11 | | 1 | 00/21D4 : FA | plx + 403 | 1 dlld3.s 318 | Code | 11 | | 1 | 00/21D5 : 88 | dey + 404 | 1 dlld3.s 319 | Code | 11 | | 2 | 00/21D6 : D0 EE | bne ozunid_3 + 405 | 1 dlld3.s 320 | Code | 11 | | 1 | 00/21D8 : CA | dex + 406 | 1 dlld3.s 321 | Code | 11 | | 2 | 00/21D9 : D0 EB | bne ozunid_3 + 407 | 1 dlld3.s 322 | Empty | 11 | | 0 | 00/21DB | + 408 | 1 dlld3.s 323 | Code | 11 | | 1 | 00/21DB : 38 | sec + 409 | 1 dlld3.s 324 | Code | 11 | | 1 | 00/21DC : 60 | rts + 410 | 1 dlld3.s 325 | Code | 11 | | 1 | 00/21DD : 7A | checkIR1 ply + 411 | 1 dlld3.s 326 | Code | 11 | | 1 | 00/21DE : FA | plx + 412 | 1 dlld3.s 327 | Code | 11 | | 1 | 00/21DF : 18 | clc + 413 | 1 dlld3.s 328 | Code | 11 | | 1 | 00/21E0 : 60 | rts + 414 | 1 dlld3.s 329 | Empty | 11 | | 0 | 00/21E1 | + 415 | 1 dlld3.s 330 | Comment | 11 | | 0 | 00/21E1 | *---------- Check the output is ready + 416 | 1 dlld3.s 331 | Empty | 11 | | 0 | 00/21E1 | + 417 | 1 dlld3.s 332 | Empty | 11 | | 0 | 00/21E1 | checkOutputReady + 418 | 1 dlld3.s 333 | Code | 11 | | 2 | 00/21E1 : A2 08 | ldx #8 + 419 | 1 dlld3.s 334 | Code | 11 | | 2 | 00/21E3 : A0 00 | ldy #0 + 420 | 1 dlld3.s 335 | Empty | 11 | | 0 | 00/21E5 | + 421 | 1 dlld3.s 336 | Code | 11 | | 1 | 00/21E5 : DA | ozunid_4 phx + 422 | 1 dlld3.s 337 | Code | 11 | | 1 | 00/21E6 : 5A | phy + 423 | 1 dlld3.s 338 | Empty | 11 | | 0 | 00/21E7 | + 424 | 1 dlld3.s 339 | Code | 11 | | 2 | 00/21E7 : A2 C2 | ldx #{{2}!$C0} + 425 | 1 dlld3.s 340 | Code | 11 | | 2 | 00/21E9 : A0 20 | ldy #{{2}*16} + 426 | 1 dlld3.s 341 | Code | 11 | | 2 | 00/21EB : A9 00 | lda #0 + 427 | 1 dlld3.s 342 | Code | 11 | | 3 | 00/21ED : 20 59 21 | jsr dostatus + 428 | 1 dlld3.s 343 | Code | 11 | | 2 | 00/21F0 : B0 0A | bcs checkOR1 + 429 | 1 dlld3.s 344 | Empty | 11 | | 0 | 00/21F2 | + 430 | 1 dlld3.s 345 | Code | 11 | | 1 | 00/21F2 : 7A | ply + 431 | 1 dlld3.s 346 | Code | 11 | | 1 | 00/21F3 : FA | plx + 432 | 1 dlld3.s 347 | Code | 11 | | 1 | 00/21F4 : 88 | dey + 433 | 1 dlld3.s 348 | Code | 11 | | 2 | 00/21F5 : D0 EE | bne ozunid_4 + 434 | 1 dlld3.s 349 | Code | 11 | | 1 | 00/21F7 : CA | dex + 435 | 1 dlld3.s 350 | Code | 11 | | 2 | 00/21F8 : D0 EB | bne ozunid_4 + 436 | 1 dlld3.s 351 | Empty | 11 | | 0 | 00/21FA | + 437 | 1 dlld3.s 352 | Code | 11 | | 1 | 00/21FA : 38 | sec + 438 | 1 dlld3.s 353 | Code | 11 | | 1 | 00/21FB : 60 | rts + 439 | 1 dlld3.s 354 | Code | 11 | | 1 | 00/21FC : 7A | checkOR1 ply + 440 | 1 dlld3.s 355 | Code | 11 | | 1 | 00/21FD : FA | plx + 441 | 1 dlld3.s 356 | Code | 11 | | 1 | 00/21FE : 18 | clc + 442 | 1 dlld3.s 357 | Code | 11 | | 1 | 00/21FF : 60 | rts + 443 | 1 dlld3.s 358 | Empty | 11 | | 0 | 00/2200 | + 444 | 1 dlld3.s 359 | Comment | 11 | | 0 | 00/2200 | *---------- Send a LD command + 445 | 1 dlld3.s 360 | Empty | 11 | | 0 | 00/2200 | + 446 | 1 dlld3.s 361 | Empty | 11 | | 0 | 00/2200 | sendLDCommand + 447 | 1 dlld3.s 362 | Code | 11 | | 3 | 00/2200 : 20 1A 22 | jsr sendString + 448 | 1 dlld3.s 363 | Code | 11 | | 2 | 00/2203 : B0 03 | bcs sendLDError + 449 | 1 dlld3.s 364 | Code | 11 | | 3 | 00/2205 : 4C 48 22 | jmp receiveString + 450 | 1 dlld3.s 365 | Code | 11 | | 1 | 00/2208 : 60 | sendLDError rts + 451 | 1 dlld3.s 366 | Empty | 11 | | 0 | 00/2209 | + 452 | 1 dlld3.s 367 | Comment | 11 | | 0 | 00/2209 | *---------- Send a LD command & wait for an answer + 453 | 1 dlld3.s 368 | Empty | 11 | | 0 | 00/2209 | + 454 | 1 dlld3.s 369 | Empty | 11 | | 0 | 00/2209 | sendLDCommand2 + 455 | 1 dlld3.s 370 | Code | 11 | | 3 | 00/2209 : 9C 00 23 | stz responseBUF + 456 | 1 dlld3.s 371 | Code | 11 | | 3 | 00/220C : 20 1A 22 | jsr sendString + 457 | 1 dlld3.s 372 | Comment | 11 | | 0 | 00/220F | * bcs sendLDError2 + 458 | 1 dlld3.s 373 | Code | 11 | | 3 | 00/220F : 20 48 22 | ozunid_5 jsr receiveString + 459 | 1 dlld3.s 374 | Code | 11 | | 3 | 00/2212 : AD 00 23 | lda responseBUF + 460 | 1 dlld3.s 375 | Code | 11 | | 2 | 00/2215 : C9 52 | cmp #'R' + 461 | 1 dlld3.s 376 | Code | 11 | | 2 | 00/2217 : D0 F6 | bne ozunid_5 + 462 | 1 dlld3.s 377 | Code | 11 | | 1 | 00/2219 : 60 | rts + 463 | 1 dlld3.s 378 | Empty | 11 | | 0 | 00/221A | + 464 | 1 dlld3.s 379 | Comment | 11 | | 0 | 00/221A | *---------- Send a string + 465 | 1 dlld3.s 380 | Empty | 11 | | 0 | 00/221A | + 466 | 1 dlld3.s 381 | Empty | 11 | | 0 | 00/221A | sendString + 467 | 1 dlld3.s 382 | Code | 11 | | 2 | 00/221A : 84 FC | sty {$fc} + 468 | 1 dlld3.s 383 | Code | 11 | | 2 | 00/221C : 86 FD | stx {$fc}+1 + 469 | 1 dlld3.s 384 | Empty | 11 | | 0 | 00/221E | + 470 | 1 dlld3.s 385 | Code | 11 | | 2 | 00/221E : B2 FC | ozunid_6 lda ({$fc}) + 471 | 1 dlld3.s 386 | Code | 11 | | 2 | 00/2220 : F0 0D | beq sendCRS1 ; end of string? + 472 | 1 dlld3.s 387 | Code | 11 | | 3 | 00/2222 : 20 35 22 | jsr sendCharacter + 473 | 1 dlld3.s 388 | Code | 11 | | 2 | 00/2225 : B0 0D | bcs sendError ; error! + 474 | 1 dlld3.s 389 | Empty | 11 | | 0 | 00/2227 | + 475 | 1 dlld3.s 390 | Code | 11 | | 2 | 00/2227 : E6 FC | inc {$fc} + 476 | 1 dlld3.s 391 | Code | 11 | | 2 | 00/2229 : D0 F3 | bne ozunid_6 + 477 | 1 dlld3.s 392 | Code | 11 | | 2 | 00/222B : E6 FD | inc {$fc}+1 + 478 | 1 dlld3.s 393 | Code | 11 | | 2 | 00/222D : D0 EF | bne ozunid_6 + 479 | 1 dlld3.s 394 | Empty | 11 | | 0 | 00/222F | + 480 | 1 dlld3.s 395 | Code | 11 | | 2 | 00/222F : A9 0D | sendCRS1 lda #{$0d} ; yes, add a final CR + 481 | 1 dlld3.s 396 | Code | 11 | | 3 | 00/2231 : 20 35 22 | jsr sendCharacter + 482 | 1 dlld3.s 397 | Empty | 11 | | 0 | 00/2234 | + 483 | 1 dlld3.s 398 | Code | 11 | | 1 | 00/2234 : 60 | sendError rts + 484 | 1 dlld3.s 399 | Empty | 11 | | 0 | 00/2235 | + 485 | 1 dlld3.s 400 | Comment | 11 | | 0 | 00/2235 | *---------- Send serial character + 486 | 1 dlld3.s 401 | Empty | 11 | | 0 | 00/2235 | + 487 | 1 dlld3.s 402 | Empty | 11 | | 0 | 00/2235 | sendCharacter + 488 | 1 dlld3.s 403 | Code | 11 | | 1 | 00/2235 : 48 | pha + 489 | 1 dlld3.s 404 | Empty | 11 | | 0 | 00/2236 | + 490 | 1 dlld3.s 405 | Code | 11 | | 3 | 00/2236 : 20 E1 21 | ozunid_7 jsr checkOutputReady + 491 | 1 dlld3.s 406 | Code | 11 | | 2 | 00/2239 : 90 03 | bcc sensSC1 + 492 | 1 dlld3.s 407 | Code | 11 | | 1 | 00/223B : 68 | pla + 493 | 1 dlld3.s 408 | Code | 11 | | 1 | 00/223C : 38 | sec + 494 | 1 dlld3.s 409 | Code | 11 | | 1 | 00/223D : 60 | rts + 495 | 1 dlld3.s 410 | Empty | 11 | | 0 | 00/223E | + 496 | 1 dlld3.s 411 | Code | 11 | | 1 | 00/223E : 68 | sensSC1 pla + 497 | 1 dlld3.s 412 | Code | 11 | | 2 | 00/223F : A2 C2 | ldx #{{2}!$C0} + 498 | 1 dlld3.s 413 | Code | 11 | | 2 | 00/2241 : A0 20 | ldy #{{2}*16} + 499 | 1 dlld3.s 414 | Code | 11 | | 3 | 00/2243 : 20 56 21 | jsr dowrite + 500 | 1 dlld3.s 415 | Code | 11 | | 1 | 00/2246 : 18 | clc + 501 | 1 dlld3.s 416 | Code | 11 | | 1 | 00/2247 : 60 | rts + 502 | 1 dlld3.s 417 | Empty | 11 | | 0 | 00/2248 | + 503 | 1 dlld3.s 418 | Comment | 11 | | 0 | 00/2248 | *---------- Receive string + 504 | 1 dlld3.s 419 | Empty | 11 | | 0 | 00/2248 | + 505 | 1 dlld3.s 420 | Empty | 11 | | 0 | 00/2248 | receiveString + 506 | 1 dlld3.s 421 | Code | 11 | | 2 | 00/2248 : A0 00 | ldy #responseBUF + 509 | 1 dlld3.s 424 | Code | 11 | | 2 | 00/224E : 86 FF | stx {{$fc}+2}+1 + 510 | 1 dlld3.s 425 | Empty | 11 | | 0 | 00/2250 | + 511 | 1 dlld3.s 426 | Code | 11 | | 2 | 00/2250 : A0 00 | ldy #0 + 512 | 1 dlld3.s 427 | Code | 11 | | 1 | 00/2252 : 5A | receiveSTR1 phy + 513 | 1 dlld3.s 428 | Code | 11 | | 3 | 00/2253 : 20 C2 21 | ozunid_8 jsr checkInputReady + 514 | 1 dlld3.s 429 | Code | 11 | | 2 | 00/2256 : B0 17 | bcs receiveSTR9 + 515 | 1 dlld3.s 430 | Empty | 11 | | 0 | 00/2258 | + 516 | 1 dlld3.s 431 | Code | 11 | | 2 | 00/2258 : A2 C2 | ldx #{{2}!$C0} + 517 | 1 dlld3.s 432 | Code | 11 | | 2 | 00/225A : A0 20 | ldy #{{2}*16} + 518 | 1 dlld3.s 433 | Code | 11 | | 3 | 00/225C : 20 53 21 | jsr doread + 519 | 1 dlld3.s 434 | Code | 11 | | 2 | 00/225F : E0 00 | cpx #0 + 520 | 1 dlld3.s 435 | Code | 11 | | 2 | 00/2261 : D0 0C | bne receiveSTR9 + 521 | 1 dlld3.s 436 | Empty | 11 | | 0 | 00/2263 | + 522 | 1 dlld3.s 437 | Code | 11 | | 1 | 00/2263 : 7A | ply + 523 | 1 dlld3.s 438 | Code | 11 | | 2 | 00/2264 : 91 FE | sta ({{$fc}+2}),y + 524 | 1 dlld3.s 439 | Code | 11 | | 2 | 00/2266 : C9 0D | cmp #{$0d} + 525 | 1 dlld3.s 440 | Code | 11 | | 2 | 00/2268 : F0 03 | beq receiveSTR8 + 526 | 1 dlld3.s 441 | Code | 11 | | 1 | 00/226A : C8 | iny + 527 | 1 dlld3.s 442 | Code | 11 | | 2 | 00/226B : D0 E5 | bne receiveSTR1 + 528 | 1 dlld3.s 443 | Code | 11 | | 1 | 00/226D : 18 | receiveSTR8 clc + 529 | 1 dlld3.s 444 | Code | 11 | | 1 | 00/226E : 60 | rts + 530 | 1 dlld3.s 445 | Code | 11 | | 1 | 00/226F : 7A | receiveSTR9 ply + 531 | 1 dlld3.s 446 | Code | 11 | | 1 | 00/2270 : 38 | sec + 532 | 1 dlld3.s 447 | Code | 11 | | 1 | 00/2271 : 60 | rts + 533 | 1 dlld3.s 448 | Empty | 11 | | 0 | 00/2272 | + 534 | 1 dlld3.s 449 | Comment | 11 | | 0 | 00/2272 | *----------------------------------- + 535 | 1 dlld3.s 450 | Comment | 11 | | 0 | 00/2272 | * DATA + 536 | 1 dlld3.s 451 | Comment | 11 | | 0 | 00/2272 | *----------------------------------- + 537 | 1 dlld3.s 452 | Empty | 11 | | 0 | 00/2272 | + 538 | 1 dlld3.s 453 | Comment | 11 | | 0 | 00/2272 | *---------- Serial data + 539 | 1 dlld3.s 454 | Empty | 11 | | 0 | 00/2272 | + 540 | 1 dlld3.s 455 | Data | 11 | | 4 | 00/2272 : 01 45 44 00 | strED asc 01'ED'00 ; *Don't echo output + 541 | 1 dlld3.s 456 | Data | 11 | | 4 | 00/2276 : 01 42 45 00 | strBE asc 01'BE'00 ; *Input buffering: on + 542 | 1 dlld3.s 457 | Data | 11 | | 5 | 00/227A : 01 31 32 42 | str12B asc 01'12B'00 ; *Baud rate: 4800 BPS + | | | | | | 00 | + 543 | 1 dlld3.s 458 | Data | 11 | | 4 | 00/227F : 01 30 44 00 | str0D asc 01'0D'00 ; *Data/Stop bits: 8/1 + 544 | 1 dlld3.s 459 | Data | 11 | | 4 | 00/2283 : 01 30 50 00 | str0P asc 01'0P'00 ; *Parity: none + 545 | 1 dlld3.s 460 | Data | 11 | | 4 | 00/2287 : 01 30 4E 00 | str0N asc 01'0N'00 ; Line length: 0 + 546 | 1 dlld3.s 461 | Data | 11 | | 4 | 00/228B : 01 41 44 00 | strAD asc 01'AD'00 ; *Do not implement basic tabs + 547 | 1 dlld3.s 462 | Data | 11 | | 4 | 00/228F : 01 43 44 00 | strCD asc 01'CD'00 ; *Disable line formatting + 548 | 1 dlld3.s 463 | Data | 11 | | 4 | 00/2293 : 01 58 44 00 | strXD asc 01'XD'00 ; *Ignore XOFF + 549 | 1 dlld3.s 464 | Data | 11 | | 4 | 00/2297 : 01 46 44 00 | strFD asc 01'FD'00 ; *Disable keyboard input + 550 | 1 dlld3.s 465 | Data | 11 | | 4 | 00/229B : 01 4C 44 00 | strLD asc 01'LD'00 ; Do not add line feeds after CR + 551 | 1 dlld3.s 466 | Data | 11 | | 4 | 00/229F : 01 4D 45 00 | strME asc 01'ME'00 ; Mask line feed in + 552 | 1 dlld3.s 467 | Data | 11 | | 3 | 00/22A3 : 01 5A 00 | strZ asc 01'Z'00 ; *Suppress control characters + 553 | 1 dlld3.s 468 | Empty | 11 | | 0 | 00/22A6 | + 554 | 1 dlld3.s 469 | Comment | 11 | | 0 | 00/22A6 | *---------- Laserdisc + 555 | 1 dlld3.s 470 | Empty | 11 | | 0 | 00/22A6 | + 556 | 1 dlld3.s 471 | Data | 11 | | 90 | 00/22A6 : 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 | + 557 | 1 dlld3.s 472 | Empty | 11 | | 0 | 00/2300 | + 558 | 1 dlld3.s 473 | 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 | + 559 | 1 dlld3.s 474 | Empty | 11 | | 0 | 00/2400 | + 560 | 1 dlld3.s 475 | Comment | 11 | | 0 | 00/2400 | *----------------------------------- + 561 | 1 dlld3.s 476 | Comment | 11 | | 0 | 00/2400 | * END OF CODE + 562 | 1 dlld3.s 477 | Comment | 11 | | 0 | 00/2400 | *----------------------------------- + 563 | 1 dlld3.s 478 | Empty | 11 | | 0 | 00/2400 | + 564 | 1 dlld3.s 479 | Empty | 11 | | 0 | 00/2400 | +------+-------------------+-------------+----+---------+------+-----------------------+------------------------------------------------------------------- diff --git a/dlld/source/dlld4.s b/dlld/source/dlld4.s new file mode 100644 index 0000000..430be55 --- /dev/null +++ b/dlld/source/dlld4.s @@ -0,0 +1,454 @@ +* +* DLLD +* Let's play Dragon's Lair :-) +* +* (c) 2024, Brutal Deluxe Software +* + + mx %11 + org $2000 + lst off + + use 4/Int.Macs + use 4/Misc.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 + +*---------- + +CH = $24 + +KBD = $c000 +CLR80VID = $c00c +KBDSTROBE = $c010 + +INIT = $FB2F +TABV = $FB5B +HOME = $FC58 +PRBYTE = $FDDA +COUT = $FDED +SETNORM = $FE84 +SETKBD = $FE89 + +*----------------------------------- +* CODE +*----------------------------------- + + bra jumpME + +theFRAME ds 2 + +jumpME sta CLR80VID + jsr INIT ; text screen + jsr SETNORM ; set normal text mode + jsr SETKBD ; reset input to keyboard + jsr HOME ; home cursor and clear to end of page + + clc + xce + rep #$30 + lda #323 + sta theFRAME + sec + xce + sep #$30 + + jsr initSERIAL ; set the serial addresses + jsr initPORT ; init the serial port for LD support + + ldx #>strDS ; on veut la frame number + ldy #strSA ; start the player + ldy #strSE ; Move to frame + ldy #strPL ; Play to frame + ldy #strQF ; Frame number request + ldy #strRJ ; It's the end! + ldy #responseBUF + ldy #]1 + ldy #<]1 + jsr sendString + eom + +*----------------------------------- +* EQUATES +*----------------------------------- + +SLOT = 2 +N0 = SLOT*16 +CN = SLOT!$C0 + +dpFROM = $fc +dpTO = dpFROM+2 + +chrRETURN = $0d + +*---------- + +CH = $24 + +KBD = $c000 +CLR80VID = $c00c +KBDSTROBE = $c010 + +INIT = $FB2F +TABV = $FB5B +HOME = $FC58 +PRBYTE = $FDDA +COUT = $FDED +SETNORM = $FE84 +SETKBD = $FE89 + +*----------------------------------- +* CODE +*----------------------------------- + + bra jumpME + +theFRAME ds 2 + +jumpME sta CLR80VID + jsr INIT ; text screen + jsr SETNORM ; set normal text mode + jsr SETKBD ; reset input to keyboard + jsr HOME ; home cursor and clear to end of page + + clc + xce + rep #$30 + lda #323 + sta theFRAME + sec + xce + sep #$30 + + jsr initSERIAL ; set the serial addresses + jsr initPORT ; init the serial port for LD support + + ldx #>strDS ; on veut la frame number + ldy #strSA ; start the player + ldy #strSE ; Move to frame + ldy #strPL ; Play to frame + ldy #strRJ ; It's the end! + ldy #responseBUF + ldy #