' ********************************M***** BASIC-MONITOR ********s********************************(***** 28.1.86 BY ********2***** A.FACHAT ********<******************************** 61000: DATAS EINLESEN 15000 :E$"."9 59010: BEFEHLSZEILE HOLENX 10000: BEFEHLE AUSWERTENf FP1:1 ERJ0::""(L$,E)"?";:1010 J4J101015 J1460000 1010 A$ $FP1,; . '******** 'ER0:FP0 '59100:ERER0: 'A4610000- 'A128FP1:AA127Q 'J0AB:B%(J)A:ER1:FP0:n 'FPJ51,4:1,;:10020w 'FP0 $'J111000,12000,13000,15500,14100,11100,13100,12200,15100,12150 .'J914000,14200,15000,15200,10100,15300,15400 t':"REԑ";: *********" ***** HEX-DUMP9 *59180:A2AD:ERS +ADA1A2LE::11023g +1050:A$""o +: +".;";:59230:" "; +I0LE1:H(ADI) +59240:" ";:I +"";:I0LE1:H(ADI) +(H127)32H34H46 *+(H);:I:""; 4+ [+**** GET HEX( \+59220:ERG f+IADADLE1:59160:ERx p+I,H:::"";:11023:ADAD8:E$".;":12410 .**** DISS-ASS .59180:A2AD:ADA1:ER .:12010 .1050:A$"" .ADA212001 . .".:";:59230:" "; .H(AD):AA%(H). .AAA7:L2(A8)8:AA0L1= /NR(A16)g /A$(NR)" ";C$(2AA);:NR0NR912100v /L112080 &/IADL1AD11:H(I):59240: 0/C$(2AA1);:ADADL: D/A1AD:H(AD1):L2:ADAD2H:H127ADAD256N/59230:ADA1:12080v/59220:ER&/E$".:":12410:/**** ASSEMBLERK/59220:ERe/59100:ERER0:J0:v/A$(E$,E,3)/NR056:A$A$(NR):ER1:/L1:A$"":B$"":NR0A0:12360/EE3:59100:ERER0:12330/12260/59100:ER/A$A$(A):A3612255,/59160:A1H:ERQ/L2:59100:ERER0:B$"":12330l0EE1:A41A4412310 0L3:59160:A1A1256H:ER059100:ERER0:12330 0B$B$(A):12310*0L1ANR16:1236040I07:A$C$(I2)B$C$(I21):ER1:>0ANR16(L2)8I7C0NR0NR912500:ERWH0I0255:AA%(I):ER1:lR0AD,I:L112400\0AD1,A1256(A1256):L212400f0AD2,A1256p0:"";:12010:E$".:"z059300:E$E$AD$" "::0A1AD2A1A12560L2:A1A1AD2:A1256ER1:0+2**** BINAERB259180:A2AD:ERY2ADA1A2::13023m21050:A$""w2AD:2".,";:59230:" ";2H(AD):I7012A$(464(H2I)):A$;:I:+3**** GET BINAER,359220:ER 63H0:I07:59100:ER @3A46HH2:131509J3A42HH21:13150DT3ER1:v^3:AD,H::"";:13023:ADAD1:E$".,":124106**** OCCUPY659210:ER659160:ER6IA1AD:I,H::7**** COMPARE759208:ER7A3ADA2:(7ADA2A1:(I)(IA3)59230:" ";/271050:A$""7<7:Jw7**** TRANSFER[x759208:ERh7A3ADA27ADA2ADA1142507IA2A1:IA3,(I)::7IA1A21:IA3,(I):::**** REGISTER::"BASIC-MON 28.1.86 BY A.FACHAT":" PC AC XR YR NV-BDIZC3:".>";:ADPC:59230:" ";I:HAC:59240:" ";_:HXR:59240:" ";u:HYR:59240:" ";:HS:59400:**** GET REGISTER:59220:ER;PCAD:59160:ER;ACH:59160:ER;XRH:59160:ER ;YRH:H0;I701:59140:ER';A1ER1:>$;HH2A::SH32:M_;**** GOTOn`;59100:ERER0:ADPC:15220j;EE1:59220:ERt;SA,AC:SX,XR:SY,YR:SS,S~;H(AD256):SP1,H:SP,AD256H:SG;AC(SA):XR(SX):YR(SY):S(SS):15000 ; DEZ > HEX0;AD((E$,E1)):AD65535ER1:A;"=";:59230M'<**** $b(<59220:"="AD;:r<**** FIND<59210:L1:ER<59160:ER"=GETR,A,O,T,R,G,X,#,$Q"16,77,68,66,70,67,59,44,58,62,65,79,84,82,71,88,35,36["G****"HC$(16),B$(16),A$(56),A%(255),A(8)"MSP512:SA515:SX516:SY517:SS514:SG518"NL$"""RS32:LE8:60000 #\I056:A$(I):"#fI0255:A%(I):7#pI015:C$(I):L#zI015:B$(I):o#AB:B%(AB):I0AB:B%(I)::