image of READY prompt

Wang2200.org

Listing of file='WM0D010A' on disk='vmedia/701-2046C.wvd.zip'

# Sector 696, program filename = 'WM0D010A'
0010 REM .     WM0D010A,  00-00 (6/28/75),   12002
0100 COM D$(1)6
   : DIM D9$(32)8
   : SELECT PRINT 005
   : GOSUB 430
0110 DATA LOAD DC OPEN T#6,"DATA1"
   : DATA LOAD DC #6,D9$()
0120 Q=VAL(STR(D9$(1),1))/4
   : CONVERT STR(D9$(1),8,1)TO O8
   : IF O8>1THEN 200
   : GOSUB 410
   : GOTO 240
0200 GOSUB '100
   : GOSUB 430
   : GOSUB 410
   : SELECT PRINT 005
0240 BIN(STR(D$(1),6,1))=Q
   : CONVERT STR(D9$(1),2,1)TO O3
   : IF O3=2THEN 300
   : STR(D$(1),4,2)=HEX(012C)
   : PRINT "      TOTAL LOOP = 300"
   : GOTO 320
0300 STR(D$(1),4,2)=HEX(FFFF)
   : PRINT "       TOTAL LOOP = 65536"
0320 ON QGOTO 330,340,350,360,370,380,390,400
0330 LOAD DC T#6,"4K"
0340 LOAD DC T#6,"8K"
0350 LOAD DC T#6,"12K"
0360 LOAD DC T#6,"16K"
0370 LOAD DC T#6,"20K"
0380 LOAD DC T#6,"24K"
0390 LOAD DC T#6,"28K"
0400 LOAD DC T#6,"32K"
0410 PRINT "MEMORY SIZE = ";Q*4;"K";
   : RETURN
0430 PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - MEMORY"
   : PRINT "--------------------------------------------"
   : RETURN
0460 DEFFN'100
   : ON O8GOTO 490,510,530
   : STOP "SYSTEM ERROR"
0490 SELECT PRINT 005
   : RETURN
0510 SELECT PRINT 215
   : RETURN
0530 SELECT PRINT 211
   : RETURN
0550 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"