WebSVN – MB01 Project – Blame – /trunk/sources/lst/FE/pcstd.lst

Rev	Author	Line No.	Line
1	-	1	Tue Jul 17 11:00:23 2018 Page 1
		2
		3
		4
		5
		6
		7
		8
		9	2500 A.D. 65816 Macro Assembler #26960 - Version 5.02g
		10	-----------------------------------------------------
		11
		12	Input Filename : src\FE\pcstd.asm
		13	Output Filename : obj\FE\pcstd.obj
		14	Listing Has Been Relocated
		15
		16
		17	2582 .LIST on
		18	2583
		19	2584
		20	2585 .CODEFE
		21	2586 .LONGA off
		22	2587 .LONGI off
		23	2588
		24	2589 GLOBAL PCTYPEREC, PCSFADDR, PCTORSIZ, PCRSWD, PCROFS
		25	2590 GLOBAL PCCOMP, PCCDST
		26	2591 ;GLOBAL PCCOMPSIZ, PCTORAM
		27	2592 FE4110
		28	2593 ; compiled p-code for running pascal compiler
		29	2594 ; original offset at $3000
		30	2595
		31	2596 003000 PCCDST .EQU $3000
		32	2597
		33	2598 FE4110 PCCOMP:
		34	2599 ; compiler p-code
		35	2600 FE4110 .INCLUDE inc\pcc.inc
		36	2601
		37	3543 .LIST on
		38	3544
		39	3545
		40	3546 003A10 PCCOMPSIZ .EQU ($ - PCCOMP)
		41	3547
		42	3548 ; offset of ram address used by compiler
		43	3549 ;PCROFS .EQU $216E
		44	3550 ;PCROFS .EQU $0010
		45	3551
		46	3552 003A10 PCROFS .EQU PCCOMPSIZ
		47	3553
		48	3554 FE7B20 PCTORAM:
		49	3555 ; record (size = 12 bytes) that encode basic standard 'type'
		50	3556 FE7B20 FF7F 0080 0000 .DW $7FFF, $8000, $0000, $0000, $0000, $0001 ; integer
		51	0000 0000 0100
		52	3557 003A1C TYIPTR .EQU (12 + PCROFS) ; ptr record 'integer;
		53	3558 FE7B2C 7F00 0000 0000 .DW $007F, $0000, $0000, $0000, $0000, $0001 ; char
		54	0000 0000 0100
		55	3559 003A28 TYCPTR .EQU (24 + PCROFS) ; ptr record 'char'
		56	3560 FE7B38 0100 0000 0000 .DW $0001, $0000, $0000, $0000, $0000, $0001 ; boolean
		57	0000 0000 0100
		58	3561 003A34 TYBPTR .EQU (36 + PCROFS) ; ptr record 'boolean'
		59	3562 FE7B44 0000 0000 0300 .DW $0000, $0000, $0003, $0000, $0000, $0003 ; real
		60	0000 0000 0300
		61	3563 003A40 TYRPTR .EQU (48 + PCROFS) ; ptr record 'real'
		62	3564 FE7B50 0000 0000 0500 .DW $0000, $0000, $0005, TYCPTR, $0000, $0003 ; text
		63	Tue Jul 17 11:00:23 2018 Page 2
		64
		65
		66
		67
		68	283A 0000 0300
		69	3565 003A4C TYTPTR .EQU (60 + PCROFS) ; ptr record 'text'
		70	3566
		71	3567 ; .DW $0080, $0001, $0001, TYIPTR, $000C, $0001 ; packed array [1..128]
		72	3568 ;TYA128 .EQU (72 + PCROFS)
		73	3569 ; .DW $0001, TYA128, $0002, TYCPTR, $0010, $0040 ; packed array [1..128] of char
		74	3570 ;TYPKC128 .EQU (84 + PCROFS)
		75	3571 ; ;.DW $0000, TYPKC128, $0006, $0000, $0000, $0001 ; packed array [1..128] of char
		76	3572 ;PKCPTR .EQU (96 + PCROFS)
		77	3573
		78	3574 003A4C PCROFS1 .EQU ($ - PCTORAM + PCROFS)
		79	3575
		80	3576 003A4C X: .SET PCROFS1
		81	3577
		82	3578 ; table of pre-defined standard procedures & functions
		83	3579 FE7B5C 0500 .DW $0005
		84	3580 FE7B5E 4F 52 44 20 20 .DB 'ORD '
		85	20 20 20
		86	3581 FE7B66 0000 0000 0000 .DW $0000, $0000, $0000
		87	3582 FE7B6C 703A .DW (18 + $12 + X)
		88	3583 003A5E X: .SET (X + 18)
		89	3584 FE7B6E
		90	3585 003A5E PCSFADDR .EQU X
		91	3586
		92	3587 FE7B6E 0500 .DW $0005
		93	3588 FE7B70 50 52 45 44 20 .DB 'PRED '
		94	20 20 20
		95	3589 FE7B78 0000 0100 0000 .DW $0000, $0001, $0000
		96	3590 FE7B7E 823A .DW (18 + $12 + X)
		97	3591 003A70 X: .SET (X + 18)
		98	3592 FE7B80 0500 .DW $0005
		99	3593 FE7B82 53 55 43 43 20 .DB 'SUCC '
		100	20 20 20
		101	3594 FE7B8A 0000 0200 0000 .DW $0000, $0002, $0000
		102	3595 FE7B90 943A .DW (18 + $12 + X)
		103	3596 003A82 X: .SET (X + 18)
		104	3597 FE7B92 0500 .DW $0005
		105	3598 FE7B94 53 51 52 20 20 .DB 'SQR '
		106	20 20 20
		107	3599 FE7B9C 0000 0300 0000 .DW $0000, $0003, $0000
		108	3600 FE7BA2 A63A .DW (18 + $12 + X)
		109	3601 003A94 X: .SET (X + 18)
		110	3602 FE7BA4 0500 .DW $0005
		111	3603 FE7BA6 41 42 53 20 20 .DB 'ABS '
		112	20 20 20
		113	3604 FE7BAE 0000 0400 0000 .DW $0000, $0004, $0000
		114	3605 FE7BB4 B83A .DW (18 + $12 + X)
		115	3606 003AA6 X: .SET (X + 18)
		116	3607 FE7BB6 0500 .DW $0005
		117	3608 FE7BB8 45 4F 4C 4E 20 .DB 'EOLN '
		118	20 20 20
		119	3609 FE7BC0 0000 0500 0000 .DW $0000, $0005, $0000
		120	3610 FE7BC6 CA3A .DW (18 + $12 + X)
		121	3611 003AB8 X: .SET (X + 18)
		122	3612 FE7BC8 0500 .DW $0005
		123	3613 FE7BCA 45 4F 46 20 20 .DB 'EOF '
		124	20 20 20
		125	Tue Jul 17 11:00:23 2018 Page 3
		126
		127
		128
		129
		130	3614 FE7BD2 0000 0600 0000 .DW $0000, $0006, $0000
		131	3615 FE7BD8 DE3A .DW (20 + $12 + X)
		132	3616 003ACA X: .SET (X + 18)
		133	3617 ;------------------------------------------------------
		134	3618 FE7BDA AA40 0200 .DW TY1I, $0002
		135	3619 FE7BDE 43 48 52 20 20 .DB 'CHR '
		136	20 20 20
		137	3620 FE7BE6 283A 0500 FEFF .DW TYCPTR, $0005, $FFFE
		138	3621 FE7BEC F23A .DW (20 + $14 + X)
		139	3622 003ADE X: .SET (X + 20)
		140	3623 FE7BEE D440 0200 .DW TY1C, $0002
		141	3624 FE7BF2 41 53 43 20 20 .DB 'ASC '
		142	20 20 20
		143	3625 FE7BFA 1C3A 0500 FEFF .DW TYIPTR, $0005, $FFFE
		144	3626 FE7C00 063B .DW (20 + $14 + X)
		145	3627 003AF2 X: .SET (X + 20)
		146	3628 FE7C02 AA40 0200 .DW TY1I, $0002
		147	3629 FE7C06 4F 44 44 20 20 .DB 'ODD '
		148	20 20 20
		149	3630 FE7C0E 343A 0400 FEFF .DW TYBPTR, $0004, $FFFE
		150	3631 FE7C14 1A3B .DW (20 + $14 + X)
		151	3632 003B06 X: .SET (X + 20)
		152	3633 FE7C16 B040 0200 .DW TY2I, $0002
		153	3634 FE7C1A 53 48 52 20 20 .DB 'SHR '
		154	20 20 20
		155	3635 FE7C22 1C3A 2C00 FEFF .DW TYIPTR, $002C, $FFFE
		156	3636 FE7C28 2E3B .DW (20 + $14 + X)
		157	3637 003B1A X: .SET (X + 20)
		158	3638 FE7C2A B040 0200 .DW TY2I, $0002
		159	3639 FE7C2E 53 48 4C 20 20 .DB 'SHL '
		160	20 20 20
		161	3640 FE7C36 1C3A 2B00 FEFF .DW TYIPTR, $002B, $FFFE
		162	3641 FE7C3C 423B .DW (20 + $14 + X)
		163	3642 003B2E X: .SET (X + 20)
		164	3643 FE7C3E B040 0200 .DW TY2I, $0002
		165	3644 FE7C42 4F 52 57 20 20 .DB 'ORW '
		166	20 20 20
		167	3645 FE7C4A 1C3A 1C00 FEFF .DW TYIPTR, $001C, $FFFE
		168	3646 FE7C50 563B .DW (20 + $14 + X)
		169	3647 003B42 X: .SET (X + 20)
		170	3648 FE7C52 B040 0200 .DW TY2I, $0002
		171	3649 FE7C56 58 4F 52 57 20 .DB 'XORW '
		172	20 20 20
		173	3650 FE7C5E 1C3A 1D00 FEFF .DW TYIPTR, $001D, $FFFE
		174	3651 FE7C64 6A3B .DW (20 + $14 + X)
		175	3652 003B56 X: .SET (X + 20)
		176	3653 FE7C66 B040 0200 .DW TY2I, $0002
		177	3654 FE7C6A 41 4E 44 57 20 .DB 'ANDW '
		178	20 20 20
		179	3655 FE7C72 1C3A 1B00 FEFF .DW TYIPTR, $001B, $FFFE
		180	3656 FE7C78 7E3B .DW (20 + $14 + X)
		181	3657 003B6A X: .SET (X + 20)
		182	3658 FE7C7A AA40 0200 .DW TY1I, $0002
		183	3659 FE7C7E 4E 4F 54 57 20 .DB 'NOTW '
		184	20 20 20
		185	3660 FE7C86 1C3A 1E00 FEFF .DW TYIPTR, $001E, $FFFE
		186	3661 FE7C8C 923B .DW (20 + $14 + X)
		187	Tue Jul 17 11:00:23 2018 Page 4
		188
		189
		190
		191
		192	3662 003B7E X: .SET (X + 20)
		193	3663 FE7C8E AA40 0200 .DW TY1I, $0002
		194	3664 FE7C92 4E 45 47 57 20 .DB 'NEGW '
		195	20 20 20
		196	3665 FE7C9A 1C3A 1F00 FEFF .DW TYIPTR, $001F, $FFFE
		197	3666 FE7CA0 A63B .DW (20 + $14 + X)
		198	3667 003B92 X: .SET (X + 20)
		199	3668 FE7CA2 0000 0200 .DW $0000, $0002
		200	3669 FE7CA6 49 4F 45 52 52 .DB 'IOERROR '
		201	4F 52 20
		202	3670 FE7CAE 1C3A 1800 FEFF .DW TYIPTR, $0018, $FFFE
		203	3671 FE7CB4 BA3B .DW (20 + $14 + X)
		204	3672 003BA6 X: .SET (X + 20)
		205	3673 FE7CB6 C840 0200 .DW TY1R, $0002
		206	3674 FE7CBA 54 52 55 4E 43 .DB 'TRUNC '
		207	20 20 20
		208	3675 FE7CC2 1C3A 1300 FEFF .DW TYIPTR, $0013, $FFFE
		209	3676 FE7CC8 CE3B .DW (20 + $14 + X)
		210	3677 003BBA X: .SET (X + 20)
		211	3678 FE7CCA C840 0200 .DW TY1R, $0002
		212	3679 FE7CCE 52 4F 55 4E 44 .DB 'ROUND '
		213	20 20 20
		214	3680 FE7CD6 1C3A 1400 FEFF .DW TYIPTR, $0014, $FFFE
		215	3681 FE7CDC E23B .DW (20 + $14 + X)
		216	3682 003BCE X: .SET (X + 20)
		217	3683 FE7CDE C840 0200 .DW TY1R, $0002
		218	3684 FE7CE2 53 49 4E 20 20 .DB 'SIN '
		219	20 20 20
		220	3685 FE7CEA 403A 0800 FEFF .DW TYRPTR, $0008, $FFFE
		221	3686 FE7CF0 F63B .DW (20 + $14 + X)
		222	3687 003BE2 X: .SET (X + 20)
		223	3688 FE7CF2 C840 0200 .DW TY1R, $0002
		224	3689 FE7CF6 43 4F 53 20 20 .DB 'COS '
		225	20 20 20
		226	3690 FE7CFE 403A 0900 FEFF .DW TYRPTR, $0009, $FFFE
		227	3691 FE7D04 0A3C .DW (20 + $14 + X)
		228	3692 003BF6 X: .SET (X + 20)
		229	3693 FE7D06 C840 0200 .DW TY1R, $0002
		230	3694 FE7D0A 54 41 4E 20 20 .DB 'TAN '
		231	20 20 20
		232	3695 FE7D12 403A 0A00 FEFF .DW TYRPTR, $000A, $FFFE
		233	3696 FE7D18 1E3C .DW (20 + $14 + X)
		234	3697 003C0A X: .SET (X + 20)
		235	3698 FE7D1A C840 0200 .DW TY1R, $0002
		236	3699 FE7D1E 45 58 50 20 20 .DB 'EXP '
		237	20 20 20
		238	3700 FE7D26 403A 0C00 FEFF .DW TYRPTR, $000C, $FFFE
		239	3701 FE7D2C 323C .DW (20 + $14 + X)
		240	3702 003C1E X: .SET (X + 20)
		241	3703 FE7D2E C840 0200 .DW TY1R, $0002
		242	3704 FE7D32 45 58 50 31 30 .DB 'EXP10 '
		243	20 20 20
		244	3705 FE7D3A 403A 2D00 FEFF .DW TYRPTR, $002D, $FFFE
		245	3706 FE7D40 463C .DW (20 + $14 + X)
		246	3707 003C32 X: .SET (X + 20)
		247	3708 FE7D42 C840 0200 .DW TY1R, $0002
		248	3709 FE7D46 4C 4E 20 20 20 .DB 'LN '
		249	Tue Jul 17 11:00:23 2018 Page 5
		250
		251
		252
		253
		254	20 20 20
		255	3710 FE7D4E 403A 0D00 FEFF .DW TYRPTR, $000D, $FFFE
		256	3711 FE7D54 5A3C .DW (20 + $14 + X)
		257	3712 003C46 X: .SET (X + 20)
		258	3713 FE7D56 C840 0200 .DW TY1R, $0002
		259	3714 FE7D5A 4C 4F 47 20 20 .DB 'LOG '
		260	20 20 20
		261	3715 FE7D62 403A 2E00 FEFF .DW TYRPTR, $002E, $FFFE
		262	3716 FE7D68 6E3C .DW (20 + $14 + X)
		263	3717 003C5A X: .SET (X + 20)
		264	3718 FE7D6A C840 0200 .DW TY1R, $0002
		265	3719 FE7D6E 53 51 52 54 20 .DB 'SQRT '
		266	20 20 20
		267	3720 FE7D76 403A 0E00 FEFF .DW TYRPTR, $000E, $FFFE
		268	3721 FE7D7C 823C .DW (20 + $14 + X)
		269	3722 003C6E X: .SET (X + 20)
		270	3723 FE7D7E C840 0200 .DW TY1R, $0002
		271	3724 FE7D82 41 52 43 54 41 .DB 'ARCTAN '
		272	4E 20 20
		273	3725 FE7D8A 403A 0B00 FEFF .DW TYRPTR, $000B, $FFFE
		274	3726 FE7D90 963C .DW (20 + $14 + X)
		275	3727 003C82 X: .SET (X + 20)
		276	3728 FE7D92 F240 0200 .DW TY2R, $0002
		277	3729 FE7D96 52 41 49 53 45 .DB 'RAISEXY '
		278	58 59 20
		279	3730 FE7D9E 403A 0F00 FEFF .DW TYRPTR, $000F, $FFFE
		280	3731 FE7DA4 AA3C .DW (20 + $14 + X)
		281	3732 003C96 X: .SET (X + 20)
		282	3733 FE7DA6 F840 0200 .DW TY1R1I, $0002
		283	3734 FE7DAA 4E 52 41 49 53 .DB 'NRAISE '
		284	45 20 20
		285	3735 FE7DB2 403A 2F00 FEFF .DW TYRPTR, $002F, $FFFE
		286	3736 FE7DB8 BE3C .DW (20 + $14 + X)
		287	3737 003CAA X: .SET (X + 20)
		288	3738 FE7DBA F840 0200 .DW TY1R1I, $0002
		289	3739 FE7DBE 4E 52 4F 4F 54 .DB 'NROOT '
		290	20 20 20
		291	3740 FE7DC6 403A 1000 FEFF .DW TYRPTR, $0010, $FFFE
		292	3741 FE7DCC D23C .DW (20 + $14 + X)
		293	3742 003CBE X: .SET (X + 20)
		294	3743 FE7DCE 0000 0200 .DW $0000, $0002
		295	3744 FE7DD2 52 41 4E 44 4F .DB 'RANDOM '
		296	4D 20 20
		297	3745 FE7DDA 1C3A 1500 FEFF .DW TYIPTR, $0015, $FFFE
		298	3746 FE7DE0 E63C .DW (20 + $14 + X)
		299	3747 003CD2 X: .SET (X + 20)
		300	3748 FE7DE2 0000 0200 .DW $0000, $0002
		301	3749 FE7DE6 47 45 54 4B 45 .DB 'GETKEY '
		302	59 20 20
		303	3750 FE7DEE 283A 1900 FEFF .DW TYCPTR, $0019, $FFFE
		304	3751 FE7DF4 FA3C .DW (20 + $14 + X)
		305	3752 003CE6 X: .SET (X + 20)
		306	3753 FE7DF6 B640 0200 .DW TY1T, $0002
		307	3754 FE7DFA 46 52 44 48 45 .DB 'FRDHEX '
		308	58 20 20
		309	3755 FE7E02 1C3A 1A00 FEFF .DW TYIPTR, $001A, $FFFE
		310	3756 FE7E08 0E3D .DW (20 + $14 + X)
		311	Tue Jul 17 11:00:23 2018 Page 6
		312
		313
		314
		315
		316	3757 003CFA X: .SET (X + 20)
		317	3758 FE7E0A 0000 0200 .DW $0000, $0002
		318	3759 FE7E0E 52 44 48 45 58 .DB 'RDHEX '
		319	20 20 20
		320	3760 FE7E16 1C3A 2000 FEFF .DW TYIPTR, $0020, $FFFE
		321	3761 FE7E1C 223D .DW (20 + $14 + X)
		322	3762 003D0E X: .SET (X + 20)
		323	3763 FE7E1E AA40 0200 .DW TY1I, $0002
		324	3764 FE7E22 50 45 45 4B 42 .DB 'PEEKB '
		325	20 20 20
		326	3765 FE7E2A 1C3A 0000 FEFF .DW TYIPTR, $0000, $FFFE
		327	3766 FE7E30 363D .DW (20 + $14 + X)
		328	3767 003D22 X: .SET (X + 20)
		329	3768 FE7E32 B040 0200 .DW TY2I, $0002
		330	3769 FE7E36 4C 50 45 45 4B .DB 'LPEEKB '
		331	42 20 20
		332	3770 FE7E3E 1C3A 2300 FEFF .DW TYIPTR, $0023, $FFFE
		333	3771 FE7E44 4A3D .DW (20 + $14 + X)
		334	3772 003D36 X: .SET (X + 20)
		335	3773 FE7E46 B040 0200 .DW TY2I, $0002
		336	3774 FE7E4A 4C 50 45 45 4B .DB 'LPEEKW '
		337	57 20 20
		338	3775 FE7E52 1C3A 2400 FEFF .DW TYIPTR, $0024, $FFFE
		339	3776 FE7E58 5E3D .DW (20 + $14 + X)
		340	3777 003D4A X: .SET (X + 20)
		341	3778 FE7E5A AA40 0200 .DW TY1I, $0002
		342	3779 FE7E5E 50 45 45 4B 42 .DB 'PEEKBZ '
		343	5A 20 20
		344	3780 FE7E66 1C3A 0200 FEFF .DW TYIPTR, $0002, $FFFE
		345	3781 FE7E6C 723D .DW (20 + $14 + X)
		346	3782 003D5E X: .SET (X + 20)
		347	3783 FE7E6E AA40 0200 .DW TY1I, $0002
		348	3784 FE7E72 50 45 45 4B 57 .DB 'PEEKW '
		349	20 20 20
		350	3785 FE7E7A 1C3A 0100 FEFF .DW TYIPTR, $0001, $FFFE
		351	3786 FE7E80 863D .DW (20 + $14 + X)
		352	3787 003D72 X: .SET (X + 20)
		353	3788 FE7E82 FE40 0200 .DW TY1P, $0002
		354	3789 FE7E86 4F 52 44 50 20 .DB 'ORDP '
		355	20 20 20
		356	3790 FE7E8E 1C3A 0100 FEFF .DW TYIPTR, $0001, $FFFE
		357	3791 FE7E94 9A3D .DW (20 + $14 + X)
		358	3792 003D86 X: .SET (X + 20)
		359	3793 FE7E96 AA40 0200 .DW TY1I, $0002
		360	3794 FE7E9A 50 45 45 4B 57 .DB 'PEEKWZ '
		361	5A 20 20
		362	3795 FE7EA2 1C3A 0300 FEFF .DW TYIPTR, $0003, $FFFE
		363	3796 FE7EA8 AC3D .DW (18 + $14 + X)
		364	3797 003D9A X: .SET (X + 20)
		365	3798
		366	3799 ;------------------------------------------------------
		367	3800 FE7EAA 0400 .DW $0004
		368	3801 FE7EAC 57 52 49 54 45 .DB 'WRITE '
		369	20 20 20
		370	3802 FE7EB4 0000 0000 0000 .DW $0000, $0000, $0000
		371	3803 FE7EBA BE3D .DW (18 + $12 + X)
		372	3804 003DAC X: .SET (X + 18)
		373	Tue Jul 17 11:00:23 2018 Page 7
		374
		375
		376
		377
		378	3805 FE7EBC 0400 .DW $0004
		379	3806 FE7EBE 57 52 49 54 45 .DB 'WRITELN '
		380	4C 4E 20
		381	3807 FE7EC6 0000 0100 0000 .DW $0000, $0001, $0000
		382	3808 FE7ECC D03D .DW (18 + $12 + X)
		383	3809 003DBE X: .SET (X + 18)
		384	3810 FE7ECE 0400 .DW $0004
		385	3811 FE7ED0 52 45 41 44 20 .DB 'READ '
		386	20 20 20
		387	3812 FE7ED8 0000 0200 0000 .DW $0000, $0002, $0000
		388	3813 FE7EDE E23D .DW (18 + $12 + X)
		389	3814 003DD0 X: .SET (X + 18)
		390	3815 FE7EE0 0400 .DW $0004
		391	3816 FE7EE2 52 45 41 44 4C .DB 'READLN '
		392	4E 20 20
		393	3817 FE7EEA 0000 0300 0000 .DW $0000, $0003, $0000
		394	3818 FE7EF0 F43D .DW (18 + $12 + X)
		395	3819 003DE2 X: .SET (X + 18)
		396	3820 FE7EF2 0400 .DW $0004
		397	3821 FE7EF4 4E 45 57 20 20 .DB 'NEW '
		398	20 20 20
		399	3822 FE7EFC 0000 0400 0000 .DW $0000, $0004, $0000
		400	3823 FE7F02 063E .DW (18 + $12 + X)
		401	3824 003DF4 X: .SET (X + 18)
		402	3825 FE7F04 0400 .DW $0004
		403	3826 FE7F06 50 41 47 45 20 .DB 'PAGE '
		404	20 20 20
		405	3827 FE7F0E 0000 0500 0000 .DW $0000, $0005, $0000
		406	3828 FE7F14 183E .DW (18 + $12 + X)
		407	3829 003E06 X: .SET (X + 18)
		408	3830 FE7F16 0400 .DW $0004
		409	3831 FE7F18 50 55 54 20 20 .DB 'PUT '
		410	20 20 20
		411	3832 FE7F20 0000 0600 0000 .DW $0000, $0006, $0000
		412	3833 FE7F26 2A3E .DW (18 + $12 + X)
		413	3834 003E18 X: .SET (X + 18)
		414	3835 FE7F28 0400 .DW $0004
		415	3836 FE7F2A 47 45 54 20 20 .DB 'GET '
		416	20 20 20
		417	3837 FE7F32 0000 0700 0000 .DW $0000, $0007, $0000
		418	3838 FE7F38 3C3E .DW (18 + $12 + X)
		419	3839 003E2A X: .SET (X + 18)
		420	3840 FE7F3A 0400 .DW $0004
		421	3841 FE7F3C 52 45 53 45 54 .DB 'RESET '
		422	20 20 20
		423	3842 FE7F44 0000 0800 0000 .DW $0000, $0008, $0000
		424	3843 FE7F4A 4E3E .DW (18 + $12 + X)
		425	3844 003E3C X: .SET (X + 18)
		426	3845 FE7F4C 0400 .DW $0004
		427	3846 FE7F4E 52 45 57 52 49 .DB 'REWRITE '
		428	54 45 20
		429	3847 FE7F56 0000 0900 0000 .DW $0000, $0009, $0000
		430	3848 FE7F5C 603E .DW (18 + $12 + X)
		431	3849 003E4E X: .SET (X + 18)
		432	3850 FE7F5E 0400 .DW $0004
		433	3851 FE7F60 44 49 53 50 4F .DB 'DISPOSE '
		434	53 45 20
		435	Tue Jul 17 11:00:23 2018 Page 8
		436
		437
		438
		439
		440	3852 FE7F68 0000 0A00 0000 .DW $0000, $000A, $0000
		441	3853 FE7F6E 723E .DW (18 + $12 + X)
		442	3854 003E60 X: .SET (X + 18)
		443	3855 FE7F70 0400 .DW $0004
		444	3856 FE7F72 50 41 43 4B 20 .DB 'PACK '
		445	20 20 20
		446	3857 FE7F7A 0000 0B00 0000 .DW $0000, $000B, $0000
		447	3858 FE7F80 843E .DW (18 + $12 + X)
		448	3859 003E72 X: .SET (X + 18)
		449	3860 FE7F82 0400 .DW $0004
		450	3861 FE7F84 55 4E 50 41 43 .DB 'UNPACK '
		451	4B 20 20
		452	3862 FE7F8C 0000 0C00 0000 .DW $0000, $000C, $0000
		453	3863 FE7F92 963E .DW (18 + $12 + X)
		454	3864 003E84 X: .SET (X + 18)
		455	3865 FE7F94 0400 .DW $0004
		456	3866 FE7F96 43 48 41 49 4E .DB 'CHAIN '
		457	20 20 20
		458	3867 FE7F9E 0000 1100 0000 .DW $0000, $0011, $0000
		459	3868 FE7FA4 A83E .DW (18 + $12 + X)
		460	3869 003E96 X: .SET (X + 18)
		461	3870 FE7FA6 0400 .DW $0004
		462	3871 FE7FA8 43 4C 4F 53 45 .DB 'CLOSE '
		463	20 20 20
		464	3872 FE7FB0 0000 1200 0000 .DW $0000, $0012, $0000
		465	3873 FE7FB6 BC3E .DW (20 + $12 + X)
		466	3874 003EA8 X: .SET (X + 18)
		467	3875 ;------------------------------------------------------
		468	3876 FE7FB8 CE40 0200 .DW TY1P1I, $0002
		469	3877 FE7FBC 50 41 53 53 49 .DB 'PASSIGN '
		470	47 4E 20
		471	3878 FE7FC4 0000 1200 FEFF .DW $0000, $0012, $FFFE
		472	3879 FE7FCA D03E .DW (20 + $14 + X)
		473	3880 003EBC X: .SET (X + 20)
		474	3881 FE7FCC FE40 0200 .DW TY1P, $0002
		475	3882 FE7FD0 50 43 4D 44 4C .DB 'PCMDLINE'
		476	49 4E 45
		477	3883 FE7FD8 0000 3000 FEFF .DW $0000, $0030, $FFFE
		478	3884 FE7FDE E43E .DW (20 + $14 + X)
		479	3885 003ED0 X: .SET (X + 20)
		480	3886 FE7FE0 BC40 0200 .DW TY1T1I, $0002
		481	3887 FE7FE4 46 57 52 48 45 .DB 'FWRHEXW '
		482	58 57 20
		483	3888 FE7FEC 0000 0600 FEFF .DW $0000, $0006, $FFFE
		484	3889 FE7FF2 F83E .DW (20 + $14 + X)
		485	3890 003EE4 X: .SET (X + 20)
		486	3891 FE7FF4 AA40 0200 .DW TY1I, $0002
		487	3892 FE7FF8 57 52 48 45 58 .DB 'WRHEXW '
		488	57 20 20
		489	3893 FE8000 0000 2100 FEFF .DW $0000, $0021, $FFFE
		490	3894 FE8006 0C3F .DW (20 + $14 + X)
		491	3895 003EF8 X: .SET (X + 20)
		492	3896 FE8008 FE40 0200 .DW TY1P, $0002
		493	3897 FE800C 57 52 48 45 58 .DB 'WRHEXP '
		494	50 20 20
		495	3898 FE8014 0000 2100 FEFF .DW $0000, $0021, $FFFE
		496	3899 FE801A 203F .DW (20 + $14 + X)
		497	Tue Jul 17 11:00:23 2018 Page 9
		498
		499
		500
		501
		502	3900 003F0C X: .SET (X + 20)
		503	3901 FE801C BC40 0200 .DW TY1T1I, $0002
		504	3902 FE8020 46 57 52 48 45 .DB 'FWRHEXB '
		505	58 42 20
		506	3903 FE8028 0000 0700 FEFF .DW $0000, $0007, $FFFE
		507	3904 FE802E 343F .DW (20 + $14 + X)
		508	3905 003F20 X: .SET (X + 20)
		509	3906 FE8030 AA40 0200 .DW TY1I, $0002
		510	3907 FE8034 57 52 48 45 58 .DB 'WRHEXB '
		511	42 20 20
		512	3908 FE803C 0000 2200 FEFF .DW $0000, $0022, $FFFE
		513	3909 FE8042 483F .DW (20 + $14 + X)
		514	3910 003F34 X: .SET (X + 20)
		515	3911 FE8044 C240 0200 .DW TY1B, $0002
		516	3912 FE8048 49 4F 54 52 41 .DB 'IOTRAP '
		517	50 20 20
		518	3913 FE8050 0000 1600 FEFF .DW $0000, $0016, $FFFE
		519	3914 FE8056 5C3F .DW (20 + $14 + X)
		520	3915 003F48 X: .SET (X + 20)
		521	3916 FE8058 C240 0200 .DW TY1B, $0002
		522	3917 FE805C 42 52 45 41 4B .DB 'BREAKS '
		523	53 20 20
		524	3918 FE8064 0000 1700 FEFF .DW $0000, $0017, $FFFE
		525	3919 FE806A 703F .DW (20 + $14 + X)
		526	3920 003F5C X: .SET (X + 20)
		527	3921 FE806C B040 0200 .DW TY2I, $0002
		528	3922 FE8070 50 4F 4B 45 42 .DB 'POKEB '
		529	20 20 20
		530	3923 FE8078 0000 2500 FEFF .DW $0000, $0025, $FFFE
		531	3924 FE807E 843F .DW (20 + $14 + X)
		532	3925 003F70 X: .SET (X + 20)
		533	3926 FE8080 B040 0200 .DW TY2I, $0002
		534	3927 FE8084 50 4F 4B 45 57 .DB 'POKEW '
		535	20 20 20
		536	3928 FE808C 0000 2600 FEFF .DW $0000, $0026, $FFFE
		537	3929 FE8092 983F .DW (20 + $14 + X)
		538	3930 003F84 X: .SET (X + 20)
		539	3931 FE8094 B040 0200 .DW TY2I, $0002
		540	3932 FE8098 50 4F 4B 45 42 .DB 'POKEBZ '
		541	5A 20 20
		542	3933 FE80A0 0000 2700 FEFF .DW $0000, $0027, $FFFE
		543	3934 FE80A6 AC3F .DW (20 + $14 + X)
		544	3935 003F98 X: .SET (X + 20)
		545	3936 FE80A8 B040 0200 .DW TY2I, $0002
		546	3937 FE80AC 50 4F 4B 45 57 .DB 'POKEWZ '
		547	5A 20 20
		548	3938 FE80B4 0000 2800 FEFF .DW $0000, $0028, $FFFE
		549	3939 FE80BA C03F .DW (20 + $14 + X)
		550	3940 003FAC X: .SET (X + 20)
		551	3941 FE80BC E640 0200 .DW TY3I, $0002
		552	3942 FE80C0 4C 50 4F 4B 45 .DB 'LPOKEB '
		553	42 20 20
		554	3943 FE80C8 0000 2900 FEFF .DW $0000, $0029, $FFFE
		555	3944 FE80CE D43F .DW (20 + $14 + X)
		556	3945 003FC0 X: .SET (X + 20)
		557	3946 FE80D0 E640 0200 .DW TY3I, $0002
		558	3947 FE80D4 4C 50 4F 4B 45 .DB 'LPOKEW '
		559	Tue Jul 17 11:00:23 2018 Page 10
		560
		561
		562
		563
		564	57 20 20
		565	3948 FE80DC 0000 2A00 FEFF .DW $0000, $002A, $FFFE
		566	3949 FE80E2 E63F .DW (18 + $14 + X)
		567	3950 003FD4 X: .SET (X + 20)
		568	3951 ;------------------------------------------------------
		569	3952 ; record 18 bytes
		570	3953 FE80E4 0300 .DW $0003
		571	3954 FE80E6 49 4E 54 45 47 .DB 'INTEGER '
		572	45 52 20
		573	3955 FE80EE 1C3A 0000 0000 .DW TYIPTR, $0000, $0000
		574	3956 FE80F4 F83F .DW (18 + $12 + X)
		575	3957 003FE6 X: .SET (X + 18)
		576	3958 FE80F6 0300 .DW $0003
		577	3959 FE80F8 42 4F 4F 4C 45 .DB 'BOOLEAN '
		578	41 4E 20
		579	3960 FE8100 343A 0000 0000 .DW TYBPTR, $0000, $0000
		580	3961 FE8106 0A40 .DW (18 + $12 + X)
		581	3962 003FF8 X: .SET (X + 18)
		582	3963 FE8108 0300 .DW $0003
		583	3964 FE810A 43 48 41 52 20 .DB 'CHAR '
		584	20 20 20
		585	3965 FE8112 283A 0000 0000 .DW TYCPTR, $0000, $0000
		586	3966 FE8118 1C40 .DW (18 + $12 + X)
		587	3967 00400A X: .SET (X + 18)
		588	3968 FE811A 0300 .DW $0003
		589	3969 FE811C 52 45 41 4C 20 .DB 'REAL '
		590	20 20 20
		591	3970 FE8124 403A 0000 0000 .DW TYRPTR, $0000, $0000
		592	3971 FE812A 2E40 .DW (18 + $12 + X)
		593	3972 00401C X: .SET (X + 18)
		594	3973 FE812C 0300 .DW $0003
		595	3974 FE812E 54 45 58 54 20 .DB 'TEXT '
		596	20 20 20
		597	3975 FE8136 4C3A 0000 0000 .DW TYTPTR, $0000, $0000
		598	3976 FE813C 4040 .DW (18 + $12 + X)
		599	3977 00402E X: .SET (X + 18)
		600	3978 FE813E 0100 .DW $0001
		601	3979 FE8140 54 52 55 45 20 .DB 'TRUE '
		602	20 20 20
		603	3980 FE8148 343A 0100 0000 .DW TYBPTR, $0001, $0000
		604	3981 FE814E 5240 .DW (18 + $12 + X)
		605	3982 004040 X: .SET (X + 18)
		606	3983 FE8150 0100 .DW $0001
		607	3984 FE8152 46 41 4C 53 45 .DB 'FALSE '
		608	20 20 20
		609	3985 FE815A 343A 0000 0000 .DW TYBPTR, $0000, $0000
		610	3986 FE8160 6440 .DW (18 + $12 + X)
		611	3987 004052 X: .SET (X + 18)
		612	3988 FE8162 0100 .DW $0001
		613	3989 FE8164 4D 41 58 49 4E .DB 'MAXINT '
		614	54 20 20
		615	3990 FE816C 1C3A FF7F 0000 .DW TYIPTR, $7FFF, $0000
		616	3991 FE8172 7840 .DW (20 + $12 + X)
		617	3992 004064 X: .SET (X + 18)
		618	3993 ;------------------------------------------------------
		619	3994 ; record 20 bytes
		620	3995 FE8174 0000 0000 .DW $0000, $0000
		621	Tue Jul 17 11:00:23 2018 Page 11
		622
		623
		624
		625
		626	3996 FE8178 49 4E 50 55 54 .DB 'INPUT '
		627	20 20 20
		628	3997 FE8180 4C3A 0000 0000 .DW TYTPTR, $0000, $0000
		629	3998 FE8186 8C40 .DW (20 + $14 + X)
		630	3999 004078 X: .SET (X + 20)
		631	4000 FE8188 0000 0000 .DW $0000, $0000
		632	4001 FE818C 4F 55 54 50 55 .DB 'OUTPUT '
		633	54 20 20
		634	4002 FE8194 4C3A 0100 0000 .DW TYTPTR, $0001, $0000
		635	4003 ;.DW $0000
		636	4004 FE819A A440 .DW (24 + $14 + X)
		637	4005 ;X: .SET (X + 20)
		638	4006 00408E X: .SET (X + 22)
		639	4007 FE819C 0000 0FDA A200 .DW $0000,$DA0F, $00A2, $0001
		640	0100
		641	4008 FE81A4 50 49 20 20 20 .DB 'PI '
		642	20 20 20
		643	4009 FE81AC 403A 8249 0000 .DW TYRPTR, $4982, $0000
		644	4010 ;.DW (20 + $14 + X) ; last pointer = NULL
		645	4011 FE81B2 0000 .DW $0000
		646	4012 0040A4 X: .SET (X + 22)
		647	4013 FE81B4
		648	4014 0040A4 PCROFS2 .EQU X
		649	4015
		650	4016 ; record (size = 6 bytes) that encode basic standard parametr's list
		651	4017 FE81B4 1C3A 0000 0000 .DW TYIPTR, $0000, $0000
		652	4018 0040AA TY1I .EQU ((1*6) + PCROFS2) ; 1 integer
		653	4019 FE81BA 1C3A 0000 AA40 .DW TYIPTR, $0000, TY1I
		654	4020 0040B0 TY2I .EQU ((2*6) + PCROFS2) ; 2 integer
		655	4021 FE81C0 4C3A 0000 0000 .DW TYTPTR, $0000, $0000
		656	4022 0040B6 TY1T .EQU ((3*6) + PCROFS2) ; 1 text
		657	4023 FE81C6 4C3A 0000 AA40 .DW TYTPTR, $0000, TY1I
		658	4024 0040BC TY1T1I .EQU ((4*6) + PCROFS2) ; 1 text, 1 integer
		659	4025 FE81CC 343A 0000 0000 .DW TYBPTR, $0000, $0000
		660	4026 0040C2 TY1B .EQU ((5*6) + PCROFS2) ; 1 boolean
		661	4027 FE81D2 403A 0000 0000 .DW TYRPTR, $0000, $0000
		662	4028 0040C8 TY1R .EQU ((6*6) + PCROFS2) ; 1 real
		663	4029 FE81D8 0000 0100 AA40 .DW $0000, $0001, TY1I
		664	4030 0040CE TY1P1I .EQU ((7*6) + PCROFS2) ; 1 var pointer, 1 integer
		665	4031 FE81DE 283A 0000 0000 .DW TYCPTR, $0000, $0000
		666	4032 0040D4 TY1C .EQU ((8*6) + PCROFS2) ; 1 char
		667	4033 FE81E4 1C3A 0000 D440 .DW TYIPTR, $0000, TY1C
		668	4034 0040DA TY1I1C .EQU ((9*6) + PCROFS2) ; 1 integer, 1 char
		669	4035 FE81EA 1C3A 0000 DA40 .DW TYIPTR, $0000, TY1I1C
		670	4036 0040E0 TY2I1C .EQU ((10*6) + PCROFS2) ; 2 integer, 1 char
		671	4037 FE81F0 1C3A 0000 B040 .DW TYIPTR, $0000, TY2I
		672	4038 0040E6 TY3I .EQU ((11*6) + PCROFS2) ; 3 integer
		673	4039 FE81F6 1C3A 0000 E640 .DW TYIPTR, $0000, TY3I
		674	4040 0040EC TY4I .EQU ((12*6) + PCROFS2) ; 4 integer
		675	4041 FE81FC 403A 0000 C840 .DW TYRPTR, $0000, TY1R
		676	4042 0040F2 TY2R .EQU ((13*6) + PCROFS2) ; 2 real
		677	4043 FE8202 403A 0000 AA40 .DW TYRPTR, $0000, TY1I
		678	4044 0040F8 TY1R1I .EQU ((14*6) + PCROFS2) ; 1 real, 1 integer
		679	4045 FE8208 0000 0100 0000 .DW $0000, $0001, $0000
		680	4046 0040FE TY1P .EQU ((15*6) + PCROFS2) ; 1 var pointer
		681	4047 ; .DW $0000, $0001, TY1P
		682	4048 ;TY2P .EQU ((16*6) + PCROFS2) ; 2 var pointer
		683	Tue Jul 17 11:00:23 2018 Page 12
		684
		685
		686
		687
		688	4049
		689	4050
		690	4051 ;PCTORSIZ .EQU ($ - PCTORAM)
		691	4052 0040FE PCTORSIZ .EQU ($ - PCCOMP)
		692	4053
		693	4054 FE820E PCRSWD:
		694	4055 FE820E 41 4E 44 20 41 .DB 'AND ARRAY BEGIN CASE CONST DIV DO DOWNTO ELSE END EXTERN FILE FOR '
		695	52 52 41 59 20
		696	42 45 47 49 4E
		697	20 43 41 53 45
		698	20 43 4F 4E 53
		699	54 20 44 49 56
		700	20 44 4F 20 44
		701	4F 57 4E 54 4F
		702	20 45 4C 53 45
		703	20 45 4E 44 20
		704	45 58 54 45 52
		705	4E 20 46 49 4C
		706	45 20 46 4F 52
		707	20
		708	4056 FE8250 46 4F 52 57 41 .DB 'FORWARD FUNCTION GOTO IF IN LABEL MOD NIL NOT OF OR PACKED PROCEDUR '
		709	52 44 20 46 55
		710	4E 43 54 49 4F
		711	4E 20 47 4F 54
		712	4F 20 49 46 20
		713	49 4E 20 4C 41
		714	42 45 4C 20 4D
		715	4F 44 20 4E 49
		716	4C 20 4E 4F 54
		717	20 4F 46 20 4F
		718	52 20 50 41 43
		719	4B 45 44 20 50
		720	52 4F 43 45 44
		721	55 52 20
		722	4057 FE8294 50 52 4F 47 52 .DB 'PROGRAM RECORD REPEAT THEN TO TYPE UNTIL VAR WITH WHILE SET ',0
		723	41 4D 20 52 45
		724	43 4F 52 44 20
		725	52 45 50 45 41
		726	54 20 54 48 45
		727	4E 20 54 4F 20
		728	54 59 50 45 20
		729	55 4E 54 49 4C
		730	20 56 41 52 20
		731	57 49 54 48 20
		732	57 48 49 4C 45
		733	20 53 45 54 20
		734	00
		735	4058 FE82D1
		736	4059 ; pointer to basic standard type - copied to stack by compiler
		737	4060 FE82D1 PCTYPEREC:
		738	4061 FE82D1 4C3A 403A 343A .DW TYTPTR, TYRPTR, TYBPTR, TYCPTR, TYIPTR, $0001, $0001, $0000
		739	283A 1C3A 0100
		740	0100 0000
		741	4062 FE82E1 0000 0000 .DW $0000, $0000
		742	4063
		743	4064 ;>275E 7A 21 00 00 00 00 2764 1 integer
		744	4065 ;>2764 7A 21 00 00 64 27 276A 2 integer
		745	Tue Jul 17 11:00:23 2018 Page 13
		746
		747
		748
		749
		750	4066 ;>276A AA 21 00 00 00 00 2770 1 text
		751	4067 ;>2770 AA 21 00 00 64 27 2776 1 text 1 integer
		752	4068 ;>2776 92 21 00 00 00 00 277C 1 boolean
		753	4069 ;>277C 9E 21 00 00 00 00 2782 1 real
		754	4070 ;>2782 00 00 01 00 64 27 2788 1 integer byte ORIGIN(pointer, address)
		755	4071 ;>2788 86 21 00 00 00 00 278E 1 char
		756	4072 ;>278E 7A 21 00 00 8E 27 2794 1 integer 1 char
		757	4073 ;>2794 7A 21 00 00 94 27 279A 2 integer 1 char VDU(row,col, char)
		758	4074 ;>279A 7A 21 00 00 6A 27 27A0 3 integer
		759	4075 ;>27A0 7A 21 00 00 A0 27 27A6 4 integer
		760	4076 ;>27A6 7A 21 00 00 A6 27 27AC 5 integer
		761	4077 ;>27AC
		762
		763
		764	Lines Assembled : 4067 Errors : 0
		765
		766
		767

Subversion Repositories MB01 Project

(root)/trunk/sources/lst/FE/pcstd.lst – Rev 1