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"