t_stat ng_boot(int32 unit, DEVICE *dptr) { t_stat r; set_cmd (0, "CPU 56K"); set_cmd (0, "NG TYPE=LOGO"); set_cmd (0, "PCLK ENABLED"); set_cmd (0, "KE ENABLED"); set_cmd (0, "RF ENABLED"); attach_cmd (0, "RF dummy"); sim_set_memory_load_file (BOOT_CODE_ARRAY, BOOT_CODE_SIZE); r = load_cmd (0, BOOT_CODE_FILENAME); sim_set_memory_load_file (NULL, 0); cpu_set_boot (0400); sim_printf ("List of 11LOGO commands:\n"); sim_printf ( "AND, BACK, BUTFIRST, BUTLAST, COUNT, CTF, DIFFERENCE, DISPLAY, DO,\n" "EDIT, ELSE, EMPTYP, END, EQUAL, ERASETRACE, FIRST, FORWARD, FPRINT,\n" "FPUT, GO, GREATER, HEADING, HERE, HIDETURTLE, HOME, IF, KILLDISPLAY,\n" "LAMPOFF, LAMPON, LAST, LEFT, LESS, LEVEL, LIST, LISTP, LPUT, MAKE,\n" "MOD, NEWSNAP, NUMBERP, OF, OUTPUT, PENDOWN, PENUP, PRINT, PRODUCT,\n" "QUOTIENT, REQUEST, RIGHT, RUG, SENTENCE, SETHEADING, SETTURTLE, SETX,\n" "SETXY, SETY, SHOW, SHOWTURTLE, SNAP, STARTDISPLAY, STF, STOP, SUM,\n" "THEN, TO, TOOT, TRACE, TYPE, VERSION, WIPE, WIPECLEAN, WORD, WORDP,\n" "XCOR, YCOR.\n\n"); sim_printf ("MIT AI memo 315 documents a later version of 11LOGO but may be helpful\n"); sim_printf ("in exploring the software. It can currently be found here:\n"); sim_printf ("https://dspace.mit.edu/handle/1721.1/6228\n\n"); sim_printf ("To get started with turtle graphics, type STARTDISPLAY.\n\n\n"); return r; }
t_stat rx_boot (int32 unitno, DEVICE *dptr) { size_t i; extern uint16 *M; for (i = 0; i < BOOT_LEN; i++) M[(BOOT_START >> 1) + i] = boot_rom[i]; M[BOOT_UNIT >> 1] = unitno & RX_M_NUMDR; M[BOOT_CSR >> 1] = rx_dib.ba & DMASK; cpu_set_boot (BOOT_ENTRY); return SCPE_OK; }
t_stat ry_boot (int32 unitno, DEVICE *dptr) { int32 i; extern uint16 *M; if ((ry_unit[unitno & RX_M_NUMDR].flags & UNIT_DEN) == 0) return SCPE_NOFNC; for (i = 0; i < BOOT_LEN; i++) M[(BOOT_START >> 1) + i] = boot_rom[i]; M[BOOT_UNIT >> 1] = unitno & RX_M_NUMDR; M[BOOT_CSR >> 1] = ry_dib.ba & DMASK; cpu_set_boot (BOOT_ENTRY); return SCPE_OK; }