From e451cac66f5df59e3d2218eb21517a3b35893fa3 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Thu, 21 Jun 2018 22:24:08 +0200 Subject: [PATCH] Some Imlac programs from Tom Uban. --- imlac/binldr.i | 93 + imlac/binldr.list | 96 + imlac/bootldr.ia | 113 + imlac/imload.c | 748 +++++ imlac/mazewar.ia | 3501 ++++++++++++++++++++++ imlac/mazewar.out | 7042 +++++++++++++++++++++++++++++++++++++++++++++ imlac/rom3 | Bin 0 -> 214 bytes imlac/rom3.dis | 108 + imlac/rom3.i | Bin 0 -> 463 bytes 9 files changed, 11701 insertions(+) create mode 100644 imlac/binldr.i create mode 100644 imlac/binldr.list create mode 100644 imlac/bootldr.ia create mode 100644 imlac/imload.c create mode 100644 imlac/mazewar.ia create mode 100644 imlac/mazewar.out create mode 100644 imlac/rom3 create mode 100644 imlac/rom3.dis create mode 100644 imlac/rom3.i diff --git a/imlac/binldr.i b/imlac/binldr.i new file mode 100644 index 00000000..09836126 --- /dev/null +++ b/imlac/binldr.i @@ -0,0 +1,93 @@ + ABS + ORG 17700 +/ +/ ASSEMBLE WITH IA AND GET LISTING FILE. RUN LISTING FILE THROUGH +/ BINTRN TO STRIP OFF OCTAL (WITH EDIT REMOVE GLITCHES AND INSERT +/ LABEL BINLDR). INSERT SOME ZEROS BEFORE 1ST WORD TO KLUDGE 4K +/ 1ST CHAR GARBLE (BINLDR 0; 001032 ... ). SEGMENT OLD IA: +/ >S BINLDR,ENDLDR THEN >T DK IAA SRC,IAB,IAC _ DK IA (Y) +/ THEN >T DK IA SRC _ DK IAA,O,IAC (W) TO PUT TOGETHER WITH NEW +/ LOADER. FINALLY PATCH INTO SYSTEM: >READR 17600 IA +/ +LOAD RCF /IOT MUST BE FIRST TO UNLOCK ROM +COUNT JMS . /-WC +CHECK LAC COUNT /CHECKSUM + SAM LCHECK + JMP HEAD + LWC 17777-DLIST+1 /IF 8K (LV), START LINE + DLA + DON +HEAD CAL + DAC CHECK + JMS WORD /LOAD OR TRANSFER ADDRESS + DAC LOAD + ASP + JMP DONE + JMS WORD /WORD COUNT (COMP) + DAC COUNT + JMS WORD /CHECKSUM +/ +NEXT JMS WORD /DATA + DAC* LOAD + LAC LOAD + SAR 3 + AND MASK + IOR SETY + DAC DLIST + LAC* LOAD + ISZ LOAD + ISZ COUNT + JMP NEXT /LOOP TO END OF BLOCK + ADD CHECK + ASZ + JMP . /CHECKSUM ERROR + JMP HEAD /NEXT BLOCK +/ +DONE DOF + IAC + ASN + HLT + JMS WORD /LAST WORD IS GARBAGE + JMP* LOAD +/ +WORD ZRO + ADD CHECK + DAC CHECK /ACCUMULATE CHECKSUM + CAL + RSF + JMP .-1 + RRC /READ HIGH ORDER HALF + RAL 3 + RAL 3 + RAL 2 + RSF + JMP .-1 + RRC /READ LOW ORDER HALF + JMP* WORD +/ +SETY DLYA 0 +MASK OCT 1777 +/ +DLIST DLYA 0 + DLXA 0 + DSTS 1 + 046000 + 021777 + 000000 + DJMP DLIST +LCHECK ZRO CHECK +/ +LL=.-LOAD;LL=76-LL + .IFNEG LL + .ERROR YOU LOSE, LOADER CAN BE AT MOST 76 WRDS (ROM LIMIT) + .ENDC + .IFPNZ LL + .REPT LL + 0 + .ENDC +/ +/ +/ +/DEL REST + END + diff --git a/imlac/binldr.list b/imlac/binldr.list new file mode 100644 index 00000000..454de418 --- /dev/null +++ b/imlac/binldr.list @@ -0,0 +1,96 @@ + + ABS + 17700 ORG 17700 + / + / ASSEMBLE WITH IA AND GET LISTING FILE. RUN LISTING FILE THROUGH + / BINTRN TO STRIP OFF OCTAL (WITH EDIT REMOVE GLITCHES AND INSERT + / LABEL BINLDR). INSERT SOME ZEROS BEFORE 1ST WORD TO KLUDGE 4K + / 1ST CHAR GARBLE (BINLDR 0; 001032 ... ). SEGMENT OLD IA: + / >S BINLDR,ENDLDR THEN >T DK IAA SRC,IAB,IAC _ DK IA (Y) + / THEN >T DK IA SRC _ DK IAA,O,IAC (W) TO PUT TOGETHER WITH NEW + / LOADER. FINALLY PATCH INTO SYSTEM: >READR 17600 IA + / + 17700 001032 LOAD RCF /IOT MUST BE FIRST TO UNLOCK ROM + 17701 037701 COUNT JMS . /-WC + 17702 063701 CHECK LAC COUNT /CHECKSUM + 17703 077775 SAM LCHECK + 17704 013710 JMP HEAD + 17705 104012 LWC 17777-DLIST+1 /IF 8K (LV), START LINE + 17706 001003 DLA + 17707 003100 DON + 17710 100011 HEAD CAL + 17711 023702 DAC CHECK + 17712 037746 JMS WORD /LOAD OR TRANSFER ADDRESS + 17713 023700 DAC LOAD + 17714 002002 ASP + 17715 013740 JMP DONE + 17716 037746 JMS WORD /WORD COUNT (COMP) + 17717 023701 DAC COUNT + 17720 037746 JMS WORD /CHECKSUM + / + 17721 037746 NEXT JMS WORD /DATA + 17722 123700 DAC* LOAD + 17723 063700 LAC LOAD + 17724 003063 SAR 3 + 17725 047765 AND MASK + 17726 053764 IOR SETY + 17727 023766 DAC DLIST + 17730 163700 LAC* LOAD + 17731 033700 ISZ LOAD + 17732 033701 ISZ COUNT + 17733 013721 JMP NEXT /LOOP TO END OF BLOCK + 17734 067702 ADD CHECK + 17735 002001 ASZ + 17736 013736 JMP . /CHECKSUM ERROR + 17737 013710 JMP HEAD /NEXT BLOCK + / + 17740 001012 DONE DOF + 17741 100004 IAC + 17742 102001 ASN + 17743 000000 HLT + 17744 037746 JMS WORD /LAST WORD IS GARBAGE + 17745 113700 JMP* LOAD + / + 17746 000000 WORD ZRO + 17747 067702 ADD CHECK + 17750 023702 DAC CHECK /ACCUMULATE CHECKSUM + 17751 100011 CAL + 17752 002040 RSF + 17753 013752 JMP .-1 + 17754 001033 RRC /READ HIGH ORDER HALF + 17755 003003 RAL 3 + 17756 003003 RAL 3 + 17757 003002 RAL 2 + 17760 002040 RSF + 17761 013760 JMP .-1 + 17762 001033 RRC /READ LOW ORDER HALF + 17763 113746 JMP* WORD + / + 17764 020000 SETY DLYA 0 + 17765 001777 MASK OCT 1777 + / + 17766 020000 DLIST DLYA 0 + 17767 010000 DLXA 0 + 17770 004005 DSTS 1 + 17771 046000 046000 + 17772 021777 021777 + 17773 000000 000000 + 17774 067766 DJMP DLIST + 17775 017702 LCHECK ZRO CHECK + / + 000076 LL=.-LOAD;LL=76-LL + 000000 + .IFNEG LL + .ERROR YOU LOSE, LOADER CAN BE AT MOST 76 WRDS (ROM LIMIT) + .ENDC + .IFPNZ LL + .REPT LL + 0 + .ENDC + / + / + / + /DEL REST + 000000 END + SIZE=17776 NO ERROR LINES + diff --git a/imlac/bootldr.ia b/imlac/bootldr.ia new file mode 100644 index 00000000..faafc23d --- /dev/null +++ b/imlac/bootldr.ia @@ -0,0 +1,113 @@ +// Imlac Program Loader +// +// This loader is loaded by the bootstrap program at x7700, where x=0 for +// a 4K machine, and x=1 for an 8K machine. The first byte of this loader +// is 002, which is used by the bootstrap as a signal to start loading. +// This loader checks whether it is running at address 017700 on an 8K machine, +// which is assumed to support long vectors, and enables a simple display +// during the load if so. +// +// The load format consists of one or more contiguous blocks, with no +// padding bytes between them. Each block begins with three words: +// +// load address +// negative word count +// checksum +// +// Words are always received high-order byte first. The rest of the block +// consists of "word count" words, which are loaded starting at "load address". +// The sum of all the words in the block, including these first three, must be +// zero (16 bit sum), and the checksum is computed to give that result. +// +// The end of the load is signalled by a block with a negative starting address. +// If that address is -1, the loader simply halts. Otherwise it reads one more +// word (in the position normally occupied by the negative word count), which +// will be the value in the AC at the start of the program just loaded. Then +// it starts the program with an indirect jump through the negative starting +// address. (For example, to start at 00100, the starting address will be +// 100100). +// +// If a checksum error occurs, the loader goes into a tight loop at +// CSERR (x7736). +// +// As decoded by Howard Palmer (hep@acm.org) from an Imlac wumpus binary. +// Oct. 6, 2004 +// + ORG 37700 +START RCF // This is overwritten by the block start address +CNT JMS CNT // This instruction overwrites itself! +CKSM LAC CNT // This is overwritten by the checksum + SAM LD8K // Are we loaded at 017700? + JMP NODSP // Yes, skip display code + LWC 12 // Get address of display list (DLIST at 037766) + DLA // Start the display processor + DON +NODSP CAL // Initialize checksum to zero + DAC CKSM + JMS RWORD // Read the load address of the next block + DAC START // Save it + ASP // Looking for a negative load address + JMP DONE // Finished loading blocks if we find it + JMS RWORD // Read the negative word count + DAC CNT + JMS RWORD // Read the checksum word +LOAD JMS RWORD // Read next word to be loaded + DAC* START // Store it + LAC START // Get the current load address + SAR 3 // Extract the top 10 bits + AND M1777 + IOR DLYA // Use as the Y value in a DLYA instruction + DAC DLIST // Replace the DLYA in the display list + LAC* START // Get the word that was just loaded + ISZ START // Bump the load address + ISZ CNT // Bump the negative count + JMP LOAD // Loop until it goes to zero + ADD CKSM // Finish computing the checksum + ASZ // Should add up to zero +CSERR JMP CSERR // Tight loop if checksum error + JMP NODSP // Loop back for the next block + + +DONE DOF // Turn off the display processor + IAC // Increment the negative load address + ASN // Just stop if it goes to zero + HLT // Load completed successfully + JMS RWORD // If not zero, read a starting value for the AC + JMP* START // And use the negative load address to start + + +// This subroutine reads the next word. It is entered with either zero or the +// last word read in the AC. It adds that value to CKSM. + + +RWORD ZZZ // Subroutine to read a word + ADD CKSM // Accumulate checksum + DAC CKSM + CAL +WT1 RSF // Wait for high-order byte + JMP WT1 + RRC // Read it + RAL 3 // Move it to the high-order AC + RAL 3 + RAL 2 +WT2 RSF // Wait for low-order byte + JMP WT2 + RRC // Read it, forming a word + JMP* RWORD // Return to caller +DLYA DLYA 0 // Used to build DLYA instruction +M1777 DATA 1777 // 10-bit mask + + +// Begin display list +// This must start at location 037766 + + +DLIST DLYA 0 // This gets dynamically updated + DLXA 0 + DSTS 1 // Set normal scale + DATA 046000 // 3-word long vector + DATA 021777 // x=1777, y=0, beam on + DATA 0 + DJMP DLIST // Run the display processor continuously +LD8K DATA 017702 // Used to check for load at 017700 + END diff --git a/imlac/imload.c b/imlac/imload.c new file mode 100644 index 00000000..48ff3491 --- /dev/null +++ b/imlac/imload.c @@ -0,0 +1,748 @@ +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +typedef enum { False, True } Bool; + +#define RCV_TIMEOUT 200 // in milli-seconds (XXX) +#define SERIAL_TIMEOUT -2 +#define BUF_SIZE 512 +#define DEFAULT_BAUDRATE 9600 +#define WIN95_DEFAULT_BAUDRATE CBR_9600 + +#define MAX_PORTS 4 +#define COM_BUF_SZ 1024 + +#define WIN95_DEBUG 0 + +struct com_info { + HANDLE fd; + HANDLE mutex; + volatile DWORD rxbuf_max; + BYTE rxbuf[COM_BUF_SZ]; + HANDLE th; +} com_ports[MAX_PORTS]; + +static volatile int waiting = 0; + +static void +init_ports() +{ + int i; + + for (i = 0; i < MAX_PORTS; i++) + com_ports[i].fd = (HANDLE) -1; +} + +static int +get_port() +{ + int i; + + for (i = 0; i < MAX_PORTS; i++) { + if (com_ports[i].fd == (HANDLE) -1) { + com_ports[i].fd = 0; + return (i); + } + } + return (-1); +} + +static void +free_port(int port) +{ + if (port >= 0 && port < MAX_PORTS) + com_ports[port].fd = (HANDLE) -1; +} + +static DWORD +com_rx_thread(void *arg) +{ + DWORD bytes_read = 0; + LPBYTE new_bytes_posn; + struct com_info *cip; + int port; + + port = (int) arg; + if (port < 0 || port >= MAX_PORTS) { + printf("com_rx_thread: bad port %d\n", port); + return (0); + } + cip = &com_ports[port]; + while (1) { + WaitCommEvent(cip->fd, NULL, NULL); + +#if WIN95_DEBUG > 0 + if (waiting && cip->rxbuf_max > 0) + printf("com_rx_thread() rxbuf_max %d and waiting\n", + cip->rxbuf_max); +#endif + + WaitForSingleObject(cip->mutex, INFINITE); + new_bytes_posn = cip->rxbuf + cip->rxbuf_max; + if (ReadFile(cip->fd, new_bytes_posn, COM_BUF_SZ - cip->rxbuf_max, + &bytes_read, NULL) == TRUE) { + if (bytes_read) + cip->rxbuf_max += bytes_read; + } else + printf("com_rx_thread() ReadFile failed\n"); + ReleaseMutex(cip->mutex); + +#if WIN95_DEBUG > 0 + if (bytes_read) + printf("com_rx_thread() bytes %d\n", bytes_read); +#endif + } +} + +int +win95_open (const char *name, long baudrate) +{ + struct com_info *cip; + DCB dcb; + COMMTIMEOUTS cto; + DWORD tid; + int fd; + static int initialized = 0; + + if (initialized == 0) { + initialized = 1; + init_ports(); + } + +#if WIN95_DEBUG > 0 + printf("win95_open(%s, %d)\n", name, baudrate); +#endif + + if ((fd = get_port()) < 0) { + printf("win95_open(%s): all ports in use\n", name); + return (-1); + } + cip = &com_ports[fd]; + + /* + * Claim the specified port. + */ + cip->fd = CreateFile(name, GENERIC_READ|GENERIC_WRITE, 0, NULL, + OPEN_EXISTING, 0, NULL); + SetCommMask(cip->fd, EV_RXCHAR); + + /* + * Set the port to 8N1 w/ no timeouts, 9600 baud, + * and COM_BUF_SZ bytes input/output buffers. + */ + GetCommState(cip->fd, &dcb); +#if 0 + DWORD DCBlength; +* DWORD BaudRate; + DWORD fBinary: 1; + DWORD fParity: 1; +* DWORD fOutxCtsFlow:1; +* DWORD fOutxDsrFlow:1; +* DWORD fDtrControl:2; +* DWORD fDsrSensitivity:1; + DWORD fTXContinueOnXoff:1; +* DWORD fOutX: 1; +* DWORD fInX: 1; + DWORD fErrorChar: 1; + DWORD fNull: 1; +* DWORD fRtsControl:2; + DWORD fAbortOnError:1; + DWORD fDummy2:17; + WORD wReserved; + WORD XonLim; + WORD XoffLim; +* BYTE ByteSize; +* BYTE Parity; +* BYTE StopBits; + char XonChar; + char XoffChar; + char ErrorChar; + char EofChar; + char EvtChar; + WORD wReserved1; +#endif +//XXX dcb.fBinary = TRUE; + + dcb.BaudRate = (DWORD) baudrate; + dcb.ByteSize = 8; + dcb.Parity = NOPARITY; + dcb.StopBits = ONESTOPBIT; +// dcb.StopBits = TWOSTOPBITS; + dcb.fOutxCtsFlow = FALSE; + dcb.fOutxDsrFlow = FALSE; + dcb.fDtrControl = DTR_CONTROL_DISABLE; + dcb.fDsrSensitivity = FALSE; + dcb.fOutX = FALSE; + dcb.fInX = FALSE; + dcb.fRtsControl = RTS_CONTROL_DISABLE; + SetCommState(cip->fd, &dcb); + GetCommTimeouts(cip->fd, &cto); + cto.ReadIntervalTimeout = MAXDWORD; + cto.ReadTotalTimeoutMultiplier = cto.ReadTotalTimeoutConstant = 0; + cto.WriteTotalTimeoutMultiplier = cto.WriteTotalTimeoutConstant = 0; + SetCommTimeouts(cip->fd, &cto); + SetupComm(cip->fd, COM_BUF_SZ, COM_BUF_SZ); + + /* + * Set up the comms receive buffer, create a mutex so we can + * receive from the buffer without getting the background thread + * bent out of shape and then kick off the background thread that + * polls the serial port for us and stuffs the receive buffer. + */ + cip->rxbuf_max = 0; + cip->mutex = CreateMutex(NULL, FALSE, NULL); + cip->th = CreateThread(NULL, 0, com_rx_thread, (void *) 0, 0, &tid); + + return (fd); +} + +void +win95_close (int fd) +{ + struct com_info *cip; + +#if WIN95_DEBUG > 0 + printf("win95_close(%d)\n", fd); +#endif + + if (fd < 0 || fd >= MAX_PORTS) + return; + + cip = &com_ports[fd]; + + WaitForSingleObject(cip->mutex, INFINITE); + TerminateThread(cip->th, 0); + ReleaseMutex(cip->mutex); + WaitForSingleObject(cip->mutex, INFINITE); + CloseHandle(cip->fd); + ReleaseMutex(cip->mutex); + free_port(fd); +} + +int +win95_readchar (int fd, BYTE *ch, int timeout) +{ + struct com_info *cip; + DWORD i; + int timer; + + cip = &com_ports[fd]; + +#if WIN95_DEBUG > 0 + if (timeout == -1) + printf("win95_readchar() timeout %d max %d\n", timeout, cip->rxbuf_max); +#endif + + /* + * The timeout parameter is as follows: + * 0 = try once (poll) + * >0 = try for timeout milli-seconds + * <0 = try forever + */ + timer = 0; + while (1) { + if (cip->rxbuf_max == 0) { + waiting = 1; + if (timeout == 0) { +#if WIN95_DEBUG > 0 + printf("win95_readchar(): SERIAL_TIMEOUT\n"); +#endif + return (SERIAL_TIMEOUT); + } + + if (timeout > 0 && timer++ >= timeout) { +#if WIN95_DEBUG > 0 + printf("win95_readchar(): SERIAL_TIMEOUT\n"); +#endif + return (SERIAL_TIMEOUT); + } + + Sleep(1); /* Sleep time is in milli-seconds */ + continue; + } + + waiting = 0; + WaitForSingleObject(cip->mutex, INFINITE); + if (cip->rxbuf_max == 0) { + ReleaseMutex(cip->mutex); + continue; /* this should not happen */ + } + + /* + * XXX - this is ugly, but it came from some working code + * XXX - and I don't want to mess with it at the moment. + */ + *ch = cip->rxbuf[0]; + for (i = 1; i < cip->rxbuf_max; i++) + cip->rxbuf[i - 1] = cip->rxbuf[i]; + cip->rxbuf_max--; + ReleaseMutex(cip->mutex); + break; + } + +#if WIN95_DEBUG > 0 + printf("win95_readchar(): ch 0x%x\n", ch); +#endif + + return (0); +} + +int +win95_write (int fd, const char *str, int len) +{ + struct com_info *cip; + DWORD chars_written, total_written; + +#if WIN95_DEBUG > 0 + printf("win95_write()\n"); +#endif + + cip = &com_ports[fd]; + total_written = 0; + while (len > 0) { + if (WriteFile(cip->fd, str, len, &chars_written, NULL) == TRUE) { + if (chars_written < 0) + return (total_written); + + len -= chars_written; + str += chars_written; + total_written += chars_written; + } else + printf("win95_write() WriteFile failed\n"); + } + + return (total_written); +} + +void +win95_flush_input (int fd) +{ + struct com_info *cip; + +#if WIN95_DEBUG > 0 + printf("win95_flush_input()\n"); +#endif + + cip = &com_ports[fd]; + + WaitForSingleObject(cip->mutex, INFINITE); + cip->rxbuf_max = 0; + ReleaseMutex(cip->mutex); +} + +char *progname; +unsigned char buffer[BUF_SIZE]; +extern char *sys_errlist[]; + +static void +usage() +{ + fprintf(stderr, "usage: %s [-COM2] image\n" + " -? this help message\n" + " -bBAUD set the transfer baudrate to BAUD where BAUD is\n" + " one of: 300, 1200, 2400, 4800, or 9600\n" + " (default is 9600 baud)\n" + " -COM2 specifiy the COM2 serial port (COM1 is default)\n" + " -force8 force an 8bit (binary) load\n" + " -info show file info, do not load\n" + " -pause pause for CR before each byte\n" + " -type4 send a mazewar type 4 message to the serial port\n" + " -verify verify each character written\n", + progname); +} + +static unsigned char type4_msg[] = { + 0x04, 0x01, 0x54, 0x4f, 0x4d, 0x20, 0x20, 0x20, 0x40, 0x40, 0x40, 0x40 +}; + +main (int argc, char *argv[], char *env[]) +{ + long win95_baudrate; + int arg_baudrate, serial_fd, image_fd, rom3_fd, len, i; + const char *port; + unsigned short sbuf[100], word; + unsigned char *image, *cp, c; + Bool bit4, force8, info, pause, type4, verify; + + if ((cp = (char *) rindex(argv[0], '/')) || + (cp = (char *) rindex(argv[0], '\\'))) + progname = cp + 1; + else + progname = argv[0]; + + if ((cp = (char *) rindex(argv[0], '.'))) + *cp = 0; + + bit4 = False; + force8 = False; + info = False; + pause = False; + type4 = False; + verify = False; + port = "COM1"; + arg_baudrate = DEFAULT_BAUDRATE; + win95_baudrate = WIN95_DEFAULT_BAUDRATE; + + argv++; + while (--argc > 0) { + if ((*argv)[0] != '-' && (*argv)[0] != '/') + break; + + switch (c = (*argv)[1]) { + case '?': + usage(); + exit(0); + break; + case 'b': + arg_baudrate = atoi(&(*argv)[2]); + switch (arg_baudrate) { + case 300: + win95_baudrate = CBR_300; + break; + case 1200: + win95_baudrate = CBR_1200; + break; + case 2400: + win95_baudrate = CBR_2400; + break; + case 4800: + win95_baudrate = CBR_4800; + break; + case 9600: + win95_baudrate = CBR_9600; + break; + default: + fprintf(stderr, + "%s: baudrate (%d) should be <300 | 1200 | 2400 | " + "4800 | 9600>\n", progname, arg_baudrate); + usage(); + exit(1); + } + break; + case 'c': + case 'C': + if (strcmp(&(*argv)[2], "om2") == 0 || + strcmp(&(*argv)[2], "OM2") == 0) { + port = "COM2"; + } else { + usage(); + exit(1); + } + break; + case 'f': + if (strcmp(&(*argv)[2], "orce8") == 0) { + force8 = True; + } else { + usage(); + exit(1); + } + break; + case 'i': + if (strcmp(&(*argv)[2], "nfo") == 0) { + info = True; + } else { + usage(); + exit(1); + } + break; + case 'p': + if (strcmp(&(*argv)[2], "ause") == 0) { + pause = True; + } else { + usage(); + exit(1); + } + break; + case 't': + if (strcmp(&(*argv)[2], "ype4") == 0) { + type4 = True; + } else { + usage(); + exit(1); + } + break; + case 'v': + if (strcmp(&(*argv)[2], "erify") == 0) { + verify = True; + } else { + usage(); + exit(1); + } + break; + default: + fprintf(stderr, "%s: invalid option '%s'\n", progname, *argv); + usage(); + exit(1); + } + argv++; + } + + if (argc != 1) { + usage(); + exit(1); + } + image = *argv; + + /* + * Open the image file, read a few bytes, and rewind the fd. + */ + if ((image_fd = open(image, O_RDONLY | O_BINARY)) < 0) { + fprintf(stderr, "%s: unable to open file (%s) - %s\n", + progname, image, sys_errlist[errno]); + exit(1); + } + if ((len = read(image_fd, buffer, 10)) <= 0) { + fprintf(stderr, "%s: unable to read file (%s) - %s\n", + progname, image, sys_errlist[errno]); + close(image_fd); + exit(1); + } + if (lseek(image_fd, 0, SEEK_SET) == -1) { + fprintf(stderr, "%s: unable to lseek file (%s) - %s\n", + progname, image, sys_errlist[errno]); + close(image_fd); + exit(1); + } + + /* + * Determine if the image is 4 or 8 bit. + */ + if (buffer[0] & 0140) /* 4 bit file */ + bit4 = True; + + if (force8 == True) + bit4 = False; + + /* + * Open the serial port at the specified baudrate. + */ + if (info == False) { + if ((serial_fd = win95_open(port, win95_baudrate)) < 0) { + fprintf(stderr, "%s: unable to open serial port (%s)\n", + progname, port); + close(image_fd); + exit(1); + } + + printf("Start TTY boot loader and press return when ready..."); + fflush(stdout); + getchar(); + + if (force8 == False) { + buffer[0] = '\1'; + for (i = 0; i < 10; i++) { + if (verify == False) { + word = ((unsigned short) buffer[0] << 8) | buffer[0]; + if ((i & 1) == 0) + printf("0%-6.6o 0x%02x 0x%02x\n", + word, buffer[0], buffer[0]); + } + + if (win95_write(serial_fd, buffer, 1) < 0) { + fprintf(stderr, + "%s: unable to write to serial port (%s)\n", + progname, port); + close(image_fd); + win95_close(serial_fd); + exit(1); + } + if (pause == True) { + printf("Pausing output, press return when ready..."); + fflush(stdout); + getchar(); + } + if (verify == True) { + if (win95_readchar(serial_fd, &c, RCV_TIMEOUT) < 0) { + fprintf(stderr, + "%s: unable to read from serial port (%s)\n", + progname, port); + close(image_fd); + win95_close(serial_fd); + exit(1); + } + if (c != buffer[0]) + printf(">>> sent 0x%02x got 0x%02x\n", buffer[i], c); + } + } + } + } + + /* + * Determine if the image is 4 or 8 bit. + */ + if (bit4 == True) { /* 4 bit file */ + printf("4 bit file:\n"); + if (info == True) { + close(image_fd); + exit(0); + } + if ((rom3_fd = open("rom3", O_RDONLY | O_BINARY)) < 0) { + fprintf(stderr, "%s: unable to open file (%s) - %s\n", + progname, "rom3", sys_errlist[errno]); + close(image_fd); + if (info == False) + win95_close(serial_fd); + exit(1); + } + printf("Sending rom3\n"); + while ((len = read(rom3_fd, buffer, BUF_SIZE)) > 0) { + putchar('.'); + + if (pause == True || verify == True) { + for (i = 0; i < len; i++) { + if (verify == False) { + word = ((unsigned short) buffer[i] << 8) | + buffer[i + 1]; + if ((i & 1) == 0) + printf("0%-6.6o 0x%02x 0x%02x\n", + word, buffer[i], buffer[i + 1]); + } + + if (win95_write(serial_fd, &buffer[i], 1) < 0) { + fprintf(stderr, + "%s: unable to write to serial port (%s)\n", + progname, port); + close(rom3_fd); + close(image_fd); + win95_close(serial_fd); + exit(1); + } + if (pause == True) { + printf("Pausing output, press return when ready..."); + fflush(stdout); + getchar(); + } + if (verify == True) { + if (win95_readchar(serial_fd, &c, RCV_TIMEOUT) < 0) { + fprintf(stderr, + "%s: unable to read from serial " + "port (%s)\n", + progname, port); + close(rom3_fd); + close(image_fd); + win95_close(serial_fd); + exit(1); + } + if (c != buffer[i]) + printf(">>> sent 0x%02x got 0x%02x\n", + buffer[i], c); + } + } + } else { + if (win95_write(serial_fd, buffer, len) < 0) { + fprintf(stderr, + "%s: unable to write to serial port (%s)\n", + progname, port); + close(rom3_fd); + close(image_fd); + win95_close(serial_fd); + exit(1); + } + } + } + if (len < 0) { + fprintf(stderr, "%s: unable to read file (%s) - %s\n", + progname, "rom3", sys_errlist[errno]); + close(rom3_fd); + close(image_fd); + win95_close(serial_fd); + exit(1); + } + + putchar('\n'); + close(rom3_fd); + } else { /* 8 bit file */ + printf("8 bit file:\n"); + if (info == True) { + close(image_fd); + exit(0); + } + } + + printf("Sending %s\n", image); + while ((len = read(image_fd, buffer, BUF_SIZE)) > 0) { + putchar('+'); + + if (pause == True || verify == True) { + for (i = 0; i < len; i++) { + if (verify == False) { + word = ((unsigned short) buffer[i] << 8) | buffer[i + 1]; + if ((i & 1) == 0) + printf("0%-6.6o 0x%02x 0x%02x\n", + word, buffer[i], buffer[i + 1]); + } + + if (win95_write(serial_fd, &buffer[i], 1) < 0) { + fprintf(stderr, + "%s: unable to write to serial port (%s)\n", + progname, port); + close(rom3_fd); + close(image_fd); + win95_close(serial_fd); + exit(1); + } + if (pause == True) { + printf("Pausing output, press return when ready..."); + fflush(stdout); + getchar(); + } + if (verify == True) { + if (win95_readchar(serial_fd, &c, RCV_TIMEOUT) < 0) { + fprintf(stderr, + "%s: unable to read from serial port (%s)\n", + progname, port); + close(rom3_fd); + close(image_fd); + win95_close(serial_fd); + exit(1); + } + if (c != buffer[i]) + printf(">>> sent 0x%02x got 0x%02x\n", buffer[i], c); + } + } + } else { + if (win95_write(serial_fd, buffer, len) < 0) { + fprintf(stderr, "%s: unable to write to serial port (%s)\n", + progname, port); + close(rom3_fd); + close(image_fd); + win95_close(serial_fd); + exit(1); + } + } + } + if (len < 0) { + fprintf(stderr, "%s: unable to read file (%s) - %s\n", + progname, image, sys_errlist[errno]); + close(image_fd); + win95_close(serial_fd); + exit(1); + } + putchar('\n'); + fflush(stdout); + + if (type4) { + printf("Press return to send type 4 message..."); + fflush(stdout); + getchar(); + + if (win95_write(serial_fd, type4_msg, sizeof(type4_msg)) < 0) { + fprintf(stderr, "%s: unable to write to serial port (%s)\n", + progname, port); + close(rom3_fd); + close(image_fd); + win95_close(serial_fd); + exit(1); + } + } + + exit(0); +} diff --git a/imlac/mazewar.ia b/imlac/mazewar.ia new file mode 100644 index 00000000..32264e88 --- /dev/null +++ b/imlac/mazewar.ia @@ -0,0 +1,3501 @@ +TITLE MAZE.3 GREG THOMPSON (GAT) 04/11/74 + +; MAZE + +; Maze is a experiment in 3 dimensional graphics and intertask +; teleconferencing. It is a hunt and seek game that can involve up to +; eight Imlacs. The Imlac user is placed in a 16 by 32 square maze and +; attempts to hunt down and destroy the other inhabitents of the maze (the +; other Imlac users) before they do the same to him. Each player is +; represented by his uname (1 through 8 characters) as he moves through the +; maze. The various keys that are used to move through the maze and to +; fire are described below. +; +; UP ARROW - Move forward 1 square. +; DOWN ARROW - Back up one square. +; LEFT ARROW - Turn 90 degrees to the left. +; RIGHT ARROW- Turn 90 degrees to the right. +; FUNCTION 4 - Turn 180 degrees around. +; PAGE XMIT - Peek around the corner to the left. +; XMIT - Peek around the corner to the right. +; ESC - Fire. +; CTRL -Z - Exit maze program. +; FORM - Erase dispay buffer. +; FUNCTION 7 - Look at maze from top. +; +; The player enters the maze by typing MAZE; to monit or MAZE^k to +; DDT, while at an imlac. The screen will be blank for a minute or two +; while the imlac side of the maze program is loaded after which the player +; is placed in to the maze along with any other players. A letter on the +; top of the screen indicates the direction you are currently facing. The +; unames of the other players are listed on the sides followed their score +; and the number of times they were shot. Anytime a player is shot the +; bell will ring and an '!' will be placed next to the shooting players +; score and an '*' will be placed next to the number of times shot counter +; of the player that was just shot. Holding down the up or down arrow keys +; will cause them to repeat. After a shot is fired the player who is being +; shot at has two seconds to get out of view of the position that the +; shooting player was at at the time he fired the shot. All other +; characters typed are placed in a display buffer at the bottom of all the +; imlac's screen. Holding the Function-7 (or TAB as the case my be) will +; allow you to view your position in the maze from the top. +; The 3 buttons on the mouse and the 5 keyset buttons may be used as +; controls and have the following functions, starting from the left of the +; mouse; peek left, fire, peek right, turn around, turn left, move +; forward, turn right, and move backwards. +; Users may specify their own mazes if they are the first player in a +; maze by giving a file name after 'maze to use: '. Just a CR will default +; to the standard maze. User mazes must have a specific format if they are +; to be able to work. They must begin with a LOC 10020 followed by the label +; MAZE: on the first of 32. octal words which form a bit map for the +; maze. The maze must end with LOC 17713, JMP @.+1, 101, and an END. +; After assembling the maze must be imtraned by using the 'IMTRAN' command. +; A muddle function exists for printing out formated source mazes. It is +; initiated by floading 'imlac;maze print' in muddle and then issuing +; $ where the output file +; spec defaults to the TTY. An example of a formated source maze is given +; below: + +;.INSRT IMSRC;IMDEFS > +; +; LOC 10020' +; +; MAZE: 177777 ; HERE IS THE 32 WORD MAZE. +; 106401 ; NO FOUR SQUARES MAY BE EMPTY. +; 124675 ; AND SHARE A COMMON CORNER. +; 121205 ; ALL OUTSIDE WALLS MUST BE FILLED IN. +; 132055 ; THIS IS THE DEFAULT MAZE. +; 122741 +; 106415 +; 124161 +; 121405 +; 135775 +; 101005 +; 135365 +; 121205 +; 127261 +; 120205 +; 106765 +; 124405 +; 166575 +; 122005 +; 107735 +; 120001 +; 135575 +; 105005 +; 125365 +; 125225 +; 121265 +; 105005 +; 135375 +; 100201 +; 135675 +; 110041 +; 177777 +; +; END 101' ; AUTO START BACK INTO CONSOLE PROGRAM +; +; Players start in random loctions. + +; The current default maze is: +; +; N O R T H +; +; +; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ +; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ +; $$$ $$$$$$ $$$ $$$ +; $$$ $$$$$$ $$$ $$$ +; $$$ $$$ $$$ $$$$$$ $$$$$$$$$$$$ $$$ +; $$$ $$$ $$$ $$$$$$ $$$$$$$$$$$$ $$$ +; $$$ $$$ $$$ $$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$ $$$ +; $$$ $$$$$$ $$$ $$$ $$$$$$ $$$ +; $$$ $$$$$$ $$$ $$$ $$$$$$ $$$ +; $$$ $$$ $$$ $$$$$$$$$$$$ $$$ +; $$$ $$$ $$$ $$$$$$$$$$$$ $$$ +; $$$ $$$$$$ $$$ $$$$$$ $$$ +; $$$ $$$$$$ $$$ $$$$$$ $$$ +; $$$ $$$ $$$ $$$$$$$$$ $$$ +; $$$ $$$ $$$ $$$$$$$$$ $$$ +; $$$ $$$ $$$$$$ $$$ $$$ +; $$$ $$$ $$$$$$ $$$ $$$ +; $$$ $$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$$ $$$ +; $$$ $$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$$ $$$ +; $$$ $$$ $$$ $$$ +; $$$ $$$ $$$ $$$ +; $$$ $$$$$$$$$ $$$ $$$$$$$$$$$$ $$$ $$$ +; $$$ $$$$$$$$$ $$$ $$$$$$$$$$$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$ $$$ +; W $$$ $$$ $$$$$$$$$ $$$ $$$$$$ $$$ E +; $$$ $$$ $$$$$$$$$ $$$ $$$$$$ $$$ +; E $$$ $$$ $$$ $$$ $$$ A +; $$$ $$$ $$$ $$$ $$$ +; S $$$ $$$$$$ $$$$$$$$$$$$$$$ $$$ $$$ S +; $$$ $$$$$$ $$$$$$$$$$$$$$$ $$$ $$$ +; T $$$ $$$ $$$ $$$ $$$ $$$ T +; $$$ $$$ $$$ $$$ $$$ $$$ +; $$$$$$$$$ $$$$$$ $$$ $$$$$$$$$$$$$$$ $$$ +; $$$$$$$$$ $$$$$$ $$$ $$$$$$$$$$$$$$$ $$$ +; $$$ $$$ $$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$ +; $$$ $$$$$$$$$$$$$$$$$$ $$$$$$$$$ $$$ +; $$$ $$$$$$$$$$$$$$$$$$ $$$$$$$$$ $$$ +; $$$ $$$ $$$ +; $$$ $$$ $$$ +; $$$ $$$$$$$$$ $$$$$$ $$$$$$$$$$$$$$$ $$$ +; $$$ $$$$$$$$$ $$$$$$ $$$$$$$$$$$$$$$ $$$ +; $$$ $$$ $$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$$$$$$$$$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$$$$$$$$$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$$$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$$$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$ +; $$$ $$$ $$$ $$$ $$$ +; $$$ $$$$$$$$$ $$$ $$$$$$$$$$$$$$$$$$ $$$ +; $$$ $$$$$$$$$ $$$ $$$$$$$$$$$$$$$$$$ $$$ +; $$$ $$$ $$$ +; $$$ $$$ $$$ +; $$$ $$$$$$$$$ $$$$$$$$$ $$$$$$$$$$$$ $$$ +; $$$ $$$$$$$$$ $$$$$$$$$ $$$$$$$$$$$$ $$$ +; $$$ $$$ $$$ $$$ +; $$$ $$$ $$$ $$$ +; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ +; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ +; +; +; S O U T H +; + +; MAZE PROTOCOL: MESSAGES ARE SENT TO ALL OTHER IMLACS +; DO NOT SEND TO ORIGINATING IMLAC +; +; 001 -- PLAYER LEAVES GAME +; +; +; 002 -- PLAYER MOVED +; +; +; +; +; +; 003 -- PLAYER DIED +; +; +; +; 004 -- ANNOUNCE NEW PLAYER +; +; <6 CHARS OF ID NAME> +; <2 CHAR # OF HITS WITH 100 BIT ON> (HIGH ORDER 6 BITS THEN LOW ORDER 6 BITS) +; <2 CHAR # OF DEATHS WITH 100 BIT ON> +; +; 014 -- ERASE DISPLAY RING BUFFER +; +; +; IDS MUST BE >= 1 AND <= 8. +; +; ALL INCOMING MESSAGES ARE CHECKED FOR LEGALITY. BAD MESSAGES ARE FLUSHED. +; A NUMBER IN THE STATUS LINE INDICATES THE NUMBER OF BAD MESSAGES RECIEVED. +; INFORMATION CONCERNING THE LAST BAD MESSAGE RECIEVED IS SAVED FOR LATER EVALUATION. +; +; ALL CHARACTERS SUBROUTINES AND THE DJMS TABLE IS UP IN THE CONSOLE PROGRAM (SSV). +; THE DJMS TABLE IS ACCESSED THROUGH LOCATION 24 OCTAL WHICH STARTS WITH THE ENTRY +; FOR OCTAL CODE 40 (SPACE). +; +; ANY CHARACTERS TYPED ON CONSOLE (>014') ARE SENT TO PDP-10 AND SHOULD +; BE ECHOED TO ALL! CONSOLES INCLUDING THE ORIGINATOR. +; +; ANY OTHER CHARACTERS RECEIVED BY IMLAC ARE DISPLAYED IN A +; RING BUFFER AT THE BOTTOM OF THE PICTURE. +; +; THE FIRST ANNOUNCE NEW PLAYER MESSAGE THE IMLAC RECIEVES DEFINES ITS ID. +; +; THIS VERSION REQUIRES A GRAPHICS IMLAC WITH LONG VECTOR HARDWARE +; MULTI-LEVEL SUBROUTINING, AND 8K DISPLAY ADDRESSING MOD. +; +; THE MESSAGE SWITCHING PROGRAM ON THE 10 MUST ALSO KEEP TRACK +; OF THE CURRENT SCORES OF ALL THE PLAYERS SO WHEN A NEW PLAYER +; JOINS INTO A ALREADY EXISTING GAME HE MAY RECIEVE THE CURRECT +; SCORES OF ALL THE PLAYERS. +; +; WHEN AN IMLAC WANTS TO JOIN AN EXISTING MAZE THE FOLLOWING OCCURS: +; 1) THE MAZE PROGRAM IS LOADED INTO HIS IMLAC. +; 2) THE CURRENT MAZE IS LOADED ON TOP OF THE DEFAULT MAZE +; IF THE DEFAULT MAZE IS NOT BEING USED. +; 3) A TYPE 4 MESSAGE IS SENT TO ALL IMLACS ANOUNCING THE +; NEW IMLAC. THE NEW IMLAC GETS HIS ID FROM THIS MESSAGE. +; 4) TYPE 4 MESSAGES FOR ALL THE OTHER PLAYERS ARE SENT TO +; THE NEW IMLAC. +; +; WRITTEN BY: +; +; HOWARD PALMER STANFORD ORIGINAL IDEA & STAND-ALONE VERSION OF MAZE +; STEVE COLLEY CAL TECH ORIGINAL IDEA OF MAZE, STAND-ALONE MAZE +; & CRUDE MULTIPLE PLAYERS +; GREG THOMPSON M.I.T. FULL MULTIPLE PLAYERS ADDITIONS +; DAVE LEBLING M.I.T. PDP-10 MESSAGE SWITCHER AND ROBOTS +; KEN HARRENSTEIN M.I.T. PDP-10 part of fast interaction protocol +; CHARLES FRANKSTON M.I.T. IMLAC part of fast interaction protocol. + +; actual program begins here + +;XXX.INSRT IMSRC;IMDEFS > + ; To keep midas from barfing 'RES' at use of these syms in prg. +;XXXIF1 EXPUNGE FIX,MOVE,PTR,EXP + +FAST==1 ; to assemble fast-protocol version. +CHEAT==0 ; conditional to assemble cheater stuff + +;XXX.MLLIT==1 + + LOC 10000' + +;XXX.ADDR.=1 ; 8k addressing for display opcodes + + JMP START ; starting point + JMP RESTART ; restarting entry point + JMP LEAVE ; entry to return to ssv (on error) + JMP RETN ; reenter maze main loop + + ; auto increment register definitions +DPTR=10' ; index loc 10 used as pointer +VISPT=11' +VISPT2=12' +VISPT3=13' +VISPT4=14' +VISPT5=15' + ; index location 16' and 17' used by interupt routine + + LOC 10020' + +; here is the 32 word maze: no four squares may be empty and share a +; common corner, and all outside walls must be filled in + +MAZE: 177777 ? 106401 ? 124675 ? 121205 ? 132055 ? 122741 ? 106415 ? 124161 + 121405 ? 135775 ? 101005 ? 135365 ? 121205 ? 127261 ? 120205 ? 106765 + 124405 ? 166575 ? 122005 ? 107735 ? 120001 ? 135575 ? 105005 ? 125365 + 125225 ? 121265 ? 105005 ? 135375 ? 100201 ? 135675 ? 110041 ? 177777 + + +; here to wait for the loader signal + +LOADER: RSF + JMP .-1 + CLA + RRC + AND [177] + SAM [^A] + JMP LOADER + RSF + JMP .-1 + CLA + RRC + AND [177] + SAM [^A] + JMP LOADER + JMP @[40] + +; dstat, dx, dy, dir is my position and point into info table + +DSTAT: 0 ; status flag +DX: 0 ; x position of this imlac +DY: 0 ; y position of this imlac + ; start out big so we won't show up on map +DIR: 0 ; direction he is pointing + ; bits 14 and 15 have meaning + ; bit 14,bit 15 + ; 0 0 north + ; 0 1 east + ; 1 0 south + ; 1 1 west + +NEXTBIT:0 +ETEM: 0 +WPTR: 0 +WPTR2: 0 +CNT: 0 ; counters +CNT2: 0 +KILL: 0 ; last player killed by this imlac +PTR4: 0 ; pointers +PTR3: 0 +PTR2: 0 +PTR: 0 +XDELTA: 0 +YDELTA: 0 +BEAMBIT:0 +LASTRIG:0 +LASTLEF:0 +HALLNGTH:0 +MYREAL: 0 ; the real id of this imlac +MYBIT: 0 ; the id of this imlac +MYBIT1: 0 ; mybit-1 (normalize to 0-7) +IID: 0 ; temporary imlac id used for see routine +MPTR: 0 +BIT: 0 + + ; keyboard and keyset input data + +KEY: 0 ; last key read in +KEYSET: 0 ; last value from keyset +KSCNT: 0 ; keyset repeat counter + +HOME: 1372' ; ctrl z [exits program] +BACKUP: 204' ; down arrow (backup one square) +RTURN: 205' ; right arrow (turn 90 degrees right) +MOVE: 206' ; up arrow (move forward one square) +LTURN: 210' ; left arrow (turn 90 degrees left) +TURNA: 234' ; function 4 (turn 180 degrees around) +PEEKR: 202' ; xmit (peek to the right) +FIRE: 233' ; esc (fire) +PEEKL: 216' ; page xmit (peek to the left) +ERING: 214' ; form (erase ring buffer) +TOPVW: 211' ; tab (get a top view of maze) + +TEM1: 0 ; temporarys +TEM2: 0 +TEM3: 0 + +TOPSW: -1 ; indicates whether a top or inside view + +IFN FAST,[ +RELCNT: 0 ;counter of rel positions between abs +] + +; start of game + +START: IOF ; disable any interupts + CLA + DAC ICNT ; set no message pending + DAC MYBIT ; indicate we have no id + MSW ; set initial keyset value + DAC KEYSET + LAC [7776'] ; limit ssv's display list + DAC @[25'] + JMS ERASE ; reset ring buffer + LAC [MESAGE-1] ; set up you were shot message + DAC 11' + LAC [YWSB-1] + DAC 12' + LWC 17. + DAC CNT2 +SETUPN: LAC @12' + JMS GETCHR + DAC @11' + ISZ CNT2 + JMP SETUPN +; +; now wait for our id +; + JMS CHARIN + LAC MYBIT ; wait for identifier message to come in + ASN ; has it been set yet? + JMP .-3 ; no, keep waiting + STA + DAC TOPSW ; display top view +; +; place player in maze +; +RESTART:KCF ; reset keyboard +RESET1: JMS RANDOM + AND [17'] + DAC @DX + JMS RANDOM + AND [37'] + DAC @DY + JMS PNTBIT + LAC @MPTR + AND BIT + ASZ + JMP RESET1 + JMS RANDOM + AND [3] + DAC @DIR + LAC [AD1] ; reset to main screen + DAC WHICHD +IFN FAST,[ + CLA + DAC RELCNT ; force abs. position out first thing. +] + JMP RETN4 + +RETN2: CLA ; look from inside maze + DAC TOPSW +; +; send new position to 10 +; +RETN4: STA ; set to playing status + DAC @DSTAT + JMS PRINT ; build current display +IFE FAST,[ + JMS ABSMSG ; send out absolute position + JMP RETN +] +IFN FAST,[ + LAC RELCNT + ASM ; if ge 0, something wants an abs pos sent out. + JMS ABSMSG ; sigh, send absolute + JMP RETN ; and continue + +RELMSG: 0 + IOR MYBIT1 + JMS SEND1 + ISZ RELCNT + NOP + JMP @RELMSG + +] ;end of ifn fast + +; send new absolute position +ABSMSG: 0 +IFN FAST,[ + LWC 20 ;number of rel messages before an abs + DAC RELCNT ;set counter +] + LAW 2 ; send moved message code + JMS SEND1 + LAC MYBIT ; send my id + JMS SEND1 + LAC @DIR ; send new direction + AND [3] ; send only lower 2 bits! + IOR [100'] + JMS SEND1 + LAC @DX ; send new x location + IOR [100'] + JMS SEND1 + LAC @DY ; send new y location + IOR [100'] + JMS SEND1 + JMP @ABSMSG ;return + +; +; main loop +; +RETN: JMS CHARIN ; get stuff from ten + JMS DISP ; maintain display +RETN3: KSF ; no, is there a key down? + JMP KSCHK ; no, now check keyset + CAL ; yes, read the key + KRC + DAC KEY + LWC 8. ; set up to rept key (time before start repeating) + DAC REPTCNT +REPT: LAC KEY +KEYREPT:SAM HOME ; is it ctrl-z? + JMP KEYCHK + LAC MYBIT ; remove me from maze + DAC ININFO + JMP GONER +; +; check keyset +; +KSCHK: CLA + MSW + SAM KEYSET ; has it changed? + JMP .+2 ; yes, so do something about it + JMP RETN ; no, re-enter main loop + DAC KEYSET ; save new value + LWC 15. ; set up to repeat + DAC KSCNT +KSREPT: LAC [BACKUP] ; now figure which key to simulate + DAC PTR + LAC KEYSET + IOR [174340'] ; turn on bits to ignore + CMA\CLL + ASN + JMP RETN + RAR 1 + LSZ + JMP GOTIT + XAM PTR + IAC + XAM PTR + JMP .-6 + +GOTIT: LAC @PTR ; get appropriate key + DAC KEY + JMP KEYREPT +; +; see if we are blowing up +; +KEYCHK: LAC BIGEXP ; if so then ignore keys + ASZ + JMP RETN ; yes, so wait it out +; +; check for various keyboard commands +; +KEY1: LAC KEY + SAM RTURN ; turn right? + JMP KEY2 + ISZ @DIR + NOP +IFN FAST,[ + LAC [20'] ; new protocol for right turn + JMS RELMSG +] + JMP RETN2 + +KEY2: SAM LTURN ; left turn? + JMP KEY3 + LAC @DIR + SUB [1] + DAC @DIR +IFN FAST,[ + LAC [30'] ; new protocol for left turn + JMS RELMSG +] + JMP RETN2 + +KEY3: SAM MOVE ; move forward? + JMP KEY4 + JMS MOVER + JMP RETN +IFN FAST,[ + LAC [150'] ; new protocol for move forward + JMS RELMSG +] + JMP RETN2 + +KEY4: SAM PEEKL ; peek left? + JMP KEY5 + JMS MOVER + JMP RETN +;ifn fast,[ +; lac [150'] ; new protocol for move forward +; ior mybit1 ; insert id +; jms send1 +;] + LAC @DIR + SUB [1] + DAC @DIR + JMS HOLD + LAC @DIR + SUB [1] + DAC @DIR +PEEKER: JMS MOVER + JMP RETN + JMS ADIR2 + JMP RETN2 + +KEY5: SAM PEEKR ; peek right? + JMP KEY6 + JMS MOVER + JMP RETN + ISZ @DIR + NOP + JMS HOLD + ISZ @DIR + NOP + JMP PEEKER + +KEY6: SAM TURNA ; turn around? + JMP KEY7 + JMS ADIR2 +IFN FAST,[ + LAC [140'] ; new protocol for turn-around + JMS RELMSG +] + JMP RETN2 + +KEY7: SAM BACKUP ; back up? + JMP KEY8 + JMS ADIR2 + JMS MOVER + JMP KEY7NP + JMS ADIR2 +IFN FAST,[ + LAC [160'] ; new protocol for move backwards. + JMS RELMSG +] + JMP RETN2 + +KEY7NP: JMS ADIR2 ; can't move backwards, restore direction. + JMP RETN + +ADIR2: 0 + LAC @DIR + ADD [2] + DAC @DIR + JMP @ADIR2 + +KEY8: SAM FIRE ; fire? + JMP KEY9 +; +; look for visible opponent to shoot at +; + LAC [THING+4] ; set display list pointer + DAC PTR + LWC 8. ; 8 possible imlacs + DAC CNT2 + LAC [IM1+4] ; set info table pointer + DAC VISPT + IAC + DAC PTR2 +CHKNEXT:LAC @PTR ; get display body + SAM [DNOP] ; is he visible? + JMP NOTDNOP +NOTHIM: LAC VISPT ; no, bump pointers to next player + ADD [11.] +BUMPTRS:DAC VISPT + IAC + DAC PTR2 + LAC PTR + ADD [6] + DAC PTR + ISZ CNT2 ; did we check them all + JMP CHKNEXT ; no + JMP RETN ; yes, return + +NOTDNOP:SAM JMSEXP ; could he already be exploding? + JMP FOUNONE ; no, so we found a opponent to shoot at + JMP NOTHIM ; yes, so don't fire at him +FOUNONE:LAC @PTR2 ; are we already firing on this guy? + ASZ ; if so then don't fire again + JMP NOTHIM + LWC 80. ; set 2 second delay to allow player to dodge it + DAC @VISPT + LAC @DIR + DAC @VISPT + LAC @DX ; save our location + DAC @VISPT + LAC @DY + DAC @VISPT + LAC VISPT ; now check next player + ADD [7] + JMP BUMPTRS +; +; does he want screen erased? +; +KEY9: SAM ERING + JMP VIEWTOP ; no + JMS ERASE ; yes, so erase it + JMP RETN ; then return to main loop +; +; look at maze from top +; +VIEWTOP:SAM TOPVW ; look at maze from top? +IFE CHEAT, JMP SENDIT +IFN CHEAT, JMP CHNGP + STA ; yes, set flag for top view + DAC TOPSW + JMS PRINT ; and build display +VTWAIT: JMS CHARIN + JMS DISP + CAL + KRB + SAM TOPVW ; display top view as long + JMP .+2 ; as key is held down + JMP VTWAIT + CLA ; look inside again + DAC TOPSW + JMS PRINT + JMP RETN + +IFN CHEAT,[ +; +; secret id switching keys +; +; ctrl-rept 0 to : +; 0 return to original id +; n changes to id n +; : complement forward square +; +CHNGP: SUB [3260'] + ASP + JMP SENDIT + SAM [10.] ; ctrl-rept : ? + JMP .+2 ; no + JMP ZAP ; yes + ASN ; ctrl-repeat 0? + LAC MYREAL ; if so get my real id + SUB [9.] + ASM + JMP RETN + ADD [9.] + DAC TEM1 + SAL 3 + ADD [IML1-8.] ; see if this player is playing + DAC TEM2 ; by seeing if his name exists + LAC [DJMS D040,] + SAM @TEM2 + JMP .+2 + JMP RETN + LAC TEM1 + JMS GETD ; change us to new id + JMS PRINT ; display new view + JMP RETN + +ZAP: JMS MOV ; set up ptrs to next square + LAC @MPTR ; now flip bit + XOR BIT + DAC @MPTR + JMS PRINT ; rebuild display + JMP RETN +] ;end of ifn cheat. + +; +; send other characters to 10 +; +SENDIT: +IFN CHEAT, ADD [3260'] + AND [177'] + SAM [15'] ; cr? + JMP .+2 + JMP SENDOK + SUB [40'] ; control code? + ASP + JMP RETN ; yes, so ignore it + SUB [100'] ;it's a 40-177 char, see if it's 140-177 + ASP + ADD [40'] ;no, it's 40-137, get char back. + ADD [100'] ;yes, 140-177. make it uppercase. + +SENDOK: JMS SEND1 ; now send it to 10. char is either 40-137 or 15. + JMP RETN +; +; hold a position for as long as the same key is held down +; +HOLD: 0 + JMS PRINT ; update display +HOLD1: JMS CHARIN ; get stuff from ten + JMS DISP ; maintain display + CAL + KRB + SAM KEY ; is the same key down? + JMP .+2 ; no, test key set for key still down + JMP HOLD1 ; yes, hold this location +TSTKS: CLA + MSW + ASN ; do we have the hardware? + JMP @HOLD ; no, just return + AND [2400'] ; if either peek left or right still + XOR [2400'] + ASZ ; down then hold position + JMP HOLD1 + JMP @HOLD ; return + +; +; point mptr to appropriate word maze (y) +; and bit to appropriate bit in word for our +; current location +; +PNTBIT: 0 + LAC [MAZE] + ADD @DY + DAC MPTR + LAC @DX + ASZ + JMP PNT1 + LAC [100000'] + JMP PNT2 + +PNT1: CIA + DAC CNT + CLL + LAC [100000'] + RAR 1 + ISZ CNT + JMP .-2 +PNT2: DAC BIT + JMP @PNTBIT +; +; move forward one square +; +MOV: 0 + CLA ; clear out increments + DAC TEM1 ; y increment + DAC TEM2 ; x increment + JMS PNTBIT ; position to current position + LAC @DIR ; see which direction we are heading + AND [1] + ASZ + JMP MOVEWE + JMS CREMENT ; move north or south + DAC TEM1 + ADD MPTR + DAC MPTR + JMP @MOV ; return + +MOVEWE: JMS CREMENT ; move west or east + AND [20'] + IOR [RAL 1] + DAC NOPER + LAC BIT + CLL +NOPER: NOP + DAC BIT + JMS CREMENT + CIA + DAC TEM2 ; set x increment + JMP @MOV + +MOVER: 0 + JMS MOV ; move forwards one square + LAC @MPTR ; see if it is a wall + AND BIT + ASZ + JMP @MOVER ; a open square + LAC TEM2 ; update x to this square + ADD @DX + DAC @DX + LAC TEM1 ; update y + ADD @DY + DAC @DY + ISZ MOVER ; and indicate we moved by skipping + JMP @MOVER +; +; return 1 or -1 according to which direction we are heading +; +CREMENT: 0 + LAC @DIR + SAR 1 + AND [1] + ASN + LAC [-1] + JMP @CREMENT + +; +; refreshing routine +; +REFR: 0 + DSF + SSF + JMP @REFR + SCF + LAC WHICHD ; get appropriate display list address + DLA + DON + STA ; indicate 40 cycle sync + DAC SYNC + JMP @REFR + +WHICHD: AD1 ; contains address of current display +SYNC: 0 ; 40 cycle sync flag +BIGEXP: 0 ; our explosion counter +JMSEXP: DJMS EXPLOSIN + +EXP: DDSP + DDSP + DDSP +INC1: DDSP +INC2: DDSP +INC3: DDSP + DRJM + +EXPLOSIN:DLXA 1000 + DJMS WAIT + DSTS 3 + INC E,D03 + INC D03,100' + DJMS EXP + INC E,D00 +INC4: INC D00,D00 + INC 100',100' + DJMS EXP + INC E,D00 +INC5: INC D00,D00 +INC6: INC D00,D00 + INC 100',100' + DJMP EXP +; +; keep display and timed occurances running +; +DISP: 0 + JMS REFR ; keep up display + LAC SYNC ; has the 40 cycle sync occured yet? + ASM + JMP @DISP ; no, just return + CLA ; yes, reset it + DAC SYNC +; +; check for our blowing up +; + LAC BIGEXP ; are we blowing up? + ASN + JMP CHKOPP ; no + ISZ BIGEXP ; is it finshed? + JMP UPDTBIG ; no, update it + JMP RESTART ; yes, now restart the imlac +; +; update 4 pointers +; +BUMPPTS:0 + LAC VISPT2 + ADD [5] + DAC VISPT2 + LAC VISPT3 + ADD [5] + DAC VISPT3 + LAC VISPT4 + ADD [5] + DAC VISPT4 + LAC VISPT5 + ADD [5] + DAC VISPT5 + JMP @BUMPPTS +; +; update a dlxa or dlya +; +UPDTSUB:0 + LAC @VISPT2 ; get old dlxa or dlya + ADD @VISPT ; add in increment + AND [1777'] ; mask to position bits + DAC TEM2 ; save new position + LAC @VISPT3 ; get old dlxa or dlya again + AND [30000'] ; get dlxa or dlya opcode bit + IOR TEM2 ; or in position + DAC @VISPT4 ; store it back on top of old dlxa or dlya + JMP @UPDTSUB ; return +; +; update our explosion routine +; +UPDTBIG:LWC 8. ; eight pieces to update + DAC CNT ; set counter + LAC [BIGX1INC-1] ; set pointer to update list + DAC VISPT + LAC [BIGX1-1] ; set pointers to display list + DAC VISPT2 + DAC VISPT3 + DAC VISPT4 +UPDTLOOP:JMS UPDTSUB ; update x + JMS UPDTSUB ; update y + JMS BUMPPTS ; update pointers + ISZ CNT ; have i done all 8 bits? + JMP UPDTLOOP ; no, do next one +; yes, fall through +; opponents explosion routine +; +CHKOPP: LAC [THING-2] ; check explosion timers + DAC PTR + LAC [IM1-2] + DAC PTR2 + LWC 9. + DAC CNT2 +OPPBUMP:LAC PTR + ADD [6.] + DAC PTR + LAC PTR2 + ADD [11.] + DAC PTR2 + SUB [9.] + DAC PTR3 + ISZ CNT2 + JMP OPPLOOP + JMP UPDATE + +OPPLOOP:LAC @PTR2 ; see if there is an explosion on this player + ASN + JMP OPPBUMP + ISZ @PTR2 ; yes, but has it run out? + JMP OPPBUMP + CLA + DAC @PTR3 ; yes, so indicate player unactive + LAC [DNOP] + DAC @PTR ; turn his explosion off + JMP OPPBUMP +; +; keep updateing random explosion +; +UPDATE: JMS RANDOM ; update explosion (get random number) + AND [77'] + DAC TEM1 +;XXX IOR [INC E,B00] + DAC INC1 + AND [77'] + SAL 3 + SAL 3 + SAL 2 + DAC TEM2 + ADD TEM1 +;XXX XOR [INC 344,344] + DAC INC2 + LAC TEM2 +;XXX IOR [INC B00,100'] + DAC INC3 + JMS RANDOM + AND [77'] + DAC TEM1 + SAL 3 + SAL 3 + SAL 2 + IOR TEM1 + IOR [140300'] + DAC INC4 + XOR [22044'] + DAC INC5 + DAC INC6 + ; falls through to bullet checking routine + +; +; check for bullet fired and if it hits its mark +; +CHKBULL:LAC [THING+3] + DAC PTR2 + IAC + DAC PTR3 + LAC [IM1+5] + DAC PTR + SUB [5] + DAC SEEPT + LWC 8. ; 8 imlacs to check + DAC CNT2 +DISP1: LAC @PTR + ASZ + JMP DISP2 +DISPNO: LAW 11. + ADD PTR + DAC PTR + SUB [5] + DAC SEEPT + LAW 6 + ADD PTR2 + DAC PTR2 + IAC + DAC PTR3 + ISZ CNT2 + JMP DISP1 +; +; now check for repting keys +; + LAC REPTCNT ; rept on? + ASN + JMP CHKKS ; no, but check for keyset repeat + ISZ REPTCNT + JMP CHKKS + CLA + KRB + SAM KEY + JMP CHKKS + SAM MOVE ; only repeat : move forwards? + JMP .+2 + JMP .+3 + SAM BACKUP ; move backwards? + JMP CHKKS + LWC 3. + DAC REPTCNT + JMP REPT ; do key again + +REPTCNT:0 + +CHKKS: LAC KSCNT ; keyset rept on? + ASN + JMP @DISP ; no, so return + ISZ KSCNT + JMP @DISP + CLA + MSW + SAM KEYSET ; is it the same?? + JMP @DISP + SAM [3433'] ; move forwards? + JMP .+2 + JMP .+3 + SAM [3436'] ; move backwards? + JMP @DISP + LWC 3. + DAC KSCNT + JMP KSREPT +; +; if there is still a player visible then kill it +; +DISP2: ISZ @PTR ; is it totally fired yet? + JMP DISPNO + LAC @SEEPT ; is he still alive + ASM + JMP DISPNO + ISZ PTR + LAC @PTR ; get our old direction + AND [3] + DAC @[SAVEDIR] + ISZ PTR + LAC @PTR ; get our old x + DAC @[SAVEDX] + ISZ PTR + LAC @PTR ; get our old y + DAC @[SAVEDY] + LAC PTR ; reset pointer + SUB [3] + DAC PTR + SUB [5] + DAC PTR4 ; set up pointer for see routine + LAW 9. + ADD CNT2 + DAC KILL + DAC IID + JMS @[SEE] ; see if player hasn't moved out of the way + JMP DISPNO ; he made it in time + COA ; no, so shoot him down + DAC @PTR4 ; indicate that he is now dying + LAW 3 ; send player killed message + JMS SEND1 + LAC MYBIT ; send my id + JMS SEND1 + LAC KILL ; send id of player killed + JMS SEND1 + LAC [DNOP] + DAC @PTR2 ; turn off eyes + LAC JMSEXP ; put in explosion in place of id + DAC @PTR3 + LAC PTR4 ; point to explosion count + ADD [9.] + DAC PTR4 + LWC 60. ; set explosion to last 1 1/2 sec. + DAC @PTR4 + LAC MYBIT ; bump our score + JMS UPSCORE + JMP DISPNO + +; +; send a word to the 10 +; +SEND1: 0 + DAC TEM1 ; save character + JMS REFR ; keep display up + TSF ; wait for output flag + JMP .-2 ; not ready yet + LAC TEM1 ; get character back + TPC ; transmit character + LAC TEM1 + JMP @SEND1 ; return +; +; random number generator +; +RANDOM: 0 + LAC RND + ADD MYBIT + RAL 2 + DAC RND + XOR @RND + DAC RND + JMP @RANDOM + +RND: 0 + +; +; update score in info tables and in display list +; enter with id in ac +; +UPSCORE:0 + DAC SAVEID ; save id + LWC 8. ; now turn all ! and  * off + DAC UPCNT + LAC [SCORE+3] + DAC PTSCORE +CLRALL: LAC [DNOP] + DAC @PTSCORE + LAW 5 + ADD PTSCORE + DAC PTSCORE + LAC [DNOP] + DAC @PTSCORE + LAW 9. + ADD PTSCORE + DAC PTSCORE + ISZ UPCNT + JMP CLRALL + LAC SAVEID ; now bump shooting players score + JMS POSITION ; position us to correct table + LAC ITEMP1 ; bump pointer to count + ADD [4] + DAC ITEMP1 + ISZ @ITEMP1 ; bump score by one + NOP + LAC SAVEID ; point to shooting players score in display + JMS POINTSC + JMS SCOREIT + LAW 41' ; insert exclamation mark + JMS GETCHR + DAC @PTSCORE + LAC KILL ; now do shot player shot count + JMS POSITION + ADD [10.] + DAC ITEMP1 + ISZ @ITEMP1 ; bump it also + NOP + LAC KILL ; next update the shot count in display + JMS POINTSC + ADD [5] + DAC PTSCORE + JMS SCOREIT + LAW 52' ; insert asteric + JMS GETCHR + DAC @PTSCORE + BEL ; ring bell indicating player shot + JMP @UPSCORE ; return + +POINTSC:0 + CIA + DAC UPCNT + LAC [SCORE-14.] ; point to display list to update score + ADD [14.] + ISZ UPCNT + JMP .-2 + DAC PTSCORE + JMP @POINTSC +; +; score generator subroutine +; enter with itemp1 -> score to be converted +; ptscore -> 3 words where djmses are to be placed +; leave with ptscore -> word 4 (one past the 3 djmses) +; +SCOREIT:0 + CLA + DAC HUNDR + DAC TENS + DAC ONES + LAC @ITEMP1 ; get current score + SUB [1000.] ; make it mod 1000 + ASM + JMP .-2 + ADD [1000.] + DAC @ITEMP1 ; store it back for posterity + SUB [100.] + ASP + JMP DOTENS + ISZ HUNDR + JMP .-4 + +DOTENS: ADD [100.] + SUB [10.] + ASP + JMP DOONES + ISZ TENS + JMP .-4 + +DOONES: ADD [10.] + DAC ONES + LAC HUNDR + ASN + JMP ZROSUP + JMS DODIGIT + LAC TENS +DTENS: JMS DODIGIT + LAC ONES + JMS DODIGIT + JMP @SCOREIT +ZROSUP: LWC 20' + JMS DODIGIT + LAC TENS + ASN + LWC 20' + JMP DTENS + +DODIGIT:0 +;XXX ADD [60'-40'] + ADD @[24'] + DAC UPCNT + LAC @UPCNT +DACIT: DAC @PTSCORE + ISZ PTSCORE + JMP @DODIGIT + +SAVEID: 0 +PTSCORE:0 +UPCNT: 0 +ONES: 0 +TENS: 0 +HUNDR: 0 + +; +; build a long vector instruction +; +LV: 0 + LAC XDELTA + AND [40000'] + DAC TEM3 + LAC XDELTA + ASP + CIA + DAC XDELTA + LAC YDELTA + AND [20000'] + IOR TEM3 + DAC TEM3 + LAC YDELTA + ASP + CIA + DAC YDELTA + SUB XDELTA + ASM + JMP LV1 + AND [7777'] + IOR [40000'] + DAC @DPTR + LAC XDELTA + IOR BEAMBIT + DAC @DPTR + LAC YDELTA + JMP LV2 + +LV1: CIA + AND [7777'] + IOR [40000'] + DAC @DPTR + LAC YDELTA + IOR BEAMBIT + DAC @DPTR + LAC XDELTA + IOR [10000'] +LV2: IOR TEM3 + DAC @DPTR + JMP @LV + +; +; generate new display +; send i moved message to 10 +; set up possible visible opponents +; +PRINT: 0 + LAC @DSTAT ; check status of player + ASZ ; is he not playing? + JMP INGAME ; no + LAW 116' ; yes, display a 'n' then + JMP SETST + +HEACT: LAC [DJMS D040,] ; if he is active then don't display anything + JMP SETST2 + +INGAME: ASP ; is he dying? + JMP HEACT ; no, then he is active! + LAW 104' ; yes, then display a 'd' for dead +SETST: JMS GETCHR ; get the character +SETST2: DAC @[DEAD] ; put it in display + LAC @DIR ; first do direction letter + AND [3] + ADD [DIRLET] + DAC TEM1 + LAC @TEM1 + JMS GETCHR + DAC @[LETTER] + LAC TOPSW ; see if top or inside view + ASN + JMP INSIDE +TOPV: LAC [DLIST-1] ;write over maze display list + DAC DPTR +;XXX LAC [DLYA 1600',] + DAC @DPTR +;XXX LAC [DJMS DNL3,] + DAC @DPTR + LWC 32. + DAC CNT + LAC [MAZE-1] + DAC PTR + LAC @DY + SAL 3 + SAL 1 + ADD @DX + IAC + CIA + DAC PTR4 +NXTW: LWC 16. + DAC CNT2 + LAC [100000'] + DAC BIT + ISZ PTR +NXTB: ISZ PTR4 ; have we reached our location? + JMP .+2 + JMP ME + LAC @PTR ; see is square open or closed + AND BIT + ASZ + JMP ON + LAC [DJMS SPMAZE,] + JMP ON+1 + +ME: LAC @DIR ; figure out which arrow to use + AND [3] + ADD [ARROWS] + DAC PTR3 + LAC @PTR3 + JMP ON+1 + +ON: LAC [DJMS CHARMZE,] + DAC @DPTR + CLL + LAC BIT + RAR 1 + DAC BIT + ISZ CNT2 ; this line done? + JMP NXTB + LAC [DJMS DNL3,] + DAC @DPTR + ISZ CNT + JMP NXTW ; this row done? + CLA ; dhlt at end + DAC @DPTR + JMP @PRINT + +INSIDE: JMS PNTBIT + LAC [WALLS] + DAC WPTR + IAC + DAC WPTR2 + CLA + DAC CNT + LAC [DLIST-1] + DAC DPTR + LAC [20000'] + DAC BEAMBIT + DSN + JMP .-1 + LAC @DIR + AND [1] + ASZ + JMP EW + JMS CREMENT + DAC TEM1 + CIA + AND [20'] + IOR [RAL 1] + DAC NOP2 + XOR [20'] + DAC NOP3 +PRNT1: LAC MPTR + ADD TEM1 + DAC NEXTBIT + LAC @NEXTBIT + AND BIT + DAC NEXTBIT + LAC BIT + CLL +NOP2: NOP + AND @MPTR + JMS LBIT + LAC BIT + CLL +NOP3: NOP + AND @MPTR + JMS RBIT + LAC MPTR + ADD TEM1 + DAC MPTR + LAC NEXTBIT + JMS ENDCHECK + LAC CNT + SAM [31.] ; special check + JMP .+2 + JMP CLOSEOUT + ISZ WPTR + ISZ WPTR2 + ISZ CNT + JMP PRNT1 +EW: JMS CREMENT + DAC TEM1 + AND [20'] + IOR [RAL 1] + DAC NOP4 + DAC NOP5 +PRNT2: LAC BIT + CLL +NOP5: NOP + AND @MPTR + DAC NEXTBIT + LAC MPTR + ADD TEM1 + DAC TEM2 + LAC BIT + AND @TEM2 + JMS LBIT + LAC MPTR + SUB TEM1 + DAC TEM2 + LAC BIT + AND @TEM2 + JMS RBIT + LAC BIT + CLL +NOP4: NOP + DAC BIT + LAC NEXTBIT + JMS ENDCHECK + ISZ WPTR + ISZ WPTR2 + ISZ CNT + JMP PRNT2 + +LBIT: 0 + DAC LASTLEF + ASZ + JMP LB1 + LAC @WPTR ; hallway + CIA + ADD WALLS + IOR [10000'] + DAC @DPTR + LAC @WPTR + ADD WALLS + IOR [20000'] + DAC @DPTR + LAC [DJMS WAIT,] + DAC @DPTR + LAC CNT + ASN + JMP LB2 + CAL + DAC XDELTA + LAC @WPTR + SAL 1 + CIA + DAC YDELTA + JMS LV +LB2: LAC @WPTR2 + CIA + ADD WALLS + IOR [20000'] + DAC @DPTR + LAC [DJMS WAIT,] + DAC @DPTR + CAL + DAC YDELTA + LAC @WPTR + SUB @WPTR2 + DAC XDELTA + JMS LV + JMS FIX + CAL + DAC XDELTA + LAC @WPTR2 + SAL 1 + DAC YDELTA + JMS LV + LAC [20000'] + DAC BEAMBIT + CAL + DAC YDELTA + LAC @WPTR2 + SUB @WPTR + DAC XDELTA + JMS LV + JMP @LBIT + +LB1: LAC @WPTR2 ; wall + CIA + ADD WALLS + IOR [10000'] + DAC @DPTR + LAC @WPTR2 + ADD WALLS + IOR [20000'] + DAC @DPTR + LAC [DJMS WAIT,] + DAC @DPTR + LAC @WPTR + SUB @WPTR2 + DAC YDELTA + CIA + DAC XDELTA + JMS LV + LAC @WPTR + CIA + ADD WALLS + IOR [10000'] + DAC @DPTR + XOR [30000'] + DAC @DPTR + LAC [DJMS WAIT,] + DAC @DPTR + LAC @WPTR + SUB @WPTR2 + DAC XDELTA + DAC YDELTA + JMS LV + JMP @LBIT + +RBIT: 0 + DAC LASTRIG + ASZ + JMP RB1 + LAC @WPTR ; hallway + ADD WALLS + IOR [10000'] + DAC @DPTR + XOR [30000'] + DAC @DPTR + LAC [DJMS WAIT,] + DAC @DPTR + LAC CNT + ASN + JMP RB2 + CAL + DAC XDELTA + LAC @WPTR + SAL 1 + CIA + DAC YDELTA + JMS LV +RB2: LAC @WPTR2 + CIA + ADD WALLS + IOR [20000'] + DAC @DPTR + LAC [DJMS WAIT,] + DAC @DPTR + CAL + DAC YDELTA + LAC @WPTR2 + SUB @WPTR + DAC XDELTA + JMS LV + JMS FIX + CAL + DAC XDELTA + LAC @WPTR2 + SAL 1 + DAC YDELTA + JMS LV + LAC [20000'] + DAC BEAMBIT + CAL + DAC YDELTA + LAC @WPTR + SUB @WPTR2 + DAC XDELTA + JMS LV + JMP @RBIT + +RB1: LAC @WPTR2 ; wall + ADD WALLS + IOR [10000'] + DAC @DPTR + XOR [30000'] + DAC @DPTR + LAC [DJMS WAIT,] + DAC @DPTR + LAC @WPTR + SUB @WPTR2 + DAC XDELTA + DAC YDELTA + JMS LV + LAC @WPTR2 + ADD WALLS + IOR [10000'] + DAC @DPTR + LAC @WPTR2 + CIA + ADD WALLS + IOR [20000'] + DAC @DPTR + LAC [DJMS WAIT,] + DAC @DPTR + LAC @WPTR + SUB @WPTR2 + DAC XDELTA + CIA + DAC YDELTA + JMS LV + JMP @RBIT + +FIX: 0 + CLL + LAC NEXTBIT + ASN + STL + CLA + RAR 3 + DAC BEAMBIT + JMP @FIX + +ENDCHECK:0 + ASN + JMP @ENDCHECK +CLOSEOUT:LAC CNT ; set length of hallway + DAC HALLNGTH + LAC @WPTR2 + ADD WALLS + IOR [20000'] + DAC @DPTR + XOR [30000'] + DAC @DPTR + LAC [DJMS WAIT,] + DAC @DPTR + CAL + DAC YDELTA + LAC @WPTR2 + SAL 1 + DAC ETEM + CIA + DAC XDELTA + JMS LV + LAC LASTLEF + ASZ + LAC [20000'] + DAC BEAMBIT + CAL + DAC XDELTA + LAC ETEM + CIA + DAC YDELTA + JMS LV + LAC [20000'] + DAC BEAMBIT + CAL + DAC YDELTA + LAC ETEM + DAC XDELTA + JMS LV + LAC LASTRIG + ASN + JMP EN1 + CAL + DAC XDELTA + LAC ETEM + DAC YDELTA + JMS LV +EN1: CAL + DAC @DPTR ; insert the dhlt + JMS VISIBLE ; now check for visible opponents + JMP @PRINT + +; +; check for visible opponents +; +VISIBLE:0 + LWC 9. ; 8 imlacs to do + DAC CNT2 + LAC [DSPTCH-1] ; set pointer to imlac info tables + DAC VISPT + LAC [THING-1] ; set up pointer to dlya's + DAC VISPT2 + IAC ; point to dsts's + DAC VISPT3 + ADD [2] ; point to djms's eyes + DAC VISPT4 + IAC ; point to djms's body (name) + DAC VISPT5 +VISLOOP:ISZ CNT2 ; have we checked all 8? + JMP .+2 ; no + JMP @VISIBLE ; yes, return + LAC @VISPT ; get address of imlac's info table + DAC SEEPT + DAC PTR4 + LAC @SEEPT ; may change it on us, so get status + ASZ ; is this imlac playing? + JMP PLAYING ; yes + JMP .+3 +BLOWING:LAC JMSEXP + JMP .+2 +NOSEE: LAC [DNOP] ; no, so make him invisble or exploding + ISZ VISPT2 ; don't change y + ISZ VISPT3 ; don't change dsts + DAC @VISPT5 ; set to invisible or exploding + LAC [DNOP] ; no eyes wanted + DAC @VISPT4 +BUMP: JMS BUMPPTS ; update pointers to next imlac + JMP VISLOOP ; now do next imlac +; +; active player +; +PLAYING:LAW 9. ; set id + ADD CNT2 + DAC IID + JMS SEEUS ; see if it can be seen + JMP NOSEE ; can't be seen + LAC @PTR4 ; could he be blowing up? + ASP + JMP HEVIS ; he is visible + JMP BLOWING ; he is blowing up + +SEEUS: 0 + LAC @DIR + AND [3] + DAC @[SAVEDIR] + LAC @DX + DAC @[SAVEDX] + LAC @DY + DAC @[SAVEDY] + JMS @[SEE] + JMP @SEEUS + ISZ SEEUS + JMP @SEEUS + +SEEPT: 0 +FTEMP: 0 + +; +; visible opponnent! +; +FIGX: 0 + LAC @[DISTAN] ; now i know i see him + ADD [WALLS] ; get currect position for name + DAC FTEMP + LAC @FTEMP + CIA + ADD WALLS + IOR [20000'] ; make it a dlya + JMP @FIGX +HEVIS: JMS FIGX ; figure the new dlxa + DAC @VISPT2 ; stick it in + LAC @[DISTAN] ; get distance to opponent + SAR 3 ; scale it to 2 significant bits + XOR [3] ; complement meanning + IOR [DSTS 0] ; make it a dsts instruction + DAC @VISPT3 ; stick it in display + JMS FIGEYES ; figure out whether or not eyes should be displayed + DAC @VISPT4 + LAC IID ; now see which opponent we can see + ADD [TNUM-1] ; get appropriate name + DAC TEM2 + LAC @TEM2 + DAC @VISPT5 ; stick appropriate djmp to name in display list + JMP BUMP ; now do next opponent + +FIGEYES:0 + LAC @DIR ; see if we are facing each other + AND [3] + ADD [4] + SUB @[IDIR] + AND [3] + ADD [EYTAB] + DAC FTEMP + LAC @FTEMP + JMP @FIGEYES +; +; shift to the left 13 subroutine +; +SAR13: 0 + SAR 3 + SAR 3 + SAR 3 + SAR 3 + SAR 1 + ASN + LAW 1 + JMP @SAR13 +; +; blow us up and start again +; +ENDER: CLA ; return to inside display + DAC TOPSW + LAC [AD2] ; set blow up display as current display + DAC WHICHD + LAC [BIGX1INC-1] ; set pointer to increment table + DAC VISPT + LWC 4. ; 8 pieces to do but we will set up 2 at a time + DAC CNT +BLOWLOOP:JMS RANDOM ; get random number + JMS SAR13 ; scale it to 2 +- sig bits + DAC TEM1 ; save for next bit + DAC @VISPT ; store delta in first x + JMS RANDOM ; get another random number + JMS SAR13 ; scale it too + DAC TEM2 ; also save it + DAC @VISPT ; store delta in first y + LAC TEM1 ; get back first delta x + CIA ; we want to balance explosion so + DAC @VISPT ; make next bit go opposite direction + LAC TEM2 ; store second y also in opposite direction + CIA + DAC @VISPT + ISZ CNT ; are we done with setting up deltas + JMP BLOWLOOP ; no, do next 2 + LAC [BIGX1-1] ; now reset display list dlxas and dlyas + DAC TEM1 + LWC 8. ; eight bits to do + DAC CNT +CLRLOOP:JMS CLRSUB ; reset the dlxa + JMS CLRSUB ; reset the dlya + LAC TEM1 ; update pointer to next bit of explosion + ADD [5] + DAC TEM1 + ISZ CNT ; did we do all eight bits? + JMP CLRLOOP ; no, do the rest + JMP RETN ; wait explosion out + +CLRSUB: 0 + ISZ TEM1 ; position pointer + LAC @TEM1 ; get dlxa or dlya + AND [30000'] ; get opcode bits + IOR [1000'] ; position to center of screen + DAC @TEM1 ; stuff it back + JMP @CLRSUB ; return + +; +; tty input handler +; +CHARIN: 0 + RSF ; tty input? + JMP EXIT ; no, so ignore interupt + CLA + RRC ; get character + AND [177'] ; mask to 7 characters + DAC INCHAR ; save it +; +; check to see if we are waiting for characters +; + LAC ICNT + ASN + JMP SETUP ; no so interpret character we got + LAC INCHAR ; yes, so stuff character in info table + DAC @17' + ISZ ICNT ; was that all we wanted? + JMP EXIT ; no, wait for more + JMP @IDSPTCH ; yes, go to routine now + +SETUP: LAC [ININFO-1] ; set up input buffer +;XXX DAC 17` + DAC 17' ;XXX - is a grav correct? I don't see mention in MIDAS +; +; check for imlac wants out message +; if he does then do the following: +; 1) indicate imlac non-active in info table +; 2) dnop his score, body, eyes and name +; +CHK1: LAC INCHAR ; get character read back + SAM [1] ; is it type 1? + JMP CHK2 ; no, check next type + LWC 1 ; wait for one more word [id] + DAC ICNT + LAC [DTYP1] ; set up dispatch address +SETOUT: DAC IDSPTCH + JMP EXIT ; wait for characters to come in + +DTYP1: JMS TESTID ; get id of imlac that wants out +GONER: ASN + JMS ERROR ; error if id = 0 + JMS POSITION ; get position into info table + DAC 17' + LWC 10. + DAC ICNT2 ; clear info entry + CLA + DAC @ITEMP1 ; clear status + DAC @17' ; clear the rest + ISZ ICNT2 + JMP .-2 + JMS GETCNT ; now clear display list score + LAC [SCORE-15.] + ADD [14.] + ISZ ICNT2 + JMP .-2 + DAC 17' + LAC [DNOP] ; dnop all digits + DAC @17' + DAC @17' + DAC @17' + DAC @17' + ISZ 17' + DAC @17' + DAC @17' + DAC @17' + DAC @17' + JMS GETCNT ; now clear displayed name + LAC [IML1-9.] + ADD [8.] + ISZ ICNT2 + JMP .-2 + DAC 17' + LAC [DJMS D040,] ; get space + DAC @17' + DAC @17' + DAC @17' + DAC @17' + DAC @17' + DAC @17' + DAC @17' + JMS GETCNT ; finally make him invisible + LAC [THING-4] + ADD [6] + ISZ ICNT2 + JMP .-2 + DAC 17' + LAC [DNOP] + DAC @17' ; clear eyes + DAC @17' ; clear body (name) + LAC ININFO ; see if it is my real it that is leaving + SAM MYREAL ; if so then exit program, return to ssv + JMP CHKNR +; +; exit routine +; send player wants out to 10 +; then return to ssv +; + LAW 1 ; send i want out code + JMS SEND1 + LAC MYREAL ; send my id + JMS SEND1 + LAC [17776'] ; restore ssv's buffer to full buffer + DAC @[25'] +LEAVE: IOF ; turn off interupts + JMP @.+1 ; now exit to ssv + 101' ; address of where to exit to + +CHKNR: SAM MYBIT ; see if it is the guy we are sim. + JMP EXIT ; if not then we are done + LAW 1 ; sent leaving message to 10 for him + JMS SEND1 + LAC MYBIT + JMS SEND1 + LAC MYREAL ; return to our real id + JMS GETD + JMS PRINT ; rebuild display + JMP EXIT +; +; check for moved to new location message +; if it is then do the folowing: +; 1) indicate player active in info table +; 2) update dir, x, and y in info table +; 3) check visibility and set it correctly +; +CHK2: +IFN FAST,[ + SUB [20'] ; no chance of move if <20 + ASP ; skip if 0 or + + JMP CHK23 ; negative, not a new protocol move. + SUB [20'] ; a move if 17< x <40 + ASP + JMP CHK22 ;ah, if 20=< and <40, definitely new-ptcl move. + SUB [100'] ; a move if ge 140 + ASP + JMP INSRTCH ; 40=< and <140, a char. +CHK22: LAC INCHAR + JMP @[CHKI20] ;new ptcl move. go hack. +CHK23: +] + LAC INCHAR + SAM [2] ; is it type 2? + JMP CHK3 ; no but see if it is type 3 + LWC 4 ; 4 more words to come + DAC ICNT + LAC [DTYP2] ; set up dispatch location + JMP SETOUT + +DTYP2: JMS TESTID + DAC IID + JMS POSITION ; indicate player is active in info tables + LAC @ITEMP1 ; get current status + ASZ + ASP ; ignore message if he is exploding + JMP .+2 + JMP EXIT + STA + DAC @ITEMP1 ; say player is active + ISZ ITEMP1 + LAC ININFO+1 ; save new direction + IOR [100'] + AND [103'] + SAM ININFO+1 + JMS ERROR ; direction greater than 3 + AND [3] ; or not in 10n format + DAC @ITEMP1 + ISZ ITEMP1 + LAC ININFO+2 ; save new x location + JMS TESTLOC ; make sure it is legal + DAC @ITEMP1 + ISZ ITEMP1 + LAC ININFO+3 ; save new y location + JMS TESTLOC + DAC @ITEMP1 + + ;re-entry pt from higher 2k + +CHK25: JMS GETCNT ; set up pointer to his display list slot + LAC [THING-7] + ADD [6] + ISZ ICNT2 + JMP .-2 + DAC 17' + JMS SEEUS ; can he be seen? + JMP NOTVIS ; no + JMS FIGX ; yes, now figure dlxa + DAC @17' ; store it away + LAC @[DISTAN] ; now figure dsts + SAR 3 + XOR [3] + IOR [DSTS 0] + DAC @17' + ISZ 17' ; skip over wait + JMS FIGEYES ; next do eyes + DAC @17' ; store them + LAC IID ; last is name + ADD [TNUM-1] + DAC ITEMP1 + LAC @ITEMP1 + DAC @17' + JMP MCHK ; see if id is ours +NOTVIS: LAC [DNOP] ; if not visible then make it so + ISZ 17' ; skip dlxa + ISZ 17' ; skip dsts + ISZ 17' ; skip over wait + DAC @17' ; clear eyes + DAC @17' ; clear body (name) +MCHK: LAC IID ; see if it is us + SAM MYBIT + JMP EXIT ; no, done + JMS PRINT ; if so then update display + JMP EXIT ; done + +; +; check for player shot message +; if so then do the following: +; 1) indicate in table that he is blowing up +; 2) bump shooting players score +; 3) generate explosion if visible +; 4) if this imlac got hit then: +; a) set life flag to shot +; b) put name of who shot us in whodidit +; +CHK3: SAM [3] ; type 3? + JMP CHK4 ; no, but try type 4 + LWC 2 ; two words to wait for + DAC ICNT + LAC [DTYP3] ; set dispatch address + JMP SETOUT + +DTYP3: JMS TESTID + LAC ININFO+1 + ASN + JMS ERROR ; id zero + SUB [9.] + ASP + JMP .+3 + ADD [9.] + JMS ERROR ; id greater than 8 + ADD [9.] + DAC KILL ; save dying id for upscore + JMS POSITION ; indicate player is dying + COA + DAC @ITEMP1 + LAC ITEMP1 + ADD [5] + DAC ITEMP1 + ADD [4] + DAC ITEMP2 + CAL ;turn off any firing we have on him + DAC @ITEMP1 + LWC 60. ; set explosion to last 1 1/2 sec + DAC @ITEMP2 + LAC ININFO+1 ; see if i was shot + SAM MYBIT + JMP NOTME + LAC ININFO + ADD [TNUM-1] ; say who did it in whodidit + DAC ITEMP2 + LAC @ITEMP2 + DAC @[WHODIDIT] + LAC ININFO ; wait longer in big + DAC BIGEXP ; explosion if we are playing ourselves + SAM MYREAL ; so our new starting loc will be in effect + JMP .+3 + LWC 120. + JMP .+2 + LWC 80. + XAM BIGEXP + JMS UPSCORE ; update scores + JMP ENDER + +NOTME: LAC ININFO+1 ; now point into display list + CIA + DAC ICNT2 + LAC [THING-2] + ADD [6] + ISZ ICNT2 + JMP .-2 + DAC ITEMP2 + SUB [1] ; set pointer to eyes + DAC ITEMP1 + LAC @ITEMP2 ; is he currently visible? + SAM [DNOP] + JMP VIS1 ; yes + JMP NOEXPLO ; no + +VIS1: LAC [DNOP] + DAC @ITEMP1 ; yes, clear eyes + LAC JMSEXP ; stick in jms to explosion + DAC @ITEMP2 +NOEXPLO:LAC ININFO ; bump scores + JMS UPSCORE ; and update scores in display list + JMP EXIT + +; +; check to see if new name specified +; if so then do the following: +; 1) fill in approprate name display subroutine +; 2) if mybit = 0 then assign the id to mybit +; +CHK4: SAM [4] ; type 4? + JMP ERASER ; no, keep looking + LWC 11. ; 11. more characters to wait for + DAC ICNT + LAC [DTYP4] ; set dispatch address + JMP SETOUT + +DTYP4: JMS TESTID + LAC MYBIT ; see if mybit is zero + ASZ + JMP GOTMINE + LAC ININFO ; yes, so set our id + DAC MYREAL + JMS GETD +IFE FAST, DAC @[ORIG] ; indicate origional id in display +GOTMINE:LAC [ININFO] ; set up pointers for transfer + DAC 16' + JMS GETCNT + LAC [IML1-8.] ; remember 1st char is offset char + ADD [8.] + ISZ ICNT2 + JMP .-2 + DAC 17' + DAC ITEMP2 + CLA + DAC SPACES + LWC 6 ; move 6 character name + DAC ICNT2 +CONVNXT:LAC @16' + SUB [140'] ; translate to lower case + ASM + SUB [40'] + ADD [140'] + SAM [40'] ; space? + JMP .+2 ; no + ISZ SPACES ; yes count them for offset char + JMS GETCHR ; convert to djms + DAC @17' + ISZ ICNT2 + JMP CONVNXT + LAC SPACES ; now fix offset character + ADD [CENTER] + DAC ITEMP1 + LAC @ITEMP1 + DAC @ITEMP2 + LAC ININFO ; now store scores + JMS POSITION + ADD [4] + DAC ITEMP1 + JMS FIXSCO ; do # of opponents shot + LAC ININFO + JMS POINTSC + JMS SCOREIT + LAC ITEMP1 + ADD [6] + DAC ITEMP1 + JMS FIXSCO ; now do # of times shot + LAC ININFO + JMS POINTSC + ADD [5] + DAC PTSCORE + JMS SCOREIT + JMP EXIT + +FIXSCO: 0 + LAC @16' + AND [77'] + SAL 3 + SAL 3 + DAC ITEMP2 + LAC @16' + AND [77'] + IOR ITEMP2 + DAC @ITEMP1 + JMP @FIXSCO + +SPACES: 0 + +; +; set up our id +; +; enter with id in ac +; +GETD: 0 + DAC MYBIT + SUB [1] + DAC MYBIT1 ; store normalized 0-7 id. + ADD [DSPTCH] + DAC ITEMP1 + LAC @ITEMP1 ; set up dstat, dx, dy, and dir ptrs + DAC DSTAT + IAC + DAC DIR + IAC + DAC DX + IAC + DAC DY +IFE FAST,[ + LAC MYBIT ; now get our id in character + IOR [60'] + JMS GETCHR + DAC @[CURENT] ; say our current id in display +] + JMP @GETD +; +; +; erase ring buffer? +; +ERASER: SAM [14'] ; type 4? + JMP INSRTCH ; no, just insert into ring buffer + JMS ERASE + JMP EXIT + +ERASE: 0 + LWC 4 ; reset line count + DAC RINGLC + LAC [RINGST] ; reset both pointers + DAC RNGPT + IAC + DAC RNGPT2 + LAC [DJMS D012,] ; replace djmp to curser + DAC @RNGPT + LAC [DJMS CUR,] + DAC @RNGPT2 + LAC [DJMP RINGST,] + DAC @[RING] + DAC @[RINGEND] + JMP @ERASE + +; +; get djms for a character +; +GETCHR: 0 + AND [177'] ; mask to 7 bits + SAM [12'] ; line feed? + JMP .+3 + LAC [DJMS D012,] + JMP STORECH + SAM [10'] ; back space? + JMP .+3 + LAC [DJMS D010,] + JMP STORECH + SAM [15'] ; cr? + JMP .+3 + LAC [DJMS D015,] + JMP STORECH + SUB [40'] ; don't allow anything below 40 + ASP + CLA + ADD [40'] + SUB [140'] ; translate to lower case + ASM + SUB [40'] +;XXX ADD [140'-40'] + ADD @[24'] ; convert to djms + DAC ITEMP1 + LAC @ITEMP1 +STORECH:DAC ITEMP1 + JMP @GETCHR +; +; insert character into ring buffer +; +INSRTCH:JMS FORWARD + LAC INCHAR + JMS GETCHR ; get djms for character + SAM [DJMS D012,] + JMP NOTNL ; no + ISZ RINGLC ; yes, but is there room on screen? + JMP NOTNL + JMS ROLL + JMP OK + +NOTNL: LAC RNGPT2 + SAM RNGPT ; have we filled entire buffer? + JMP OK ; no + JMS ROLL ; yes, roll top line off +OK: LAC [DJMP CUR,] + DAC @RNGPT2 + JMS BACK ; back up pointer + LAC ITEMP1 ; get djms again + DAC @RNGPT2 ; stick in on top of old djmp cur + JMS FORWARD ; move pointer back up + LAC INCHAR + SAM [15'] + JMP EXIT ; done + LAW 12' + DAC INCHAR + JMP INSRTCH + +FORWARD:0 ; roll rngpt2 forward one slot + LAC RNGPT2 + IAC + SAM [RINGEND] + JMP .+2 + LAC [RINGST] + DAC RNGPT2 + JMP @FORWARD + +BACK: 0 + STA + ADD RNGPT2 + SAM [RING] + JMP .+2 + LAC [RINGEND-1] + DAC RNGPT2 + JMP @BACK + +ROLL: 0 ; roll ringpt forward one line +LOOK: LAC RNGPT + IAC + SAM [RINGEND] + JMP .+2 + LAC [RINGST] + SAM RNGPT2 + JMP .+4 + JMS ERASE + JMS FORWARD + JMP @ROLL + DAC RNGPT + LAC @RNGPT + SAM [DJMS D012,] + JMP LOOK +MOVED: LAC RNGPT + AND [7777'] + IOR [160000'] + DAC @[RING] + STA + ADD RINGLC + DAC RINGLC + JMP @ROLL + +; +; return from character read +; +EXIT: JMP @CHARIN + +GETCNT: 0 + LAC ININFO ; get id of message originator + CIA ; make it into a count + DAC ICNT2 + JMP @GETCNT + +POSITION:0 + ADD [DSPTCH-1] ; point to correct status indicator + DAC ITEMP1 + LAC @ITEMP1 + DAC ITEMP1 + DAC SEEPT ; also set seept for type 2 command + JMP @POSITION + +TESTID: 0 ; test for valid id in ininfo + LAC ININFO + ASN ; also can't be zero + JMS ERROR ; id zero or same as mybit + SUB [9.] ; can't be > or = to 9. + ASP + JMP TESTOK + LAC ININFO + JMS ERROR ; id greater than 8 +TESTOK: LAC ININFO ; all ok so return with id in ac + JMP @TESTID + +TESTLOC:0 ; test to see if legal location + AND [77'] ; minimum is location 1 + ASN + JMS ERROR ; location zero + SUB [32.] + ASP + JMP .+3 + ADD [32.] + JMS ERROR ; location greater than 31. + ADD [32.] + JMP @TESTLOC +; +; error handling routine +; +ERROR: 0 ; address of where the error was found + DAC ERRAC ; save ac error message + LAC IDSPTCH ; save dispatch address + DAC ERRDSP + LWC 11. + DAC ICNT2 ; now save info area + LAC [ININFO-1] + DAC 17' + LAC [ERRINFO-1] + DAC 16' +SVELOP: LAC @17' + DAC @16' + ISZ ICNT2 + JMP SVELOP + ISZ ERRCNT ; bump the error count + NOP + LAC ERRCNT ; now display it + JMS GETCHR + DAC @[ERRCHAR] + JMP EXIT ; now ignore bad message + +ERRAC: 0 ; saved ac +ERRDSP: 0 ; saved dispatch address +ERRCNT: 60' ; error count + +; +; routines variables +; +INCHAR: 0 ; last character read in +ICNT: 0 ; the number of characters we are waiting for +ICNT2: 0 ; general purpose counter used in routine +ITEMP1: 0 ; temporary locations +ITEMP2: 0 ; another temporary location +IDSPTCH:0 ; dispatching address for command routines +RNGPT: RINGST ; first character of ring buffer pointer +RNGPT2: RINGST+1 ; last character of ring buffer pointer +RINGLC: -4 ; ring buffer line counter +ININFO: 0 ; input information from 10 buffer + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 +; +; constants go here at end of this 2k !!!!! any refs to or from +; succeeding 2k must be indirect-address! bleah!!!!!! (klh) +; + + CONSTANTS + +;loc 14000 ;happens about here anyway, just needs precision. + +; +; distances to walls table +; +WALLS: 511. ; distances to walls + 450. + 358. + 281. + 225. + 184. + 155. + 133. + 116. + 103. + 92. + 83. + 75. + 70. + 64. + 60. + 56. + 53. + 50. + 47. + 45. + 43. + 41. + 39. + 37. + 35. + 33. + 31. + 29. + 27. + 25. +; +; error saving of info information area +; +ERRINFO:0 ; holds 2nd character of last bad message + 0 ; holds the rest of the message + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 +; +; n direction letter table +; e +; s +; w +; +DIRLET: 116' + 105' + 123' + 127' +; +; you were shot by: message +; +YWSB: 131' + 117' + 125' + 40' + 127' + 105' + 122' + 105' + 40' + 123' + 110' + 117' + 124' + 40' + 102' + 131' + 72' +; +; eyes and arrows table +; +EYTAB: DJMS AWAY + DJMS TOLEFT + DJMS EYES + DJMS TORIGHT +; +; offset for name table +; +CENTER: DJMS OFF6 + DJMS OFF5 + DJMS OFF4 + DJMS OFF3 + DJMS OFF2 + DJMS OFF1 + DNOP +;XXXOFF6: INC E,DM30 +;XXX INC DM30,100' +;XXXOFF5: INC E,DM30 +;XXX INC DM20,100' +;XXXOFF4: INC E,DM30 +;XXX INC DM30,100' +;XXXOFF3: INC E,DM30 +;XXX INC DM20,100' +;XXXOFF2: INC E,DM30 +;XXX INC DM30,100' +;XXXOFF1: INC E,DM30 +;XXX INC DM20,140' +; +; djmses to name labels routines +; +TNUM: DJMS IML1 + DJMS IML2 + DJMS IML3 + DJMS IML4 + DJMS IML5 + DJMS IML6 + DJMS IML7 + DJMS IML8 +; +; big explosion info table +; +BIGX1INC:0 +BIGY1INC:0 +BIGX2INC:0 +BIGY2INC:0 +BIGX3INC:0 +BIGY3INC:0 +BIGX4INC:0 +BIGY4INC:0 +BIGX5INC:0 +BIGY5INC:0 +BIGX6INC:0 +BIGY6INC:0 +BIGX7INC:0 +BIGY7INC:0 +BIGX8INC:0 +BIGY8INC:0 +; +; imlac information tables +; +DSPTCH: IM1 + IM2 + IM3 + IM4 + IM5 + IM6 + IM7 + IM8 + +IM1: 0 ; status word: -1 active, 1 dying, 0 not in game + 0 ; direction + 0 ; x location + 0 ; y location + 0 ; players score + 0 ; bullet counter + 0 ; my direction at time of fire + 0 ; my x location at time of fire + 0 ; my y location at time of fire + 0 ; explosion timer + 0 ; shot dead counter + +;XXXIM2: REPEAT 11., 0 +;XXXIM3: REPEAT 11., 0 +;XXXIM4: REPEAT 11., 0 +;XXXIM5: REPEAT 11., 0 +;XXXIM6: REPEAT 11., 0 +;XXXIM7: REPEAT 11., 0 +;XXXIM8: REPEAT 11., 0 + +; +; test to see if player whose id is in iid is visible +; seept should point to status word in info table +; distan will contain distance to opponent on return if visible +; skips if player seen +; +SEE: 0 + CLA + DAC DISTAN + LAC @[SEEPT] ; set up local seept + DAC SEEPT2 + ISZ SEEPT2 ; point to direction + LAC @SEEPT2 + DAC IDIR ; save direction in idir + ISZ SEEPT2 ; point to x location + LAC @SEEPT2 + DAC IX ; save it in ix + ISZ SEEPT2 + LAC @SEEPT2 ; now get y loc + DAC IY + LAC SAVEDIR ; see which way we are pointing + AND [1] + ASZ + JMP WEAST ; west or east +SNORTH: LAC IX ; south or north check his x to my x + SAM SAVEDX ; does it match? + JMP @SEE ; no + LAC IY ; yes, now get the y difference + SUB SAVEDY + ASN ; is he in my square? + JMP @SEE ; yes, then i can't see him + DAC SEEPT2 ; save distance to him + ASP ; see if distance positive + JMP HENORTH ; no, he must be north of me + CIA ; yes, so he is south of me + DAC SEEPT2 ; make distance negative + JMP HESOUTH + +HEEAST: LAW 2 +HENORTH=HEEAST + AND SAVEDIR ; see if i am looking north + ASZ ; if not then i can't see him + JMP @SEE ; i look south so i can't see him + JMP CHKLN ; ok so far, now check length of hall + +HESOUTH:LAW 2 +HEWEST=HESOUTH + AND SAVEDIR ; see if i am looking south + ASN ; if not then i can't see him + JMP @SEE ; i no see him + JMP CHKLN ; so far so good, but check hallway length + +WEAST: LAC IY ; check his y to my y + SAM SAVEDY ; it must match + JMP @SEE ; can't see him + LAC IX ; now get the x difference + SUB SAVEDX + ASN ; is he in my square? + JMP @SEE ; yes, so i can't see him + DAC SEEPT2 ; save the distance to him + ASP ; but see if positive distance + JMP HEWEST ; no, negative so he is west of me + CIA + DAC SEEPT2 + JMP HEEAST ; he is east of me + +CHKLN: LAC SEEPT2 + CIA ; set distance to opponent + DAC DISTAN +CHKLN1: LAW 1 + AND SAVEDIR + ASZ + JMP CHKLN3 + JMS CREM2 + ADD SAVEDY + DAC SAVEDY +CHKLN2: LAC [MAZE] + ADD SAVEDY + DAC MPTR2 + LAC SAVEDX + ASZ + JMP PT1 + LAC [100000'] + JMP PT2 + +PT1: CIA + DAC MCNT + CLL + LAC [100000'] + RAR 1 + ISZ MCNT + JMP .-2 +PT2: DAC BIT2 + LAC @MPTR2 + AND BIT2 ; see if it is an open square + ASZ + JMP @SEE + ISZ SEEPT2 ; are we as far as the opponent? + JMP CHKLN1 ; no + LAC @[IID] ; yes, see if he is me + SAM @[MYBIT] + ISZ SEE ; don't skip if so (can't see me) + JMP @SEE +CHKLN3: JMS CREM2 + CIA + ADD SAVEDX + DAC SAVEDX + JMP CHKLN2 + +CREM2: 0 + LAC SAVEDIR + SAR 1 + AND [1] + ASN + LAC [-1] + JMP @CREM2 + +DISTAN: 0 +SAVEDIR:0 +SAVEDX: 0 +SAVEDY: 0 +SEEPT2: 0 +MCNT: 0 +MPTR2: 0 +IY: 0 ; object id y location +IX: 0 ; object id x location +IDIR: 0 ; object id imlac direction +BIT2: 0 + +; chki20 -- routine to handle new-protocol checking and munching, +; as well as old. +; put here since no room in lower 2k of core. + +IFN FAST,[ + +CHKI20: AND [7] ;get normalized id, no need to test range! + IAC ;make it 1-8. + DAC @[IID] ;store for what wants it. + JMS @[POSITION] ;set up itemp1 and seept pointers into info tabs + LAC @[ITEMP1] + DAC CTEMP1 ;get itemp1 into a var within our 2k. + LAC @CTEMP1 ;get current status + ASZ + ASP ;ignore this msg if he's exploding + JMP .+2 + JMP @[EXIT] + STA + DAC @CTEMP1 ;say player is active + LAC CTEMP1 + IAC + DAC PLRD ;save ptr to direction + IAC + DAC PLRX ;save ptr to x coord + IAC + DAC PLRY ;save ptr to y coord + DAC CTEMP1 + DAC @[ITEMP1] + ;itemp1 is now satisfactorily updated, and + ;indices into position tables done, now do function. + LAC @[INCHAR] + AND [70'] ;only interested in function digit + SAR 3 + ADD [JMP PLRVEC] + DAC PLRJMP + +PLRJMP: 0 + +PLRVEC: JMP BADVEC + JMP BADVEC + JMP PLRTRN ; 2 - right turn + JMP PLLTRN ; 3 - left turn + JMP PLFLIP ; 4 - turn around + JMP PLMOVE ; 5 - move forward + JMP PLBACK ; 6 - move backward +BADVEC: JMS @[ERROR] ; 7 - bad + JMP @[EXIT] + +PLRD: 0 ;pointer to direction +PLRX: 0 ;pointer to x coord +PLRY: 0 ;guess what + +PLRTRN: LAC @PLRD ;get direction + IAC ;right turn + AND [3] + DAC @PLRD + JMP PLRDON + +PLLTRN: LAC @PLRD + SUB [1] ;left turn + AND [3] + DAC @PLRD + JMP PLRDON + +PLFLIP: LAC @PLRD + ADD [2] ;turn right twice to turn-around + AND [3] + DAC @PLRD + JMP PLRDON + +PLBACK: LAC @PLRD ;backward-- reverse direction then move. + ADD [2] + JMP .+2 + +PLMOVE: LAC @PLRD + AND [3] + ADD [JMP PLDVEC] + DAC PLMJMP + +PLMJMP: 0 + +PLDVEC: JMP PLMNOR ;north + JMP PLMEA ;east + JMP PLMSOU ;south + JMP PLMWES ;west + +PLMNOR: LAC @PLRY + SUB [1] ;decrement y coord for north moving + JMS @[TESTLOC] + DAC @PLRY + JMP PLRDON + +PLMEA: LAC @PLRX + IAC ;increment x coord for east + JMS @[TESTLOC] + DAC @PLRX + JMP PLRDON + +PLMSOU: LAC @PLRY + IAC ; incrment y coord for south + JMS @[TESTLOC] + DAC @PLRY + JMP PLRDON + +PLMWES: LAC @PLRX + SUB [1] ; decrement x coord for west + JMS @[TESTLOC] + DAC @PLRX + JMP PLRDON + +PLRDON: LAC @[IID] ;get player id again + DAC @[ININFO] ;and fake out stupid routine + JMP @[CHK25] ;done with new ptcl handling. + +CTEMP1: 0 ;pointer substi. for itemp1 +] ;end of ifn fast + + ; high 2k constants +;XXX CONSTANTS + +; +; name subroutines +; 5 character name +; +IML1: DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DRJM ; return jump +IML2: DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DRJM +IML3: DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DRJM +IML4: DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DRJM +IML5: DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DRJM +IML6: DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DRJM +IML7: DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DRJM +IML8: DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DJMS D040 + DRJM + +; +; gsv character subroutines +; +;XXXCUR: INC E,D0M1 +;XXX INC D0M3,B30 + INC B30,B30 + INC D03,D20 +;XXX INC D01,T + DJMP DLIST +WAIT: INC E,P ; 40 microsecond wait + INC P,P + INC P,P + INC P,P + INC P,P + INC P,P + INC P,P + INC P,P + INC P,P + INC P,140 +;XXXD010: INC E,DM30 +;XXX INC DM30,DM30 +;XXX INC DM20,140' +;XXXD012: INC E,D0M3 ; end_of_line +;XXX INC D0M3,D0M3 +;XXX INC D0M3,D0M3 +;XXX INC D0M3,D0M3 +;XXX INC X,X +D015: DLXA 200 + DJMS WAIT + DRJM +DNL3: DLXA 540 + DJMP DNL+1 +DNL2: DLXA 1710 + DJMP .+2 +DNL: DLXA 10 + DJMS WAIT + DJMP D012 +D040: INC E,D30 ; space + INC D30,D30 +;XXX INC D20,X +EYES: INC E,D03 ; eyes + INC D03,D03 +;XXX INC D03,DM33 + INC B00,B00 + INC D30,D30 + INC B00,B00 +;XXX INC DM30,D00 +;XXX INC D0M3,D0M3 +;XXX INC D0M3,D0M3 +;XXX INC D0M3,140' +CMZE: INC E,B03 + INC B03,B03 + INC B03,B03 + INC B03,B02 + INC B30,B30 + INC B30,B10 +;XXX INC B0M3,B0M3 +;XXX INC B0M3,B0M3 +;XXX INC B0M3,B0M3 +;XXX INC B0M2,BM30 +;XXX INC BM30,BM30 +;XXX INC BM10,B12 + INC B12,B12 + INC B12,B12 + INC B12,B12 + INC B12,B12 +;XXX INC B12,DM30 +;XXX INC DM30,DM30 +;XXX INC DM10,B1M2 +;XXX INC B1M2,B1M2 +;XXX INC B1M2,B1M2 +;XXX INC B1M2,B1M2 +;XXX INC B1M2,B1M2 +;XXX INC B1M2,D10 + INC 140',140' +CHARMZE:DJMS CMZE + DJMP CMZE +SPMAZE: INC E,D30 + INC D30,D30 + INC D30,D30 + INC D30,D30 + INC D10,140' +ARROWS: DJMS UPARR + DJMS RIGHTARR + DJMS DOWNARR + DJMS LEFTARR +RIGHTARR:INC E,D33 + INC D03,D33 + INC B30,B30 + INC B30,B10 +;XXX INC BM2M2,B02 +;XXX INC B02,B2M2 +;XXX INC D3M3,D3M3 +;XXX INC D0M3,140' +LEFTARR:INC E,D33 + INC D03,D33 +;XXX INC B22,B0M2 +;XXX INC B0M2,BM22 + INC B30,B30 + INC B30,B10 +;XXX INC D3M3,D3M3 +;XXX INC D0M3,140' + +UPARR: INC E,D30 + INC D30,D30 + INC D23,B03 + INC B03,B03 +;XXX INC B01,BM2M2 + INC B20,B20 +;XXX INC BM22,D00 +;XXX INC D3M3,D3M3 +;XXX INC D3M3,D2M3 +;XXX INC D0M1,140' + +DOWNARR:INC E,D30 + INC D30,D30 + INC D23,B12 +;XXX INC BM20,B1M2 + INC B03,B03 + INC B03,B01 +;XXX INC D3M3,D3M3 +;XXX INC D3M3,D2M3 +;XXX INC D0M1,140' + +AWAY: DLV D,0,20. + DLV B,0,15. + DLV B,-2,-5. + DLV B,4.,0 + DLV B,-2.,5. + DLV D,0,-35. + DRJM + +TOLEFT: DLV D,0,20. + DLV B,-15.,0 + DLV B,5.,2 + DLV B,0,-4. + DLV B,-5.,2 + DLV D,15.,-20. + DRJM + +TORIGHT:DLV D,0,20. + DLV B,15.,0 + DLV B,-5.,2. + DLV B,0,-4. + DLV B,5.,2. + DLV D,-15.,-20. + DRJM + +; +; +; big explosion display list +; +AD2: DHVS 2 + DADR ; turn on 8k display addressing + DLXA 500 + DLYA 1200 + DJMS WAIT +; +; you were shot by: +; +MESAGE: DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DJMS DNOP + DLXA 1000 + DLYA 1000 + DJMS WAIT +; +; djms to player who did the killing +; +WHODIDIT:DJMS D040 + DSTS 3 +BIGX1: DLXA 1000 +BIGY1: DLYA 1000 + DJMS WAIT + DNOP + DNOP + DNOP + DJMS EXPLOSIN+2 +BIGX2: DLXA 1000 +BIGY2: DLYA 1000 + DJMS WAIT + DNOP + DNOP + DNOP + DJMS EXPLOSIN+2 +BIGX3: DLXA 1000 +BIGY3: DLYA 1000 + DJMS WAIT + DNOP + DNOP + DNOP + DJMS EXPLOSIN+2 +BIGX4: DLXA 1000 +BIGY4: DLYA 1000 + DJMS WAIT + DNOP + DNOP + DNOP + DJMS EXPLOSIN+2 +BIGX5: DLXA 1000 +BIGY5: DLYA 1000 + DJMS WAIT + DNOP + DNOP + DNOP + DJMS EXPLOSIN+2 +BIGX6: DLXA 1000 +BIGY6: DLYA 1000 + DJMS WAIT + DNOP + DNOP + DNOP + DJMS EXPLOSIN+2 +BIGX7: DLXA 1000 +BIGY7: DLYA 1000 + DJMS WAIT + DNOP + DNOP + DNOP + DJMS EXPLOSIN+2 +BIGX8: DLXA 1000 +BIGY8: DLYA 1000 + DJMS WAIT + DNOP + DNOP + DNOP + DJMS EXPLOSIN+2 + DHLT + +; +; start of main display list +; +AD1: DHVS 1 + DADR ; turn on 8k display addressing + ; (use 0 bit to indicate which 4k) + DLXA 50 + DLYA 1300 + DJMS WAIT + DJMS IML1 + DJMS DNL +SCORE: DNOP ; display names and scores here + DNOP + DNOP + DNOP + DJMS DNL + DNOP + DNOP + DNOP + DNOP + DLXA 50 + DLYA 1100 + DJMS WAIT + DJMS IML2 + DJMS DNL + DNOP + DNOP + DNOP + DNOP + DJMS DNL + DNOP + DNOP + DNOP + DNOP + DLXA 50 + DLYA 700 + DJMS WAIT + DJMS IML3 + DJMS DNL + DNOP + DNOP + DNOP + DNOP + DJMS DNL + DNOP + DNOP + DNOP + DNOP + DLXA 50 + DLYA 500 + DJMS WAIT + DJMS IML4 + DJMS DNL + DNOP + DNOP + DNOP + DNOP + DJMS DNL + DNOP + DNOP + DNOP + DNOP + DLXA 1724 + DLYA 1300 + DJMS WAIT + DJMS IML5 + DJMS DNL2 + DNOP + DNOP + DNOP + DNOP + DJMS DNL2 + DNOP + DNOP + DNOP + DNOP + DLXA 1724 + DLYA 1100 + DJMS WAIT + DJMS IML6 + DJMS DNL2 + DNOP + DNOP + DNOP + DNOP + DJMS DNL2 + DNOP + DNOP + DNOP + DNOP + DLXA 1724 + DLYA 700 + DJMS WAIT + DJMS IML7 + DJMS DNL2 + DNOP + DNOP + DNOP + DNOP + DJMS DNL2 + DNOP + DNOP + DNOP + DNOP + DLXA 1724 + DLYA 500 + DJMS WAIT + DJMS IML8 + DJMS DNL2 + DNOP + DNOP + DNOP + DNOP + DJMS DNL2 + DNOP + DNOP + DNOP + DNOP + DLYA 1720 +; +; status line +; + DLXA 60 + DJMS WAIT +IFE FAST,[ +ORIG: DJMS D040 ; origional id + DJMS D040 +CURENT: DJMS D040 ; current id + DJMS D040 +] +DEAD: DJMS D040 ; status of player + DJMS D040 +ERRCHAR:DJMS D040 ; number of messages in error +; +; +; n, s, e, or w letter +; + DLXA 1000 + DJMS WAIT + DSTS 3 +LETTER: DJMS D040 +; +; this is where the 8 possible players appear +; +; dlxa 1000 +; dlya +; dsts +; djms wait +; djms +; djms +; + DLXA 1000 +THING: DJMS D040 + DJMS D040 + DJMS WAIT + DJMS D040 + DJMS D040 + DLXA 1000 + DJMS D040 + DJMS D040 + DJMS WAIT + DJMS D040 + DJMS D040 + DLXA 1000 + DJMS D040 + DJMS D040 + DJMS WAIT + DJMS D040 + DJMS D040 + DLXA 1000 + DJMS D040 + DJMS D040 + DJMS WAIT + DJMS D040 + DJMS D040 + DLXA 1000 + DJMS D040 + DJMS D040 + DJMS WAIT + DJMS D040 + DJMS D040 + DLXA 1000 + DJMS D040 + DJMS D040 + DJMS WAIT + DJMS D040 + DJMS D040 + DLXA 1000 + DJMS D040 + DJMS D040 + DJMS WAIT + DJMS D040 + DJMS D040 + DLXA 1000 + DJMS D040 + DJMS D040 + DJMS WAIT + DJMS D040 + DJMS D040 +; +; ring buffer +; + DSTS 1 + DLXA 200 + DLYA 130 + DJMS WAIT +RING: DJMP RINGST +RINGST: DJMS D012 + DJMP CUR + + BLOCK 160. + +RINGEND:DJMP RINGST +; +; display list for maze starts here +; +DLIST: DHLT +; +; return to console program after loading +; + END LOADER + + diff --git a/imlac/mazewar.out b/imlac/mazewar.out new file mode 100644 index 00000000..92ad6d81 --- /dev/null +++ b/imlac/mazewar.out @@ -0,0 +1,7042 @@ +************************ beginning pass 1 ************************ +*** 1 token: TITLE MAZE.3 GREG THOMPSON (GAT) 04/11/74 + TT_TITLE MAZE.3 GREG THOMPSON (GAT) 04/11/74 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_TITLE 00000 000000 000000 000000 000000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 1 token: ; MAZE + TT_COMMENT ; MAZE + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 1 token: ; Maze is a experiment in 3 dimensional graphics and intertask + TT_COMMENT ; Maze is a experiment in 3 dimensional graphics and intertask + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; teleconferencing. It is a hunt and seek game that can involve up to + TT_COMMENT ; teleconferencing. It is a hunt and seek game that can involve up to + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; eight Imlacs. The Imlac user is placed in a 16 by 32 square maze and + TT_COMMENT ; eight Imlacs. The Imlac user is placed in a 16 by 32 square maze and + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; attempts to hunt down and destroy the other inhabitents of the maze (the + TT_COMMENT ; attempts to hunt down and destroy the other inhabitents of the maze (the + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; other Imlac users) before they do the same to him. Each player is + TT_COMMENT ; other Imlac users) before they do the same to him. Each player is + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; represented by his uname (1 through 8 characters) as he moves through the + TT_COMMENT ; represented by his uname (1 through 8 characters) as he moves through the + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; maze. The various keys that are used to move through the maze and to + TT_COMMENT ; maze. The various keys that are used to move through the maze and to + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; fire are described below. + TT_COMMENT ; fire are described below. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; UP ARROW - Move forward 1 square. + TT_COMMENT ; UP ARROW - Move forward 1 square. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; DOWN ARROW - Back up one square. + TT_COMMENT ; DOWN ARROW - Back up one square. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; LEFT ARROW - Turn 90 degrees to the left. + TT_COMMENT ; LEFT ARROW - Turn 90 degrees to the left. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; RIGHT ARROW- Turn 90 degrees to the right. + TT_COMMENT ; RIGHT ARROW- Turn 90 degrees to the right. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; FUNCTION 4 - Turn 180 degrees around. + TT_COMMENT ; FUNCTION 4 - Turn 180 degrees around. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; PAGE XMIT - Peek around the corner to the left. + TT_COMMENT ; PAGE XMIT - Peek around the corner to the left. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; XMIT - Peek around the corner to the right. + TT_COMMENT ; XMIT - Peek around the corner to the right. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; ESC - Fire. + TT_COMMENT ; ESC - Fire. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; CTRL -Z - Exit maze program. + TT_COMMENT ; CTRL -Z - Exit maze program. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; FORM - Erase dispay buffer. + TT_COMMENT ; FORM - Erase dispay buffer. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; FUNCTION 7 - Look at maze from top. + TT_COMMENT ; FUNCTION 7 - Look at maze from top. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; The player enters the maze by typing MAZE; to monit or MAZE^k to + TT_COMMENT ; The player enters the maze by typing MAZE; to monit or MAZE^k to + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; DDT, while at an imlac. The screen will be blank for a minute or two + TT_COMMENT ; DDT, while at an imlac. The screen will be blank for a minute or two + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; while the imlac side of the maze program is loaded after which the player + TT_COMMENT ; while the imlac side of the maze program is loaded after which the player + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; is placed in to the maze along with any other players. A letter on the + TT_COMMENT ; is placed in to the maze along with any other players. A letter on the + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; top of the screen indicates the direction you are currently facing. The + TT_COMMENT ; top of the screen indicates the direction you are currently facing. The + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; unames of the other players are listed on the sides followed their score + TT_COMMENT ; unames of the other players are listed on the sides followed their score + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; and the number of times they were shot. Anytime a player is shot the + TT_COMMENT ; and the number of times they were shot. Anytime a player is shot the + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; bell will ring and an '!' will be placed next to the shooting players + TT_COMMENT ; bell will ring and an '!' will be placed next to the shooting players + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; score and an '*' will be placed next to the number of times shot counter + TT_COMMENT ; score and an '*' will be placed next to the number of times shot counter + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; of the player that was just shot. Holding down the up or down arrow keys + TT_COMMENT ; of the player that was just shot. Holding down the up or down arrow keys + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; will cause them to repeat. After a shot is fired the player who is being + TT_COMMENT ; will cause them to repeat. After a shot is fired the player who is being + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; shot at has two seconds to get out of view of the position that the + TT_COMMENT ; shot at has two seconds to get out of view of the position that the + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; shooting player was at at the time he fired the shot. All other + TT_COMMENT ; shooting player was at at the time he fired the shot. All other + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; characters typed are placed in a display buffer at the bottom of all the + TT_COMMENT ; characters typed are placed in a display buffer at the bottom of all the + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; imlac's screen. Holding the Function-7 (or TAB as the case my be) will + TT_COMMENT ; imlac's screen. Holding the Function-7 (or TAB as the case my be) will + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; allow you to view your position in the maze from the top. + TT_COMMENT ; allow you to view your position in the maze from the top. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; The 3 buttons on the mouse and the 5 keyset buttons may be used as + TT_COMMENT ; The 3 buttons on the mouse and the 5 keyset buttons may be used as + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; controls and have the following functions, starting from the left of the + TT_COMMENT ; controls and have the following functions, starting from the left of the + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; mouse; peek left, fire, peek right, turn around, turn left, move + TT_COMMENT ; mouse; peek left, fire, peek right, turn around, turn left, move + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; forward, turn right, and move backwards. + TT_COMMENT ; forward, turn right, and move backwards. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; Users may specify their own mazes if they are the first player in a + TT_COMMENT ; Users may specify their own mazes if they are the first player in a + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; maze by giving a file name after 'maze to use: '. Just a CR will default + TT_COMMENT ; maze by giving a file name after 'maze to use: '. Just a CR will default + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; to the standard maze. User mazes must have a specific format if they are + TT_COMMENT ; to the standard maze. User mazes must have a specific format if they are + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; to be able to work. They must begin with a LOC 10020 followed by the label + TT_COMMENT ; to be able to work. They must begin with a LOC 10020 followed by the label + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; MAZE: on the first of 32. octal words which form a bit map for the + TT_COMMENT ; MAZE: on the first of 32. octal words which form a bit map for the + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; maze. The maze must end with LOC 17713, JMP @.+1, 101, and an END. + TT_COMMENT ; maze. The maze must end with LOC 17713, JMP @.+1, 101, and an END. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; After assembling the maze must be imtraned by using the 'IMTRAN' command. + TT_COMMENT ; After assembling the maze must be imtraned by using the 'IMTRAN' command. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; A muddle function exists for printing out formated source mazes. It is + TT_COMMENT ; A muddle function exists for printing out formated source mazes. It is + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; initiated by floading 'imlac;maze print' in muddle and then issuing + TT_COMMENT ; initiated by floading 'imlac;maze print' in muddle and then issuing + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $ where the output file + TT_COMMENT ; $ where the output file + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; spec defaults to the TTY. An example of a formated source maze is given + TT_COMMENT ; spec defaults to the TTY. An example of a formated source maze is given + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; below: + TT_COMMENT ; below: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 1 token: ;.INSRT IMSRC;IMDEFS > + TT_COMMENT ;.INSRT IMSRC;IMDEFS > + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; LOC 10020' + TT_COMMENT ; LOC 10020' + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; MAZE: 177777 ; HERE IS THE 32 WORD MAZE. + TT_COMMENT ; MAZE: 177777 ; HERE IS THE 32 WORD MAZE. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 106401 ; NO FOUR SQUARES MAY BE EMPTY. + TT_COMMENT ; 106401 ; NO FOUR SQUARES MAY BE EMPTY. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 124675 ; AND SHARE A COMMON CORNER. + TT_COMMENT ; 124675 ; AND SHARE A COMMON CORNER. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 121205 ; ALL OUTSIDE WALLS MUST BE FILLED IN. + TT_COMMENT ; 121205 ; ALL OUTSIDE WALLS MUST BE FILLED IN. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 132055 ; THIS IS THE DEFAULT MAZE. + TT_COMMENT ; 132055 ; THIS IS THE DEFAULT MAZE. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 122741 + TT_COMMENT ; 122741 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 106415 + TT_COMMENT ; 106415 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 124161 + TT_COMMENT ; 124161 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 121405 + TT_COMMENT ; 121405 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 135775 + TT_COMMENT ; 135775 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 101005 + TT_COMMENT ; 101005 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 135365 + TT_COMMENT ; 135365 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 121205 + TT_COMMENT ; 121205 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 127261 + TT_COMMENT ; 127261 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 120205 + TT_COMMENT ; 120205 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 106765 + TT_COMMENT ; 106765 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 124405 + TT_COMMENT ; 124405 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 166575 + TT_COMMENT ; 166575 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 122005 + TT_COMMENT ; 122005 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 107735 + TT_COMMENT ; 107735 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 120001 + TT_COMMENT ; 120001 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 135575 + TT_COMMENT ; 135575 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 105005 + TT_COMMENT ; 105005 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 125365 + TT_COMMENT ; 125365 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 125225 + TT_COMMENT ; 125225 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 121265 + TT_COMMENT ; 121265 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 105005 + TT_COMMENT ; 105005 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 135375 + TT_COMMENT ; 135375 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 100201 + TT_COMMENT ; 100201 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 135675 + TT_COMMENT ; 135675 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 110041 + TT_COMMENT ; 110041 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 177777 + TT_COMMENT ; 177777 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; END 101' ; AUTO START BACK INTO CONSOLE PROGRAM + TT_COMMENT ; END 101' ; AUTO START BACK INTO CONSOLE PROGRAM + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; Players start in random loctions. + TT_COMMENT ; Players start in random loctions. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: + TT_PAGE_BREAK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_PAGE_BREAK 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; The current default maze is: + TT_COMMENT ; The current default maze is: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; N O R T H + TT_COMMENT ; N O R T H + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ + TT_COMMENT ; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ + TT_COMMENT ; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$ $$$ $$$ + TT_COMMENT ; $$$ $$$$$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$ $$$ $$$ + TT_COMMENT ; $$$ $$$$$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$$$$ $$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$$$$ $$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$$$$ $$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$$$$ $$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$ $$$ $$$ $$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$ $$$ $$$ $$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$ $$$ $$$ $$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$ $$$ $$$ $$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$ $$$ $$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$ $$$ $$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$ $$$ $$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$ $$$ $$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$$$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$$$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$$$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$$$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$$$$ $$$ $$$$$$$$$$$$ $$$ $$$ + TT_COMMENT ; $$$ $$$$$$$$$ $$$ $$$$$$$$$$$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$$$$ $$$ $$$$$$$$$$$$ $$$ $$$ + TT_COMMENT ; $$$ $$$$$$$$$ $$$ $$$$$$$$$$$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; W $$$ $$$ $$$$$$$$$ $$$ $$$$$$ $$$ E + TT_COMMENT ; W $$$ $$$ $$$$$$$$$ $$$ $$$$$$ $$$ E + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$$$$$$$ $$$ $$$$$$ $$$ + TT_COMMENT ; $$$ $$$ $$$$$$$$$ $$$ $$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; E $$$ $$$ $$$ $$$ $$$ A + TT_COMMENT ; E $$$ $$$ $$$ $$$ $$$ A + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; S $$$ $$$$$$ $$$$$$$$$$$$$$$ $$$ $$$ S + TT_COMMENT ; S $$$ $$$$$$ $$$$$$$$$$$$$$$ $$$ $$$ S + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$ $$$$$$$$$$$$$$$ $$$ $$$ + TT_COMMENT ; $$$ $$$$$$ $$$$$$$$$$$$$$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; T $$$ $$$ $$$ $$$ $$$ $$$ T + TT_COMMENT ; T $$$ $$$ $$$ $$$ $$$ $$$ T + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$$$$$$$ $$$$$$ $$$ $$$$$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$$$$$$$ $$$$$$ $$$ $$$$$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$$$$$$$ $$$$$$ $$$ $$$$$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$$$$$$$ $$$$$$ $$$ $$$$$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$$$$$$$$$$$$$ $$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$$$$$$$$$$$$$ $$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$$$$$$$$$$$$$ $$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$$$$$$$$$$$$$ $$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$$$$ $$$$$$ $$$$$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$$$$ $$$$$$ $$$$$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$$$$ $$$$$$ $$$$$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$$$$ $$$$$$ $$$$$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$$$$$$$$$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$$$$$$$$$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$$$$$$$$$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$$$$$$$$$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$$$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$$$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$$$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$$$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$$$$ $$$ $$$$$$$$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$$$$ $$$ $$$$$$$$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$$$$ $$$ $$$$$$$$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$$$$ $$$ $$$$$$$$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$$$$ $$$$$$$$$ $$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$$$$ $$$$$$$$$ $$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$$$$$$$ $$$$$$$$$ $$$$$$$$$$$$ $$$ + TT_COMMENT ; $$$ $$$$$$$$$ $$$$$$$$$ $$$$$$$$$$$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$ $$$ $$$ $$$ + TT_COMMENT ; $$$ $$$ $$$ $$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ + TT_COMMENT ; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ + TT_COMMENT ; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; S O U T H + TT_COMMENT ; S O U T H + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: + TT_PAGE_BREAK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_PAGE_BREAK 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; MAZE PROTOCOL: MESSAGES ARE SENT TO ALL OTHER IMLACS + TT_COMMENT ; MAZE PROTOCOL: MESSAGES ARE SENT TO ALL OTHER IMLACS + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; DO NOT SEND TO ORIGINATING IMLAC + TT_COMMENT ; DO NOT SEND TO ORIGINATING IMLAC + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 001 -- PLAYER LEAVES GAME + TT_COMMENT ; 001 -- PLAYER LEAVES GAME + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 002 -- PLAYER MOVED + TT_COMMENT ; 002 -- PLAYER MOVED + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 003 -- PLAYER DIED + TT_COMMENT ; 003 -- PLAYER DIED + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 004 -- ANNOUNCE NEW PLAYER + TT_COMMENT ; 004 -- ANNOUNCE NEW PLAYER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; <6 CHARS OF ID NAME> + TT_COMMENT ; <6 CHARS OF ID NAME> + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; <2 CHAR # OF HITS WITH 100 BIT ON> (HIGH ORDER 6 BITS THEN LOW ORDER 6 BITS) + TT_COMMENT ; <2 CHAR # OF HITS WITH 100 BIT ON> (HIGH ORDER 6 BITS THEN LOW ORDER 6 BITS) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; <2 CHAR # OF DEATHS WITH 100 BIT ON> + TT_COMMENT ; <2 CHAR # OF DEATHS WITH 100 BIT ON> + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 014 -- ERASE DISPLAY RING BUFFER + TT_COMMENT ; 014 -- ERASE DISPLAY RING BUFFER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; IDS MUST BE >= 1 AND <= 8. + TT_COMMENT ; IDS MUST BE >= 1 AND <= 8. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; ALL INCOMING MESSAGES ARE CHECKED FOR LEGALITY. BAD MESSAGES ARE FLUSHED. + TT_COMMENT ; ALL INCOMING MESSAGES ARE CHECKED FOR LEGALITY. BAD MESSAGES ARE FLUSHED. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; A NUMBER IN THE STATUS LINE INDICATES THE NUMBER OF BAD MESSAGES RECIEVED. + TT_COMMENT ; A NUMBER IN THE STATUS LINE INDICATES THE NUMBER OF BAD MESSAGES RECIEVED. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; INFORMATION CONCERNING THE LAST BAD MESSAGE RECIEVED IS SAVED FOR LATER EVALUATION. + TT_COMMENT ; INFORMATION CONCERNING THE LAST BAD MESSAGE RECIEVED IS SAVED FOR LATER EVALUATION. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; ALL CHARACTERS SUBROUTINES AND THE DJMS TABLE IS UP IN THE CONSOLE PROGRAM (SSV). + TT_COMMENT ; ALL CHARACTERS SUBROUTINES AND THE DJMS TABLE IS UP IN THE CONSOLE PROGRAM (SSV). + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; THE DJMS TABLE IS ACCESSED THROUGH LOCATION 24 OCTAL WHICH STARTS WITH THE ENTRY + TT_COMMENT ; THE DJMS TABLE IS ACCESSED THROUGH LOCATION 24 OCTAL WHICH STARTS WITH THE ENTRY + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; FOR OCTAL CODE 40 (SPACE). + TT_COMMENT ; FOR OCTAL CODE 40 (SPACE). + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; ANY CHARACTERS TYPED ON CONSOLE (>014') ARE SENT TO PDP-10 AND SHOULD + TT_COMMENT ; ANY CHARACTERS TYPED ON CONSOLE (>014') ARE SENT TO PDP-10 AND SHOULD + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; BE ECHOED TO ALL! CONSOLES INCLUDING THE ORIGINATOR. + TT_COMMENT ; BE ECHOED TO ALL! CONSOLES INCLUDING THE ORIGINATOR. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; ANY OTHER CHARACTERS RECEIVED BY IMLAC ARE DISPLAYED IN A + TT_COMMENT ; ANY OTHER CHARACTERS RECEIVED BY IMLAC ARE DISPLAYED IN A + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; RING BUFFER AT THE BOTTOM OF THE PICTURE. + TT_COMMENT ; RING BUFFER AT THE BOTTOM OF THE PICTURE. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; THE FIRST ANNOUNCE NEW PLAYER MESSAGE THE IMLAC RECIEVES DEFINES ITS ID. + TT_COMMENT ; THE FIRST ANNOUNCE NEW PLAYER MESSAGE THE IMLAC RECIEVES DEFINES ITS ID. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; THIS VERSION REQUIRES A GRAPHICS IMLAC WITH LONG VECTOR HARDWARE + TT_COMMENT ; THIS VERSION REQUIRES A GRAPHICS IMLAC WITH LONG VECTOR HARDWARE + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; MULTI-LEVEL SUBROUTINING, AND 8K DISPLAY ADDRESSING MOD. + TT_COMMENT ; MULTI-LEVEL SUBROUTINING, AND 8K DISPLAY ADDRESSING MOD. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; THE MESSAGE SWITCHING PROGRAM ON THE 10 MUST ALSO KEEP TRACK + TT_COMMENT ; THE MESSAGE SWITCHING PROGRAM ON THE 10 MUST ALSO KEEP TRACK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; OF THE CURRENT SCORES OF ALL THE PLAYERS SO WHEN A NEW PLAYER + TT_COMMENT ; OF THE CURRENT SCORES OF ALL THE PLAYERS SO WHEN A NEW PLAYER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; JOINS INTO A ALREADY EXISTING GAME HE MAY RECIEVE THE CURRECT + TT_COMMENT ; JOINS INTO A ALREADY EXISTING GAME HE MAY RECIEVE THE CURRECT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; SCORES OF ALL THE PLAYERS. + TT_COMMENT ; SCORES OF ALL THE PLAYERS. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; WHEN AN IMLAC WANTS TO JOIN AN EXISTING MAZE THE FOLLOWING OCCURS: + TT_COMMENT ; WHEN AN IMLAC WANTS TO JOIN AN EXISTING MAZE THE FOLLOWING OCCURS: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 1) THE MAZE PROGRAM IS LOADED INTO HIS IMLAC. + TT_COMMENT ; 1) THE MAZE PROGRAM IS LOADED INTO HIS IMLAC. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 2) THE CURRENT MAZE IS LOADED ON TOP OF THE DEFAULT MAZE + TT_COMMENT ; 2) THE CURRENT MAZE IS LOADED ON TOP OF THE DEFAULT MAZE + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; IF THE DEFAULT MAZE IS NOT BEING USED. + TT_COMMENT ; IF THE DEFAULT MAZE IS NOT BEING USED. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 3) A TYPE 4 MESSAGE IS SENT TO ALL IMLACS ANOUNCING THE + TT_COMMENT ; 3) A TYPE 4 MESSAGE IS SENT TO ALL IMLACS ANOUNCING THE + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; NEW IMLAC. THE NEW IMLAC GETS HIS ID FROM THIS MESSAGE. + TT_COMMENT ; NEW IMLAC. THE NEW IMLAC GETS HIS ID FROM THIS MESSAGE. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; 4) TYPE 4 MESSAGES FOR ALL THE OTHER PLAYERS ARE SENT TO + TT_COMMENT ; 4) TYPE 4 MESSAGES FOR ALL THE OTHER PLAYERS ARE SENT TO + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; THE NEW IMLAC. + TT_COMMENT ; THE NEW IMLAC. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; WRITTEN BY: + TT_COMMENT ; WRITTEN BY: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; HOWARD PALMER STANFORD ORIGINAL IDEA & STAND-ALONE VERSION OF MAZE + TT_COMMENT ; HOWARD PALMER STANFORD ORIGINAL IDEA & STAND-ALONE VERSION OF MAZE + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; STEVE COLLEY CAL TECH ORIGINAL IDEA OF MAZE, STAND-ALONE MAZE + TT_COMMENT ; STEVE COLLEY CAL TECH ORIGINAL IDEA OF MAZE, STAND-ALONE MAZE + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; & CRUDE MULTIPLE PLAYERS + TT_COMMENT ; & CRUDE MULTIPLE PLAYERS + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; GREG THOMPSON M.I.T. FULL MULTIPLE PLAYERS ADDITIONS + TT_COMMENT ; GREG THOMPSON M.I.T. FULL MULTIPLE PLAYERS ADDITIONS + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; DAVE LEBLING M.I.T. PDP-10 MESSAGE SWITCHER AND ROBOTS + TT_COMMENT ; DAVE LEBLING M.I.T. PDP-10 MESSAGE SWITCHER AND ROBOTS + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; KEN HARRENSTEIN M.I.T. PDP-10 part of fast interaction protocol + TT_COMMENT ; KEN HARRENSTEIN M.I.T. PDP-10 part of fast interaction protocol + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; CHARLES FRANKSTON M.I.T. IMLAC part of fast interaction protocol. + TT_COMMENT ; CHARLES FRANKSTON M.I.T. IMLAC part of fast interaction protocol. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 1 token: + TT_PAGE_BREAK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_PAGE_BREAK 00000 000000 000000 000000 000000 no no no no +*** 1 token: ; actual program begins here + TT_COMMENT ; actual program begins here + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: .INSRT IMSRC;IMDEFS > + TT_RELATIVE . + TT_STRING INSRT + TT_STRING IMSRC;IMDEFS + TT_STRING > + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00000 000000 000000 000000 000000 no no yes no + TT_STRING 00000 000000 000000 000000 000000 no no yes no + TT_STRING 00000 000000 000000 000000 000000 no no yes no + TT_RELATIVE 00000 000000 000000 000000 000000 yes no yes no +*** 1 token: ; To keep midas from barfing 'RES' at use of these syms in prg. + TT_COMMENT ; To keep midas from barfing 'RES' at use of these syms in prg. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 3 tokens: IF1 EXPUNGE FIX,MOVE,PTR,EXP + TT_IF1 IF1 + TT_STRING EXPUNGE + TT_STRING FIX,MOVE,PTR,EXP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00000 000000 000000 000000 000000 no no yes no + TT_STRING 00000 000000 000000 000000 000000 no no yes no + TT_IF1 00000 000000 000000 000000 000000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 5 tokens: FAST==1 ; to assemble fast-protocol version. + TT_SYMBOL FAST + TT_EQUAL = + TT_EQUAL = + TT_NUMBER 1 + TT_COMMENT ; to assemble fast-protocol version. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no yes no + TT_NUMBER 00000 000000 000001 000001 000000 no no yes no + TT_EQUAL 00000 000000 000001 000001 000000 no no yes no + TT_EQUAL 00000 000000 000001 000001 000000 no no yes no + TT_SYMBOL 00000 000000 000001 000001 000000 no no yes no +*** 5 tokens: CHEAT==0 ; conditional to assemble cheater stuff + TT_SYMBOL CHEAT + TT_EQUAL = + TT_EQUAL = + TT_NUMBER 0 + TT_COMMENT ; conditional to assemble cheater stuff + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no yes no + TT_NUMBER 00000 000000 000000 000000 000000 no no yes no + TT_EQUAL 00000 000000 000000 000000 000000 no no yes no + TT_EQUAL 00000 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00000 000000 000000 000000 000000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 2 tokens: .MLLIT==1 + TT_RELATIVE . + TT_STRING MLLIT==1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00000 000000 000000 000000 000000 no no yes no + TT_RELATIVE 00000 000000 000000 000000 000000 yes no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 2 tokens: LOC 10000' + TT_SPEC_OPCODE LOC + TT_NUMBER 10000' + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00000 000000 010000 010000 000000 no no yes no + TT_SPEC_OPCODE 00000 000000 010000 010000 170000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 3 tokens: .ADDR.=1 ; 8k addressing for display opcodes + TT_RELATIVE . + TT_STRING ADDR.=1 + TT_COMMENT ; 8k addressing for display opcodes + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no yes no + TT_STRING 00000 000000 000000 000000 000000 no no yes no + TT_RELATIVE 00000 000000 000000 000000 000000 yes no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 3 tokens: JMP START ; starting point + TT_MAIN_OPCODE JMP + TT_STRING START + TT_COMMENT ; starting point + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no yes no + TT_STRING 00000 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00000 010000 000000 000000 174000 no no yes no +*** 3 tokens: JMP RESTART ; restarting entry point + TT_MAIN_OPCODE JMP + TT_STRING RESTART + TT_COMMENT ; restarting entry point + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no yes no + TT_STRING 00000 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00000 010000 000000 000000 174000 no no yes no +*** 3 tokens: JMP LEAVE ; entry to return to ssv (on error) + TT_MAIN_OPCODE JMP + TT_STRING LEAVE + TT_COMMENT ; entry to return to ssv (on error) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no yes no + TT_STRING 00000 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00000 010000 000000 000000 174000 no no yes no +*** 3 tokens: JMP RETN ; reenter maze main loop + TT_MAIN_OPCODE JMP + TT_STRING RETN + TT_COMMENT ; reenter maze main loop + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no yes no + TT_STRING 00000 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00000 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 1 token: ; auto increment register definitions + TT_COMMENT ; auto increment register definitions + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 4 tokens: DPTR=10' ; index loc 10 used as pointer + TT_SYMBOL DPTR + TT_EQUAL = + TT_NUMBER 10' + TT_COMMENT ; index loc 10 used as pointer + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no yes no + TT_NUMBER 00000 000000 000010 000010 000000 no no yes no + TT_EQUAL 00000 000000 000010 000010 000000 no no yes no + TT_SYMBOL 00000 000000 000010 000010 000000 no no yes no +*** 3 tokens: VISPT=11' + TT_SYMBOL VISPT + TT_EQUAL = + TT_NUMBER 11' + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00000 000000 000011 000011 000000 no no yes no + TT_EQUAL 00000 000000 000011 000011 000000 no no yes no + TT_SYMBOL 00000 000000 000011 000011 000000 no no yes no +*** 3 tokens: VISPT2=12' + TT_SYMBOL VISPT2 + TT_EQUAL = + TT_NUMBER 12' + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00000 000000 000012 000012 000000 no no yes no + TT_EQUAL 00000 000000 000012 000012 000000 no no yes no + TT_SYMBOL 00000 000000 000012 000012 000000 no no yes no +*** 3 tokens: VISPT3=13' + TT_SYMBOL VISPT3 + TT_EQUAL = + TT_NUMBER 13' + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00000 000000 000013 000013 000000 no no yes no + TT_EQUAL 00000 000000 000013 000013 000000 no no yes no + TT_SYMBOL 00000 000000 000013 000013 000000 no no yes no +*** 3 tokens: VISPT4=14' + TT_SYMBOL VISPT4 + TT_EQUAL = + TT_NUMBER 14' + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00000 000000 000014 000014 000000 no no yes no + TT_EQUAL 00000 000000 000014 000014 000000 no no yes no + TT_SYMBOL 00000 000000 000014 000014 000000 no no yes no +*** 3 tokens: VISPT5=15' + TT_SYMBOL VISPT5 + TT_EQUAL = + TT_NUMBER 15' + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00000 000000 000015 000015 000000 no no yes no + TT_EQUAL 00000 000000 000015 000015 000000 no no yes no + TT_SYMBOL 00000 000000 000015 000015 000000 no no yes no +*** 1 token: ; index location 16' and 17' used by interupt routine + TT_COMMENT ; index location 16' and 17' used by interupt routine + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00000 000000 000000 000000 000000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 2 tokens: LOC 10020' + TT_SPEC_OPCODE LOC + TT_NUMBER 10020' + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00000 000000 010020 010020 000000 no no yes no + TT_SPEC_OPCODE 00020 000000 010020 010020 170000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 1 token: ; here is the 32 word maze: no four squares may be empty and share a + TT_COMMENT ; here is the 32 word maze: no four squares may be empty and share a + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00020 000000 000000 000000 000000 no no no no +*** 1 token: ; common corner, and all outside walls must be filled in + TT_COMMENT ; common corner, and all outside walls must be filled in + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00020 000000 000000 000000 000000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** reversing order of tokens 1 - 15 +*** 16 tokens: MAZE: 177777 ? 106401 ? 124675 ? 121205 ? 132055 ? 122741 ? 106415 ? 124161 + TT_SYMBOL MAZE: + TT_NUMBER 124161 + TT_QUESTION ? + TT_NUMBER 106415 + TT_QUESTION ? + TT_NUMBER 122741 + TT_QUESTION ? + TT_NUMBER 132055 + TT_QUESTION ? + TT_NUMBER 121205 + TT_QUESTION ? + TT_NUMBER 124675 + TT_QUESTION ? + TT_NUMBER 106401 + TT_QUESTION ? + TT_NUMBER 177777 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00020 000000 177777 177777 000000 no no yes no + +00278: 00020 177777 MAZE: 177777 ? 106401 ? 124675 ? 121205 ? 132055 ? 122741 ? 106415 ? 124161 + + TT_QUESTION 00021 000000 177777 177777 000000 no no yes no + TT_NUMBER 00021 000000 106401 106401 000000 no no yes no + +00278: 00021 106401 MAZE: 177777 ? 106401 ? 124675 ? 121205 ? 132055 ? 122741 ? 106415 ? 124161 + + TT_QUESTION 00022 000000 106401 106401 000000 no no yes no + TT_NUMBER 00022 000000 124675 124675 000000 no no yes no + +00278: 00022 124675 MAZE: 177777 ? 106401 ? 124675 ? 121205 ? 132055 ? 122741 ? 106415 ? 124161 + + TT_QUESTION 00023 000000 124675 124675 000000 no no yes no + TT_NUMBER 00023 000000 121205 121205 000000 no no yes no + +00278: 00023 121205 MAZE: 177777 ? 106401 ? 124675 ? 121205 ? 132055 ? 122741 ? 106415 ? 124161 + + TT_QUESTION 00024 000000 121205 121205 000000 no no yes no + TT_NUMBER 00024 000000 132055 132055 000000 no no yes no + +00278: 00024 132055 MAZE: 177777 ? 106401 ? 124675 ? 121205 ? 132055 ? 122741 ? 106415 ? 124161 + + TT_QUESTION 00025 000000 132055 132055 000000 no no yes no + TT_NUMBER 00025 000000 122741 122741 000000 no no yes no + +00278: 00025 122741 MAZE: 177777 ? 106401 ? 124675 ? 121205 ? 132055 ? 122741 ? 106415 ? 124161 + + TT_QUESTION 00026 000000 122741 122741 000000 no no yes no + TT_NUMBER 00026 000000 106415 106415 000000 no no yes no + +00278: 00026 106415 MAZE: 177777 ? 106401 ? 124675 ? 121205 ? 132055 ? 122741 ? 106415 ? 124161 + + TT_QUESTION 00027 000000 106415 106415 000000 no no yes no + TT_NUMBER 00027 000000 124161 124161 000000 no no yes no + TT_SYMBOL 00027 000000 124161 124161 000000 no no yes no +*** reversing order of tokens 1 - 14 +*** 15 tokens: 121405 ? 135775 ? 101005 ? 135365 ? 121205 ? 127261 ? 120205 ? 106765 + TT_NUMBER 121405 + TT_NUMBER 106765 + TT_QUESTION ? + TT_NUMBER 120205 + TT_QUESTION ? + TT_NUMBER 127261 + TT_QUESTION ? + TT_NUMBER 121205 + TT_QUESTION ? + TT_NUMBER 135365 + TT_QUESTION ? + TT_NUMBER 101005 + TT_QUESTION ? + TT_NUMBER 135775 + TT_QUESTION ? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + +00279: 00027 000000 121405 ? 135775 ? 101005 ? 135365 ? 121205 ? 127261 ? 120205 ? 106765 + + TT_QUESTION 00030 000000 000000 000000 000000 no no yes no + TT_NUMBER 00030 000000 135775 135775 000000 no no yes no + +00279: 00030 135775 121405 ? 135775 ? 101005 ? 135365 ? 121205 ? 127261 ? 120205 ? 106765 + + TT_QUESTION 00031 000000 135775 135775 000000 no no yes no + TT_NUMBER 00031 000000 101005 101005 000000 no no yes no + +00279: 00031 101005 121405 ? 135775 ? 101005 ? 135365 ? 121205 ? 127261 ? 120205 ? 106765 + + TT_QUESTION 00032 000000 101005 101005 000000 no no yes no + TT_NUMBER 00032 000000 135365 135365 000000 no no yes no + +00279: 00032 135365 121405 ? 135775 ? 101005 ? 135365 ? 121205 ? 127261 ? 120205 ? 106765 + + TT_QUESTION 00033 000000 135365 135365 000000 no no yes no + TT_NUMBER 00033 000000 121205 121205 000000 no no yes no + +00279: 00033 121205 121405 ? 135775 ? 101005 ? 135365 ? 121205 ? 127261 ? 120205 ? 106765 + + TT_QUESTION 00034 000000 121205 121205 000000 no no yes no + TT_NUMBER 00034 000000 127261 127261 000000 no no yes no + +00279: 00034 127261 121405 ? 135775 ? 101005 ? 135365 ? 121205 ? 127261 ? 120205 ? 106765 + + TT_QUESTION 00035 000000 127261 127261 000000 no no yes no + TT_NUMBER 00035 000000 120205 120205 000000 no no yes no + +00279: 00035 120205 121405 ? 135775 ? 101005 ? 135365 ? 121205 ? 127261 ? 120205 ? 106765 + + TT_QUESTION 00036 000000 120205 120205 000000 no no yes no + TT_NUMBER 00036 000000 106765 106765 000000 no no yes no + TT_NUMBER 00036 000000 121405 121405 000000 no no yes no +*** reversing order of tokens 1 - 14 +*** 15 tokens: 124405 ? 166575 ? 122005 ? 107735 ? 120001 ? 135575 ? 105005 ? 125365 + TT_NUMBER 124405 + TT_NUMBER 125365 + TT_QUESTION ? + TT_NUMBER 105005 + TT_QUESTION ? + TT_NUMBER 135575 + TT_QUESTION ? + TT_NUMBER 120001 + TT_QUESTION ? + TT_NUMBER 107735 + TT_QUESTION ? + TT_NUMBER 122005 + TT_QUESTION ? + TT_NUMBER 166575 + TT_QUESTION ? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + +00280: 00036 000000 124405 ? 166575 ? 122005 ? 107735 ? 120001 ? 135575 ? 105005 ? 125365 + + TT_QUESTION 00037 000000 000000 000000 000000 no no yes no + TT_NUMBER 00037 000000 166575 166575 000000 no no yes no + +00280: 00037 166575 124405 ? 166575 ? 122005 ? 107735 ? 120001 ? 135575 ? 105005 ? 125365 + + TT_QUESTION 00040 000000 166575 166575 000000 no no yes no + TT_NUMBER 00040 000000 122005 122005 000000 no no yes no + +00280: 00040 122005 124405 ? 166575 ? 122005 ? 107735 ? 120001 ? 135575 ? 105005 ? 125365 + + TT_QUESTION 00041 000000 122005 122005 000000 no no yes no + TT_NUMBER 00041 000000 107735 107735 000000 no no yes no + +00280: 00041 107735 124405 ? 166575 ? 122005 ? 107735 ? 120001 ? 135575 ? 105005 ? 125365 + + TT_QUESTION 00042 000000 107735 107735 000000 no no yes no + TT_NUMBER 00042 000000 120001 120001 000000 no no yes no + +00280: 00042 120001 124405 ? 166575 ? 122005 ? 107735 ? 120001 ? 135575 ? 105005 ? 125365 + + TT_QUESTION 00043 000000 120001 120001 000000 no no yes no + TT_NUMBER 00043 000000 135575 135575 000000 no no yes no + +00280: 00043 135575 124405 ? 166575 ? 122005 ? 107735 ? 120001 ? 135575 ? 105005 ? 125365 + + TT_QUESTION 00044 000000 135575 135575 000000 no no yes no + TT_NUMBER 00044 000000 105005 105005 000000 no no yes no + +00280: 00044 105005 124405 ? 166575 ? 122005 ? 107735 ? 120001 ? 135575 ? 105005 ? 125365 + + TT_QUESTION 00045 000000 105005 105005 000000 no no yes no + TT_NUMBER 00045 000000 125365 125365 000000 no no yes no + TT_NUMBER 00045 000000 124405 124405 000000 no no yes no +*** reversing order of tokens 1 - 14 +*** 15 tokens: 125225 ? 121265 ? 105005 ? 135375 ? 100201 ? 135675 ? 110041 ? 177777 + TT_NUMBER 125225 + TT_NUMBER 177777 + TT_QUESTION ? + TT_NUMBER 110041 + TT_QUESTION ? + TT_NUMBER 135675 + TT_QUESTION ? + TT_NUMBER 100201 + TT_QUESTION ? + TT_NUMBER 135375 + TT_QUESTION ? + TT_NUMBER 105005 + TT_QUESTION ? + TT_NUMBER 121265 + TT_QUESTION ? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + +00281: 00045 000000 125225 ? 121265 ? 105005 ? 135375 ? 100201 ? 135675 ? 110041 ? 177777 + + TT_QUESTION 00046 000000 000000 000000 000000 no no yes no + TT_NUMBER 00046 000000 121265 121265 000000 no no yes no + +00281: 00046 121265 125225 ? 121265 ? 105005 ? 135375 ? 100201 ? 135675 ? 110041 ? 177777 + + TT_QUESTION 00047 000000 121265 121265 000000 no no yes no + TT_NUMBER 00047 000000 105005 105005 000000 no no yes no + +00281: 00047 105005 125225 ? 121265 ? 105005 ? 135375 ? 100201 ? 135675 ? 110041 ? 177777 + + TT_QUESTION 00050 000000 105005 105005 000000 no no yes no + TT_NUMBER 00050 000000 135375 135375 000000 no no yes no + +00281: 00050 135375 125225 ? 121265 ? 105005 ? 135375 ? 100201 ? 135675 ? 110041 ? 177777 + + TT_QUESTION 00051 000000 135375 135375 000000 no no yes no + TT_NUMBER 00051 000000 100201 100201 000000 no no yes no + +00281: 00051 100201 125225 ? 121265 ? 105005 ? 135375 ? 100201 ? 135675 ? 110041 ? 177777 + + TT_QUESTION 00052 000000 100201 100201 000000 no no yes no + TT_NUMBER 00052 000000 135675 135675 000000 no no yes no + +00281: 00052 135675 125225 ? 121265 ? 105005 ? 135375 ? 100201 ? 135675 ? 110041 ? 177777 + + TT_QUESTION 00053 000000 135675 135675 000000 no no yes no + TT_NUMBER 00053 000000 110041 110041 000000 no no yes no + +00281: 00053 110041 125225 ? 121265 ? 105005 ? 135375 ? 100201 ? 135675 ? 110041 ? 177777 + + TT_QUESTION 00054 000000 110041 110041 000000 no no yes no + TT_NUMBER 00054 000000 177777 177777 000000 no no yes no + TT_NUMBER 00054 000000 125225 125225 000000 no no yes no +*** 1 token: + TT_PAGE_BREAK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_PAGE_BREAK 00054 000000 000000 000000 000000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 1 token: ; here to wait for the loader signal + TT_COMMENT ; here to wait for the loader signal + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 2 tokens: LOADER: RSF + TT_SYMBOL LOADER: + TT_MAIN_OPCODE RSF + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002040 000000 000000 177777 no no yes no + TT_SYMBOL 00054 002040 000000 000000 177777 no no yes no +*** 4 tokens: JMP .-1 + TT_MAIN_OPCODE JMP + TT_RELATIVE . + TT_MINUS - + TT_NUMBER 1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_MINUS 00054 000000 000001 000001 000000 no yes yes no + TT_RELATIVE 00054 000000 000001 000001 000000 yes yes yes no + TT_MAIN_OPCODE 00054 010000 000001 000001 174000 yes yes yes no +*** 1 token: CLA + TT_MAIN_OPCODE CLA + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100001 000000 000000 177777 no no yes no +*** 1 token: RRC + TT_MAIN_OPCODE RRC + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 001033 000000 000000 177777 no no yes no +*** 4 tokens: AND [177] + TT_MAIN_OPCODE AND + TT_BEGIN_SEC [ + TT_NUMBER 177 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000177 000177 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000177 000177 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 000177 000177 174000 no no yes no +*** 4 tokens: SAM [^A] + TT_MAIN_OPCODE SAM + TT_BEGIN_SEC [ + TT_STRING ^A + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no +*** 2 tokens: JMP LOADER + TT_MAIN_OPCODE JMP + TT_STRING LOADER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: RSF + TT_MAIN_OPCODE RSF + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002040 000000 000000 177777 no no yes no +*** 4 tokens: JMP .-1 + TT_MAIN_OPCODE JMP + TT_RELATIVE . + TT_MINUS - + TT_NUMBER 1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_MINUS 00054 000000 000001 000001 000000 no yes yes no + TT_RELATIVE 00054 000000 000001 000001 000000 yes yes yes no + TT_MAIN_OPCODE 00054 010000 000001 000001 174000 yes yes yes no +*** 1 token: CLA + TT_MAIN_OPCODE CLA + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100001 000000 000000 177777 no no yes no +*** 1 token: RRC + TT_MAIN_OPCODE RRC + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 001033 000000 000000 177777 no no yes no +*** 4 tokens: AND [177] + TT_MAIN_OPCODE AND + TT_BEGIN_SEC [ + TT_NUMBER 177 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000177 000177 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000177 000177 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 000177 000177 174000 no no yes no +*** 4 tokens: SAM [^A] + TT_MAIN_OPCODE SAM + TT_BEGIN_SEC [ + TT_STRING ^A + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no +*** 2 tokens: JMP LOADER + TT_MAIN_OPCODE JMP + TT_STRING LOADER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 3 tokens: JMP @[40] + TT_MAIN_OPCODE JMP + TT_STRING @[40 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 1 token: ; dstat, dx, dy, dir is my position and point into info table + TT_COMMENT ; dstat, dx, dy, dir is my position and point into info table + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 3 tokens: DSTAT: 0 ; status flag + TT_SYMBOL DSTAT: + TT_NUMBER 0 + TT_COMMENT ; status flag + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: DX: 0 ; x position of this imlac + TT_SYMBOL DX: + TT_NUMBER 0 + TT_COMMENT ; x position of this imlac + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: DY: 0 ; y position of this imlac + TT_SYMBOL DY: + TT_NUMBER 0 + TT_COMMENT ; y position of this imlac + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 1 token: ; start out big so we won't show up on map + TT_COMMENT ; start out big so we won't show up on map + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 3 tokens: DIR: 0 ; direction he is pointing + TT_SYMBOL DIR: + TT_NUMBER 0 + TT_COMMENT ; direction he is pointing + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 1 token: ; bits 14 and 15 have meaning + TT_COMMENT ; bits 14 and 15 have meaning + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; bit 14,bit 15 + TT_COMMENT ; bit 14,bit 15 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; 0 0 north + TT_COMMENT ; 0 0 north + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; 0 1 east + TT_COMMENT ; 0 1 east + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; 1 0 south + TT_COMMENT ; 1 0 south + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; 1 1 west + TT_COMMENT ; 1 1 west + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 1 token: NEXTBIT:0 + TT_SYMBOL NEXTBIT:0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: ETEM: 0 + TT_SYMBOL ETEM: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: WPTR: 0 + TT_SYMBOL WPTR: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: WPTR2: 0 + TT_SYMBOL WPTR2: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: CNT: 0 ; counters + TT_SYMBOL CNT: + TT_NUMBER 0 + TT_COMMENT ; counters + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: CNT2: 0 + TT_SYMBOL CNT2: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: KILL: 0 ; last player killed by this imlac + TT_SYMBOL KILL: + TT_NUMBER 0 + TT_COMMENT ; last player killed by this imlac + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: PTR4: 0 ; pointers + TT_SYMBOL PTR4: + TT_NUMBER 0 + TT_COMMENT ; pointers + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: PTR3: 0 + TT_SYMBOL PTR3: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: PTR2: 0 + TT_SYMBOL PTR2: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: PTR: 0 + TT_SYMBOL PTR: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: XDELTA: 0 + TT_SYMBOL XDELTA: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: YDELTA: 0 + TT_SYMBOL YDELTA: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 1 token: BEAMBIT:0 + TT_SYMBOL BEAMBIT:0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 1 token: LASTRIG:0 + TT_SYMBOL LASTRIG:0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 1 token: LASTLEF:0 + TT_SYMBOL LASTLEF:0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 1 token: HALLNGTH:0 + TT_SYMBOL HALLNGTH:0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: MYREAL: 0 ; the real id of this imlac + TT_SYMBOL MYREAL: + TT_NUMBER 0 + TT_COMMENT ; the real id of this imlac + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: MYBIT: 0 ; the id of this imlac + TT_SYMBOL MYBIT: + TT_NUMBER 0 + TT_COMMENT ; the id of this imlac + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: MYBIT1: 0 ; mybit-1 (normalize to 0-7) + TT_SYMBOL MYBIT1: + TT_NUMBER 0 + TT_COMMENT ; mybit-1 (normalize to 0-7) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: IID: 0 ; temporary imlac id used for see routine + TT_SYMBOL IID: + TT_NUMBER 0 + TT_COMMENT ; temporary imlac id used for see routine + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: MPTR: 0 + TT_SYMBOL MPTR: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: BIT: 0 + TT_SYMBOL BIT: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 1 token: ; keyboard and keyset input data + TT_COMMENT ; keyboard and keyset input data + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 3 tokens: KEY: 0 ; last key read in + TT_SYMBOL KEY: + TT_NUMBER 0 + TT_COMMENT ; last key read in + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: KEYSET: 0 ; last value from keyset + TT_SYMBOL KEYSET: + TT_NUMBER 0 + TT_COMMENT ; last value from keyset + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: KSCNT: 0 ; keyset repeat counter + TT_SYMBOL KSCNT: + TT_NUMBER 0 + TT_COMMENT ; keyset repeat counter + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 3 tokens: HOME: 1372' ; ctrl z [exits program] + TT_SYMBOL HOME: + TT_NUMBER 1372' + TT_COMMENT ; ctrl z [exits program] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 001372 001372 000000 no no yes no + TT_SYMBOL 00054 000000 001372 001372 000000 no no yes no +*** 3 tokens: BACKUP: 204' ; down arrow (backup one square) + TT_SYMBOL BACKUP: + TT_NUMBER 204' + TT_COMMENT ; down arrow (backup one square) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000204 000204 000000 no no yes no + TT_SYMBOL 00054 000000 000204 000204 000000 no no yes no +*** 3 tokens: RTURN: 205' ; right arrow (turn 90 degrees right) + TT_SYMBOL RTURN: + TT_NUMBER 205' + TT_COMMENT ; right arrow (turn 90 degrees right) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000205 000205 000000 no no yes no + TT_SYMBOL 00054 000000 000205 000205 000000 no no yes no +*** 3 tokens: MOVE: 206' ; up arrow (move forward one square) + TT_SYMBOL MOVE: + TT_NUMBER 206' + TT_COMMENT ; up arrow (move forward one square) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000206 000206 000000 no no yes no + TT_SYMBOL 00054 000000 000206 000206 000000 no no yes no +*** 3 tokens: LTURN: 210' ; left arrow (turn 90 degrees left) + TT_SYMBOL LTURN: + TT_NUMBER 210' + TT_COMMENT ; left arrow (turn 90 degrees left) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000210 000210 000000 no no yes no + TT_SYMBOL 00054 000000 000210 000210 000000 no no yes no +*** 3 tokens: TURNA: 234' ; function 4 (turn 180 degrees around) + TT_SYMBOL TURNA: + TT_NUMBER 234' + TT_COMMENT ; function 4 (turn 180 degrees around) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000234 000234 000000 no no yes no + TT_SYMBOL 00054 000000 000234 000234 000000 no no yes no +*** 3 tokens: PEEKR: 202' ; xmit (peek to the right) + TT_SYMBOL PEEKR: + TT_NUMBER 202' + TT_COMMENT ; xmit (peek to the right) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000202 000202 000000 no no yes no + TT_SYMBOL 00054 000000 000202 000202 000000 no no yes no +*** 3 tokens: FIRE: 233' ; esc (fire) + TT_SYMBOL FIRE: + TT_NUMBER 233' + TT_COMMENT ; esc (fire) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000233 000233 000000 no no yes no + TT_SYMBOL 00054 000000 000233 000233 000000 no no yes no +*** 3 tokens: PEEKL: 216' ; page xmit (peek to the left) + TT_SYMBOL PEEKL: + TT_NUMBER 216' + TT_COMMENT ; page xmit (peek to the left) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000216 000216 000000 no no yes no + TT_SYMBOL 00054 000000 000216 000216 000000 no no yes no +*** 3 tokens: ERING: 214' ; form (erase ring buffer) + TT_SYMBOL ERING: + TT_NUMBER 214' + TT_COMMENT ; form (erase ring buffer) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000214 000214 000000 no no yes no + TT_SYMBOL 00054 000000 000214 000214 000000 no no yes no +*** 3 tokens: TOPVW: 211' ; tab (get a top view of maze) + TT_SYMBOL TOPVW: + TT_NUMBER 211' + TT_COMMENT ; tab (get a top view of maze) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000211 000211 000000 no no yes no + TT_SYMBOL 00054 000000 000211 000211 000000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 3 tokens: TEM1: 0 ; temporarys + TT_SYMBOL TEM1: + TT_NUMBER 0 + TT_COMMENT ; temporarys + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: TEM2: 0 + TT_SYMBOL TEM2: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: TEM3: 0 + TT_SYMBOL TEM3: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: TOPSW: -1 ; indicates whether a top or inside view + TT_SYMBOL TOPSW: + TT_MINUS - + TT_NUMBER 1 + TT_COMMENT ; indicates whether a top or inside view + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_MINUS 00054 000000 000001 000001 000000 no yes yes no + TT_SYMBOL 00054 000000 000001 000001 000000 no yes yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 2 tokens: IFN FAST,[ + TT_IFN IFN + TT_STRING FAST,[ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_IFN 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: RELCNT: 0 ;counter of rel positions between abs + TT_SYMBOL RELCNT: + TT_NUMBER 0 + TT_COMMENT ;counter of rel positions between abs + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 1 token: ] + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no +*** 1 token: + TT_PAGE_BREAK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_PAGE_BREAK 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; start of game + TT_COMMENT ; start of game + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 3 tokens: START: IOF ; disable any interupts + TT_SYMBOL START: + TT_MAIN_OPCODE IOF + TT_COMMENT ; disable any interupts + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 001161 000000 000000 177777 no no yes no + TT_SYMBOL 00054 001161 000000 000000 177777 no no yes no +*** 1 token: CLA + TT_MAIN_OPCODE CLA + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100001 000000 000000 177777 no no yes no +*** 3 tokens: DAC ICNT ; set no message pending + TT_MAIN_OPCODE DAC + TT_STRING ICNT + TT_COMMENT ; set no message pending + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: DAC MYBIT ; indicate we have no id + TT_MAIN_OPCODE DAC + TT_STRING MYBIT + TT_COMMENT ; indicate we have no id + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: MSW ; set initial keyset value + TT_STRING MSW + TT_COMMENT ; set initial keyset value + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: DAC KEYSET + TT_MAIN_OPCODE DAC + TT_STRING KEYSET + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 5 tokens: LAC [7776'] ; limit ssv's display list + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_NUMBER 7776' + TT_END_SECT ] + TT_COMMENT ; limit ssv's display list + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 007776 007776 000000 no no yes no + TT_BEGIN_SEC 00054 000000 007776 007776 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 007776 007776 174000 no no yes no +*** 3 tokens: DAC @[25'] + TT_MAIN_OPCODE DAC + TT_STRING @[25' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: JMS ERASE ; reset ring buffer + TT_MAIN_OPCODE JMS + TT_STRING ERASE + TT_COMMENT ; reset ring buffer + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 5 tokens: LAC [MESAGE-1] ; set up you were shot message + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_STRING MESAGE-1 + TT_END_SECT ] + TT_COMMENT ; set up you were shot message + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: DAC 11' + TT_MAIN_OPCODE DAC + TT_NUMBER 11' + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000011 000011 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000011 000011 174000 no no yes no +*** 4 tokens: LAC [YWSB-1] + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_STRING YWSB-1 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: DAC 12' + TT_MAIN_OPCODE DAC + TT_NUMBER 12' + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000012 000012 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000012 000012 174000 no no yes no +*** 2 tokens: LWC 17. + TT_MAIN_OPCODE LWC + TT_NUMBER 17. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000021 000021 000000 no no yes no + TT_MAIN_OPCODE 00054 104000 000021 000021 177000 no no yes no +*** 2 tokens: DAC CNT2 + TT_MAIN_OPCODE DAC + TT_STRING CNT2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: SETUPN: LAC @12' + TT_SYMBOL SETUPN: + TT_MAIN_OPCODE LAC + TT_STRING @12' + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: JMS GETCHR + TT_MAIN_OPCODE JMS + TT_STRING GETCHR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: DAC @11' + TT_MAIN_OPCODE DAC + TT_STRING @11' + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: ISZ CNT2 + TT_MAIN_OPCODE ISZ + TT_STRING CNT2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 030000 000000 000000 174000 no no yes no +*** 2 tokens: JMP SETUPN + TT_MAIN_OPCODE JMP + TT_STRING SETUPN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; now wait for our id + TT_COMMENT ; now wait for our id + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 2 tokens: JMS CHARIN + TT_MAIN_OPCODE JMS + TT_STRING CHARIN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: LAC MYBIT ; wait for identifier message to come in + TT_MAIN_OPCODE LAC + TT_STRING MYBIT + TT_COMMENT ; wait for identifier message to come in + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: ASN ; has it been set yet? + TT_MAIN_OPCODE ASN + TT_COMMENT ; has it been set yet? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 102001 000000 000000 177777 no no yes no +*** 5 tokens: JMP .-3 ; no, keep waiting + TT_MAIN_OPCODE JMP + TT_RELATIVE . + TT_MINUS - + TT_NUMBER 3 + TT_COMMENT ; no, keep waiting + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000003 000003 000000 no no yes no + TT_MINUS 00054 000000 000003 000003 000000 no yes yes no + TT_RELATIVE 00054 000000 000003 000003 000000 yes yes yes no + TT_MAIN_OPCODE 00054 010000 000003 000003 174000 yes yes yes no +*** 1 token: STA + TT_MAIN_OPCODE STA + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100003 000000 000000 177777 no no yes no +*** 3 tokens: DAC TOPSW ; display top view + TT_MAIN_OPCODE DAC + TT_STRING TOPSW + TT_COMMENT ; display top view + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; place player in maze + TT_COMMENT ; place player in maze + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 2 tokens: RESTART:KCF ; reset keyboard + TT_SYMBOL RESTART:KCF + TT_COMMENT ; reset keyboard + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: RESET1: JMS RANDOM + TT_SYMBOL RESET1: + TT_MAIN_OPCODE JMS + TT_STRING RANDOM + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 034000 000000 000000 174000 no no yes no +*** 4 tokens: AND [17'] + TT_MAIN_OPCODE AND + TT_BEGIN_SEC [ + TT_NUMBER 17' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000017 000017 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000017 000017 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 000017 000017 174000 no no yes no +*** 2 tokens: DAC @DX + TT_MAIN_OPCODE DAC + TT_STRING @DX + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: JMS RANDOM + TT_MAIN_OPCODE JMS + TT_STRING RANDOM + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 4 tokens: AND [37'] + TT_MAIN_OPCODE AND + TT_BEGIN_SEC [ + TT_NUMBER 37' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000037 000037 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000037 000037 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 000037 000037 174000 no no yes no +*** 2 tokens: DAC @DY + TT_MAIN_OPCODE DAC + TT_STRING @DY + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: JMS PNTBIT + TT_MAIN_OPCODE JMS + TT_STRING PNTBIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: LAC @MPTR + TT_MAIN_OPCODE LAC + TT_STRING @MPTR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: AND BIT + TT_MAIN_OPCODE AND + TT_STRING BIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 000000 000000 174000 no no yes no +*** 1 token: ASZ + TT_MAIN_OPCODE ASZ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002001 000000 000000 177777 no no yes no +*** 2 tokens: JMP RESET1 + TT_MAIN_OPCODE JMP + TT_STRING RESET1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: JMS RANDOM + TT_MAIN_OPCODE JMS + TT_STRING RANDOM + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 4 tokens: AND [3] + TT_MAIN_OPCODE AND + TT_BEGIN_SEC [ + TT_NUMBER 3 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000003 000003 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000003 000003 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 000003 000003 174000 no no yes no +*** 2 tokens: DAC @DIR + TT_MAIN_OPCODE DAC + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 5 tokens: LAC [AD1] ; reset to main screen + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_STRING AD1 + TT_END_SECT ] + TT_COMMENT ; reset to main screen + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: DAC WHICHD + TT_MAIN_OPCODE DAC + TT_STRING WHICHD + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: IFN FAST,[ + TT_IFN IFN + TT_STRING FAST,[ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_IFN 00054 000000 000000 000000 000000 no no yes no +*** 1 token: CLA + TT_MAIN_OPCODE CLA + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100001 000000 000000 177777 no no yes no +*** 3 tokens: DAC RELCNT ; force abs. position out first thing. + TT_MAIN_OPCODE DAC + TT_STRING RELCNT + TT_COMMENT ; force abs. position out first thing. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 1 token: ] + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: JMP RETN4 + TT_MAIN_OPCODE JMP + TT_STRING RETN4 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 3 tokens: RETN2: CLA ; look from inside maze + TT_SYMBOL RETN2: + TT_MAIN_OPCODE CLA + TT_COMMENT ; look from inside maze + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 100001 000000 000000 177777 no no yes no + TT_SYMBOL 00054 100001 000000 000000 177777 no no yes no +*** 2 tokens: DAC TOPSW + TT_MAIN_OPCODE DAC + TT_STRING TOPSW + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; send new position to 10 + TT_COMMENT ; send new position to 10 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 3 tokens: RETN4: STA ; set to playing status + TT_SYMBOL RETN4: + TT_MAIN_OPCODE STA + TT_COMMENT ; set to playing status + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 100003 000000 000000 177777 no no yes no + TT_SYMBOL 00054 100003 000000 000000 177777 no no yes no +*** 2 tokens: DAC @DSTAT + TT_MAIN_OPCODE DAC + TT_STRING @DSTAT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: JMS PRINT ; build current display + TT_MAIN_OPCODE JMS + TT_STRING PRINT + TT_COMMENT ; build current display + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: IFE FAST,[ + TT_IFE IFE + TT_STRING FAST,[ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_IFE 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: JMS ABSMSG ; send out absolute position + TT_MAIN_OPCODE JMS + TT_STRING ABSMSG + TT_COMMENT ; send out absolute position + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: ] + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: IFN FAST,[ + TT_IFN IFN + TT_STRING FAST,[ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_IFN 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: LAC RELCNT + TT_MAIN_OPCODE LAC + TT_STRING RELCNT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: ASM ; if ge 0, something wants an abs pos sent out. + TT_MAIN_OPCODE ASM + TT_COMMENT ; if ge 0, something wants an abs pos sent out. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 102002 000000 000000 177777 no no yes no +*** 3 tokens: JMS ABSMSG ; sigh, send absolute + TT_MAIN_OPCODE JMS + TT_STRING ABSMSG + TT_COMMENT ; sigh, send absolute + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: JMP RETN ; and continue + TT_MAIN_OPCODE JMP + TT_STRING RETN + TT_COMMENT ; and continue + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 2 tokens: RELMSG: 0 + TT_SYMBOL RELMSG: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: IOR MYBIT1 + TT_MAIN_OPCODE IOR + TT_STRING MYBIT1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 050000 000000 000000 174000 no no yes no +*** 2 tokens: JMS SEND1 + TT_MAIN_OPCODE JMS + TT_STRING SEND1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: ISZ RELCNT + TT_MAIN_OPCODE ISZ + TT_STRING RELCNT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 030000 000000 000000 174000 no no yes no +*** 1 token: NOP + TT_MAIN_OPCODE NOP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100000 000000 000000 177777 no no yes no +*** 2 tokens: JMP @RELMSG + TT_MAIN_OPCODE JMP + TT_STRING @RELMSG + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 2 tokens: ] ;end of ifn fast + TT_END_SECT ] + TT_COMMENT ;end of ifn fast + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 1 token: ; send new absolute position + TT_COMMENT ; send new absolute position + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 2 tokens: ABSMSG: 0 + TT_SYMBOL ABSMSG: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: IFN FAST,[ + TT_IFN IFN + TT_STRING FAST,[ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_IFN 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: LWC 20 ;number of rel messages before an abs + TT_MAIN_OPCODE LWC + TT_NUMBER 20 + TT_COMMENT ;number of rel messages before an abs + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000020 000020 000000 no no yes no + TT_MAIN_OPCODE 00054 104000 000020 000020 177000 no no yes no +*** 3 tokens: DAC RELCNT ;set counter + TT_MAIN_OPCODE DAC + TT_STRING RELCNT + TT_COMMENT ;set counter + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 1 token: ] + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: LAW 2 ; send moved message code + TT_MAIN_OPCODE LAW + TT_NUMBER 2 + TT_COMMENT ; send moved message code + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000002 000002 000000 no no yes no + TT_MAIN_OPCODE 00054 004000 000002 000002 177000 no no yes no +*** 2 tokens: JMS SEND1 + TT_MAIN_OPCODE JMS + TT_STRING SEND1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: LAC MYBIT ; send my id + TT_MAIN_OPCODE LAC + TT_STRING MYBIT + TT_COMMENT ; send my id + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: JMS SEND1 + TT_MAIN_OPCODE JMS + TT_STRING SEND1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: LAC @DIR ; send new direction + TT_MAIN_OPCODE LAC + TT_STRING @DIR + TT_COMMENT ; send new direction + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 5 tokens: AND [3] ; send only lower 2 bits! + TT_MAIN_OPCODE AND + TT_BEGIN_SEC [ + TT_NUMBER 3 + TT_END_SECT ] + TT_COMMENT ; send only lower 2 bits! + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000003 000003 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000003 000003 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 000003 000003 174000 no no yes no +*** 4 tokens: IOR [100'] + TT_MAIN_OPCODE IOR + TT_BEGIN_SEC [ + TT_NUMBER 100' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000100 000100 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000100 000100 000000 no no yes no + TT_MAIN_OPCODE 00054 050000 000100 000100 174000 no no yes no +*** 2 tokens: JMS SEND1 + TT_MAIN_OPCODE JMS + TT_STRING SEND1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: LAC @DX ; send new x location + TT_MAIN_OPCODE LAC + TT_STRING @DX + TT_COMMENT ; send new x location + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 4 tokens: IOR [100'] + TT_MAIN_OPCODE IOR + TT_BEGIN_SEC [ + TT_NUMBER 100' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000100 000100 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000100 000100 000000 no no yes no + TT_MAIN_OPCODE 00054 050000 000100 000100 174000 no no yes no +*** 2 tokens: JMS SEND1 + TT_MAIN_OPCODE JMS + TT_STRING SEND1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: LAC @DY ; send new y location + TT_MAIN_OPCODE LAC + TT_STRING @DY + TT_COMMENT ; send new y location + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 4 tokens: IOR [100'] + TT_MAIN_OPCODE IOR + TT_BEGIN_SEC [ + TT_NUMBER 100' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000100 000100 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000100 000100 000000 no no yes no + TT_MAIN_OPCODE 00054 050000 000100 000100 174000 no no yes no +*** 2 tokens: JMS SEND1 + TT_MAIN_OPCODE JMS + TT_STRING SEND1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: JMP @ABSMSG ;return + TT_MAIN_OPCODE JMP + TT_STRING @ABSMSG + TT_COMMENT ;return + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: + TT_PAGE_BREAK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_PAGE_BREAK 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; main loop + TT_COMMENT ; main loop + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 4 tokens: RETN: JMS CHARIN ; get stuff from ten + TT_SYMBOL RETN: + TT_MAIN_OPCODE JMS + TT_STRING CHARIN + TT_COMMENT ; get stuff from ten + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: JMS DISP ; maintain display + TT_MAIN_OPCODE JMS + TT_STRING DISP + TT_COMMENT ; maintain display + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: RETN3: KSF ; no, is there a key down? + TT_SYMBOL RETN3: + TT_MAIN_OPCODE KSF + TT_COMMENT ; no, is there a key down? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 002020 000000 000000 177777 no no yes no + TT_SYMBOL 00054 002020 000000 000000 177777 no no yes no +*** 3 tokens: JMP KSCHK ; no, now check keyset + TT_MAIN_OPCODE JMP + TT_STRING KSCHK + TT_COMMENT ; no, now check keyset + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: CAL ; yes, read the key + TT_MAIN_OPCODE CAL + TT_COMMENT ; yes, read the key + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 100011 000000 000000 177777 no no yes no +*** 1 token: KRC + TT_MAIN_OPCODE KRC + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 001023 000000 000000 177777 no no yes no +*** 2 tokens: DAC KEY + TT_MAIN_OPCODE DAC + TT_STRING KEY + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: LWC 8. ; set up to rept key (time before start repeating) + TT_MAIN_OPCODE LWC + TT_NUMBER 8. + TT_COMMENT ; set up to rept key (time before start repeating) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000010 000010 000000 no no yes no + TT_MAIN_OPCODE 00054 104000 000010 000010 177000 no no yes no +*** 2 tokens: DAC REPTCNT + TT_MAIN_OPCODE DAC + TT_STRING REPTCNT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: REPT: LAC KEY + TT_SYMBOL REPT: + TT_MAIN_OPCODE LAC + TT_STRING KEY + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 060000 000000 000000 174000 no no yes no +*** 3 tokens: KEYREPT:SAM HOME ; is it ctrl-z? + TT_SYMBOL KEYREPT:SAM + TT_STRING HOME + TT_COMMENT ; is it ctrl-z? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: JMP KEYCHK + TT_MAIN_OPCODE JMP + TT_STRING KEYCHK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 3 tokens: LAC MYBIT ; remove me from maze + TT_MAIN_OPCODE LAC + TT_STRING MYBIT + TT_COMMENT ; remove me from maze + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: DAC ININFO + TT_MAIN_OPCODE DAC + TT_STRING ININFO + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: JMP GONER + TT_MAIN_OPCODE JMP + TT_STRING GONER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; check keyset + TT_COMMENT ; check keyset + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 2 tokens: KSCHK: CLA + TT_SYMBOL KSCHK: + TT_MAIN_OPCODE CLA + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100001 000000 000000 177777 no no yes no + TT_SYMBOL 00054 100001 000000 000000 177777 no no yes no +*** 1 token: MSW + TT_STRING MSW + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: SAM KEYSET ; has it changed? + TT_MAIN_OPCODE SAM + TT_STRING KEYSET + TT_COMMENT ; has it changed? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no +*** 5 tokens: JMP .+2 ; yes, so do something about it + TT_MAIN_OPCODE JMP + TT_RELATIVE . + TT_PLUS + + TT_NUMBER 2 + TT_COMMENT ; yes, so do something about it + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000002 000002 000000 no no yes no + TT_PLUS 00054 000000 000002 000002 000000 no no yes no + TT_RELATIVE 00054 000000 000002 000002 000000 yes no yes no + TT_MAIN_OPCODE 00054 010000 000002 000002 174000 yes no yes no +*** 3 tokens: JMP RETN ; no, re-enter main loop + TT_MAIN_OPCODE JMP + TT_STRING RETN + TT_COMMENT ; no, re-enter main loop + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 3 tokens: DAC KEYSET ; save new value + TT_MAIN_OPCODE DAC + TT_STRING KEYSET + TT_COMMENT ; save new value + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: LWC 15. ; set up to repeat + TT_MAIN_OPCODE LWC + TT_NUMBER 15. + TT_COMMENT ; set up to repeat + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000017 000017 000000 no no yes no + TT_MAIN_OPCODE 00054 104000 000017 000017 177000 no no yes no +*** 2 tokens: DAC KSCNT + TT_MAIN_OPCODE DAC + TT_STRING KSCNT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 6 tokens: KSREPT: LAC [BACKUP] ; now figure which key to simulate + TT_SYMBOL KSREPT: + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_STRING BACKUP + TT_END_SECT ] + TT_COMMENT ; now figure which key to simulate + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: DAC PTR + TT_MAIN_OPCODE DAC + TT_STRING PTR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: LAC KEYSET + TT_MAIN_OPCODE LAC + TT_STRING KEYSET + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 5 tokens: IOR [174340'] ; turn on bits to ignore + TT_MAIN_OPCODE IOR + TT_BEGIN_SEC [ + TT_NUMBER 174340' + TT_END_SECT ] + TT_COMMENT ; turn on bits to ignore + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 174340 174340 000000 no no yes no + TT_BEGIN_SEC 00054 000000 174340 174340 000000 no no yes no + TT_MAIN_OPCODE 00054 050000 174340 174340 174000 no no yes no +*** 1 token: CMA\CLL + TT_STRING CMA\CLL + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no +*** 1 token: ASN + TT_MAIN_OPCODE ASN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 102001 000000 000000 177777 no no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: RAR 1 + TT_MAIN_OPCODE RAR + TT_NUMBER 1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_MAIN_OPCODE 00054 003020 000001 000001 177770 no no yes no +*** 1 token: LSZ + TT_MAIN_OPCODE LSZ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002004 000000 000000 177777 no no yes no +*** 2 tokens: JMP GOTIT + TT_MAIN_OPCODE JMP + TT_STRING GOTIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: XAM PTR + TT_MAIN_OPCODE XAM + TT_STRING PTR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 024000 000000 000000 174000 no no yes no +*** 1 token: IAC + TT_MAIN_OPCODE IAC + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100004 000000 000000 177777 no no yes no +*** 2 tokens: XAM PTR + TT_MAIN_OPCODE XAM + TT_STRING PTR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 024000 000000 000000 174000 no no yes no +*** 4 tokens: JMP .-6 + TT_MAIN_OPCODE JMP + TT_RELATIVE . + TT_MINUS - + TT_NUMBER 6 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000006 000006 000000 no no yes no + TT_MINUS 00054 000000 000006 000006 000000 no yes yes no + TT_RELATIVE 00054 000000 000006 000006 000000 yes yes yes no + TT_MAIN_OPCODE 00054 010000 000006 000006 174000 yes yes yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: GOTIT: LAC @PTR ; get appropriate key + TT_SYMBOL GOTIT: + TT_MAIN_OPCODE LAC + TT_STRING @PTR + TT_COMMENT ; get appropriate key + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: DAC KEY + TT_MAIN_OPCODE DAC + TT_STRING KEY + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: JMP KEYREPT + TT_MAIN_OPCODE JMP + TT_STRING KEYREPT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; see if we are blowing up + TT_COMMENT ; see if we are blowing up + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 4 tokens: KEYCHK: LAC BIGEXP ; if so then ignore keys + TT_SYMBOL KEYCHK: + TT_MAIN_OPCODE LAC + TT_STRING BIGEXP + TT_COMMENT ; if so then ignore keys + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 060000 000000 000000 174000 no no yes no +*** 1 token: ASZ + TT_MAIN_OPCODE ASZ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002001 000000 000000 177777 no no yes no +*** 3 tokens: JMP RETN ; yes, so wait it out + TT_MAIN_OPCODE JMP + TT_STRING RETN + TT_COMMENT ; yes, so wait it out + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; check for various keyboard commands + TT_COMMENT ; check for various keyboard commands + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 3 tokens: KEY1: LAC KEY + TT_SYMBOL KEY1: + TT_MAIN_OPCODE LAC + TT_STRING KEY + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 060000 000000 000000 174000 no no yes no +*** 3 tokens: SAM RTURN ; turn right? + TT_MAIN_OPCODE SAM + TT_STRING RTURN + TT_COMMENT ; turn right? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no +*** 2 tokens: JMP KEY2 + TT_MAIN_OPCODE JMP + TT_STRING KEY2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: ISZ @DIR + TT_MAIN_OPCODE ISZ + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 030000 000000 000000 174000 no no yes no +*** 1 token: NOP + TT_MAIN_OPCODE NOP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100000 000000 000000 177777 no no yes no +*** 2 tokens: IFN FAST,[ + TT_IFN IFN + TT_STRING FAST,[ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_IFN 00054 000000 000000 000000 000000 no no yes no +*** 5 tokens: LAC [20'] ; new protocol for right turn + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_NUMBER 20' + TT_END_SECT ] + TT_COMMENT ; new protocol for right turn + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000020 000020 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000020 000020 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000020 000020 174000 no no yes no +*** 2 tokens: JMS RELMSG + TT_MAIN_OPCODE JMS + TT_STRING RELMSG + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 1 token: ] + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: JMP RETN2 + TT_MAIN_OPCODE JMP + TT_STRING RETN2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: KEY2: SAM LTURN ; left turn? + TT_SYMBOL KEY2: + TT_MAIN_OPCODE SAM + TT_STRING LTURN + TT_COMMENT ; left turn? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 074000 000000 000000 174000 no no yes no +*** 2 tokens: JMP KEY3 + TT_MAIN_OPCODE JMP + TT_STRING KEY3 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: LAC @DIR + TT_MAIN_OPCODE LAC + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 4 tokens: SUB [1] + TT_MAIN_OPCODE SUB + TT_BEGIN_SEC [ + TT_NUMBER 1 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000001 000001 000000 no no yes no + TT_MAIN_OPCODE 00054 070000 000001 000001 174000 no no yes no +*** 2 tokens: DAC @DIR + TT_MAIN_OPCODE DAC + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: IFN FAST,[ + TT_IFN IFN + TT_STRING FAST,[ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_IFN 00054 000000 000000 000000 000000 no no yes no +*** 5 tokens: LAC [30'] ; new protocol for left turn + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_NUMBER 30' + TT_END_SECT ] + TT_COMMENT ; new protocol for left turn + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000030 000030 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000030 000030 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000030 000030 174000 no no yes no +*** 2 tokens: JMS RELMSG + TT_MAIN_OPCODE JMS + TT_STRING RELMSG + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 1 token: ] + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: JMP RETN2 + TT_MAIN_OPCODE JMP + TT_STRING RETN2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: KEY3: SAM MOVE ; move forward? + TT_SYMBOL KEY3: + TT_MAIN_OPCODE SAM + TT_STRING MOVE + TT_COMMENT ; move forward? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 074000 000000 000000 174000 no no yes no +*** 2 tokens: JMP KEY4 + TT_MAIN_OPCODE JMP + TT_STRING KEY4 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: JMS MOVER + TT_MAIN_OPCODE JMS + TT_STRING MOVER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: IFN FAST,[ + TT_IFN IFN + TT_STRING FAST,[ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_IFN 00054 000000 000000 000000 000000 no no yes no +*** 5 tokens: LAC [150'] ; new protocol for move forward + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_NUMBER 150' + TT_END_SECT ] + TT_COMMENT ; new protocol for move forward + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000150 000150 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000150 000150 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000150 000150 174000 no no yes no +*** 2 tokens: JMS RELMSG + TT_MAIN_OPCODE JMS + TT_STRING RELMSG + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 1 token: ] + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: JMP RETN2 + TT_MAIN_OPCODE JMP + TT_STRING RETN2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: KEY4: SAM PEEKL ; peek left? + TT_SYMBOL KEY4: + TT_MAIN_OPCODE SAM + TT_STRING PEEKL + TT_COMMENT ; peek left? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 074000 000000 000000 174000 no no yes no +*** 2 tokens: JMP KEY5 + TT_MAIN_OPCODE JMP + TT_STRING KEY5 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: JMS MOVER + TT_MAIN_OPCODE JMS + TT_STRING MOVER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: ;ifn fast,[ + TT_COMMENT ;ifn fast,[ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; lac [150'] ; new protocol for move forward + TT_COMMENT ; lac [150'] ; new protocol for move forward + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; ior mybit1 ; insert id + TT_COMMENT ; ior mybit1 ; insert id + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; jms send1 + TT_COMMENT ; jms send1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ;] + TT_COMMENT ;] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 2 tokens: LAC @DIR + TT_MAIN_OPCODE LAC + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 4 tokens: SUB [1] + TT_MAIN_OPCODE SUB + TT_BEGIN_SEC [ + TT_NUMBER 1 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000001 000001 000000 no no yes no + TT_MAIN_OPCODE 00054 070000 000001 000001 174000 no no yes no +*** 2 tokens: DAC @DIR + TT_MAIN_OPCODE DAC + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: JMS HOLD + TT_MAIN_OPCODE JMS + TT_STRING HOLD + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: LAC @DIR + TT_MAIN_OPCODE LAC + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 4 tokens: SUB [1] + TT_MAIN_OPCODE SUB + TT_BEGIN_SEC [ + TT_NUMBER 1 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000001 000001 000000 no no yes no + TT_MAIN_OPCODE 00054 070000 000001 000001 174000 no no yes no +*** 2 tokens: DAC @DIR + TT_MAIN_OPCODE DAC + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: PEEKER: JMS MOVER + TT_SYMBOL PEEKER: + TT_MAIN_OPCODE JMS + TT_STRING MOVER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: JMS ADIR2 + TT_MAIN_OPCODE JMS + TT_STRING ADIR2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMP RETN2 + TT_MAIN_OPCODE JMP + TT_STRING RETN2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: KEY5: SAM PEEKR ; peek right? + TT_SYMBOL KEY5: + TT_MAIN_OPCODE SAM + TT_STRING PEEKR + TT_COMMENT ; peek right? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 074000 000000 000000 174000 no no yes no +*** 2 tokens: JMP KEY6 + TT_MAIN_OPCODE JMP + TT_STRING KEY6 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: JMS MOVER + TT_MAIN_OPCODE JMS + TT_STRING MOVER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: ISZ @DIR + TT_MAIN_OPCODE ISZ + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 030000 000000 000000 174000 no no yes no +*** 1 token: NOP + TT_MAIN_OPCODE NOP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100000 000000 000000 177777 no no yes no +*** 2 tokens: JMS HOLD + TT_MAIN_OPCODE JMS + TT_STRING HOLD + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: ISZ @DIR + TT_MAIN_OPCODE ISZ + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 030000 000000 000000 174000 no no yes no +*** 1 token: NOP + TT_MAIN_OPCODE NOP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100000 000000 000000 177777 no no yes no +*** 2 tokens: JMP PEEKER + TT_MAIN_OPCODE JMP + TT_STRING PEEKER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: KEY6: SAM TURNA ; turn around? + TT_SYMBOL KEY6: + TT_MAIN_OPCODE SAM + TT_STRING TURNA + TT_COMMENT ; turn around? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 074000 000000 000000 174000 no no yes no +*** 2 tokens: JMP KEY7 + TT_MAIN_OPCODE JMP + TT_STRING KEY7 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: JMS ADIR2 + TT_MAIN_OPCODE JMS + TT_STRING ADIR2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: IFN FAST,[ + TT_IFN IFN + TT_STRING FAST,[ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_IFN 00054 000000 000000 000000 000000 no no yes no +*** 5 tokens: LAC [140'] ; new protocol for turn-around + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_NUMBER 140' + TT_END_SECT ] + TT_COMMENT ; new protocol for turn-around + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000140 000140 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000140 000140 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000140 000140 174000 no no yes no +*** 2 tokens: JMS RELMSG + TT_MAIN_OPCODE JMS + TT_STRING RELMSG + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 1 token: ] + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: JMP RETN2 + TT_MAIN_OPCODE JMP + TT_STRING RETN2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: KEY7: SAM BACKUP ; back up? + TT_SYMBOL KEY7: + TT_MAIN_OPCODE SAM + TT_STRING BACKUP + TT_COMMENT ; back up? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 074000 000000 000000 174000 no no yes no +*** 2 tokens: JMP KEY8 + TT_MAIN_OPCODE JMP + TT_STRING KEY8 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: JMS ADIR2 + TT_MAIN_OPCODE JMS + TT_STRING ADIR2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMS MOVER + TT_MAIN_OPCODE JMS + TT_STRING MOVER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMP KEY7NP + TT_MAIN_OPCODE JMP + TT_STRING KEY7NP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: JMS ADIR2 + TT_MAIN_OPCODE JMS + TT_STRING ADIR2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: IFN FAST,[ + TT_IFN IFN + TT_STRING FAST,[ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_IFN 00054 000000 000000 000000 000000 no no yes no +*** 5 tokens: LAC [160'] ; new protocol for move backwards. + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_NUMBER 160' + TT_END_SECT ] + TT_COMMENT ; new protocol for move backwards. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000160 000160 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000160 000160 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000160 000160 174000 no no yes no +*** 2 tokens: JMS RELMSG + TT_MAIN_OPCODE JMS + TT_STRING RELMSG + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 1 token: ] + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: JMP RETN2 + TT_MAIN_OPCODE JMP + TT_STRING RETN2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: KEY7NP: JMS ADIR2 ; can't move backwards, restore direction. + TT_SYMBOL KEY7NP: + TT_MAIN_OPCODE JMS + TT_STRING ADIR2 + TT_COMMENT ; can't move backwards, restore direction. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 2 tokens: ADIR2: 0 + TT_SYMBOL ADIR2: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: LAC @DIR + TT_MAIN_OPCODE LAC + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 4 tokens: ADD [2] + TT_MAIN_OPCODE ADD + TT_BEGIN_SEC [ + TT_NUMBER 2 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000002 000002 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000002 000002 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 000002 000002 174000 no no yes no +*** 2 tokens: DAC @DIR + TT_MAIN_OPCODE DAC + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: JMP @ADIR2 + TT_MAIN_OPCODE JMP + TT_STRING @ADIR2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: KEY8: SAM FIRE ; fire? + TT_SYMBOL KEY8: + TT_MAIN_OPCODE SAM + TT_STRING FIRE + TT_COMMENT ; fire? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 074000 000000 000000 174000 no no yes no +*** 2 tokens: JMP KEY9 + TT_MAIN_OPCODE JMP + TT_STRING KEY9 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; look for visible opponent to shoot at + TT_COMMENT ; look for visible opponent to shoot at + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 5 tokens: LAC [THING+4] ; set display list pointer + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_STRING THING+4 + TT_END_SECT ] + TT_COMMENT ; set display list pointer + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: DAC PTR + TT_MAIN_OPCODE DAC + TT_STRING PTR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: LWC 8. ; 8 possible imlacs + TT_MAIN_OPCODE LWC + TT_NUMBER 8. + TT_COMMENT ; 8 possible imlacs + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000010 000010 000000 no no yes no + TT_MAIN_OPCODE 00054 104000 000010 000010 177000 no no yes no +*** 2 tokens: DAC CNT2 + TT_MAIN_OPCODE DAC + TT_STRING CNT2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 5 tokens: LAC [IM1+4] ; set info table pointer + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_STRING IM1+4 + TT_END_SECT ] + TT_COMMENT ; set info table pointer + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: DAC VISPT + TT_MAIN_OPCODE DAC + TT_STRING VISPT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 1 token: IAC + TT_MAIN_OPCODE IAC + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100004 000000 000000 177777 no no yes no +*** 2 tokens: DAC PTR2 + TT_MAIN_OPCODE DAC + TT_STRING PTR2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: CHKNEXT:LAC @PTR ; get display body + TT_SYMBOL CHKNEXT:LAC + TT_STRING @PTR + TT_COMMENT ; get display body + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 5 tokens: SAM [DNOP] ; is he visible? + TT_MAIN_OPCODE SAM + TT_BEGIN_SEC [ + TT_STRING DNOP + TT_END_SECT ] + TT_COMMENT ; is he visible? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no +*** 2 tokens: JMP NOTDNOP + TT_MAIN_OPCODE JMP + TT_STRING NOTDNOP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 4 tokens: NOTHIM: LAC VISPT ; no, bump pointers to next player + TT_SYMBOL NOTHIM: + TT_MAIN_OPCODE LAC + TT_STRING VISPT + TT_COMMENT ; no, bump pointers to next player + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 060000 000000 000000 174000 no no yes no +*** 4 tokens: ADD [11.] + TT_MAIN_OPCODE ADD + TT_BEGIN_SEC [ + TT_NUMBER 11. + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000013 000013 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000013 000013 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 000013 000013 174000 no no yes no +*** 2 tokens: BUMPTRS:DAC VISPT + TT_SYMBOL BUMPTRS:DAC + TT_STRING VISPT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 1 token: IAC + TT_MAIN_OPCODE IAC + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100004 000000 000000 177777 no no yes no +*** 2 tokens: DAC PTR2 + TT_MAIN_OPCODE DAC + TT_STRING PTR2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: LAC PTR + TT_MAIN_OPCODE LAC + TT_STRING PTR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 4 tokens: ADD [6] + TT_MAIN_OPCODE ADD + TT_BEGIN_SEC [ + TT_NUMBER 6 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000006 000006 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000006 000006 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 000006 000006 174000 no no yes no +*** 2 tokens: DAC PTR + TT_MAIN_OPCODE DAC + TT_STRING PTR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: ISZ CNT2 ; did we check them all + TT_MAIN_OPCODE ISZ + TT_STRING CNT2 + TT_COMMENT ; did we check them all + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 030000 000000 000000 174000 no no yes no +*** 3 tokens: JMP CHKNEXT ; no + TT_MAIN_OPCODE JMP + TT_STRING CHKNEXT + TT_COMMENT ; no + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 3 tokens: JMP RETN ; yes, return + TT_MAIN_OPCODE JMP + TT_STRING RETN + TT_COMMENT ; yes, return + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 3 tokens: NOTDNOP:SAM JMSEXP ; could he already be exploding? + TT_SYMBOL NOTDNOP:SAM + TT_STRING JMSEXP + TT_COMMENT ; could he already be exploding? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: JMP FOUNONE ; no, so we found a opponent to shoot at + TT_MAIN_OPCODE JMP + TT_STRING FOUNONE + TT_COMMENT ; no, so we found a opponent to shoot at + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 3 tokens: JMP NOTHIM ; yes, so don't fire at him + TT_MAIN_OPCODE JMP + TT_STRING NOTHIM + TT_COMMENT ; yes, so don't fire at him + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 3 tokens: FOUNONE:LAC @PTR2 ; are we already firing on this guy? + TT_SYMBOL FOUNONE:LAC + TT_STRING @PTR2 + TT_COMMENT ; are we already firing on this guy? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: ASZ ; if so then don't fire again + TT_MAIN_OPCODE ASZ + TT_COMMENT ; if so then don't fire again + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 002001 000000 000000 177777 no no yes no +*** 2 tokens: JMP NOTHIM + TT_MAIN_OPCODE JMP + TT_STRING NOTHIM + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 3 tokens: LWC 80. ; set 2 second delay to allow player to dodge it + TT_MAIN_OPCODE LWC + TT_NUMBER 80. + TT_COMMENT ; set 2 second delay to allow player to dodge it + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000120 000120 000000 no no yes no + TT_MAIN_OPCODE 00054 104000 000120 000120 177000 no no yes no +*** 2 tokens: DAC @VISPT + TT_MAIN_OPCODE DAC + TT_STRING @VISPT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: LAC @DIR + TT_MAIN_OPCODE LAC + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: DAC @VISPT + TT_MAIN_OPCODE DAC + TT_STRING @VISPT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: LAC @DX ; save our location + TT_MAIN_OPCODE LAC + TT_STRING @DX + TT_COMMENT ; save our location + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: DAC @VISPT + TT_MAIN_OPCODE DAC + TT_STRING @VISPT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: LAC @DY + TT_MAIN_OPCODE LAC + TT_STRING @DY + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: DAC @VISPT + TT_MAIN_OPCODE DAC + TT_STRING @VISPT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: LAC VISPT ; now check next player + TT_MAIN_OPCODE LAC + TT_STRING VISPT + TT_COMMENT ; now check next player + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 4 tokens: ADD [7] + TT_MAIN_OPCODE ADD + TT_BEGIN_SEC [ + TT_NUMBER 7 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000007 000007 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000007 000007 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 000007 000007 174000 no no yes no +*** 2 tokens: JMP BUMPTRS + TT_MAIN_OPCODE JMP + TT_STRING BUMPTRS + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; does he want screen erased? + TT_COMMENT ; does he want screen erased? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 3 tokens: KEY9: SAM ERING + TT_SYMBOL KEY9: + TT_MAIN_OPCODE SAM + TT_STRING ERING + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 074000 000000 000000 174000 no no yes no +*** 3 tokens: JMP VIEWTOP ; no + TT_MAIN_OPCODE JMP + TT_STRING VIEWTOP + TT_COMMENT ; no + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 3 tokens: JMS ERASE ; yes, so erase it + TT_MAIN_OPCODE JMS + TT_STRING ERASE + TT_COMMENT ; yes, so erase it + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: JMP RETN ; then return to main loop + TT_MAIN_OPCODE JMP + TT_STRING RETN + TT_COMMENT ; then return to main loop + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; look at maze from top + TT_COMMENT ; look at maze from top + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 3 tokens: VIEWTOP:SAM TOPVW ; look at maze from top? + TT_SYMBOL VIEWTOP:SAM + TT_STRING TOPVW + TT_COMMENT ; look at maze from top? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 4 tokens: IFE CHEAT, JMP SENDIT + TT_IFE IFE + TT_STRING CHEAT, + TT_MAIN_OPCODE JMP + TT_STRING SENDIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no + TT_STRING 00054 010000 000000 000000 174000 no no yes no + TT_IFE 00054 010000 000000 000000 174000 no no yes no +*** 4 tokens: IFN CHEAT, JMP CHNGP + TT_IFN IFN + TT_STRING CHEAT, + TT_MAIN_OPCODE JMP + TT_STRING CHNGP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no + TT_STRING 00054 010000 000000 000000 174000 no no yes no + TT_IFN 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: STA ; yes, set flag for top view + TT_MAIN_OPCODE STA + TT_COMMENT ; yes, set flag for top view + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 100003 000000 000000 177777 no no yes no +*** 2 tokens: DAC TOPSW + TT_MAIN_OPCODE DAC + TT_STRING TOPSW + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: JMS PRINT ; and build display + TT_MAIN_OPCODE JMS + TT_STRING PRINT + TT_COMMENT ; and build display + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: VTWAIT: JMS CHARIN + TT_SYMBOL VTWAIT: + TT_MAIN_OPCODE JMS + TT_STRING CHARIN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMS DISP + TT_MAIN_OPCODE JMS + TT_STRING DISP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 1 token: CAL + TT_MAIN_OPCODE CAL + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100011 000000 000000 177777 no no yes no +*** 1 token: KRB + TT_MAIN_OPCODE KRB + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 001021 000000 000000 177777 no no yes no +*** 3 tokens: SAM TOPVW ; display top view as long + TT_MAIN_OPCODE SAM + TT_STRING TOPVW + TT_COMMENT ; display top view as long + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no +*** 5 tokens: JMP .+2 ; as key is held down + TT_MAIN_OPCODE JMP + TT_RELATIVE . + TT_PLUS + + TT_NUMBER 2 + TT_COMMENT ; as key is held down + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000002 000002 000000 no no yes no + TT_PLUS 00054 000000 000002 000002 000000 no no yes no + TT_RELATIVE 00054 000000 000002 000002 000000 yes no yes no + TT_MAIN_OPCODE 00054 010000 000002 000002 174000 yes no yes no +*** 2 tokens: JMP VTWAIT + TT_MAIN_OPCODE JMP + TT_STRING VTWAIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: CLA ; look inside again + TT_MAIN_OPCODE CLA + TT_COMMENT ; look inside again + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 100001 000000 000000 177777 no no yes no +*** 2 tokens: DAC TOPSW + TT_MAIN_OPCODE DAC + TT_STRING TOPSW + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: JMS PRINT + TT_MAIN_OPCODE JMS + TT_STRING PRINT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: + TT_PAGE_BREAK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_PAGE_BREAK 00054 000000 000000 000000 000000 no no no no +*** 2 tokens: IFN CHEAT,[ + TT_IFN IFN + TT_STRING CHEAT,[ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_IFN 00054 000000 000000 000000 000000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; secret id switching keys + TT_COMMENT ; secret id switching keys + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; ctrl-rept 0 to : + TT_COMMENT ; ctrl-rept 0 to : + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; 0 return to original id + TT_COMMENT ; 0 return to original id + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; n changes to id n + TT_COMMENT ; n changes to id n + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; : complement forward square + TT_COMMENT ; : complement forward square + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 5 tokens: CHNGP: SUB [3260'] + TT_SYMBOL CHNGP: + TT_MAIN_OPCODE SUB + TT_BEGIN_SEC [ + TT_NUMBER 3260' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 003260 003260 000000 no no yes no + TT_BEGIN_SEC 00054 000000 003260 003260 000000 no no yes no + TT_MAIN_OPCODE 00054 070000 003260 003260 174000 no no yes no + TT_SYMBOL 00054 070000 003260 003260 174000 no no yes no +*** 1 token: ASP + TT_MAIN_OPCODE ASP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002002 000000 000000 177777 no no yes no +*** 2 tokens: JMP SENDIT + TT_MAIN_OPCODE JMP + TT_STRING SENDIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 5 tokens: SAM [10.] ; ctrl-rept : ? + TT_MAIN_OPCODE SAM + TT_BEGIN_SEC [ + TT_NUMBER 10. + TT_END_SECT ] + TT_COMMENT ; ctrl-rept : ? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000012 000012 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000012 000012 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000012 000012 174000 no no yes no +*** 5 tokens: JMP .+2 ; no + TT_MAIN_OPCODE JMP + TT_RELATIVE . + TT_PLUS + + TT_NUMBER 2 + TT_COMMENT ; no + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000002 000002 000000 no no yes no + TT_PLUS 00054 000000 000002 000002 000000 no no yes no + TT_RELATIVE 00054 000000 000002 000002 000000 yes no yes no + TT_MAIN_OPCODE 00054 010000 000002 000002 174000 yes no yes no +*** 3 tokens: JMP ZAP ; yes + TT_MAIN_OPCODE JMP + TT_STRING ZAP + TT_COMMENT ; yes + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: ASN ; ctrl-repeat 0? + TT_MAIN_OPCODE ASN + TT_COMMENT ; ctrl-repeat 0? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 102001 000000 000000 177777 no no yes no +*** 3 tokens: LAC MYREAL ; if so get my real id + TT_MAIN_OPCODE LAC + TT_STRING MYREAL + TT_COMMENT ; if so get my real id + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 4 tokens: SUB [9.] + TT_MAIN_OPCODE SUB + TT_BEGIN_SEC [ + TT_NUMBER 9. + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000011 000011 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000011 000011 000000 no no yes no + TT_MAIN_OPCODE 00054 070000 000011 000011 174000 no no yes no +*** 1 token: ASM + TT_MAIN_OPCODE ASM + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 102002 000000 000000 177777 no no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 4 tokens: ADD [9.] + TT_MAIN_OPCODE ADD + TT_BEGIN_SEC [ + TT_NUMBER 9. + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000011 000011 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000011 000011 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 000011 000011 174000 no no yes no +*** 2 tokens: DAC TEM1 + TT_MAIN_OPCODE DAC + TT_STRING TEM1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: SAL 3 + TT_MAIN_OPCODE SAL + TT_NUMBER 3 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000003 000003 000000 no no yes no + TT_MAIN_OPCODE 00054 003040 000003 000003 177770 no no yes no +*** 5 tokens: ADD [IML1-8.] ; see if this player is playing + TT_MAIN_OPCODE ADD + TT_BEGIN_SEC [ + TT_STRING IML1-8. + TT_END_SECT ] + TT_COMMENT ; see if this player is playing + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 000000 000000 174000 no no yes no +*** 3 tokens: DAC TEM2 ; by seeing if his name exists + TT_MAIN_OPCODE DAC + TT_STRING TEM2 + TT_COMMENT ; by seeing if his name exists + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 5 tokens: LAC [DJMS D040,] + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_STRING DJMS + TT_STRING D040, + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: SAM @TEM2 + TT_MAIN_OPCODE SAM + TT_STRING @TEM2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no +*** 4 tokens: JMP .+2 + TT_MAIN_OPCODE JMP + TT_RELATIVE . + TT_PLUS + + TT_NUMBER 2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000002 000002 000000 no no yes no + TT_PLUS 00054 000000 000002 000002 000000 no no yes no + TT_RELATIVE 00054 000000 000002 000002 000000 yes no yes no + TT_MAIN_OPCODE 00054 010000 000002 000002 174000 yes no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: LAC TEM1 + TT_MAIN_OPCODE LAC + TT_STRING TEM1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 3 tokens: JMS GETD ; change us to new id + TT_MAIN_OPCODE JMS + TT_STRING GETD + TT_COMMENT ; change us to new id + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: JMS PRINT ; display new view + TT_MAIN_OPCODE JMS + TT_STRING PRINT + TT_COMMENT ; display new view + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: ZAP: JMS MOV ; set up ptrs to next square + TT_SYMBOL ZAP: + TT_MAIN_OPCODE JMS + TT_STRING MOV + TT_COMMENT ; set up ptrs to next square + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: LAC @MPTR ; now flip bit + TT_MAIN_OPCODE LAC + TT_STRING @MPTR + TT_COMMENT ; now flip bit + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: XOR BIT + TT_MAIN_OPCODE XOR + TT_STRING BIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 054000 000000 000000 174000 no no yes no +*** 2 tokens: DAC @MPTR + TT_MAIN_OPCODE DAC + TT_STRING @MPTR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: JMS PRINT ; rebuild display + TT_MAIN_OPCODE JMS + TT_STRING PRINT + TT_COMMENT ; rebuild display + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: ] ;end of ifn cheat. + TT_END_SECT ] + TT_COMMENT ;end of ifn cheat. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no +*** 1 token: + TT_PAGE_BREAK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_PAGE_BREAK 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; send other characters to 10 + TT_COMMENT ; send other characters to 10 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: SENDIT: + TT_SYMBOL SENDIT: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 6 tokens: IFN CHEAT, ADD [3260'] + TT_IFN IFN + TT_STRING CHEAT, + TT_MAIN_OPCODE ADD + TT_BEGIN_SEC [ + TT_NUMBER 3260' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 003260 003260 000000 no no yes no + TT_BEGIN_SEC 00054 000000 003260 003260 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 003260 003260 174000 no no yes no + TT_STRING 00054 064000 003260 003260 174000 no no yes no + TT_IFN 00054 064000 003260 003260 174000 no no yes no +*** 4 tokens: AND [177'] + TT_MAIN_OPCODE AND + TT_BEGIN_SEC [ + TT_NUMBER 177' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000177 000177 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000177 000177 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 000177 000177 174000 no no yes no +*** 5 tokens: SAM [15'] ; cr? + TT_MAIN_OPCODE SAM + TT_BEGIN_SEC [ + TT_NUMBER 15' + TT_END_SECT ] + TT_COMMENT ; cr? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000015 000015 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000015 000015 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000015 000015 174000 no no yes no +*** 4 tokens: JMP .+2 + TT_MAIN_OPCODE JMP + TT_RELATIVE . + TT_PLUS + + TT_NUMBER 2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000002 000002 000000 no no yes no + TT_PLUS 00054 000000 000002 000002 000000 no no yes no + TT_RELATIVE 00054 000000 000002 000002 000000 yes no yes no + TT_MAIN_OPCODE 00054 010000 000002 000002 174000 yes no yes no +*** 2 tokens: JMP SENDOK + TT_MAIN_OPCODE JMP + TT_STRING SENDOK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 5 tokens: SUB [40'] ; control code? + TT_MAIN_OPCODE SUB + TT_BEGIN_SEC [ + TT_NUMBER 40' + TT_END_SECT ] + TT_COMMENT ; control code? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000040 000040 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000040 000040 000000 no no yes no + TT_MAIN_OPCODE 00054 070000 000040 000040 174000 no no yes no +*** 1 token: ASP + TT_MAIN_OPCODE ASP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002002 000000 000000 177777 no no yes no +*** 3 tokens: JMP RETN ; yes, so ignore it + TT_MAIN_OPCODE JMP + TT_STRING RETN + TT_COMMENT ; yes, so ignore it + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 5 tokens: SUB [100'] ;it's a 40-177 char, see if it's 140-177 + TT_MAIN_OPCODE SUB + TT_BEGIN_SEC [ + TT_NUMBER 100' + TT_END_SECT ] + TT_COMMENT ;it's a 40-177 char, see if it's 140-177 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000100 000100 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000100 000100 000000 no no yes no + TT_MAIN_OPCODE 00054 070000 000100 000100 174000 no no yes no +*** 1 token: ASP + TT_MAIN_OPCODE ASP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002002 000000 000000 177777 no no yes no +*** 5 tokens: ADD [40'] ;no, it's 40-137, get char back. + TT_MAIN_OPCODE ADD + TT_BEGIN_SEC [ + TT_NUMBER 40' + TT_END_SECT ] + TT_COMMENT ;no, it's 40-137, get char back. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000040 000040 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000040 000040 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 000040 000040 174000 no no yes no +*** 5 tokens: ADD [100'] ;yes, 140-177. make it uppercase. + TT_MAIN_OPCODE ADD + TT_BEGIN_SEC [ + TT_NUMBER 100' + TT_END_SECT ] + TT_COMMENT ;yes, 140-177. make it uppercase. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000100 000100 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000100 000100 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 000100 000100 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: SENDOK: JMS SEND1 ; now send it to 10. char is either 40-137 or 15. + TT_SYMBOL SENDOK: + TT_MAIN_OPCODE JMS + TT_STRING SEND1 + TT_COMMENT ; now send it to 10. char is either 40-137 or 15. + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: JMP RETN + TT_MAIN_OPCODE JMP + TT_STRING RETN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; hold a position for as long as the same key is held down + TT_COMMENT ; hold a position for as long as the same key is held down + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 2 tokens: HOLD: 0 + TT_SYMBOL HOLD: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: JMS PRINT ; update display + TT_MAIN_OPCODE JMS + TT_STRING PRINT + TT_COMMENT ; update display + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 4 tokens: HOLD1: JMS CHARIN ; get stuff from ten + TT_SYMBOL HOLD1: + TT_MAIN_OPCODE JMS + TT_STRING CHARIN + TT_COMMENT ; get stuff from ten + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: JMS DISP ; maintain display + TT_MAIN_OPCODE JMS + TT_STRING DISP + TT_COMMENT ; maintain display + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 1 token: CAL + TT_MAIN_OPCODE CAL + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100011 000000 000000 177777 no no yes no +*** 1 token: KRB + TT_MAIN_OPCODE KRB + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 001021 000000 000000 177777 no no yes no +*** 3 tokens: SAM KEY ; is the same key down? + TT_MAIN_OPCODE SAM + TT_STRING KEY + TT_COMMENT ; is the same key down? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 074000 000000 000000 174000 no no yes no +*** 5 tokens: JMP .+2 ; no, test key set for key still down + TT_MAIN_OPCODE JMP + TT_RELATIVE . + TT_PLUS + + TT_NUMBER 2 + TT_COMMENT ; no, test key set for key still down + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000002 000002 000000 no no yes no + TT_PLUS 00054 000000 000002 000002 000000 no no yes no + TT_RELATIVE 00054 000000 000002 000002 000000 yes no yes no + TT_MAIN_OPCODE 00054 010000 000002 000002 174000 yes no yes no +*** 3 tokens: JMP HOLD1 ; yes, hold this location + TT_MAIN_OPCODE JMP + TT_STRING HOLD1 + TT_COMMENT ; yes, hold this location + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 2 tokens: TSTKS: CLA + TT_SYMBOL TSTKS: + TT_MAIN_OPCODE CLA + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100001 000000 000000 177777 no no yes no + TT_SYMBOL 00054 100001 000000 000000 177777 no no yes no +*** 1 token: MSW + TT_STRING MSW + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: ASN ; do we have the hardware? + TT_MAIN_OPCODE ASN + TT_COMMENT ; do we have the hardware? + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 102001 000000 000000 177777 no no yes no +*** 3 tokens: JMP @HOLD ; no, just return + TT_MAIN_OPCODE JMP + TT_STRING @HOLD + TT_COMMENT ; no, just return + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 5 tokens: AND [2400'] ; if either peek left or right still + TT_MAIN_OPCODE AND + TT_BEGIN_SEC [ + TT_NUMBER 2400' + TT_END_SECT ] + TT_COMMENT ; if either peek left or right still + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 002400 002400 000000 no no yes no + TT_BEGIN_SEC 00054 000000 002400 002400 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 002400 002400 174000 no no yes no +*** 4 tokens: XOR [2400'] + TT_MAIN_OPCODE XOR + TT_BEGIN_SEC [ + TT_NUMBER 2400' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 002400 002400 000000 no no yes no + TT_BEGIN_SEC 00054 000000 002400 002400 000000 no no yes no + TT_MAIN_OPCODE 00054 054000 002400 002400 174000 no no yes no +*** 2 tokens: ASZ ; down then hold position + TT_MAIN_OPCODE ASZ + TT_COMMENT ; down then hold position + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 002001 000000 000000 177777 no no yes no +*** 2 tokens: JMP HOLD1 + TT_MAIN_OPCODE JMP + TT_STRING HOLD1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 3 tokens: JMP @HOLD ; return + TT_MAIN_OPCODE JMP + TT_STRING @HOLD + TT_COMMENT ; return + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: + TT_PAGE_BREAK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_PAGE_BREAK 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; point mptr to appropriate word maze (y) + TT_COMMENT ; point mptr to appropriate word maze (y) + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; and bit to appropriate bit in word for our + TT_COMMENT ; and bit to appropriate bit in word for our + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; current location + TT_COMMENT ; current location + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 2 tokens: PNTBIT: 0 + TT_SYMBOL PNTBIT: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 4 tokens: LAC [MAZE] + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_STRING MAZE + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: ADD @DY + TT_MAIN_OPCODE ADD + TT_STRING @DY + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 000000 000000 174000 no no yes no +*** 2 tokens: DAC MPTR + TT_MAIN_OPCODE DAC + TT_STRING MPTR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: LAC @DX + TT_MAIN_OPCODE LAC + TT_STRING @DX + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 1 token: ASZ + TT_MAIN_OPCODE ASZ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002001 000000 000000 177777 no no yes no +*** 2 tokens: JMP PNT1 + TT_MAIN_OPCODE JMP + TT_STRING PNT1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 4 tokens: LAC [100000'] + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_NUMBER 100000' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 100000 100000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 100000 100000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 100000 100000 174000 no no yes no +*** 2 tokens: JMP PNT2 + TT_MAIN_OPCODE JMP + TT_STRING PNT2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 2 tokens: PNT1: CIA + TT_SYMBOL PNT1: + TT_MAIN_OPCODE CIA + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100006 000000 000000 177777 no no yes no + TT_SYMBOL 00054 100006 000000 000000 177777 no no yes no +*** 2 tokens: DAC CNT + TT_MAIN_OPCODE DAC + TT_STRING CNT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 1 token: CLL + TT_MAIN_OPCODE CLL + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100010 000000 000000 177777 no no yes no +*** 4 tokens: LAC [100000'] + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_NUMBER 100000' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 100000 100000 000000 no no yes no + TT_BEGIN_SEC 00054 000000 100000 100000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 100000 100000 174000 no no yes no +*** 2 tokens: RAR 1 + TT_MAIN_OPCODE RAR + TT_NUMBER 1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_MAIN_OPCODE 00054 003020 000001 000001 177770 no no yes no +*** 2 tokens: ISZ CNT + TT_MAIN_OPCODE ISZ + TT_STRING CNT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 030000 000000 000000 174000 no no yes no +*** 4 tokens: JMP .-2 + TT_MAIN_OPCODE JMP + TT_RELATIVE . + TT_MINUS - + TT_NUMBER 2 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000002 000002 000000 no no yes no + TT_MINUS 00054 000000 000002 000002 000000 no yes yes no + TT_RELATIVE 00054 000000 000002 000002 000000 yes yes yes no + TT_MAIN_OPCODE 00054 010000 000002 000002 174000 yes yes yes no +*** 3 tokens: PNT2: DAC BIT + TT_SYMBOL PNT2: + TT_MAIN_OPCODE DAC + TT_STRING BIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: JMP @PNTBIT + TT_MAIN_OPCODE JMP + TT_STRING @PNTBIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; move forward one square + TT_COMMENT ; move forward one square + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 2 tokens: MOV: 0 + TT_SYMBOL MOV: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: CLA ; clear out increments + TT_MAIN_OPCODE CLA + TT_COMMENT ; clear out increments + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 100001 000000 000000 177777 no no yes no +*** 3 tokens: DAC TEM1 ; y increment + TT_MAIN_OPCODE DAC + TT_STRING TEM1 + TT_COMMENT ; y increment + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: DAC TEM2 ; x increment + TT_MAIN_OPCODE DAC + TT_STRING TEM2 + TT_COMMENT ; x increment + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: JMS PNTBIT ; position to current position + TT_MAIN_OPCODE JMS + TT_STRING PNTBIT + TT_COMMENT ; position to current position + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: LAC @DIR ; see which direction we are heading + TT_MAIN_OPCODE LAC + TT_STRING @DIR + TT_COMMENT ; see which direction we are heading + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 4 tokens: AND [1] + TT_MAIN_OPCODE AND + TT_BEGIN_SEC [ + TT_NUMBER 1 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000001 000001 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 000001 000001 174000 no no yes no +*** 1 token: ASZ + TT_MAIN_OPCODE ASZ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002001 000000 000000 177777 no no yes no +*** 2 tokens: JMP MOVEWE + TT_MAIN_OPCODE JMP + TT_STRING MOVEWE + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 3 tokens: JMS CREMENT ; move north or south + TT_MAIN_OPCODE JMS + TT_STRING CREMENT + TT_COMMENT ; move north or south + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 2 tokens: DAC TEM1 + TT_MAIN_OPCODE DAC + TT_STRING TEM1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: ADD MPTR + TT_MAIN_OPCODE ADD + TT_STRING MPTR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 000000 000000 174000 no no yes no +*** 2 tokens: DAC MPTR + TT_MAIN_OPCODE DAC + TT_STRING MPTR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: JMP @MOV ; return + TT_MAIN_OPCODE JMP + TT_STRING @MOV + TT_COMMENT ; return + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 4 tokens: MOVEWE: JMS CREMENT ; move west or east + TT_SYMBOL MOVEWE: + TT_MAIN_OPCODE JMS + TT_STRING CREMENT + TT_COMMENT ; move west or east + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no + TT_SYMBOL 00054 034000 000000 000000 174000 no no yes no +*** 4 tokens: AND [20'] + TT_MAIN_OPCODE AND + TT_BEGIN_SEC [ + TT_NUMBER 20' + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000020 000020 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000020 000020 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 000020 000020 174000 no no yes no +*** 5 tokens: IOR [RAL 1] + TT_MAIN_OPCODE IOR + TT_BEGIN_SEC [ + TT_MAIN_OPCODE RAL + TT_NUMBER 1 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_MAIN_OPCODE 00054 003000 000001 000001 177770 no no yes no + TT_BEGIN_SEC 00054 003000 000001 000001 177770 no no yes no + TT_MAIN_OPCODE 00054 050000 000001 000001 174000 no no yes no +*** 2 tokens: DAC NOPER + TT_MAIN_OPCODE DAC + TT_STRING NOPER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: LAC BIT + TT_MAIN_OPCODE LAC + TT_STRING BIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 1 token: CLL + TT_MAIN_OPCODE CLL + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100010 000000 000000 177777 no no yes no +*** 2 tokens: NOPER: NOP + TT_SYMBOL NOPER: + TT_MAIN_OPCODE NOP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100000 000000 000000 177777 no no yes no + TT_SYMBOL 00054 100000 000000 000000 177777 no no yes no +*** 2 tokens: DAC BIT + TT_MAIN_OPCODE DAC + TT_STRING BIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: JMS CREMENT + TT_MAIN_OPCODE JMS + TT_STRING CREMENT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 1 token: CIA + TT_MAIN_OPCODE CIA + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 100006 000000 000000 177777 no no yes no +*** 3 tokens: DAC TEM2 ; set x increment + TT_MAIN_OPCODE DAC + TT_STRING TEM2 + TT_COMMENT ; set x increment + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: JMP @MOV + TT_MAIN_OPCODE JMP + TT_STRING @MOV + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 2 tokens: MOVER: 0 + TT_SYMBOL MOVER: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: JMS MOV ; move forwards one square + TT_MAIN_OPCODE JMS + TT_STRING MOV + TT_COMMENT ; move forwards one square + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 034000 000000 000000 174000 no no yes no +*** 3 tokens: LAC @MPTR ; see if it is a wall + TT_MAIN_OPCODE LAC + TT_STRING @MPTR + TT_COMMENT ; see if it is a wall + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: AND BIT + TT_MAIN_OPCODE AND + TT_STRING BIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 000000 000000 174000 no no yes no +*** 1 token: ASZ + TT_MAIN_OPCODE ASZ + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002001 000000 000000 177777 no no yes no +*** 3 tokens: JMP @MOVER ; a open square + TT_MAIN_OPCODE JMP + TT_STRING @MOVER + TT_COMMENT ; a open square + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 3 tokens: LAC TEM2 ; update x to this square + TT_MAIN_OPCODE LAC + TT_STRING TEM2 + TT_COMMENT ; update x to this square + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: ADD @DX + TT_MAIN_OPCODE ADD + TT_STRING @DX + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 000000 000000 174000 no no yes no +*** 2 tokens: DAC @DX + TT_MAIN_OPCODE DAC + TT_STRING @DX + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: LAC TEM1 ; update y + TT_MAIN_OPCODE LAC + TT_STRING TEM1 + TT_COMMENT ; update y + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: ADD @DY + TT_MAIN_OPCODE ADD + TT_STRING @DY + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 064000 000000 000000 174000 no no yes no +*** 2 tokens: DAC @DY + TT_MAIN_OPCODE DAC + TT_STRING @DY + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 3 tokens: ISZ MOVER ; and indicate we moved by skipping + TT_MAIN_OPCODE ISZ + TT_STRING MOVER + TT_COMMENT ; and indicate we moved by skipping + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 030000 000000 000000 174000 no no yes no +*** 2 tokens: JMP @MOVER + TT_MAIN_OPCODE JMP + TT_STRING @MOVER + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; return 1 or -1 according to which direction we are heading + TT_COMMENT ; return 1 or -1 according to which direction we are heading + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 2 tokens: CREMENT: 0 + TT_SYMBOL CREMENT: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: LAC @DIR + TT_MAIN_OPCODE LAC + TT_STRING @DIR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 2 tokens: SAR 1 + TT_MAIN_OPCODE SAR + TT_NUMBER 1 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_MAIN_OPCODE 00054 003060 000001 000001 177770 no no yes no +*** 4 tokens: AND [1] + TT_MAIN_OPCODE AND + TT_BEGIN_SEC [ + TT_NUMBER 1 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_BEGIN_SEC 00054 000000 000001 000001 000000 no no yes no + TT_MAIN_OPCODE 00054 044000 000001 000001 174000 no no yes no +*** 1 token: ASN + TT_MAIN_OPCODE ASN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 102001 000000 000000 177777 no no yes no +*** 5 tokens: LAC [-1] + TT_MAIN_OPCODE LAC + TT_BEGIN_SEC [ + TT_MINUS - + TT_NUMBER 1 + TT_END_SECT ] + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_END_SECT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000001 000001 000000 no no yes no + TT_MINUS 00054 000000 000001 000001 000000 no yes yes no + TT_BEGIN_SEC 00054 000000 000001 000001 000000 no yes yes no + TT_MAIN_OPCODE 00054 060000 000001 000001 174000 no yes yes no +*** 2 tokens: JMP @CREMENT + TT_MAIN_OPCODE JMP + TT_STRING @CREMENT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: + TT_PAGE_BREAK + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_PAGE_BREAK 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; refreshing routine + TT_COMMENT ; refreshing routine + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 1 token: ; + TT_COMMENT ; + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no no no +*** 2 tokens: REFR: 0 + TT_SYMBOL REFR: + TT_NUMBER 0 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 1 token: DSF + TT_MAIN_OPCODE DSF + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002010 000000 000000 177777 no no yes no +*** 1 token: SSF + TT_MAIN_OPCODE SSF + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 002200 000000 000000 177777 no no yes no +*** 2 tokens: JMP @REFR + TT_MAIN_OPCODE JMP + TT_STRING @REFR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 1 token: SCF + TT_MAIN_OPCODE SCF + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 001071 000000 000000 177777 no no yes no +*** 3 tokens: LAC WHICHD ; get appropriate display list address + TT_MAIN_OPCODE LAC + TT_STRING WHICHD + TT_COMMENT ; get appropriate display list address + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 060000 000000 000000 174000 no no yes no +*** 1 token: DLA + TT_MAIN_OPCODE DLA + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 001003 000000 000000 177777 no no yes no +*** 1 token: DON + TT_MAIN_OPCODE DON + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_MAIN_OPCODE 00054 003100 000000 000000 177777 no no yes no +*** 2 tokens: STA ; indicate 40 cycle sync + TT_MAIN_OPCODE STA + TT_COMMENT ; indicate 40 cycle sync + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 100003 000000 000000 177777 no no yes no +*** 2 tokens: DAC SYNC + TT_MAIN_OPCODE DAC + TT_STRING SYNC + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 020000 000000 000000 174000 no no yes no +*** 2 tokens: JMP @REFR + TT_MAIN_OPCODE JMP + TT_STRING @REFR + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_MAIN_OPCODE 00054 010000 000000 000000 174000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 3 tokens: WHICHD: AD1 ; contains address of current display + TT_SYMBOL WHICHD: + TT_STRING AD1 + TT_COMMENT ; contains address of current display + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: SYNC: 0 ; 40 cycle sync flag + TT_SYMBOL SYNC: + TT_NUMBER 0 + TT_COMMENT ; 40 cycle sync flag + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: BIGEXP: 0 ; our explosion counter + TT_SYMBOL BIGEXP: + TT_NUMBER 0 + TT_COMMENT ; our explosion counter + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_COMMENT 00054 000000 000000 000000 000000 no no yes no + TT_NUMBER 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 3 tokens: JMSEXP: DJMS EXPLOSIN + TT_SYMBOL JMSEXP: + TT_STRING DJMS + TT_STRING EXPLOSIN + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 2 tokens: EXP: DDSP + TT_SYMBOL EXP: + TT_STRING DDSP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 1 token: DDSP + TT_STRING DDSP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no +*** 1 token: DDSP + TT_STRING DDSP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: INC1: DDSP + TT_SYMBOL INC1: + TT_STRING DDSP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: INC2: DDSP + TT_SYMBOL INC2: + TT_STRING DDSP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: INC3: DDSP + TT_SYMBOL INC3: + TT_STRING DDSP + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_SYMBOL 00054 000000 000000 000000 000000 no no yes no +*** 1 token: DRJM + TT_STRING DRJM + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no +*** 0 tokens: + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- +*** 2 tokens: EXPLOSIN:DLXA 1000 + TT_SYMBOL EXPLOSIN:DLXA + TT_NUMBER 1000 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 001000 001000 000000 no no yes no + TT_SYMBOL 00054 000000 001000 001000 000000 no no yes no +*** 2 tokens: DJMS WAIT + TT_STRING DJMS + TT_STRING WAIT + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_STRING 00054 000000 000000 000000 000000 no no yes no + TT_STRING 00054 000000 000000 000000 000000 no no yes no +*** 2 tokens: DSTS 3 + TT_STRING DSTS + TT_NUMBER 3 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- + TT_NUMBER 00054 000000 000003 000003 000000 no no yes no + TT_STRING 00054 000000 000003 000003 000000 no no yes no +*** 3 tokens: INC E,D03 + TT_SPEC_OPCODE INC + TT_INC_OPCODE E + TT_NONE ,D03 + + Token Addr Opcode Operand Value Mask Rel Neg OutD Sec + -------------- ----- ------ ------- ------ ------ --- --- ---- --- diff --git a/imlac/rom3 b/imlac/rom3 new file mode 100644 index 0000000000000000000000000000000000000000..1dfcf5e03d3da76606398742dc94518e721a8aaf GIT binary patch literal 214 zcmZQzV3M*wn0~PSulR`$E+%F+hXzjdL-xtIpPY2Z}Q2k91&V3JnQ z^)RR~6cA6)^)S-V2b#nfps%2Bpd%o@fI~v_|6lPm13dxZ3C0oz|NlG>Whh{9VBr6M LV1@t#GcOkapAkZ8 literal 0 HcmV?d00001 diff --git a/imlac/rom3.dis b/imlac/rom3.dis new file mode 100644 index 00000000..068d9724 --- /dev/null +++ b/imlac/rom3.dis @@ -0,0 +1,108 @@ +Dissassembling: imlac/rom3 +007700 000000 HLT +007701 001032 RCF +007702 037701 JMS +007703 063701 LAC +007704 077775 SAM +007705 013710 JMP +007706 104012 LWC +007707 001003 DLA +007710 003100 DON +007711 100011 CAL +007712 023702 DAC +007713 037746 JMS +007714 023700 DAC +007715 002002 ASP +007716 013740 JMP +007717 037746 JMS +007720 023701 DAC +007721 037746 JMS +007722 037746 JMS +007723 123700 I DAC +007724 063700 LAC +007725 003063 SAR +007726 047765 AND +007727 053764 IOR +007730 023766 DAC +007731 163700 I LAC +007732 033700 ISZ +007733 033701 ISZ +007734 013721 JMP4 +007735 067702 ADD +007736 002001 ASZ +007737 013736 JMP5 +007740 013710 JMP +007741 001012 DOF +007742 100004 IAC +007743 102001 ASN +007744 000000 HLT +007745 037746 JMS +007746 113700 I JMP +007747 000000 HLT +007750 067702 ADD +007751 023702 DAC +007752 100011 CAL +007753 002040 RSF +007754 013752 JMP +007755 001033 RRC +007756 003003 RAL +007757 003003 RAL +007760 003002 RAL +007761 002040 RSF +007762 013760 JMP +007763 001033 RRC +007764 113746 I JMP +007765 020000 DAC +007766 001777 ??? +007767 020000 DAC +007770 010000 JMP +007771 004005 LAW +007772 046000 AND +007773 021777 DAC +007774 000000 HLT +007775 067766 ADD +007776 017702 JMP +007777 014020 JMP +010000 177747 I SAM +010001 021356 DAC +010002 104101 LWC +010003 020010 DAC +010004 020056 DAC +010005 104004 LWC +010006 020054 DAC +010007 100011 CAL +010010 020057 DAC +010011 100011 CAL +010012 002040 RSF +010013 010030 JMP +010014 001033 RRC +010015 020055 DAC +010016 044060 AND +010017 074061 SAM +010020 010027 JMP +010021 060055 LAC +010022 044062 AND +010023 024057 XAM +010024 003003 RAL +010025 003001 RAL +010026 050057 IOR +010027 020057 DAC +010030 030054 ISZ +010031 010027 JMP +010032 120010 I DAC +010033 014051 JMP +010034 177775 I SAM +010035 013546 JMP +010036 030056 ISZ +010037 010023 JMP +010040 110063 I JMP +010041 014060 JMP +010042 177774 I SAM +010043 163525 I LAC +010044 000160 ??? +010045 000100 ??? +010046 000017 ??? +010047 177700 I SAM +010050 114020 I JMP +010051 000003 ??? +010052 006412 ??? diff --git a/imlac/rom3.i b/imlac/rom3.i new file mode 100644 index 0000000000000000000000000000000000000000..4ad6cd4f8d70b559e30d11e33b04de8fb8a3e5a1 GIT binary patch literal 463 zcmZ8e%WlFj5X==z{s*L9P^E;pAUHb?tz6kLTDvmv{~y9WpfcQcc4l^G?N!$mU&3kC zbv_2`){tVqTW25tf-MQOLT0d2)@sXjf*