10 REM > DisOSW 1.00 - 06-Nov-1989 - OSWORD-calling disassembly routines

   20 :

   30 DEFFNDis_Code(c%,a%,d%):!X%=&200C:X%?2=c%:X%!4=a%:X%!8=!d%:X%!12=d%!4

   40 A%=190:CALL&FFF1:IFX%?3=0:$(X%+4)="EQUB &"+FNh0(X%?8,2):X%?3=1

   50 =X%?3

   60 :

   70 DEFFNDis_Name(c%):!X%=&2008:X%?2=c%:X%!4=0:A%=190:CALL&FFF1

   80 IFX%!4:=$(X%+4) ELSE =""

   90 :

  100 DEFFNDis_CPU:CLS:PRINTSPC(7)"Microprocessor Menu"'

  110 REM A$=FNDis_Name(0)

  120 RESTORE:READ A%,A$:REPEAT:PRINT;A%;":";TAB(4+(POS DIV20)*20);A$;TAB(20 AND(POS<20));

  130   READ A%,A$:UNTILA%=0:REPEATREPEAT:INPUT'"Enter CPU number: "cpu%:UNTILcpu%

  140   A%=FNDis_Name(cpu%)="":IFA%:PRINT"No d"dd$"y routine for this CPU"

  150 UNTILNOTA%:CLS:=cpu%

  160 DATA 2,6502,8,8008,9,6809,11,PDP11,12,6512,18,80186,28,80286,30,OGGIN

  170 DATA 32,32016,38,80386,44,ARM,48,80486,58,80586,65,65x2 Series

  180 DATA 68,68x00 Series,80,Z80,85,8080/8085,86,80x86 Series

  190 DATA 89,INS8900,94,9440 series,99,9900,0,*