F4$INT, F4$IN, F4$OUT, F4$SYM, F4$END, F4$DUI, F4$DUO, F4$DUS

* F4$IOS-B - DEC 12 2006 - VERSION 1 PAGE 8

0351 00362 142240 BCI 1,D 0352 00363 147706 BCI 1,OF 0353 00364 120312 BCI 1, J 0354 00365 147702 BCI 1,OB 0355 * 0356 ************************************** 0357 * STOP AND (RE)LOAD DEVICE SELECTION * 0358 ************************************** 0359 * CALLED BY SOURCE, OBJECT AND LISTING (DUMMY) DRIVERS OF F4-IOS 0360 * CALLED BY F4$END (WHICH IS ALSO PART OF F4-IOS) 0361 * 0362 00366 0 000000 STOP DAC *-* 0363 00367 0 02 00467 LDA DEFT LOAD DEFAULT DEVICE SETTINGS 0364 00370 000000 HLT STOP AND POSSIBLY ADAPT THE SETTING 0365 00371 0 10 00373 JST SDEV SET THE NEW DEVICE SELECTION 0366 00372 -0 01 00366 JMP* STOP 0367 * 0368 ************************************************************** 0369 * SAVE DEVICE SELECTION AS DEFINED DURING COMPILER (RE)START * 0370 ************************************************************** 0371 * DEVICE SELECTION AS SPECIFIED IN REG-A (SOURCE, LIST, OBJECT), OR DEFAULT 0372 * 0373 00373 0 000000 SDEV DAC *-* SET SELECTED DEVICES 0374 00374 100040 SZE 0375 00375 0 04 00467 STA DEFT STORE REQUESTED DEVICES 0376 00376 0 02 00467 LDA DEFT LOAD DEFAULT IF NOTHING SPECIFIED, 0377 00377 0400 72 LRL 6 0378 00400 0 03 00622 ANA M7 0379 00401 0 04 00475 STA DSRC SOURCE DEVICE 0380 00402 140040 CRA 0381 00403 0410 75 LLL 3 0382 00404 0 04 00476 STA DLST LISTING DEVICE 0383 00405 140040 CRA 0384 00406 0410 75 LLL 3 0385 00407 0 04 00477 STA DOBJ OBJECT DEVICE 0386 00410 -0 01 00373 JMP* SDEV 0387 * 0388 ****************************************************************** 0389 * PUNCH LEADER/TRAILER IN CASE PTP IS THE SELECTED OBJECT DEVICE * 0390 ****************************************************************** 0391 * A[14-16] = SELECTED OBJECT DEVICE 0392 * 0393 00411 0 000000 PUTR DAC *-* 0394 00412 0 05 00636 ERA N1 =1 PUNCHER SELECTED? 0395 00413 101040 SNZ 0396 00414 0 10 00000 CALL O$PLDR YES; PUNCH LEADER/TRAILER 0397 00415 -0 01 00411 JMP* PUTR 0398 * 0399 ************************************** 0400 * PRINT MESSAGE FROM BUFFER ON TTY *