image of READY prompt

Wang2200.org

Listing of file='2228LOAD' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'

# Sector 4508, program filename = '2228LOAD'
0010 REM 2228LOAD LOAD 2228 WITH ASYNC RAM CODE  2227B R5 EQUIV
0020 DIM W$(4,64)16
   : INIT(00)W$
   : PRINT "RESET CONTROLLER"
   : $GIO#1(4580,W1$)
   : $GIOINITIALIZECCV#1(4402A000440C,W1$)W$
   : $GIO#1(0101020012124405A000440C,W1$)W$()<1,1>
   : IF STR(W1$,8,1)<>HEX(10)THEN 150
   : $GIO#1(4580,W1$)
   : W$="T27D010D"
   : PRINT HEX(03);"LOADING 2228 MICROCODE WITH FILE =";W$
0090 DATA LOAD DC OPEN TW$
   : PRINT "LOAD MICRO CODE INTO CPU"
   : DATA LOAD DC W$()
   : FOR W=1TO 100
   : NEXT W
   : W1$=HEX(1000)
   : PRINT "WRITE MICRO CODE TO CONTROLLER"
   : $GIOWRITE#1(6C0042104220A2004404,W1$)W$()<1,4000>
   : PRINT "MICROCODE LOADED"
0150 PRINT "LOAD PROGRAM ";Z$
   : Z9=1
   : LOAD DC TZ$