You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

clall 954B

12345678910111213141516171819202122232425262728293031323334353637
  1. .PAG 'CLOSE ALL FILES'
  2. ;***************************************
  3. ;* CLALL -- CLOSE ALL LOGICAL FILES *
  4. ;* DELETES ALL TABLE ENTRIES AND*
  5. ;* RESTORES DEFAULT I/O CHANNELS *
  6. ;* AND CLEARS IEEE PORT DEVICES *
  7. ;*************************************
  8. ;
  9. NCLALL LDA #0
  10. STA LDTND ;FORGET ALL FILES
  11. .SKI 3
  12. ;********************************************
  13. ;* CLRCH -- CLEAR CHANNELS *
  14. ;* UNLISTEN OR UNTALK IEEE DEVICES, BUT *
  15. ;* LEAVE OTHERS ALONE. DEFAULT CHANNELS *
  16. ;* ARE RESTORED. *
  17. ;********************************************
  18. ;
  19. NCLRCH LDX #3
  20. CPX DFLTO ;IS OUTPUT CHANNEL IEEE?
  21. BCS JX750 ;NO...
  22. ;
  23. JSR UNLSN ;YES...UNLISTEN IT
  24. ;
  25. JX750 CPX DFLTN ;IS INPUT CHANNEL IEEE?
  26. BCS CLALL2 ;NO...
  27. ;
  28. JSR UNTLK ;YES...UNTALK IT
  29. ;
  30. ;RESTORE DEFAULT VALUES
  31. ;
  32. ;
  33. CLALL2 STX DFLTO ;OUTPUT CHAN=3=SCREEN
  34. LDA #0
  35. STA DFLTN ;INPUT CHAN=0=KEYBOARD
  36. RTS
  37. .END