Additional Auto-Commenting

This program creates a segment at paragraph 0x40 and comments the BIOS data area. You should load and execute this file to see the names of BIOS data area variables.
//-------------------------------------------------------------------------
static CW(off,name,cmt) {
  auto x;
  x = [ 0x40, off ];
  MakeWord(x);
  MakeName(x,name);
  MakeRptCmt(x,cmt);
}

//-------------------------------------------------------------------------
static CD(off,name,cmt) {
  auto x;
  x = [ 0x40, off ];
  MakeDword(x);
  MakeName(x,name);
  MakeRptCmt(x,cmt);
}

//-------------------------------------------------------------------------
static CB(off,name,cmt) {
  auto x;
  x = [ 0x40, off ];
  MakeByte(x);
  MakeName(x,name);
  MakeRptCmt(x,cmt);
}

//-------------------------------------------------------------------------
static CmtBdata() {
 CW(0x000,"com_port_1","Base I/O address of 1st serial I/O port");
 CW(0x002,"com_port_2","Base I/O address of 2nd serial I/O port");
 CW(0x004,"com_port_3","Base I/O address of 3rd serial I/O port");
 CW(0x006,"com_port_4","Base I/O address of 4th serial I/O port");

 CW(0x008,"prn_port_1","Base I/O address of 1st parallel I/O port");
 CW(0x00A,"prn_port_2","Base I/O address of 2nd parallel I/O port");
 CW(0x00C,"prn_port_3","Base I/O address of 3rd parallel I/O port");
 CW(0x00E,"prn_port_4","Base I/O address of 4th parallel I/O port");

 CW(0x010,"equip_bits",         "Equipment installed info bits\n"
				"15  14  13   12   11  10   9   8\n"
				"\\    /      game  \\       /\n"
				"# of print  port  # of RS-232\n"
				"ports 0-3   used   ports 0-4\n"
				"\n"
				"7   6    5    4    3   2   1   0\n"
				"\\   /    \\    /    \\   / Math  |\n"
				"# of   video mode  RAM    uP  no\n"
				"disk-  at boot up  00=16K    dsk\n"
				"ettes  00=EGA/VGA  01=32K   driv\n"
				" 1-4   01=CGA-40   10=48K   if 0\n"
				"if bit 10=CGA-80   11=64K\n"
				"0 = 1  11=MDA-80   (old PCs)\n"
				"\n"
				"Note: bit 13=modem on PC lap-tops\n"
				"      bit 2=mouse on MCA & others");

 CB(0x012,"manufactr_test",     "Manufacturing Test Byte\n"
				"bit 0 = 1 while in test mode\n"
				"MCA systems use other bits\n"
				"  during POST operations");
 CW(0x013,"base_ram_size",      "Base memory size in KBytes (0-640)");

 CB(0x015,"mtest_scratchpad",   "[AT] {Manufacturing test scratch pad}\n"
				"[Compaq Deskpro 386] previous scan code");
 CB(0x016,"error_codes",        "[AT] {Manufacturing test scratch pad}\n"
				"[PS/2 Mod 30] {BIOS control flags}\n"
				"[Compaq Deskpro 386] keyclick loudness (00h-7Fh)");
 CB(0x017,"keybd_flags_1",      "Keyboard flag bits\n"
				"  7   6   5   4    3   2   1   0\n"
				"ins- cap num scrl alt ctl lef rig\n"
				"sert --toggles--- --shifts down--");
 CB(0x018,"keybd_flags_2",      "Keyboard flag bits\n"
				"   7     6     5     4   \n"
				"insert  caps  num  scroll\n"
				"------now depressed------\n"
				"\n"
				"   3     2     1     0\n"
				" pause  sys   left right\n"
				" lock request -alt-down-");
 CB(0x019,"keybd_alt_num",      "Alt-nnn keypad workspace");
 CW(0x01A,"keybd_q_head",       "pointer to next character in keyboard buffer");
 CW(0x01C,"keybd_q_tail",       "pointer to first free slot in keyboard buffer");
 CW(0x01E,"keybd_queue",        "Keyboard circular buffer");
 MakeArray([0x40,0x01E ], 16 );
 CB(0x03E,"dsk_recal_stat",     "Recalibrate floppy drive bits\n"
				"   3       2       1       0\n"
				"drive-3 drive-2 drive-1 drive-0\n"
				"\n"
				"bit 7 = interrupt flag");
 CB(0x03F,"dsk_motor_stat",     "Motor running status & disk write\n"
				" bit 7=1 disk write in progress\n"
				" bits 6&5 = drive selected 0 to 3\n"
				"    3       2       1       0\n"
				" drive-3 drive-2 drive-1 drive-0\n"
				" --------- 1=motor on-----------");
 CB(0x040,"dsk_motor_timer",    "Motor timer, at 0, turn off motor");
 CB(0x041,"dsk_ret_code",       "Controller return code\n"
				" 00h = ok\n"
				" 01h = bad command or parameter\n"
				" 02h = can't find address mark\n"
				" 03h = can't write, protected dsk\n"
				" 04h = sector not found\n"
				" 08h = DMA overrun\n"
				" 09h = DMA attempt over 64K bound\n"
				" 10h = bad CRC on disk read\n"
				" 20h = controller failure\n"
				" 40h = seek failure\n"
				" 80h = timeout, no response");

 CB(0x042,"dsk_status_1",       "Status bytes-disk controller chip\n"
				" Note: 7 info bytes returned from\n"
				" controller are saved here. Refer\n"
				" to the NEC uPD 765 chip manual\n"
				" for the specific info, depending\n"
				" on the previous command issued.");
 CB(0x043,"dsk_status_2",       "");
 CB(0x044,"dsk_status_3",       "");
 CB(0x045,"dsk_status_4",       "");
 CB(0x046,"dsk_status_5",       "");
 CB(0x047,"dsk_status_6",       "");
 CB(0x048,"dsk_status_7",       "");

 CB(0x049,"video_mode",         "Present display mode");
 CW(0x04A,"video_columns",      "Number of columns");
 CW(0x04C,"video_buf_size",     "Video buffer size in bytes\n"
				"  Note: size may be rounded up to\n"
				"  the nearest 2K boundary.  For\n"
				"  example, 80x25 mode=4000 bytes,\n"
				"  but value may be 4096.");
 CW(0x04E,"video_pageoff",      "Video page offset of the active\n"
				"  page, from start of current \n"
				"  video segment.");
 CW(0x050,"vid_curs_pos0",      "Cursor position page 0\n"
				"  bits 15-8=row, bits 7-0=column");
 CW(0x052,"vid_curs_pos1",      "Cursor position page 1\n"
				"  bits 15-8=row, bits 7-0=column");
 CW(0x054,"vid_curs_pos2",      "Cursor position page 2\n"
				"  bits 15-8=row, bits 7-0=column");
 CW(0x056,"vid_curs_pos3",      "Cursor position page 3\n"
				"  bits 15-8=row, bits 7-0=column");
 CW(0x058,"vid_curs_pos4",      "Cursor position page 4\n"
				"  bits 15-8=row, bits 7-0=column");
 CW(0x05A,"vid_curs_pos5",      "Cursor position page 5\n"
				"  bits 15-8=row, bits 7-0=column");
 CW(0x05C,"vid_curs_pos6",      "Cursor position page 6\n"
				"  bits 15-8=row, bits 7-0=column");
 CW(0x05E,"vid_curs_pos7",      "Cursor position page 7\n"
				"  bits 15-8=row, bits 7-0=column");
 CW(0x060,"vid_curs_mode",      "Active cursor, start & end lines \n"
				"  bits 12 to 8 for starting line\n"
				"  bits 4  to 0 for ending line");
 CB(0x062,"video_page",         "Present page");
 CW(0x063,"video_port",         "Video controller base I/O address");
 CB(0x065,"video_mode_reg",     "Hardware mode register bits");
 CB(0x066,"video_color",        "Color set in CGA modes");
 CW(0x067,"gen_use_ptr",        "General use offset pointer");
 CW(0x069,"gen_use_seg",        "General use segment pointer");
 CB(0x06B,"gen_int_occurd",     "Unused interrupt occurred\n"
				"  value holds the IRQ bit 7-0 of\n"
				"  the interrupt that occurred");
 CW(0x06C,"timer_low",          "Timer, low word, cnts every 55 ms");
 CW(0x06E,"timer_high",         "Timer, high word");
 CB(0x070,"timer_rolled",       "Timer overflowed, set to 1 when\n"
				" more than 24 hours have elapsed");
 CB(0x071,"keybd_break",        "Bit 7 set if break key depressed");
 CW(0x072,"warm_boot_flag",     "Boot (reset) type\n"
				"  1234h=warm boot, no memory test       \n"
				"  4321h=boot & save memory");
 CB(0x074,"hdsk_status_1",      "Hard disk status\n"
				" 00h = ok\n"
				" 01h = bad command or parameter\n"
				" 02h = can't find address mark\n"
				" 03h = can't write, protected dsk\n"
				" 04h = sector not found\n"
				" 05h = reset failure\n"
				" 07h = activity failure\n"
				" 08h = DMA overrun\n"
				" 09h = DMA attempt over 64K bound\n"
				" 0Ah = bad sector flag\n"
				" 0Bh = removed bad track\n"
				" 0Dh = wrong # of sectors, format\n"
				" 0Eh = removed control data addr\n"
				"        mark\n"
				" 0Fh = out of limit DMA\n"
				"        arbitration level\n"
				" 10h = bad CRC or ECC, disk read\n"
				" 11h = bad ECC corrected data\n"
				" 20h = controller failure\n"
				" 40h = seek failure\n"
				" 80h = timeout, no response\n"
				" AAh = not ready\n"
				" BBh = error occurred, undefined\n"
				" CCh = write error, selected dsk\n"
				" E0h = error register = 0\n"
				" FFh = disk sense failure");
 CB(0x075,"hdsk_count",         "Number of hard disk drives");
 CB(0x076,"hdsk_head_ctrl",     "Head control (XT only)");
 CB(0x077,"hdsk_ctrl_port",     "Hard disk control port (XT only)");
 CB(0x078,"prn_timeout_1",      "Countdown timer waits for printer\n"
				"  to respond (printer 1)");
 CB(0x079,"prn_timeout_2",      "Countdown timer waits for printer\n"
				"  to respond (printer 2)");
 CB(0x07A,"prn_timeout_3",      "Countdown timer waits for printer\n"
				"  to respond (printer 3)");
 CB(0x07B,"prn_timeout_4",      "Countdown timer waits for printer\n"
				"  to respond (printer 4)");
 CB(0x07C,"rs232_timeout_1",    "Countdown timer waits for RS-232 (1)");
 CB(0x07D,"rs232_timeout_2",    "Countdown timer waits for RS-232 (2)");
 CB(0x07E,"rs232_timeout_3",    "Countdown timer waits for RS-232 (3)");
 CB(0x07F,"rs232_timeout_4",    "Countdown timer waits for RS-232 (4)");
 CW(0x080,"keybd_begin",        "Ptr to beginning of keybd queue");
 CW(0x082,"keybd_end",          "Ptr to end of keyboard queue");
 CB(0x084,"video_rows",         "Rows of characters on display - 1");
 CW(0x085,"video_pixels",       "Number of pixels per charactr * 8");
 CB(0x087,"video_options",      "Display adapter options\n"
				"  bit 7 = clear RAM\n"
				"  bits 6,5 = memory on adapter\n"
				"              00 - 64K\n"
				"              01 - 128K\n"
				"              10 - 192K\n"
				"              11 - 256K\n"
				"  bit 4 = unused\n"
				"  bit 3 = 0 if EGA/VGA active\n"
				"  bit 2 = wait for display enable\n"
				"  bit 1 = 1 - mono monitor\n"
				"        = 0 - color monitor\n"
				"  bit 0 = 0 - handle cursor, CGA");
 CB(0x088,"video_switches",     "Switch setting bits from adapter\n"
				"  bits 7-4 = feature connector\n"
				"  bits 3-0 = option switches");
 CB(0x089,"video_1_save",       "Video save area 1-EGA/VGA control\n"
				"  bit 7 = 200 line mode\n"
				"  bits 6,5 = unused\n"
				"  bit 4 = 400 line mode\n"
				"  bit 3 = no palette load\n"
				"  bit 2 = mono monitor\n"
				"  bit 1 = gray scale\n"
				"  bit 0 = unused");
 CB(0x08A,"video_2_save",       "Video save area 2");

 CB(0x08B,"dsk_data_rate",      "Last data rate for diskette\n"
				" bits 7 & 6 = 00 for 500K bit/sec\n"
				"            = 01 for 300K bit/sec\n"
				"            = 10 for 250K bit/sec\n"
				"            = 11 for 1M bit/sec\n"
				" bits 5 & 4 = step rate"
				"Rate at start of operation\n"
				" bits 3 & 2 = 00 for 500K bit/sec\n"
				"            = 01 for 300K bit/sec\n"
				"            = 10 for 250K bit/sec\n"
				"            = 11 for 1M bit/sec");
 CB(0x08C,"hdsk_status_2",      "Hard disk status");
 CB(0x08D,"hdsk_error",         "Hard disk error");
 CB(0x08E,"hdsk_complete",      "When the hard disk controller's\n"
				" task is complete, this byte is\n"
				" set to FFh (from interrupt 76h)");
 CB(0x08F,"dsk_options",        "Diskette controller information\n"
				" bit 6 = 1 Drv 1 type determined\n"
				"     5 = 1 Drv 1 is multi-rate\n"
				"     4 = 1 Drv 1 change detect\n"
				"     2 = 1 Drv 0 type determined\n"
				"     1 = 1 Drv 0 is multi-rate\n"
				"     0 = 1 Drv 0 change detect");
 CB(0x090,"dsk0_media_st",      "Media state for diskette drive 0\n"
				"    7      6      5      4\n"
				" data xfer rate  two   media\n"
				"  00=500K bit/s  step  known\n"
				"  01=300K bit/s\n"
				"  10=250K bit/s\n"
				"  11=1M bit/sec\n"
				"    3      2      1      0\n"
				" unused  -----state of drive-----\n"
				"         bits floppy  drive state\n"
				"         000=  360K in 360K, ?\n"
				"         001=  360K in 1.2M, ?\n"
				"         010=  1.2M in 1.2M, ?\n"
				"         011=  360K in 360K, ok\n"
				"         100=  360K in 1.2M, ok\n"
				"         101=  1.2M in 1.2M, ok\n"
				"         111=  720K in 720K, ok\n"
				"           or 1.44M in 1.44M\n"
				"        (state not used for 2.88)");
 CB(0x091,"dsk1_media_st",      "Media state for diskette drive 1\n"
				" (see dsk0_media_st)");
 CB(0x092,"dsk0_start_st",      "Starting state for drive 0");
 CB(0x093,"dsk1_start_st",      "Starting state for drive 1");
 CB(0x094,"dsk0_cylinder",      "Current track number for drive 0");
 CB(0x095,"dsk1_cylinder",      "Current track number for drive 1");
 CB(0x096,"keybd_flags_3",      "Special keyboard type and mode\n"
				" bit 7 Reading ID of keyboard\n"
				"     6 last char is 1st ID char\n"
				"     5 force num lock\n"
				"     4 101/102 key keyboard\n"
				"     3 right alt key down\n"
				"     2 right ctrl key down\n"
				"     1 E0h hidden code last\n"
				"     0 E1h hidden code last");
 CB(0x097,"keybd_flags_4",      "Keyboard Flags (advanced keybd)\n"
				"  7      6       5     4  3 2 1 0\n"
				"xmit   char   Resend  Ack   \   /\n"
				"error was ID  Rec'd  Rec'd   LEDs");

 CW(0x098,"timer_waitoff",      "Ptr offset to wait done flag");
 CW(0x09A,"timer_waitseg",      "Ptr segment to wait done flag");
 CW(0x09C,"timer_clk_low",      "Timer low word, 1 microsecond clk");
 CW(0x09E,"timer_clk_high",     "Timer high word");
 CB(0x0A0,"timer_clk_flag",     "Timer flag 00h = post acknowledgd\n"
				"           01h = busy\n"
				"           80h = posted");
 CB(0x0A1,"lan_bytes",          "Local area network bytes (7)");
 MakeArray([0x40,0xA1],7);

 CD(0x0A8,"video_sav_tbl",      "Pointer to a save table of more\n"
				"pointers for the video system \n"
				"           SAVE TABLE\n"
				" offset type    pointer to\n"
				" 컴컴컴 컴컴 컴컴컴컴컴컴컴컴컴컴\n"
				"   0     dd  Video parameters\n"
				"   4     dd  Parms save area\n"
				"   8     dd  Alpha char set\n"
				"  0Ch    dd  Graphics char set\n"
				"  10h    dd  2nd save ptr table\n"
				"  14h    dd  reserved (0:0)\n"
				"  18h    dd  reserved (0:0)\n"
				" \n"
				" 2ND SAVE TABLE (from ptr above)\n"
				" offset type functions & pointers\n"
				" 컴컴컴 컴컴 컴컴컴컴컴컴컴컴컴컴\n"
				"   0     dw  Bytes in this table\n"
				"   2     dd  Combination code tbl\n"
				"   6     dd  2nd alpha char set\n"
				"  0Ah    dd  user palette tbl\n"
				"  0Eh    dd  reserved (0:0)\n"
				"  12h    dd  reserved (0:0)\n"
				"  16h    dd  reserved (0:0)");
 CW(0x0CE,"days_since1_80",     "Days since 1-Jan-1980 counter");
 MakeArray(0x4AC,0xCE-0xAC);
}

//-------------------------------------------------------------------------
static main() {
  if ( !SegCreate(0x400,0x4D0,0x40,0,0,2) ) {
    Warning("Can't create BIOS data segment.");
    return;
  }
  SegRename(0x400,"bdata");
  SegClass(0x400,"BIOSDATA");
  CmtBdata();
}