CODETESTCZM>CODETESTMCDA:CODETESTMKECeCODETESTMODECRCKLISTCZCI-CTZ80 COMKCTZ80 HEXLVCTZ80 Z80N@ vCODETEST.COM[X-NODE 408-432-0821]$ a@ m@4уԀqJ1`2ZFԀXS b@ Dv" <r k5Bqx)"#m{+Iҕnf[J5K L2P"qbo:ϤҍSrBqH ,88]\DTpE2.\ %T6 <<:8\1BM3g97t/P+BTp= G ($n, a085(Qv@$$@CH! HF` 2!xx8@L B6m#h>H9+%2p m0Ő&0xv)c,D~ X.0Q`>B016XC @ `$H5!Hr#2Bu 1e䧒` !,m`8*UZ)RIٖFqaZJ9o.eܽTjN1f<,2!4Қ7G 6R4Ϫ%*GSK.a$P8C@bڣTU!#&(i @aūba8`& T]tVkYDEttК#k$H & abF qa<82h`̇vL#lrCHf64eYhh(!X;ED֐aW.` d`1:뱢Z肁$6@h(d? pP/@ AF#D %:{x;`k !'dj0038 S-gn f?( (i>hqrGLf}v0 e@&4a 90 C\0FXAn #َvrr<@pHpaGPEbZj[gh a Q| _Y-P"#@@, 3 ~4Ah<@@: [ 1AV#͑84 5z7Eo gPoU !`P+ 4TRwpj \0!p P> z[rG P  +0!ۃ$ :20*~H!2~D}7Hr @ !wj%pK< oP! CႰ 3"p 2 u"8!]C=@ Ȓ!!HwCp"tD7 WR`08Pc | `pKGbp8$g%`xQp8FHp 0# bp4\B3x.$-GKHxXPRݏp>8x> xO| %n'CodYZ`Xג >DedP}v435H0 Kv0` %}Ku}G@giF&ST)WWUp `0 ) gK@`x p u0͗ YK,"` ɀ`Y_(ڙP. #  pv0c7)8\6gEg`   #H0Cu}byA$0ԃO``Ylף !  :  0ip0 4X= 0 0 :p@>ipƢP{͢ |g/ɣ@a@/pyO - T_ x @H| @= ' @@ץ X | |HyN ;`Dؾ JvHy8꞉ 8@@ƥ !Ŧ cJN:Q6ͩO̥jX :Y io`O0F0 DBu  gZ20Z>Z z ə K @[`*aZ0!(O8_J b  p ʬVիZ 0o]P٩  b* Ӱzɬ0[J'k*  ۲ p뱫kHEZ\ I}\:_͵h[Wj$ZE4T^I)ˮX`T)4` b #U , |@` 0>pP5tz~` 5 : 08Zzu v)طyi0S0 }k3P L @(+뼷)#p Z{~X+ y  KElT>Zwcv_p00`0@8 ʹ\ Zp}GZ {Pf`h1Jk|P   " /;pڸĦE[8ks q:* 0!$TI@ `pҬ"sb=G}  @0 P[ J P p|_ps(pˡ` 0LKs` ^Kw `: `PQB`0@>%:5(=cUr"`f`s;r"PP0@1f0 qf PG``C <@`P$8$ `  0u#eӎpG 0I> ]|6>>[@0B0M"pNv1af 0+1f -P0-`") `O@0")  7r" 0KR؟-K0r/! o=0p%`# ;PO,(p-Og :2a o_p0p%"&@4!@%%XP,`p.P(.f(0.% p6h0OmPo hd#O(m`鰶0 z p`_ܑPw끀P) 9:sU 0PqВrς4(#/Y @2`M,`2 ppK{ 0,} p 05- Np  lXE0`֠` f @#ڠ_ .0=  @P & D2`-=# p%:.  nt8d<4% 3&JPPC@v#p#p #@0 ' @U B 01J@SfPm" fF  bQ9Cm".0 F `?@`삐 0PM8  '"),nc:prg"*"8P,F`6)"B1"4#b8#.#U$ W BQr67A ̐MA>@pfd||-p-@==-? (=p T`(@'@-0 =-FTqf7 bK@-.=H0{=`D .V(zR!B+-N Ba0<ʰ \DdWhp\ ((Q:~ߌۅ{ GG{-{,R'Ibv! ##e!: Nv>Q@O"JRPt 2M 0faeNr2fqH#@`8؆v&@:`q+r6Qnd>͏+CODETEST: demo of absolute data addressing$##* f!MqCODETESTXjQ CTZ80.Z80 SLRZ80 CTZ80 H CTZ80.HEX MLOAD CTZ80.COM=CTZ80 CTZ80.COM TUCH CODETEST.MOD CODETEST.MOD M2 C CODETEST /L+N+O-T- CODETEST.MCD LINK CODETEST CODETEST.COM /A # L     MODULE CodeTest; FROM SYSTEM IMPORT CODE; (* A sample file to demonstrate the use of the CODE feature in TM2. Included in CODETEST.LBR is CODETEST.MKE, which demonstrates how the final CODETEST.COM was created. Note that a .HEX file needs to be created and MLOAD employed. Linkers will insert a JP at the beginning of the code, which will fake M2 out. *) PROCEDURE Ctest; CODE('CTZ80'); END Ctest; BEGIN; Ctest; END CodeTest. HYj\ ;S_l˸®q| (G|R \<& 9~8'vCRCKLIST.CRC[X-NODE 408-432-0821]$ I&GB D"2"MHe"z   C!R-&ȱD7 F<& bqXC"Md " '1bTȀRը2!P88>7N",-6mE,WJĉzZ-Vp $b0i vwC6+CODETEST: demo of absolute data addressing$##* :100100003600182B434F4445544553543A206465F8 :100110006D6F206F66206162736F6C75746520640B :100120006174612061646472657373696E6724230E :0801300023EB2A06000E09E989 :00000001FF ; test of CODE in M2 dw end-start ; indicate the size of the file to TM2 start: jr rstart ; HL has (START) DB 'CODETEST: demo of absolute data addressing$' rstart: inc hl inc hl ; bypass JR ex de,hl ld hl,(6) ; get BDOS ld c,9 ; print string service jp (hl) ; let BDOS supply RET end: end