Z8 Disassembler Ver 1.0 4096 bytes read REM from 1020 to 1550. 1 "":"ARC40 RZ8 V4.1 ":"":"'1' for new program" 2 "'2' for old program":"'3' to copy monitor":"'4' to run in EPROM":"" 3 inputa:ifa<1goto2 4 ifa>4goto2 5 ifa=4stop 7 @36=a:go@%1770 8 stop 30030 ^28=%17f0 30031 "File no.";:n=usr(84):" " 30032 "Start recorder, hit key";:z=usr(84):" " 30033 go@97,36:go@97,n:list 30034 ^28=39:stop 30040 "File no. ";:n=usr(84):" " 30041 go@%1773,n:stop 30060 gosub30095 30061 "RAM start addr. ";:ina:"End addr. ";:inb:"EPROM addr. ";:ins 30062 e=s+b-a+1:ife>n*1024goto30088 30063 x=%f800:z=%fa00:@63=r:ifusr(%1776,s,e)=0goto30070 30064 "%";hex(^50),"%";hex(@x),"not %FF. Enter C to continue "; 30065 ifand(usr(84),%5f)<>%43goto30089 30066 "":ifusr(%1779)<>0goto30064 30070 ^54=a:@3=%20:@%fb00=%80:@z=p-128:@z=p:@63=p 30071 go@%178e,s,e 30080 ^54=a:@%fb00=%90:@63=r:@3=0:ifusr(%177c,s,e)=0goto30087 30082 "%";hex(^50),"%";hex(@x),"not %";hex(@^54) 30083 ifusr(%177f)<>0goto30082 30087 @z=0:"":"OK":stop 30088 "":"> EPROM size" 30089 @z=0:"":"Aborted":stop 30090 gosub30095 30091 ^8=%1020:goto30092 30092 "EPROM start addr. ";:ins:"End addr. ";:ine:"RAM addr. ";:ina 30093 @3=0:@63=r:^54=a:go@%1785,s,e+1:"":"OK":goto1 30095 "":"Select 2716 (0), 2732 (1), 2764 (2) or 27128 (3) : ";:ing 30096 ifg>3goto30095 30097 r=%40:ifg>1r=0 30098 p=%80:ifg=0p=%c0 30099 n=16:ifg<3n=8:ifg<2n=4:ifg<1n=2 30100 "":"";n;"k EPROM":"":ret 30200 "Address ";:ina 30201 n=@a:"%";hex(a),"%";hex(n),:ind:@a=d:a=a+1:goto30201 30210 "Address ";:ina:go@%178b,a:stop REM from 17a0 to 17e7. REM No line numbers! REM Maybe commands to execute immediately. ^8=%4000:^12=^10:new s=%1020 d=^8 ifa=1go@%1794 ifa=2s=d go@%1791,s,d