home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.7z / ftp.whtech.com / emulators / v9t9 / linux / sources / V9t9 / tools / Forth / test.inc < prev    next >
Encoding:
Text File  |  2006-10-19  |  652 b   |  66 lines
  1.  
  2. ;
  3. ;    testing code
  4. ;
  5.  
  6. _TEST_    dw     dskws, testpc
  7.  
  8. dly        dec    10
  9.         jgt  $ 2 -
  10.         rt
  11.  
  12. testpc    li    12,>0030
  13.         sbo    0        ; turn on audio gate
  14.         inct 12        ; point to cassette out
  15.  
  16.         limi 0
  17.  
  18.         li    1,>0000
  19.  
  20. testbyt li    2,8
  21.         mov +*1,5
  22.  
  23. testbit    ldcr 5,1
  24.         src 5,1
  25.     
  26.         li    10,10
  27.         bl    @dly
  28.         dec 2
  29.         jgt testbit
  30.  
  31.         mov 1,1
  32.         jne testbyt
  33.  
  34.         rtwp
  35.         
  36.  
  37. _read_    si    SP,6
  38.         mov    11,@6(SP)
  39.         mov    10,@4(SP)
  40.         mov    12,@2(SP)
  41.         mov 1,*SP
  42.  
  43.         li     12,>002c    ; point to CS1 motor
  44.         sbo    0
  45.  
  46.         li    12,>0036    ; point to cassette in
  47.         limi 0
  48.  
  49. readbit    stcr 1,1
  50.         inv 1
  51.         ai    1,>3000
  52.         bl    @printchar
  53.  
  54. ;        li    10,10
  55. ;        bl    @dly
  56.         jmp readbit
  57.  
  58.         mov    +*SP,1
  59.         mov    +*SP,12
  60.         mov +*SP,10
  61.         mov +*SP,11
  62.         rt
  63.  
  64.         
  65.         
  66.