IN JOHN 17:2-3, JESUS PRAYED    FOR US WHEN HE SAID THAT HIS    FATHER HAD GIVEN "HIM AUTHORITY OVER ALL FLESH, TO GIVE ETERNAL LIFE TO ALL WHOM YOU HAVE GIVEN HIM... THAT THEY KNOW YOU...    AND JESUS CHRIST WHOM YOU HAVE  SENT." (ESV).                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   л  Л(&H30 л C0)/РР/Ъ:Г/5#(:ГGET DATA SUBROUTINE/D#2VH │  Ж(A)/W#<VL │  Ж(A л 1)/o#FV │ (VH н 256) л VL/{#PЗ  Ь(V)/Б#ZР/И#d:Г/Ыu0:ГEXIT ROUTINE/бu:З/└uDЗ "*** RUN TERMINATED ***"/╞uNЗ/═uX:Г/╙ К30 л C3) л  Л(&H30 л C2) л  Л(&H30 л C1)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &
ш:Г*****&Є:Г*&(№:Г* CLRSPC.BAS&?:Г* MDJ 2023/02/18&G:Г*&c:Г* CLEARED SPACE CHECK&k$:Г*&w.:Г*****&~8:Г&СL:ГSETUP MEMORY&гVХ 200, &H4000&к`:Г&╚░:ГBOTTOM OF CLEARED SPACE&▄║BH │  Ж(&H0021)&Ё─BL │  Ж(&H0022)'╬B │ (BH н 256) л BL'╪:Г'*:ГTOP OF CLEARED SPACE'>TH │  Ж(&H0027)'R(TL │  Ж(&H0028)'j2T │ (TH н 256) л TL'q<:Г'~╕:ГREPORT'ДрЗ'йъЗ "BOTTOM OF CLEARED SPACE = $";'╡ЇЗ  Ь(B)'╗■З'рЗ "   TOP OF CLEARED SPACE = $";'ьЗ  Ь(T)'ЄЗ'∙&:Г'  К) л BL'╪:Г'*:ГTOP OF CLEARED SPACE'>TH │  Ж(&H0027)'R(TL │  Ж(&H0028)'j2T │ (TH н 256) л TL'q<:Г'~╕:ГREPORT'ДрЗ'йъЗ "BOTTOM OF CLEARED SPACE = $";'╡ЇЗ  Ь(B)'╗■З'рЗ "   TOP OF CLEARED SPACE = $";'ьЗ  Ь(T)'ЄЗ'∙&:Г'  К                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 √&
ш:Г*****&Є:Г*&(№:Г* BPSTAT.BAS&?:Г* MDJ 2023/02/19&G:Г*&c:Г* BASIC PROGRAM STATS&k$:Г*&w.:Г*****&~8:Г&С╨:ГSETUP MEMORY&г┌Х 200, &H4000&лф└ 4&▓ю:Г&╞	─:ГSETUP COUNTER&╨	╬C │ 0&╫	╪:Г&ё
(:ГPRESET THE RESPONSE'
2:Г  HOLD CODE TO START')
<:Г  WITH SINGLR STEPPING'3
FT │ 1':
P:Г'O╕:ГSETUP FIRST ML'q┬Т &H7000, &H10   :Г STS  REGS'Д╠Т &H7001, &HFF'Ч╓Т &H7002, &H40'крТ &H7003, &H06'╞ъТ &H7004, &H39   :Г RTS'═Ї:Г'у
м:ГSETUP SEBOND ML(
╢Т &H7100, &H35   :Г PULS  A,B(
└Т &H7101, &H06(:
╩Т &H7102, &H34   :Г PSHS  A,B(M
╘Т &H7103, &H06(o
▐Т &H7104, &H34   :Г PSHS  A,B(В
шТ &H7105, &H06(е
ЄТ &H7106, &H10   :Г STS   REGS(╕
№Т &H7107, &HFF(╦Т &H7108, &H40(▐Т &H7109, &H06(·Т &H710A, &H39   :Г RTS)
$:Г)а:ГDO FIRST REPORT)$кв &H7000)0┤Бж 5000)7╛:Г)SФ:ГDO SUBSEQUENT REPORTS)aЮC │ C л 1)lиЗ ">";)r▓З)x╝З)М╞Е T │ 2 Бе 4640)Ш╨R$ │  Т)о┌Е R$ │ "" Бе 4560)▌фЕ R$ │ "2" Бе 4630   :Г SET CONTINUOUS RUN*юЕ R$ │ "9" Бе 30000  :Г EXIT CODE*°Бе 4640*T │ 2*& в &H7100*2*Бж 5000*H4:ГRETURN FOR NEXT*Z>:Г  ITERATION*fHБе 4510*mR:Г*ЕИ:ГREPORT SUBROUTINE*СТБж 8000*аЬЗ D$;". ";*зж:Г*┬ьЗ "STACK POINTER = $";*╤ЎA │ &H4006*▌Бж 9000*ф
:Г+PЗ "     BOTTOM OF STACK = $";+ZA │ &H0017+!dБж 9000+(n:Г+J┤З " BEGIN OF BASIC PROG = $";+Y╛A │ &H0019+e╚Бж 9000+l╥:Г+ОЗ "  START OF VARIABLES = $";+Э"A │ &H001B+й,Бж 9000+░6:Г+╥|З "     START OF ARRAYS = $";+сЖA │ &H001D+эРБж 9000+ЇЪ:Г,рЗ "  END OF ARRAYS (+1) = $";,%ъA │ &H001F,1ЇБж 9000,8■:Г,ZDЗ "START STRING STORAGE = $";,iNA │ &H0021,uXБж 9000,|b:Г,ЮиЗ "   START STRING VARS = $";,н▓A │ &H0023,╣╝Бж 9000,└╞:Г,тЗ " TOP OF STRING SPACE = $";,ёA │ &H0027,¤ Бж 9000-*:Г-p:ГRETURN FROM -1z:Г  REPORT SUBROUTINE-7ДР->О:Г-]@:ГC-TRANSLATION SUBROUTINE-sJC3 │  Б(C о 1000)-МTCT │ C м (C3 н 1000)-в^C2 │  Б(CT о 100)-╗hCT │ CT м (C2 н 100)-╨rC1 │  Б(CT о 10)-ш|C0 │ CT м (C1 н 10).5ЖD$ │ " " л  Л(&H30 л C3) л  Л(&H30 л C2) л  Л(&H30 л C1) л  Л(&H30 л C0).;РР.BЪ:Г.\#(:ГGET DATA SUBROUTINE.k#2VH │  Ж(A).~#<VL │  Ж(A л 1).Ц#FV │ (VH н 256) л VL.в#PЗ  Ь(V).и#ZР.п#d:Г.┬u0:ГEXIT ROUTINE.╚u:З.чuDЗ "*** RUN TERMINATED ***".эuNЗ.ЇuX:Г.· К30 
я&
ш:Г*****&Є:Г*&(№:Г* STKLOC.BAS&?:Г* MDJ 2023/02/18&G:Г*&d:Г* STACK LOCATION CHECK&l$:Г*&x.:Г*****&8:Г&ТL:ГSETUP MEMORY&дVХ 200, &H4000&м`└ 4&│j:Г&├░:ГLOAD THE &▄║:ГML FOUNDATION CORE&Ё─╙M "MLCORE.BIN"&ў╬:Г':ГLOAD THE ':ГCHECK ROUTINE'/(╙M "STKLOC.BIN"'62:Г'L╨:ГGO DO THE CHECK'Y┌в &H7000'`ф:Г'm╕:ГREPORT'Б┬SH │  Ж(&H4006)'Х╠SL │  Ж(&H4007)'н╓S │ (SH н 256) л SL'│рЗ'╧ъЗ "STACK LOCATION = $";'█ЇЗ  Ь(S)'с■З'ш:Г'ю К&ў╬:Г':ГL                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
&
ш:Г*****&Є:Г*&(№:Г* RESETL.BAS&?:Г* MDJ 2023/02/18&G:Г*&d:Г* RESET LOCATION CHECK&l$:Г*&x.:Г*****&8:Г&У╨RH │  Ж(&HFFFE)&з┌RL │  Ж(&HFFFF)&┐фR │ (RH н 256) л RL&╞ю:Г&╠╕З&ц┬З "RESET VECTOR = $";&Є╠З  Ь(R)&°╓З& р:Г' К*****&Є:Г*&(№:Г* RESETL.BAS&?:Г* MDJ 2023/02/18&G:Г*&d:Г* RESET LOCATION CHECK&l$:Г*&x.:Г*****&8:Г&У╨RH │  Ж(&HFFFE)&з┌RL │  Ж(&HFFFF)&┐фR │ (RH н 256) л RL&╞ю:Г&╠╕З&ц┬З "RESET VECTOR = $";&Є╠З  Ь(R)&°╓З& р:Г                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 :&
ш:Г*****&Є:Г*&*№:Г* TEST0034.BAS&A:Г* MDJ 2023/02/17&I:Г*&]:Г* RNDU16 TEST&q:Г* RANDOM SEED&y$:Г*&Е.:Г*****&М8:Г&ЯL:ГSETUP MEMORY&▒VХ 200, &H4000&╣`└ 4&└j:Г&╨░:ГLOAD THE &щ║:ГML FOUNDATION CORE&¤─╙M "MLCORE.BIN"'╬:Г':ГLOAD THE '*:ГML TEST ROUTINE'@(╙M "TEST0034.BIN"'G2:Г'[╨:ГREFERENCE THE't┌:ГTRANSFER VARIABLES'Н RA │ &H400A :ГREGPCH'ж*RB │ &H400B :ГREGPCL'н4:Г'╜╕:ГSETUP THE'╧┬:ГRUN ADDRESS'▐╠C │ &H7000'ё╓C1 │  Б(Cо256)(	рC2 │  Б(Cм(C1н256))(ъТ RA, C1(#ЇТ RB, C2(*■:Г(Cа:ГLOAD THE TEST DATA(QhXH │ &HFF(brТ &H4002, XH(p|XL │ &HFF(БЖТ &H4003, XL(ОРB │ &HFF(ЮЪТ &H4001, B(▒p:ГJUMP TO CORE(╟z:ГSTARTUP ROUTINE(╘Дв &H4403(█О:Г(ё#(:ГMEMORY AND DISK)#2:ГSTATUS CHECK)
#<З)#FЗ " MEM = "; У)3#PЗ "FREE = "; г(0))9 КST DATA(QhXH │ &HFF(brТ &H4002, XH(p|XL │ &HFF(БЖТ &H4003, XL(ОРB │ &HFF(ЮЪТ &H4001, B(▒p:ГJUMP TO CORE(╟z:ГSTARTUP ROUTINE(╘Дв &H4403(█О:Г(ё#(:ГMEMORY AND DISK)#2:ГSTATUS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 00100 *****
00110 *
00120 * STKLOC.ASM
00130 * MDJ 2023/02/18
00140 *
00150 * STACK LOCATION CHECK
00160 *
00170 *****
00180 
00190 * BASIC/ML TRANSFER
00200 * VARIABLE
00210 REGS    EQU     $4006
00220 
00230         ORG     $7000
00240         
00250 STKLOC  STS     REGS
00260 
00270         RTS
00280         
00290         END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     y&ш:ГTEST0032.BAS&%║Х1000,&H4000&,─└4&?╙M"MLCORE.BIN"&KТв&H43B6&]#(З" MEM = "; У&r#2З"FREE = "; г(0)&x К                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     <&
ш:Г*****&Є:Г*&*№:Г* TEST0033.BAS&A:Г* MDJ 2023/02/17&I:Г*&]:Г* RNDU16 TEST&s:Г* SELECTED SEED&{$:Г*&З.:Г*****&О8:Г&бL:ГSETUP MEMORY&│VХ 200, &H4000&╗`└ 4&┬j:Г&╥░:ГLOAD THE &ы║:ГML FOUNDATION CORE& ─╙M "MLCORE.BIN"'╬:Г':ГLOAD THE ',:ГML TEST ROUTINE'B(╙M "TEST0033.BIN"'I2:Г']╨:ГREFERENCE THE'v┌:ГTRANSFER VARIABLES'П RA │ &H400A :ГREGPCH'и*RB │ &H400B :ГREGPCL'п4:Г'┐╕:ГSETUP THE'╤┬:ГRUN ADDRESS'р╠C │ &H7000'є╓C1 │  Б(Cо256)(рC2 │  Б(Cм(C1н256))(ъТ RA, C1(%ЇТ RB, C2(,■:Г(Eа:ГLOAD THE TEST DATA(ShXH │ &HFF(drТ &H4002, XH(r|XL │ &HFF(ГЖТ &H4003, XL(РРB │ &HFF(аЪТ &H4001, B(│p:ГJUMP TO CORE(╔z:ГSTARTUP ROUTINE(╓Дв &H4403(▌О:Г(є#(:ГMEMORY AND DISK)#2:ГSTATUS CHECK)#<З)#FЗ " MEM = "; У)5#PЗ "FREE = "; г(0)); КST DATA(ShXH │ &HFF(drТ &H4002, XH(r|XL │ &HFF(ГЖТ &H4003, XL(РРB │ &HFF(аЪТ &H4001, B(│p:ГJUMP TO CORE(╔z:ГSTARTUP ROUTINE(╓Дв &H4403(▌О:Г(є#(:ГMEMORY AND DISK)#2:ГSTATU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 G&
ш:Г*****&Є:Г*&*№:Г* TEST0030.BAS&A:Г* MDJ 2023/02/17&I:Г*&]:Г* DU1616 TEST&e$:Г*&q.:Г*****&x8:Г&ЛL:ГSETUP MEMORY&ЭVХ 200, &H4000&е`└ 4&мj:Г&╝░:ГLOAD THE &╒║:ГML FOUNDATION CORE&щ─╙M "MLCORE.BIN"&Ё╬:Г':ГLOAD THE ':ГML TEST ROUTINE',(╙M "TEST0030.BIN"'32:Г'G╨:ГREFERENCE THE'`┌:ГTRANSFER VARIABLES'y RA │ &H400A :ГREGPCH'Т*RB │ &H400B :ГREGPCL'Щ4:Г'й╕:ГSETUP THE'╗┬:ГRUN ADDRESS'╩╠C │ &H7000'▌╓C1 │  Б(Cо256)'їрC2 │  Б(Cм(C1н256))(ъТ RA, C1(ЇТ RB, C2(■:Г(/а:ГLOAD THE TEST DATA(=hXH │ &HFF(NrТ &H4002, XH(\|XL │ &HFF(mЖТ &H4003, XL({РYH │ &HFF(МЪТ &H4004, YH(ЪдYL │ &HFF(лоТ &H4005, YL(╛p:ГJUMP TO CORE(╘z:ГSTARTUP ROUTINE(сДв &H4403(шО:Г(■#(:ГMEMORY AND DISK)#2:ГSTATUS CHECK)#<З)*#FЗ " MEM = "; У)@#PЗ "FREE = "; г(0))F К2, XH(\|XL │ &HFF(mЖТ &H4003, XL({РYH │ &HFF(МЪТ &H4004, YH(ЪдYL │ &HFF(лоТ &H4005, YL(╛p:ГJUMP TO CORE(╘z:ГSTARTUP ROUTINE(сДв &H4403(шО:Г(■#(:ГMEMORY AND DISK                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &&
ш:Г*****&Є:Г*&*№:Г* TEST0031.BAS&A:Г* MDJ 2023/02/17&I:Г*&]:Г* DU1608 TEST&e$:Г*&q.:Г*****&x8:Г&ЛL:ГSETUP MEMORY&ЭVХ 200, &H4000&е`└ 4&мj:Г&╝░:ГLOAD THE &╒║:ГML FOUNDATION CORE&щ─╙M "MLCORE.BIN"&Ё╬:Г':ГLOAD THE ':ГML TEST ROUTINE',(╙M "TEST0031.BIN"'32:Г'G╨:ГREFERENCE THE'`┌:ГTRANSFER VARIABLES'y RA │ &H400A :ГREGPCH'Т*RB │ &H400B :ГREGPCL'Щ4:Г'й╕:ГSETUP THE'╗┬:ГRUN ADDRESS'╩╠C │ &H7000'▌╓C1 │  Б(Cо256)'їрC2 │  Б(Cм(C1н256))(ъТ RA, C1(ЇТ RB, C2(■:Г(/а:ГLOAD THE TEST DATA(=hXH │ &HFF(NrТ &H4002, XH(\|XL │ &HFF(mЖТ &H4003, XL(zРB │ &HFF(КЪТ &H4001, B(Эp:ГJUMP TO CORE(│z:ГSTARTUP ROUTINE(└Дв &H4403(╟О:Г(▌#(:ГMEMORY AND DISK(Ё#2:ГSTATUS CHECK(Ў#<З)	#FЗ " MEM = "; У)#PЗ "FREE = "; г(0))% КST DATA(=hXH │ &HFF(NrТ &H4002, XH(\|XL │ &HFF(mЖТ &H4003, XL(zРB │ &HFF(КЪТ &H4001, B(Эp:ГJUMP TO CORE(│z:ГSTARTUP ROUTINE(└Дв &H4403(╟О:Г(▌#(:ГMEMORY AND DISK(Ё#2:ГSTATUS CHECK(Ў#<З)	#FЗ "                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &
ш:Г*****&Є:Г*&*№:Г* TEST0029.BAS&A:Г* MDJ 2023/02/17&I:Г*&]:Г* DU0808 TEST&e$:Г*&q.:Г*****&x8:Г&ЛL:ГSETUP MEMORY&ЭVХ 200, &H4000&е`└ 4&мj:Г&╝░:ГLOAD THE &╒║:ГML FOUNDATION CORE&щ─╙M "MLCORE.BIN"&Ё╬:Г':ГLOAD THE ':ГML TEST ROUTINE',(╙M "TEST0029.BIN"'32:Г'G╨:ГREFERENCE THE'`┌:ГTRANSFER VARIABLES'y RA │ &H400A :ГREGPCH'Т*RB │ &H400B :ГREGPCL'Щ4:Г'й╕:ГSETUP THE'╗┬:ГRUN ADDRESS'╩╠C │ &H7000'▌╓C1 │  Б(Cо256)'їрC2 │  Б(Cм(C1н256))(ъТ RA, C1(ЇТ RB, C2(■:Г(/а:ГLOAD THE TEST DATA(<hA │ &HFF(LrТ &H4000, A(Y|B │ &HFF(iЖТ &H4001, B(|p:ГJUMP TO CORE(Тz:ГSTARTUP ROUTINE(ЯДв &H4403(жО:Г(╝#(:ГMEMORY AND DISK(╧#2:ГSTATUS CHECK(╒#<З(ш#FЗ " MEM = "; У(■#PЗ "FREE = "; г(0)) КТ RB, C2(■:Г(/а:ГLOAD THE TEST DATA(<hA │ &HFF(LrТ &H4000, A(Y|B │ &HFF(iЖТ &H4001, B(|p:ГJUMP TO CORE(Тz:ГSTARTUP ROUTINE(ЯДв &H4403(жО:Г(╝#(:ГMEMORY AND DISK(╧#2:ГSTATUS CHECK(╒#<З(ш#FЗ " MEM = "; У(■#PЗ "FREE = "; г(0)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Ip46╛@╛@╜AxЖ/╜A█ ╜AxЖ ╜A█Ж=╜A█Ж ╜A█╜@╫╛@╛@╜C%╜AxЖ ╜A█ ╜Ax╜@╫569                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               G&
ш:Г*****&Є:Г*&*№:Г* TEST0028.BAS&A:Г* MDJ 2023/02/17&I:Г*&]:Г* MU1616 TEST&e$:Г*&q.:Г*****&x8:Г&ЛL:ГSETUP MEMORY&ЭVХ 200, &H4000&е`└ 4&мj:Г&╝░:ГLOAD THE &╒║:ГML FOUNDATION CORE&щ─╙M "MLCORE.BIN"&Ё╬:Г':ГLOAD THE ':ГML TEST ROUTINE',(╙M "TEST0028.BIN"'32:Г'G╨:ГREFERENCE THE'`┌:ГTRANSFER VARIABLES'y RA │ &H400A :ГREGPCH'Т*RB │ &H400B :ГREGPCL'Щ4:Г'й╕:ГSETUP THE'╗┬:ГRUN ADDRESS'╩╠C │ &H7000'▌╓C1 │  Б(Cо256)'їрC2 │  Б(Cм(C1н256))(ъТ RA, C1(ЇТ RB, C2(■:Г(/а:ГLOAD THE TEST DATA(=hXH │ &HFF(NrТ &H4002, XH(\|XL │ &HFF(mЖТ &H4003, XL({РYH │ &HFF(МЪТ &H4004, YH(ЪдYL │ &HFF(лоТ &H4005, YL(╛p:ГJUMP TO CORE(╘z:ГSTARTUP ROUTINE(сДв &H4403(шО:Г(■#(:ГMEMORY AND DISK)#2:ГSTATUS CHECK)#<З)*#FЗ " MEM = "; У)@#PЗ "FREE = "; г(0))F К2, XH(\|XL │ &HFF(mЖТ &H4003, XL({РYH │ &HFF(МЪТ &H4004, YH(ЪдYL │ &HFF(лоТ &H4005, YL(╛p:ГJUMP TO CORE(╘z:ГSTARTUP ROUTINE(сДв &H4403(шО:Г(■#(:ГMEMORY AND DISK                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                00100 *****
00110 *
00120 * TEST0029.ASM
00130 * MDJ 2023/02/17
00140 *
00150 * DU0808 TEST
00160 *
00170 *****
00180  
00190 * BASIC/ML TRANSFER
00200 * VARIABLES
00210 REGA    EQU     $4000
00220 REGB    EQU     $4001
00230 
00240 * ML FOUNDATION
00250 * CORE ADDRESSES
00260 PUTBYA  EQU     $409E
00270 CRLF    EQU     $40D7
00280 PRTCHA  EQU     $41DB
00290 DU0808  EQU     $42FE
00300 
00310         ORG     $7000
00320 
00330 * DU0808 TEST
00340 
00350         PSHS    A,B
00360         
00370         LDA     REGA    GET THE TEST VALUES
00380         LDB     REGB    FROM THE XFER VARIABLES
00390         
00400         JSR     PUTBYA  A
00410         LDA     #$2F    /
00420         JSR     PRTCHA
00430         TFR     B,A
00440         JSR     PUTBYA  B
00450         LDA     #$20    SPACE
00460         JSR     PRTCHA
00470         LDA     #$3D    =
00480         JSR     PRTCHA
00490         LDA     #$20    SPACE
00500         JSR     PRTCHA
00510         JSR     CRLF
00520         
00530         LDA     REGA    GET THE TEST VALUES
00540         LDB     REGB    AGAIN
00550         
00560         JSR     DU0808  GO DO THE DIVIDE
00570         
00580         JSR     PUTBYA  QUOTIENT
00590         LDA     #$20    SPACE
00600         JSR     PRTCHA
00610         TFR     B,A
00620         JSR     PUTBYA  REMAINDER
00630         JSR     CRLF
00640 
00650 * EXIT
00660         PULS    A,B
00670         RTS
00680 
00690         END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           !&
ш:Г*****&Є:Г*&*№:Г* TEST0027.BAS&A:Г* MDJ 2023/02/16&I:Г*&]:Г* MU1608 TEST&e$:Г*&q.:Г*****&x8:Г&ЛL:ГSETUP MEMORY&ЭVХ 200, &H4000&е`└ 4&мj:Г&╝░:ГLOAD THE &╒║:ГML FOUNDATION CORE&щ─╙M "MLCORE.BIN"&Ё╬:Г':ГLOAD THE ':ГML TEST ROUTINE',(╙M "TEST0027.BIN"'32:Г'G╨:ГREFERENCE THE'`┌:ГTRANSFER VARIABLES'y RA │ &H400A :ГREGPCH'Т*RB │ &H400B :ГREGPCL'Щ4:Г'й╕:ГSETUP THE'╗┬:ГRUN ADDRESS'╩╠C │ &H7000'▌╓C1 │  Б(Cо256)'їрC2 │  Б(Cм(C1н256))(ъТ RA, C1(ЇТ RB, C2(■:Г(*а:ГLOAD THE DATA(8hXH │ &HFF(IrТ &H4002, XH(W|XL │ &HFF(hЖТ &H4003, XL(uРB │ &HFF(ЕЪТ &H4001, B(Шp:ГJUMP TO CORE(оz:ГSTARTUP ROUTINE(╗Дв &H4403(┬О:Г(╪#(:ГMEMORY AND DISK(ы#2:ГSTATUS CHECK(ё#<З)#FЗ " MEM = "; У)#PЗ "FREE = "; г(0))  КHE DATA(8hXH │ &HFF(IrТ &H4002, XH(W|XL │ &HFF(hЖТ &H4003, XL(uРB │ &HFF(ЕЪТ &H4001, B(Шp:ГJUMP TO CORE(оz:ГSTARTUP ROUTINE(╗Дв &H4403(┬О:Г(╪#(:ГMEMORY AND DISK(ы#2:ГSTATUS CHECK(ё#<З)#FЗ " MEM =                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                p46╛@Ў@
╜Bg╜Ax ╜Ax╜@╫569                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ┤&
ш:Г*****&Є:Г*&*№:Г* TEST0026.BAS&A:Г* MDJ 2023/02/16&I:Г*&]:Г* DISKRW TEST&e$:Г*&q.:Г*****&x8:Г&ЛL:ГSETUP MEMORY&ЭVХ 200, &H4000&е`└ 4&мj:Г&╝░:ГLOAD THE &╒║:ГML FOUNDATION CORE&щ─╙M "MLCORE.BIN"&Ё╬:Г':ГLOAD THE ':ГML TEST ROUTINE',(╙M "TEST0026.BIN"'32:Г'G╨:ГREFERENCE THE'`┌:ГTRANSFER VARIABLES'y RA │ &H400A :ГREGPCH'Т*RB │ &H400B :ГREGPCL'Щ4:Г'к╕:Г SETUP THE'╜┬:Г RUN ADDRESS'╠╠C │ &H7000'▀╓C1 │  Б(Cо256)'ўрC2 │  Б(Cм(C1н256))(ъТ RA, C1(ЇТ RB, C2(■:Г(+p:ГJUMP TO CORE(Az:ГSTARTUP ROUTINE(NДв &H4403(UО:Г(k#(:ГMEMORY AND DISK(~#2:ГSTATUS CHECK(Д#<З(Ч#FЗ " MEM = "; У(н#PЗ "FREE = "; г(0)(│ КADDRESS'╠╠C │ &H7000'▀╓C1 │  Б(Cо256)'ўрC2 │  Б(Cм(C1н256))(ъТ R                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                00100 *****
00110 *
00120 * TEST0027.ASM
00130 * MDJ 2023/02/17
00140 *
00150 * MU1608 TEST
00160 *
00170 *****
00180  
00190 * BASIC/ML TRANSFER
00200 * VARIABLES
00210 REGB    EQU     $4001
00220 REGX    EQU     $4002
00230 
00240 * ML FOUNDATION
00250 * CORE ADDRESSES
00260 CRLF    EQU     $40D7
00270 PUTWRA  EQU     $4178
00280 MU1608  EQU     $4267
00290 
00300         ORG     $7000
00310 
00320 * MU1608 TEST
00330 
00340         PSHS    A,B,X,Y
00350         
00360         LDX     REGX    GET THE TEST VALUES
00370         LDB     REGB    FROM THE XFER VARIABLES
00380         
00390         JSR     MU1608  GO DO THE MULTIPLY
00400         
00410         TFR     X,D     PRINT THE 32-BIT RESULT
00420         JSR     PUTWRA
00430         TFR     Y,D
00440         JSR     PUTWRA
00450         JSR     CRLF
00460 
00470 * EXIT
00480         PULS    A,B,X,Y
00490         RTS
00500 
00510         END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ┤&
ш:Г*****&Є:Г*&*№:Г* TEST0025.BAS&A:Г* MDJ 2023/02/15&I:Г*&]:Г* PRTSCS TEST&e$:Г*&q.:Г*****&x8:Г&ЛL:ГSETUP MEMORY&ЭVХ 200, &H4000&е`└ 4&мj:Г&╝░:ГLOAD THE &╒║:ГML FOUNDATION CORE&щ─╙M "MLCORE.BIN"&Ё╬:Г':ГLOAD THE ':ГML TEST ROUTINE',(╙M "TEST0025.BIN"'32:Г'G╨:ГREFERENCE THE'`┌:ГTRANSFER VARIABLES'y RA │ &H400A :ГREGPCH'Т*RB │ &H400B :ГREGPCL'Щ4:Г'к╕:Г SETUP THE'╜┬:Г RUN ADDRESS'╠╠C │ &H7000'▀╓C1 │  Б(Cо256)'ўрC2 │  Б(Cм(C1н256))(ъТ RA, C1(ЇТ RB, C2(■:Г(+p:ГJUMP TO CORE(Az:ГSTARTUP ROUTINE(NДв &H4403(UО:Г(k#(:ГMEMORY AND DISK(~#2:ГSTATUS CHECK(Д#<З(Ч#FЗ " MEM = "; У(н#PЗ "FREE = "; г(0)(│ КADDRESS'╠╠C │ &H7000'▀╓C1 │  Б(Cо256)'ўрC2 │  Б(Cм(C1н256))(ъТ R                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Аp4s~r╢IN JOHN 17:2-3, JESUS PRAYED    FOR US WHEN HE SAID THAT HIS    FATHER HAD GIVEN "HIM AUTHORITY OVER ALL FLESH, TO GIVE ETEАpАRNAL LIFE TO ALL WHOM YOU HAVE GIVEN HIM... THAT THEY KNOW YOU...    AND JESUS CHRIST WHOM YOU HAVE  SENT." (ESV).              Аq     PUT SCRATCH DISK IN DRIVE 0
PRESS ANY KEY WHEN READY
THE BUFFER IS CURRENTLY EMPTY.
PRESS ANY KEY TO PREPARE IT.
THE BUFFERАqА NOW CONTAINS:
PRESS KEY TO WRITE IT TO DISK.
PRESS KEY TO READ IT FROM DISK.
REPLACE SYSTEM DISK IN DRIVE 0
REPORT:
DISK WRITE АrWAS SUCCESSFUL.
DISK READ WAS SUCCESSFUL.
ENTIRE TEST WAS SUCCESSFUL.
*** TEST COMPLETED ***
PRESS ANY KEY TO EXIT
ERROR WRITINGАrА THE DISK
ERROR READING THE DISK
*** TEST ABORTED ***
╜@ОЯИОq╜BОq!╜B╜AB'√╜@ОЯИОq:╜BОqY╜B╜AB'√Оp╬О
жАз└1?&°╜@ОАsЯИОqv╜B╜@╫ОО
╜B+╜@╫ОqП╜B╜AB'√╜@ОЯИЖЧъЖЧыЖЧьЖ
ЧэОЯю╜BSЖ ОО
зА1?&·ЦЁ'~t╜@╫Оqэ╜BОqї╜@╫Оq:╜BОqv╜B╜@╫ОО
╜BАsА+╜@╫Оqо╜B╜AB'√╜@ОЯИЖЧъЖЧыЖЧьЖ
ЧэОЯю╜BSЦЁ&h╜@╫Оqэ╜BОr╜B╜@╫Оqv╜B╜@╫ОО
╜B+╜@╫Оr*╜BОrF╜B╜@╫Оr]╜B╜AB'√╜@ОЯИОq╬3t╜BОq!╜B╜AB'√╜@╫ Оrs╜B ОrК╜B╜@╫╜@╫Оrб╜B╜@╫5s9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ┤&
ш:Г*****&Є:Г*&*№:Г* TEST0024.BAS&A:Г* MDJ 2023/02/15&I:Г*&]:Г* PRTSCL TEST&e$:Г*&q.:Г*****&x8:Г&ЛL:ГSETUP MEMORY&ЭVХ 200, &H4000&е`└ 4&мj:Г&╝░:ГLOAD THE &╒║:ГML FOUNDATION CORE&щ─╙M "MLCORE.BIN"&Ё╬:Г':ГLOAD THE ':ГML TEST ROUTINE',(╙M "TEST0024.BIN"'32:Г'G╨:ГREFERENCE THE'`┌:ГTRANSFER VARIABLES'y RA │ &H400A :ГREGPCH'Т*RB │ &H400B :ГREGPCL'Щ4:Г'к╕:Г SETUP THE'╜┬:Г RUN ADDRESS'╠╠C │ &H7000'▀╓C1 │  Б(Cо256)'ўрC2 │  Б(Cм(C1н256))(ъТ RA, C1(ЇТ RB, C2(■:Г(+p:ГJUMP TO CORE(Az:ГSTARTUP ROUTINE(NДв &H4403(UО:Г(k#(:ГMEMORY AND DISK(~#2:ГSTATUS CHECK(Д#<З(Ч#FЗ " MEM = "; У(н#PЗ "FREE = "; г(0)(│ КADDRESS'╠╠C │ &H7000'▀╓C1 │  Б(Cо256)'ўрC2 │  Б(Cм(C1н256))(ъТ R                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                00100 *****
00110 *
00120 * TEST0025.ASM
00130 * MDJ 2023/02/15
00140 *
00150 * PRTSCS TEST
00160 *
00170 *****
00180  
00190 * LOW RAM CURSOR ADDRESS
00200 CURPOS  EQU     $0088
00210 
00220 * SCREEN ADDRESSES
00230 VIDRAM  EQU     $0400
00240 VIDEND  EQU     $0600
00250 
00260 * ML FOUNDATION
00270 * CORE ADDRESSES
00280 VIDCLS  EQU     $400E
00290 CRLF    EQU     $40D7
00300 PRTSCS  EQU     $4246
00310 
00320         ORG     $7000
00330 
00340 * PRTSCS TEST
00350 
00360         PSHS    X
00370         JMP     LBL001
00380 COUNT0  FCB     $44
00390 STR000  FCC     /THIS IS A SHORT COUNTED STRING /
00400         FCC     /WITH A LENGTH OF 68 = $44 /
00410         FCC     /CHARACTERS./
00420 COUNT1  FCB     $CE
00430 STR001  FCC     /ACTS 4:12 CONFIRMS THAT JESUS IS/
00440         FCC     /THE ONLY WAY TO GOD WHEN IT SAYS/
00450         FCC     /THAT "NEITHER IS THERE SALVATION/
00460         FCC     /IN ANY OTHER: FOR THERE IS NONE /
00470         FCC     /OTHER NAME UNDER HEAVEN GIVEN   /
00480         FCC     /AMONG MEN, WHEREBY WE MUST BE   /
00490         FCC     /SAVED." (KJV)./
00500         
00510 LBL001  JSR     VIDCLS
00520         LDX     #VIDRAM TOP OF SCREEN
00530         STX     CURPOS  CURSOR
00540         LDX     #COUNT0 ADDRESS OF COUNTED STRING #0
00550         JSR     PRTSCS  GO PRINT STRING
00560         JSR     CRLF
00570         JSR     CRLF
00580         LDX     #COUNT1 ADDRESS OF COUNTED STRING #1
00590         JSR     PRTSCS  GO PRINT STRING
00600         JSR     CRLF
00610         
00620 * EXIT        
00630         PULS    X
00640         RTS
00650 
00660         END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            @     ` 4Ж`ОзАМ&∙59зД9жД9ЧvDDDDЧwHHHHЧєЦvРєЧєБ	"Лp Л7ЧєЦwБ	"Лp Л7╜@0
Цє╜@0
942ОО жазАМ%ЎЖ`зАМ%∙5294ЮИМ%╜@^ОрзАМ%╜@^ОрЯИ594ЧvDDDDЧwHHHHЧєЦvРєЧєБ	"Лp Л7ЧєЦwБ	"Лp Л7╜@}Цє╜@}594ЮИМ%М$Мр$─р├ 
 ╜@^Ор ╜@ОЯИ59Б %Б@%Б`%БА% 
А@ Ж  Л`9Б %Б@%Б`%БА% 
А` Л@ Ж`94h╖ ▐нЯа╖ ▀5h94ЮИМ"О
0ЯИЖ`╜@5944╜@%5╜@%5944╜@Ю5╜@Ю59ЧМЯН╖ ▐╜йV╖ ▀94Ж─О╜AЗ59O╖ ▐ЧqnЯ ■Б $$Б'Б'Б
'Б' ╜AХ ╜AQ ╜@╫ 	~Aв╜A%╜@9Б $$Б'Б'Б
'Б' ╜AХ ╜AQ ╜@╫ 	~Aв╜A%╜@}94жА'╜A█ ў594жАБ
'╜A█ ї╜@╫594жА╜A█1?' ї594 оБ╜B+5 94&OцА╜B+5&94╖ ▐╜╫_╖ ▀O╖ @59=94&2xпфпbжaцc=эdжфцc=эfжeзcжdлgзbжfЙзaЖзфофоb2l942sпфпbжaцc=эdжaцb=эfжфцc=эhжфцb=эjжeзcolжdлg$llлi$llзbжlolлf$llлh$llлk$llзaжlлjзфофоb2o94┴'╞4_HYсb%рbLjф&єчb2a5 5Ж ╞ 947М'!╞4O_heidYIгf%гflejф&ээf2a57 	57О  О  94Ж╜C%59╢	В'╛	Гпj	В;} #+
;~Aв╢ ╢	Е'J╖	Е&╢	ЖД░╖	Ж╖ @╛
0
┐
OЛ▄у'
У╒▌у"уфЮН'0ЯН;4╠Cd¤

P╠Cr¤
╠C{¤

п59 ¤C╤94№
¤C╤59№C╤4XIуфэфXI4XIXIуaэa5╞)гс¤C╤94P╛@
╜C╢╖ ▀╬■ нД5P9 D 5Ж ╞ 947М'!╞4O_heidYIгf%гflejф&ээf2a57 	57О  О  94Ж╜C%59╢	В'╛	Гпj	В;} #+
;~Aв╢ ╢	Е'J╖	Е&╢	ЖД░╖	Ж╖ @╛
0
┐
OЛ▄у'
У╒▌у"уфЮН'0ЯН;4╠Cd¤

P╠Cr¤
╠C{¤

п59 ¤C╤94№
¤C╤59№C╤4XIуфэфXI4XIXIуaэa5                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╖&
ш:Г*****&Є:Г*&*№:Г* TEST0023.BAS&A:Г* MDJ 2023/02/15&I:Г*&]:Г* PRTSLS TEST&e$:Г*&q.:Г*****&x8:Г&ЛL:ГSETUP MEMORY&ЭVХ 200, &H4000&е`└ 4&мj:Г&╝░:ГLOAD THE &╒║:ГML FOUNDATION CORE&щ─╙M "MLCORE.BIN"&Ё╬:Г':ГLOAD THE ':ГML TEST ROUTINE',(╙M "TEST0023.BIN"'32:Г'G╨:ГREFERENCE THE'`┌:ГTRANSFER VARIABLES'y RA │ &H400A :ГREGPCH'Т*RB │ &H400B :ГREGPCL'Щ4:Г'к╕:Г SETUP THE'╜┬:Г RUN ADDRESS'╠╠C │ &H7000'▀╓C1 │  Б(Cо256)'ўрC2 │  Б(Cм(C1н256))(ъТ RA, C1(ЇТ RB, C2(■:Г(+p:ГJUMP TO CORE(Az:ГSTARTUP ROUTINE(NДв &H4403(UО:Г(k#(:ГMEMORY AND DISK(~#2:ГSTATUS CHECK(Ъ#FЗ " MEM = "; У;"     ";(░#PЗ "FREE = "; г(0)(╢ КRESS'╠╠C │ &H7000'▀╓C1 │  Б(Cо256)'ўрC2 │  Б(Cм(C1н256))(ъТ R                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ╔  ─ ┴────┴─╞─┴├─├┼├╟┼├╚┬╞┬┬()*+├─┴┴╞╟┴╟┴╟┴┴             MLCORE  BIN  TEST0023ASM "М
МTEST0023BIN#P

PTEST0023BAS!║TEST0024ASM $Ш
ШTEST0024BIN%G

GTEST0024BAS╖TEST0025ASM T
TTEST0025BIN&M

MTEST0025BAS╖TEST0026ASM 'H
&HTEST0026BINe
eTEST0026BAS╖TEST0027ASM П
ПTEST0027BIN%
%TEST0027BAS$TEST0028ASM ,П
ПTEST0028BIN-&
&TEST0028BASJTEST0029ASM ж
жTEST0029BIN.M
MTEST0029BASTEST0030ASM /т
тTEST0030BINS
STEST0030BASJTEST0031ASM 0
TEST0031BIN1T
TTEST0031BAS)TEST0032BAS|TEST0033ASM 2W
WTEST0033BIN3N
NTEST0033BAS?TEST0034BAS=TEST0034ASM 4<
<TEST0034BIN5K
KTKLOC  ASM L

LSTKLOC  BIN6
TKLOC  BASЄESETL  BAS
	STVEC  BAS7LRSPC  BAS
BPSTAT  BAS■PSTAT  ASM 8┼
┼PSTAT  BIN9
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                00100 *****
00110 *
00120 * TEST0023.ASM
00130 * MDJ 2023/02/15
00140 *
00150 * PRTSLS TEST
00160 *
00170 *****
00180  
00190 * LOW RAM CURSOR ADDRESS
00200 CURPOS  EQU     $0088
00210 
00220 * SCREEN ADDRESSES
00230 VIDRAM  EQU     $0400
00240 VIDEND  EQU     $0600
00250 
00260 * ML FOUNDATION
00270 * CORE ADDRESSES
00280 VIDCLS  EQU     $400E
00290 CRLF    EQU     $40D7
00300 PRTSLS  EQU     $422B
00310 
00320         ORG     $7000
00330 
00340 * PRTSLS TEST
00350 
00360         PSHS    X,Y
00370         JMP     LBL001
00380 LSPEC0  FDB     $0049
00390 STR000  FCC     /THIS IS A LENGTH SPECIFIED STRING /
00400         FCC     /WITH A LENGTH OF 73 = $0049 /
00410         FCC     /CHARACTERS./
00420 LSPEC1  FDB     $0047
00430 STR001  FCC     /THE FIRST PHRASE OF ROMANS 6:23 /
00440         FCC     /SAYS, "THE WAGES OF SIN IS      /
00450         FCC     /DEATH"./
00460 LSPEC2  FDB     $0066
00470 STR002  FCC     /BUT ROMANS 6:23 CONTINUES WITH  /
00480         FCC     /"BUT THE GIFT OF GOD IS ETERNAL /
00490         FCC     /LIFE THROUGH JESUS CHRIST OUR   /
00500         FCC     /LORD."/
00510         
00520 LBL001  JSR     VIDCLS
00530         LDX     #VIDRAM TOP OF SCREEN
00540         STX     CURPOS  CURSOR
00550         LDX     #STR000 ADDRESS OF STRING 0
00560         LDY     LSPEC0  GET SPECIFIED LENGTH
00570         JSR     PRTSLS  GO PRINT STRING
00580         JSR     CRLF
00590         JSR     CRLF
00600         LDX     #STR001 ADDRESS OF STRING 1
00610         LDY     LSPEC1  GET SPECIFIED LENGTH
00620         JSR     PRTSLS  GO PRINT STRING
00630         JSR     CRLF
00640         JSR     CRLF
00650         LDX     #STR002 ADDRESS OF STRING 2
00660         LDY     LSPEC2  GET SPECIFIED LENGTH
00670         JSR     PRTSLS  GO PRINT STRING
00680         JSR     CRLF
00690         JSR     CRLF
00700 
00710 * EXIT        
00720         PULS    X,Y
00730         RTS
00740 
00750         END

                                                                                                                                                                                                                                                                                                                                                                                   Аp40~q
ITHIS IS A LENGTH SPECIFIED STRING WITH A LENGTH OF 73 = $0049 CHARACTERS.GTHE FIRST PHRASE OF ROMANS 6:23 SAYS, "THE WAGАpАES OF SIN IS      DEATH".fBUT ROMANS 6:23 CONTINUES WITH  "BUT THE GIFT OF GOD IS ETERNAL LIFE THROUGH JESUS CHRIST OUR   LORD.<q"╜@ОЯИОp╛p╜B+╜@╫╜@╫ОpR╛pP╜B+╜@╫╜@╫ОpЫ╛pЩ╜B+╜@╫╜@╫509                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 00100 *****
00110 *
00120 * TEST0024.ASM
00130 * MDJ 2023/02/15
00140 *
00150 * PRTSCL TEST
00160 *
00170 *****
00180  
00190 * LOW RAM CURSOR ADDRESS
00200 CURPOS  EQU     $0088
00210 
00220 * SCREEN ADDRESSES
00230 VIDRAM  EQU     $0400
00240 VIDEND  EQU     $0600
00250 
00260 * ML FOUNDATION
00270 * CORE ADDRESSES
00280 VIDCLS  EQU     $400E
00290 CRLF    EQU     $40D7
00300 PRTSCL  EQU     $423B
00310 
00320         ORG     $7000
00330 
00340 * PRTSCL TEST
00350 
00360         PSHS    X
00370         JMP     LBL001
00380 COUNT0  FDB     $0118
00390 STR000  FCC     "THIS IS A LONG COUNTED STRING "
00400         FCC     "WITH A LENGTH OF 280 = $0118 "
00410         FCC     "CHARACTERS. QWERTYUIOPASDFGHJKLZ"
00420         FCC     "XCVBNMQWERTYUIOPASDFGHJKLZXCVBNM"
00430         FCC     "QWERTYUIOPASDFGHJKLZXCVBNM"
00440         FCC     "QWERTYUIOPASDFGHJKLZXCVBNM"
00450         FCC     "QWERTYUIOPASDFGHJKLZXCVBNM"
00460         FCC     "QWERTYUIOPASDFGHJKLZXCVBNM"
00470         FCC     "QWERTYUIOPASDFGHJKLZXCVBNM"
00480         FCC     "QWERTYUIOPASDFGHJKLZXCVBNM."
00490         
00500 LBL001  JSR     VIDCLS
00510         LDX     #VIDRAM TOP OF SCREEN
00520         STX     CURPOS  CURSOR
00530         LDX     #COUNT0 ADDRESS OF COUNTED STRING
00540         JSR     PRTSCL  GO PRINT STRING
00550         JSR     CRLF
00560 
00570 * EXIT        
00580         PULS    X
00590         RTS
00600 
00610         END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Аp4~q
THIS IS A LONG COUNTED STRING WITH A LENGTH OF 280 = $0118 CHARACTERS. QWERTYUIOPASDFGHJKLZXCVBNMQWERTYUIOPASDFGHJKLZXCVBАpАNMQWERTYUIOPASDFGHJKLZXCVBNMQWERTYUIOPASDFGHJKLZXCVBNMQWERTYUIOPASDFGHJKLZXCVBNMQWERTYUIOPASDFGHJKLZXCVBNMQWERTYUIOPASDFGHJKLZXC3qVBNMQWERTYUIOPASDFGHJKLZXCVBNM.╜@ОЯИОp╜B;╜@╫59                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          Аp4~qDTHIS IS A SHORT COUNTED STRING WITH A LENGTH OF 68 = $44 CHARACTERS.╬ACTS 4:12 CONFIRMS THAT JESUS ISTHE ONLY WAY TO GOD WАpАHEN IT SAYSTHAT "NEITHER IS THERE SALVATIONIN ANY OTHER: FOR THERE IS NONE OTHER NAME UNDER HEAVEN GIVEN   AMONG MEN, WHEREBY WE9q MUST BE   SAVED." (KJV).╜@ОЯИОp╜BF╜@╫╜@╫ОpJ╜BF╜@╫59                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    00100 *****
00110 *
00120 * TEST0026.ASM
00130 * MDJ 2023/02/16
00140 *
00150 * DISKRW TEST
00160 *
00170 *****
00180  
00190 * LOW RAM CURSOR ADDRESS
00200 CURPOS  EQU     $0088
00210 
00220 * LOW RAM DSKCON ADDRESSES
00230 DCOPC   EQU     $00EA
00240 DCDRV   EQU     $00EB
00250 DCTRK   EQU     $00EC
00260 DCSEC   EQU     $00ED
00270 DCBPT   EQU     $00EE
00280 DCSTA   EQU     $00F0
00290 DBUF0   EQU     $0600
00300 DBUF1   EQU     $0700
00310 
00320 * SCREEN ADDRESSES
00330 VIDRAM  EQU     $0400
00340 VIDEND  EQU     $0600
00350 
00360 * ML FOUNDATION
00370 * CORE ADDRESSES
00380 VIDCLS  EQU     $400E
00390 CRLF    EQU     $40D7
00400 POLCAT  EQU     $4142
00410 PRTS0D  EQU     $4218
00420 PRTSLS  EQU     $422B
00430 DISKRW  EQU     $4253
00440 
00450         ORG     $7000
00460 
00470 * DISKRW TEST
00480 
00490         PSHS    A,X,Y,U,CC
00500         JMP     LBL001
00510 BUFMSG  FCC     /IN JOHN 17:2-3, JESUS PRAYED    /
00520         FCC     /FOR US WHEN HE SAID THAT HIS    / 
00530         FCC     /FATHER HAD GIVEN "HIM AUTHORITY /
00540         FCC     /OVER ALL FLESH, TO GIVE ETERNAL /
00550         FCC     /LIFE TO ALL WHOM YOU HAVE GIVEN /
00560         FCC     /HIM... THAT THEY KNOW YOU...    /
00570         FCC     /AND JESUS CHRIST WHOM YOU HAVE  /
00580         FCC     /SENT." (ESV).                   /
00590 MSG00   FCC     /PUT SCRATCH DISK IN DRIVE 0/
00600         FCB     $0D     CR
00610 MSG01   FCC     /PRESS ANY KEY WHEN READY/
00620         FCB     $0D     CR
00630 MSG02   FCC     /THE BUFFER IS CURRENTLY EMPTY./
00640         FCB     $0D     CR
00650 MSG03   FCC     /PRESS ANY KEY TO PREPARE IT./
00660         FCB     $0D     CR
00670 MSG04   FCC     /THE BUFFER NOW CONTAINS:/
00680         FCB     $0D     CR
00690 MSG05   FCC     /PRESS KEY TO WRITE IT TO DISK./
00700         FCB     $0D     CR
00710 MSG06   FCC     /PRESS KEY TO READ IT FROM DISK./
00720         FCB     $0D     CR
00730 MSG07   FCC     /REPLACE SYSTEM DISK IN DRIVE 0/
00740         FCB     $0D     CR
00750 RPTMSG  FCC     /REPORT:/
00760         FCB     $0D     CR
00770 RPTMS1  FCC     /DISK WRITE WAS SUCCESSFUL./
00780         FCB     $0D     CR
00790 RPTMS2  FCC     /DISK READ WAS SUCCESSFUL./
00800         FCB     $0D     CR
00810 RPTMS3  FCC     /ENTIRE TEST WAS SUCCESSFUL./
00820         FCB     $0D     CR
00830 RPTMS4  FCC     /*** TEST COMPLETED ***/
00840         FCB     $0D     CR
00850 RPTMS5  FCC     /PRESS ANY KEY TO EXIT/
00860         FCB     $0D     CR
00870 ERRMS1  FCC     /ERROR WRITING THE DISK/
00880         FCB     $0D     CR
00890 ERRMS2  FCC     /ERROR READING THE DISK/
00900         FCB     $0D     CR
00910 ERRMS3  FCC     /*** TEST ABORTED ***/
00920         FCB     $0D     CR
00930 
00940 *** FIRST SCREEN
00950 LBL001  JSR     VIDCLS
00960         LDX     #VIDRAM TOP OF SCREEN
00970         STX     CURPOS  CURSOR
00980 
00990 * DISPLAY MESSAGES
01000         LDX     #MSG00  SCRATCH DISK MESSAGE
01010         JSR     PRTS0D  PRINT THE MESSAGE
01020         LDX     #MSG01  KEYPRESS MESSAGE
01030         JSR     PRTS0D  PRINT THE MESSAGE
01040 
01050 * WAIT FOR A KEYPRESS
01060 LBL002  JSR     POLCAT  GET KEYPRESS
01070         BEQ     LBL002  GO IF Z-BIT OF CC SET
01080         
01090 *** SECOND SCREEN
01100         JSR     VIDCLS
01110         LDX     #VIDRAM TOP OF SCREEN
01120         STX     CURPOS  CURSOR
01130 
01140 * DISPLAY MESSAGES
01150         LDX     #MSG02  BUFFER EMPTY MESSAGE
01160         JSR     PRTS0D  PRINT THE MESSAGE
01170         LDX     #MSG03  KEYPRESS MESSAGE
01180         JSR     PRTS0D  PRINT THE MESSAGE
01190 
01200 * WAIT FOR A KEYPRESS
01210 LBL003  JSR     POLCAT  GET KEYPRESS
01220         BEQ     LBL003  GO IF Z-BIT OF CC SET
01230         
01240 * PREPARE THE BUFFER
01250         LDX     #BUFMSG POINT TO MESSAGE
01260         LDU     #DBUF0  BUFFER ADDRESS
01270         LDY     #256    COUNTER
01280 LBL004  LDA     ,X+     GET CHARACTER
01290         STA     ,U+     PUT CHARACTER
01300         LEAY    -1,Y    DECREMENT COUNTER
01310         BNE     LBL004  GO IF NOT DONE
01320         
01330 *** THIRD SCREEN
01340         JSR     VIDCLS
01350         LDX     #VIDRAM TOP OF SCREEN
01360         STX     CURPOS  CURSOR
01370 
01380 * DISPLAY MESSAGES
01390         LDX     #MSG04  BUFFER CONTAINS MSG
01400         JSR     PRTS0D  PRINT THE MESSAGE
01410         JSR     CRLF
01420         LDX     #DBUF0  BUFFER POINTER
01430         LDY     #256    LENGTH SPECIFICATION
01440         JSR     PRTSLS  PRINT THE BUFFER
01450         JSR     CRLF
01460         LDX     #MSG05  KEYPRESS MESSAGE
01470         JSR     PRTS0D  PRINT THE MESSAGE
01480 
01490 * WAIT FOR A KEYPRESS
01500 LBL005  JSR     POLCAT  GET KEYPRESS
01510         BEQ     LBL005  GO IF Z-BIT OF CC SET
01520 
01530 *** FOURTH SCREEN
01540         JSR     VIDCLS
01550         LDX     #VIDRAM TOP OF SCREEN
01560         STX     CURPOS  CURSOR
01570 
01580 * SETUP THE DISKRW PARAMETERS
01590         LDA     #3      WRITE
01600         STA     DCOPC
01610         LDA     #0      DRIVE
01620         STA     DCDRV
01630         LDA     #0      TRACK
01640         STA     DCTRK
01650         LDA     #1      SECTOR
01660         STA     DCSEC
01670         LDX     #DBUF0  BUFFER ADDRESS
01680         STX     DCBPT
01690         
01700 * GO DO THE DISK WRITE        
01710         JSR     DISKRW  DO THE WRITE
01720         
01730 * CLEAR THE BUFFER
01740         LDA     #$20    SPACE
01750         LDX     #DBUF0  BUFFER ADDRESS
01760         LDY     #256    COUNTER
01770 LBL006  STA     ,X+     PUT SPACE
01780         LEAY    -1,Y    DECREMENT COUNTER
01790         BNE     LBL006  GO IF NOT DONE
01800         
01810 * GET THE DISKRW STATUS
01820         LDA     DCSTA   STATUS CODE
01830 * INSTEAD OF:
01840 *       BNE     LBLER1  GO TO WRITE ERROR
01850 * THESE TWO LINES AVOID BYTE OVERFLOW:
01860         BEQ     LBLCNT  CONTINUE IF NO ERROR
01870         JMP     LBLER1  GO TO WRITE ERROR
01880         
01890 * REPORT THE RESULTS
01900 LBLCNT  JSR     CRLF
01910         LDX     #RPTMSG REPORT HEADER MESSAGE
01920         JSR     PRTS0D  PRINT THE MESSAGE
01930         LDX     #RPTMS1 REPORT WRITE SUCCESS
01940         JSR     CRLF
01950         
01960 * DISPLAY MESSAGES
01970         LDX     #MSG02  BUFFER EMPTY MESSAGE
01980         JSR     PRTS0D  PRINT THE MESSAGE
01990         LDX     #MSG04  BUFFER CONTAINS MSG
02000         JSR     PRTS0D  PRINT THE MESSAGE
02010         JSR     CRLF
02020         LDX     #DBUF0  BUFFER POINTER
02030         LDY     #256    LENGTH SPECIFICATION
02040         JSR     PRTSLS  PRINT THE BUFFER
02050         JSR     CRLF
02060         LDX     #MSG06  KEYPRESS MESSAGE
02070         JSR     PRTS0D  PRINT THE MESSAGE
02080 
02090 * WAIT FOR A KEYPRESS
02100 LBL007  JSR     POLCAT  GET KEYPRESS
02110         BEQ     LBL007  GO IF Z-BIT OF CC SET
02120         
02130 *** FIFTH SCREEN
02140         JSR     VIDCLS
02150         LDX     #VIDRAM TOP OF SCREEN
02160         STX     CURPOS  CURSOR
02170 
02180 * SETUP THE DISKRW PARAMETERS
02190         LDA     #2      READ
02200         STA     DCOPC
02210         LDA     #0      DRIVE
02220         STA     DCDRV
02230         LDA     #0      TRACK
02240         STA     DCTRK
02250         LDA     #1      SECTOR
02260         STA     DCSEC
02270         LDX     #DBUF0  BUFFER ADDRESS
02280         STX     DCBPT
02290         
02300 * GO DO THE DISK READ        
02310         JSR     DISKRW  DO THE READ
02320 
02330 * GET THE DISKRW STATUS
02340         LDA     DCSTA   STATUS CODE
02350         BNE     LBLER2  GO TO READ ERROR
02360         
02370 * REPORT THE RESULTS
02380         JSR     CRLF
02390         LDX     #RPTMSG REPORT HEADER MESSAGE
02400         JSR     PRTS0D  PRINT THE MESSAGE
02410         LDX     #RPTMS2 REPORT READ SUCCESS
02420         JSR     PRTS0D  PRINT THE MESSAGE
02430         JSR     CRLF
02440         LDX     #MSG04  BUFFER CONTAINS MSG
02450         JSR     PRTS0D  PRINT THE MESSAGE
02460         JSR     CRLF
02470         LDX     #DBUF0  BUFFER POINTER
02480         LDY     #256    LENGTH SPECIFICATION
02490         JSR     PRTSLS  PRINT THE BUFFER
02500         JSR     CRLF
02510         LDX     #RPTMS3 REPORT TEST SUCCESS
02520         JSR     PRTS0D  PRINT THE MESSAGE
02530         LDX     #RPTMS4 REPORT END OF TEST
02540         JSR     PRTS0D  PRINT THE MESSAGE
02550         JSR     CRLF
02560         LDX     #RPTMS5 KEYPRESS MESSAGE
02570         JSR     PRTS0D  PRINT THE MESSAGE
02580         
02590 * WAIT FOR A KEYPRESS
02600 LBL008  JSR     POLCAT  GET KEYPRESS
02610         BEQ     LBL008  GO IF Z-BIT OF CC SET
02620         
02630 *** SIXTH SCREEN
02640         JSR     VIDCLS
02650         LDX     #VIDRAM TOP OF SCREEN
02660         STX     CURPOS  CURSOR
02670 
02680 * DISPLAY MESSAGES
02690         LDX     #MSG07  SYSTEM DISK MESSAGE
02700         JSR     PRTS0D  PRINT THE MESSAGE
02710         LDX     #MSG01  KEYPRESS MESSAGE
02720         JSR     PRTS0D  PRINT THE MESSAGE
02730 
02740 * WAIT FOR A KEYPRESS
02750 LBL009  JSR     POLCAT  GET KEYPRESS
02760         BEQ     LBL009  GO IF Z-BIT OF CC SET
02770         JSR     CRLF
02780         BRA     LBLEXI  GO TO EXIT
02790         
02800 * ERROR REPORT
02810 LBLER1  LDX     #ERRMS1 WRITE ERROR MESSAGE
02820         JSR     PRTS0D  PRINT THE MESSAGE
02830         BRA     LBLER3
02840 LBLER2  LDX     #ERRMS2 READ ERROR MESSAGE
02850         JSR     PRTS0D  PRINT THE MESSAGE
02860 LBLER3  JSR     CRLF
02870         JSR     CRLF
02880         LDX     #ERRMS3 ABORT MESSAGE
02890         JSR     PRTS0D  PRINT THE MESSAGE
02900         JSR     CRLF
02910         
02920 * EXIT        
02930 LBLEXI  PULS    A,X,Y,U,CC
02940         RTS
02950 
02960         END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        00100 *****
00110 *
00120 * TEST0028.ASM
00130 * MDJ 2023/02/17
00140 *
00150 * MU1616 TEST
00160 *
00170 *****
00180  
00190 * BASIC/ML TRANSFER
00200 * VARIABLES
00210 REGX    EQU     $4002
00220 REGY    EQU     $4004
00230 
00240 * ML FOUNDATION
00250 * CORE ADDRESSES
00260 CRLF    EQU     $40D7
00270 PUTWRA  EQU     $4178
00280 MU1616  EQU     $429D
00290 
00300         ORG     $7000
00310 
00320 * MU1616 TEST
00330 
00340         PSHS    A,B,X,Y
00350         
00360         LDX     REGX    GET THE TEST VALUES
00370         LDY     REGY    FROM THE XFER VARIABLES
00380         
00390         JSR     MU1616  GO DO THE MULTIPLY
00400         
00410         TFR     X,D     PRINT THE 32-BIT RESULT
00420         JSR     PUTWRA
00430         TFR     Y,D
00440         JSR     PUTWRA
00450         JSR     CRLF
00460 
00470 * EXIT
00480         PULS    A,B,X,Y
00490         RTS
00500 
00510         END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 p46╛@╛@╜BЭ╜Ax ╜Ax╜@╫569                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           Cp4╢@Ў@
╜@ЮЖ/╜A█Ш╜@ЮЖ ╜A█Ж=╜A█Ж ╜A█╜@╫╢@Ў@
╜B■╜@ЮЖ ╜A█Ш╜@Ю╜@╫59                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    00100 *****
00110 *
00120 * TEST0030.ASM
00130 * MDJ 2023/02/17
00140 *
00150 * DU1616 TEST
00160 *
00170 *****
00180  
00190 * BASIC/ML TRANSFER
00200 * VARIABLES
00210 REGX    EQU     $4002
00220 REGY    EQU     $4004
00230 
00240 * ML FOUNDATION
00250 * CORE ADDRESSES
00260 CRLF    EQU     $40D7
00270 PUTWRA  EQU     $4178
00280 PRTCHA  EQU     $41DB
00290 DU1616  EQU     $4325
00300 
00310         ORG     $7000
00320 
00330 * DU1616 TEST
00340 
00350         PSHS    A,B,X,Y
00360         
00370         LDX     REGX    GET THE TEST VALUES
00380         LDY     REGY    FROM THE XFER VARIABLES
00390         
00400         TFR     X,D
00410         JSR     PUTWRA  X
00420         LDA     #$2F    /
00430         JSR     PRTCHA
00440         TFR     Y,D
00450         JSR     PUTWRA  Y
00460         LDA     #$20    SPACE
00470         JSR     PRTCHA
00480         LDA     #$3D    =
00490         JSR     PRTCHA
00500         LDA     #$20    SPACE
00510         JSR     PRTCHA
00520         JSR     CRLF
00530         
00540         LDX     REGX    GET THE TEST VALUES
00550         LDY     REGY    AGAIN
00560         
00570         JSR     DU1616  GO DO THE DIVIDE
00580         
00590         TFR     X,D
00600         JSR     PUTWRA  QUOTIENT
00610         LDA     #$20    SPACE
00620         JSR     PRTCHA
00630         TFR     Y,D
00640         JSR     PUTWRA  REMAINDER
00650         JSR     CRLF
00660 
00670 * EXIT
00680         PULS    A,B,X,Y
00690         RTS
00700 
00710         END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              00100 *****
00110 *
00120 * TEST0031.ASM
00130 * MDJ 2023/02/17
00140 *
00150 * DU1608 TEST
00160 *
00170 *****
00180  
00190 * BASIC/ML TRANSFER
00200 * VARIABLES
00210 REGB    EQU     $4001
00220 REGX    EQU     $4002
00230 
00240 * ML FOUNDATION
00250 * CORE ADDRESSES
00260 PUTBYA  EQU     $409E
00270 CRLF    EQU     $40D7
00280 PUTWRA  EQU     $4178
00290 PRTCHA  EQU     $41DB
00300 DU1608  EQU     $4358
00310 
00320         ORG     $7000
00330 
00340 * DU1608 TEST
00350 
00360         PSHS    A,B,X,Y
00370         
00380         LDX     REGX    GET THE TEST VALUES
00390         LDB     REGB    FROM THE XFER VARIABLES
00400         
00410         TFR     X,D
00420         JSR     PUTWRA  X
00430         LDA     #$2F    /
00440         JSR     PRTCHA
00450         LDB     REGB
00460         TFR     B,A
00470         JSR     PUTBYA  B
00480         LDA     #$20    SPACE
00490         JSR     PRTCHA
00500         LDA     #$3D    =
00510         JSR     PRTCHA
00520         LDA     #$20    SPACE
00530         JSR     PRTCHA
00540         JSR     CRLF
00550         
00560         LDX     REGX    GET THE TEST VALUES
00570         LDB     REGB    AGAIN
00580         
00590         JSR     DU1608  GO DO THE DIVIDE
00600         
00610         TFR     X,D
00620         JSR     PUTWRA  QUOTIENT
00630         LDA     #$20    SPACE
00640         JSR     PRTCHA
00650         TFR     Y,D
00660         JSR     PUTWRA  REMAINDER
00670         JSR     CRLF
00680 
00690 * EXIT
00700         PULS    A,B,X,Y
00710         RTS
00720 
00730         END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Jp46╛@Ў@
╜AxЖ/╜A█Ў@
Ш╜@ЮЖ ╜A█Ж=╜A█Ж ╜A█╜@╫╛@Ў@
╜CX╜AxЖ ╜A█ ╜Ax╜@╫569                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             00100 *****
00110 *
00120 * TEST0033.ASM
00130 * MDJ 2023/02/17
00140 *
00150 * RNDU16 TEST:
00160 * SELECTED SEED
00170 *
00180 *****
00190  
00200 * RAMROM TRIGGER ADDRESS
00210 RAMROM  EQU     $FFDE
00220  
00230 * ALLRAM TRIGGER ADDRESS
00240 ALLRAM  EQU     $FFDF
00250 
00260 * ML FOUNDATION
00270 * CORE ADDRESSES
00280 CRLF    EQU     $40D7
00290 PUTWRA  EQU     $4178
00300 SNIRQS  EQU     $43B6
00310 SEED    EQU     $43D1
00320 SSEED   EQU     $43D3
00330 RNDU16  EQU     $43E2
00340 
00350         ORG     $7000
00360 
00370 * RNDU16 TEST
00380 
00390         PSHS    A,B,CC
00400         
00410 * SETUP THE NEW INTERRUPT HANDLERS
00420 * AND ENTER ALLRAM MODE
00430         JSR     SNIRQS
00440         STA     ALLRAM
00450         
00460         LDD     #$1234  SET SEED
00470         JSR     SSEED
00480         JSR     CRLF
00490         
00500 * FIVE RANDOM NUMBERS
00510         JSR     RNDU16  GET A RANDOM NUMBER
00520         JSR     PUTWRA  DISPLAY IT
00530         JSR     CRLF
00540         JSR     RNDU16  GET A RANDOM NUMBER
00550         JSR     PUTWRA  DISPLAY IT
00560         JSR     CRLF
00570         JSR     RNDU16  GET A RANDOM NUMBER
00580         JSR     PUTWRA  DISPLAY IT
00590         JSR     CRLF
00600         JSR     RNDU16  GET A RANDOM NUMBER
00610         JSR     PUTWRA  DISPLAY IT
00620         JSR     CRLF
00630         JSR     RNDU16  GET A RANDOM NUMBER
00640         JSR     PUTWRA  DISPLAY IT
00650         JSR     CRLF
00660    
00670 * RETURN TO RAMROM MODE AND EXIT
00680 LBL002  STA     RAMROM
00690         PULS    A,B,CC
00700         RTS
00710 
00720         END
 EXIT
00730 LBL002  STA     RAMROM
00740         PULS    A,B,CC
00750         RTS
00760 
00770         END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              Dp4╜C╢╖ ▀╠4╜C╙╜@╫╜Cт╜Ax╜@╫╜Cт╜Ax╜@╫╜Cт╜Ax╜@╫╜Cт╜Ax╜@╫╜Cт╜Ax╜@╫╖ ▐59                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   00100 *****
00110 *
00120 * TEST0034.ASM
00130 * MDJ 2023/02/17
00140 *
00150 * RNDU16 TEST:
00160 * RANDOM SEED
00170 *
00180 *****
00190  
00200 * RAMROM TRIGGER ADDRESS
00210 RAMROM  EQU     $FFDE
00220  
00230 * ALLRAM TRIGGER ADDRESS
00240 ALLRAM  EQU     $FFDF
00250 
00260 * ML FOUNDATION
00270 * CORE ADDRESSES
00280 CRLF    EQU     $40D7
00290 PUTWRA  EQU     $4178
00300 SNIRQS  EQU     $43B6
00310 SEED    EQU     $43D1
00320 RSEED   EQU     $43D7
00330 RNDU16  EQU     $43E2
00340 
00350         ORG     $7000
00360 
00370 * RNDU16 TEST
00380 
00390         PSHS    A,B,CC
00400         
00410 * SETUP THE NEW INTERRUPT HANDLERS
00420 * AND ENTER ALLRAM MODE
00430         JSR     SNIRQS
00440         STA     ALLRAM
00450         
00460         JSR     RSEED   RANDOM SEED
00470         JSR     CRLF
00480         
00490 * FIVE RANDOM NUMBERS
00500         JSR     RNDU16  GET A RANDOM NUMBER
00510         JSR     PUTWRA  DISPLAY IT
00520         JSR     CRLF
00530         JSR     RNDU16  GET A RANDOM NUMBER
00540         JSR     PUTWRA  DISPLAY IT
00550         JSR     CRLF
00560         JSR     RNDU16  GET A RANDOM NUMBER
00570         JSR     PUTWRA  DISPLAY IT
00580         JSR     CRLF
00590         JSR     RNDU16  GET A RANDOM NUMBER
00600         JSR     PUTWRA  DISPLAY IT
00610         JSR     CRLF
00620         JSR     RNDU16  GET A RANDOM NUMBER
00630         JSR     PUTWRA  DISPLAY IT
00640         JSR     CRLF
00650    
00660 * RETURN TO RAMROM MODE AND EXIT
00670 LBL002  STA     RAMROM
00680         PULS    A,B,CC
00690         RTS
00700 
00710         END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    Ap4╜C╢╖ ▀╜C╫╜@╫╜Cт╜Ax╜@╫╜Cт╜Ax╜@╫╜Cт╜Ax╜@╫╜Cт╜Ax╜@╫╜Cт╜Ax╜@╫╖ ▐59                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      p @9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
&
ш:Г*****&Є:Г*&(№:Г* RSTVEC.BAS&?:Г* MDJ 2023/02/18&G:Г*&f:Г* RSTVEC AT &H0072 VALUE&n$:Г*&z.:Г*****&Б8:Г&Х╨RH │  Ж(&H0072)&й┌RL │  Ж(&H0073)&┴фR │ (RH н 256) л RL&╚ю:Г&╬╕З&ё┬З "RSTVEC VALUE AT $0072 = $";&¤╠З  Ь(R)'╓З'
р:Г' КГ*&(№:Г* RSTVEC.BAS&?:Г* MDJ 2023/02/18&G:Г*&f:Г* RSTVEC AT &H0072 VALUE&n$:Г*&z.:Г*****&Б8:Г&Х╨RH │  Ж(&H0072)&й┌RL │  Ж(&H0073)&┴фR │ (RH н 256) л RL&╚ю:Г&╬╕З&ё┬З "RSTVEC VALUE AT $0072 = $";&¤╠З  Ь(R)'                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                00100 REGS    EQU     $4006
00110         ORG     $7100
00120         PULS    A,B
00130         PSHS    A,B
00140         PSHS    A,B
00150         STS     REGS
00160         RTS
00170         END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           q544 @9