Home Explore Help
Sign In
MITDDC
/
trivia-1976-1977
mirror of https://github.com/MITDDC/trivia-1976-1977
Watch 2
Star 0
Fork 0
Files Issues 0 Wiki
Tree: 4999d55db0
Branches Tags
trivia-1976-...
/
trivia
/
9006234
/
ar1.tv
/
tvcopy.5

tvcopy.5 907 B
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374 
  1. TITLE TRIVIA DATA BASE COPIER
    2. 

  2. 

  3. A=1
    4. 

  4. B=2
    5. 

  5. C=3
    6. 

  6. 

  7. DSKI==0
    8. 

  8. DSKO==1
    9. 

  9. 

  10. INPBLK:	BLOCK 2000
    11. 

  11. ERROR:	0
    12. 

  12. 

  13. START:	.CALL TVOPN
    14. 

  14. 	 .LOSE 1000
    15. 

  15. 	.CALL COPDEL
    16. 

  16. 	 JFCL
    17. 

  17. 	.CALL COPOPN
    18. 

  18. 	 .LOSE 1000
    19. 

  19. 	.VALUE [ASCIZ /:PROCED
    20. 

  20. /]
    21. 

  21. CPLOOP:	SETZ A,
    22. 

  22. 	MOVE B,[-2000,,INPBLK]
    23. 

  23. 	.CALL COPIOT
    24. 

  24. 	 .LOSE 1000
    25. 

  25. 	JUMPL B,COPFIN
    26. 

  26. 	MOVEI A,1
    27. 

  27. 	MOVE B,[-2000,,INPBLK]
    28. 

  28. 	.CALL COPIOT
    29. 

  29. 	 .LOSE 1000
    30. 

  30. 	JRST CPLOOP	
    31. 

  31. 	
    32. 

  32. COPFIN:	.CLOSE DSKI,
    33. 

  33. 	.CALL SFDUMP
    34. 

  34. 	 .LOSE 1000
    35. 

  35. 	.CLOSE DSKO,
    36. 

  36. 	.BREAK 16,60000
    37. 

  37. 

  38. TVOPN:	SETZ
    39. 

  39. 	SIXBIT /OPEN/
    40. 

  40. 	MOVSI .BII
    41. 

  41. 	MOVEI DSKI
    42. 

  42. 	[SIXBIT /DSK/]
    43. 

  43. 	[SIXBIT /TV/]
    44. 

  44. 	[SIXBIT /FILE/]
    45. 

  45. 	SETZ [SIXBIT /MADMAN/]
    46. 

  46. 

  47. COPDEL:	SETZ
    48. 

  48. 	SIXBIT /DELETE/
    49. 

  49. 	[SIXBIT /DSK/]
    50. 

  50. 	[SIXBIT /TV/]
    51. 

  51. 	[SIXBIT /FOO/]
    52. 

  52. 	SETZ [SIXBIT /MADMAN/]
    53. 

  53. 

  54. COPOPN:	SETZ
    55. 

  55. 	SIXBIT /OPEN/
    56. 

  56. 	MOVSI .BIO
    57. 

  57. 	MOVEI DSKO
    58. 

  58. 	[SIXBIT /DSK/]
    59. 

  59. 	[SIXBIT /TV/]
    60. 

  60. 	[SIXBIT /FOO/]
    61. 

  61. 	SETZ [SIXBIT /MADMAN/]
    62. 

  62. 	
    63. 

  63. COPIOT:	SETZ
    64. 

  64. 	SIXBIT /IOT/
    65. 

  65. 	MOVES ERROR
    66. 

  66. 	A
    67. 

  67. 	SETZ B
    68. 

  68. 	
    69. 

  69. SFDUMP:	SETZ
    70. 

  70. 	SIXBIT /SDMPBT/
    71. 

  71. 	MOVEI DSKO
    72. 

  72. 	SETZI 1
    73. 

  73. 

  74. 	END START
    75.